prin_tmp.prg

来自「银行代发工资系统」· PRG 代码 · 共 56 行

loVariable = loReport.CreateVariable()
loVariable.cName         = 'lnCount_ry'
loVariable.cValue        = 1
loVariable.cInitialValue = 0
loVariable.cTotalType    = 'Sum'
loVariable.lReleaseATEnd =.T.
*loVariable.nResetOnGroup =1


loObject = loGroupFooter.ADDITEM('Field')
loObject.cExpression = 'lnCount_ry'
loObject.nWidth      = 5
loObject.nVPosition  = 1
loObject.nHPosition  = 7







js_width=0
js_H=15
js_V=0
select links
 go top
 do while !eof()
 if links.gz_sum=1
loObject = loGroupFooter.ADDITEM('Text')
loObject.cExpression = allt(links.gz_f_bz)
js_width1=len(allt(links.gz_f_bz))
js_width=js_width+js_width1

loObject.nVPosition  = js_V


loObject.nWidth      = js_width1
loObject.nHPosition  = js_H
js_width=js_width+2
js_H=Js_H+js_width

loObject = loGroupFooter.ADDITEM('Field')
loObject.cExpression ='gz.'+allt(links.gz_field)
loObject.nWidth      = 12
loObject.nVPosition  = js_V
loObject.nHPosition  = js_H
js_width=js_width+14
js_H=Js_H+js_width
if js_width/js>1
   js_width=0
   js_V=js_V+1
endif
endif
skip
enddo