Histórico da Página
...
Bloco de código | ||||||||||
---|---|---|---|---|---|---|---|---|---|---|
| ||||||||||
#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 (links_or_referenceshttps://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 |
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas