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
|
Left = 663
|
||||||
Top = 468
|
Top = 468
|
||||||
ActiveControl = edtServer
|
ActiveControl = edtServer
|
||||||
|
AutoScroll = False
|
||||||
Caption = 'Configuraci'#243'n de la conexi'#243'n'
|
Caption = 'Configuraci'#243'n de la conexi'#243'n'
|
||||||
ClientHeight = 149
|
ClientHeight = 149
|
||||||
ClientWidth = 392
|
ClientWidth = 392
|
||||||
@ -89,10 +90,12 @@ object fConfigurarConexion: TfConfigurarConexion
|
|||||||
TabOrder = 3
|
TabOrder = 3
|
||||||
end
|
end
|
||||||
object HTTPChannel: TROWinInetHTTPChannel
|
object HTTPChannel: TROWinInetHTTPChannel
|
||||||
UserAgent = 'AdminPV'
|
|
||||||
TargetURL = 'http://localhost:8099/BIN'
|
|
||||||
ServerLocators = <>
|
ServerLocators = <>
|
||||||
DispatchOptions = []
|
DispatchOptions = []
|
||||||
|
ProbeServers = False
|
||||||
|
ProbeFrequency = 60000
|
||||||
|
UserAgent = 'AdminPV'
|
||||||
|
TargetURL = 'http://localhost:8099/BIN'
|
||||||
Left = 120
|
Left = 120
|
||||||
Top = 112
|
Top = 112
|
||||||
end
|
end
|
||||||
@ -101,9 +104,9 @@ object fConfigurarConexion: TfConfigurarConexion
|
|||||||
Top = 112
|
Top = 112
|
||||||
end
|
end
|
||||||
object CoService: TRORemoteService
|
object CoService: TRORemoteService
|
||||||
|
ServiceName = 'srvLogin'
|
||||||
Message = ROBinMessage
|
Message = ROBinMessage
|
||||||
Channel = HTTPChannel
|
Channel = HTTPChannel
|
||||||
ServiceName = 'srvLogin'
|
|
||||||
Left = 184
|
Left = 184
|
||||||
Top = 112
|
Top = 112
|
||||||
end
|
end
|
||||||
@ -36,7 +36,7 @@ var
|
|||||||
implementation
|
implementation
|
||||||
|
|
||||||
uses
|
uses
|
||||||
StrUtils, JclStrings, uDMBase, VARELA_Intf;
|
StrUtils, JclStrings, uDataModuleBase, VARELA_Intf;
|
||||||
|
|
||||||
{$R *.dfm}
|
{$R *.dfm}
|
||||||
|
|
||||||
@ -1,6 +1,8 @@
|
|||||||
object dmBase: TdmBase
|
object dmBase: TdmBase
|
||||||
OldCreateOrder = True
|
OldCreateOrder = True
|
||||||
OnCreate = DAClientDataModuleCreate
|
OnCreate = DAClientDataModuleCreate
|
||||||
|
Left = 452
|
||||||
|
Top = 374
|
||||||
Height = 352
|
Height = 352
|
||||||
Width = 518
|
Width = 518
|
||||||
object SmallImages: TPngImageList
|
object SmallImages: TPngImageList
|
||||||
@ -191,15 +193,16 @@ object dmBase: TdmBase
|
|||||||
end
|
end
|
||||||
object ROChannel: TROWinInetHTTPChannel
|
object ROChannel: TROWinInetHTTPChannel
|
||||||
OnFailure = ROChannelFailure
|
OnFailure = ROChannelFailure
|
||||||
OnException = ROChannelFailure
|
|
||||||
UserAgent = 'RemObjects SDK'
|
|
||||||
TargetURL = 'http://localhost:8099/bin'
|
|
||||||
Login.Username = 'zvg'
|
|
||||||
Login.Password = 'zeus'
|
|
||||||
KeepConnection = True
|
|
||||||
OnProgress = ROChannelProgress
|
|
||||||
ServerLocators = <>
|
ServerLocators = <>
|
||||||
DispatchOptions = []
|
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
|
Left = 330
|
||||||
Top = 24
|
Top = 24
|
||||||
end
|
end
|
||||||
@ -1638,7 +1641,6 @@ object dmBase: TdmBase
|
|||||||
Top = 88
|
Top = 88
|
||||||
end
|
end
|
||||||
object DABINAdapter: TDABINAdapter
|
object DABINAdapter: TDABINAdapter
|
||||||
IsCompatibleV4 = False
|
|
||||||
Left = 424
|
Left = 424
|
||||||
Top = 24
|
Top = 24
|
||||||
end
|
end
|
||||||
@ -1651,9 +1653,9 @@ object dmBase: TdmBase
|
|||||||
Top = 80
|
Top = 80
|
||||||
end
|
end
|
||||||
object RORemoteService: TRORemoteService
|
object RORemoteService: TRORemoteService
|
||||||
|
ServiceName = 'srvConfiguracion'
|
||||||
Message = ROMessage
|
Message = ROMessage
|
||||||
Channel = ROChannel
|
Channel = ROChannel
|
||||||
ServiceName = 'srvLogin'
|
|
||||||
Left = 424
|
Left = 424
|
||||||
Top = 92
|
Top = 92
|
||||||
end
|
end
|
||||||
@ -1,4 +1,4 @@
|
|||||||
unit uDMBase;
|
unit uDataModuleBase;
|
||||||
|
|
||||||
interface
|
interface
|
||||||
|
|
||||||
@ -6,9 +6,9 @@ uses
|
|||||||
Controls, PngImageList, JvComponent, JvNavigationPane, TBXSwitcher,
|
Controls, PngImageList, JvComponent, JvNavigationPane, TBXSwitcher,
|
||||||
TBXOffice2003Theme, Classes, ImgList, uROClient, uROBinMessage,
|
TBXOffice2003Theme, Classes, ImgList, uROClient, uROBinMessage,
|
||||||
uROServiceComponent, uRORemoteService, uROWinInetHttpChannel,
|
uROServiceComponent, uRORemoteService, uROWinInetHttpChannel,
|
||||||
DataAbstract3_Intf, uDADataTable, uDABINAdapter, cxintl, cxIntlPrintSys3,
|
DataAbstract_Intf, uDADataTable, uDABINAdapter, cxintl, cxIntlPrintSys3,
|
||||||
JvAppStorage, JvAppRegistryStorage, SysUtils,
|
JvAppStorage, JvAppRegistryStorage, SysUtils,
|
||||||
JvComponentBase, uDADataStreamer;
|
JvComponentBase;
|
||||||
|
|
||||||
type
|
type
|
||||||
TdmBase = class(TDataModule)
|
TdmBase = class(TDataModule)
|
||||||
@ -3,27 +3,23 @@ unit uDataTableUtils;
|
|||||||
interface
|
interface
|
||||||
|
|
||||||
uses
|
uses
|
||||||
uDACDSDataTable, uDADataTable, uDAInterfaces, uDADelta, uDAMemDataTable;
|
uDACDSDataTable, uDADataTable, uDAInterfaces;
|
||||||
|
|
||||||
|
|
||||||
procedure CloneDataTable(const ASource : TDACDSDataTable;
|
procedure CloneDataTable(const ASource : TDACDSDataTable;
|
||||||
var ATarget : TDACDSDataTable;
|
var ATarget : TDACDSDataTable;
|
||||||
RemoteUpdate: Boolean = True); overload;
|
RemoteUpdate: Boolean = True);
|
||||||
|
|
||||||
function CloneDataTable(const ASource : TDAMemDataTable;
|
|
||||||
RemoteUpdate: Boolean = True): TDAMemDataTable; overload;
|
|
||||||
|
|
||||||
procedure CopyDataTable(ASource : IDADataset; ATarget : TDADataTable;
|
procedure CopyDataTable(ASource : IDADataset; ATarget : TDADataTable;
|
||||||
const OnlySelectedRows : Boolean = False);
|
const OnlySelectedRows : Boolean = False);
|
||||||
procedure DeleteAllTable(const ADataTable : TDADataTable);
|
procedure DeleteAllTable(const ADataTable : TDADataTable);
|
||||||
function DeltaValuesAreDifferent(const aDelta : IDADelta): boolean;
|
function DeltaValuesAreDifferent(const aDelta : IDADelta): boolean;
|
||||||
|
|
||||||
function DataTableModified (const ADataTable : TDADataTable): Boolean;
|
|
||||||
|
|
||||||
implementation
|
implementation
|
||||||
|
|
||||||
uses
|
uses
|
||||||
DB, Classes, uDAClasses, SysUtils, uDABINAdapter, uROTypes, uDBSelectionList,
|
uDAClasses, SysUtils, uDABINAdapter, uROTypes, uDBSelectionList, cxControls,
|
||||||
cxControls, Dialogs, Variants, uDADataStreamer;
|
Dialogs, Variants;
|
||||||
|
|
||||||
|
|
||||||
{procedure EliminarNoSeleccionados(const ASource : IDADataset;
|
{procedure EliminarNoSeleccionados(const ASource : IDADataset;
|
||||||
@ -61,6 +57,117 @@ begin
|
|||||||
ADataTable.ClearRows;
|
ADataTable.ClearRows;
|
||||||
end;
|
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;
|
function DeltaValuesAreDifferent(const aDelta : IDADelta): boolean;
|
||||||
var
|
var
|
||||||
@ -149,160 +256,4 @@ begin
|
|||||||
end;
|
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.
|
end.
|
||||||
|
|
||||||
@ -1,9 +1,9 @@
|
|||||||
object fEditorBase: TfEditorBase
|
object fEditorBase: TfEditorBase
|
||||||
Left = 222
|
Left = 222
|
||||||
Top = 127
|
Top = 127
|
||||||
|
Width = 662
|
||||||
|
Height = 496
|
||||||
Caption = 'EditorBase'
|
Caption = 'EditorBase'
|
||||||
ClientHeight = 462
|
|
||||||
ClientWidth = 654
|
|
||||||
Color = clBtnFace
|
Color = clBtnFace
|
||||||
Font.Charset = DEFAULT_CHARSET
|
Font.Charset = DEFAULT_CHARSET
|
||||||
Font.Color = clWindowText
|
Font.Color = clWindowText
|
||||||
@ -125,7 +125,7 @@ implementation
|
|||||||
{$R *.dfm}
|
{$R *.dfm}
|
||||||
|
|
||||||
uses
|
uses
|
||||||
Menus, uDMBase, cxControls;
|
Menus, uDataModuleBase, cxControls;
|
||||||
|
|
||||||
{
|
{
|
||||||
********************************* TfEditorBase *********************************
|
********************************* 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
|
inherited fEditorDBBase: TfEditorDBBase
|
||||||
Left = 295
|
Left = 295
|
||||||
Top = 247
|
Top = 247
|
||||||
|
Width = 660
|
||||||
|
Height = 494
|
||||||
Caption = 'fEditorDBBase'
|
Caption = 'fEditorDBBase'
|
||||||
ClientHeight = 460
|
|
||||||
ClientWidth = 652
|
|
||||||
ExplicitWidth = 660
|
|
||||||
ExplicitHeight = 494
|
|
||||||
PixelsPerInch = 96
|
PixelsPerInch = 96
|
||||||
TextHeight = 13
|
TextHeight = 13
|
||||||
inherited JvNavPanelHeader: TJvNavPanelHeader
|
inherited JvNavPanelHeader: TJvNavPanelHeader
|
||||||
Width = 652
|
Width = 652
|
||||||
ExplicitWidth = 652
|
|
||||||
inherited Image1: TImage
|
inherited Image1: TImage
|
||||||
Left = 625
|
Left = 625
|
||||||
ExplicitLeft = 625
|
Picture.Data = {00}
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
inherited TBXDock: TTBXDock
|
inherited TBXDock: TTBXDock
|
||||||
Width = 652
|
Width = 652
|
||||||
ExplicitWidth = 652
|
|
||||||
inherited tbxMenu: TTBXToolbar
|
|
||||||
ExplicitWidth = 652
|
|
||||||
end
|
|
||||||
end
|
end
|
||||||
inherited StatusBar: TStatusBar
|
inherited StatusBar: TStatusBar
|
||||||
Top = 441
|
Top = 441
|
||||||
Width = 652
|
Width = 652
|
||||||
ExplicitTop = 441
|
|
||||||
ExplicitWidth = 652
|
|
||||||
end
|
end
|
||||||
inherited EditorActionList: TActionList
|
inherited EditorActionList: TActionList
|
||||||
inherited actModificar: TAction
|
inherited actModificar: TAction
|
||||||
@ -9,7 +9,7 @@ uses
|
|||||||
JvNavigationPane, DB, uDADataTable, uEditorBase, JvFormAutoSize,
|
JvNavigationPane, DB, uDADataTable, uEditorBase, JvFormAutoSize,
|
||||||
uDAScriptingProvider, uDACDSDataTable, AppEvnts, uCustomView, uViewBase,
|
uDAScriptingProvider, uDACDSDataTable, AppEvnts, uCustomView, uViewBase,
|
||||||
JvAppStorage, JvAppRegistryStorage, JvFormPlacement,
|
JvAppStorage, JvAppRegistryStorage, JvFormPlacement,
|
||||||
pngimage, ExtCtrls, dxLayoutLookAndFeels, JvComponentBase, uDAInterfaces;
|
pngimage, ExtCtrls, dxLayoutLookAndFeels, JvComponentBase;
|
||||||
|
|
||||||
type
|
type
|
||||||
IEditorDBBase = interface(IEditorBase)
|
IEditorDBBase = interface(IEditorBase)
|
||||||
@ -36,15 +36,16 @@ type
|
|||||||
{ Private declarations }
|
{ Private declarations }
|
||||||
protected
|
protected
|
||||||
function GetModified: Boolean; override;
|
function GetModified: Boolean; override;
|
||||||
function HayDatos: Boolean; virtual;
|
|
||||||
published
|
published
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
var
|
||||||
|
fEditorDBBase: TfEditorDBBase;
|
||||||
|
|
||||||
implementation
|
implementation
|
||||||
|
|
||||||
uses
|
uses uExceptions, uDataTableUtils, uBizInformesBase,
|
||||||
uExceptions, uDataTableUtils, uBizInformesBase,
|
uDAInterfaces, cxControls;
|
||||||
cxControls, uDADelta;
|
|
||||||
|
|
||||||
{$R *.dfm}
|
{$R *.dfm}
|
||||||
|
|
||||||
@ -194,17 +195,35 @@ begin
|
|||||||
end;
|
end;
|
||||||
|
|
||||||
function TfEditorDBBase.GetModified: Boolean;
|
function TfEditorDBBase.GetModified: Boolean;
|
||||||
|
var
|
||||||
|
dtDetails : TList;
|
||||||
|
i : integer;
|
||||||
|
bCambiado : Boolean;
|
||||||
begin
|
begin
|
||||||
if ReadOnly then
|
bCambiado := False;
|
||||||
Result := False
|
if Assigned(dsDataTable.DataTable) then
|
||||||
else
|
begin
|
||||||
Result := DataTableModified(dsDataTable.DataTable) or inherited GetModified;
|
bCambiado := (dsDataTable.DataTable.State = dsEdit) or
|
||||||
end;
|
DeltaValuesAreDifferent(dsDataTable.DataTable.Delta);
|
||||||
|
|
||||||
function TfEditorDBBase.HayDatos: Boolean;
|
if (not bCambiado) then
|
||||||
begin
|
begin
|
||||||
Result := Assigned(dsDataTable.DataTable) and (dsDataTable.DataTable.State <> dsInactive)
|
dtDetails := dsDataTable.DataTable.GetDetailDataTables;
|
||||||
and (not dsDataTable.DataTable.IsEmpty);
|
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;
|
end;
|
||||||
|
|
||||||
procedure TfEditorDBBase.FormCloseQuery(Sender: TObject;
|
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
|
inherited fEditorDBItem: TfEditorDBItem
|
||||||
Left = 450
|
Left = 450
|
||||||
Top = 321
|
Top = 321
|
||||||
|
Width = 664
|
||||||
|
Height = 499
|
||||||
Caption = 'fEditorDBItem'
|
Caption = 'fEditorDBItem'
|
||||||
ClientHeight = 465
|
|
||||||
ClientWidth = 656
|
|
||||||
ExplicitWidth = 664
|
|
||||||
ExplicitHeight = 499
|
|
||||||
PixelsPerInch = 96
|
PixelsPerInch = 96
|
||||||
TextHeight = 13
|
TextHeight = 13
|
||||||
inherited JvNavPanelHeader: TJvNavPanelHeader
|
inherited JvNavPanelHeader: TJvNavPanelHeader
|
||||||
Width = 656
|
Width = 656
|
||||||
ExplicitWidth = 656
|
|
||||||
inherited Image1: TImage
|
inherited Image1: TImage
|
||||||
Left = 629
|
Left = 629
|
||||||
ExplicitLeft = 629
|
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
inherited TBXDock: TTBXDock
|
inherited TBXDock: TTBXDock
|
||||||
Width = 656
|
Width = 656
|
||||||
ExplicitWidth = 656
|
|
||||||
inherited tbxMain: TTBXToolbar
|
inherited tbxMain: TTBXToolbar
|
||||||
ExplicitWidth = 548
|
|
||||||
inherited TBXItem26: TTBXItem
|
inherited TBXItem26: TTBXItem
|
||||||
Visible = False
|
Visible = False
|
||||||
end
|
end
|
||||||
@ -29,7 +23,6 @@ inherited fEditorDBItem: TfEditorDBItem
|
|||||||
end
|
end
|
||||||
end
|
end
|
||||||
inherited tbxMenu: TTBXToolbar
|
inherited tbxMenu: TTBXToolbar
|
||||||
ExplicitWidth = 656
|
|
||||||
inherited TBXSubmenuItem1: TTBXSubmenuItem
|
inherited TBXSubmenuItem1: TTBXSubmenuItem
|
||||||
Visible = False
|
Visible = False
|
||||||
end
|
end
|
||||||
@ -38,8 +31,6 @@ inherited fEditorDBItem: TfEditorDBItem
|
|||||||
inherited StatusBar: TStatusBar
|
inherited StatusBar: TStatusBar
|
||||||
Top = 446
|
Top = 446
|
||||||
Width = 656
|
Width = 656
|
||||||
ExplicitTop = 446
|
|
||||||
ExplicitWidth = 656
|
|
||||||
end
|
end
|
||||||
inherited EditorActionList: TActionList
|
inherited EditorActionList: TActionList
|
||||||
Top = 112
|
Top = 112
|
||||||
@ -9,7 +9,7 @@ uses
|
|||||||
JvNavigationPane, DB, uDADataTable, uEditorDBBase, JvFormAutoSize,
|
JvNavigationPane, DB, uDADataTable, uEditorDBBase, JvFormAutoSize,
|
||||||
StdCtrls, uDAScriptingProvider, uDACDSDataTable, AppEvnts, uCustomView,
|
StdCtrls, uDAScriptingProvider, uDACDSDataTable, AppEvnts, uCustomView,
|
||||||
uViewBase, JvAppStorage, JvAppRegistryStorage,
|
uViewBase, JvAppStorage, JvAppRegistryStorage,
|
||||||
JvFormPlacement, pngimage, ExtCtrls, JvComponentBase, uDAInterfaces;
|
JvFormPlacement, pngimage, ExtCtrls, JvComponentBase;
|
||||||
|
|
||||||
type
|
type
|
||||||
IEditorDBItem = interface(IEditorDBBase)
|
IEditorDBItem = interface(IEditorDBBase)
|
||||||
@ -1,31 +1,23 @@
|
|||||||
inherited fEditorGridBase: TfEditorGridBase
|
inherited fEditorGridBase: TfEditorGridBase
|
||||||
Left = 441
|
Left = 441
|
||||||
Top = 354
|
Top = 354
|
||||||
|
Width = 711
|
||||||
|
Height = 480
|
||||||
Caption = 'fEditorGridBase'
|
Caption = 'fEditorGridBase'
|
||||||
ClientHeight = 446
|
|
||||||
ClientWidth = 703
|
|
||||||
ExplicitWidth = 711
|
|
||||||
ExplicitHeight = 473
|
|
||||||
PixelsPerInch = 96
|
PixelsPerInch = 96
|
||||||
TextHeight = 13
|
TextHeight = 13
|
||||||
inherited JvNavPanelHeader: TJvNavPanelHeader
|
inherited JvNavPanelHeader: TJvNavPanelHeader
|
||||||
Top = 0
|
Top = 0
|
||||||
Width = 703
|
Width = 703
|
||||||
ExplicitTop = 0
|
|
||||||
ExplicitWidth = 703
|
|
||||||
inherited Image1: TImage
|
inherited Image1: TImage
|
||||||
Left = 676
|
Left = 676
|
||||||
ExplicitLeft = 676
|
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
inherited TBXDock: TTBXDock
|
inherited TBXDock: TTBXDock
|
||||||
Top = 27
|
Top = 27
|
||||||
Width = 703
|
Width = 703
|
||||||
ExplicitTop = 27
|
|
||||||
ExplicitWidth = 703
|
|
||||||
inherited tbxMain: TTBXToolbar
|
inherited tbxMain: TTBXToolbar
|
||||||
DefaultDock = TBXDock
|
DefaultDock = TBXDock
|
||||||
ExplicitWidth = 442
|
|
||||||
inherited TBXItem29: TTBXItem
|
inherited TBXItem29: TTBXItem
|
||||||
Visible = False
|
Visible = False
|
||||||
end
|
end
|
||||||
@ -50,7 +42,6 @@ inherited fEditorGridBase: TfEditorGridBase
|
|||||||
end
|
end
|
||||||
inherited tbxMenu: TTBXToolbar
|
inherited tbxMenu: TTBXToolbar
|
||||||
Visible = False
|
Visible = False
|
||||||
ExplicitWidth = 703
|
|
||||||
inherited TBXSubmenuItem4: TTBXSubmenuItem
|
inherited TBXSubmenuItem4: TTBXSubmenuItem
|
||||||
object TBXItem34: TTBXItem [7]
|
object TBXItem34: TTBXItem [7]
|
||||||
Action = actDuplicar
|
Action = actDuplicar
|
||||||
@ -66,7 +57,7 @@ inherited fEditorGridBase: TfEditorGridBase
|
|||||||
CloseButton = False
|
CloseButton = False
|
||||||
DefaultDock = TBXDock
|
DefaultDock = TBXDock
|
||||||
DockMode = dmCannotFloatOrChangeDocks
|
DockMode = dmCannotFloatOrChangeDocks
|
||||||
DockPos = 440
|
DockPos = 392
|
||||||
DockRow = 1
|
DockRow = 1
|
||||||
DragHandleStyle = dhNone
|
DragHandleStyle = dhNone
|
||||||
Images = SmallImages
|
Images = SmallImages
|
||||||
@ -96,8 +87,6 @@ inherited fEditorGridBase: TfEditorGridBase
|
|||||||
inherited StatusBar: TStatusBar
|
inherited StatusBar: TStatusBar
|
||||||
Top = 427
|
Top = 427
|
||||||
Width = 703
|
Width = 703
|
||||||
ExplicitTop = 427
|
|
||||||
ExplicitWidth = 703
|
|
||||||
end
|
end
|
||||||
inherited EditorActionList: TActionList
|
inherited EditorActionList: TActionList
|
||||||
Left = 72
|
Left = 72
|
||||||
@ -134,7 +123,6 @@ inherited fEditorGridBase: TfEditorGridBase
|
|||||||
Caption = 'Quitar filtro y ver todo'
|
Caption = 'Quitar filtro y ver todo'
|
||||||
ImageIndex = 19
|
ImageIndex = 19
|
||||||
OnExecute = actQuitarFiltroExecute
|
OnExecute = actQuitarFiltroExecute
|
||||||
OnUpdate = actQuitarFiltroUpdate
|
|
||||||
end
|
end
|
||||||
object actDuplicar: TAction
|
object actDuplicar: TAction
|
||||||
Category = 'Archivo'
|
Category = 'Archivo'
|
||||||
@ -1431,9 +1419,4 @@ inherited fEditorGridBase: TfEditorGridBase
|
|||||||
Action = actImprimir
|
Action = actImprimir
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
object TimerParaFiltro: TTimer
|
|
||||||
OnTimer = TimerParaFiltroTimer
|
|
||||||
Left = 472
|
|
||||||
Top = 80
|
|
||||||
end
|
|
||||||
end
|
end
|
||||||
@ -18,7 +18,7 @@ uses
|
|||||||
uEditorDBBase, DB, uDADataTable, Menus, JvFormAutoSize,
|
uEditorDBBase, DB, uDADataTable, Menus, JvFormAutoSize,
|
||||||
uDAScriptingProvider, uDACDSDataTable, AppEvnts, JvAppStorage,
|
uDAScriptingProvider, uDACDSDataTable, AppEvnts, JvAppStorage,
|
||||||
JvAppRegistryStorage, JvFormPlacement, pngimage, ExtCtrls,
|
JvAppRegistryStorage, JvFormPlacement, pngimage, ExtCtrls,
|
||||||
JvComponentBase, uDAInterfaces;
|
JvComponentBase;
|
||||||
|
|
||||||
type
|
type
|
||||||
IEditorGridBase = interface(IEditorDBBase)
|
IEditorGridBase = interface(IEditorDBBase)
|
||||||
@ -45,7 +45,6 @@ type
|
|||||||
TBXSeparatorItem15: TTBXSeparatorItem;
|
TBXSeparatorItem15: TTBXSeparatorItem;
|
||||||
TBXItem34: TTBXItem;
|
TBXItem34: TTBXItem;
|
||||||
Duplicar1: TMenuItem;
|
Duplicar1: TMenuItem;
|
||||||
TimerParaFiltro: TTimer;
|
|
||||||
procedure tbxEditFiltroChange(Sender: TObject; const Text: String);
|
procedure tbxEditFiltroChange(Sender: TObject; const Text: String);
|
||||||
procedure FormShow(Sender: TObject); override;
|
procedure FormShow(Sender: TObject); override;
|
||||||
procedure actPrevisualizarExecute(Sender: TObject);
|
procedure actPrevisualizarExecute(Sender: TObject);
|
||||||
@ -56,8 +55,6 @@ type
|
|||||||
procedure JvFormStorageSavePlacement(Sender: TObject);
|
procedure JvFormStorageSavePlacement(Sender: TObject);
|
||||||
procedure JvFormStorageRestorePlacement(Sender: TObject);
|
procedure JvFormStorageRestorePlacement(Sender: TObject);
|
||||||
procedure actRefrescarExecute(Sender: TObject);
|
procedure actRefrescarExecute(Sender: TObject);
|
||||||
procedure TimerParaFiltroTimer(Sender: TObject);
|
|
||||||
procedure actQuitarFiltroUpdate(Sender: TObject);
|
|
||||||
private
|
private
|
||||||
FViewGrid : IViewGridBase;
|
FViewGrid : IViewGridBase;
|
||||||
protected
|
protected
|
||||||
@ -73,19 +70,15 @@ type
|
|||||||
implementation
|
implementation
|
||||||
|
|
||||||
uses
|
uses
|
||||||
uDMBase, uCustomEditor, cxGridTableView;
|
uDataModuleBase, uCustomEditor, cxGridTableView;
|
||||||
|
|
||||||
{$R *.dfm}
|
{$R *.dfm}
|
||||||
|
|
||||||
var
|
|
||||||
FTextoFiltro : String;
|
|
||||||
|
|
||||||
{
|
{
|
||||||
********************************* TfEditorGridBase *****************************
|
********************************* TfEditorGridBase *****************************
|
||||||
}
|
}
|
||||||
destructor TfEditorGridBase.Destroy;
|
destructor TfEditorGridBase.Destroy;
|
||||||
begin
|
begin
|
||||||
TimerParaFiltro.Enabled := False;
|
|
||||||
FViewGrid := NIL;
|
FViewGrid := NIL;
|
||||||
inherited;
|
inherited;
|
||||||
end;
|
end;
|
||||||
@ -107,17 +100,8 @@ end;
|
|||||||
|
|
||||||
procedure TfEditorGridBase.tbxEditFiltroChange(Sender: TObject; const Text: String);
|
procedure TfEditorGridBase.tbxEditFiltroChange(Sender: TObject; const Text: String);
|
||||||
begin
|
begin
|
||||||
TimerParaFiltro.Enabled := False;
|
|
||||||
FTextoFiltro := Text;
|
|
||||||
TimerParaFiltro.Enabled := True;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TfEditorGridBase.TimerParaFiltroTimer(Sender: TObject);
|
|
||||||
begin
|
|
||||||
inherited;
|
|
||||||
TimerParaFiltro.Enabled := False;
|
|
||||||
if Assigned(ViewGrid) then
|
if Assigned(ViewGrid) then
|
||||||
ViewGrid.Filter := FTextoFiltro;
|
ViewGrid.Filter := Text;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TfEditorGridBase.FormShow(Sender: TObject);
|
procedure TfEditorGridBase.FormShow(Sender: TObject);
|
||||||
@ -146,7 +130,6 @@ end;
|
|||||||
|
|
||||||
procedure TfEditorGridBase.actQuitarFiltroExecute(Sender: TObject);
|
procedure TfEditorGridBase.actQuitarFiltroExecute(Sender: TObject);
|
||||||
begin
|
begin
|
||||||
TimerParaFiltro.Enabled := False;
|
|
||||||
if Assigned(ViewGrid) then
|
if Assigned(ViewGrid) then
|
||||||
begin
|
begin
|
||||||
tbxEditFiltro.Text := '';
|
tbxEditFiltro.Text := '';
|
||||||
@ -154,16 +137,9 @@ begin
|
|||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TfEditorGridBase.actQuitarFiltroUpdate(Sender: TObject);
|
|
||||||
begin
|
|
||||||
inherited;
|
|
||||||
(Sender as TAction).Enabled := (Length(tbxEditFiltro.Text) > 0);
|
|
||||||
end;
|
|
||||||
|
|
||||||
constructor TfEditorGridBase.Create(AOwner: TComponent);
|
constructor TfEditorGridBase.Create(AOwner: TComponent);
|
||||||
begin
|
begin
|
||||||
inherited;
|
inherited;
|
||||||
FTextoFiltro := '';
|
|
||||||
actModificar.ShortCut := ShortCut(VK_RETURN, []);
|
actModificar.ShortCut := ShortCut(VK_RETURN, []);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
@ -1,27 +1,23 @@
|
|||||||
inherited fEditorItem: TfEditorItem
|
inherited fEditorItem: TfEditorItem
|
||||||
Left = 423
|
Left = 423
|
||||||
Top = 273
|
Top = 273
|
||||||
|
Width = 686
|
||||||
|
Height = 535
|
||||||
Caption = 'fEditorItem'
|
Caption = 'fEditorItem'
|
||||||
ClientHeight = 508
|
|
||||||
ClientWidth = 678
|
|
||||||
ExplicitWidth = 686
|
|
||||||
ExplicitHeight = 535
|
|
||||||
PixelsPerInch = 96
|
PixelsPerInch = 96
|
||||||
TextHeight = 13
|
TextHeight = 13
|
||||||
inherited JvNavPanelHeader: TJvNavPanelHeader
|
inherited JvNavPanelHeader: TJvNavPanelHeader
|
||||||
Width = 678
|
Width = 678
|
||||||
Visible = False
|
Visible = False
|
||||||
ExplicitWidth = 678
|
|
||||||
inherited Image1: TImage
|
inherited Image1: TImage
|
||||||
Left = 651
|
Left = 651
|
||||||
ExplicitLeft = 651
|
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
object pgPaginas: TPageControl [1]
|
object pgPaginas: TPageControl [1]
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 76
|
Top = 76
|
||||||
Width = 678
|
Width = 678
|
||||||
Height = 413
|
Height = 406
|
||||||
ActivePage = pagGeneral
|
ActivePage = pagGeneral
|
||||||
Align = alClient
|
Align = alClient
|
||||||
TabOrder = 1
|
TabOrder = 1
|
||||||
@ -31,15 +27,12 @@ inherited fEditorItem: TfEditorItem
|
|||||||
end
|
end
|
||||||
inherited TBXDock: TTBXDock
|
inherited TBXDock: TTBXDock
|
||||||
Width = 678
|
Width = 678
|
||||||
ExplicitWidth = 678
|
|
||||||
inherited tbxMain: TTBXToolbar
|
inherited tbxMain: TTBXToolbar
|
||||||
ExplicitWidth = 524
|
|
||||||
inherited TBXItem5: TTBXItem
|
inherited TBXItem5: TTBXItem
|
||||||
Visible = False
|
Visible = False
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
inherited tbxMenu: TTBXToolbar
|
inherited tbxMenu: TTBXToolbar
|
||||||
ExplicitWidth = 678
|
|
||||||
inherited TBXSubmenuItem4: TTBXSubmenuItem
|
inherited TBXSubmenuItem4: TTBXSubmenuItem
|
||||||
inherited TBXItem10: TTBXItem
|
inherited TBXItem10: TTBXItem
|
||||||
Visible = False
|
Visible = False
|
||||||
@ -48,10 +41,8 @@ inherited fEditorItem: TfEditorItem
|
|||||||
end
|
end
|
||||||
end
|
end
|
||||||
inherited StatusBar: TStatusBar
|
inherited StatusBar: TStatusBar
|
||||||
Top = 489
|
Top = 482
|
||||||
Width = 678
|
Width = 678
|
||||||
ExplicitTop = 489
|
|
||||||
ExplicitWidth = 678
|
|
||||||
end
|
end
|
||||||
inherited EditorActionList: TActionList
|
inherited EditorActionList: TActionList
|
||||||
Top = 104
|
Top = 104
|
||||||
@ -26,7 +26,7 @@ var
|
|||||||
|
|
||||||
implementation
|
implementation
|
||||||
|
|
||||||
uses uDMBase;
|
uses uDataModuleBase;
|
||||||
|
|
||||||
{$R *.dfm}
|
{$R *.dfm}
|
||||||
|
|
||||||
@ -10,17 +10,13 @@ inherited fEditorPreview: TfEditorPreview
|
|||||||
inherited JvNavPanelHeader: TJvNavPanelHeader
|
inherited JvNavPanelHeader: TJvNavPanelHeader
|
||||||
Top = 75
|
Top = 75
|
||||||
Visible = False
|
Visible = False
|
||||||
ExplicitTop = 75
|
|
||||||
end
|
end
|
||||||
inherited TBXDock: TTBXDock
|
inherited TBXDock: TTBXDock
|
||||||
Height = 75
|
Height = 75
|
||||||
ExplicitHeight = 75
|
|
||||||
inherited tbxMain: TTBXToolbar
|
inherited tbxMain: TTBXToolbar
|
||||||
Top = 49
|
Top = 49
|
||||||
DefaultDock = TBXDock
|
DefaultDock = TBXDock
|
||||||
Visible = False
|
Visible = False
|
||||||
ExplicitTop = 49
|
|
||||||
ExplicitWidth = 191
|
|
||||||
end
|
end
|
||||||
inherited tbxMenu: TTBXToolbar
|
inherited tbxMenu: TTBXToolbar
|
||||||
DockPos = -24
|
DockPos = -24
|
||||||
@ -872,6 +868,10 @@ inherited fEditorPreview: TfEditorPreview
|
|||||||
Left = 48
|
Left = 48
|
||||||
Top = 240
|
Top = 240
|
||||||
end
|
end
|
||||||
|
object frxChartObject1: TfrxChartObject
|
||||||
|
Left = 16
|
||||||
|
Top = 272
|
||||||
|
end
|
||||||
object frxRichObject1: TfrxRichObject
|
object frxRichObject1: TfrxRichObject
|
||||||
Left = 48
|
Left = 48
|
||||||
Top = 272
|
Top = 272
|
||||||
@ -9,7 +9,7 @@ uses
|
|||||||
TB2ExtItems, TBXExtItems, uViewPreview, frxClass, ComCtrls, frxPreview,
|
TB2ExtItems, TBXExtItems, uViewPreview, frxClass, ComCtrls, frxPreview,
|
||||||
JvFormAutoSize, JvAppStorage, JvAppRegistryStorage, JvFormPlacement,
|
JvFormAutoSize, JvAppStorage, JvAppRegistryStorage, JvFormPlacement,
|
||||||
pngimage, frxExportImage, frxExportPDF, frxDCtrl, frxDMPExport,
|
pngimage, frxExportImage, frxExportPDF, frxDCtrl, frxDMPExport,
|
||||||
frxGradient, frxChBox, frxCross, frxRich, frxOLE, frxBarcode,
|
frxGradient, frxChBox, frxCross, frxRich, frxChart, frxOLE, frxBarcode,
|
||||||
ExtCtrls, JvComponentBase;
|
ExtCtrls, JvComponentBase;
|
||||||
|
|
||||||
type
|
type
|
||||||
@ -57,6 +57,7 @@ type
|
|||||||
TBXSeparatorItem18: TTBXSeparatorItem;
|
TBXSeparatorItem18: TTBXSeparatorItem;
|
||||||
frxBarCodeObject1: TfrxBarCodeObject;
|
frxBarCodeObject1: TfrxBarCodeObject;
|
||||||
frxOLEObject1: TfrxOLEObject;
|
frxOLEObject1: TfrxOLEObject;
|
||||||
|
frxChartObject1: TfrxChartObject;
|
||||||
frxRichObject1: TfrxRichObject;
|
frxRichObject1: TfrxRichObject;
|
||||||
frxCrossObject1: TfrxCrossObject;
|
frxCrossObject1: TfrxCrossObject;
|
||||||
frxCheckBoxObject1: TfrxCheckBoxObject;
|
frxCheckBoxObject1: TfrxCheckBoxObject;
|
||||||
@ -3,7 +3,7 @@ unit uExceptions;
|
|||||||
interface
|
interface
|
||||||
|
|
||||||
uses
|
uses
|
||||||
uDADelta;
|
uDADataTable;
|
||||||
|
|
||||||
const
|
const
|
||||||
AUF_FKVIOLATION = 'violation of FOREIGN KEY';
|
AUF_FKVIOLATION = 'violation of FOREIGN KEY';
|
||||||
@ -18,4 +18,3 @@ type
|
|||||||
implementation
|
implementation
|
||||||
|
|
||||||
end.
|
end.
|
||||||
|
|
||||||
@ -19,7 +19,7 @@ uses
|
|||||||
DBGrids, JvComponent, JvFormAutoSize, dxPSGlbl, dxPSUtl, dxPSEngn,
|
DBGrids, JvComponent, JvFormAutoSize, dxPSGlbl, dxPSUtl, dxPSEngn,
|
||||||
dxPrnPg, dxBkgnd, dxWrap, dxPrnDev, dxPSCompsProvider, dxPSFillPatterns,
|
dxPrnPg, dxBkgnd, dxWrap, dxPrnDev, dxPSCompsProvider, dxPSFillPatterns,
|
||||||
dxPSEdgePatterns, dxPSCore, dxPScxCommon, dxPScxGridLnk, dxPrnDlg,
|
dxPSEdgePatterns, dxPSCore, dxPScxCommon, dxPScxGridLnk, dxPrnDlg,
|
||||||
cxIntlPrintSys3, dxPSPrvwAdv, uViewGridBase, uDAInterfaces;
|
cxIntlPrintSys3, dxPSPrvwAdv, uViewGridBase;
|
||||||
|
|
||||||
type
|
type
|
||||||
IViewGrid = interface(IViewGridBase)
|
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
|
inherited frViewGridBase: TfrViewGridBase
|
||||||
Width = 441
|
Width = 441
|
||||||
Height = 268
|
Height = 268
|
||||||
ExplicitWidth = 441
|
|
||||||
ExplicitHeight = 268
|
|
||||||
object dsDataSource: TDADataSource
|
object dsDataSource: TDADataSource
|
||||||
Left = 8
|
Left = 8
|
||||||
Top = 16
|
Top = 16
|
||||||
@ -19,7 +19,7 @@ uses
|
|||||||
DBGrids, JvComponent, JvFormAutoSize, dxPSGlbl, dxPSUtl, dxPSEngn,
|
DBGrids, JvComponent, JvFormAutoSize, dxPSGlbl, dxPSUtl, dxPSEngn,
|
||||||
dxPrnPg, dxBkgnd, dxWrap, dxPrnDev, dxPSCompsProvider, dxPSFillPatterns,
|
dxPrnPg, dxBkgnd, dxWrap, dxPrnDev, dxPSCompsProvider, dxPSFillPatterns,
|
||||||
dxPSEdgePatterns, dxPSCore, dxPScxCommon, dxPScxGridLnk, dxPrnDlg,
|
dxPSEdgePatterns, dxPSCore, dxPScxCommon, dxPScxGridLnk, dxPrnDlg,
|
||||||
cxIntlPrintSys3, dxPSPrvwAdv, uGridUtils, uDAInterfaces;
|
cxIntlPrintSys3, dxPSPrvwAdv, uGridUtils;
|
||||||
|
|
||||||
type
|
type
|
||||||
IViewGridBase = interface(IViewBase)
|
IViewGridBase = interface(IViewBase)
|
||||||
@ -276,8 +276,6 @@ var
|
|||||||
begin
|
begin
|
||||||
with _FocusedView.DataController.Filter do
|
with _FocusedView.DataController.Filter do
|
||||||
begin
|
begin
|
||||||
ShowHourglassCursor;
|
|
||||||
Application.ProcessMessages;
|
|
||||||
BeginUpdate;
|
BeginUpdate;
|
||||||
try
|
try
|
||||||
Options := [fcoCaseInsensitive, fcoSoftCompare];
|
Options := [fcoCaseInsensitive, fcoSoftCompare];
|
||||||
@ -298,8 +296,6 @@ begin
|
|||||||
Active := False;
|
Active := False;
|
||||||
finally
|
finally
|
||||||
EndUpdate;
|
EndUpdate;
|
||||||
HideHourglassCursor;
|
|
||||||
Application.ProcessMessages;
|
|
||||||
end;
|
end;
|
||||||
end;
|
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}
|
{$R *.dfm}
|
||||||
|
|
||||||
uses
|
uses
|
||||||
uCargarFicheros, uDMBase;
|
uCargarFicheros, uDataModuleBase;
|
||||||
|
|
||||||
procedure TfCargaEDI.FormShow(Sender: TObject);
|
procedure TfCargaEDI.FormShow(Sender: TObject);
|
||||||
begin
|
begin
|
||||||
@ -130,14 +130,13 @@ begin
|
|||||||
end
|
end
|
||||||
else begin
|
else begin
|
||||||
JvAnimate1.Active := True;
|
JvAnimate1.Active := True;
|
||||||
|
AnadirMensaje('Cargando ficheros de ventas');
|
||||||
|
TCargarVentasThread.Create('CABVEN.TXT', 'LUGVEN.TXT',
|
||||||
|
'ARTVEN.TXT', OnLoadSuccess, OnLoadError);
|
||||||
|
|
||||||
AnadirMensaje('Cargando ficheros de inventario');
|
AnadirMensaje('Cargando ficheros de inventario');
|
||||||
TCargarInventarioThread.Create('CABINV.TXT', 'LININV.TXT',
|
TCargarInventarioThread.Create('CABINV.TXT', 'LININV.TXT',
|
||||||
'CANTINV.TXT', OnLoadSuccess, OnLoadError);
|
'CANTINV.TXT', OnLoadSuccess, OnLoadError);
|
||||||
|
|
||||||
AnadirMensaje('Cargando ficheros de ventas');
|
|
||||||
TCargarVentasThread.Create('CABVEN.TXT', 'LUGVEN.TXT',
|
|
||||||
'ARTVEN.TXT', OnLoadSuccess, OnLoadError);
|
|
||||||
end;
|
end;
|
||||||
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;
|
bAceptar: TButton;
|
||||||
memModulos: TMemo;
|
memModulos: TMemo;
|
||||||
procedure FormShow(Sender: TObject);
|
procedure FormShow(Sender: TObject);
|
||||||
|
private
|
||||||
|
FHostManager: THostManager;
|
||||||
|
public
|
||||||
|
property HostManager : THostManager read FHostManager write FHostManager;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
var
|
var
|
||||||
@ -25,14 +29,14 @@ implementation
|
|||||||
|
|
||||||
{$R *.dfm}
|
{$R *.dfm}
|
||||||
|
|
||||||
uses JclFileUtils, uAdminPV_App;
|
uses JclFileUtils;
|
||||||
|
|
||||||
procedure TfAcercaDe.FormShow(Sender: TObject);
|
procedure TfAcercaDe.FormShow(Sender: TObject);
|
||||||
var
|
var
|
||||||
i : integer;
|
i : integer;
|
||||||
Obj : TJclFileVersionInfo;
|
Obj : TJclFileVersionInfo;
|
||||||
begin
|
begin
|
||||||
{ memModulos.Lines.Clear;
|
memModulos.Lines.Clear;
|
||||||
|
|
||||||
Obj := TJclFileVersionInfo.Create(Application.ExeName);
|
Obj := TJclFileVersionInfo.Create(Application.ExeName);
|
||||||
try
|
try
|
||||||
@ -56,9 +60,7 @@ begin
|
|||||||
for i := 0 to (HostManager.ModulesCount - 1) do
|
for i := 0 to (HostManager.ModulesCount - 1) do
|
||||||
memModulos.Lines.Add(' - ' + FHostManager.Modules[i].Module.ModuleName +
|
memModulos.Lines.Add(' - ' + FHostManager.Modules[i].Module.ModuleName +
|
||||||
' - v. ' + FHostManager.Modules[i].Module.Version);
|
' - v. ' + FHostManager.Modules[i].Module.Version);
|
||||||
end;}
|
end;
|
||||||
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
|
object fPantallaPrincipal: TfPantallaPrincipal
|
||||||
Left = 358
|
Left = 358
|
||||||
Top = 250
|
Top = 250
|
||||||
|
Width = 779
|
||||||
|
Height = 653
|
||||||
Caption = 'Pantalla principal'
|
Caption = 'Pantalla principal'
|
||||||
ClientHeight = 599
|
|
||||||
ClientWidth = 771
|
|
||||||
Color = clWindow
|
Color = clWindow
|
||||||
Font.Charset = DEFAULT_CHARSET
|
Font.Charset = DEFAULT_CHARSET
|
||||||
Font.Color = clWindowText
|
Font.Color = clWindowText
|
||||||
@ -22,28 +22,26 @@ object fPantallaPrincipal: TfPantallaPrincipal
|
|||||||
Left = 0
|
Left = 0
|
||||||
Top = 0
|
Top = 0
|
||||||
Width = 771
|
Width = 771
|
||||||
Height = 577
|
Height = 580
|
||||||
|
ParentColor = True
|
||||||
|
Align = alClient
|
||||||
Margins.Left = 5
|
Margins.Left = 5
|
||||||
Margins.Top = 5
|
Margins.Top = 5
|
||||||
Margins.Right = 5
|
Margins.Right = 5
|
||||||
Margins.Bottom = 5
|
Margins.Bottom = 5
|
||||||
ParentColor = True
|
|
||||||
Align = alClient
|
|
||||||
TabOrder = 0
|
TabOrder = 0
|
||||||
ExplicitHeight = 580
|
|
||||||
object JvSyncSplitter1: TJvSyncSplitter
|
object JvSyncSplitter1: TJvSyncSplitter
|
||||||
Left = 210
|
Left = 210
|
||||||
Top = 5
|
Top = 5
|
||||||
Width = 5
|
Width = 5
|
||||||
Height = 567
|
Height = 570
|
||||||
ResizeStyle = rsPattern
|
ResizeStyle = rsPattern
|
||||||
ExplicitHeight = 570
|
|
||||||
end
|
end
|
||||||
object JvNavigationPane: TJvNavigationPane
|
object JvNavigationPane: TJvNavigationPane
|
||||||
Left = 5
|
Left = 5
|
||||||
Top = 5
|
Top = 5
|
||||||
Width = 205
|
Width = 205
|
||||||
Height = 567
|
Height = 570
|
||||||
ActivePage = pagInicio
|
ActivePage = pagInicio
|
||||||
Align = alLeft
|
Align = alLeft
|
||||||
AutoHeaders = True
|
AutoHeaders = True
|
||||||
@ -83,12 +81,11 @@ object fPantallaPrincipal: TfPantallaPrincipal
|
|||||||
NavPanelHotTrackFont.Name = 'Tahoma'
|
NavPanelHotTrackFont.Name = 'Tahoma'
|
||||||
NavPanelHotTrackFont.Style = []
|
NavPanelHotTrackFont.Style = []
|
||||||
SmallImages = ModulesSmallImageList
|
SmallImages = ModulesSmallImageList
|
||||||
ExplicitHeight = 570
|
|
||||||
object pagInicio: TJvNavPanelPage
|
object pagInicio: TJvNavPanelPage
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 0
|
Top = 0
|
||||||
Width = 203
|
Width = 203
|
||||||
Height = 494
|
Height = 497
|
||||||
Background.Stretch = False
|
Background.Stretch = False
|
||||||
Background.Proportional = False
|
Background.Proportional = False
|
||||||
Background.Center = False
|
Background.Center = False
|
||||||
@ -97,28 +94,25 @@ object fPantallaPrincipal: TfPantallaPrincipal
|
|||||||
Caption = 'Men'#250' principal'
|
Caption = 'Men'#250' principal'
|
||||||
Iconic = True
|
Iconic = True
|
||||||
ImageIndex = 0
|
ImageIndex = 0
|
||||||
ExplicitHeight = 497
|
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
object pnlBorde: TJvXPContainer
|
object pnlBorde: TJvXPContainer
|
||||||
Left = 215
|
Left = 215
|
||||||
Top = 5
|
Top = 5
|
||||||
Width = 551
|
Width = 551
|
||||||
Height = 567
|
Height = 570
|
||||||
BoundColor = clActiveCaption
|
BoundColor = clActiveCaption
|
||||||
BoundLines = [blLeft, blTop, blRight, blBottom]
|
BoundLines = [blLeft, blTop, blRight, blBottom]
|
||||||
Caption = 'pnlBorde'
|
Caption = 'pnlBorde'
|
||||||
Align = alClient
|
Align = alClient
|
||||||
ExplicitHeight = 570
|
|
||||||
object pnlMain: TTBXAlignmentPanel
|
object pnlMain: TTBXAlignmentPanel
|
||||||
Left = 1
|
Left = 1
|
||||||
Top = 1
|
Top = 1
|
||||||
Width = 549
|
Width = 549
|
||||||
Height = 565
|
Height = 568
|
||||||
Align = alClient
|
Align = alClient
|
||||||
Color = clWindow
|
Color = clWindow
|
||||||
TabOrder = 0
|
TabOrder = 0
|
||||||
ExplicitHeight = 568
|
|
||||||
object lblBienvenido: TLabel
|
object lblBienvenido: TLabel
|
||||||
Left = 8
|
Left = 8
|
||||||
Top = 8
|
Top = 8
|
||||||
@ -150,15 +144,12 @@ object fPantallaPrincipal: TfPantallaPrincipal
|
|||||||
end
|
end
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
object TBXStatusBar1: TTBXStatusBar
|
object StatusBar: TStatusBar
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 577
|
Top = 580
|
||||||
Width = 771
|
Width = 771
|
||||||
|
Height = 19
|
||||||
Panels = <>
|
Panels = <>
|
||||||
UseSystemFont = False
|
|
||||||
ExplicitLeft = 312
|
|
||||||
ExplicitTop = 312
|
|
||||||
ExplicitWidth = 150
|
|
||||||
end
|
end
|
||||||
object XPManifest1: TXPManifest
|
object XPManifest1: TXPManifest
|
||||||
Left = 248
|
Left = 248
|
||||||
@ -175,6 +166,7 @@ object fPantallaPrincipal: TfPantallaPrincipal
|
|||||||
object actLogin: TAction
|
object actLogin: TAction
|
||||||
Category = 'Archivo'
|
Category = 'Archivo'
|
||||||
Caption = 'Login'
|
Caption = 'Login'
|
||||||
|
OnExecute = actLoginExecute
|
||||||
end
|
end
|
||||||
object actAdministracion: TAction
|
object actAdministracion: TAction
|
||||||
Category = 'Archivo'
|
Category = 'Archivo'
|
||||||
@ -441,8 +433,6 @@ object fPantallaPrincipal: TfPantallaPrincipal
|
|||||||
end
|
end
|
||||||
end
|
end
|
||||||
object JvXPMenuItemPainter1: TJvXPMenuItemPainter
|
object JvXPMenuItemPainter1: TJvXPMenuItemPainter
|
||||||
SelectionFrameBrush.Color = 13811126
|
|
||||||
SelectionFramePen.Color = 6956042
|
|
||||||
Left = 424
|
Left = 424
|
||||||
Top = 256
|
Top = 256
|
||||||
end
|
end
|
||||||
@ -15,15 +15,10 @@ uses
|
|||||||
JvStartMenuButton, JvTransparentButton, JvExComCtrls, JvListView,
|
JvStartMenuButton, JvTransparentButton, JvExComCtrls, JvListView,
|
||||||
JvAppStorage, JvAppRegistryStorage, JvFormPlacement, JvBaseDlg,
|
JvAppStorage, JvAppRegistryStorage, JvFormPlacement, JvBaseDlg,
|
||||||
JvJVCLAboutForm, AppEvnts, JvWaitingGradient, JvGradient,
|
JvJVCLAboutForm, AppEvnts, JvWaitingGradient, JvGradient,
|
||||||
cxControls, JvComponentBase, JvMenus, TBXStatusBars;
|
cxControls, JvComponentBase, JvMenus;
|
||||||
|
|
||||||
type
|
type
|
||||||
IMainForm = interface(IHostForm)
|
TfPantallaPrincipal = class(TForm, IHostForm)
|
||||||
['{1381B1AF-1492-422D-869D-7A1C3B91D8EF}']
|
|
||||||
procedure ReleaseEmbedded;
|
|
||||||
end;
|
|
||||||
|
|
||||||
TfPantallaPrincipal = class(TForm, IMainForm)
|
|
||||||
GeneralActionList: TActionList;
|
GeneralActionList: TActionList;
|
||||||
ModulesSmallImageList: TPngImageList;
|
ModulesSmallImageList: TPngImageList;
|
||||||
XPManifest1: TXPManifest;
|
XPManifest1: TXPManifest;
|
||||||
@ -34,6 +29,7 @@ type
|
|||||||
JvNavigationPane: TJvNavigationPane;
|
JvNavigationPane: TJvNavigationPane;
|
||||||
pnlMain: TTBXAlignmentPanel;
|
pnlMain: TTBXAlignmentPanel;
|
||||||
JvSyncSplitter1: TJvSyncSplitter;
|
JvSyncSplitter1: TJvSyncSplitter;
|
||||||
|
StatusBar: TStatusBar;
|
||||||
HostManager: THostManager;
|
HostManager: THostManager;
|
||||||
actLogin: TAction;
|
actLogin: TAction;
|
||||||
pagInicio: TJvNavPanelPage;
|
pagInicio: TJvNavPanelPage;
|
||||||
@ -59,12 +55,12 @@ type
|
|||||||
Acercade2: TMenuItem;
|
Acercade2: TMenuItem;
|
||||||
lblBienvenido: TLabel;
|
lblBienvenido: TLabel;
|
||||||
Label22: TLabel;
|
Label22: TLabel;
|
||||||
TBXStatusBar1: TTBXStatusBar;
|
|
||||||
procedure FormCreate(Sender: TObject);
|
procedure FormCreate(Sender: TObject);
|
||||||
procedure FormDestroy(Sender: TObject);
|
procedure FormDestroy(Sender: TObject);
|
||||||
procedure HostManagerAfterLoad(Sender: TObject; AModuleInfo: TModuleInfo);
|
procedure HostManagerAfterLoad(Sender: TObject; AModuleInfo: TModuleInfo);
|
||||||
procedure Salir1Click(Sender: TObject);
|
procedure Salir1Click(Sender: TObject);
|
||||||
procedure actSalirExecute(Sender: TObject);
|
procedure actSalirExecute(Sender: TObject);
|
||||||
|
procedure actLoginExecute(Sender: TObject);
|
||||||
procedure ApplicationEventsActionExecute(Action: TBasicAction;
|
procedure ApplicationEventsActionExecute(Action: TBasicAction;
|
||||||
var Handled: Boolean);
|
var Handled: Boolean);
|
||||||
procedure actCambiarPassExecute(Sender: TObject);
|
procedure actCambiarPassExecute(Sender: TObject);
|
||||||
@ -75,12 +71,10 @@ type
|
|||||||
FContenido : TCustomEditor;
|
FContenido : TCustomEditor;
|
||||||
FStartDefaultAction : TBasicAction;
|
FStartDefaultAction : TBasicAction;
|
||||||
|
|
||||||
procedure ReleaseEmbedded;
|
|
||||||
procedure ShowEmbedded(AEditor : ICustomEditor);
|
procedure ShowEmbedded(AEditor : ICustomEditor);
|
||||||
procedure AplicarPerfil;
|
procedure AplicarPerfil;
|
||||||
function FindNavPanePage(ACaption : String) : Integer;
|
function FindNavPanePage(ACaption : String) : Integer;
|
||||||
procedure InitializeUI;
|
procedure InitializeUI;
|
||||||
procedure RefrescarUI;
|
|
||||||
procedure OnThemeChange(Sender: TObject);
|
procedure OnThemeChange(Sender: TObject);
|
||||||
procedure CopyImages(const SrcList: TPngImageList; var DstList: TPngImageList;
|
procedure CopyImages(const SrcList: TPngImageList; var DstList: TPngImageList;
|
||||||
out Index, Count: Integer);
|
out Index, Count: Integer);
|
||||||
@ -101,17 +95,24 @@ var
|
|||||||
implementation
|
implementation
|
||||||
|
|
||||||
uses
|
uses
|
||||||
uSplash, uAcercaDe, uMenuUtils, uAdminPV_App,
|
PNGImage, uModuleController, uDataModuleBase, Math, uMenuUtils,
|
||||||
uDMBase, uMainMenuController, uNavPaneController,
|
uPanelControl, uDataModuleUsuarios, uSplash, uAcercaDe,
|
||||||
uDialogUtils;
|
uViewBase,UxTheme, Themes;
|
||||||
|
|
||||||
{ PNGImage, uModuleController, uDMBase, Math, uMenuUtils,
|
|
||||||
uSplash, uAcercaDe,
|
|
||||||
uViewBase;}
|
|
||||||
|
|
||||||
|
|
||||||
{$R *.dfm}
|
{$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 ******************************
|
***************************** TfPantallaPrincipal ******************************
|
||||||
}
|
}
|
||||||
@ -135,36 +136,22 @@ begin
|
|||||||
end;
|
end;
|
||||||
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);
|
procedure TfPantallaPrincipal.FormCreate(Sender: TObject);
|
||||||
begin
|
begin
|
||||||
ApplicationEvents.Activate;
|
Caption := Application.Title + ' - ' + dmBase.DarVersion;
|
||||||
Application.Title := AppAdminPV.AppName + ' ' + AppAdminPV.AppVersion;
|
SplashScreen := TSplashScreen.Create(Application) ;
|
||||||
Caption := Application.Title;
|
SplashScreen.Show;
|
||||||
|
|
||||||
JvNavigationPane.StyleManager := dmBase.StyleManager;
|
JvNavigationPane.StyleManager := dmBase.StyleManager;
|
||||||
dmBase.OnThemeChange := Self.OnThemeChange;
|
dmBase.OnThemeChange := Self.OnThemeChange;
|
||||||
Self.OnThemeChange(Self); // Forzar el refresco de los colores del tema activo
|
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;
|
actLogin.Execute;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
@ -179,22 +166,24 @@ begin
|
|||||||
RegisterModule(AModuleInfo);
|
RegisterModule(AModuleInfo);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TfPantallaPrincipal.RefrescarUI;
|
procedure TfPantallaPrincipal.RegisterModule(AModuleInfo : TModuleInfo);
|
||||||
|
var
|
||||||
|
AModule: TModuleController;
|
||||||
|
AModuleMenu : TMainMenu;
|
||||||
|
AIndex: Integer;
|
||||||
|
ACount: Integer;
|
||||||
begin
|
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);
|
if Assigned(AModule.ModuleMenu) then
|
||||||
begin
|
begin
|
||||||
|
AModuleMenu := AModule.ModuleMenu;
|
||||||
end;
|
MergeMenus(AModuleMenu, Self.Menu, AIndex);
|
||||||
|
end;
|
||||||
procedure TfPantallaPrincipal.ReleaseEmbedded;
|
|
||||||
begin
|
|
||||||
if Assigned(FContenido) then
|
|
||||||
FContenido.Release;
|
|
||||||
FContenido := Nil;
|
|
||||||
Application.ProcessMessages;
|
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TfPantallaPrincipal.Salir1Click(Sender: TObject);
|
procedure TfPantallaPrincipal.Salir1Click(Sender: TObject);
|
||||||
@ -250,24 +239,168 @@ begin
|
|||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TfPantallaPrincipal.InitializeUI;
|
procedure TfPantallaPrincipal.InitializeUI;
|
||||||
|
|
||||||
|
function EsUnModulo(AMenuItem : TMenuItem) : Boolean;
|
||||||
|
begin
|
||||||
|
Result := (AMenuItem.Tag >= 0) and (AMenuItem.Tag < 9000)
|
||||||
|
end;
|
||||||
|
|
||||||
var
|
var
|
||||||
i : Integer;
|
i : Integer;
|
||||||
|
AMenuItem : TMenuItem;
|
||||||
|
APageIndex : Integer;
|
||||||
|
AStringList : TStringList;
|
||||||
|
APanel : TScrollBox;
|
||||||
begin
|
begin
|
||||||
for i := 0 to AppAdminPV.ModuleManager.ModulesCount - 1 do
|
SortMenuByTag(Menu);
|
||||||
MainMenuController.RegisterModule(AppAdminPV.ModuleManager.Modules[i]);
|
|
||||||
|
|
||||||
MainMenuController.SortMenuByTag;
|
AStringList := TStringList.Create;
|
||||||
MainMenuController.InitMainMenu;
|
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
|
AStringList.Add(StringReplace(AMenuItem.Caption, '&', '', []))
|
||||||
NavPaneController.RegisterModule(AppAdminPV.ModuleManager.Modules[i]);
|
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;
|
ApplicationEvents.OnActionExecute := ApplicationEventsActionExecute;
|
||||||
end;
|
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);
|
procedure TfPantallaPrincipal.ExecuteActionMenu(Sender: TObject);
|
||||||
var
|
var
|
||||||
i : integer;
|
i : integer;
|
||||||
@ -284,7 +417,7 @@ end;
|
|||||||
|
|
||||||
procedure TfPantallaPrincipal.AplicarPerfil;
|
procedure TfPantallaPrincipal.AplicarPerfil;
|
||||||
begin
|
begin
|
||||||
//
|
actAdministracion.Visible := dmUsuarios.EsAdmin;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TfPantallaPrincipal.ApplicationEventsActionExecute(
|
procedure TfPantallaPrincipal.ApplicationEventsActionExecute(
|
||||||
@ -340,14 +473,14 @@ end;
|
|||||||
|
|
||||||
procedure TfPantallaPrincipal.actCambiarPassExecute(Sender: TObject);
|
procedure TfPantallaPrincipal.actCambiarPassExecute(Sender: TObject);
|
||||||
begin
|
begin
|
||||||
AppAdminPV.UsuariosController._ShowChangePassword;
|
dmUsuarios.CambiarPassword;
|
||||||
RefrescarUI;
|
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TfPantallaPrincipal.actAcercaExecute(Sender: TObject);
|
procedure TfPantallaPrincipal.actAcercaExecute(Sender: TObject);
|
||||||
begin
|
begin
|
||||||
with TfAcercaDe.Create(NIL) do
|
with TfAcercaDe.Create(NIL) do
|
||||||
try
|
try
|
||||||
|
HostManager := Self.HostManager;
|
||||||
ShowModal;
|
ShowModal;
|
||||||
finally
|
finally
|
||||||
Free;
|
Free;
|
||||||
@ -431,7 +564,6 @@ end;}
|
|||||||
procedure TfPantallaPrincipal.actConexionExecute(Sender: TObject);
|
procedure TfPantallaPrincipal.actConexionExecute(Sender: TObject);
|
||||||
begin
|
begin
|
||||||
dmBase.ConfigurarConexion;
|
dmBase.ConfigurarConexion;
|
||||||
RefrescarUI;
|
|
||||||
end;
|
end;
|
||||||
|
|
||||||
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
|
OldCreateOrder = False
|
||||||
Position = poScreenCenter
|
Position = poScreenCenter
|
||||||
Scaled = False
|
Scaled = False
|
||||||
OnClose = FormClose
|
|
||||||
PixelsPerInch = 96
|
PixelsPerInch = 96
|
||||||
TextHeight = 13
|
TextHeight = 13
|
||||||
object lblTexto: TLabel
|
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
|
/* VER150
|
||||||
Generated by the CodeGear Delphi Pascal Compiler
|
Generated by the Borland Delphi Pascal Compiler
|
||||||
because -GD or --drc was supplied to the compiler.
|
because -GD or --drc was supplied to the compiler.
|
||||||
|
|
||||||
This file contains compiler-generated resources that
|
This file contains compiler-generated resources that
|
||||||
@ -12,6 +12,3 @@ STRINGTABLE
|
|||||||
BEGIN
|
BEGIN
|
||||||
END
|
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;
|
unit uDateUtils;
|
||||||
|
|
||||||
interface
|
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 NumberDayOfTheWeek(const ADay : String) : Word;
|
||||||
function NumberMonthOfTheYear(const AMonth : String) : Word;
|
function NumberMonthOfTheYear(const AMonth : String) : Word;
|
||||||
|
|
||||||
@ -16,9 +18,6 @@ implementation
|
|||||||
uses
|
uses
|
||||||
DateUtils;
|
DateUtils;
|
||||||
|
|
||||||
const
|
|
||||||
FECHA_NULA = -700000;
|
|
||||||
|
|
||||||
function NumberDayOfTheWeek(const ADay : String) : Word;
|
function NumberDayOfTheWeek(const ADay : String) : Word;
|
||||||
begin
|
begin
|
||||||
if (ADay = 'Monday') or (ADay = 'Lunes') then
|
if (ADay = 'Monday') or (ADay = 'Lunes') then
|
||||||
@ -65,29 +64,5 @@ begin
|
|||||||
Result := 12;
|
Result := 12;
|
||||||
end;
|
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.
|
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
|
Left = 499
|
||||||
Top = 302
|
Top = 302
|
||||||
Caption = ''
|
Caption = ''
|
||||||
ExplicitWidth = 320
|
|
||||||
ExplicitHeight = 240
|
|
||||||
PixelsPerInch = 96
|
PixelsPerInch = 96
|
||||||
TextHeight = 13
|
TextHeight = 13
|
||||||
inherited TBXDock: TTBXDock
|
inherited TBXDock: TTBXDock
|
||||||
inherited tbxMain: TTBXToolbar
|
inherited tbxMain: TTBXToolbar
|
||||||
ExplicitWidth = 523
|
|
||||||
inherited TBXItem2: TTBXItem
|
inherited TBXItem2: TTBXItem
|
||||||
Visible = False
|
Visible = False
|
||||||
end
|
end
|
||||||
@ -8,8 +8,7 @@ uses
|
|||||||
JvAppRegistryStorage, JvComponentBase, JvFormPlacement, ImgList,
|
JvAppRegistryStorage, JvComponentBase, JvFormPlacement, ImgList,
|
||||||
PngImageList, StdActns, ActnList, ComCtrls, TBX, TB2Item, TB2Dock,
|
PngImageList, StdActns, ActnList, ComCtrls, TBX, TB2Item, TB2Dock,
|
||||||
TB2Toolbar, ExtCtrls, JvExControls, JvComponent, JvNavigationPane,
|
TB2Toolbar, ExtCtrls, JvExControls, JvComponent, JvNavigationPane,
|
||||||
uBizControlesBase, schControlesClient_Intf, uViewControlBase, uDAInterfaces,
|
uBizControlesBase, schControlesClient_Intf, uViewControlBase;
|
||||||
pngimage;
|
|
||||||
|
|
||||||
type
|
type
|
||||||
IEditorControlBase = interface(IEditorDBItem)
|
IEditorControlBase = interface(IEditorDBItem)
|
||||||
@ -2,19 +2,14 @@ inherited fEditorControlesBase: TfEditorControlesBase
|
|||||||
Left = 385
|
Left = 385
|
||||||
Top = 375
|
Top = 375
|
||||||
Caption = ''
|
Caption = ''
|
||||||
ExplicitWidth = 320
|
|
||||||
ExplicitHeight = 240
|
|
||||||
PixelsPerInch = 96
|
PixelsPerInch = 96
|
||||||
TextHeight = 13
|
TextHeight = 13
|
||||||
inherited JvNavPanelHeader: TJvNavPanelHeader
|
inherited JvNavPanelHeader: TJvNavPanelHeader
|
||||||
Top = 0
|
Top = 0
|
||||||
ExplicitTop = 0
|
|
||||||
end
|
end
|
||||||
inherited TBXDock: TTBXDock
|
inherited TBXDock: TTBXDock
|
||||||
Top = 27
|
Top = 27
|
||||||
ExplicitTop = 27
|
|
||||||
inherited tbxMain: TTBXToolbar
|
inherited tbxMain: TTBXToolbar
|
||||||
ExplicitWidth = 386
|
|
||||||
inherited TBXItem2: TTBXItem
|
inherited TBXItem2: TTBXItem
|
||||||
ImageIndex = 0
|
ImageIndex = 0
|
||||||
Images = pngImageNuevo
|
Images = pngImageNuevo
|
||||||
@ -9,7 +9,7 @@ uses
|
|||||||
PngImageList, StdActns, ActnList, ComCtrls, TB2ExtItems, TBXExtItems,
|
PngImageList, StdActns, ActnList, ComCtrls, TB2ExtItems, TBXExtItems,
|
||||||
TBX, TB2Item, TB2Dock, TB2Toolbar, ExtCtrls, JvExControls, JvComponent,
|
TBX, TB2Item, TB2Dock, TB2Toolbar, ExtCtrls, JvExControls, JvComponent,
|
||||||
JvNavigationPane, pngimage, uBizControlesBase, uEditorBase,
|
JvNavigationPane, pngimage, uBizControlesBase, uEditorBase,
|
||||||
uViewControlesBase, uDAInterfaces;
|
uViewControlesBase;
|
||||||
|
|
||||||
type
|
type
|
||||||
IEditorControlesBase = interface(IEditorDBBase)
|
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