Q5/ws_objects/Ew_aifmb.pbl.src/w_aifmb_product.srw

$PBExportHeader$w_aifmb_product.srw
forward
global type w_aifmb_product from window
end type
type cb_choise from uo_imflatbutton within w_aifmb_product
end type
type cb_sync from uo_imflatbutton within w_aifmb_product
end type
type tv_1 from uo_tv_aifmb_class within w_aifmb_product
end type
type dw_1 from u_dw_rbtnfilter within w_aifmb_product
end type
type cb_exit from uo_imflatbutton within w_aifmb_product
end type
type cb_reflash from uo_imflatbutton within w_aifmb_product
end type
type ln_bar from line within w_aifmb_product
end type
type ln_bar2 from line within w_aifmb_product
end type
type r_bar from rectangle within w_aifmb_product
end type
type ln_1 from line within w_aifmb_product
end type
type ln_2 from line within w_aifmb_product
end type
type ln_3 from line within w_aifmb_product
end type
type ln_4 from line within w_aifmb_product
end type
end forward

global type w_aifmb_product from window
integer width = 3790
integer height = 2280
boolean titlebar = true
string title = "亚洲国际电商标准编码选择"
boolean controlmenu = true
windowtype windowtype = response!
long backcolor = 67108864
string icon = "AppIcon!"
boolean center = true
event ue_sync_node ( )
event ue_retrieve ( )
cb_choise cb_choise
cb_sync cb_sync
tv_1 tv_1
dw_1 dw_1
cb_exit cb_exit
cb_reflash cb_reflash
ln_bar ln_bar
ln_bar2 ln_bar2
r_bar r_bar
ln_1 ln_1
ln_2 ln_2
ln_3 ln_3
ln_4 ln_4
end type
global w_aifmb_product w_aifmb_product

type variables
long ins_nodeid_arr[]

long ins_productid = 0
end variables

event ue_sync_node();uo_aifmb = Create uo_aifmb
Int rslt = 1
String arg_msg
IF uo_aifmb.uf_sync_node(arg_msg) <> 1 THEN
	rslt = 0
	GOTO ext
END IF
ext:
Destroy uo_aifmb
IF rslt = 1 THEN
	MessageBox('提示', '同步成功')
	cb_reflash.TriggerEvent(Clicked!)
ELSE
	MessageBox('ERROR', arg_msg)
END IF

end event

event ue_retrieve();dw_1.Retrieve(ins_nodeid_arr)
end event

on w_aifmb_product.create
this.cb_choise=create cb_choise
this.cb_sync=create cb_sync
this.tv_1=create tv_1
this.dw_1=create dw_1
this.cb_exit=create cb_exit
this.cb_reflash=create cb_reflash
this.ln_bar=create ln_bar
this.ln_bar2=create ln_bar2
this.r_bar=create r_bar
this.ln_1=create ln_1
this.ln_2=create ln_2
this.ln_3=create ln_3
this.ln_4=create ln_4
this.Control[]={this.cb_choise,&
this.cb_sync,&
this.tv_1,&
this.dw_1,&
this.cb_exit,&
this.cb_reflash,&
this.ln_bar,&
this.ln_bar2,&
this.r_bar,&
this.ln_1,&
this.ln_2,&
this.ln_3,&
this.ln_4}
end on

on w_aifmb_product.destroy
destroy(this.cb_choise)
destroy(this.cb_sync)
destroy(this.tv_1)
destroy(this.dw_1)
destroy(this.cb_exit)
destroy(this.cb_reflash)
destroy(this.ln_bar)
destroy(this.ln_bar2)
destroy(this.r_bar)
destroy(this.ln_1)
destroy(this.ln_2)
destroy(this.ln_3)
destroy(this.ln_4)
end on

event resize;ln_bar.EndX = THIS.Width
ln_bar2.EndX = THIS.Width
ln_1.EndX = THIS.Width
ln_2.EndX = THIS.Width
ln_3.EndX = THIS.Width
ln_4.EndX = THIS.Width
r_bar.Width = THIS.Width


