Archivado/Varela_PuntosVenta
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Compare commits

base: Archivado:DA3-D7
Branches Tags
Archivado:master
Archivado:2.1.4
Archivado:2.1.3
Archivado:2.1.2
Archivado:2.1.1
Archivado:DA5-D2007
Archivado:Mis%20documentos
Archivado:DA3-D7
Archivado:1.1.1
Archivado:1.1.0
...
compare: Archivado:master
Branches Tags
Archivado:master
Archivado:2.1.4
Archivado:2.1.3
Archivado:2.1.2
Archivado:2.1.1
Archivado:DA5-D2007
Archivado:Mis%20documentos
Archivado:DA3-D7
Archivado:1.1.1
Archivado:1.1.0

No commits in common. "DA3-D7" and "master" have entirely different histories.
DA3-D7 ... master

1658 changed files with 80937 additions and 168819 deletions
Show Stats Expand all files Collapse all files

191
1.1.0/Database/Script Datos.sql
View File

@ -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

519
1.1.0/Database/Script Tablas.sql
View File

@ -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

1156
1.1.0/Database/Script Vistas INVRPT.sql
View File

File diff suppressed because it is too large Load Diff

431
1.1.0/Database/Script Vistas STOCK.sql
View File

@ -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

302
1.1.0/Database/Script Vistas.sql
View File

@ -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

BIN
1.1.0/Database/Varela-2007-08-01.zip
View File

Binary file not shown.

BIN
1.1.0/Output/Cliente/AdminPV.exe
View File

Binary file not shown.

BIN
1.1.0/Output/Cliente/CargaEDI.exe
View File

Binary file not shown.

BIN
1.1.0/Output/Servidor/AdminPV_Server.exe
View File

Binary file not shown.

BIN
1.1.0/Output/Servidor/dbexpmss.dll
View File

Binary file not shown.

69
1.1.0/Source/AdminPVGroup.bpg
View File

@ -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)

41
1.1.0/Source/Base/BaseD7.cfg
View File

@ -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

468
1.1.0/Source/Base/BaseD7.dof
View File

@ -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."

112
1.1.0/Source/Base/BaseD7.dpk
View File

@ -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.

16
1.1.0/Source/Base/BaseD7.drc
View File

@ -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

BIN
1.1.0/Source/Base/BaseD7.res
View File

Binary file not shown.

1662
1.1.0/Source/Base/uDataModuleBase.dfm
View File

File diff suppressed because it is too large Load Diff

254
1.1.0/Source/Base/uDataModuleBase.pas
View File

@ -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.

1622
1.1.0/Source/Base/uEditorBase.dfm
View File

File diff suppressed because it is too large Load Diff

BIN
1.1.0/Source/Base/uEditorDBBase.ddp
View File

Binary file not shown.

60
1.1.0/Source/Base/uEditorDBBase.dfm
View File

@ -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

BIN
1.1.0/Source/Base/uEditorDBItem.ddp
View File

Binary file not shown.

51
1.1.0/Source/Base/uEditorDBItem.dfm
View File

@ -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

89
1.1.0/Source/Base/uEditorDBItem.pas
View File

@ -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.

194
1.1.0/Source/Base/uEditorGridBase.pas
View File

@ -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.

53
1.1.0/Source/Base/uEditorItem.dfm
View File

@ -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

935
1.1.0/Source/Base/uEditorPreview.dfm
View File

@ -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

312
1.1.0/Source/Base/uEditorPreview.pas
View File

@ -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.

BIN
1.1.0/Source/Base/uViewGridBase.ddp
View File

Binary file not shown.

335
1.1.0/Source/Base/uViewGridBase.pas
View File

@ -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.

479
1.1.0/Source/CargaEDI/CargaEDI.dof
View File

@ -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."

14
1.1.0/Source/CargaEDI/CargaEDI.drc
View File

@ -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

BIN
1.1.0/Source/CargaEDI/uCargaEDI.ddp
View File

Binary file not shown.

163
1.1.0/Source/CargaEDI/uCargaEDI.pas
View File

@ -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.

47
1.1.0/Source/Cliente/AdminPV.cfg
View File

@ -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

483
1.1.0/Source/Cliente/AdminPV.dof
View File

@ -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."

25
1.1.0/Source/Cliente/AdminPV.dpr
View File

@ -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.

14
1.1.0/Source/Cliente/AdminPV.drc
View File

@ -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

263
1.1.0/Source/Cliente/uMenuUtils.pas
View File

@ -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.

BIN
1.1.0/Source/Cliente/uPantallaPrincipal.ddp
View File

Binary file not shown.

BIN
1.1.0/Source/Cliente/uSplash.ddp
View File

Binary file not shown.

56
1.1.0/Source/Cliente/uSplash.pas
View File

@ -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.

35
1.1.0/Source/Configuracion/Configuracion.dpk
View File

@ -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.

14
1.1.0/Source/Configuracion/Configuracion.drc
View File

@ -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

BIN
1.1.0/Source/Configuracion/Configuracion.res
View File

Binary file not shown.

50
1.1.0/Source/Configuracion/uPanelControl.pas
View File

@ -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.

369
1.1.0/Source/ControlesBase/Cliente/Bak/uViewControlesBase_TreeView.dfm
View File

@ -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

108
1.1.0/Source/ControlesBase/Cliente/Bak/uViewControlesBase_TreeView.pas
View File

@ -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.

BIN
1.1.0/Source/ControlesBase/Cliente/uDataModuleControles.ddp
View File

Binary file not shown.

222
1.1.0/Source/ControlesBase/Cliente/uDataModuleControles.dfm
View File

@ -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

70
1.1.0/Source/ControlesBase/Cliente/uDataModuleControles.pas
View File

@ -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.

