Árvore de páginas

Ponto de Entrada - executado ao alterar ou incluir a quantidade vendida no cadastro da proposta. Dessa maneira o ponto de entrada valida a quantidade digitada na proposta comercial.

Exemplo:


User Function FT600QTD()

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

If Alltrim( oModel:GetValue( "ADZ_PRODUT" ) ) == Alltrim( "00000001" ) .And. oModel:GetValue( "ADZ_QTDVEN" ) <= 2
     lRet := .F.
     Help( ,, "Help",,"Para este produto a quantidade precisa ser superior a 3.", 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 Proposta
Retorno.T. - Validado, .F. - Não validado
Programa/FonteFata600.Prw


  • Sem rótulos