Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

Exemplo:

 

User Function FT300VLD()

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

If nOperation == MODEL_OPERATION_INSERT .And. !Empty( oMdlAD1:GetValue( "AD1_PROSPE" ) ) .And. Empty( oMdlAD1:GetValue( "AD1_LOJPRO") )
      lRet := .F.
      Help( ,, "Help",,"Preencha o campo Loja do Prospect.", 1 )
EndIf

Return( lRet )

 

 

IdiomaPortuguês (Brasil)
VersõesMicrosiga_Protheus 12
Sistemas Operacionais SuportadosTodos
Compatível com as Bases de DadosTodos
ParâmetrosoModel - Modelo de Dados da Oportunidade
RetornolRet - .T. = Prossegue com o processo, .F. Retorna o processo para que o usuário avalie.
Programa/FonteFATA300.PRW