Clear Frame

[Ragman]

Hello,

we are running Win7 and Progress 10.2B.
I construct a GUI-Programm with the AppBuilder.
The Programm has a Browser, the User can right-klick on each Row and then opens a Frame,
where the User get´s Information about the Datafield which he selected ( with Tablename und Recid ).

Everything works fine so far, Problem is, when User klicks on another Row the Data from the last choice
is still in the Frame :-(
I tried different ways to clear the previous data, nothing works ...

Here is the Code-Snippel:

ON CHOOSE OF MENU-ITEM m_Anzeigen /* Anzeigen */
DO:
  
  /* dosen´t work ... :-((( */
/*  CLEAR FRAME DisplayFrame .*/
/* gives Error  */
/* DISPLAY DisplayFrame WITH FRAME DisplayFrame .*/
/* doesn´t Works ...*/
/*  CLEAR ALL.*/
/*  this doesn´t works ...*/
/*  DEFINE VARIABLE cClearFrame AS CHARACTER NO-UNDO .*/
/*  */
/*  DO WITH FRAME DisplayFrame:  */
/*  ASSIGN cClearFrame = "".  */
/*  DISPLAY cClearFrame.  */
/*  END.  */
  
  
  DEFINE VARIABLE bhTabel  AS HANDLE  NO-UNDO.
  DEFINE VARIABLE qhQuery  AS HANDLE  NO-UNDO.
  
  DEFINE VARIABLE cTableName  AS CHARACTER NO-UNDO.
  DEFINE VARIABLE iRecordNumber AS INTEGER  NO-UNDO.
  
  FIND CURRENT ttBrowser.
  ASSIGN cTableName  = ttBrowser.TabelleName
  iRecordNumber = ttBrowser.RecordID.
  
  IF iRecordNumber <> 0 THEN
  DO:
  CREATE BUFFER bhTabel FOR TABLE cTableName.
  CREATE QUERY qhQuery.
  qhQuery:SET-BUFFERS( bhTabel ).
  qhQuery:QUERY-PREPARE( "for each " + cTableName + " where recid("  + cTableName + ") = " + STRING( iRecordNumber )  ).
  qhQuery:QUERY-OPEN.
  
  qhQuery:GET-FIRST ( NO-LOCK ).
  
  DO iCounter = 1 TO bhTabel:NUM-FIELDS :
  DISPLAY bhTabel:BUFFER-FIELD(iCounter):NAME FORMAT "X(20)" bhTabel:BUFFER-FIELD(iCounter):BUFFER-VALUE FORMAT "X(130)" WITH FRAME DisplayFrame DOWN.
  DOWN WITH FRAME DisplayFrame.
  END.
  
  DELETE OBJECT bhTabel.
  DELETE OBJECT qhQuery.
  END.
  ELSE DO:
  MESSAGE "RecordID ist 0, no Dataset available."
  VIEW-AS ALERT-BOX.
  END.
END.

I hope somebody can help me, i tried the Help as well, but didn´t find something what help ...
Have a nice day,

kind regards
Ragman


Edit: added code tags

 

[oli]

Hi Ragman,

The attached .W is based on the sports2000 database.
The "CLEAR FRAME DisplayFrame ALL." statement in the browse's MOUSE-SELECT-DBLCLICK trigger does what it is supposed to do.
See if it matches your expectations.

 

[Ragman]

Hi Oli,

once again ... YOU got it !!!
Thank you so much, you made my day once again.
Have a nice Day too and many thanks ...

Best wishes
Ragman