68
1.1.0/Source/ControlesBase/Cliente/uDateUtils.pas
View File

@ -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.

BIN
1.1.0/Source/ControlesBase/Cliente/uEditorControlBase.ddp
View File

Binary file not shown.

1321
1.1.0/Source/ControlesBase/Cliente/uEditorControlBase.dfm
View File

File diff suppressed because it is too large Load Diff

133
1.1.0/Source/ControlesBase/Cliente/uEditorControlBase.pas
View File

@ -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.

BIN
1.1.0/Source/ControlesBase/Cliente/uViewAgrupaciones.ddp
View File

Binary file not shown.

135
1.1.0/Source/ControlesBase/Cliente/uViewAgrupaciones.dfm
View File

@ -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

339
1.1.0/Source/ControlesBase/Cliente/uViewAgrupaciones.pas
View File

@ -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.

BIN
1.1.0/Source/ControlesBase/Cliente/uViewColumnas.ddp
View File

Binary file not shown.

42
1.1.0/Source/ControlesBase/Cliente/uViewColumnas.dfm
View File

@ -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

BIN
1.1.0/Source/ControlesBase/Cliente/uViewControlBase.ddp
View File

Binary file not shown.

BIN
1.1.0/Source/ControlesBase/Cliente/uViewControlGrid.ddp
View File

Binary file not shown.

BIN
1.1.0/Source/ControlesBase/Cliente/uViewFiltros.ddp
View File

Binary file not shown.

BIN
1.1.0/Source/ControlesBase/Cliente/uViewPeriodoFechas.ddp
View File

Binary file not shown.

BIN
1.1.0/Source/ControlesBase/Cliente/uViewSumarios.ddp
View File

Binary file not shown.

115
1.1.0/Source/ControlesBase/Cliente/uViewSumarios.dfm
View File

@ -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

325
1.1.0/Source/ControlesBase/Cliente/uViewSumarios.pas
View File

@ -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.

45
1.1.0/Source/ControlesBase/ControlesBaseD7.cfg
View File

@ -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

471
1.1.0/Source/ControlesBase/ControlesBaseD7.dof
View File

@ -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."

86
1.1.0/Source/ControlesBase/ControlesBaseD7.dpk
View File

@ -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.

14
1.1.0/Source/ControlesBase/ControlesBaseD7.drc
View File

@ -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

BIN
1.1.0/Source/ControlesBase/ControlesBaseD7.res
View File

Binary file not shown.

80
1.1.0/Source/ControlesBase/Reglas/uBizControlesBase.pas
View File

@ -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.

BIN
1.1.0/Source/ControlesBase/Servidor/srvControles_Impl.ddp
View File

Binary file not shown.

48
1.1.0/Source/ControlesBase/Servidor/srvControles_Impl.pas
View File

@ -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.

38
1.1.0/Source/DataAbstract_D7/DataAbstract_D7.cfg
View File

@ -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

467
1.1.0/Source/DataAbstract_D7/DataAbstract_D7.dof
View File

@ -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."

57
1.1.0/Source/DataAbstract_D7/DataAbstract_D7.dpk
View File

@ -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.

400
1.1.0/Source/DataAbstract_D7/DataAbstract_D7.drc
View File

@ -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

BIN
1.1.0/Source/DataAbstract_D7/DataAbstract_D7.res
View File

Binary file not shown.

BIN
1.1.0/Source/Iconos/Devoluciones/16x16/Thumbs.db
View File

Binary file not shown.

BIN
1.1.0/Source/Iconos/Devoluciones/28x28/Thumbs.db
View File

Binary file not shown.

BIN
1.1.0/Source/Iconos/Factuges.ico
View File

Binary file not shown.
Side by Side

Before

Width:  |  Height:  |  Size: 167 KiB

BIN
1.1.0/Source/Iconos/FicherosEDI/16x16/Thumbs.db
View File

Binary file not shown.

BIN
1.1.0/Source/Iconos/FicherosEDI/28x28/Thumbs.db
View File

Binary file not shown.

BIN
1.1.0/Source/Iconos/Generales/16x16/Thumbs.db
View File

Binary file not shown.

BIN
1.1.0/Source/Iconos/Recepciones/16x16/Thumbs.db
View File

Binary file not shown.

BIN
1.1.0/Source/Iconos/Referencias genéricas/16x16/Thumbs.db
View File

Binary file not shown.

BIN
1.1.0/Source/Iconos/Servidor/16x16/Thumbs.db
View File

Binary file not shown.

BIN
1.1.0/Source/Iconos/Servidor/24x24/Thumbs.db
View File

Binary file not shown.

BIN
1.1.0/Source/Iconos/Servidor/28x28/Thumbs.db
View File

Binary file not shown.

BIN
1.1.0/Source/Iconos/Stock/24x24/Thumbs.db
View File

Binary file not shown.

BIN
1.1.0/Source/Iconos/Thumbs.db
View File

Binary file not shown.

BIN
1.1.0/Source/Iconos/Traspasos/24x24/Thumbs.db
View File

Binary file not shown.

BIN
1.1.0/Source/Iconos/Usuarios/24x24/Thumbs.db
View File

Binary file not shown.

BIN
1.1.0/Source/Iconos/Usuarios/48x48/Thumbs.db
View File

Binary file not shown.

BIN
1.1.0/Source/Iconos/Ventas en proceso/16x16/Thumbs.db
View File

Binary file not shown.

BIN
1.1.0/Source/Iconos/Ventas en proceso/24x24/Thumbs.db
View File

Binary file not shown.

BIN
1.1.0/Source/Iconos/Ventas terminadas/16x16/Thumbs.db
View File

Binary file not shown.

BIN
1.1.0/Source/Iconos/Ventas terminadas/28x28/Thumbs.db
View File

Binary file not shown.

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