Histórico da Página

...

Descrição

Ponto de

...

Entrada - Executado na confirmação do registro da Oportunidade de Vendas.

...

Exemplo:

...

User Function FT300VLD()

Local oModel         := PARAMIXB[1]
Local oMdlAD1      := oModel:GetModel("AD1MASTER")
Local nOperation    := oModel:GetOperation()
Local lRet              := .T.

If nOpertation nOperation == MODEL_OPERATION_INSERT .And.   !Empty( oModeloMdlAD1:GetValue( "AD1_PROSPE" ) ) .And.  EmptyEmpty( oModeloMdlAD1:GetValue( "AD1_LOJPRO") )
      lRet lRet := .F.
        HelpHelp( "" ,1, "FT300VLPHelp",,STR001,1) // "Preencher Preencha o campo Loja do Prospect." 

EndIf    

, 1 )
EndIf

Return( lRet )

...

Preview

...