01. DADOS GERAIS
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) : | - |
02. DESCRIÇÃO
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).
03. LOCALIZAÇÃO
Localizado antes de efetuar a gravação dos dados informados pelo usuário para a gravação da liberação/rejeição.
04. PARÂMETROS
Nome | Tipo | Descrição |
---|---|---|
nTipo | Numérico | Tipo da movimentação: 1 = Liberar |
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 |
05. RETORNO
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 |
06. VERSÕES
Protheus 12.1.17 (Janeiro/2018) ou superiores.
07. OBSERVAÇÃO
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.
Quando não houver saldo no endereço origem será retornado, não podendo processar a movimentação de CQ.
Todos os parâmetros são recebidos na User Function via PARAMIXB, conforme consta em Execblock / Customização.
08. EXEMPLO
------
#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}
------