...
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
...
| 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 := .F.
Local cGrupo := ""
// validação do cliente
If !Empty(aItensDiverg)
VtBeep(3)
// verifica se produto pertence ao grupo do produto, consta no parametro MV_XGRPPLB e força a liberação
cGrupo If VTYesNo("Possui itens com divergência. Deseja continuar a liberação ?","Aviso",.T.)
:= POSICIONE("SB1",1,xFilial("SB1")+SC6->C6_PRODUTO,"B1_GRUPO")
If cGrupo $ GetNewPar("MV_XGRPPLB","9999")
lRet := .T.
Endif
Endif
// retorna
RestArea(aArea)
Return lRet
|
...
