报表程序模板

/* mmrcsomtrp.p v 1.0 hubo 2008.1.10*//*客户订单详细*/
{mfdtitle.i "1.0"}
/*定义使用的变量*/
define variable 变量 like sod_start_eff[1] .
define variable 变量 as char .

/*定义查询条件ＦＲＯＭ*/
form
变量 colon 15
变量1 label {t001.i} colon 47 cust colon 15
with frame a attr-space side-labels width 80.
setFrameLabels(frame a:handle).

{wbrp01.i}
repeat:
if 变量 = low_date then rdate = ?.
if 变量1 = hi_char then cust1 = "".
if c-application-mode <> "WEB" then
update 变量 变量1 with frame a.

{wbrp06.i &command = update
&fields = "变量 变量1 "
&frm = "a"}

if (c-application-mode <> "WEB") or
(c-application-mode = "WEB" and
(c-web-request begins "DATA"))
then do:
{mfquoter.i 变量 }
{mfquoter.i 变量1 }
　　
if 变量 = ? then rdate = low_date.
if 变量1 = "" then cust1 = hi_char.

/*定义打印输出可以默认不用改*/
{gpselout.i &printType = "printer"
&printWidth = 132
&pagedFlag = " "
&stream = " "
&appendToFile = " "
&streamedOutputToTerminal = " "
&withBatchOption = "yes"
&displayStatementType = 1
&withCancelMessage = "yes"
&pageBottomMargin = 6
&withEmail = "yes"
&withWinprint = "yes"
&defineVariables = "yes"}
{mfphead.i}

/*定义查询语句*/
for each ........
each ........
find........
end.

/*定义输出*/
display
.......

{mfrtrail.i}
end.
{wbrp04.i &frame-spec = a}