DT PE A010WMSO - Informar os campos Serviço e Endereço WMS na liberação CQ

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 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

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}