Este é o exemplo básico para a execução da validação da linha selecione.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 os Pedidos de Venda que necessitam das informações de rateio dos itens do Pedido de Venda por Centros de Custo: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
