#ldxscripta
#DESC FLX040000 e FLX040000F
#COD_PRODUTO 80
#COD_BANCO 0
#COD_CLIENTE 0
#DATA 01/11/2012 17:39
#LINGUAGEM A
#MARCO 0
#DISTRIBUICAO 04.00.00
#TITULO INSERT COMUNS
#BEGIN
INSERT INTO TMVSESTAPL (CDEST, CDAPL, DSEST, CDRGBR, CDRGBG, CDRGBB, CDRGFR, CDRGFG, CDRGFB, IDPRIO)
VALUES (302, 3, 'Produto Vendido', 215, 255, 215, 20, 20, 20, 1)
#@#

INSERT INTO TMVSTABMW (TABLE_TMVSTABMW, CAMPO_TMVSTABMW, TYPE_TMVSTABMW, NULL_TMVSTABMW, PRK_TMVSTABMW, PREC_TMVSTABMW, SCALE_TMVSTABMW, SIZE_TMVSTABMW, VLRDFT_TMVSTABMW, DESC_TMVSTABMW, RESP_TMVSRESPMW, NRCS_TMVSTABMW, MXLG_TMVSTABMW, ORDER_TMVSTABMW, VLRGRID_TMVSTABMW, TABGRID_TMVSTABMW, TABMASK_TMVSTABMW, TABCRYPT_TMVSTABMW, IDFEXIBE_TMVSTABMW, DESC_HINT, READONLY_TMVSTABMW)
VALUES ('TMVSPARAMGL', 'IDPRVE', 'CHAR', '0', '0', NULL, NULL, '1', '0', 'Realiza filtro produtos por vend./grupos produtos por vend.:', 'SN', '0', '1', 65, 'NÃO', '02 - SSM Geral', NULL, NULL, NULL, 'Identifica se realiza filtro de produtos por vendedor e de grupos de produtos por vendedor', '0')

#@#

INSERT INTO TMVSRESPMW (RESP_TMVSRESPMW, COD_TMVSRESPMW, DESC_TMVSRESPMW, IDFIX_TMVSRESPMW, SELECT_TMVSRESPMW, KEYVALUE_TMVSRESPMW, KEYLIST_TMVSRESPMW)
VALUES ('EF', '0', 'POR VENDEDOR', 1, NULL, NULL, NULL)

#@#

INSERT INTO TMVSRESPMW (RESP_TMVSRESPMW, COD_TMVSRESPMW, DESC_TMVSRESPMW, IDFIX_TMVSRESPMW, SELECT_TMVSRESPMW, KEYVALUE_TMVSRESPMW, KEYLIST_TMVSRESPMW)
VALUES ('EF', '1', 'POR CLIENTE', 1, NULL, NULL, NULL)

#@#

INSERT INTO TMVSTABMW (TABLE_TMVSTABMW, CAMPO_TMVSTABMW, TYPE_TMVSTABMW, NULL_TMVSTABMW, PRK_TMVSTABMW, PREC_TMVSTABMW, SCALE_TMVSTABMW, SIZE_TMVSTABMW, VLRDFT_TMVSTABMW, DESC_TMVSTABMW, RESP_TMVSRESPMW, NRCS_TMVSTABMW, MXLG_TMVSTABMW, ORDER_TMVSTABMW, VLRGRID_TMVSTABMW, TABGRID_TMVSTABMW, TABMASK_TMVSTABMW, TABCRYPT_TMVSTABMW, IDFEXIBE_TMVSTABMW, DESC_HINT, READONLY_TMVSTABMW)
VALUES ('TMVSPARAMGL', 'IDFLCL', 'CHAR', '0', '0', NULL, NULL, '1', '0', 'Disponibiliza as filiais no SSM:', 'EF', '0', '1', 70, 'POR VENDEDOR', '02 - SSM Geral', NULL, NULL, NULL, 'Identifica se exibe as filiais por vendedor ou por cliente no SSM', '0')

#@#
#END
#LINGUAGEM A
#MARCO 0
#DISTRIBUICAO 04.00.00
#TITULO UPDATE COMUNS
#BEGIN
UPDATE TMVSESTAPL SET CDRGBR = 159, CDRGBG = 224, CDRGBB = 255, CDRGFR = 20, CDRGFG = 20, CDRGFB = 20, IDPRIO = 2  WHERE CDEST = 301 
#@#

