Histórico da Página

{include/i-prgvrs.i BOSC118-UPC 2.00.00.001 } /*** 010001 ***/
{include/i-epc200.i bosc118} /** Defini»’o tt-EPC **/

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

IF p-ind-event = "VerifGeraDocWMSVerifMovtoEstoq" THEN DO:      

    FIND FIRST tt-epc NO-LOCK
         WHERE tt-epc.cod-event = p-ind-event NO-ERROR.

    IF AVAIL tt-epc then
        CREATE tt-epc.
        ASSIGN tt-epc.cod-event     = p-ind-event
               tt-epc.cod-parameter = "RetornoEPC"
               tt-epc.val-parameter = "NOK".

    END. 
END.