Histórico da Página

#DEFINE PULAR Chr(10) // SALTO DE LINHA
 
 
User Function WMSA5052()
    Local cAliasSD4 :=  PARAMIXB[1]
    Local cMenssagem         := ""
    Local lRet         := .T.
    Local  aAreaSD4  := (cAliasSD4)->(GetArea())
  
    
    DbSelectArea(cAliasSD4)
 
    lRet := U_UWMS505Z((cAliasSD4)->D4_COD)
    If !lRet
            cMenssagem += "Produto:                    "+(cAliasSD4)->D4_COD+" "+ PULAR
            cMenssagem += "Descrição:                  "+(cAliasSD4)->D4_DESC+" "+ PULAR
            cMenssagem += "Lote:                   "+(cAliasSD4)->D4_LOTECTL+" "+ PULAR
            MsgAlert(cMenssagem,"Seu Titulo")
    EndIf
    RestArea(aAreaSD4)
Return lRet
 
User Function UWMS505Z(lProduto)
    //função para validação
    Local lRet := .F.
    If lProduto = 'WMSZN100A'
        lRet := .T.
    Else
       lRet := .F.
    EndIf
Return lRet