Árvore de páginas

Versões comparadas

Chave

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

...

O ponto de entrada é chamado dentro da função que Desfaz a Separação dos Produtos, para manipular dados do array aEtiqueta. Neste ponto de entrada, além de manipulação do array, é possível efetuar uma validação adicional, retornando o array vazio, bloqueando assim o usuário de continuar.


Variáveis disponíveis para utilização

...

Bloco de código
languagevb
themeMidnight
firstline1
titleACD170VD
linenumberstrue
/*/{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(aArea)
Return aEtq

...