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