tv_1.Height = this.WorkSpaceHeight() - tv_1.Y
dw_1.Height = this.WorkSpaceHeight() - dw_1.Y
dw_1.Width = this.WOrkSpaceWidth() - dw_1.X

end event

event open;dw_1.SetTransObject(sqlca)
cb_reflash.triggerevent(clicked!)
end event

event close;closewithreturn(this, ins_productid)
end event

type cb_choise from uo_imflatbutton within w_aifmb_product
integer x = 425
integer width = 151
integer height = 164
integer taborder = 90
string text = "选中"
string normalpicname = "ok.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;long ll_row
ll_row = dw_1.GetRow()
if ll_row <= 0 then
	MessageBox('提示', '请选择对象')
	return
end if

ins_productid = dw_1.Object.productid[ll_row]
close(parent)
end event

type cb_sync from uo_imflatbutton within w_aifmb_product
integer x = 151
integer width = 274
integer height = 164
integer taborder = 80
string text = "同步基类"
string normalpicname = "refresh.BMP"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;parent.triggerevent('ue_sync_node')
end event

type tv_1 from uo_tv_aifmb_class within w_aifmb_product
integer y = 184
integer width = 841
integer taborder = 90
end type

event selectionchanged;call super::selectionchanged;Long arr_nodeid[]

pf_getnodeid(newhandle, arr_nodeid)
IF UpperBound(arr_nodeid) = 0 THEN
	arr_nodeid[1] = -1
END IF
ins_nodeid_arr = arr_nodeid
parent.triggerevent('ue_retrieve')
end event

type dw_1 from u_dw_rbtnfilter within w_aifmb_product
integer x = 841
integer y = 184
integer width = 2057
integer height = 984
integer taborder = 80
string dataobject = "dw_aifmb_product"
boolean hscrollbar = true
boolean vscrollbar = true
boolean hsplitscroll = true
boolean rbutton_filter_use = true
boolean rbutton_setposition_use = true
boolean titleclick_sort_use = true
end type

event clicked;call super::clicked;IF row > 0 THEN
	This.SetRow(row)
END IF


end event

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

end event

type cb_exit from uo_imflatbutton within w_aifmb_product
integer x = 576
integer width = 151
integer height = 164
integer taborder = 70
string text = "退出"
boolean cancel = true
string normalpicname = "exit.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;Close(PARENT)

end event

type cb_reflash from uo_imflatbutton within w_aifmb_product
integer width = 151
integer height = 164
integer taborder = 10
string text = "刷新"
string normalpicname = "refresh.BMP"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;tv_1.uf_build_tree()
end event

type ln_bar from line within w_aifmb_product
long linecolor = 268435456
integer linethickness = 4
integer beginy = 172
integer endx = 2007
integer endy = 172
end type

type ln_bar2 from line within w_aifmb_product
long linecolor = 16777215
integer linethickness = 4
integer beginy = 176
integer endx = 2039
integer endy = 176
end type

type r_bar from rectangle within w_aifmb_product
long linecolor = 16777215
integer linethickness = 4
long fillcolor = 1073741824
integer x = 2139
integer width = 146
integer height = 68
end type

event constructor;this.fillcolor = 14215660
this.linecolor = 14215660
this.x = -1
this.y = -1
this.height = ln_bar.beginy - 5

end event

type ln_1 from line within w_aifmb_product
boolean visible = false
long linecolor = 268435456
integer linethickness = 4
integer beginy = 292
integer endx = 2016
integer endy = 292
end type

type ln_2 from line within w_aifmb_product
boolean visible = false
long linecolor = 16777215
integer linethickness = 4
integer beginy = 296
integer endx = 2048
integer endy = 296
end type

type ln_3 from line within w_aifmb_product
boolean visible = false
long linecolor = 268435456
integer linethickness = 4
integer beginy = 412
integer endx = 2016
integer endy = 412
end type

type ln_4 from line within w_aifmb_product
boolean visible = false
long linecolor = 16777215
integer linethickness = 4
integer beginy = 416
integer endx = 2048
integer endy = 416
end type