F290VAL
| Produto: | |
|---|---|
| Linha de Produto: | |
| Segmento: | |
| Módulo: | |
| Função: | F290VAL |
O Ponto de Entrada F290VAL permite a manipulação de valores no momento em que o registro for selecionado na tela de Aglutinação de titulos.
Ponto de atenção: Durante a manipulação do ponto de entrada utilizar a ALIAS → TRBSE2 para posicionar corretamente no registro selecinado
Segue abaixo um exemplo de utilização.
Tabelas posicionadas:
No momento da chamada do ponto de entrada será posicionado na tabela.
03. EXEMPLOS DE UTILIZAÇÃO
/*--- EXEMPLO 01 ------*/
#INCLUDE "PROTHEUS.CH"
/*{Protheus.doc} User Function F290VAL
(Ponto de entrada para alteração do valor na seleção de registros)
@type Function
@author Cassio S. Dias
@since 14/11/2023
@version 12.1.2310
@param param_name, param_type, param_descr
@return return_var, return_type, return_description
@see (https://tdn.totvs.com/x/iTwKM) user function F290VAL(aDados)
*/
user function F290VAL(aDados)
Local aArea := getarea()
Local cChave := ""
Local cPonto := "ATENCAO P.E - F290VAL"
Local cTipo := ""
aDados:= {TRBSE2->E2_FILIAL,TRBSE2->E2_PREFIXO, TRBSE2->E2_NUM,TRBSE2->E2_PARCELA,TRBSE2->E2_TIPO}
cChave:= aDados[1]+aDados[2]+aDados[3]+aDados[4]+aDados[5]
cTipo := aDados[5]
dbSelectArea("SE2")
dbSetOrder(1)
dbseek(cChave)
if cTipo =='BOL'
Reclock("SE2",.F.)
SE2->E2_HIST := cPonto
MsUnlock()
EndIf
RestArea(aArea)
Return
/*--- EXEMPLO 02 ------*/
#INCLUDE "PROTHEUS.CH"
/*{Protheus.doc} User Function F290VAL
(Ponto de entrada para alteração do valor na seleção de registros)
@type Function
@author Cassio S. Dias
@since 14/11/2023
@version 12.1.2310
@param param_name, param_type, param_descr
@return return_var, return_type, return_description
@see (https://tdn.totvs.com/x/iTwKM)
*/
user function F290VAL()
Local aArea := getarea()
Local cFil := TRBSE2->E2_FILIAL
local cPref := TRBSE2->E2_PREFIXO
local cNumTit := TRBSE2->E2_NUM
Local cParc := TRBSE2->E2_PARCELA
Local cTipo := TRBSE2->E2_TIPO
Local cChave := cFil+cPref+cNumTit+cParc+cTipo
Local cPonto := "Passou pelo P.E - F290VAL"
dbSelectArea("SE2")
dbSetOrder(1) //E2_FILIAL+E2_PREFIXO+E2_NUM+E2_PARCELA+E2_TIPO+E2_FORNECE+E2_LOJA
dbseek(cChave)
if cTipo =='BOL'
Reclock("SE2",.F.)
SE2->E2_HIST := cPonto
MsUnlock()
ENDIF
RestArea(aArea)
RETURN |