📄 hz1.prg
字号:
FontSize = 12, ;
Caption = "返 回", ;
ForeColor = RGB(255,0,0), ;
Name = "Command1"
ADD OBJECT txtrq AS textbox WITH ;
Comment = "", ;
ControlSource = "hzb1app.rq", ;
Height = 20, ;
Left = 61, ;
TabIndex = 12, ;
Top = 503, ;
Width = 71, ;
Name = "txtRq"
ADD OBJECT txtfzr AS textbox WITH ;
Comment = "", ;
ControlSource = "hzb1app.fzr", ;
Height = 20, ;
Left = 184, ;
MaxLength = 10, ;
TabIndex = 14, ;
Top = 503, ;
Width = 69, ;
Name = "txtFzr"
ADD OBJECT txtbzr AS textbox WITH ;
Comment = "", ;
ControlSource = "hzb1app.bzr", ;
Height = 20, ;
Left = 330, ;
MaxLength = 10, ;
TabIndex = 16, ;
Top = 503, ;
Width = 69, ;
Name = "txtBzr"
ADD OBJECT txtth AS textbox WITH ;
Comment = "", ;
ControlSource = "hzb1app.th", ;
Height = 20, ;
Left = 469, ;
MaxLength = 20, ;
TabIndex = 18, ;
Top = 504, ;
Width = 107, ;
Name = "txtTh"
ADD OBJECT command2 AS commandbutton WITH ;
Top = 503, ;
Left = 600, ;
Height = 25, ;
Width = 72, ;
FontBold = .T., ;
FontSize = 12, ;
Caption = "打 印", ;
ForeColor = RGB(255,0,0), ;
Name = "Command2"
PROCEDURE comp
select hzb1
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(23,7)
go top
for i=1 to 23
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(5,1)=sz(1,1)-sz(2,1)-sz(3,1)-sz(4,1)
sz(5,2)=sz(1,2)-sz(2,2)-sz(3,2)-sz(4,2)
sz(5,3)=sz(1,3)-sz(2,3)-sz(3,3)-sz(4,3)
sz(5,4)=sz(1,4)-sz(2,4)-sz(3,4)-sz(4,4)
sz(5,5)=sz(1,5)-sz(2,5)-sz(3,5)-sz(4,5)
sz(5,6)=sz(1,6)-sz(2,6)-sz(3,6)-sz(4,6)
sz(5,7)=sz(1,7)-sz(2,7)-sz(3,7)-sz(4,7)
sz(9,1)=sz(5,1)+sz(6,1)-sz(7,1)-sz(8,1)
sz(9,2)=sz(5,2)+sz(6,2)-sz(7,2)-sz(8,2)
sz(9,3)=sz(5,3)+sz(6,3)-sz(7,3)-sz(8,3)
sz(9,4)=sz(5,4)+sz(6,4)-sz(7,4)-sz(8,4)
sz(9,5)=sz(5,5)+sz(6,5)-sz(7,5)-sz(8,5)
sz(9,6)=sz(5,6)+sz(6,6)-sz(7,6)-sz(8,6)
sz(9,7)=sz(5,7)+sz(6,7)-sz(7,7)-sz(8,7)
sz(15,1)=sz(9,1)+sz(10,1)+sz(11,1)+sz(12,1)-sz(13,1)+sz(14,1)
sz(15,2)=sz(9,2)+sz(10,2)+sz(11,2)+sz(12,2)-sz(13,2)+sz(14,2)
sz(15,3)=sz(9,3)+sz(10,3)+sz(11,3)+sz(12,3)-sz(13,3)+sz(14,3)
sz(15,4)=sz(9,4)+sz(10,4)+sz(11,4)+sz(12,4)-sz(13,4)+sz(14,4)
sz(15,5)=sz(9,5)+sz(10,5)+sz(11,5)+sz(12,5)-sz(13,5)+sz(14,5)
sz(15,6)=sz(9,6)+sz(10,6)+sz(11,6)+sz(12,6)-sz(13,6)+sz(14,6)
sz(15,7)=sz(9,7)+sz(10,7)+sz(11,7)+sz(12,7)-sz(13,7)+sz(14,7)
sz(17,1)=sz(15,1)-sz(16,1)
sz(17,2)=sz(15,2)-sz(16,2)
sz(17,3)=sz(15,3)-sz(16,3)
sz(17,4)=sz(15,4)-sz(16,4)
sz(17,5)=sz(15,5)-sz(16,5)
sz(17,6)=sz(15,6)-sz(16,6)
sz(17,7)=sz(15,7)-sz(16,7)
sz(20,1)=sz(17,1)+sz(18,1)+sz(19,1)
sz(20,2)=sz(17,2)+sz(18,2)+sz(19,2)
sz(20,3)=sz(17,3)+sz(18,3)+sz(19,3)
sz(20,4)=sz(17,4)+sz(18,4)+sz(19,4)
sz(20,5)=sz(17,5)+sz(18,5)+sz(19,5)
sz(20,6)=sz(17,6)+sz(18,6)+sz(19,6)
sz(20,7)=sz(17,7)+sz(18,7)+sz(19,7)
sz(23,1)=sz(20,1)-sz(21,1)
sz(23,2)=sz(20,2)-sz(21,2)
sz(23,3)=sz(20,3)-sz(21,3)
sz(23,4)=sz(20,4)-sz(21,4)
sz(23,5)=sz(20,5)-sz(21,5)
sz(23,6)=sz(20,6)-sz(21,6)
sz(23,7)=sz(20,7)-sz(21,7)
repl sz1 with iif(sz(5,1)=0,space(11),str(sz(5,1),11,2)) for tag=5
repl sz2 with iif(sz(5,2)=0,space(11),str(sz(5,2),11,2)) for tag=5
repl sz3 with iif(sz(5,3)=0,space(11),str(sz(5,3),11,2)) for tag=5
repl sz4 with iif(sz(5,4)=0,space(11),str(sz(5,4),11,2)) for tag=5
repl sz5 with iif(sz(5,5)=0,space(11),str(sz(5,5),11,2)) for tag=5
repl sz6 with iif(sz(5,6)=0,space(11),str(sz(5,6),11,2)) for tag=5
repl sz7 with iif(sz(5,7)=0,space(11),str(sz(5,7),11,2)) for tag=5
repl sz1 with iif(sz(9,1)=0,space(11),str(sz(9,1),11,2)) for tag=9
repl sz2 with iif(sz(9,2)=0,space(11),str(sz(9,2),11,2)) for tag=9
repl sz3 with iif(sz(9,3)=0,space(11),str(sz(9,3),11,2)) for tag=9
repl sz4 with iif(sz(9,4)=0,space(11),str(sz(9,4),11,2)) for tag=9
repl sz5 with iif(sz(9,5)=0,space(11),str(sz(9,5),11,2)) for tag=9
repl sz6 with iif(sz(9,6)=0,space(11),str(sz(9,6),11,2)) for tag=9
repl sz7 with iif(sz(9,7)=0,space(11),str(sz(9,7),11,2)) for tag=9
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(17,1)=0,space(11),str(sz(17,1),11,2)) for tag=17
repl sz2 with iif(sz(17,2)=0,space(11),str(sz(17,2),11,2)) for tag=17
repl sz3 with iif(sz(17,3)=0,space(11),str(sz(17,3),11,2)) for tag=17
repl sz4 with iif(sz(17,4)=0,space(11),str(sz(17,4),11,2)) for tag=17
repl sz5 with iif(sz(17,5)=0,space(11),str(sz(17,5),11,2)) for tag=17
repl sz6 with iif(sz(17,6)=0,space(11),str(sz(17,6),11,2)) for tag=17
repl sz7 with iif(sz(17,7)=0,space(11),str(sz(17,7),11,2)) for tag=17
repl sz1 with iif(sz(20,1)=0,space(11),str(sz(20,1),11,2)) for tag=20
repl sz2 with iif(sz(20,2)=0,space(11),str(sz(20,2),11,2)) for tag=20
repl sz3 with iif(sz(20,3)=0,space(11),str(sz(20,3),11,2)) for tag=20
repl sz4 with iif(sz(20,4)=0,space(11),str(sz(20,4),11,2)) for tag=20
repl sz5 with iif(sz(20,5)=0,space(11),str(sz(20,5),11,2)) for tag=20
repl sz6 with iif(sz(20,6)=0,space(11),str(sz(20,6),11,2)) for tag=20
repl sz7 with iif(sz(20,7)=0,space(11),str(sz(20,7),11,2)) for tag=20
repl sz1 with iif(sz(23,1)=0,space(11),str(sz(23,1),11,2)) for tag=23
repl sz2 with iif(sz(23,2)=0,space(11),str(sz(23,2),11,2)) for tag=23
repl sz3 with iif(sz(23,3)=0,space(11),str(sz(23,3),11,2)) for tag=23
repl sz4 with iif(sz(23,4)=0,space(11),str(sz(23,4),11,2)) for tag=23
repl sz5 with iif(sz(23,5)=0,space(11),str(sz(23,5),11,2)) for tag=23
repl sz6 with iif(sz(23,6)=0,space(11),str(sz(23,6),11,2)) for tag=23
repl sz7 with iif(sz(23,7)=0,space(11),str(sz(23,7),11,2)) for tag=23
go currec
ENDPROC
PROCEDURE Init
this.caption='填报单位:'+name+space(4)+'国有企业损益表核查表[汇总表一]'+space(10)+'单位:万元'
select hzb1
set filter to mc=name
count to jls
if jls>0
select hzb1app
set filter to mc=name
go top
select hzb1
go top
else
select hzb1
set filter to
append from mhzb1
select hzb1
repl all mc with name for empty(mc)
set filter to mc=name
go top
select hzb1app
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.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.Valid
thisform.comp()
ENDPROC
PROCEDURE text1.When
wait window alltrim(xm)+':'+'检查组核查审定数' nowait
ENDPROC
PROCEDURE text1.LostFocus
thisform.comp()
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 hzb1
use in hzb1app
select dwk
ENDPROC
PROCEDURE command2.Click
select hzb1
currec=recno()
repl sz2 with ' - - - - - - - -' for tag=24
repl sz5 with ' - - - - - - - -' for tag=24
go top
report form hz1 preview
select hzb1
go currec
ENDPROC
ENDDEFINE
*
*-- 结束定义: hz1
**************************************************
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -