Q5/ws_objects/Cw_interface.pbl.src/w_credport.srw

$PBExportHeader$w_credport.srw
forward
global type w_credport from window
end type
type cb_3 from commandbutton within w_credport
end type
type cb_retr from commandbutton within w_credport
end type
type cb_1 from commandbutton within w_credport
end type
type dw_1 from u_dw_rbtnfilter within w_credport
end type
end forward

global type w_credport from window
integer width = 2542
integer height = 2280
boolean titlebar = true
string title = "自动凭证设置"
boolean controlmenu = true
boolean minbox = true
windowtype windowtype = popup!
long backcolor = 67108864
string icon = "AppIcon!"
boolean center = true
cb_3 cb_3
cb_retr cb_retr
cb_1 cb_1
dw_1 dw_1
end type
global w_credport w_credport

forward prototypes
public subroutine wf_retrieve ()
end prototypes

public subroutine wf_retrieve ();if dw_1.retrieve(sys_version_type) > 0 then
	dw_1.selectrow(0,false)
	dw_1.setrow(1)
	dw_1.selectrow(1,true)
end if

end subroutine

on w_credport.create
this.cb_3=create cb_3
this.cb_retr=create cb_retr
this.cb_1=create cb_1
this.dw_1=create dw_1
this.Control[]={this.cb_3,&
this.cb_retr,&
this.cb_1,&
this.dw_1}
end on

on w_credport.destroy
destroy(this.cb_3)
destroy(this.cb_retr)
destroy(this.cb_1)
destroy(this.dw_1)
end on

event open;dw_1.SetTransObject(sqlca)

cb_retr.TriggerEvent(Clicked!)

end event

event resize;dw_1.Height = Height - dw_1.Y - 150





end event

type cb_3 from commandbutton within w_credport
integer x = 718
integer width = 311
integer height = 96
integer taborder = 30
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "退出"
end type

event clicked;close(parent)
end event

type cb_retr from commandbutton within w_credport
integer x = 41
integer width = 311
integer height = 96
integer taborder = 20
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "刷新"
end type

event clicked;wf_retrieve()
end event

type cb_1 from commandbutton within w_credport
integer x = 379
integer width = 311
integer height = 96
integer taborder = 20
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "设置"
end type

event clicked;Long ll_row,ll_credid,ll_find
ll_row = dw_1.GetRow()
IF ll_row <= 0 THEN
	MessageBox('提示','请选择凭证')
	RETURN
END IF
ll_credid = dw_1.Object.credid[ll_row]
OpenWithParm(w_credport_edit,ll_credid)
wf_retrieve()

ll_find = dw_1.Find('credid = ' + String(ll_credid),1,dw_1.RowCount())
IF ll_find > 0 THEN
	dw_1.SelectRow(0,False)
	dw_1.SelectRow(ll_find,True)
	dw_1.SetRow(ll_find)
	dw_1.ScrollToRow(ll_find)
END IF


end event

type dw_1 from u_dw_rbtnfilter within w_credport
integer x = 27
integer y = 108
integer width = 2441
integer height = 2056
string dataobject = "dw_credport_index"
boolean hscrollbar = true
boolean vscrollbar = true
boolean rbutton_filter_use = true
boolean titleclick_sort_use = true
end type

event rowfocuschanged;call super::rowfocuschanged;IF currentrow > 0 THEN
	dw_1.SelectRow(0,False)
	dw_1.SelectRow(currentrow,True)
END IF


end event

event clicked;call super::clicked;IF row > 0 THEN
	dw_1.SelectRow(0,False)
	dw_1.SelectRow(row,True)
END IF
end event