Histórico da Página

01.

...

DATOS GENERALES

SolucaoCrossLinha ProdutoLinha

Línea Protheus

Segmento

TOTVS Backoffice (

Linha

Línea Protheus) -

Financeiro

Financiero (SIGAFIN)

Função

Produto:
Solucoes_totvs_cross
Producto:	TOTVS Backoffice
Línea de	producto:
Linhas_totvs
Linha
Segmento:
Segmentos_totvs
Backoffice
Módulo:
Modulos_cross_segmentos
ModulosCrossSegmentos
Función:	F290VAL

02.

...

DESCRIPCIÓN

O Ponto El Punto de Entradaentrada F290VAL permite a manipulação el manejo de valores no en el momento em en el 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.

- SE2 - Contas a Pagar

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ÓN03. 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
    (PontoPunto de entrada para alteraçãomodificación dodel valor naen la seleçãoselecció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 	:= "ATENCAOATENCIÓ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


/*--- EXEMPLOEJEMPLO 02 ------*/

#INCLUDE "PROTHEUS.CH"

/*{Protheus.doc} User Function F290VAL
    (PontoPunto de entrada para alteraçãomodificación dodel valor naen la seleçãoselecció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 	:= "PassouPasó por peloel 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

...

Atalhos

Árvore de páginas

Versões comparadas

Versão antiga 1

Nova versão Atual

Chave

01.

DATOS GENERALES

02.

DESCRIPCIÓN