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.
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: