Carta de Cobrança - Financeiro - P12

Rotina: FINA810 - Layouts de Carta de Cobrança

Cada carta enviada será definida conforme o teor de cobrança, ou seja, será possível incluir um texto de um determinado teor para diferentes tipos de cobrança.

Para tanto, serão disponibilizadas formas de configurar os textos das cartas e associá-las a determinadas regras via cadastro. Estarão disponíveis somente características do cliente para validação combinada com o filtro de/até. Não sendo necessário, o mesmo poderá ser mantido em branco, para que as cartas sejam enviados para qualquer cliente.

As cartas obedecem aos filtros informados na rotina de envio, validando os dados do cliente associado, ao teor da carta. Esta configuração poderá utilizar campos customizados para sua composição.

Já na listagem de títulos, as colunas consideradas como padrão estão abaixo:

• • Chave do título – Prefixo, número e parcela
  • Data de vencimento
  • Dias de atraso
  • Valor Original
  • Saldo do Título
  • Multa
  • Juros

Haverá a possibilidade de adição/retirada de novas colunas, desde que as mesmas façam parte do título a receber (SE1), considerando que, por se tratar de um envio de e-mail e/ou carta física, poderá haver algum tipo de restrição quanto a quantidade de informação contida na carta/folha.

Independente do método de envio selecionado, e-mail, físico ou ambos, a carta irá conter no topo os dados de envio como o nome e endereço do cliente. O endereço utilizado será o endereço de cobrança contido no cadastro do cliente. Caso esse endereço esteja em branco, o envio será feito para o endereço do cliente. No layout da carta, será possível definir o alinhamento do endereço do cliente no topo da carta.

  - Digitação do cabeçalho do cadastro onde é definido o método de envio, os textos (principal da carta, saudação e conclusão), bem como a posição do endereço (para cartas impressas).

 - No rodapé existem 2 abas onde são definidos os campos do contas a receber (tabela SE1) que irão ser apresentados na carta (nro do título, valor, data de vencimento, etc), bem como são definidas as regras personalizadas de envio. Nesse campo deve ser informado uma expressão como as de filtros de tela (browse) do Protheus. Está posicionada a tabela de Clientes (SA1). 

Rotina: FINA811 - Envio das Cartas de Cobrança

Para o envio das cartas, deve ser respondida cada etapa do wizard, conforme explicação a seguir.

 - Tela inicial do wizard.

 - Definição dos parâmetros para busca e filtragem das informações. 

1. Cliente e loja de (intervalo inicial de cliente e loja);
2. Cliente e loja até (intervalo final de cliente e loja);
3. Vencimento de (intervalo de vencimento inicial dos títulos);
4. Vencimento até (intervalo de vencimento final dos títulos);
5. Valor de (intervalo de valor inicial dos títulos);
6. Valor até (intervalo de valor final dos títulos);
7. Seleciona filiais (caso seja definido com "Sim", a tela padrão de seleção de filiais será exibida para que as filiais possam ser selecionadas);
8. Situação de cobrança (será apresentada a mesma consulta já utilizada no requisito "Processos SERASA", permitindo que uma ou mais situações de cobrança sejam selecionadas. Este campo é validado para não ser deixado em branco ao avançar no processo);
9. Títulos a vencer (caso esteja como sim, o filtro vai considerar os títulos que ainda estão por vencer);
10. Data de referência para cálculo de juros e multa dos títulos;
11. Considera valor (caso seja definido com "1-Valor Total", sistema irá filtrar os registros com conteúdo no campo E1_VALOR entre os valores informados nos itens 5 e 6 dessa janela. Caso seja definido com "2-Saldo", o sistema irá filtrar os registros com conteúdo no campo E1_SALDO entre os valores informados nos itens 5 e 6 dessa janela );
12. Considera cliente bloqueado? Essa pergunta irá validar o campo A1_MSBLQL dos clientes. Se preenchido com SIM, irá considerar todos os clientes independentemente do status do campo de bloqueio. Se NÃO, irá considerar apenas clientes ativos. 

 - Seleção do layout da carta (apenas 1 layout poderá ser selecionado).

 - Seleção do(s) cliente(s).

IMPORTANTE: Nesta tela do wizard existe um botão para realização de filtros na lista de clientes ("Filtrar"), porém somente os campos apresentados em tela estão disponíveis para filtro. Para incluir outros campos, inclusive campos personalizados, pode-se utilizar os pontos de entrada abaixo:

F811FL3 - Permite incluir campos na janela de filtro da página 3

F811FL4 - Permite incluir campos na janela de filtro da página 4

F811FL5 - Permite incluir campos na janela de filtro da página 5

 - Seleção do(s) título(s).

É importante ressaltar que a seleção de títulos deve considerar o bloqueio de situação de cobrança configurado (conforme já citado anteriormente).

 - Envio ou impressão das cartas.

 - Consulta de log dos envios e conclusão do processo.

 - Consulta do log

 - Modelo do e-mail enviado ao cliente.

Rotina: FINR811 - Relatório das Cartas de Cobrança

O relatório permite a execução de 2 formas (analítica ou sintética). Na forma analítica é exibida a carta completa, contendo os textos e demais detalhes. Na forma sintética, são exibidos apenas as cartas que foram enviados, porém sem os textos, ou seja, apenas um resumo.

Além do tipo de impressão (sintético ou analítico), o relatório permite as seguintes parametrizações:

 - Impressão no modelo analítico

Haverá um salto de página a cada impressão de carta e as colunas dos títulos não seguirão o configurado no layout, uma vez que o relatório exige uma estrutura fixa. 

 - Impressão no modelo sintético

Outros campos da tabela SE1 estarão disponíveis para adição no relatório, considerando a limitação da área de impressão x tamanho da página.

Lembrando que o modelo do relatório deve ser o mesmo do e-mail enviado, remontado em tempo de impressão com os dados armazenados.

Arquivo: FWP – Carta de Cobrança

Arquivo: FWQ – Regras de Envio 

Arquivo: FWS – Dados dos Títulos 

Arquivo: FWT – Cartas Enviadas 

Grupo de Perguntoas (SX1): FINR810

      Consulta Padrão (SXB): FWP

Para a correta execução automática da rotina FINA811, é necessário informar os parâmetros da função conforme abaixo:

#INCLUDE "PROTHEUS.CH"
#INCLUDE "TBICONN.CH"

User Function ctGetFil() //Utilizado para envio de cartas de cobrança a partir de uma filial centralizadora
    Local aFiliais As Array

    aFiliais := {}

    If FwIsInCallStack("FINA811")
        aFiliais := FWAllFilial(NIL, NIL, cEmpAnt, .F.)
    EndIf

Return aFiliais

User Function EXEC811()

    Local a811Param As Array
    Local cFiltro As Character

    Private lMsErroAuto := .F.
    Private lAutoErrNoFile := .F.

    PREPARE ENVIRONMENT EMPRESA "T1" FILIAL "D MG 01 "
 
    cFiltro := "E1_TIPO = 'BOL' " 

    a811Param := {}
    aSize(a811Param, 17)

    a811Param[01] := "      " //Código do cliente De (tipo caracter)
    a811Param[02] := "  " //Loja do cliente De (tipo caracter)
    a811Param[03] := "ZZ" //Código do cliente Até (tipo caracter)
    a811Param[04] := "ZZZZZZ" //Loja do cliente Até (tipo caracter)
    a811Param[05] := cToD("01/12/2022") //Data de emissão De (tipo data)        
    a811Param[06] := cToD("01/12/2022") //Data de emissão Até (tipo data)  
    a811Param[07] := cToD("01/12/2022") //Data de referência (tipo data)     
    a811Param[08] := 0 //Valor de (tipo numérico)     
    a811Param[09] := 9999999 //Valor Até (tipo numérico)        
    a811Param[10] := "1" //(tipo caracter) - IMPORTANTE:  SEMPRE 2 PARA NÃO APRESENTAR TELA DE SELEÇÃO DE FILIAIS
    a811Param[11] := "1" //Títulos a vencer (tipo caracter  sendo "1" = Sim ou "2" = Não)
    a811Param[12] := "1" //Considera valor (tipo caracter sendo "1" = Total ou  "2" = Saldo)
    a811Param[13] := "2" //(tipo caracter) - IMPORTANTE: SEMPRE 2 PARA NÃO APRESENTAR TELA DE SELEÇÃO DE SITUAÇÃO DE COBRANÇA
    a811Param[14] := {} //(tipo array) - IMPORTANTE: ENVIAR ARRAY VAZIO
    a811Param[15] := "" //(tipo caracter) - IMPORTANTE: SEMPRE VAZIO
    a811Param[16] := "CTE001" //Código do layout da carta a ser utilizado (tipo caracter) 
    a811Param[17] := "1" //Considera clientes bloqueados (A1_MSBLQL) no filtro. Espera-se conteúdo "1" para considerar clientes bloqueados ou "2" para considerar apenas clientes ativos

    MSExecAuto({|a,b,c,d| FINA811(a,b,c,d)}, 0, a811Param, NIL, cFiltro)

    If (lMsErroAuto)
            MostraErro()

            ConOut(Repl("-", 80))
            ConOut(PadC("FINA460 automatic routine ended with error", 80))
            ConOut(PadC("Ends at: " + Time(), 80))
            ConOut(Repl("-", 80))
        Else
            ConOut(Repl("-", 80))
            ConOut(PadC("FINA460 automatic routine successfully ended", 80))
            ConOut(PadC("Ends at: " + Time(), 80))
            ConOut(Repl("-", 80))
        EndIf

    RESET ENVIRONMENT

Return