| 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 |
Ponto UPC para identificar necessidade de execução de regra específica para cliente Compactor.
Não se aplica.
Não se aplica.
Ponto de evento BuscaPicking com valor BuscaPicking sinaliza necessidade de lógica específica.
12.1.31 ou superiores
/****************************************************************************************************************
** 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.
|