Histórico da Página

Parâmetros iniciais: Os parâmetros iniciais vão permitir efetuar os filtros de quais clientes, o intervalo de vencimento, valor, situação de cobrança, filiais, títulos ainda a vencer e determinar a data de apuração de juros e multa que serão considerados para envio das cartas de cobrança. É possível complementar os filtros de forma personalizada, para isso, deverá ser implementado um ponto de entrada (F811QRY vide detalhamento na seção pontos de entrada desse documento) que permita complementar a query que considerará os parâmetros padrões.

Seleção de layout: Será apresentada uma relação dos layouts de carta de cobrança cadastrados para que seja possível selecionar qual o layout que será utilizado para envio. Só poderá ser selecionado um único layout de carta de cobrança por envio.

Seleção de cliente: Será apresentada uma relação dos clientes que atendem aos critérios do filtro, para que possam ser selecionados para envio das carta de cobrança. Todos serão apresentadas na tela já selecionados/marcados.

Seleção de títulos: O processo de seleção dos títulos que irão compor a carta de cobrança segue os critérios definidos e sugeridos no envio das cartas.

Existe a possibilidade de enviar títulos que estão ainda a vencer, de forma adicional. Ou seja, incluí-los como um lembrete e não como uma cobrança. Estes serão sugeridos, mas liberados para exclusão da carta, caso desejado.

É importante ressaltar que, com a implementação do Bloqueio por Situação de Cobrança (vide  http://tdn.totvs.com/pages/viewpage.action?pageId=381044073), os títulos em situação de cobrança com bloqueio configurado para as cartas de cobrança não estarão disponíveis neste processo de envio de e-mail. Sendo assim, estes não serão listados na seleção. Para efetuar este bloqueio, será adicionado um novo processo padrão aos já existentes e o mesmo será validado a cada envio.

Além disso, um título é elegível para o envio de cartas enquanto ainda tiver saldo em aberto.

1 - No dia 01/03/2015, foi enviado um e-mail com os títulos abaixo para cobrança, considerando vencimentos com mais de 10 dias de atraso:

2 - Em 15/03/2015, o cliente efetuou o pagamento das duas parcelas com maior atraso, mas não quitou a parcela de 01/02/2015. Dessa forma, o título não quitado continuará sendo enviado nas novas cartas de cobrança, com o número de dias de atraso atualizado.

Ressaltamos que este exemplo considera somente o vencimento, mas que o título deve respeitar todas as regras do filtro.

Para toda e qualquer carta (enviada ou impressa) é gerado um registro na tabela FWT, que contém o layout utilizado, a data do envio, além da chave de identificação.

Todas as grids possuem a opção de marcar ou desmarcar todos os registros (com exceção da grid de layouts de cartas de cobrança, onde somente um layout poderá ser selecionado).

IMPORTANTE: É uma premissa que o e-mail no cadastro de clientes esteja preenchido para que a cobrança seja enviada e que o serviço de envio de e-mail do Protheus esteja configurado.

Ao final do envio, será gravado um registro de log da carta enviada para emissão de relatório. Para tanto, serão armazenadas as seguintes informações de cada título enviado:

• • Número de processo - para identificação da carta enviada.
  • Chave do título
  • Data de Envio
  • Código do layout

IMPORTANTE: Um título pode ter N ocorrências nesta tabela, mas em processos diferentes. Pode ocorrer de uma carta ser enviada mais de uma vez para um cliente em uma mesma data, e não haverá restrição quanto a isso, pois durante o dia poderão ocorrer baixas e inclusão de novos documentos no Protheus.

Somente estes dados são suficientes para reproduzir o e-mail com a cobrança enviada:

• • Texto da carta (opcional)
  • Listagem de títulos vencidos
  • Listagem de título a vencer

Os títulos dos tipos a seguir são desconsiderados na seleção, além dos parâmetros informados, já que não representam valores devidos de cobrança:

• Provisórios (PR)
• Recebimentos Antecipados (RA)
• Taxas (TX, TXA) 
• NCC
• Abatimentos

#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