01. DADOS GERAIS

Produto:

TOTVS Logística WMS

Linha de Produto:

Linha Datasul

Segmento:

Logística

Módulo:MWM
Função:WM9020B
País:Brasil
Ticket:10992834
Requisito/Story/Issue (informe o requisito relacionado) :

FSWSES-1975


02. DESCRIÇÃO

Ponto UPC para identificar necessidade de execução de regra específica para cliente Compactor.

03. LOCALIZAÇÃO

Não se aplica.

04. PARÂMETROS

Não se aplica.

05. RETORNO

Ponto de evento VerifQtdDispBox com valor ValidaQtdDispBox sinaliza necessidade de lógica específica.

06. VERSÕES

12.1.31 ou superiores

08. EXEMPLO

/****************************************************************************************************************
** Cliente.....: Compactor
** Programa....: upc-wm9020b.p
****************************************************************************************************************/
{include/i-epc200.i1} /*Defini»’o da temp-table tt-epc*/

DEFINE INPUT PARAMETER p-ind-event AS CHARACTER NO-UNDO.
DEFINE INPUT-OUTPUT PARAMETER TABLE FOR tt-epc.

IF  p-ind-event = "VerifQtdDispBox":U THEN DO:

    FIND FIRST tt-epc NO-LOCK
         WHERE tt-epc.cod-event     = "VerifQtdDispBox":U
           AND tt-epc.cod-parameter = "VerifQtdDispBox":U NO-ERROR.
    
    IF tt-epc.val-parameter = "YES":U THEN
        RETURN 'OK':U.

    CREATE tt-epc.
    ASSIGN tt-epc.cod-event     = "VerifQtdDispBox":U
           tt-epc.cod-parameter = "ValidaQtdDispBox":U
           tt-epc.val-parameter = "YES":U.
    
    RETURN "OK":U.

END.

RETURN "OK":U.