Nota
Essa rotina foi ajustada para atender a Lei Geral de Proteção de Dados (Lei n° 13.70), sendo que alguns campos que apresentam informações consideradas como dados sensíveis e/ou pessoais, serão ofuscados deixando de ser legíveis.
01. Visão geral
Essa rotina permite que uma empresa corporativa possa transferir os débitos dos clientes (títulos a receber) entre as filiais da empresa e/ou entre outros clientes. Esse recurso atende, principalmente, o ramo de transportes, permitindo que uma empresa (corporativa) possa cadastrar seus débitos entre as filiais que originaram os títulos do Contas a Receber.
O sistema disponibiliza um questionário (checklist), configurado pela tabela AA - Checklist para Transferência de Débito, no módulo Configurador, para que a empresa defina se a cobrança deve ser transferida. No entanto, caso seja necessário implementar opções de verificação no checklist, a Tabela AA pode ser alterada, por meio do Configurador. Dessa forma, somente será permitida a inclusão da solicitação, se todas as questões do checklist forem respondidas com Sim (marcadas com X).
A Tabela SE6 - Solicitações de Transferência armazena todas as informações da transferência, e cada solicitação é gravada com um número sequencial no campo Nº. Solic.
O campo Parc. Dest. armazena a parcela do título gerado na filial de destino (débito), originado pela rotina Transferência de títulos a receber entre filiais, gravando e validando esse código.
Para que seja efetivada a transferência, a filial de destino pode aceitar ou rejeitar essa solicitação, por meio da rotina Aprovação/Rejeição solicitação.
Dica:
O campo Fil. Débito permite que seja gravada a filial de débito de título (em customização) ou pelo módulo Gestão de Transportes (sistema original). Esse campo é a referência para a seleção das solicitações de transferências, indicando, numa base de Contas a Receber compartilhada, qual é a filial de débito.
Informações
O sistema não permite a solicitação de transferência nas seguintes situações:
- quando o título não estiver em carteira;
- quando o título já sofreu algum tipo de baixa;
- quando já houve solicitação de transferência anterior para esse título.
- quando o tipo de título for do tipo recebimento antecipado - "RA". Esse bloqueio ocorre devido, já haver ocorrido movimentação bancária, causando assim uma quebra de consistência das informações processadas.
02. Utilização
Para efetuar uma solicitação de transferência:
- Em Solic. de Transf., selecione o título desejado e clique em Solicitar.
2. O sistema apresenta a tela de Solicitação de Transferência.
3. Na área superior da tela, são relacionados os dados do título.
4. Na área central, o sistema apresenta o checklist. Todas as questões devem ser assinaladas.
|
Somente será permitida a inclusão de uma solicitação de transferência, se todas as questões do checklist forem respondidas com Sim (marcadas com X). |
5. Na área inferior, selecione a filial de débito (destino) ou o cliente (débito) e informe o histórico da solicitação de transferência, se desejar.
6. Confira os dados e confirme.
7. Observe que título é sinalizado com a legenda na cor vermelha 
, aguardando aprovação ou rejeição.
A rotina possui duas formas de utilização da rotina automática, uma chamando a função Fa620Auto, outra via execauto.
Chamando a função Fa620Auto, é possível solicitar penas transferência entre filiais, já via execauto é possível a alteração de cliente também.
Exemplo de utilização da rotina automática pela função Fa620Auto:
Fa620Auto
User Function FINA620AUTO( )
LOCAL nRecSe1 := 18 //Recno do titulo Principal
LOCAL cfilDest := "02" //Filial de Destino
LOCAL cHist := "Teste Transferência" //Histórico da transferência
LOCAL lAprov := .T. //Executa aprovação da transferência automaticamente
LOCAL lMsgErro := .T. //Apresenta mensagem de erro "Mostraerro( )".
PRIVATE lMsErroAuto := .F.
Fa620Auto(nRecSe1,cfilDest,cHist, lAprov, lMsgErro)
If lMsErroAuto
MostraErro( )
Else
Alert("Título transferido com sucesso!")
Endif
Return
Exemplo de utilização da rotina automática por execauto:
FINA620
User function ExFin620()
Local cE1_Pref := " "
Local cE1_Num := "00102031 "
Local cE1_Cliente := "000001"
Local cE1_Loja := "01"
Local cFilSE1 := "D MG 01 "
Local cFilDest := "D MG 01 "
Local aCab := {}
Private lMsErroAuto := .F.
RPCSETENV("T1", "D MG 01", "teste", "123", "FIN", "FINA620")
If SE1->( dbSeek( cFilSE1+cE1_Pref+cE1_Num+" "+"NF"))
aadd(aCab, {"E6_FILDEB",cFilDest})
aadd(aCab, {"E6_CLIENTE",cE1_Cliente})
aadd(aCab, {"E6_LOJA",cE1_Loja})
aadd(aCab, {"AUTHISTDEB","Teste"})
//Inclusao de Solicitação de transferencia
MSExecAuto({|a, b| FINA620(a,b)}, aCab,3)
If lMsErroAuto
mostraerro()
Else
MsgStop("Processo realizado com sucesso.")
EndIf
Else
MsgStop("Titulo não encontrado.")
EndIf
Return
03. Informações relacionadas
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas