| Informações |
|---|
|
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.
...
...
|
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
| Deck of Cards |
|---|
|
| Card |
|---|
| 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.
 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 |
|---|
| id | Utilização |
|---|
| label | Automá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 |
|---|
| language | sql |
|---|
| theme | FadeToGrey |
|---|
| title | 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: | Bloco de código |
|---|
| language | sql |
|---|
| theme | FadeToGrey |
|---|
| title | 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
| 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
...
