en@frrom
9th June 2005, 16:57
I tried getting a print session to work with AFS:cisli2405m000 (reprint invoice). The session is activated, report is being sent, yet no output. When I look in the device que, there is no data in the report. I started debugging cisli2405 now, and it seems to me that half the values, like sfcp.f/t, ityp.f/t, idoc.f/t are not filled at the moment the report is being printed... Is my syntax correct? Have I filled all the necessary variables? And have I called/actiavted the report in the correct way? (Baan 5.0b)
Here is the code:
select cisli240.*
from cisli240
where (cisli240._index1 inrange {:slcp, 1, :fo.f} and {:slcp, 1, :fo.t}
or cisli240._index1 inrange {:slcp, 1, :fv.f} and {:slcp, 1, :fv.t}
or cisli240._index1 inrange {:slcp, 1, :fc.f} and {:slcp, 1, :fc.t}
or cisli240._index1 inrange {:slcp, 1, :fw.f} and {:slcp, 1, :fw.t})
and cisli240.date inrange :date.f and :date.t
order by cisli240._index1
selectdo
select tdsls400._index1, tdsls400.cofc
from tdsls400
where tdsls400._index1 = {:cisli240.slso}
and tdsls400.cofc(5;2) = "EX"
order by tdsls400._index1
as set with 1 rows
selectdo
select cisli245.*
from cisli245
where cisli245._index1 = {:cisli240.slcp, :cisli240.ortp, :cisli240.slso}
order by cisli245._index1
as set with 1 rows
selectdo
selectempty
endselect
stpapi.put.field("cisli2405m000", "form.sel.by.br", "2")
stpapi.put.field("cisli2405m000", "sel.by.inv", "1")
stpapi.put.field("cisli2405m000", "sel.by.bp", "2")
stpapi.put.field("cisli2405m000", "scmp", "cisli240.slcp")
stpapi.put.field("cisli2405m000", "sfcp.f", "cisli245.sfcp")
stpapi.put.field("cisli2405m000", "sfcp.t", "cisli245.sfcp")
stpapi.put.field("cisli2405m000", "ityp.f", "cisli245.ityp")
stpapi.put.field("cisli2405m000", "ityp.t", "cisli245.ityp")
stpapi.put.field("cisli2405m000", "idoc.f", "cisli245.idoc")
stpapi.put.field("cisli2405m000", "idoc.t", "cisli245.idoc")
stpapi.set.report("cisli2405m000", "rcisli220011000", "HP4000N1", error)
if isspace(error) then
stpapi.form.command("cisli2405m000", 5, "exec.cont.process", error)
endif
selectempty
endselect
endselect
stpapi.end.session("cisli2405m000")
Thanks for your input.
Regards,
En
Here is the code:
select cisli240.*
from cisli240
where (cisli240._index1 inrange {:slcp, 1, :fo.f} and {:slcp, 1, :fo.t}
or cisli240._index1 inrange {:slcp, 1, :fv.f} and {:slcp, 1, :fv.t}
or cisli240._index1 inrange {:slcp, 1, :fc.f} and {:slcp, 1, :fc.t}
or cisli240._index1 inrange {:slcp, 1, :fw.f} and {:slcp, 1, :fw.t})
and cisli240.date inrange :date.f and :date.t
order by cisli240._index1
selectdo
select tdsls400._index1, tdsls400.cofc
from tdsls400
where tdsls400._index1 = {:cisli240.slso}
and tdsls400.cofc(5;2) = "EX"
order by tdsls400._index1
as set with 1 rows
selectdo
select cisli245.*
from cisli245
where cisli245._index1 = {:cisli240.slcp, :cisli240.ortp, :cisli240.slso}
order by cisli245._index1
as set with 1 rows
selectdo
selectempty
endselect
stpapi.put.field("cisli2405m000", "form.sel.by.br", "2")
stpapi.put.field("cisli2405m000", "sel.by.inv", "1")
stpapi.put.field("cisli2405m000", "sel.by.bp", "2")
stpapi.put.field("cisli2405m000", "scmp", "cisli240.slcp")
stpapi.put.field("cisli2405m000", "sfcp.f", "cisli245.sfcp")
stpapi.put.field("cisli2405m000", "sfcp.t", "cisli245.sfcp")
stpapi.put.field("cisli2405m000", "ityp.f", "cisli245.ityp")
stpapi.put.field("cisli2405m000", "ityp.t", "cisli245.ityp")
stpapi.put.field("cisli2405m000", "idoc.f", "cisli245.idoc")
stpapi.put.field("cisli2405m000", "idoc.t", "cisli245.idoc")
stpapi.set.report("cisli2405m000", "rcisli220011000", "HP4000N1", error)
if isspace(error) then
stpapi.form.command("cisli2405m000", 5, "exec.cont.process", error)
endif
selectempty
endselect
endselect
stpapi.end.session("cisli2405m000")
Thanks for your input.
Regards,
En