| Produto: |
| ||||||||||||||||
|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
| Linha de Produto: |
| ||||||||||||||||
| Segmento: |
| ||||||||||||||||
| 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 informar os campos Serviço WMS e Endereço Origem WMS na Liberação de CQ, quando efetuada via coletor de dados (ACD).
Localizado antes de efetuar a gravação dos dados informados pelo usuário para a gravação da liberação/rejeição.
| Nome | Tipo | Descrição |
|---|---|---|
nTipo | Numérico | Tipo da Movimentação (1 = Liberar / 2 = Rejeitar) |
cProduto | Caractere | Produto que está sendo liberado/rejeitado pelo CQ |
| cArmazem | Caractere | Armazém no qual o produto está sendo liberado/rejeitado pelo CQ |
| nQtde | Numérico | Quantidade a ser liberada/rejeitada pelo CQ |
| Nome | Tipo | Descrição |
|---|---|---|
cServWMS | Caractere | Serviço WMS para ser utilizado na integração da movimentação de CQ |
| cEndeWMS | Caractere | Endereço origem WMS no qual está sendo feito a movimentação de CQ |
| lProcessa | Lógico | Indicador se deve ou não processar o registro de movimentação de CQ |
12.1.17/Janeiro 2018 ou superiores
Ficará a cargo do Ponto de Entrada efetuar as corretas validações do serviço WMS, que deve ser um serviço do tipo entrada com a função de endereçamento e deve
também validar se o endereço origem WMS possui saldo disponível para efetuar a movimentação de CQ.
...
Todos os parâmetros são recebidos na User Function via PARAMIXB, conforme consta em Execblock / Customização.
| Bloco de código | ||||||||
|---|---|---|---|---|---|---|---|---|
| ||||||||
#INCLUDE "PROTHEUS.CH"
User Function A010WMSO()
Local nTipo := PARAMIXB[1]
Local cProduto := PARAMIXB[2]
Local cArmazem := PARAMIXB[3]
Local nQtde := PARAMIXB[4]
Local cServWMS := ""
Local cEndeWMS := ""
Local lProcessa := .T.
If IntWms(cProduto)
cServWMS := "001"
cEndeWMS := GetEndWMS(cArmazem) // Static Function que busca o endereço WMS
lProcessa := ValEndWMS(cArmazem,cEndeWMS,cProduto,nQtde) // Static Function que valida endereço WMS
EndIf
Return {cServWMS,cEndeWMS,lProcessa}
|
...
