WM9044 - Ponto de Entrada localiza-it-requisicao para posicionar a tabela it-requisição de forma específica

{include/i-epc200.i} /*Defini‡Æo tt-EPC*/

def input param p-ind-event as char   no-undo.
def input-output param table for tt-epc.
DEFINE VARIABLE r-rowid AS ROWID       NO-UNDO.

DEFINE BUFFER bf-wm-docto-itens FOR wm-docto-itens.
DEFINE BUFFER bf-wm-docto FOR wm-docto.

IF p-ind-event = "localiza-it-requisicao" THEN DO:

    FIND FIRST tt-epc 
         WHERE tt-epc.cod-event     = "localiza-it-requisicao" 
           AND tt-epc.cod-parameter = "rowid-wm-docto-itens" NO-LOCK NO-ERROR.
    IF AVAIL tt-epc THEN do:
        ASSIGN r-rowid =  TO-ROWID(tt-epc.val-parameter).

        FIND FIRST bf-wm-docto-itens NO-LOCK
             WHERE ROWID(bf-wm-docto-itens) = r-rowid NO-ERROR.

        FIND FIRST bf-wm-docto NO-LOCK
             WHERE bf-wm-docto.cod-estabel = bf-wm-docto-itens.cod-estabel
               AND bf-wm-docto.cod-local   = bf-wm-docto-itens.cod-local
               AND bf-wm-docto.id-docto    = bf-wm-docto-itens.id-docto NO-ERROR.
              
        
        FIND FIRST it-requisicao NO-LOCK
             WHERE it-requisicao.nr-requisicao = int(bf-wm-docto.num-docto-origem)
               AND it-requisicao.it-codigo     = bf-wm-docto-itens.cod-item NO-ERROR.
		
		create tt-epc.
		assign tt-epc.cod-event     = "localiza-it-requisicao":U
		       tt-epc.cod-parameter = "retorna-it-requisicao":U 
			   tt-epc.val-parameter = string(ROWID(it-requisicao)).
		
	End.
    RETURN "OK":U.
END.

RETURN "OK":U.