Histórico da Página

#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
 

#INCLUDE "PROTHEUS.CH"
#INCLUDE "TMKA272.CH"

User Function TMKLINOK()

Local lReturn := .T.

If !IsInCallStack("TudoOK")//ExecutaNão executa o trecho do PE na gravacao do atendimento, apenas na navegacaovalidacao dadas linhalinhas.
	Alert( 'Passou pelo ponto de entrada TMKLINOK na linha' )
	lReturn := MsgYesNo( 'Aceita os valores?', 'Validação de linha.' )
EndIf

Return lReturn