Dear Friends,
I have customized session for display ROC record same as session tisfc0130m000 - Report Operations Completed and attached this customized session's form command in tisfc0501m000 - Production Order . I want to put some checks and controls in customized session before open the original session tisfc0130m000 using function start.session. when I run this customized session, initially system is not showing the record but when I click on the next record buttion, it is showing the record. I do not understand, where I am wrong.
I need your help to resolve this issue ASAP. My code as below.
----------------------------------------------------------------
declaration:
table ttisfc010
extern domain tcorno c.pdno
long field.proc
domain tcmcs.str13 zoom.from.session
#include <bic_dam>
group.1:
init.group:
check.order()
functions:
function check.order()
{
import("tisfc001.pdno", c.pdno)
if not isspace(c.pdno) then
query.extend.where.in.zoom("tisfc010.pdno = " & quoted.string(c.pdno))
rebuild.query()
start.session(MODAL_OVERVIEW, "tisfc0130m000", prog.name$, "c.pdno")
endif
clear.query.extend.in.zoom()
exit()
}
----------------------------------------------------------------------------------------------
I have customized session for display ROC record same as session tisfc0130m000 - Report Operations Completed and attached this customized session's form command in tisfc0501m000 - Production Order . I want to put some checks and controls in customized session before open the original session tisfc0130m000 using function start.session. when I run this customized session, initially system is not showing the record but when I click on the next record buttion, it is showing the record. I do not understand, where I am wrong.
I need your help to resolve this issue ASAP. My code as below.
----------------------------------------------------------------
declaration:
table ttisfc010
extern domain tcorno c.pdno
long field.proc
domain tcmcs.str13 zoom.from.session
#include <bic_dam>
group.1:
init.group:
check.order()
functions:
function check.order()
{
import("tisfc001.pdno", c.pdno)
if not isspace(c.pdno) then
query.extend.where.in.zoom("tisfc010.pdno = " & quoted.string(c.pdno))
rebuild.query()
start.session(MODAL_OVERVIEW, "tisfc0130m000", prog.name$, "c.pdno")
endif
clear.query.extend.in.zoom()
exit()
}
----------------------------------------------------------------------------------------------