Á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 de liberação de itens para faturamento.

Mesmo que a rotina default não tenha efetuado a liberação, caso tenha divergências por exemplo, é possível forçar a liberação do pedido, retornando .T. no ponto de entrada.


Variáveis disponíveis:

aItensDiverg - Array com itens divergentes

[n,1] := Numero Pedido 
[n,2] := Item
[n,3] := Sequencia
[n,4] := Código do Produto
[n,5] := Quantidade
[n,6] := Registro da tabela CB8
[n,7] := Armazém
[n,8] := Localização


Tabelas posicionadas:

SC5 - Pedido de Vendas

SC6 - Itens Pedido de Vendas

SC9 - Liberação Itens Pedido de Vendas

CB8 - Itens de ordem de separação   

03. PARÂMETROS

NomeTipoDescrição
NIL
Não possui

...

NomeTipoObrigatórioDefaultObservação
lRetLSimNão.F.

.T.  libera o item

.F. não libera item

...

Bloco de código
languagevb
themeMidnight
firstline1
titleACD168FLIB
linenumberstrue
/*/{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 lRet     := .TF.

    // validação do cliente
    If !Empty(aItensDiverg)
       VtBeep(3)
       If VTYesNo("Possui itens com divergência. Deseja continuar a liberação ?","Aviso",.T.)
          lRet := .T.
       Endif 
    Endif

    // retorna
    RestArea(aArea)
Return lRet

...