Q5/ws_objects/cw_account.pbl.src/w_bill_cred_audit.srw

$PBExportHeader$w_bill_cred_audit.srw
forward
global type w_bill_cred_audit from w_publ_base
end type
type cb_1 from uo_imflatbutton within w_bill_cred_audit
end type
type st_7 from statictext within w_bill_cred_audit
end type
type ddlb_credtype from dropdownlistbox within w_bill_cred_audit
end type
end forward

global type w_bill_cred_audit from w_publ_base
integer width = 1211
integer height = 688
string title = "审核"
boolean minbox = false
windowtype windowtype = response!
cb_1 cb_1
st_7 st_7
ddlb_credtype ddlb_credtype
end type
global w_bill_cred_audit w_bill_cred_audit

type variables
s_bill_cred_audit s_rst

end variables

on w_bill_cred_audit.create
int iCurrent
call super::create
this.cb_1=create cb_1
this.st_7=create st_7
this.ddlb_credtype=create ddlb_credtype
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.cb_1
this.Control[iCurrent+2]=this.st_7
this.Control[iCurrent+3]=this.ddlb_credtype
end on

on w_bill_cred_audit.destroy
call super::destroy
destroy(this.cb_1)
destroy(this.st_7)
destroy(this.ddlb_credtype)
end on

event open;call super::open;s_rst.ifaudit = 0
end event

event close;call super::close;CloseWithReturn(THIS,s_rst)

end event

type cb_func from w_publ_base`cb_func within w_bill_cred_audit
boolean visible = false
integer x = 27
integer y = 644
integer taborder = 30
end type

type cb_exit from w_publ_base`cb_exit within w_bill_cred_audit
integer x = 640
integer y = 396
integer taborder = 20
string text = "取消"
end type

type cb_1 from uo_imflatbutton within w_bill_cred_audit
integer x = 224
integer y = 396
integer width = 311
integer height = 96
integer taborder = 10
boolean bringtotop = true
boolean default = true
string normalpicname = "ok.bmp"
end type

event clicked;call super::clicked;s_rst.ifaudit = 1
s_rst.credtype = Trim(ddlb_credtype.Text)
CLOSE(PARENT)

end event

type st_7 from statictext within w_bill_cred_audit
integer x = 229
integer y = 156
integer width = 187
integer height = 56
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 67108864
boolean enabled = false
string text = "凭证字"
boolean focusrectangle = false
end type

type ddlb_credtype from dropdownlistbox within w_bill_cred_audit
integer x = 425
integer y = 144
integer width = 453
integer height = 340
integer taborder = 40
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
boolean vscrollbar = true
borderstyle borderstyle = stylelowered!
end type

event constructor;String ls_credtype
Int cnt

DECLARE cur_credtype CURSOR FOR
	SELECT cw_Credenceword.Credenceword
	FROM cw_Credenceword
	Where accsetid = :sys_accsetid;
	
OPEN cur_credtype;
FETCH cur_credtype Into :ls_credtype;
DO WHILE sqlca.SQLCode = 0
	cnt++
	This.AddItem(ls_credtype)
	FETCH cur_credtype Into :ls_credtype;
LOOP

IF cnt = 1 THEN
	Text = ls_credtype
END IF

CLOSE cur_credtype;




end event