-- VINCULO AUTOMATICO LIBERANDO ACESSO AO PROCEDIMENTO 30
DECLARE @IS_CLI_BRPH INT
SET @IS_CLI_BRPH = COALESCE((SELECT 1 FROM PRC_EMP WHERE CGC_EMP = '00447821/0001-70'),0)

IF @IS_CLI_BRPH = 1
BEGIN
	
	UPDATE TELE_TIPO_PAG SET CD_TIPO_MOEDA = 3, QTDE_PARCELA = 4 WHERE CD_TIPO_PAG = 9  -- CARTAO VENDA 4X
	UPDATE TELE_TIPO_PAG SET CD_TIPO_MOEDA = 3, QTDE_PARCELA = 1 WHERE CD_TIPO_PAG = 23 -- CARTAO DEBITO
	UPDATE TELE_TIPO_PAG SET CD_TIPO_MOEDA = 3, QTDE_PARCELA = 1 WHERE CD_TIPO_PAG = 24 -- CARTAO CREDITO
	UPDATE TELE_TIPO_PAG SET CD_TIPO_MOEDA = 3, QTDE_PARCELA = 2 WHERE CD_TIPO_PAG = 29 -- CARTAO VENDA 2X
	UPDATE TELE_TIPO_PAG SET CD_TIPO_MOEDA = 3, QTDE_PARCELA = 3 WHERE CD_TIPO_PAG = 30 -- CARTAO VENDA 3X
	UPDATE TELE_TIPO_PAG SET CD_TIPO_MOEDA = 0, QTDE_PARCELA = 1 WHERE CD_TIPO_PAG = 22 -- DINHEIRO
	UPDATE TELE_TIPO_PAG SET CD_TIPO_MOEDA = 1, QTDE_PARCELA = 1 WHERE CD_TIPO_PAG = 25 -- CHEQUE A VISTA
	UPDATE TELE_TIPO_PAG SET CD_TIPO_MOEDA = 2, QTDE_PARCELA = 3 WHERE CD_TIPO_PAG = 26 -- CHEQUE A PRAZO
	UPDATE TELE_TIPO_PAG SET CD_TIPO_MOEDA = 4, QTDE_PARCELA = 1 WHERE CD_TIPO_PAG = 27 -- CONVÊNIO
	UPDATE TELE_TIPO_PAG SET CD_TIPO_MOEDA = 7, QTDE_PARCELA = 1 WHERE CD_TIPO_PAG = 28 -- DUPLICATA

END
