Este é o exemplo básico para execução da validação da linhaao navegar nos na navegação das linhas nos itens da Grid e ao realizar após a gravação do 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
Utilize esse exemplo para executar apenas 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.
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
