Linha Microsiga Protheus

Árvore de páginas


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

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