| Produto: | |
|---|---|
| Linha de Produto: | |
| Segmento: | |
| Módulo: | |
| Função: | F716BLQR |
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).
Retorno do ponto de entrada:
O ponto de entrada deve retornar uma variável do tipo Array contendo duas posições.
Onde:
Não se aplica
04. EXEMPLO DE UTILIZAÇÃO
#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 |