/****************************************************************************************************************
** Cliente.....: Borrachas Vipal
** Programa....: wmprx379-upc.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.

DEFINE VARIABLE htt2                    AS HANDLE NO-UNDO.
                          
DEFINE VARIABLE hQTTErro      AS HANDLE NO-UNDO.
DEFINE VARIABLE hBTTErro      AS HANDLE NO-UNDO.

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

   FIND FIRST tt-epc
        WHERE tt-epc.cod-event     = p-ind-event
          AND tt-epc.cod-parameter = "handle-tt-erro" NO-ERROR.
   IF AVAIL tt-epc THEN DO:

       ASSIGN h-tt-erro = WIDGET-HANDLE(tt-epc.val-parameter).
       ASSIGN htt2 = h-tt-erro:DEFAULT-BUFFER-HANDLE.
        
       CREATE BUFFER hBTTErro FOR TABLE htt2 BUFFER-NAME "tt-erro".
       CREATE QUERY hQTTErro.
       hQTTErro:SET-BUFFERS(hBTTErro).
       IF VALID-HANDLE(hQTTErro) THEN
           ASSIGN hQTTErro:FORWARD-ONLY = YES.
       hQTTErro:QUERY-PREPARE("FOR EACH tt-erro").
       hQTTErro:QUERY-OPEN.
       hQTTErro:GET-FIRST.

       DO WHILE NOT(hQTTErro:QUERY-OFF-END):

           RETURN "NOK":U.

           hQTTErro:GET-NEXT.
       END.
       hQTTErro:QUERY-CLOSE.
    END.

END.

RETURN "OK":U.