Compare commits
No commits in common. "master" and "DA3-D7" have entirely different histories.
191
1.1.0/Database/Script Datos.sql
Normal file
191
1.1.0/Database/Script Datos.sql
Normal file
@ -0,0 +1,191 @@
|
||||
--------------- 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
Normal file
519
1.1.0/Database/Script Tablas.sql
Normal file
@ -0,0 +1,519 @@
|
||||
--------------- 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
Normal file
1156
1.1.0/Database/Script Vistas INVRPT.sql
Normal file
File diff suppressed because it is too large
Load Diff
431
1.1.0/Database/Script Vistas STOCK.sql
Normal file
431
1.1.0/Database/Script Vistas STOCK.sql
Normal file
@ -0,0 +1,431 @@
|
||||
--
|
||||
-- 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
Normal file
302
1.1.0/Database/Script Vistas.sql
Normal file
@ -0,0 +1,302 @@
|
||||
--
|
||||
-- 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
Normal file
BIN
1.1.0/Database/Varela-2007-08-01.zip
Normal file
Binary file not shown.
BIN
1.1.0/Output/Cliente/AdminPV.exe
Normal file
BIN
1.1.0/Output/Cliente/AdminPV.exe
Normal file
Binary file not shown.
BIN
1.1.0/Output/Cliente/CargaEDI.exe
Normal file
BIN
1.1.0/Output/Cliente/CargaEDI.exe
Normal file
Binary file not shown.
BIN
1.1.0/Output/Servidor/AdminPV_Server.exe
Normal file
BIN
1.1.0/Output/Servidor/AdminPV_Server.exe
Normal file
Binary file not shown.
BIN
1.1.0/Output/Servidor/dbexpmss.dll
Normal file
BIN
1.1.0/Output/Servidor/dbexpmss.dll
Normal file
Binary file not shown.
69
1.1.0/Source/AdminPVGroup.bpg
Normal file
69
1.1.0/Source/AdminPVGroup.bpg
Normal file
@ -0,0 +1,69 @@
|
||||
#------------------------------------------------------------------------------
|
||||
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
Normal file
41
1.1.0/Source/Base/BaseD7.cfg
Normal file
@ -0,0 +1,41 @@
|
||||
-$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
Normal file
468
1.1.0/Source/Base/BaseD7.dof
Normal file
@ -0,0 +1,468 @@
|
||||
[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
Normal file
112
1.1.0/Source/Base/BaseD7.dpk
Normal file
@ -0,0 +1,112 @@
|
||||
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
Normal file
16
1.1.0/Source/Base/BaseD7.drc
Normal file
@ -0,0 +1,16 @@
|
||||
/* 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
Normal file
BIN
1.1.0/Source/Base/BaseD7.res
Normal file
Binary file not shown.
@ -2,6 +2,7 @@ object fConfigurarConexion: TfConfigurarConexion
|
||||
Left = 663
|
||||
Top = 468
|
||||
ActiveControl = edtServer
|
||||
AutoScroll = False
|
||||
Caption = 'Configuraci'#243'n de la conexi'#243'n'
|
||||
ClientHeight = 149
|
||||
ClientWidth = 392
|
||||
@ -89,10 +90,12 @@ object fConfigurarConexion: TfConfigurarConexion
|
||||
TabOrder = 3
|
||||
end
|
||||
object HTTPChannel: TROWinInetHTTPChannel
|
||||
UserAgent = 'AdminPV'
|
||||
TargetURL = 'http://localhost:8099/BIN'
|
||||
ServerLocators = <>
|
||||
DispatchOptions = []
|
||||
ProbeServers = False
|
||||
ProbeFrequency = 60000
|
||||
UserAgent = 'AdminPV'
|
||||
TargetURL = 'http://localhost:8099/BIN'
|
||||
Left = 120
|
||||
Top = 112
|
||||
end
|
||||
@ -101,9 +104,9 @@ object fConfigurarConexion: TfConfigurarConexion
|
||||
Top = 112
|
||||
end
|
||||
object CoService: TRORemoteService
|
||||
ServiceName = 'srvLogin'
|
||||
Message = ROBinMessage
|
||||
Channel = HTTPChannel
|
||||
ServiceName = 'srvLogin'
|
||||
Left = 184
|
||||
Top = 112
|
||||
end
|
||||
@ -36,7 +36,7 @@ var
|
||||
implementation
|
||||
|
||||
uses
|
||||
StrUtils, JclStrings, uDMBase, VARELA_Intf;
|
||||
StrUtils, JclStrings, uDataModuleBase, VARELA_Intf;
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
@ -1,6 +1,8 @@
|
||||
object dmBase: TdmBase
|
||||
OldCreateOrder = True
|
||||
OnCreate = DAClientDataModuleCreate
|
||||
Left = 452
|
||||
Top = 374
|
||||
Height = 352
|
||||
Width = 518
|
||||
object SmallImages: TPngImageList
|
||||
@ -191,15 +193,16 @@ object dmBase: TdmBase
|
||||
end
|
||||
object ROChannel: TROWinInetHTTPChannel
|
||||
OnFailure = ROChannelFailure
|
||||
OnException = ROChannelFailure
|
||||
UserAgent = 'RemObjects SDK'
|
||||
TargetURL = 'http://localhost:8099/bin'
|
||||
Login.Username = 'zvg'
|
||||
Login.Password = 'zeus'
|
||||
KeepConnection = True
|
||||
OnProgress = ROChannelProgress
|
||||
ServerLocators = <>
|
||||
DispatchOptions = []
|
||||
ProbeServers = False
|
||||
ProbeFrequency = 60000
|
||||
UserAgent = 'RemObjects SDK'
|
||||
TargetURL = 'http://david:8099/bin'
|
||||
Login.Username = '123456'
|
||||
Login.Password = 'sa'
|
||||
KeepConnection = True
|
||||
OnProgress = ROChannelProgress
|
||||
Left = 330
|
||||
Top = 24
|
||||
end
|
||||
@ -1638,7 +1641,6 @@ object dmBase: TdmBase
|
||||
Top = 88
|
||||
end
|
||||
object DABINAdapter: TDABINAdapter
|
||||
IsCompatibleV4 = False
|
||||
Left = 424
|
||||
Top = 24
|
||||
end
|
||||
@ -1651,9 +1653,9 @@ object dmBase: TdmBase
|
||||
Top = 80
|
||||
end
|
||||
object RORemoteService: TRORemoteService
|
||||
ServiceName = 'srvConfiguracion'
|
||||
Message = ROMessage
|
||||
Channel = ROChannel
|
||||
ServiceName = 'srvLogin'
|
||||
Left = 424
|
||||
Top = 92
|
||||
end
|
||||
@ -1,4 +1,4 @@
|
||||
unit uDMBase;
|
||||
unit uDataModuleBase;
|
||||
|
||||
interface
|
||||
|
||||
@ -6,9 +6,9 @@ uses
|
||||
Controls, PngImageList, JvComponent, JvNavigationPane, TBXSwitcher,
|
||||
TBXOffice2003Theme, Classes, ImgList, uROClient, uROBinMessage,
|
||||
uROServiceComponent, uRORemoteService, uROWinInetHttpChannel,
|
||||
DataAbstract3_Intf, uDADataTable, uDABINAdapter, cxintl, cxIntlPrintSys3,
|
||||
DataAbstract_Intf, uDADataTable, uDABINAdapter, cxintl, cxIntlPrintSys3,
|
||||
JvAppStorage, JvAppRegistryStorage, SysUtils,
|
||||
JvComponentBase, uDADataStreamer;
|
||||
JvComponentBase;
|
||||
|
||||
type
|
||||
TdmBase = class(TDataModule)
|
||||
@ -3,27 +3,23 @@ unit uDataTableUtils;
|
||||
interface
|
||||
|
||||
uses
|
||||
uDACDSDataTable, uDADataTable, uDAInterfaces, uDADelta, uDAMemDataTable;
|
||||
uDACDSDataTable, uDADataTable, uDAInterfaces;
|
||||
|
||||
|
||||
procedure CloneDataTable(const ASource : TDACDSDataTable;
|
||||
var ATarget : TDACDSDataTable;
|
||||
RemoteUpdate: Boolean = True); overload;
|
||||
|
||||
function CloneDataTable(const ASource : TDAMemDataTable;
|
||||
RemoteUpdate: Boolean = True): TDAMemDataTable; overload;
|
||||
RemoteUpdate: Boolean = True);
|
||||
|
||||
procedure CopyDataTable(ASource : IDADataset; ATarget : TDADataTable;
|
||||
const OnlySelectedRows : Boolean = False);
|
||||
procedure DeleteAllTable(const ADataTable : TDADataTable);
|
||||
function DeltaValuesAreDifferent(const aDelta : IDADelta): boolean;
|
||||
|
||||
function DataTableModified (const ADataTable : TDADataTable): Boolean;
|
||||
|
||||
implementation
|
||||
|
||||
uses
|
||||
DB, Classes, uDAClasses, SysUtils, uDABINAdapter, uROTypes, uDBSelectionList,
|
||||
cxControls, Dialogs, Variants, uDADataStreamer;
|
||||
uDAClasses, SysUtils, uDABINAdapter, uROTypes, uDBSelectionList, cxControls,
|
||||
Dialogs, Variants;
|
||||
|
||||
|
||||
{procedure EliminarNoSeleccionados(const ASource : IDADataset;
|
||||
@ -61,7 +57,118 @@ begin
|
||||
ADataTable.ClearRows;
|
||||
end;
|
||||
|
||||
procedure CloneDataTable(const ASource : TDACDSDataTable;
|
||||
var ATarget : TDACDSDataTable; RemoteUpdate: Boolean);
|
||||
var
|
||||
i : Integer;
|
||||
begin
|
||||
with ATarget do
|
||||
begin
|
||||
RemoteService := ASource.GetRemoteService;
|
||||
Adapter := ASource.GetAdapter;
|
||||
|
||||
BusinessRulesID := ASource.BusinessRulesID;
|
||||
Randomize;
|
||||
Name := ASource.Name + '_' + IntToStr(Random(MAXINT));
|
||||
LogicalName := ASource.LogicalName;
|
||||
|
||||
Params.AssignParamCollection(ASource.Params);
|
||||
|
||||
if Assigned(ASource.LocalSchema) then
|
||||
LocalSchema := ASource.LocalSchema
|
||||
else begin
|
||||
with SchemaCall do
|
||||
begin
|
||||
MethodName := ASource.SchemaCall.MethodName;
|
||||
for i := 0 to ASource.SchemaCall.Params.Count - 1 do
|
||||
begin
|
||||
with Params.Add do begin
|
||||
Name := ASource.SchemaCall.Params[i].Name;
|
||||
ParamType := ASource.SchemaCall.Params[i].ParamType;
|
||||
DataType := ASource.SchemaCall.Params[i].DataType;
|
||||
Value := ASource.SchemaCall.Params[i].Value;
|
||||
UserClassName := ASource.SchemaCall.Params[i].UserClassName;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
ATarget.Fields.AssignFieldCollection(ASource.Fields); // o también ATarget.LoadSchema;
|
||||
end;
|
||||
|
||||
with DataUpdateCall do
|
||||
begin
|
||||
MethodName := ASource.DataUpdateCall.MethodName;
|
||||
for i := 0 to ASource.DataUpdateCall.Params.Count - 1 do
|
||||
begin
|
||||
with Params.Add do begin
|
||||
Name := ASource.DataUpdateCall.Params[i].Name;
|
||||
ParamType := ASource.DataUpdateCall.Params[i].ParamType;
|
||||
DataType := ASource.DataUpdateCall.Params[i].DataType;
|
||||
Value := ASource.DataUpdateCall.Params[i].Value;
|
||||
UserClassName := ASource.DataUpdateCall.Params[i].UserClassName;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
with ScriptCall do
|
||||
begin
|
||||
MethodName := ASource.ScriptCall.MethodName;
|
||||
for i := 0 to ASource.ScriptCall.Params.Count - 1 do
|
||||
begin
|
||||
with Params.Add do begin
|
||||
Name := ASource.ScriptCall.Params[i].Name;
|
||||
ParamType := ASource.ScriptCall.Params[i].ParamType;
|
||||
DataType := ASource.ScriptCall.Params[i].DataType;
|
||||
Value := ASource.ScriptCall.Params[i].Value;
|
||||
UserClassName := ASource.ScriptCall.Params[i].UserClassName;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
with DataRequestCall do
|
||||
begin
|
||||
MethodName := ASource.DataRequestCall.MethodName;
|
||||
for i := 0 to ASource.DataRequestCall.Params.Count - 1 do
|
||||
begin
|
||||
with Params.Add do begin
|
||||
begin
|
||||
Name := ASource.DataRequestCall.Params[i].Name;
|
||||
ParamType := ASource.DataRequestCall.Params[i].ParamType;
|
||||
DataType := ASource.DataRequestCall.Params[i].DataType;
|
||||
Value := ASource.DataRequestCall.Params[i].Value;
|
||||
UserClassName := ASource.DataRequestCall.Params[i].UserClassName;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
with MasterParamsMappings do
|
||||
for i := 0 to ASource.MasterParamsMappings.Count - 1 do
|
||||
Add(ASource.MasterParamsMappings.Strings[i]);
|
||||
|
||||
with MasterRequestMappings do
|
||||
for i := 0 to ASource.MasterRequestMappings.Count - 1 do
|
||||
Add(ASource.MasterRequestMappings.Strings[i]);
|
||||
|
||||
MasterMappingMode := ASource.MasterMappingMode;
|
||||
|
||||
MasterFields := ASource.MasterFields;
|
||||
MasterOptions := ASource.MasterOptions;
|
||||
|
||||
DetailFields := ASource.DetailFields;
|
||||
DetailOptions := ASource.DetailOptions;
|
||||
|
||||
RemoteUpdatesOptions := ASource.RemoteUpdatesOptions;
|
||||
StreamingOptions := ASource.StreamingOptions;
|
||||
RemoteFetchEnabled := ASource.RemoteFetchEnabled;
|
||||
end;
|
||||
|
||||
if not RemoteUpdate then
|
||||
begin
|
||||
ATarget.LogChanges := False;
|
||||
ATarget.RemoteFetchEnabled := False;
|
||||
end;
|
||||
end;
|
||||
|
||||
function DeltaValuesAreDifferent(const aDelta : IDADelta): boolean;
|
||||
var
|
||||
i, x : integer;
|
||||
@ -149,160 +256,4 @@ begin
|
||||
end;
|
||||
|
||||
|
||||
function CloneDataTable(const ASource : TDAMemDataTable;
|
||||
RemoteUpdate: Boolean = True): TDAMemDataTable;
|
||||
var
|
||||
i : Integer;
|
||||
ATarget : TDAMemDataTable;
|
||||
begin
|
||||
if not Assigned(ASource) then
|
||||
raise Exception.Create ('No se ha asignado la tabla de origen (CloneDataTable)');
|
||||
|
||||
ATarget := TDAMemDataTable.Create(NIL);
|
||||
with ATarget do
|
||||
begin
|
||||
|
||||
{ ATENCIÓN !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
||||
--------------------------------------------------------------------
|
||||
DA5 tiene un fallo en el cual las tablas definidas como detalle no
|
||||
tienen asociados los eventos internos before... y after... por lo
|
||||
que los campos AutoInc no funcionan (no pone el -1, -2...).
|
||||
La forma de arreglarlo es llamar a DisableEventHandlers/EnableEventHandlers
|
||||
que realiza la asociación de los eventos.
|
||||
}
|
||||
ATarget.DisableEventHandlers; // <--- INDISPENSABLE!!!!!!!!!!!!!!!!!!!!
|
||||
|
||||
|
||||
try
|
||||
if not Assigned(ASource.RemoteDataAdapter) then
|
||||
raise Exception.Create('No está asignado RemoteDataAdapter (' + ASource.Name + ')');
|
||||
|
||||
LogicalName := ASource.LogicalName;
|
||||
CustomAttributes.Assign(ASource.CustomAttributes);
|
||||
Fields.AssignFieldCollection(ASource.Fields); // o también ATarget.LoadSchema;
|
||||
Params.AssignParamCollection(ASource.Params);
|
||||
|
||||
RemoteDataAdapter := ASource.RemoteDataAdapter;
|
||||
|
||||
Randomize;
|
||||
Name := ASource.Name + '_' + IntToStr(Random(MAXINT));
|
||||
|
||||
BusinessRulesID := ASource.BusinessRulesID;
|
||||
|
||||
with MasterParamsMappings do
|
||||
for i := 0 to ASource.MasterParamsMappings.Count - 1 do
|
||||
Add(ASource.MasterParamsMappings.Strings[i]);
|
||||
|
||||
with MasterRequestMappings do
|
||||
for i := 0 to ASource.MasterRequestMappings.Count - 1 do
|
||||
Add(ASource.MasterRequestMappings.Strings[i]);
|
||||
|
||||
MasterMappingMode := ASource.MasterMappingMode;
|
||||
|
||||
MasterFields := ASource.MasterFields;
|
||||
MasterOptions := ASource.MasterOptions;
|
||||
|
||||
DetailFields := ASource.DetailFields;
|
||||
DetailOptions := ASource.DetailOptions;
|
||||
|
||||
RemoteUpdatesOptions := ASource.RemoteUpdatesOptions;
|
||||
StreamingOptions := ASource.StreamingOptions;
|
||||
RemoteFetchEnabled := ASource.RemoteFetchEnabled;
|
||||
finally
|
||||
ATarget.EnableEventHandlers; // <--- INDISPENSABLE!!!!!!!!!!!!!!!!!!!!!!!!!
|
||||
end;
|
||||
end;
|
||||
|
||||
if not RemoteUpdate then
|
||||
begin
|
||||
ATarget.LogChanges := False;
|
||||
ATarget.RemoteFetchEnabled := False;
|
||||
end;
|
||||
|
||||
Result := ATarget;
|
||||
end;
|
||||
|
||||
|
||||
procedure CloneDataTable(const ASource : TDACDSDataTable;
|
||||
var ATarget : TDACDSDataTable; RemoteUpdate: Boolean);
|
||||
var
|
||||
i : Integer;
|
||||
begin
|
||||
with ATarget do
|
||||
begin
|
||||
RemoteDataAdapter := ASource.RemoteDataAdapter;
|
||||
|
||||
BusinessRulesID := ASource.BusinessRulesID;
|
||||
Randomize;
|
||||
Name := ASource.Name + '_' + IntToStr(Random(MAXINT));
|
||||
LogicalName := ASource.LogicalName;
|
||||
|
||||
Params.AssignParamCollection(ASource.Params);
|
||||
|
||||
if Assigned(ASource.LocalSchema) then
|
||||
LocalSchema := ASource.LocalSchema
|
||||
else
|
||||
ATarget.Fields.AssignFieldCollection(ASource.Fields); // o también ATarget.LoadSchema;
|
||||
|
||||
with MasterParamsMappings do
|
||||
for i := 0 to ASource.MasterParamsMappings.Count - 1 do
|
||||
Add(ASource.MasterParamsMappings.Strings[i]);
|
||||
|
||||
with MasterRequestMappings do
|
||||
for i := 0 to ASource.MasterRequestMappings.Count - 1 do
|
||||
Add(ASource.MasterRequestMappings.Strings[i]);
|
||||
|
||||
MasterMappingMode := ASource.MasterMappingMode;
|
||||
|
||||
MasterFields := ASource.MasterFields;
|
||||
MasterOptions := ASource.MasterOptions;
|
||||
|
||||
DetailFields := ASource.DetailFields;
|
||||
DetailOptions := ASource.DetailOptions;
|
||||
|
||||
RemoteUpdatesOptions := ASource.RemoteUpdatesOptions;
|
||||
StreamingOptions := ASource.StreamingOptions;
|
||||
RemoteFetchEnabled := ASource.RemoteFetchEnabled;
|
||||
end;
|
||||
|
||||
if not RemoteUpdate then
|
||||
begin
|
||||
ATarget.LogChanges := False;
|
||||
ATarget.RemoteFetchEnabled := False;
|
||||
end;
|
||||
end;
|
||||
|
||||
|
||||
function DataTableModified (const ADataTable : TDADataTable): Boolean;
|
||||
var
|
||||
bCambiado : Boolean;
|
||||
dtDetails : TList;
|
||||
i : integer;
|
||||
begin
|
||||
bCambiado := False;
|
||||
|
||||
if Assigned(ADataTable) and (ADataTable.Active) then
|
||||
begin
|
||||
bCambiado :=(ADataTable.State = dsEdit) or
|
||||
(ADataTable.HasDelta and DeltaValuesAreDifferent(ADataTable.Delta));
|
||||
|
||||
if (not bCambiado) then
|
||||
begin
|
||||
dtDetails := ADataTable.GetDetailDataTables;
|
||||
for i := 0 to dtDetails.Count - 1 do
|
||||
begin
|
||||
bCambiado := bCambiado or
|
||||
((TDADataTable(dtDetails.Items[i])).State in dsEditModes) or
|
||||
((TDADataTable(dtDetails.Items[i])).HasDelta and
|
||||
DeltaValuesAreDifferent((TDADataTable(dtDetails.Items[i])).Delta));
|
||||
if bCambiado then
|
||||
Break;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
Result := bCambiado;
|
||||
end;
|
||||
|
||||
|
||||
end.
|
||||
|
||||
@ -1,9 +1,9 @@
|
||||
object fEditorBase: TfEditorBase
|
||||
Left = 222
|
||||
Top = 127
|
||||
Width = 662
|
||||
Height = 496
|
||||
Caption = 'EditorBase'
|
||||
ClientHeight = 462
|
||||
ClientWidth = 654
|
||||
Color = clBtnFace
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
@ -125,7 +125,7 @@ implementation
|
||||
{$R *.dfm}
|
||||
|
||||
uses
|
||||
Menus, uDMBase, cxControls;
|
||||
Menus, uDataModuleBase, cxControls;
|
||||
|
||||
{
|
||||
********************************* TfEditorBase *********************************
|
||||
BIN
1.1.0/Source/Base/uEditorDBBase.ddp
Normal file
BIN
1.1.0/Source/Base/uEditorDBBase.ddp
Normal file
Binary file not shown.
@ -1,33 +1,24 @@
|
||||
inherited fEditorDBBase: TfEditorDBBase
|
||||
Left = 295
|
||||
Top = 247
|
||||
Width = 660
|
||||
Height = 494
|
||||
Caption = 'fEditorDBBase'
|
||||
ClientHeight = 460
|
||||
ClientWidth = 652
|
||||
ExplicitWidth = 660
|
||||
ExplicitHeight = 494
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
inherited JvNavPanelHeader: TJvNavPanelHeader
|
||||
Width = 652
|
||||
ExplicitWidth = 652
|
||||
inherited Image1: TImage
|
||||
Left = 625
|
||||
ExplicitLeft = 625
|
||||
Picture.Data = {00}
|
||||
end
|
||||
end
|
||||
inherited TBXDock: TTBXDock
|
||||
Width = 652
|
||||
ExplicitWidth = 652
|
||||
inherited tbxMenu: TTBXToolbar
|
||||
ExplicitWidth = 652
|
||||
end
|
||||
end
|
||||
inherited StatusBar: TStatusBar
|
||||
Top = 441
|
||||
Width = 652
|
||||
ExplicitTop = 441
|
||||
ExplicitWidth = 652
|
||||
end
|
||||
inherited EditorActionList: TActionList
|
||||
inherited actModificar: TAction
|
||||
@ -9,7 +9,7 @@ uses
|
||||
JvNavigationPane, DB, uDADataTable, uEditorBase, JvFormAutoSize,
|
||||
uDAScriptingProvider, uDACDSDataTable, AppEvnts, uCustomView, uViewBase,
|
||||
JvAppStorage, JvAppRegistryStorage, JvFormPlacement,
|
||||
pngimage, ExtCtrls, dxLayoutLookAndFeels, JvComponentBase, uDAInterfaces;
|
||||
pngimage, ExtCtrls, dxLayoutLookAndFeels, JvComponentBase;
|
||||
|
||||
type
|
||||
IEditorDBBase = interface(IEditorBase)
|
||||
@ -36,15 +36,16 @@ type
|
||||
{ Private declarations }
|
||||
protected
|
||||
function GetModified: Boolean; override;
|
||||
function HayDatos: Boolean; virtual;
|
||||
published
|
||||
end;
|
||||
|
||||
var
|
||||
fEditorDBBase: TfEditorDBBase;
|
||||
|
||||
implementation
|
||||
|
||||
uses
|
||||
uExceptions, uDataTableUtils, uBizInformesBase,
|
||||
cxControls, uDADelta;
|
||||
uses uExceptions, uDataTableUtils, uBizInformesBase,
|
||||
uDAInterfaces, cxControls;
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
@ -194,17 +195,35 @@ begin
|
||||
end;
|
||||
|
||||
function TfEditorDBBase.GetModified: Boolean;
|
||||
var
|
||||
dtDetails : TList;
|
||||
i : integer;
|
||||
bCambiado : Boolean;
|
||||
begin
|
||||
if ReadOnly then
|
||||
Result := False
|
||||
else
|
||||
Result := DataTableModified(dsDataTable.DataTable) or inherited GetModified;
|
||||
end;
|
||||
bCambiado := False;
|
||||
if Assigned(dsDataTable.DataTable) then
|
||||
begin
|
||||
bCambiado := (dsDataTable.DataTable.State = dsEdit) or
|
||||
DeltaValuesAreDifferent(dsDataTable.DataTable.Delta);
|
||||
|
||||
function TfEditorDBBase.HayDatos: Boolean;
|
||||
begin
|
||||
Result := Assigned(dsDataTable.DataTable) and (dsDataTable.DataTable.State <> dsInactive)
|
||||
and (not dsDataTable.DataTable.IsEmpty);
|
||||
if (not bCambiado) then
|
||||
begin
|
||||
dtDetails := dsDataTable.DataTable.GetDetailDataTables;
|
||||
for i := 0 to dtDetails.Count - 1 do
|
||||
begin
|
||||
bCambiado := bCambiado or
|
||||
((TDADataTable(dtDetails.Items[i])).State = dsEdit) or
|
||||
DeltaValuesAreDifferent((TDADataTable(dtDetails.Items[i])).Delta);
|
||||
if bCambiado then
|
||||
Break;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
if (not bCambiado) then
|
||||
bCambiado := inherited GetModified;
|
||||
|
||||
Result := bCambiado;
|
||||
end;
|
||||
|
||||
procedure TfEditorDBBase.FormCloseQuery(Sender: TObject;
|
||||
BIN
1.1.0/Source/Base/uEditorDBItem.ddp
Normal file
BIN
1.1.0/Source/Base/uEditorDBItem.ddp
Normal file
Binary file not shown.
@ -1,26 +1,20 @@
|
||||
inherited fEditorDBItem: TfEditorDBItem
|
||||
Left = 450
|
||||
Top = 321
|
||||
Width = 664
|
||||
Height = 499
|
||||
Caption = 'fEditorDBItem'
|
||||
ClientHeight = 465
|
||||
ClientWidth = 656
|
||||
ExplicitWidth = 664
|
||||
ExplicitHeight = 499
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
inherited JvNavPanelHeader: TJvNavPanelHeader
|
||||
Width = 656
|
||||
ExplicitWidth = 656
|
||||
inherited Image1: TImage
|
||||
Left = 629
|
||||
ExplicitLeft = 629
|
||||
end
|
||||
end
|
||||
inherited TBXDock: TTBXDock
|
||||
Width = 656
|
||||
ExplicitWidth = 656
|
||||
inherited tbxMain: TTBXToolbar
|
||||
ExplicitWidth = 548
|
||||
inherited TBXItem26: TTBXItem
|
||||
Visible = False
|
||||
end
|
||||
@ -29,7 +23,6 @@ inherited fEditorDBItem: TfEditorDBItem
|
||||
end
|
||||
end
|
||||
inherited tbxMenu: TTBXToolbar
|
||||
ExplicitWidth = 656
|
||||
inherited TBXSubmenuItem1: TTBXSubmenuItem
|
||||
Visible = False
|
||||
end
|
||||
@ -38,8 +31,6 @@ inherited fEditorDBItem: TfEditorDBItem
|
||||
inherited StatusBar: TStatusBar
|
||||
Top = 446
|
||||
Width = 656
|
||||
ExplicitTop = 446
|
||||
ExplicitWidth = 656
|
||||
end
|
||||
inherited EditorActionList: TActionList
|
||||
Top = 112
|
||||
@ -9,7 +9,7 @@ uses
|
||||
JvNavigationPane, DB, uDADataTable, uEditorDBBase, JvFormAutoSize,
|
||||
StdCtrls, uDAScriptingProvider, uDACDSDataTable, AppEvnts, uCustomView,
|
||||
uViewBase, JvAppStorage, JvAppRegistryStorage,
|
||||
JvFormPlacement, pngimage, ExtCtrls, JvComponentBase, uDAInterfaces;
|
||||
JvFormPlacement, pngimage, ExtCtrls, JvComponentBase;
|
||||
|
||||
type
|
||||
IEditorDBItem = interface(IEditorDBBase)
|
||||
@ -1,31 +1,23 @@
|
||||
inherited fEditorGridBase: TfEditorGridBase
|
||||
Left = 441
|
||||
Top = 354
|
||||
Width = 711
|
||||
Height = 480
|
||||
Caption = 'fEditorGridBase'
|
||||
ClientHeight = 446
|
||||
ClientWidth = 703
|
||||
ExplicitWidth = 711
|
||||
ExplicitHeight = 473
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
inherited JvNavPanelHeader: TJvNavPanelHeader
|
||||
Top = 0
|
||||
Width = 703
|
||||
ExplicitTop = 0
|
||||
ExplicitWidth = 703
|
||||
inherited Image1: TImage
|
||||
Left = 676
|
||||
ExplicitLeft = 676
|
||||
end
|
||||
end
|
||||
inherited TBXDock: TTBXDock
|
||||
Top = 27
|
||||
Width = 703
|
||||
ExplicitTop = 27
|
||||
ExplicitWidth = 703
|
||||
inherited tbxMain: TTBXToolbar
|
||||
DefaultDock = TBXDock
|
||||
ExplicitWidth = 442
|
||||
inherited TBXItem29: TTBXItem
|
||||
Visible = False
|
||||
end
|
||||
@ -50,7 +42,6 @@ inherited fEditorGridBase: TfEditorGridBase
|
||||
end
|
||||
inherited tbxMenu: TTBXToolbar
|
||||
Visible = False
|
||||
ExplicitWidth = 703
|
||||
inherited TBXSubmenuItem4: TTBXSubmenuItem
|
||||
object TBXItem34: TTBXItem [7]
|
||||
Action = actDuplicar
|
||||
@ -66,7 +57,7 @@ inherited fEditorGridBase: TfEditorGridBase
|
||||
CloseButton = False
|
||||
DefaultDock = TBXDock
|
||||
DockMode = dmCannotFloatOrChangeDocks
|
||||
DockPos = 440
|
||||
DockPos = 392
|
||||
DockRow = 1
|
||||
DragHandleStyle = dhNone
|
||||
Images = SmallImages
|
||||
@ -96,8 +87,6 @@ inherited fEditorGridBase: TfEditorGridBase
|
||||
inherited StatusBar: TStatusBar
|
||||
Top = 427
|
||||
Width = 703
|
||||
ExplicitTop = 427
|
||||
ExplicitWidth = 703
|
||||
end
|
||||
inherited EditorActionList: TActionList
|
||||
Left = 72
|
||||
@ -134,7 +123,6 @@ inherited fEditorGridBase: TfEditorGridBase
|
||||
Caption = 'Quitar filtro y ver todo'
|
||||
ImageIndex = 19
|
||||
OnExecute = actQuitarFiltroExecute
|
||||
OnUpdate = actQuitarFiltroUpdate
|
||||
end
|
||||
object actDuplicar: TAction
|
||||
Category = 'Archivo'
|
||||
@ -1431,9 +1419,4 @@ inherited fEditorGridBase: TfEditorGridBase
|
||||
Action = actImprimir
|
||||
end
|
||||
end
|
||||
object TimerParaFiltro: TTimer
|
||||
OnTimer = TimerParaFiltroTimer
|
||||
Left = 472
|
||||
Top = 80
|
||||
end
|
||||
end
|
||||
@ -18,7 +18,7 @@ uses
|
||||
uEditorDBBase, DB, uDADataTable, Menus, JvFormAutoSize,
|
||||
uDAScriptingProvider, uDACDSDataTable, AppEvnts, JvAppStorage,
|
||||
JvAppRegistryStorage, JvFormPlacement, pngimage, ExtCtrls,
|
||||
JvComponentBase, uDAInterfaces;
|
||||
JvComponentBase;
|
||||
|
||||
type
|
||||
IEditorGridBase = interface(IEditorDBBase)
|
||||
@ -45,7 +45,6 @@ type
|
||||
TBXSeparatorItem15: TTBXSeparatorItem;
|
||||
TBXItem34: TTBXItem;
|
||||
Duplicar1: TMenuItem;
|
||||
TimerParaFiltro: TTimer;
|
||||
procedure tbxEditFiltroChange(Sender: TObject; const Text: String);
|
||||
procedure FormShow(Sender: TObject); override;
|
||||
procedure actPrevisualizarExecute(Sender: TObject);
|
||||
@ -56,8 +55,6 @@ type
|
||||
procedure JvFormStorageSavePlacement(Sender: TObject);
|
||||
procedure JvFormStorageRestorePlacement(Sender: TObject);
|
||||
procedure actRefrescarExecute(Sender: TObject);
|
||||
procedure TimerParaFiltroTimer(Sender: TObject);
|
||||
procedure actQuitarFiltroUpdate(Sender: TObject);
|
||||
private
|
||||
FViewGrid : IViewGridBase;
|
||||
protected
|
||||
@ -73,19 +70,15 @@ type
|
||||
implementation
|
||||
|
||||
uses
|
||||
uDMBase, uCustomEditor, cxGridTableView;
|
||||
uDataModuleBase, uCustomEditor, cxGridTableView;
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
var
|
||||
FTextoFiltro : String;
|
||||
|
||||
{
|
||||
********************************* TfEditorGridBase *****************************
|
||||
}
|
||||
destructor TfEditorGridBase.Destroy;
|
||||
begin
|
||||
TimerParaFiltro.Enabled := False;
|
||||
FViewGrid := NIL;
|
||||
inherited;
|
||||
end;
|
||||
@ -107,17 +100,8 @@ end;
|
||||
|
||||
procedure TfEditorGridBase.tbxEditFiltroChange(Sender: TObject; const Text: String);
|
||||
begin
|
||||
TimerParaFiltro.Enabled := False;
|
||||
FTextoFiltro := Text;
|
||||
TimerParaFiltro.Enabled := True;
|
||||
end;
|
||||
|
||||
procedure TfEditorGridBase.TimerParaFiltroTimer(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
TimerParaFiltro.Enabled := False;
|
||||
if Assigned(ViewGrid) then
|
||||
ViewGrid.Filter := FTextoFiltro;
|
||||
ViewGrid.Filter := Text;
|
||||
end;
|
||||
|
||||
procedure TfEditorGridBase.FormShow(Sender: TObject);
|
||||
@ -146,7 +130,6 @@ end;
|
||||
|
||||
procedure TfEditorGridBase.actQuitarFiltroExecute(Sender: TObject);
|
||||
begin
|
||||
TimerParaFiltro.Enabled := False;
|
||||
if Assigned(ViewGrid) then
|
||||
begin
|
||||
tbxEditFiltro.Text := '';
|
||||
@ -154,16 +137,9 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfEditorGridBase.actQuitarFiltroUpdate(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
(Sender as TAction).Enabled := (Length(tbxEditFiltro.Text) > 0);
|
||||
end;
|
||||
|
||||
constructor TfEditorGridBase.Create(AOwner: TComponent);
|
||||
begin
|
||||
inherited;
|
||||
FTextoFiltro := '';
|
||||
actModificar.ShortCut := ShortCut(VK_RETURN, []);
|
||||
end;
|
||||
|
||||
@ -1,27 +1,23 @@
|
||||
inherited fEditorItem: TfEditorItem
|
||||
Left = 423
|
||||
Top = 273
|
||||
Width = 686
|
||||
Height = 535
|
||||
Caption = 'fEditorItem'
|
||||
ClientHeight = 508
|
||||
ClientWidth = 678
|
||||
ExplicitWidth = 686
|
||||
ExplicitHeight = 535
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
inherited JvNavPanelHeader: TJvNavPanelHeader
|
||||
Width = 678
|
||||
Visible = False
|
||||
ExplicitWidth = 678
|
||||
inherited Image1: TImage
|
||||
Left = 651
|
||||
ExplicitLeft = 651
|
||||
end
|
||||
end
|
||||
object pgPaginas: TPageControl [1]
|
||||
Left = 0
|
||||
Top = 76
|
||||
Width = 678
|
||||
Height = 413
|
||||
Height = 406
|
||||
ActivePage = pagGeneral
|
||||
Align = alClient
|
||||
TabOrder = 1
|
||||
@ -31,15 +27,12 @@ inherited fEditorItem: TfEditorItem
|
||||
end
|
||||
inherited TBXDock: TTBXDock
|
||||
Width = 678
|
||||
ExplicitWidth = 678
|
||||
inherited tbxMain: TTBXToolbar
|
||||
ExplicitWidth = 524
|
||||
inherited TBXItem5: TTBXItem
|
||||
Visible = False
|
||||
end
|
||||
end
|
||||
inherited tbxMenu: TTBXToolbar
|
||||
ExplicitWidth = 678
|
||||
inherited TBXSubmenuItem4: TTBXSubmenuItem
|
||||
inherited TBXItem10: TTBXItem
|
||||
Visible = False
|
||||
@ -48,10 +41,8 @@ inherited fEditorItem: TfEditorItem
|
||||
end
|
||||
end
|
||||
inherited StatusBar: TStatusBar
|
||||
Top = 489
|
||||
Top = 482
|
||||
Width = 678
|
||||
ExplicitTop = 489
|
||||
ExplicitWidth = 678
|
||||
end
|
||||
inherited EditorActionList: TActionList
|
||||
Top = 104
|
||||
@ -26,7 +26,7 @@ var
|
||||
|
||||
implementation
|
||||
|
||||
uses uDMBase;
|
||||
uses uDataModuleBase;
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
@ -10,17 +10,13 @@ inherited fEditorPreview: TfEditorPreview
|
||||
inherited JvNavPanelHeader: TJvNavPanelHeader
|
||||
Top = 75
|
||||
Visible = False
|
||||
ExplicitTop = 75
|
||||
end
|
||||
inherited TBXDock: TTBXDock
|
||||
Height = 75
|
||||
ExplicitHeight = 75
|
||||
inherited tbxMain: TTBXToolbar
|
||||
Top = 49
|
||||
DefaultDock = TBXDock
|
||||
Visible = False
|
||||
ExplicitTop = 49
|
||||
ExplicitWidth = 191
|
||||
end
|
||||
inherited tbxMenu: TTBXToolbar
|
||||
DockPos = -24
|
||||
@ -872,6 +868,10 @@ inherited fEditorPreview: TfEditorPreview
|
||||
Left = 48
|
||||
Top = 240
|
||||
end
|
||||
object frxChartObject1: TfrxChartObject
|
||||
Left = 16
|
||||
Top = 272
|
||||
end
|
||||
object frxRichObject1: TfrxRichObject
|
||||
Left = 48
|
||||
Top = 272
|
||||
@ -9,7 +9,7 @@ uses
|
||||
TB2ExtItems, TBXExtItems, uViewPreview, frxClass, ComCtrls, frxPreview,
|
||||
JvFormAutoSize, JvAppStorage, JvAppRegistryStorage, JvFormPlacement,
|
||||
pngimage, frxExportImage, frxExportPDF, frxDCtrl, frxDMPExport,
|
||||
frxGradient, frxChBox, frxCross, frxRich, frxOLE, frxBarcode,
|
||||
frxGradient, frxChBox, frxCross, frxRich, frxChart, frxOLE, frxBarcode,
|
||||
ExtCtrls, JvComponentBase;
|
||||
|
||||
type
|
||||
@ -57,6 +57,7 @@ type
|
||||
TBXSeparatorItem18: TTBXSeparatorItem;
|
||||
frxBarCodeObject1: TfrxBarCodeObject;
|
||||
frxOLEObject1: TfrxOLEObject;
|
||||
frxChartObject1: TfrxChartObject;
|
||||
frxRichObject1: TfrxRichObject;
|
||||
frxCrossObject1: TfrxCrossObject;
|
||||
frxCheckBoxObject1: TfrxCheckBoxObject;
|
||||
@ -3,7 +3,7 @@ unit uExceptions;
|
||||
interface
|
||||
|
||||
uses
|
||||
uDADelta;
|
||||
uDADataTable;
|
||||
|
||||
const
|
||||
AUF_FKVIOLATION = 'violation of FOREIGN KEY';
|
||||
@ -18,4 +18,3 @@ type
|
||||
implementation
|
||||
|
||||
end.
|
||||
|
||||
@ -19,7 +19,7 @@ uses
|
||||
DBGrids, JvComponent, JvFormAutoSize, dxPSGlbl, dxPSUtl, dxPSEngn,
|
||||
dxPrnPg, dxBkgnd, dxWrap, dxPrnDev, dxPSCompsProvider, dxPSFillPatterns,
|
||||
dxPSEdgePatterns, dxPSCore, dxPScxCommon, dxPScxGridLnk, dxPrnDlg,
|
||||
cxIntlPrintSys3, dxPSPrvwAdv, uViewGridBase, uDAInterfaces;
|
||||
cxIntlPrintSys3, dxPSPrvwAdv, uViewGridBase;
|
||||
|
||||
type
|
||||
IViewGrid = interface(IViewGridBase)
|
||||
BIN
1.1.0/Source/Base/uViewGridBase.ddp
Normal file
BIN
1.1.0/Source/Base/uViewGridBase.ddp
Normal file
Binary file not shown.
@ -1,8 +1,6 @@
|
||||
inherited frViewGridBase: TfrViewGridBase
|
||||
Width = 441
|
||||
Height = 268
|
||||
ExplicitWidth = 441
|
||||
ExplicitHeight = 268
|
||||
object dsDataSource: TDADataSource
|
||||
Left = 8
|
||||
Top = 16
|
||||
@ -19,7 +19,7 @@ uses
|
||||
DBGrids, JvComponent, JvFormAutoSize, dxPSGlbl, dxPSUtl, dxPSEngn,
|
||||
dxPrnPg, dxBkgnd, dxWrap, dxPrnDev, dxPSCompsProvider, dxPSFillPatterns,
|
||||
dxPSEdgePatterns, dxPSCore, dxPScxCommon, dxPScxGridLnk, dxPrnDlg,
|
||||
cxIntlPrintSys3, dxPSPrvwAdv, uGridUtils, uDAInterfaces;
|
||||
cxIntlPrintSys3, dxPSPrvwAdv, uGridUtils;
|
||||
|
||||
type
|
||||
IViewGridBase = interface(IViewBase)
|
||||
@ -276,8 +276,6 @@ var
|
||||
begin
|
||||
with _FocusedView.DataController.Filter do
|
||||
begin
|
||||
ShowHourglassCursor;
|
||||
Application.ProcessMessages;
|
||||
BeginUpdate;
|
||||
try
|
||||
Options := [fcoCaseInsensitive, fcoSoftCompare];
|
||||
@ -298,8 +296,6 @@ begin
|
||||
Active := False;
|
||||
finally
|
||||
EndUpdate;
|
||||
HideHourglassCursor;
|
||||
Application.ProcessMessages;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
479
1.1.0/Source/CargaEDI/CargaEDI.dof
Normal file
479
1.1.0/Source/CargaEDI/CargaEDI.dof
Normal file
@ -0,0 +1,479 @@
|
||||
[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
Normal file
14
1.1.0/Source/CargaEDI/CargaEDI.drc
Normal file
@ -0,0 +1,14 @@
|
||||
/* VER150
|
||||
Generated by the Borland Delphi Pascal Compiler
|
||||
because -GD or --drc was supplied to the compiler.
|
||||
|
||||
This file contains compiler-generated resources that
|
||||
were bound to the executable.
|
||||
If this file is empty, then no compiler-generated
|
||||
resources were bound to the produced executable.
|
||||
*/
|
||||
|
||||
STRINGTABLE
|
||||
BEGIN
|
||||
END
|
||||
|
||||
Binary file not shown.
BIN
1.1.0/Source/CargaEDI/uCargaEDI.ddp
Normal file
BIN
1.1.0/Source/CargaEDI/uCargaEDI.ddp
Normal file
Binary file not shown.
@ -47,7 +47,7 @@ implementation
|
||||
{$R *.dfm}
|
||||
|
||||
uses
|
||||
uCargarFicheros, uDMBase;
|
||||
uCargarFicheros, uDataModuleBase;
|
||||
|
||||
procedure TfCargaEDI.FormShow(Sender: TObject);
|
||||
begin
|
||||
@ -130,14 +130,13 @@ begin
|
||||
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);
|
||||
|
||||
AnadirMensaje('Cargando ficheros de ventas');
|
||||
TCargarVentasThread.Create('CABVEN.TXT', 'LUGVEN.TXT',
|
||||
'ARTVEN.TXT', OnLoadSuccess, OnLoadError);
|
||||
end;
|
||||
end;
|
||||
|
||||
47
1.1.0/Source/Cliente/AdminPV.cfg
Normal file
47
1.1.0/Source/Cliente/AdminPV.cfg
Normal file
@ -0,0 +1,47 @@
|
||||
-$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
Normal file
483
1.1.0/Source/Cliente/AdminPV.dof
Normal file
@ -0,0 +1,483 @@
|
||||
[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
Normal file
25
1.1.0/Source/Cliente/AdminPV.dpr
Normal file
@ -0,0 +1,25 @@
|
||||
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
Normal file
14
1.1.0/Source/Cliente/AdminPV.drc
Normal file
@ -0,0 +1,14 @@
|
||||
/* VER150
|
||||
Generated by the Borland Delphi Pascal Compiler
|
||||
because -GD or --drc was supplied to the compiler.
|
||||
|
||||
This file contains compiler-generated resources that
|
||||
were bound to the executable.
|
||||
If this file is empty, then no compiler-generated
|
||||
resources were bound to the produced executable.
|
||||
*/
|
||||
|
||||
STRINGTABLE
|
||||
BEGIN
|
||||
END
|
||||
|
||||
Binary file not shown.
@ -16,6 +16,10 @@ type
|
||||
bAceptar: TButton;
|
||||
memModulos: TMemo;
|
||||
procedure FormShow(Sender: TObject);
|
||||
private
|
||||
FHostManager: THostManager;
|
||||
public
|
||||
property HostManager : THostManager read FHostManager write FHostManager;
|
||||
end;
|
||||
|
||||
var
|
||||
@ -25,14 +29,14 @@ implementation
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
uses JclFileUtils, uAdminPV_App;
|
||||
uses JclFileUtils;
|
||||
|
||||
procedure TfAcercaDe.FormShow(Sender: TObject);
|
||||
var
|
||||
i : integer;
|
||||
Obj : TJclFileVersionInfo;
|
||||
begin
|
||||
{ memModulos.Lines.Clear;
|
||||
memModulos.Lines.Clear;
|
||||
|
||||
Obj := TJclFileVersionInfo.Create(Application.ExeName);
|
||||
try
|
||||
@ -51,14 +55,12 @@ begin
|
||||
if Assigned(FHostManager) then
|
||||
begin
|
||||
memModulos.Lines.Add('');
|
||||
memModulos.Lines.Add('');
|
||||
memModulos.Lines.Add('');
|
||||
memModulos.Lines.Add('Módulos disponibles:');
|
||||
for i := 0 to (HostManager.ModulesCount - 1) do
|
||||
memModulos.Lines.Add(' - ' + FHostManager.Modules[i].Module.ModuleName +
|
||||
' - v. ' + FHostManager.Modules[i].Module.Version);
|
||||
end;}
|
||||
end;
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
end.
|
||||
263
1.1.0/Source/Cliente/uMenuUtils.pas
Normal file
263
1.1.0/Source/Cliente/uMenuUtils.pas
Normal file
@ -0,0 +1,263 @@
|
||||
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
Normal file
BIN
1.1.0/Source/Cliente/uPantallaPrincipal.ddp
Normal file
Binary file not shown.
@ -1,9 +1,9 @@
|
||||
object fPantallaPrincipal: TfPantallaPrincipal
|
||||
Left = 358
|
||||
Top = 250
|
||||
Width = 779
|
||||
Height = 653
|
||||
Caption = 'Pantalla principal'
|
||||
ClientHeight = 599
|
||||
ClientWidth = 771
|
||||
Color = clWindow
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
@ -22,28 +22,26 @@ object fPantallaPrincipal: TfPantallaPrincipal
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 771
|
||||
Height = 577
|
||||
Height = 580
|
||||
ParentColor = True
|
||||
Align = alClient
|
||||
Margins.Left = 5
|
||||
Margins.Top = 5
|
||||
Margins.Right = 5
|
||||
Margins.Bottom = 5
|
||||
ParentColor = True
|
||||
Align = alClient
|
||||
TabOrder = 0
|
||||
ExplicitHeight = 580
|
||||
object JvSyncSplitter1: TJvSyncSplitter
|
||||
Left = 210
|
||||
Top = 5
|
||||
Width = 5
|
||||
Height = 567
|
||||
Height = 570
|
||||
ResizeStyle = rsPattern
|
||||
ExplicitHeight = 570
|
||||
end
|
||||
object JvNavigationPane: TJvNavigationPane
|
||||
Left = 5
|
||||
Top = 5
|
||||
Width = 205
|
||||
Height = 567
|
||||
Height = 570
|
||||
ActivePage = pagInicio
|
||||
Align = alLeft
|
||||
AutoHeaders = True
|
||||
@ -83,12 +81,11 @@ object fPantallaPrincipal: TfPantallaPrincipal
|
||||
NavPanelHotTrackFont.Name = 'Tahoma'
|
||||
NavPanelHotTrackFont.Style = []
|
||||
SmallImages = ModulesSmallImageList
|
||||
ExplicitHeight = 570
|
||||
object pagInicio: TJvNavPanelPage
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 203
|
||||
Height = 494
|
||||
Height = 497
|
||||
Background.Stretch = False
|
||||
Background.Proportional = False
|
||||
Background.Center = False
|
||||
@ -97,28 +94,25 @@ object fPantallaPrincipal: TfPantallaPrincipal
|
||||
Caption = 'Men'#250' principal'
|
||||
Iconic = True
|
||||
ImageIndex = 0
|
||||
ExplicitHeight = 497
|
||||
end
|
||||
end
|
||||
object pnlBorde: TJvXPContainer
|
||||
Left = 215
|
||||
Top = 5
|
||||
Width = 551
|
||||
Height = 567
|
||||
Height = 570
|
||||
BoundColor = clActiveCaption
|
||||
BoundLines = [blLeft, blTop, blRight, blBottom]
|
||||
Caption = 'pnlBorde'
|
||||
Align = alClient
|
||||
ExplicitHeight = 570
|
||||
object pnlMain: TTBXAlignmentPanel
|
||||
Left = 1
|
||||
Top = 1
|
||||
Width = 549
|
||||
Height = 565
|
||||
Height = 568
|
||||
Align = alClient
|
||||
Color = clWindow
|
||||
TabOrder = 0
|
||||
ExplicitHeight = 568
|
||||
object lblBienvenido: TLabel
|
||||
Left = 8
|
||||
Top = 8
|
||||
@ -150,15 +144,12 @@ object fPantallaPrincipal: TfPantallaPrincipal
|
||||
end
|
||||
end
|
||||
end
|
||||
object TBXStatusBar1: TTBXStatusBar
|
||||
object StatusBar: TStatusBar
|
||||
Left = 0
|
||||
Top = 577
|
||||
Top = 580
|
||||
Width = 771
|
||||
Height = 19
|
||||
Panels = <>
|
||||
UseSystemFont = False
|
||||
ExplicitLeft = 312
|
||||
ExplicitTop = 312
|
||||
ExplicitWidth = 150
|
||||
end
|
||||
object XPManifest1: TXPManifest
|
||||
Left = 248
|
||||
@ -175,6 +166,7 @@ object fPantallaPrincipal: TfPantallaPrincipal
|
||||
object actLogin: TAction
|
||||
Category = 'Archivo'
|
||||
Caption = 'Login'
|
||||
OnExecute = actLoginExecute
|
||||
end
|
||||
object actAdministracion: TAction
|
||||
Category = 'Archivo'
|
||||
@ -441,8 +433,6 @@ object fPantallaPrincipal: TfPantallaPrincipal
|
||||
end
|
||||
end
|
||||
object JvXPMenuItemPainter1: TJvXPMenuItemPainter
|
||||
SelectionFrameBrush.Color = 13811126
|
||||
SelectionFramePen.Color = 6956042
|
||||
Left = 424
|
||||
Top = 256
|
||||
end
|
||||
@ -15,15 +15,10 @@ uses
|
||||
JvStartMenuButton, JvTransparentButton, JvExComCtrls, JvListView,
|
||||
JvAppStorage, JvAppRegistryStorage, JvFormPlacement, JvBaseDlg,
|
||||
JvJVCLAboutForm, AppEvnts, JvWaitingGradient, JvGradient,
|
||||
cxControls, JvComponentBase, JvMenus, TBXStatusBars;
|
||||
cxControls, JvComponentBase, JvMenus;
|
||||
|
||||
type
|
||||
IMainForm = interface(IHostForm)
|
||||
['{1381B1AF-1492-422D-869D-7A1C3B91D8EF}']
|
||||
procedure ReleaseEmbedded;
|
||||
end;
|
||||
|
||||
TfPantallaPrincipal = class(TForm, IMainForm)
|
||||
TfPantallaPrincipal = class(TForm, IHostForm)
|
||||
GeneralActionList: TActionList;
|
||||
ModulesSmallImageList: TPngImageList;
|
||||
XPManifest1: TXPManifest;
|
||||
@ -34,6 +29,7 @@ type
|
||||
JvNavigationPane: TJvNavigationPane;
|
||||
pnlMain: TTBXAlignmentPanel;
|
||||
JvSyncSplitter1: TJvSyncSplitter;
|
||||
StatusBar: TStatusBar;
|
||||
HostManager: THostManager;
|
||||
actLogin: TAction;
|
||||
pagInicio: TJvNavPanelPage;
|
||||
@ -59,12 +55,12 @@ type
|
||||
Acercade2: TMenuItem;
|
||||
lblBienvenido: TLabel;
|
||||
Label22: TLabel;
|
||||
TBXStatusBar1: TTBXStatusBar;
|
||||
procedure FormCreate(Sender: TObject);
|
||||
procedure FormDestroy(Sender: TObject);
|
||||
procedure HostManagerAfterLoad(Sender: TObject; AModuleInfo: TModuleInfo);
|
||||
procedure Salir1Click(Sender: TObject);
|
||||
procedure actSalirExecute(Sender: TObject);
|
||||
procedure actLoginExecute(Sender: TObject);
|
||||
procedure ApplicationEventsActionExecute(Action: TBasicAction;
|
||||
var Handled: Boolean);
|
||||
procedure actCambiarPassExecute(Sender: TObject);
|
||||
@ -75,12 +71,10 @@ type
|
||||
FContenido : TCustomEditor;
|
||||
FStartDefaultAction : TBasicAction;
|
||||
|
||||
procedure ReleaseEmbedded;
|
||||
procedure ShowEmbedded(AEditor : ICustomEditor);
|
||||
procedure AplicarPerfil;
|
||||
function FindNavPanePage(ACaption : String) : Integer;
|
||||
procedure InitializeUI;
|
||||
procedure RefrescarUI;
|
||||
procedure OnThemeChange(Sender: TObject);
|
||||
procedure CopyImages(const SrcList: TPngImageList; var DstList: TPngImageList;
|
||||
out Index, Count: Integer);
|
||||
@ -101,17 +95,24 @@ var
|
||||
implementation
|
||||
|
||||
uses
|
||||
uSplash, uAcercaDe, uMenuUtils, uAdminPV_App,
|
||||
uDMBase, uMainMenuController, uNavPaneController,
|
||||
uDialogUtils;
|
||||
|
||||
{ PNGImage, uModuleController, uDMBase, Math, uMenuUtils,
|
||||
uSplash, uAcercaDe,
|
||||
uViewBase;}
|
||||
PNGImage, uModuleController, uDataModuleBase, Math, uMenuUtils,
|
||||
uPanelControl, uDataModuleUsuarios, uSplash, uAcercaDe,
|
||||
uViewBase,UxTheme, Themes;
|
||||
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
function OpenThemeData(hwnd: HWND; pszClassList: LPCWSTR): THandle; stdcall;
|
||||
external 'uxtheme.dll';
|
||||
|
||||
function CloseThemeData(hTheme: THandle): HRESULT; stdcall;
|
||||
external 'uxtheme.dll';
|
||||
|
||||
function DrawThemeBackground(hTheme: THandle; hdc: HDC; iPartId, iStateId:
|
||||
Integer; const pRect: TRect;
|
||||
pClipRect: PRECT): HRESULT; stdcall;
|
||||
external 'uxtheme.dll';
|
||||
|
||||
{
|
||||
***************************** TfPantallaPrincipal ******************************
|
||||
}
|
||||
@ -135,36 +136,22 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
function TfPantallaPrincipal.FindNavPanePage(ACaption: String): Integer;
|
||||
var
|
||||
ATitulo : String;
|
||||
begin
|
||||
ATitulo := AppAdminPV.AppName + ' ' + AppAdminPV.AppVersion;
|
||||
|
||||
Application.Title := ATitulo;
|
||||
Caption := Application.Title;
|
||||
|
||||
if dmBase.HayConexion then
|
||||
TBXStatusBar1.Panels[0].Caption := 'Conectado a: ' + dmBase.Channel.TargetURL
|
||||
else
|
||||
TBXStatusBar1.Panels[0].Caption := 'Desconectado';
|
||||
|
||||
if Assigned(AppAdminPV.UsuarioActivo) then
|
||||
TBXStatusBar1.Panels[1].Caption := AppAdminPV.UsuarioActivo.UserName
|
||||
else
|
||||
TBXStatusBar1.Panels[1].Caption := '';
|
||||
end;
|
||||
|
||||
procedure TfPantallaPrincipal.FormCreate(Sender: TObject);
|
||||
begin
|
||||
ApplicationEvents.Activate;
|
||||
Application.Title := AppAdminPV.AppName + ' ' + AppAdminPV.AppVersion;
|
||||
Caption := Application.Title;
|
||||
Caption := Application.Title + ' - ' + dmBase.DarVersion;
|
||||
SplashScreen := TSplashScreen.Create(Application) ;
|
||||
SplashScreen.Show;
|
||||
|
||||
JvNavigationPane.StyleManager := dmBase.StyleManager;
|
||||
dmBase.OnThemeChange := Self.OnThemeChange;
|
||||
Self.OnThemeChange(Self); // Forzar el refresco de los colores del tema activo
|
||||
|
||||
with HostManager do
|
||||
begin
|
||||
BPLPath := ExtractFilePath(Application.ExeName) + '\';
|
||||
MainForm := Self;
|
||||
end;
|
||||
|
||||
actLogin.Execute;
|
||||
end;
|
||||
|
||||
@ -179,22 +166,24 @@ begin
|
||||
RegisterModule(AModuleInfo);
|
||||
end;
|
||||
|
||||
procedure TfPantallaPrincipal.RefrescarUI;
|
||||
procedure TfPantallaPrincipal.RegisterModule(AModuleInfo : TModuleInfo);
|
||||
var
|
||||
AModule: TModuleController;
|
||||
AModuleMenu : TMainMenu;
|
||||
AIndex: Integer;
|
||||
ACount: Integer;
|
||||
begin
|
||||
AModule := AModuleInfo.Module;
|
||||
SplashScreen.Texto := 'Cargando ''' + AModule.ModuleName + '''...';
|
||||
|
||||
end;
|
||||
CopyImages(TPngImageList(AModule.SmallImages), TPngImageList(ModulesSmallImageList), AIndex, ACount);
|
||||
CopyImages(TPngImageList(AModule.LargeImages), TPngImageList(ModulesLargeImageList), AIndex, ACount);
|
||||
|
||||
procedure TfPantallaPrincipal.RegisterModule(AModuleInfo: TModuleInfo);
|
||||
begin
|
||||
|
||||
end;
|
||||
|
||||
procedure TfPantallaPrincipal.ReleaseEmbedded;
|
||||
begin
|
||||
if Assigned(FContenido) then
|
||||
FContenido.Release;
|
||||
FContenido := Nil;
|
||||
Application.ProcessMessages;
|
||||
if Assigned(AModule.ModuleMenu) then
|
||||
begin
|
||||
AModuleMenu := AModule.ModuleMenu;
|
||||
MergeMenus(AModuleMenu, Self.Menu, AIndex);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfPantallaPrincipal.Salir1Click(Sender: TObject);
|
||||
@ -250,24 +239,168 @@ begin
|
||||
end;
|
||||
|
||||
procedure TfPantallaPrincipal.InitializeUI;
|
||||
|
||||
function EsUnModulo(AMenuItem : TMenuItem) : Boolean;
|
||||
begin
|
||||
Result := (AMenuItem.Tag >= 0) and (AMenuItem.Tag < 9000)
|
||||
end;
|
||||
|
||||
var
|
||||
i : Integer;
|
||||
AMenuItem : TMenuItem;
|
||||
APageIndex : Integer;
|
||||
AStringList : TStringList;
|
||||
APanel : TScrollBox;
|
||||
begin
|
||||
for i := 0 to AppAdminPV.ModuleManager.ModulesCount - 1 do
|
||||
MainMenuController.RegisterModule(AppAdminPV.ModuleManager.Modules[i]);
|
||||
SortMenuByTag(Menu);
|
||||
|
||||
MainMenuController.SortMenuByTag;
|
||||
MainMenuController.InitMainMenu;
|
||||
AStringList := TStringList.Create;
|
||||
AStringList.Duplicates := dupIgnore;
|
||||
try
|
||||
for i := 0 to Menu.Items.Count - 1 do
|
||||
begin
|
||||
AMenuItem := Menu.Items[i];
|
||||
if not EsUnModulo(AMenuItem) then
|
||||
Continue;
|
||||
|
||||
for i := 0 to AppAdminPV.ModuleManager.ModulesCount - 1 do
|
||||
NavPaneController.RegisterModule(AppAdminPV.ModuleManager.Modules[i]);
|
||||
AStringList.Add(StringReplace(AMenuItem.Caption, '&', '', []))
|
||||
end;
|
||||
|
||||
for i := 0 to AStringList.Count - 1 do
|
||||
begin
|
||||
with TJvNavPanelDivider.Create(Self) do
|
||||
begin
|
||||
Parent := pagInicio;
|
||||
Top := 100 * i;
|
||||
Align := alTop;
|
||||
Caption := AStringList[i];
|
||||
ParentFont := True;
|
||||
if i = 0 then
|
||||
begin
|
||||
Enabled := false;
|
||||
Cursor := crDefault;
|
||||
end
|
||||
else
|
||||
Cursor := crSizeNS;
|
||||
end;
|
||||
|
||||
APanel := TScrollBox.Create(Self);
|
||||
with APanel do
|
||||
begin
|
||||
Parent := pagInicio;
|
||||
Top := 101 * i;
|
||||
if i = AStringList.Count - 1 then
|
||||
Align := alClient
|
||||
else
|
||||
Align := alTop;
|
||||
BorderStyle := bsNone;
|
||||
end;
|
||||
AStringList.Objects[i] := APanel;
|
||||
end;
|
||||
|
||||
for i := 0 to Menu.Items.Count - 1 do
|
||||
begin
|
||||
AMenuItem := Menu.Items[i];
|
||||
if not EsUnModulo(AMenuItem) then
|
||||
Continue;
|
||||
|
||||
if not Assigned(FStartDefaultAction) then
|
||||
FStartDefaultAction := AMenuItem[0].Action;
|
||||
|
||||
APageIndex := AStringList.IndexOf(StringReplace(AMenuItem.Caption, '&', '', []));
|
||||
PopulateNavPagePane(TScrollBox(AStringList.Objects[APageIndex]), AMenuItem, ModulesLargeImageList, StyleManagerButtons);
|
||||
|
||||
// Elimino la imagen que tiene el menú porque queda feo.
|
||||
AMenuItem.ImageIndex := -1;
|
||||
end;
|
||||
finally
|
||||
AStringList.Free;
|
||||
end;
|
||||
|
||||
NavPaneController.InitNavPane;
|
||||
RefrescarUI;
|
||||
ApplicationEvents.OnActionExecute := ApplicationEventsActionExecute;
|
||||
end;
|
||||
|
||||
|
||||
{ var
|
||||
i : Integer;
|
||||
AMenuItem : TMenuItem;
|
||||
APageIndex : Integer;
|
||||
begin
|
||||
SortMenuByTag(Menu);
|
||||
|
||||
for i := 0 to Menu.Items.Count - 1 do
|
||||
begin
|
||||
AMenuItem := Menu.Items[i];
|
||||
if not EsUnModulo(AMenuItem) then
|
||||
Continue;
|
||||
|
||||
if Pos('Ficheros', AMenuItem.Caption) > 0 then
|
||||
PopulateNavPagePane(pnlEDI, AMenuItem, ModulesLargeImageList, StyleManagerButtons);
|
||||
|
||||
if Pos('Inventario', AMenuItem.Caption) > 0 then
|
||||
PopulateNavPagePane(pnlInventario, AMenuItem, ModulesLargeImageList, StyleManagerButtons);
|
||||
|
||||
if Pos('Ventas', AMenuItem.Caption) > 0 then
|
||||
PopulateNavPagePane(pnlVentas, AMenuItem, ModulesLargeImageList, StyleManagerButtons);
|
||||
|
||||
if Pos('Stock', AMenuItem.Caption) > 0 then
|
||||
PopulateNavPagePane(pnlStock, AMenuItem, ModulesLargeImageList, StyleManagerButtons);
|
||||
|
||||
// Elimino la imagen que tiene el menú porque queda feo.
|
||||
AMenuItem.ImageIndex := -1;
|
||||
end;
|
||||
JvNavigationPane.ActivePage := pagInicio;
|
||||
ApplicationEvents.OnActionExecute := ApplicationEventsActionExecute;
|
||||
end;}
|
||||
|
||||
|
||||
procedure TfPantallaPrincipal.actLoginExecute(Sender: TObject);
|
||||
begin
|
||||
HostManager.UnloadModules;
|
||||
|
||||
if dmUsuarios.Login then
|
||||
begin
|
||||
ShowHourglassCursor;
|
||||
SplashScreen.Update;
|
||||
Application.ProcessMessages;
|
||||
try
|
||||
HostManager.LoadModule('FicherosEDI.bpl');
|
||||
HostManager.LoadModule('VentasTerminadas.bpl');
|
||||
HostManager.LoadModule('VentasProceso.bpl');
|
||||
HostManager.LoadModule('ReferenciaGenerica.bpl');
|
||||
HostManager.LoadModule('Recepciones.bpl');
|
||||
HostManager.LoadModule('Devoluciones.bpl');
|
||||
HostManager.LoadModule('Traspasos.bpl');
|
||||
HostManager.LoadModule('Stock.bpl');
|
||||
|
||||
InitializeUI;
|
||||
Application.ProcessMessages;
|
||||
Visible := True;
|
||||
AplicarPerfil;
|
||||
finally
|
||||
SplashScreen.Update;
|
||||
SplashScreen.Hide;
|
||||
SplashScreen.Free;
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
end
|
||||
else
|
||||
Application.Terminate;
|
||||
end;
|
||||
|
||||
function TfPantallaPrincipal.FindNavPanePage(ACaption: String): Integer;
|
||||
var
|
||||
i : integer;
|
||||
begin
|
||||
Result := -1;
|
||||
for i := 0 to JvNavigationPane.PageCount - 1 do
|
||||
if JvNavigationPane.NavPages[i].Caption = ACaption then
|
||||
begin
|
||||
Result := i;
|
||||
break;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfPantallaPrincipal.ExecuteActionMenu(Sender: TObject);
|
||||
var
|
||||
i : integer;
|
||||
@ -284,7 +417,7 @@ end;
|
||||
|
||||
procedure TfPantallaPrincipal.AplicarPerfil;
|
||||
begin
|
||||
//
|
||||
actAdministracion.Visible := dmUsuarios.EsAdmin;
|
||||
end;
|
||||
|
||||
procedure TfPantallaPrincipal.ApplicationEventsActionExecute(
|
||||
@ -340,14 +473,14 @@ end;
|
||||
|
||||
procedure TfPantallaPrincipal.actCambiarPassExecute(Sender: TObject);
|
||||
begin
|
||||
AppAdminPV.UsuariosController._ShowChangePassword;
|
||||
RefrescarUI;
|
||||
dmUsuarios.CambiarPassword;
|
||||
end;
|
||||
|
||||
procedure TfPantallaPrincipal.actAcercaExecute(Sender: TObject);
|
||||
begin
|
||||
with TfAcercaDe.Create(NIL) do
|
||||
try
|
||||
HostManager := Self.HostManager;
|
||||
ShowModal;
|
||||
finally
|
||||
Free;
|
||||
@ -431,7 +564,6 @@ end;}
|
||||
procedure TfPantallaPrincipal.actConexionExecute(Sender: TObject);
|
||||
begin
|
||||
dmBase.ConfigurarConexion;
|
||||
RefrescarUI;
|
||||
end;
|
||||
|
||||
end.
|
||||
BIN
1.1.0/Source/Cliente/uSplash.ddp
Normal file
BIN
1.1.0/Source/Cliente/uSplash.ddp
Normal file
Binary file not shown.
@ -14,7 +14,6 @@ object SplashScreen: TSplashScreen
|
||||
OldCreateOrder = False
|
||||
Position = poScreenCenter
|
||||
Scaled = False
|
||||
OnClose = FormClose
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
object lblTexto: TLabel
|
||||
56
1.1.0/Source/Cliente/uSplash.pas
Normal file
56
1.1.0/Source/Cliente/uSplash.pas
Normal file
@ -0,0 +1,56 @@
|
||||
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
Normal file
35
1.1.0/Source/Configuracion/Configuracion.dpk
Normal file
@ -0,0 +1,35 @@
|
||||
package Configuracion;
|
||||
|
||||
{$R *.res}
|
||||
{$ALIGN 8}
|
||||
{$ASSERTIONS ON}
|
||||
{$BOOLEVAL OFF}
|
||||
{$DEBUGINFO ON}
|
||||
{$EXTENDEDSYNTAX ON}
|
||||
{$IMPORTEDDATA ON}
|
||||
{$IOCHECKS ON}
|
||||
{$LOCALSYMBOLS ON}
|
||||
{$LONGSTRINGS ON}
|
||||
{$OPENSTRINGS ON}
|
||||
{$OPTIMIZATION ON}
|
||||
{$OVERFLOWCHECKS OFF}
|
||||
{$RANGECHECKS OFF}
|
||||
{$REFERENCEINFO ON}
|
||||
{$SAFEDIVIDE OFF}
|
||||
{$STACKFRAMES OFF}
|
||||
{$TYPEDADDRESS OFF}
|
||||
{$VARSTRINGCHECKS ON}
|
||||
{$WRITEABLECONST OFF}
|
||||
{$MINENUMSIZE 1}
|
||||
{$IMAGEBASE $400000}
|
||||
{$IMPLICITBUILD OFF}
|
||||
|
||||
requires
|
||||
JvGlobusD7R,
|
||||
BaseD7,
|
||||
Usuarios;
|
||||
|
||||
contains
|
||||
uPanelControl in 'uPanelControl.pas' {fPanelControl};
|
||||
|
||||
end.
|
||||
@ -1,5 +1,5 @@
|
||||
/* VER185
|
||||
Generated by the CodeGear Delphi Pascal Compiler
|
||||
/* VER150
|
||||
Generated by the Borland Delphi Pascal Compiler
|
||||
because -GD or --drc was supplied to the compiler.
|
||||
|
||||
This file contains compiler-generated resources that
|
||||
@ -12,6 +12,3 @@ STRINGTABLE
|
||||
BEGIN
|
||||
END
|
||||
|
||||
/* C:\Varela_D2007\Source\Configuracion\uPanelControl.dfm */
|
||||
/* C:\Varela_D2007\Source\Configuracion\Configuracion.res */
|
||||
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf11.tmp */
|
||||
BIN
1.1.0/Source/Configuracion/Configuracion.res
Normal file
BIN
1.1.0/Source/Configuracion/Configuracion.res
Normal file
Binary file not shown.
50
1.1.0/Source/Configuracion/uPanelControl.pas
Normal file
50
1.1.0/Source/Configuracion/uPanelControl.pas
Normal file
@ -0,0 +1,50 @@
|
||||
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.
|
||||
@ -0,0 +1,369 @@
|
||||
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
|
||||
@ -0,0 +1,108 @@
|
||||
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
Normal file
BIN
1.1.0/Source/ControlesBase/Cliente/uDataModuleControles.ddp
Normal file
Binary file not shown.
222
1.1.0/Source/ControlesBase/Cliente/uDataModuleControles.dfm
Normal file
222
1.1.0/Source/ControlesBase/Cliente/uDataModuleControles.dfm
Normal file
@ -0,0 +1,222 @@
|
||||
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
Normal file
70
1.1.0/Source/ControlesBase/Cliente/uDataModuleControles.pas
Normal file
@ -0,0 +1,70 @@
|
||||
unit uDataModuleControles;
|
||||
|
||||
interface
|
||||
|
||||
uses {vcl:} SysUtils, Classes, DB, DBClient,
|
||||
{RemObjects:} uDAClientDataModule, uDADataTable, uDAScriptingProvider,
|
||||
uDACDSDataTable, uROClient, uROServiceComponent, uRORemoteService;
|
||||
|
||||
type
|
||||
TdmControles = class(TDAClientDataModule)
|
||||
RemoteService: TRORemoteService;
|
||||
tbl_Controles: TDACDSDataTable;
|
||||
ds_Controles: TDADataSource;
|
||||
procedure DAClientDataModuleCreate(Sender: TObject);
|
||||
private
|
||||
{ Private declarations }
|
||||
public
|
||||
function GetItems (const ACategoria : String): TDACDSDataTable;
|
||||
end;
|
||||
|
||||
var
|
||||
dmControles: TdmControles;
|
||||
|
||||
implementation
|
||||
|
||||
{$R *.DFM}
|
||||
|
||||
uses
|
||||
Forms, Controls,
|
||||
schControlesClient_Intf,
|
||||
uDataModuleBase, uDataTableUtils, DataAbstract_Intf, cxControls;
|
||||
|
||||
procedure TdmControles.DAClientDataModuleCreate(Sender: TObject);
|
||||
begin
|
||||
RemoteService.Channel := dmBase.Channel;
|
||||
RemoteService.Message := dmBase.Message;
|
||||
end;
|
||||
|
||||
function TdmControles.GetItems (const ACategoria : String): TDACDSDataTable;
|
||||
var
|
||||
dtControles: TDACDSDataTable;
|
||||
AParams : TDADatasetParamArray;
|
||||
begin
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
dtControles := TDACDSDataTable.Create(NIL);
|
||||
CloneDataTable(tbl_Controles, dtControles);
|
||||
|
||||
AParams := TDADatasetParamArray.Create;
|
||||
with AParams.Add do begin
|
||||
Name := fld_ListaControlesPorCategoriaCATEGORIA;
|
||||
Value := ACategoria;
|
||||
end;
|
||||
|
||||
dtControles.DataRequestCall.ParamByName(par_Params).AsComplexType := AParams;
|
||||
|
||||
Result := dtControles;
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
end;
|
||||
|
||||
initialization
|
||||
dmControles := TdmControles.Create(nil);
|
||||
|
||||
finalization
|
||||
FreeAndNil(dmControles);
|
||||
|
||||
end.
|
||||
|
||||
@ -1,13 +1,15 @@
|
||||
{*******************************************************}
|
||||
{ }
|
||||
{ Administración de puntos de venta }
|
||||
{ }
|
||||
{ Copyright (C) 2006 Rodax Software S.L. }
|
||||
{ }
|
||||
{*******************************************************}
|
||||
|
||||
unit uDateUtils;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
SysUtils, Classes;
|
||||
|
||||
function DarFechaPrimerDia(Date: TDateTime): TDateTime;
|
||||
function DarFechaUltimoDia(Date: TDateTime): TDateTime;
|
||||
function EsFechaVacia(AFecha : TDateTime): Boolean;
|
||||
function NumberDayOfTheWeek(const ADay : String) : Word;
|
||||
function NumberMonthOfTheYear(const AMonth : String) : Word;
|
||||
|
||||
@ -16,9 +18,6 @@ implementation
|
||||
uses
|
||||
DateUtils;
|
||||
|
||||
const
|
||||
FECHA_NULA = -700000;
|
||||
|
||||
function NumberDayOfTheWeek(const ADay : String) : Word;
|
||||
begin
|
||||
if (ADay = 'Monday') or (ADay = 'Lunes') then
|
||||
@ -65,29 +64,5 @@ begin
|
||||
Result := 12;
|
||||
end;
|
||||
|
||||
|
||||
function EsFechaVacia(AFecha : TDateTime): Boolean;
|
||||
begin
|
||||
Result := (AFecha = FECHA_NULA) or (AFecha = 0);
|
||||
end;
|
||||
|
||||
function DarFechaPrimerDia(Date: TDateTime): TDateTime;
|
||||
var
|
||||
Year, Month, Day: Word;
|
||||
begin
|
||||
DecodeDate(Date, Year, Month, Day);
|
||||
Result := EncodeDate(Year, Month, 1);
|
||||
end;
|
||||
|
||||
function DarFechaUltimoDia(Date: TDateTime): TDateTime;
|
||||
var
|
||||
Year, Month, Day: Word;
|
||||
begin
|
||||
DecodeDate(Date, Year, Month, Day);
|
||||
// (if Month < 12 then inc(Month)
|
||||
// else begin Month := 1; inc(Year) end;
|
||||
// Result := EncodeDate(Year, Month, 1) - 1;
|
||||
Result := EncodeDate(Year, Month,
|
||||
MonthDays[IsLeapYear(Year), Month]);
|
||||
end;
|
||||
end.
|
||||
|
||||
BIN
1.1.0/Source/ControlesBase/Cliente/uEditorControlBase.ddp
Normal file
BIN
1.1.0/Source/ControlesBase/Cliente/uEditorControlBase.ddp
Normal file
Binary file not shown.
@ -2,13 +2,10 @@ inherited fEditorControlBase: TfEditorControlBase
|
||||
Left = 499
|
||||
Top = 302
|
||||
Caption = ''
|
||||
ExplicitWidth = 320
|
||||
ExplicitHeight = 240
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
inherited TBXDock: TTBXDock
|
||||
inherited tbxMain: TTBXToolbar
|
||||
ExplicitWidth = 523
|
||||
inherited TBXItem2: TTBXItem
|
||||
Visible = False
|
||||
end
|
||||
@ -8,8 +8,7 @@ uses
|
||||
JvAppRegistryStorage, JvComponentBase, JvFormPlacement, ImgList,
|
||||
PngImageList, StdActns, ActnList, ComCtrls, TBX, TB2Item, TB2Dock,
|
||||
TB2Toolbar, ExtCtrls, JvExControls, JvComponent, JvNavigationPane,
|
||||
uBizControlesBase, schControlesClient_Intf, uViewControlBase, uDAInterfaces,
|
||||
pngimage;
|
||||
uBizControlesBase, schControlesClient_Intf, uViewControlBase;
|
||||
|
||||
type
|
||||
IEditorControlBase = interface(IEditorDBItem)
|
||||
@ -2,19 +2,14 @@ inherited fEditorControlesBase: TfEditorControlesBase
|
||||
Left = 385
|
||||
Top = 375
|
||||
Caption = ''
|
||||
ExplicitWidth = 320
|
||||
ExplicitHeight = 240
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
inherited JvNavPanelHeader: TJvNavPanelHeader
|
||||
Top = 0
|
||||
ExplicitTop = 0
|
||||
end
|
||||
inherited TBXDock: TTBXDock
|
||||
Top = 27
|
||||
ExplicitTop = 27
|
||||
inherited tbxMain: TTBXToolbar
|
||||
ExplicitWidth = 386
|
||||
inherited TBXItem2: TTBXItem
|
||||
ImageIndex = 0
|
||||
Images = pngImageNuevo
|
||||
@ -9,7 +9,7 @@ uses
|
||||
PngImageList, StdActns, ActnList, ComCtrls, TB2ExtItems, TBXExtItems,
|
||||
TBX, TB2Item, TB2Dock, TB2Toolbar, ExtCtrls, JvExControls, JvComponent,
|
||||
JvNavigationPane, pngimage, uBizControlesBase, uEditorBase,
|
||||
uViewControlesBase, uDAInterfaces;
|
||||
uViewControlesBase;
|
||||
|
||||
type
|
||||
IEditorControlesBase = interface(IEditorDBBase)
|
||||
BIN
1.1.0/Source/ControlesBase/Cliente/uViewAgrupaciones.ddp
Normal file
BIN
1.1.0/Source/ControlesBase/Cliente/uViewAgrupaciones.ddp
Normal file
Binary file not shown.
Some files were not shown because too many files have changed in this diff Show More
Loading…
Reference in New Issue
Block a user