| Linha de Produto: | Microsiga Protheus® |
|---|---|
| Segmento: | Backoffice |
| Módulo: | ACD - Automação Coleta de Dados |
| Função: | ACDV168 - Geração NFs / Ordem de separação |
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.
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 | Sim | .F. | .T. libera o item .F. não libera item |
/*/{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
// verifica se produto pertence ao grupo do produto, consta no parametro MV_XGRPPLB e força a liberação
cGrupo := POSICIONE("SB1",1,xFilial("SB1")+SC6->C6_PRODUTO,"B1_GRUPO")
If cGrupo $ GetNewPar("MV_XGRPPLB","9999")
lRet := .T.
Endif
// retorna
RestArea(aArea)
Return lRet
|