Q5/ws_objects/Ew_define.pbl.src/w_storage_index_ch.srw

$PBExportHeader$w_storage_index_ch.srw
forward
global type w_storage_index_ch from w_publ_choice
end type
end forward

global type w_storage_index_ch from w_publ_choice
integer width = 3493
string title = "仓库选择"
end type
global w_storage_index_ch w_storage_index_ch

type variables
s_edit_index_tran INS_RT_STRU
end variables

on w_storage_index_ch.create
call super::create
end on

on w_storage_index_ch.destroy
call super::destroy
end on

event close;call super::close;CLOSEWITHRETURN(THIS,INS_RT_STRU)
end event

type cb_func from w_publ_choice`cb_func within w_storage_index_ch
end type

type cb_exit from w_publ_choice`cb_exit within w_storage_index_ch
end type

event cb_exit::clicked;INS_RT_STRU.c_long = 0 
close(parent)
end event

type sle_ch from w_publ_choice`sle_ch within w_storage_index_ch
boolean visible = false
end type

type dw_ch from w_publ_choice`dw_ch within w_storage_index_ch
integer y = 180
integer width = 3470
integer height = 1532
string dataobject = "dw_storage_index_ch"
end type

type st_1 from w_publ_choice`st_1 within w_storage_index_ch
boolean visible = false
end type

type cb_retrieve from w_publ_choice`cb_retrieve within w_storage_index_ch
end type

event cb_retrieve::clicked;dw_ch.retrieve(sys_user_storageid)
end event

type cb_choice from w_publ_choice`cb_choice within w_storage_index_ch
end type

event cb_choice::clicked;call super::clicked;Long LS_ROW
LS_ROW = dw_CH.GetRow()
IF LS_ROW <= 0 THEN
	MessageBox('系统提示','请先选择目标行!',StopSign!)
	RETURN
END IF

INS_RT_STRU.c_long = dw_CH.Object.storageid[LS_ROW]

Close(Parent)

end event

type ln_bar from w_publ_choice`ln_bar within w_storage_index_ch
end type

type ln_bar2 from w_publ_choice`ln_bar2 within w_storage_index_ch
end type

type r_bar from w_publ_choice`r_bar within w_storage_index_ch
end type

type ln_1 from w_publ_choice`ln_1 within w_storage_index_ch
boolean visible = false
end type

type ln_2 from w_publ_choice`ln_2 within w_storage_index_ch
boolean visible = false
end type