Histórico da Página

/*/{Protheus.doc} User Function ACD168FLIB
    Permite validar a liberação do item para geração da NFs
    @type  Function
    @author TOTVS
    /*/
User Function ACD168FLIB()
    Local aArea    := GetArea()
    Local aAreaSB1 := SB1->(GetArea())
    Local lRet     := .F.
    Local cGrupo   := ""

    // validação do cliente
    // verifica se produto pertence ao grupo do produto, consta no parâmetro MV_XGRPPLB e força a liberação
    cGrupo := POSICIONE("SB1",1,xFilial("SB1")+SC6->C6_PRODUTO,"B1_GRUPO")
    If cGrupo $ GetNewPar("MV_XGRPPLB","9999")
       lRet := .T.
    Endif    

    RestArea(aAreaSB1)
    RestArea(aArea)
Return lRet