O Exemplo 1 tem como objetivo executar a validação na navegação das linhas nos itens da Grid e também realizar a validação geral após salvar o atendimento.
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' )
lReturn := MsgYesNo( 'Aceita os valores?', 'Validação.' )
Return lReturn
Totvs custom tabs box items
default
no
referencia
Exemplo02
O Exemplo 2 tem como objetivo executar a validação apenas na navegação das linhas nos itens da Grid.
Bloco de código
linenumbers
true
#INCLUDE "PROTHEUS.CH"
#INCLUDE "TMKA272.CH"
User Function TMKLINOK()
Local lReturn := .T.
If !IsInCallStack("TudoOK")//Executa a edicao por linha.
Alert( 'Passou pelo ponto de entrada TMKLINOK na linha' )
lReturn := MsgYesNo( 'Aceita os valores?', 'Validação de linha.' )
EndIf
Return lReturn
