Este é o exemplo básico para a execução para execução da validação da linhaao navegar nos itens da GridGrid e ao realizar a 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 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 apenas para a execução da validação da linhaao navegar nos itens da Grid e da validação no momento da gravação.Grid
Bloco de código
linenumbers
true
#INCLUDE "PROTHEUS.CH"
#INCLUDE "TMKA272.CH"
User Function TMKLINOK()
Local lReturn := .T.
If !IsInCallStack("TudoOK")//Executa naa edicao por linha.
Alert( 'Passou pelo ponto de entrada TMKLINOK na linha' )
lReturn := MsgYesNo( 'Aceita os valores?', 'Validação de linha.' )
EndIf
Return lReturn
