Exibir origem

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.

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.

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.

Importante:

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:

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:

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

Situação de cobrança

<!-- esconder o menu --> 


<style>
div.theme-default .ia-splitter #main {
    margin-left: 0px;
}
.ia-fixed-sidebar, .ia-splitter-left {
    display: none;
}
#main {
    padding-left: 10px;
    padding-right: 10px;
    overflow-x: hidden;
}

.aui-header-primary .aui-nav,  .aui-page-panel {
    margin-left: 0px !important;
}
.aui-header-primary .aui-nav {
    margin-left: 0px !important;
}
</style>