01. DADOS GERAIS
Produto: | TOTVS Backoffice |
---|---|
Linha de Produto: | Linha Protheus |
Segmento: | Backoffice |
Módulo: | TOTVS Backoffice (Linha Protheus) - Financeiro (SIGAFIN) |
Função: | F716BLQR |
02. DESCRIÇÃO
Ponto de entrada F716BLQR permite efetuar o bloqueio do processo de estorno de uma aplicação.
Utilizado na rotina de Aplicações e empréstimos - FINA716.
Tabelas posicionadas:
No momento da chamada do ponto de entrada serão posicionadas as tabelas SEH (Controle Aplicação/Empréstimo) e SEI (Movimento Aplicação/Empréstimo).
- SEH - Posicionado na aplicação onde ocorreu o resgate.
- SEI - Posicionado no primeiro registro da sequência do resgate.
Retorno do ponto de entrada:
O ponto de entrada deve retornar uma variável do tipo Array contendo duas posições.
Onde:
- 1º Posição - Variável lógica que indica se será possível realizar o estorno do resgate.
- Verdadeiro: Permite efetuar o estorno.
- Falso: Não permite efetuar o estorno.
- 1º Posição - Variável lógica que indica se será possível realizar o estorno do resgate.
-
- 2º Posição - Mensagem que será exibida em tela para caso de bloqueio.
- A mensagem será exibida somente quando o conteúdo da 1º posição for igual a falso.
- 2º Posição - Mensagem que será exibida em tela para caso de bloqueio.
03. PARAMETRO
Não se aplica
04. EXEMPLO DE UTILIZAÇÃO
F716BLQR
#INCLUDE "totvs.ch" /*/{Protheus.doc} User Function F716BLQR Permite efetuar o bloqueio do estorno de um resgate de aplicação. O P.E deve retornar um array sendo na primeira posição um valor lógico que indica se deverá ou não ser realizado a operação e na segunda posição uma mensagem para o caso de bloqueio. Tabelas posicionadas SEH e SEI - (SEI no primeiro registro da sequência do resgate). @type Function @author Totvs @since 31/07/2023 @version 1.0 @see https://tdn.totvs.com/pages/viewpage.action?pageId=780032412 /*/ User Function F716BLQR() as Array Local aResponse := Array(2) as Array Local aAreaSEH := SEH->(FwGetArea()) // Array de retorno do P.E aResponse[1] := .T. // Define se é possivel efetuar o estorno do resgate .T. = Sim, .F. = Não. aResponse[2] := "" // Define a mensagem que será exibida em caso de bloqueio (aResponse[1] = .F.) SEI->(DbSetOrder(2)) If SEI->(DBSeek(SEI->EI_FILIAL + SEI->EI_APLEMP + SEI->EI_NUMERO + SEI->EI_REVISAO + SEI->EI_MOTBX + DTOS(SEI->EI_DTDIGIT) + "VL" + SEI->EI_SEQ)) If SEI->EI_VALOR > 100000 aResponse[1] := .F. aResponse[2] := "Não é possível estornar resgates com valor acima de cem mil" EndIf EndIf FwRestArea(aAreaSEH) Return aResponse
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas