📄 hz3.prg
字号:
Top = 531, ;
Width = 55, ;
ForeColor = RGB(0,0,255), ;
Name = "Label4"
ADD OBJECT command1 AS commandbutton WITH ;
Top = 525, ;
Left = 696, ;
Height = 31, ;
Width = 73, ;
FontBold = .T., ;
FontSize = 12, ;
Caption = "返 回", ;
ForeColor = RGB(255,0,0), ;
Name = "Command1"
ADD OBJECT txtrq AS textbox WITH ;
Comment = "", ;
ControlSource = "hzb3app.rq", ;
Height = 20, ;
Left = 61, ;
TabIndex = 12, ;
Top = 525, ;
Width = 71, ;
Name = "txtRq"
ADD OBJECT txtfzr AS textbox WITH ;
Comment = "", ;
ControlSource = "hzb3app.fzr", ;
Height = 20, ;
Left = 187, ;
MaxLength = 10, ;
TabIndex = 14, ;
Top = 525, ;
Width = 69, ;
Name = "txtFzr"
ADD OBJECT txtbzr AS textbox WITH ;
Comment = "", ;
ControlSource = "hzb3app.bzr", ;
Height = 20, ;
Left = 333, ;
MaxLength = 10, ;
TabIndex = 16, ;
Top = 525, ;
Width = 69, ;
Name = "txtBzr"
ADD OBJECT txtth AS textbox WITH ;
Comment = "", ;
ControlSource = "hzb3app.th", ;
Height = 20, ;
Left = 472, ;
MaxLength = 20, ;
TabIndex = 18, ;
Top = 526, ;
Width = 104, ;
Name = "txtTh"
ADD OBJECT command2 AS commandbutton WITH ;
Top = 525, ;
Left = 600, ;
Height = 31, ;
Width = 72, ;
FontBold = .T., ;
FontSize = 12, ;
Caption = "打 印", ;
ForeColor = RGB(255,0,0), ;
Name = "Command2"
PROCEDURE comp
select hzb3
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(30,7)
go top
for i=1 to 30
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(16,1)=sz(2,1)+sz(3,1)+sz(4,1)+sz(5,1)+sz(6,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,1)
sz(16,2)=sz(2,2)+sz(3,2)+sz(4,2)+sz(5,2)+sz(6,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,2)
sz(16,3)=sz(2,3)+sz(3,3)+sz(4,3)+sz(5,3)+sz(6,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,3)
sz(16,4)=sz(2,4)+sz(3,4)+sz(4,4)+sz(5,4)+sz(6,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,4)
sz(16,5)=sz(2,5)+sz(3,5)+sz(4,5)+sz(5,5)+sz(6,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,5)
sz(16,6)=sz(2,6)+sz(3,6)+sz(4,6)+sz(5,6)+sz(6,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,6)
sz(16,7)=sz(2,7)+sz(3,7)+sz(4,7)+sz(5,7)+sz(6,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(15,7)
sz(22,1)=sz(18,1)+sz(19,1)+sz(20,1)+sz(21,1)
sz(22,2)=sz(18,2)+sz(19,2)+sz(20,2)+sz(21,2)
sz(22,3)=sz(18,3)+sz(19,3)+sz(20,3)+sz(21,3)
sz(22,4)=sz(18,4)+sz(19,4)+sz(20,4)+sz(21,4)
sz(22,5)=sz(18,5)+sz(19,5)+sz(20,5)+sz(21,5)
sz(22,6)=sz(18,6)+sz(19,6)+sz(20,6)+sz(21,6)
sz(22,7)=sz(18,7)+sz(19,7)+sz(20,7)+sz(21,7)
sz(29,1)=sz(24,1)+sz(25,1)+sz(26,1)+sz(28,1)
sz(29,2)=sz(24,2)+sz(25,2)+sz(26,2)+sz(28,2)
sz(29,3)=sz(24,3)+sz(25,3)+sz(26,3)+sz(28,3)
sz(29,4)=sz(24,4)+sz(25,4)+sz(26,4)+sz(28,4)
sz(29,5)=sz(24,5)+sz(25,5)+sz(26,5)+sz(28,5)
sz(29,6)=sz(24,6)+sz(25,6)+sz(26,6)+sz(28,6)
sz(29,7)=sz(24,7)+sz(25,7)+sz(26,7)+sz(28,7)
sz(30,1)=sz(16,1)+sz(22,1)+sz(29,1)
sz(30,2)=sz(16,2)+sz(22,2)+sz(29,2)
sz(30,3)=sz(16,3)+sz(22,3)+sz(29,3)
sz(30,4)=sz(16,4)+sz(22,4)+sz(29,4)
sz(30,5)=sz(16,5)+sz(22,5)+sz(29,5)
sz(30,6)=sz(16,6)+sz(22,6)+sz(29,6)
sz(30,7)=sz(16,7)+sz(22,7)+sz(29,7)
repl sz1 with iif(sz(16,1)=0,space(11),str(sz(16,1),11,2)) for tag=16
repl sz2 with iif(sz(16,2)=0,space(11),str(sz(16,2),11,2)) for tag=16
repl sz3 with iif(sz(16,3)=0,space(11),str(sz(16,3),11,2)) for tag=16
repl sz4 with iif(sz(16,4)=0,space(11),str(sz(16,4),11,2)) for tag=16
repl sz5 with iif(sz(16,5)=0,space(11),str(sz(16,5),11,2)) for tag=16
repl sz6 with iif(sz(16,6)=0,space(11),str(sz(16,6),11,2)) for tag=16
repl sz7 with iif(sz(16,7)=0,space(11),str(sz(16,7),11,2)) for tag=16
repl sz1 with iif(sz(22,1)=0,space(11),str(sz(22,1),11,2)) for tag=22
repl sz2 with iif(sz(22,2)=0,space(11),str(sz(22,2),11,2)) for tag=22
repl sz3 with iif(sz(22,3)=0,space(11),str(sz(22,3),11,2)) for tag=22
repl sz4 with iif(sz(22,4)=0,space(11),str(sz(22,4),11,2)) for tag=22
repl sz5 with iif(sz(22,5)=0,space(11),str(sz(22,5),11,2)) for tag=22
repl sz6 with iif(sz(22,6)=0,space(11),str(sz(22,6),11,2)) for tag=22
repl sz7 with iif(sz(22,7)=0,space(11),str(sz(22,7),11,2)) for tag=22
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(30,1)=0,space(11),str(sz(30,1),11,2)) for tag=30
repl sz2 with iif(sz(30,2)=0,space(11),str(sz(30,2),11,2)) for tag=30
repl sz3 with iif(sz(30,3)=0,space(11),str(sz(30,3),11,2)) for tag=30
repl sz4 with iif(sz(30,4)=0,space(11),str(sz(30,4),11,2)) for tag=30
repl sz5 with iif(sz(30,5)=0,space(11),str(sz(30,5),11,2)) for tag=30
repl sz6 with iif(sz(30,6)=0,space(11),str(sz(30,6),11,2)) for tag=30
repl sz7 with iif(sz(30,7)=0,space(11),str(sz(30,7),11,2)) for tag=30
repl sz1 with space(11) for tag=1
repl sz2 with space(11) for tag=1
repl sz3 with space(11) for tag=1
repl sz4 with space(11) for tag=1
repl sz5 with space(11) for tag=1
repl sz6 with space(11) for tag=1
repl sz7 with space(11) for tag=1
repl sz1 with space(11) for tag=17
repl sz2 with space(11) for tag=17
repl sz3 with space(11) for tag=17
repl sz4 with space(11) for tag=17
repl sz5 with space(11) for tag=17
repl sz6 with space(11) for tag=17
repl sz7 with space(11) for tag=17
repl sz1 with space(11) for tag=23
repl sz2 with space(11) for tag=23
repl sz3 with space(11) for tag=23
repl sz4 with space(11) for tag=23
repl sz5 with space(11) for tag=23
repl sz6 with space(11) for tag=23
repl sz7 with space(11) for tag=23
go currec
ENDPROC
PROCEDURE Init
this.caption='填报单位:'+name+space(4)+'国有企业资产负债表核查表(负责及权益)[汇总表三]'+space(10)+'单位:万元'
select hzb3
set filter to mc=name
count to jls
if jls>0
select hzb3app
set filter to mc=name
go top
select hzb3
go top
else
select hzb3
set filter to
append from mhzb3
select hzb3
repl all mc with name for empty(mc)
set filter to mc=name
go top
select hzb3app
append blank
repl bh with no,mc with name,jcdw with jcname
set filter to mc=name
go top
endif
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)+':'+'审计后报表数' 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.When
wait window alltrim(xm)+':'+'备注' nowait
ENDPROC
PROCEDURE command1.Click
thisform.comp()
thisform.release
use in hzb3
use in hzb3app
select dwk
ENDPROC
PROCEDURE command2.Click
currec=recno()
report form hz3 preview
select hzb3
go currec
ENDPROC
ENDDEFINE
*
*-- 结束定义: hz3
**************************************************
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -