Histórico da Página

...

O Ponto de Entrada F290VAL permite a manipulação de valores no momento em que o registro for selecionada selecionado na tela de Aglutinação de titulos.

Ponto de atenção: Durante a manipulação do ponto de entrada utilização 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.

- SE2 - Contas a Pagar

03. EXEMPLO EXEMPLOS DE UTILIZAÇÃO

Bloco de código

language	cpp
theme	Midnight
firstline	1
title	F290VAL
linenumbers	true

/*--- 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

...

Árvore de páginas

Versões comparadas

Versão antiga 3

Nova versão Atual

Chave