Linha Microsiga Protheus

Árvore de páginas

Carregando...
Tempo aproximado para leitura: 5 minutos

 





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


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