| Produto: | TOTVS Logística WMS
|
|---|---|
| Linha de Produto: | Linha Protheus |
| Segmento: | Logística |
| Módulo: | SIGAWMS - Gestão de Armazenagem |
| Função: | - |
| País: | Todos Países |
| Ticket: | - |
| Requisito/Story/Issue (informe o requisito relacionado) : | - |
Este Ponto de Entrada permite a validação da conferência e o estorno do produto ou volume.
Localizado na validação do produto ou volume na conferência de expedição.
| Nome | Tipo | Descrição |
|---|---|---|
| nTipo | Numérico | Tipo de conferência (1=Carga;2=Pedido;3=Nota Fiscal) |
| lEstorno | Lógico | Indica se é um estorno (.T.=Sim;.F.=Não) |
| cCarga | Caractere | Carga informada na conferência |
| cPedido | Caractere | Pedido informado na conferência |
| cPrdOri | Caractere | Produto origem |
| cProduto | Caractere | Produto |
| nQtd | Numérico | Quantidade a conferir/estornar |
| cLoteCtl | Caractere | Lote do produto |
| cNumLote | Caractere | Sublote do produto |
| aVolume | Array | Volumes da conferência |
| cCodBar | Caractere | Código de barras do produto |
| cCodExp | Caractere | Código da conferência de expedição |
Lógico - .T. ou .F.
Protheus 11.80.
Todos os parâmetros são recebidos na User Function via PARAMIXB conforme consta em Execblock / Customização.
------
#INCLUDE "PROTHEUS.CH"
User Function WV102VLD()
Local lRet := .T. // Se .F., invalida o produto para conferir/estornar
Local nTipo := PARAMIXB[1] // Tipo de conferência (1=Carga;2=Pedido;3=Nota Fiscal)
Local lEstorno := PARAMIXB[2] // Indica se é um estorno (.T.=Sim;.F.=Não)
Local cCarga := PARAMIXB[3] // Carga informada na conferência
Local cPedido := PARAMIXB[4] // Pedido informado na conferência
Local cPrdOri := PARAMIXB[5] // Produto origem
Local cProduto := PARAMIXB[6] // Produto
Local nQtd := PARAMIXB[7] // Quantidade a conferir/estornar
Local cLoteCtl := PARAMIXB[8] // Lote do produto
Local cNumLote := PARAMIXB[9] // Sublote do produto
Local aVolume := PARAMIXB[10] // Volumes da conferência
Local cCodBar := PARAMIXB[11] // Código de barras do produto
Local cCodExp := PARAMIXB[12] // Código da conferência de expedição
If !lEstorno
//-- Condições para validação da conferência
Else
//-- Condições para validação do estorno
EndIf
Return lRet
------