UPDATE TMVSESTAPL SET CDRGBR = 255, CDRGBG = 255, CDRGBB = 192, CDRGFR = 20, CDRGFG = 20, CDRGFB = 20, IDPRIO = 3  WHERE CDEST = 300 
#@#

UPDATE TMVSMOD SET DSMODL = 'Organizador de Imagens' WHERE CDMODL = '100'
#@#

UPDATE TMVSTABMW SET NULL_TMVSTABMW = '1' WHERE TABLE_TMVSTABMW = 'TMVSEQP' AND CAMPO_TMVSTABMW = 'CDPAI'
#@#

UPDATE TMVSTABMW SET VLRDFT_TMVSTABMW = '-1', VLRGRID_TMVSTABMW = 'Acréscimo > 0 Desconto < 0' WHERE TABLE_TMVSTABMW = 'TMVSPARAMGL' AND CAMPO_TMVSTABMW = 'NUDADQ'
#@#

UPDATE TMVSTABMW SET VLRDFT_TMVSTABMW = '-1' WHERE TABLE_TMVSTABMW = 'TMVSPARAMGL' AND CAMPO_TMVSTABMW = 'NUDAPD'
#@#

UPDATE TMVSTABMW SET DESC_TMVSTABMW = 'Vendedor negocia com cliente quantidade superior à 32.767?' 
WHERE TABLE_TMVSTABMW = 'TMVSPARAM' AND CAMPO_TMVSTABMW = 'IDNUIT'
#@#

UPDATE TMVSTABMW SET DESC_TMVSTABMW = 'Verifica cond. de pagamento negociada no início do pedido?', 
DESC_HINT = 'Sim - o SSM NÃO efetua as validações relacionadas à abertura de pedido para cliente bloqueado, inadimplente e limite excedido. Não - o SSM efetua as validações.'  WHERE TABLE_TMVSTABMW = 'TMVSPARAM' AND CAMPO_TMVSTABMW = 'IDCPNG'
#@#


#END
#LINGUAGEM A
#MARCO 0
#DISTRIBUICAO 04.00.00
#TITULO ATUALIZAÇÃO DE TIPOS DE ARQUIVOS SUPORTADOS
#BEGIN
INSERT INTO TMVSTIPFILE (CDTIPO, DSNOME, DSEXT)
VALUES ('-1', 'Sem Tipo', '')

#@#

UPDATE TMVSFILES SET CDTIPO = '-1'

#@#

DELETE FROM TMVSTIPFILE WHERE CDTIPO <> '-1'

#@#

INSERT INTO TMVSTIPFILE (CDTIPO, DSNOME, DSEXT)
VALUES ('1', 'image/jpeg', 'jpeg')

#@#

INSERT INTO TMVSTIPFILE (CDTIPO, DSNOME, DSEXT)
VALUES ('2', 'image/png', 'png')

#@#

INSERT INTO TMVSTIPFILE (CDTIPO, DSNOME, DSEXT)
VALUES ('3', 'audio/mpeg3', 'mp3')

#@#

INSERT INTO TMVSTIPFILE (CDTIPO, DSNOME, DSEXT)
VALUES ('4', 'text/html', 'html')

#@#

INSERT INTO TMVSTIPFILE (CDTIPO, DSNOME, DSEXT)
VALUES ('5', 'video/3gpp', '3gp')

#@#

INSERT INTO TMVSTIPFILE (CDTIPO, DSNOME, DSEXT)
VALUES ('6', 'image/jpeg', 'jpg')

#@#
#END
#LINGUAGEM B
#MARCO 0
#DISTRIBUICAO 04.00.00
#TITULO ALTER TABLE COMUNS
#BEGIN
ALTER TABLE TMVSPARAMGL ADD IDPRVE CHAR(1) DEFAULT '0' NOT NULL

#@#

ALTER TABLE TMVSPARAMGL ADD IDFLCL CHAR(1) DEFAULT '0'

#@#
#END
#LINGUAGEM B
#MARCO 0
#DISTRIBUICAO 04.00.00
#TITULO CREATE TABLES FIREBIRD
#BEGIN
CREATE TABLE TAFPRODVEND
(
	CDPROD VARCHAR(25) DEFAULT '0' NOT NULL,
	CDDRV VARCHAR(25) DEFAULT '0' NOT NULL,
	CDEQP VARCHAR(25) DEFAULT '0' NOT NULL,
	PRIMARY KEY (CDPROD, CDDRV, CDEQP),
	FOREIGN KEY (CDPROD, CDDRV) REFERENCES TAFPROD(CDPROD, CDDRV)
)

