UPC - CP0309

Prezados,

Estou fazendo uma UPC no CP0309 e precisando capturar o campo Data da Transação
que aparece numa telinha após clicar no botão "Requisição Automática" e não estou conseguindo.
Alguém já fez isso?

Lucas.

É tranquilo..

Segue abaixo código pronto, lembrando que o evento que utilizei é disparado no botão OK da tela de requisições automáticas.

Código:

PROCEDURE BeforeReqDevAuto :
/*------------------------------------------------------------------------------
  Purpose:     
  Parameters:  <none>
  Notes:       
------------------------------------------------------------------------------*/
   DEFINE VARIABLE wh-tt-requis AS WIDGET-HANDLE      NO-UNDO.

   DEFINE VARIABLE wh-QueryBuffer AS WIDGET-HANDLE      NO-UNDO.
   DEFINE VARIABLE wh-query AS WIDGET-HANDLE      NO-UNDO.

   
    ASSIGN wh-tt-requis   = WIDGET-HANDLE(p-cod-table)
           wh-QueryBuffer = wh-tt-requis:DEFAULT-BUFFER-HANDLE.

    CREATE QUERY wh-query.
                 wh-query:SET-BUFFERS(wh-QueryBuffer).
                 wh-query:QUERY-PREPARE('for each ' + wh-tt-requis:NAME + ' no-lock').
                 wh-query:QUERY-OPEN().
                 wh-query:GET-FIRST().

     MESSAGE wh-QueryBuffer:buffer-field("data"):BUFFER-VALUE
         VIEW-AS ALERT-BOX INFO BUTTONS OK.

     IF wh-QueryBuffer:buffer-field("data"):BUFFER-VALUE < TODAY THEN DO:
         RUN utp\ut-msgs.p(INPUT "show",
                           INPUT 17006,
                           INPUT "Data Inv lida." + "~~" + "Data deve ser maior ou igual a data corrente.").

         RETURN "NOK".
     END.

    RETURN "OK".

END PROCEDURE.

Abs.