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 complementar as telas que solicitam a coleta dos produtos no Coletor RF.
Exemplo
Adicionar a informação da quantidade a ser coletada.
03. LOCALIZAÇÃO
Na função que efetua a montagem das telas que solicitam a coleta dos produtos (WmsMontPrd).
04. PARÂMETROS
Nome | Tipo | Descrição |
---|---|---|
lDetProd | Lógico | Indica se o Ponto de Entrada está sendo chamado da tela de detalhes do produto. |
lConf | Lógico | Indica que o Ponto de Entrada está sendo chamado a partir de um processo de conferência. |
nLin | Numérico | Próxima linha a ser impressa na tela do coletor. |
05. RETORNO
Não se aplica.
06. VERSÕES
Protheus 12.1.17 ou superiores.
07. OBSERVAÇÃO
Devido ao funcionamento das rotinas acessadas pelo coletor de dados, o Ponto de Entrada em questão teve que ser adicionado em dois pontos:
- Na tela de detalhes do produto, que será apresentada sempre que o parâmetro MV_WMSVSTC estiver habilitado e for um processo de conferência, ou , sempre que o parâmetro MV_WMSVSTE estiver habilitado e não estiver executando um processo de conferência.
- Na tela que solicita a coleta do produto. Esta tela será apresentada nas seguintes condições:
- Se o Sistema estiver configurado para solicitar a unidade de medida do movimento (DC3_UMMOV = 3) e o parâmetro MV_WMSVSTC estiver habilitado ou
- Se o produto controlar rastro (Lote e/ou Sublote) e o parâmetro MV_WMSLOTE estiver habilitado
Este Ponto de Entrada é valido apenas para a versão do WMS com controle de estoque exclusivo (tabela D14).
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 WV001SCR()
Local aAreaAnt := GetArea()
Local lDetProd := PARAMIXB[1]
Local lConf := PARAMIXB[2]
Local nLin := PARAMIXB[3]
// Se não está sendo chamado da tela de detalhes do produto e não é um processo de conferência, apresenta também a quantidade do movimento
If !lDetProd .And. !lConf
@ nLin ,00 VTSay PadR("Qtde:",VTMaxCol())
@ nLin++,10 VTSay PadR(Str(D12→ D12_QTDMOV),VTMaxCol())
EndIf
Return
------