Histórico da Página

/****************************************************************************************************************
** 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:
      IF   FIND FIRST wm-docto-itens NO-LOCK 
             WHERE ROWID(wm-docto-itens) = TO-ROWID(tt-epc.val-parameter) NO-ERROR.
    
     = "YES":U THEN   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 RETURNTHEN 'OK':U.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.