Histórico da Página

Ponto de Entrada - Acionado antes da gravação da Proposta Comercial

Exemplo:

User Function FT600GRV()

Local oModel := PARAMIXB[1]
Local oMdlProd := oModel:GetModel( "ADZPRODUTO" )
Local oMdlAces := oModel:GetModel( "ADZACESSOR" )
Local nOperation := oModel:GetOperation()
Local lRet := .F.

If nOperation == MODEL_OPERATION_UPDATE
   If oMdlProd:GetValue( "ADZ_QTDVEN" ) > 10 .Or. oMdlAces:GetValue( "ADZ_QTDVEN" ) > 2
       lRet := .T.
       Alert( "FT600GRV - Pos Gravação da Proposta" )
   EndIf
EndIf

Return( lRet )