Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

Índice
 





Informações
titleNota

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.

...

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.

Informações

...

title

...

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
titleInformaçõ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


Deck of Cards
idUtilização
Card
idUtilização
labelManual

Para efetuar uma solicitação de transferência:

  1. 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.


Image ModifiedImportante:

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 Image Modified, aguardando aprovação ou rejeição

...

.

Card
idUtilização
labelAutomático

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:


Bloco de código
languagesql
themeFadeToGrey
titleFa620Auto
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:

Bloco de código
languagesql
themeFadeToGrey
titleFINA620
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

HTML
<!-- 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>

Veja também

...