Este é o exemplo básico para a execução da validação da linha ao navegar nos itens da Grid
Bloco de código
linenumbers
true
#INCLUDE "PROTHEUS.CH"
#INCLUDE "TMKA272.CH"
User Function TMKLINOK()
Local lReturn := .T.
Alert( 'Passou pelo ponto de entrada TMKLINOK na linha' )
lReturn := MsgYesNo( 'Aceita os valores?', 'Validação de linha.' )
Return lReturn
Totvs custom tabs box items
default
no
referencia
Exemplo02
Utilize esse exemplo para validar as linhas e na gravação.
Bloco de código
linenumbers
true
#INCLUDE "PROTHEUS.CH"
#INCLUDE "TMKA272.CH"
User Function TMKLINOK()
Local lReturn := .T.
If !IsInCallStack("TudoOK")//Executa na edicao por linha.
Alert( 'Passou pelo ponto de entrada TMKLINOK na linha' )
lReturn := MsgYesNo( 'Aceita os valores?', 'Validação de linha.' )
EndIf
Return lReturn
