Linha Microsiga Protheus - Espanhol

Atalhos

Árvore de páginas

01. DATOS GENERALES

Producto:

TOTVS Backoffice

Línea de producto:

Línea Protheus

Segmento:

Backoffice

Módulo:

TOTVS Backoffice (Línea Protheus) - Financiero (SIGAFIN)

Función:

F290VAL 


02. DESCRIPCIÓN

El Punto de entrada F290VAL permite el manejo de valores en el momento en el que el registro se seleccione en la pantalla de Agrupación de títulos.

Punto de atención: Durante el manejo del punto de entrada utilice el ALIAS → TRBSE2 para seleccionar correctamente en el registro escogido

A continuación veremos un ejemplo de utilización.



Tablas seleccionadas:

En el momento de la activación del punto de entrada se seleccionará en la tabla.

    • SE2 - Cuentas por pagar


03. EJEMPLOS DE UTILIZACIÓN

F290VAL
/*--- EXEMPLO 01 ------*/


 #INCLUDE "PROTHEUS.CH"

/*{Protheus.doc} User Function F290VAL
    (Punto de entrada para modificación del valor en la selección 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 	:= "ATENCIÓN  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


/*--- EJEMPLO 02 ------*/

#INCLUDE "PROTHEUS.CH"

/*{Protheus.doc} User Function F290VAL
    (Punto de entrada para modificación del valor en la selección 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 	:= "Pasó por el 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