📄 hz2.prg
字号:
Left = 696, ;
Height = 29, ;
Width = 73, ;
FontBold = .T., ;
FontSize = 12, ;
Caption = "返 回", ;
ForeColor = RGB(255,0,0), ;
Name = "Command1"
ADD OBJECT txtrq AS textbox WITH ;
Comment = "", ;
ControlSource = "hzb2app.rq", ;
Height = 20, ;
Left = 61, ;
TabIndex = 12, ;
Top = 522, ;
Width = 71, ;
Name = "txtRq"
ADD OBJECT txtfzr AS textbox WITH ;
Comment = "", ;
ControlSource = "hzb2app.fzr", ;
Height = 20, ;
Left = 189, ;
MaxLength = 10, ;
TabIndex = 14, ;
Top = 522, ;
Width = 69, ;
Name = "txtFzr"
ADD OBJECT txtbzr AS textbox WITH ;
Comment = "", ;
ControlSource = "hzb2app.bzr", ;
Height = 20, ;
Left = 332, ;
MaxLength = 10, ;
TabIndex = 16, ;
Top = 522, ;
Width = 69, ;
Name = "txtBzr"
ADD OBJECT txtth AS textbox WITH ;
Comment = "", ;
ControlSource = "hzb2app.th", ;
Height = 20, ;
Left = 467, ;
MaxLength = 20, ;
TabIndex = 18, ;
Top = 523, ;
Width = 109, ;
Name = "txtTh"
ADD OBJECT command2 AS commandbutton WITH ;
Top = 521, ;
Left = 600, ;
Height = 29, ;
Width = 72, ;
FontBold = .T., ;
FontSize = 12, ;
Caption = "打 印", ;
ForeColor = RGB(255,0,0), ;
Name = "Command2"
PROCEDURE comp
select hzb2
a=val(sz4)-val(sz2)
if not a=0
repl sz7 with str(a,11,2)
else
repl sz7 with space(11)
endif
a=val(sz7)-val(sz5)
if not a=0
repl sz6 with str(a,11,2)
else
repl sz6 with space(11)
endif
currec=recno()
dimension sz(32,7)
go top
for i=1 to 32
sz(i,1)=val(sz1)
sz(i,2)=val(sz2)
sz(i,3)=val(sz3)
sz(i,4)=val(sz4)
sz(i,5)=val(sz5)
sz(i,6)=val(sz6)
sz(i,7)=val(sz7)
skip
endfor
sz(7,1)=sz(5,1)-sz(6,1)
sz(7,2)=sz(5,2)-sz(6,2)
sz(7,3)=sz(5,3)-sz(6,3)
sz(7,4)=sz(5,4)-sz(6,4)
sz(7,5)=sz(5,5)-sz(6,5)
sz(7,6)=sz(5,6)-sz(6,6)
sz(7,7)=sz(5,7)-sz(6,7)
sz(15,1)=sz(2,1)+sz(3,1)+sz(4,1)+sz(7,1)+sz(8,1)+sz(9,1)+sz(10,1)+sz(11,1)+sz(12,1)+sz(13,1)+sz(14,1)
sz(15,2)=sz(2,2)+sz(3,2)+sz(4,2)+sz(7,2)+sz(8,2)+sz(9,2)+sz(10,2)+sz(11,2)+sz(12,2)+sz(13,2)+sz(14,2)
sz(15,3)=sz(2,3)+sz(3,3)+sz(4,3)+sz(7,3)+sz(8,3)+sz(9,3)+sz(10,3)+sz(11,3)+sz(12,3)+sz(13,3)+sz(14,3)
sz(15,4)=sz(2,4)+sz(3,4)+sz(4,4)+sz(7,4)+sz(8,4)+sz(9,4)+sz(10,4)+sz(11,4)+sz(12,4)+sz(13,4)+sz(14,4)
sz(15,5)=sz(2,5)+sz(3,5)+sz(4,5)+sz(7,5)+sz(8,5)+sz(9,5)+sz(10,5)+sz(11,5)+sz(12,5)+sz(13,5)+sz(14,5)
sz(15,6)=sz(2,6)+sz(3,6)+sz(4,6)+sz(7,6)+sz(8,6)+sz(9,6)+sz(10,6)+sz(11,6)+sz(12,6)+sz(13,6)+sz(14,6)
sz(15,7)=sz(2,7)+sz(3,7)+sz(4,7)+sz(7,7)+sz(8,7)+sz(9,7)+sz(10,7)+sz(11,7)+sz(12,7)+sz(13,7)+sz(14,7)
sz(21,1)=sz(19,1)-sz(20,1)
sz(21,2)=sz(19,2)-sz(20,2)
sz(21,3)=sz(19,3)-sz(20,3)
sz(21,4)=sz(19,4)-sz(20,4)
sz(21,5)=sz(19,5)-sz(20,5)
sz(21,6)=sz(19,6)-sz(20,6)
sz(21,7)=sz(19,7)-sz(20,7)
sz(25,1)=sz(21,1)+sz(22,1)+sz(23,1)+sz(24,1)
sz(25,2)=sz(21,2)+sz(22,2)+sz(23,2)+sz(24,2)
sz(25,3)=sz(21,3)+sz(22,3)+sz(23,3)+sz(24,3)
sz(25,4)=sz(21,4)+sz(22,4)+sz(23,4)+sz(24,4)
sz(25,5)=sz(21,5)+sz(22,5)+sz(23,5)+sz(24,5)
sz(25,6)=sz(21,6)+sz(22,6)+sz(23,6)+sz(24,6)
sz(25,7)=sz(21,7)+sz(22,7)+sz(23,7)+sz(24,7)
sz(29,1)=sz(27,1)+sz(28,1)
sz(29,2)=sz(27,2)+sz(28,2)
sz(29,3)=sz(27,3)+sz(28,3)
sz(29,4)=sz(27,4)+sz(28,4)
sz(29,5)=sz(27,5)+sz(28,5)
sz(29,6)=sz(27,6)+sz(28,6)
sz(29,7)=sz(27,7)+sz(28,7)
sz(32,1)=sz(15,1)+sz(17,1)+sz(25,1)+sz(29,1)+sz(31,1)
sz(32,2)=sz(15,2)+sz(17,2)+sz(25,2)+sz(29,2)+sz(31,2)
sz(32,3)=sz(15,3)+sz(17,3)+sz(25,3)+sz(29,3)+sz(31,3)
sz(32,4)=sz(15,4)+sz(17,4)+sz(25,4)+sz(29,4)+sz(31,4)
sz(32,5)=sz(15,5)+sz(17,5)+sz(25,5)+sz(29,5)+sz(31,5)
sz(32,6)=sz(15,6)+sz(17,6)+sz(25,6)+sz(29,6)+sz(31,6)
sz(32,7)=sz(15,7)+sz(17,7)+sz(25,7)+sz(29,7)+sz(31,7)
repl sz1 with iif(sz(7,1)=0,space(11),str(sz(7,1),11,2)) for tag=7
repl sz2 with iif(sz(7,2)=0,space(11),str(sz(7,2),11,2)) for tag=7
repl sz3 with iif(sz(7,3)=0,space(11),str(sz(7,3),11,2)) for tag=7
repl sz4 with iif(sz(7,4)=0,space(11),str(sz(7,4),11,2)) for tag=7
repl sz5 with iif(sz(7,5)=0,space(11),str(sz(7,5),11,2)) for tag=7
repl sz6 with iif(sz(7,6)=0,space(11),str(sz(7,6),11,2)) for tag=7
repl sz7 with iif(sz(7,7)=0,space(11),str(sz(7,7),11,2)) for tag=7
repl sz1 with iif(sz(15,1)=0,space(11),str(sz(15,1),11,2)) for tag=15
repl sz2 with iif(sz(15,2)=0,space(11),str(sz(15,2),11,2)) for tag=15
repl sz3 with iif(sz(15,3)=0,space(11),str(sz(15,3),11,2)) for tag=15
repl sz4 with iif(sz(15,4)=0,space(11),str(sz(15,4),11,2)) for tag=15
repl sz5 with iif(sz(15,5)=0,space(11),str(sz(15,5),11,2)) for tag=15
repl sz6 with iif(sz(15,6)=0,space(11),str(sz(15,6),11,2)) for tag=15
repl sz7 with iif(sz(15,7)=0,space(11),str(sz(15,7),11,2)) for tag=15
repl sz1 with iif(sz(21,1)=0,space(11),str(sz(21,1),11,2)) for tag=21
repl sz2 with iif(sz(21,2)=0,space(11),str(sz(21,2),11,2)) for tag=21
repl sz3 with iif(sz(21,3)=0,space(11),str(sz(21,3),11,2)) for tag=21
repl sz4 with iif(sz(21,4)=0,space(11),str(sz(21,4),11,2)) for tag=21
repl sz5 with iif(sz(21,5)=0,space(11),str(sz(21,5),11,2)) for tag=21
repl sz6 with iif(sz(21,6)=0,space(11),str(sz(21,6),11,2)) for tag=21
repl sz7 with iif(sz(21,7)=0,space(11),str(sz(21,7),11,2)) for tag=21
repl sz1 with iif(sz(25,1)=0,space(11),str(sz(25,1),11,2)) for tag=25
repl sz2 with iif(sz(25,2)=0,space(11),str(sz(25,2),11,2)) for tag=25
repl sz3 with iif(sz(25,3)=0,space(11),str(sz(25,3),11,2)) for tag=25
repl sz4 with iif(sz(25,4)=0,space(11),str(sz(25,4),11,2)) for tag=25
repl sz5 with iif(sz(25,5)=0,space(11),str(sz(25,5),11,2)) for tag=25
repl sz6 with iif(sz(25,6)=0,space(11),str(sz(25,6),11,2)) for tag=25
repl sz7 with iif(sz(25,7)=0,space(11),str(sz(25,7),11,2)) for tag=25
repl sz1 with iif(sz(29,1)=0,space(11),str(sz(29,1),11,2)) for tag=29
repl sz2 with iif(sz(29,2)=0,space(11),str(sz(29,2),11,2)) for tag=29
repl sz3 with iif(sz(29,3)=0,space(11),str(sz(29,3),11,2)) for tag=29
repl sz4 with iif(sz(29,4)=0,space(11),str(sz(29,4),11,2)) for tag=29
repl sz5 with iif(sz(29,5)=0,space(11),str(sz(29,5),11,2)) for tag=29
repl sz6 with iif(sz(29,6)=0,space(11),str(sz(29,6),11,2)) for tag=29
repl sz7 with iif(sz(29,7)=0,space(11),str(sz(29,7),11,2)) for tag=29
repl sz1 with iif(sz(32,1)=0,space(11),str(sz(32,1),11,2)) for tag=32
repl sz2 with iif(sz(32,2)=0,space(11),str(sz(32,2),11,2)) for tag=32
repl sz3 with iif(sz(32,3)=0,space(11),str(sz(32,3),11,2)) for tag=32
repl sz4 with iif(sz(32,4)=0,space(11),str(sz(32,4),11,2)) for tag=32
repl sz5 with iif(sz(32,5)=0,space(11),str(sz(32,5),11,2)) for tag=32
repl sz6 with iif(sz(32,6)=0,space(11),str(sz(32,6),11,2)) for tag=32
repl sz7 with iif(sz(32,7)=0,space(11),str(sz(32,7),10,2)) for tag=32
go currec
ENDPROC
PROCEDURE Init
this.caption='填报单位:'+name+space(4)+'国有企业资产负债表核查表(资产)[汇总表二]'+space(10)+'单位:万元'
select hzb2
set filter to mc=name
count to jls
if jls>0
select hzb2app
set filter to mc=name
go top
select hzb2
go top
else
select hzb2
set filter to
append from mhzb2
select hzb2
repl all mc with name for empty(mc)
set filter to mc=name
go top
select hzb2app
append blank
repl bh with no,mc with name,jcdw with jcname
set filter to mc=name
go top
endif
ENDPROC
PROCEDURE text1.When
wait window alltrim(xm)+':'+'审计前报表数' nowait
ENDPROC
PROCEDURE text1.LostFocus
thisform.comp()
ENDPROC
PROCEDURE text1.When
wait window alltrim(xm)+':'+'CPA审计数' nowait
ENDPROC
PROCEDURE text1.LostFocus
thisform.comp()
ENDPROC
PROCEDURE text1.When
wait window alltrim(xm)+':'+'审计后报表数' nowait
ENDPROC
PROCEDURE text1.LostFocus
thisform.comp()
ENDPROC
PROCEDURE text1.When
wait window alltrim(xm)+':'+'检查组核查审定数' nowait
ENDPROC
PROCEDURE text1.LostFocus
thisform.comp()
ENDPROC
PROCEDURE text1.When
wait window alltrim(xm)+':'+'CPA抽审样本内' nowait
ENDPROC
PROCEDURE text1.LostFocus
thisform.comp()
ENDPROC
PROCEDURE text1.When
wait window alltrim(xm)+':'+'CPA抽审样本外' nowait
ENDPROC
PROCEDURE text1.LostFocus
thisform.comp()
ENDPROC
PROCEDURE text1.When
wait window alltrim(xm)+':'+'小计' nowait
ENDPROC
PROCEDURE text1.LostFocus
thisform.comp()
ENDPROC
PROCEDURE text1.When
wait window alltrim(xm)+':'+'备注' nowait
ENDPROC
PROCEDURE command1.Click
thisform.comp()
thisform.release
use in hzb2
use in hzb2app
select dwk
ENDPROC
PROCEDURE command2.Click
currec=recno()
report form hz2 preview
select hzb2
go currec
ENDPROC
ENDDEFINE
*
*-- 结束定义: hz2
**************************************************
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -