Script para eliminar créditos tomados em pedidos antigos

PEDIDOS.FAQ-142917

Colar o script abaixo em UTL_DB_SQL.
Alterar a data de corte e, opcionalmente, o nome do plano de pagamento que será utilizado. A rotina cria o plano automaticamente se necessário.

set data_corte '2015-01-01';
set plano_pagamento 'ANTIGO SEM COBRANÇA - NÃO USAR';

set count count(1)
from planos_pagamentos
where plano_pagamento = '${plano_pagamento}';

if ${count} = 0 then
   ins planos_pagamentos
   set plano_pagamento = '${plano_pagamento}'
   , utiliza_limite_credito = 'N'
   , condicoes_pagamento_id = 16068
   , tipo_titulo_id = 4867
   , numero_parcelas = 1
   , possui_entrada = 'N'
   , ativo = 'N'
   ;
end-if;

set plano_id id
from planos_pagamentos
where plano_pagamento = '${plano_pagamento}';

update pedidos
set prazo_pagamento_id = ${plano_id}
where credito_tomado_cliente_id > 0
and data_emissao <= '${data_corte}'
and situacao = 'E'
;

upd pedidos 
where credito_tomado_cliente_id > 0
and data_emissao <= '${data_corte}'
and situacao = 'E'
;