GUI and WebSpeed application converting

Norbert Himer

New Member
Hi All!

I have a little problem. I want my current application to be displayed on the web. I started with the first reports and I already had a problem. The structure of all my reports is as follows:

/* Title and Global variables definition */
/* Local variables definition */
/* Selection from */
eg:
Code:
form
  addressfrom colon 20
  addressto      colon 60 label "To" skip(.1)
with frame a width 80 side-labels three-d.
/* Local variables settings */

/* mainblock */
Code:
repeat:
  {footbar.i} /* header and footer toolbar display */
 
  update
      /* variables */
  with frame a.
 
  {prtselect.i &report_width=132} /* printer selection */
 
  /* report block */
  for each addresses
  no-lock:
  /* .......*/
  end.
 
  {rpt_trailer.i &report_width=132}
end.

status input.
I wrote some function and procedures and modify report structure mainblock:
Code:
{wbrp01.i &report_frame=a} /* Generate html header and report frame in html syntax */
repeat:

  {footbar.i} /* header and footer toolbar display */

 /* I have introduced a variable to decide whether to use Web or GUI or TTY.
    variable name is : applicationDisplayMode */

  if applicationDisplayMode <> "WEB-APPL" then
  update

      /* variables */

  with frame a.
  else
  do:
        {wbrp03.i &frame = a
         &fieldlist = "addressfrom addressto"}
  end.
 

  {prtselect.i &report_width=132} /* printer selection */

 

  /* report block */

  for each addresses

  no-lock:

  /* .......*/

  end.

 

  {rpt_trailer.i &report_width=132}

end.
{wbrp02.i} /* internal procedure definitions */

status input
It would be a {wbrp03.i} file where the variables should be requested, set current values with javascript, etc.... But! I tried "stop" the repeat block when the user not press any button on web frame.
Code:
wait-for "web-notify" to default-window.
Does not work.
I tried to PAUSE statement. Does not work...

I would like to ask if there is any idea for someone to solve this, because there are more than 100 reports that should be rewritten would be a lot of work.
 
Top