Histórico da Página

/*/{Protheus.doc} User Function  ACD170VD
    Manipular array aEtiqueta
    @type  Function
    @author TOTVS
    /*/
User Function ACD170VD()
    Local aArea    := GetArea()
    Local aAreaSA2 := SA2->(GetArea())
    Local aEtq     := PARAMIXB      // validação do cliente

    // validação do cliente
    If !Empty(aEtq[06]) .And. !Empty(aEtq[07])
        SA2->(DbSetOrder(1))
        If SA2->(DbSeek(xFilial("SA2")+aEtq[06]+aEtq[07])
           If SA2->A2_MSBLQL == "1" // bloqueado
              VtAlert("Fornecedor " + aEtq[06]+"/"+aEtq[07] + " bloqueado!" ,"ACD170VD",.t.,4000)
              aEtq := {}
           Endif
        Endif
    Endif 

    RestArea(aAreaSA2)  
    RestArea(aArea)
Return aEtq