[RESOLVIDO] Screen Optimizer Retorno Externo

Bom dia
Estou com um campo padrão do datasul que precisa receber uma validação de data (ft4100) mas não consigo entrar no campo via UPC, apelei para o screen optimizer ele tem uma opção la no valor inicial de retorno externo, fiz uma "Method-library" padrão datasul com uma procedure "pegaData" e vinculei, selecionei o método e salvei. O problema começa ai, ele pede que seja criada uma tal de "setCurrentWindow", criei esta procedure vazia, sem nada e salvei dai ele começou a pedir que esta "setCurrentWindow" receba parametros, mas não achei nada sobre "setCurrentWindow" na documentação e nem aqui no 4each, ja se tornou uma Obsessão minha fazer isto funcionar, alguem ai pode me ajudar com isso? o codigo que eu vinculei no retorno externo da screen optimizer é este...

Código:

/*------------------------------------------------------------------------
    Library     : 
    Purpose     :

    Syntax      :

    Description :

    Author(s)   :
    Created     :
    Notes       :
  ----------------------------------------------------------------------*/
/*          This .W file was created with the Progress AppBuilder.      */
/*----------------------------------------------------------------------*/

/* ***************************  Definitions  ************************** */



/* ********************  Preprocessor Definitions  ******************** */



/* *********************** Procedure Settings ************************ */

/* Settings for THIS-PROCEDURE
   Type: Method-Library
   Allow: 
   Frames: 0
   Add Fields to: Neither
   Other Settings: INCLUDE-ONLY
 */

/* *************************  Create Window  ************************** */

/* DESIGN Window definition (used by the UIB) 
  CREATE WINDOW Method-Library ASSIGN
         HEIGHT             = 15
         WIDTH              = 60.57.
/* END WINDOW DEFINITION */
                                                                        */

/* ************************* Included-Libraries *********************** */


 




/* ***************************  Main Block  *************************** */


/* **********************  Internal Procedures  *********************** */

&IF DEFINED(EXCLUDE-pegaData) = 0 &THEN

PROCEDURE pegaData :
/*------------------------------------------------------------------------------
  Purpose:     
  Parameters:  <none>
  Notes:       
------------------------------------------------------------------------------*/
DEFINE OUTPUT PARAMETER ch-data AS CHARACTER   NO-UNDO.

    IF WEEKDAY(TODAY) < 5 THEN DO:
        ASSIGN ch-data = STRING(TODAY + 1).
    END. ELSE DO:
        ASSIGN ch-data = STRING(TODAY + 3).
    END.
    

END PROCEDURE.

&ENDIF

&IF DEFINED(EXCLUDE-setCurrentWindow) = 0 &THEN

PROCEDURE setCurrentWindow :
/*------------------------------------------------------------------------------
  Purpose:     
  Parameters:  <none>
  Notes:       
------------------------------------------------------------------------------*/

END PROCEDURE.

&ENDIF

copiei todo código da tela de code prewiew...

Boa tarde,
Bom como ninguém respondeu, fui entrar la na help do screen optimizer e la no final do sumario ele tem uma pagina com um exemplo de validação de campos de programas padrões do datasul, uma boa pedida para quem precisa apenas colocar um valor pré definido ou ate mesmo uma validação sem usar UPC