Linha Microsiga Protheus

Árvore de páginas

  • Criado por Usuário desconhecido (luciene.sousa), última alteração em 21 jul, 2021


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

NomeTipoDescrição
lDetProdLógicoIndica se o Ponto de Entrada está sendo chamado da tela de detalhes do produto.
lConfLógicoIndica que o Ponto de Entrada está sendo chamado a partir de um processo de conferência.
nLinNuméricoPró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:

  1. 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. 
  2. Na tela que solicita a coleta do produto. Esta tela será apresentada nas seguintes condições:
    1. 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
    2. 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

------