| 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 dos itens 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
...
CB8 - Itens de ordem de separação
...
Não possui.
...
| Nome | Tipo | Obrigatório | Default | Observação |
|---|---|---|---|---|
| lRet |
| Lógico | Sim | .F. | .T. |
- libera o item .F. - não libera o 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 aAreaSB1 := SB1->( GetArea() )
Local lRet := .F.
Local cGrupo := ""
// validação do cliente
cGrupo If:= !EmptyPOSICIONE(aItensDiverg)
VtBeep(3 "SB1", 1, xFilial( "SB1" ) + SC6->C6_PRODUTO, "B1_GRUPO" )
If cGrupo $ IfGetNewPar( VTYesNo("Possui itens com divergência. Deseja continuar a liberação ?","Aviso",.T.)
"MV_XGRPPLB", "9999" )
lRet := .T.
Endif Endif
Endif
RestArea( // retornaaAreaSB1 )
RestArea( aArea )
Return lRet
|
| Templatedocumentos |
|---|
...
