Frame In .net

Boguslaw

New Member
Hi,
I have a problem with show read-only value (eg glcdicclsd ) in a frame at .net version QAD app. Those values are showed after finishing the report, but my intention is show it directly after confirmation. Also I have next problem with displaying message that the report is generating.
Also there is something which I don't understand, when I type a different date like is default, after confirmation but during processing the report, the date is changed in the frame on previous value.
Below is my code, I will very thanks for any help.

Code:
{mfdtitle.i}
{glcabmeg.i}  /* module close engine include */

def var glcdicclsd  like  glcd_ic_clsd no-undo.
def var subject as char format "x(40)" no-undo.
def var dt like tr_effdate init today no-undo.

  form skip(1)
  dt  colon 25 skip(1)
  glcdicclsd  colon 25
  glc_start  colon 25  glc_end colon 55
  glcd_ap_clsd colon 25  glcd_ar_clsd  colon 55
  glcd_fa_clsd colon 25  glcd_ic_clsd  label "Zamk. Mag" colon 55
  glcd_so_clsd colon 25  glcd_gl_clsd  colon 55
  glcd_yr_clsd colon 25
  with frame a side-labels attr-space width 80 title "TESTING FRAME".
  setFrameLabels(frame a:handle).

  form subject with fram b.
  setFrameLabels(frame b:handle).
view frame a.
{wbrp01.i}

repeat:
  if dt = hi_date then dt = today.
  if c-application-mode <> 'web' THEN do:
  update
  dt validate (dt <> "", "Give Date")
  with frame a.
  end.
  {wbrp06.i &command = update
  &fields = " dt " &frm = "a"}
  
  find last glc_cal where glc_cal.glc_domain = global_domain
  and glc_year = year(dt)
  and glc_end  <= dt - 30  no-lock no-error.
  find glcd_det where glcd_domain = global_domain
  and glcd_year  = glc_year
  and glcd_per  = glc_per
  and glcd_entity = "2000" no-lock no-error.
  if available glcd_det then do:
  {glcabmsv.i
  &service = FIND_MOD_DET_NOLOCK
  &fyear  = glc_year
  &fper  = glc_per
  &entity  = glcd_entity}
  if glcd_ic_clsd = true or glcd_gl_clsd = true or glcd_yr_clsd = true
  then
  glcdicclsd = glcd_ic_clsd.
  disp glc_start glc_end
  glcd_ap_clsd glcd_ar_clsd glcd_fa_clsd
  glcd_ic_clsd label "Zamk. Mag"
  glcd_so_clsd glcd_gl_clsd
  glcd_yr_clsd
  with frame a.
  end.
  
  if (c-application-mode <> "WEB") or
  (c-application-mode = "WEB" and
  (c-web-request begins 'data') ) then do :
  bcdparm = "".
  {mfquoter.i dt}
  end.
  
  subject = "Please wait - last generating the report " .
  display subject no-label with frame b  no-box color normal .
  view frame b.
  
  {mfphead.i}

  for each tr_hist where tr_domain = global_domain
  and tr_effdate = dt - 120
  with frame a:
  pause 0.  
  end.  

end.  /*repeat*/
 
Last edited by a moderator:
Top