Linha Datasul

Árvore de páginas


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 BuscaPicking com valor BuscaPicking sinaliza necessidade de lógica específica.

06. VERSÕES

12.1.31 ou superiores

08. EXEMPLO

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 = "BuscaPicking":U THEN DO:

    FIND FIRST tt-epc NO-LOCK
         WHERE tt-epc.cod-event     = "BuscaPicking":U
           AND tt-epc.cod-parameter = "BuscaPicking":U NO-ERROR.

    IF AVAIL tt-epc THEN DO:
        IF tt-epc.val-parameter = "YES" THEN DO:
           CREATE tt-epc.
           ASSIGN tt-epc.cod-event     = "BuscaPicking":U
                  tt-epc.cod-parameter = "retorno":U.

           DO iContOrig = 1 TO 15:   
              IF PROGRAM-NAME(iContOrig) MATCHES "*upc-wm9020.*":U THEN DO:
                 ASSIGN tt-epc.val-parameter = "YES":U.
              END.
           END.
        END.
    END.

    RETURN "OK":U.
END.

RETURN "OK":U.