#@#

CREATE TABLE TAFGRPRODVEND
(
	CDGRPR VARCHAR(25) DEFAULT '0' NOT NULL,
	CDEQP VARCHAR(25) DEFAULT '0' NOT NULL,
	PRIMARY KEY(CDGRPR, CDEQP),
	FOREIGN KEY(CDGRPR) REFERENCES TAFGRPROD(CDGRPR)
)

#@#

CREATE TABLE TAFFILICLI
(
	CDFILI VARCHAR(25) DEFAULT '0' NOT NULL,
	CDCL VARCHAR(25) DEFAULT '0' NOT NULL,
	PRIMARY KEY(CDFILI, CDCL),
	FOREIGN KEY(CDFILI) REFERENCES TAFFILIAL(CDFILI),
	FOREIGN KEY(CDCL) REFERENCES TAFCLI(CDCL)	
)

#@#
#END
#LINGUAGEM B
#MARCO 0
#DISTRIBUICAO 04.00.00
#TITULO ALTER TABLE FIREBIRD
#BEGIN
ALTER TABLE TAFPROM ADD CDFILI VARCHAR(25) DEFAULT '0' NOT NULL

#@#

ALTER TABLE TAFPROM ADD CDEQP VARCHAR(25) DEFAULT '0' NOT NULL

#@#

ALTER TABLE TAFFILIPROD ADD CDEQP VARCHAR(25) DEFAULT '0' NOT NULL

#@#
#END
#LINGUAGEM B
#MARCO 0
#DISTRIBUICAO 04.00.00
#TITULO CREATE PROCEDURE  LDX_DROP_PRIMARY_KEY
#BEGIN
CREATE EXCEPTION LDX_EXC_PK_NAO_ENCONTRADA 'A primary key não foi encontrada'
#@#

CREATE PROCEDURE LDX_DROP_PRIMARY_KEY(NOMETABELA VARCHAR(50))
AS
DECLARE NAMEPK VARCHAR(130);
DECLARE STR VARCHAR(200);
BEGIN
     
	SELECT
		rdb$constraint_name
	FROM
		RDB$RELATION_CONSTRAINTS
	WHERE
			RDB$RELATION_NAME = :NOMETABELA
		AND RDB$CONSTRAINT_TYPE = 'PRIMARY KEY' INTO :NAMEPK;  

	if (:NAMEPK <> '') then
	begin
		STR = 'ALTER TABLE ' || NOMETABELA || ' DROP CONSTRAINT ' || NAMEPK ;
		execute statement STR;
	end
	else
	begin
		EXCEPTION LDX_EXC_PK_NAO_ENCONTRADA
			'A tabela ' || NOMETABELA || ' não tem primary key.';    		
	end
END;

#@#
#END
#LINGUAGEM A
#MARCO 0
#DISTRIBUICAO 04.00.00
#TITULO ATUALIZA PRIMARY KEY FIREBIRD
#BEGIN
EXECUTE PROCEDURE LDX_DROP_PRIMARY_KEY('TAFPROM')

#@#

ALTER TABLE TAFPROM ADD PRIMARY KEY(CDCL, CDPROD, CDDRV, CDCNPG, CDREG, CDFILI, CDEQP)

#@#

EXECUTE PROCEDURE LDX_DROP_PRIMARY_KEY('TAFFILIPROD')

#@#

ALTER TABLE TAFFILIPROD ADD PRIMARY KEY(CDFILI, CDPROD, CDDRV, CDEQP)

#@#
#END
#LINGUAGEM A
#MARCO 0
#DISTRIBUICAO 04.00.00
#TITULO DELETE COMUNS
#BEGIN
DELETE FROM TMVSTABMW WHERE TABLE_TMVSTABMW = 'TMVSPARAMGL' AND CAMPO_TMVSTABMW = 'DSDIWS'
#@#

DELETE FROM TMVSTABMW WHERE TABLE_TMVSTABMW = 'TMVSPARAMGL' AND CAMPO_TMVSTABMW = 'DSDIWH'
#@#

#END
