...
Produto Producto: |
| ||||
---|---|---|---|---|---|
Linha Línea de Produtoproducto: |
Linha | Linha Línea Protheus | |||
Segmento: | Segmentos_totvs | | Segmento | Backoffice||
Módulo: |
| ||||
Função Función: | F716BLQR |
...
Ponto Punto de entrada F716BLQR permite efetuar o bloqueio do processo de estorno de uma aplicação.efectuar el bloqueo del proceso de reversión de una inversión.
Se utiliza en la rutina de Inversiones y préstamos Utilizado na rotina de Aplicações e empréstimos - FINA716.
Tabelas Tablas 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éstimoEn el momento en que se llama al punto de entrada, se posicionarán las tablas SEH (Control Inversión/Préstamo) y SEI (Movimiento Inversión/Préstamo).
Respuesta del punto Retorno do ponto de entrada:
O ponto El punto de entrada deve retornar uma variável do tipo Array contendo duas posições.debe devolver una variable del tipo Array que contenga dos posiciones.
DondeOnde:
...
Não No se aplica
04. EXEMPLO EJEMPLO DE UTILIZAÇÃOUTILIZACIÓN
Bloco de código | ||||||||||
---|---|---|---|---|---|---|---|---|---|---|
| ||||||||||
#INCLUDE "totvs.ch" /*/{Protheus.doc} User Function F716BLQR Permite efectuar efetuarel obloqueo bloqueiode dola estornoreversión de umuna resgateretirada de aplicaçãoinversión. OEl P.E devedebe retornardevolver umun array sendo na primeira posição um considerando que en la primera posición es un valor lógico que indica si se deverádebe ourealizar nãoo serno realizadola aoperación, operaçãoy een nala segunda posiçãoposición umaun mensagemmensaje parasi o caso de bloqueiohubiera bloqueo. TabelasTablas posicionadas SEH ey SEI - (SEI noen el primeiroprimer registro de dala secuencia sequênciade dola resgateretirada). @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 si se épuede possivelefectuar efetuarla oreversión estornode dola resgateretirada .T. = SimSí, .F. = NãoNo. aResponse[2] := "" // Define ael mensagemmensaje que seráaparecerá exibidasi emhubiera casobloqueo 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ãoNo ése possívelpuede estornarrevertir resgatesretiradas comcon valor acimasuperior dea cemcien mil" EndIf EndIf FwRestArea(aAreaSEH) Return aResponse |
...