| Produto: | TOTVS Logística WMS |
|---|---|
| Linha de Produto: | Linha Datasul |
| Segmento: | Logística |
| Módulo: | MWM |
| Função: | WM9020 |
| 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 item-busca-end-normal com valor novo-valor sinaliza necessidade de lógica específica.
12.1.31 ou superiores
/****************************************************************************************************************
** Cliente.....: Compactor
** Programa....: upc-wm9020.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 = "item-busca-end-normal":U THEN DO:
FIND FIRST tt-epc NO-LOCK
WHERE tt-epc.cod-event = "item-busca-end-normal":U
AND tt-epc.cod-parameter = "atual-valor":U NO-ERROR.
/* se ja nao eh exclusivo para area de picking, nao faz nada */
IF entry(1, tt-epc.val-parameter,";") = "NO":U THEN
RETURN 'OK':U.
FIND FIRST wm-docto NO-LOCK
WHERE ROWID(wm-docto) = TO-ROWID(ENTRY(2, tt-epc.val-parameter, ";")) 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 = "item-busca-end-normal":U
tt-epc.cod-parameter = "novo-valor":U
tt-epc.val-parameter = "NO":U.
END.
END.
RETURN "OK":U.
END.
RETURN "OK":U.
|