[RESOLVIDO] Consulta Titulos em Aberto

Bom dia,
Alguem ai ja tentou vincular uma UPC a 'Consulta Titulos em Aberto' (bas_tit_acr_em_aberto) no EMS506? Estou tendo problemas com a minha UPC, quando gero a busca com a UPC vinculada e uso algum filtro, portador por exemplo, ele não me exibe todos os titulos. Gerei ele com e sem a UPC, a diferença é de uns 5000 titulos só num estabelecimento. Alguem ja fez uma UPC para este programa?!? só de botar as mensagens que mostram os eventos do manual disponibilizado já da este problema. Se alguem puder me ajudar...

grato desde já.

O código é básico, tem como postar?
Nessa dúvida, eu tiraria um clientlog pra analisar.

Código:

DEFINE INPUT PARAMETER p-ind-event  AS CHARACTER       NO-UNDO.
DEFINE INPUT PARAMETER p-ind-object AS CHARACTER       NO-UNDO.
DEFINE INPUT PARAMETER p-wgh-object AS HANDLE          NO-UNDO.
DEFINE INPUT PARAMETER p-wgh-frame  AS WIDGET-HANDLE   NO-UNDO.
DEFINE INPUT PARAMETER p-cod-table  AS CHARACTER       NO-UNDO.
DEFINE INPUT PARAMETER p-row-table  AS RECID           NO-UNDO.



{include/i_fclpreproc.i} /* Include que define o processador do Facelift ativado ou não. */

&IF "{&aplica_facelift}" = "YES" &THEN
	{include/i_fcldef.i}
&endif

 /*                                                                                                               
 MESSAGE "p-ind-event.: " p-ind-event            skip                                                             
         "p-ind-object: " p-ind-object           skip                                                             
         "p-wgh-object: " p-wgh-object:file-name skip                                                             
         "p-wgh-frame.: " p-wgh-frame:name       skip                                                             
         "p-cod-table.: " p-cod-table            skip                                                             
         "p-row-table.: " string(p-row-table)    skip                                                             
     VIEW-AS ALERT-BOX INFO BUTTONS OK.                                                                           
 */                                                                                                               
                                                                                                                  
                                                                                                                  
 define new global shared variable wh-nome-razao           as widget-handle    no-undo.                           
 define new global shared variable p-wh-browse-query       as widget-handle    no-undo.                           
 def new global shared var h-buffer        AS widget-handle    no-undo.                                           
 DEF NEW GLOBAL SHARED VAR r-row-atu         AS ROWID            NO-UNDO.                                         
                                                                                                                  
                                                                                                                  
 DEFINE VARIABLE h-objeto  AS WIDGET-HANDLE NO-UNDO.                                                              
 DEFINE VARIABLE h_frame   AS WIDGET-HANDLE NO-UNDO.                                                              
                                                                                                                  
                                                                                                              
                                                                                                                  
                                                                                                                  
 /* ALIMENTA A NOVA COLUNA */                                                                                     
 IF p-ind-event  = "VALIDA TITULO" AND                                                                            
    p-ind-object = "viewer"        AND                                                                            
    p-cod-table  = "tit_acr"       THEN DO:                                                                       
                                                                                                                  
     ASSIGN h_frame = p-wgh-frame:FIRST-CHILD                                                                     
            h_frame = h_frame:FIRST-CHILD.                                                                        
                                                                                                                  
     DO WHILE VALID-HANDLE(h_frame):                                                                              
         IF h_frame:TYPE = "BROWSE" THEN DO:                                                                      
             assign p-wh-browse-query = h_frame:QUERY                                                             
                    h-buffer          = p-wh-browse-query:GET-BUFFER-HANDLE("tt_titulos_em_aberto_acr")           
                    r-row-atu         = h-buffer:ROWID.                                                           
                                                                                                                  
             IF r-row-atu <> ? AND                                                                                
                VALID-HANDLE(h-buffer) THEN DO:                                                                   
                 ASSIGN h-buffer:BUFFER-FIELD(11):BUFFER-VALUE() = h-buffer:BUFFER-FIELD(10):BUFFER-VALUE().
                 /*                                                                                               
                 MESSAGE h-buffer:TABLE                          SKIP /* pega o nome da tabela */                 
                         h-buffer:BUFFER-FIELD(1):NAME           SKIP /* pega o nome da coluna */                 
                         h-buffer:BUFFER-FIELD(1):COLUMN-LABEL   SKIP /* pega o label da coluna */                
                         h-buffer:BUFFER-FIELD(1):BUFFER-VALUE() SKIP /* pega o valor do campo */                 
                         h-buffer:BUFFER-FIELD("tta_nom_abrev"):BUFFER-VALUE()                                    
                     VIEW-AS ALERT-BOX INFO BUTTONS OK.                                                           
                 */                                                                                               
             END.                                                                                                 
         END.                                                                                                     
         h_frame = h_frame:NEXT-SIBLING.                                                                          

     END.                                                                                                         
 END.                                                                                                             

Esta ai o que fiz, mas se eu deixar só os inputs e a mensagem para mostrar a informação destes tambem não funciona...

Bom dia!
Amigo estou tendo o mesmo problema por aqui, você conseguiu achar uma solução?