Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

Bloco de código
languagecpp
themeMidnight
firstline1
titleF290VAL
linenumberstrue
/*--- 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)      /
*/  #INCLUDE "PROTHEUS.CH"

user  user function F290VAL(aDados)

	Local aArea 	:= getarea()
	Local cChave    := ""
	Local cPonto 	:= "PassouATENCAO pelo 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

...