...
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
| Nome | Tipo | Descrição |
|---|---|---|
| NIL | Não possui |
...
| Nome | Tipo | Obrigatório | Default | Observação |
|---|---|---|---|---|
| lRet | L | SimNão | .F. | .T. libera o item .F. não libera item |
...
| Bloco de código | ||||||||||
|---|---|---|---|---|---|---|---|---|---|---|
| ||||||||||
/*/{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
|
...
