| 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 VerifQtdDispBox com valor ValidaQtdDispBox 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 = "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 AVAIL tt-epc THEN DO:
FIND FIRST wm-docto-itens NO-LOCK
WHERE ROWID(wm-docto-itens) = TO-ROWID(tt-epc.val-parameter) NO-ERROR.
IF AVAIL wm-docto-itens THEN DO:
FIND FIRST wm-docto
WHERE wm-docto.cod-estabel = wm-docto-itens.cod-estabel
AND wm-docto.cod-local = wm-docto-itens.cod-local
AND wm-docto.id-docto = wm-docto-itens.id-docto NO-LOCK NO-ERROR.
IF AVAIL wm-docto THEN DO:
IF wm-docto.ind-origem-docto = 4 THEN DO: //origem embarque - pre-faturamento
CREATE tt-epc.
ASSIGN tt-epc.cod-event = "VerifQtdDispBox":U
tt-epc.cod-parameter = "ValidaQtdDispBox":U
tt-epc.val-parameter = "YES":U.
END.
END.
END.
END.
RETURN "OK":U.
END.
RETURN "OK":U.
|