54968-Como BloquearDesbloquear Clientes por Inadimplência

Contas a Receber

Para gerar bloqueio de clientes por Inadimplência, é preciso, em primeiro lugar, definir qual será a regra do bloqueio.

Configurando a Regra de Bloqueio:

Na opção “Cadastros; Bloqueio de Clientes”, deve ser informado um Código para o bloqueio, uma descrição, o tipo de bloqueio (deve ser diferente de N, pois N indica bloqueios inativos) e a regra para o bloqueio, em comando sql.

No comando SQL, é possível indicar a empresa financeira para seleção dos títulos, utilizando o paramentro “:Empresa”.

A regra deve indicar a partir de quantos dias de atraso deve ser gerado o bloqueio, por exemplo.

O exemplo abaixo bloqueia todos os clientes em débito a mais de 10 dias

SELECT DISTINCT(C.CDCLIENTE)
FROM CLIENTE C, TITULO_A_RECEBER T
WHERE T.CDEMPRESA = :EMPRESA
AND T.CDSITUACAO IN (0,2)
AND T.DTVENCIMENTO < SYSDATE + 10
AND T.CDCLIENTE = C.CDCLIENTE
AND NOT EXISTS (SELECT NULL FROM ENCONTRO_DE_CONTAS EC
WHERE EC.NRREGISTRO_TITULO_RECEBER = T.NRREGISTRO_TITULO)

Atenção:

Para tratar o bloqueio na autorização de procedimentos, o código de bloqueio deve ser “010”.

Contratos com liminar precisam de um código próprio de bloqueio, que deve ser informado no parâmetro CDBLQLIM.

Realizando o Bloqueio:

Para realizar o bloqueio, é necessário ir até a opção “Processos, Bloqueio de Clientes”. Na tela informe a Empresa e a Tipo de Bloqueio(Regra) desejado. Execute o processo. Todos os clientes dentro da regra terão o código do bloqueio gravado.

Realizando o Desbloqueio:

Ao processar o Bloqueio, todos os clientes dentro da regra terão o código do bloqueio gravado. Caso o cliente realize o pagamento dos débitos, o bloqueio não é removido automaticamente.

Para desbloquear o cliente, deve-se configurar uma regra de desbloqueio, exatamente da mesma forma que foi configurada a regra de bloqueio. A regra de desbloqueio deve, no entanto, ser o oposto da regra de bloqueio. Exemplo: Clientes sem nenhum débito.

O exemplo abaixo desbloqueia todos os clientes com débitos com menos de 10 dias de atraso

SELECT DISTINCT(C.CDCLIENTE)
FROM CLIENTE C
WHERE NOT EXISTS (
SELECT DISTINCT(C.CDCLIENTE)
FROM CLIENTE C2, TITULO_A_RECEBER T
WHERE T.CDEMPRESA = :EMPRESA
AND T.CDSITUACAO IN (0,2)
AND T.DTVENCIMENTO < SYSDATE + 10
AND T.CDCLIENTE = C.CDCLIENTE
AND C2.CDCLIENTE = C.CDCLIENTE
AND NOT EXISTS (SELECT NULL FROM ENCONTRO_DE_CONTAS EC
WHERE EC.NRREGISTRO_TITULO_RECEBER = T.NRREGISTRO_TITULO))

O processo de desbloqueio também é o mesmo. Em “Processos, Bloqueio de Clientes”, informe a Empresa e o Tipo de Bloqueio, onde esse deve ser a regra para desbloqueio.