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

$PBExportHeader$w_outrepdef_edit_ch_arr.srw
forward
global type w_outrepdef_edit_ch_arr from w_outrepdef_edit
end type
end forward

global type w_outrepdef_edit_ch_arr from w_outrepdef_edit
integer width = 2523
integer height = 1636
string title = "业务员 "
boolean minbox = false
windowtype windowtype = response!
end type
global w_outrepdef_edit_ch_arr w_outrepdef_edit_ch_arr

type variables
s_outrepdef_arr INS_RT_STRU_arr

Int if_mlselect = 1
Boolean if_changeselect = TRUE
end variables

on w_outrepdef_edit_ch_arr.create
call super::create
end on

on w_outrepdef_edit_ch_arr.destroy
call super::destroy
end on

event close;CLOSEWITHRETURN(THIS,INS_RT_STRU_arr)
end event

type cb_func from w_outrepdef_edit`cb_func within w_outrepdef_edit_ch_arr
end type

type cb_exit from w_outrepdef_edit`cb_exit within w_outrepdef_edit_ch_arr
end type

type cb_add from w_outrepdef_edit`cb_add within w_outrepdef_edit_ch_arr
end type

type cb_edit from w_outrepdef_edit`cb_edit within w_outrepdef_edit_ch_arr
end type

type cb_delet from w_outrepdef_edit`cb_delet within w_outrepdef_edit_ch_arr
end type

type cb_choice from w_outrepdef_edit`cb_choice within w_outrepdef_edit_ch_arr
boolean visible = true
integer y = 0
integer width = 151
end type

event cb_choice::clicked;Long i, cnt
//ROW=dw_uc.getrow()
//if ROW<=0 then 
//	messagebox('提示','请先选择目标行!', Information!, OK! )
//	return
//end if

FOR i = 1 To dw_uc.RowCount()
	IF dw_uc.IsSelected(i) THEN
		cnt++
		INS_RT_STRU_arr.outrepcode[cnt] = dw_uc.Object.outrepcode[i]
		INS_RT_STRU_arr.outrepname[cnt] = dw_uc.Object.outrepname[i]
		INS_RT_STRU_arr.outrepdscrp[cnt] = dw_uc.Object.outrepdscrp[i]
	END IF
NEXT

IF cnt = 0 THEN
	i = dw_uc.GetRow()
	IF i <= 0 THEN
		MessageBox('提示','请先选择目标行!', Information!, OK! )
		RETURN
	END IF
	
	cnt++
	INS_RT_STRU_arr.outrepcode[cnt] = dw_uc.Object.outrepcode[i]
	INS_RT_STRU_arr.outrepname[cnt] = dw_uc.Object.outrepname[i]
	INS_RT_STRU_arr.outrepdscrp[cnt] = dw_uc.Object.outrepdscrp[i]
END IF

Close(Parent)




end event

type dw_uc from w_outrepdef_edit`dw_uc within w_outrepdef_edit_ch_arr
end type

event dw_uc::doubleclicked;call super::doubleclicked;//IF row <= 0 then return 
//cb_choice.triggerevent(clicked!)
end event

event dw_uc::clicked;IF row > 0 THEN
	THIS.SetRow(row)
	IF if_mlselect = 1 THEN
		IF if_changeselect THEN
			THIS.SelectRow(row,NOT THIS.IsSelected(row))
		ELSE
			if_changeselect = TRUE
		END IF
	ELSE
		THIS.SelectRow(0,FALSE)
		THIS.SelectRow(row,TRUE)
	END IF
END IF
end event

event dw_uc::rowfocuschanged;IF if_mlselect = 1 THEN
	IF currentrow <= 0 THEN RETURN
	IF KeyDown(keycontrol!) THEN
		IF THIS.IsSelected(currentrow) THEN
			THIS.SelectRow(currentrow,FALSE)
			if_changeselect = FALSE
		ELSE
			if_changeselect = TRUE
		END IF
	ELSE
		IF NOT THIS.IsSelected(currentrow) THEN
			THIS.SelectRow(currentrow,TRUE)
			if_changeselect = FALSE
		ELSE
			if_changeselect = TRUE
		END IF
	END IF
ELSE
	IF dw_edit_mode THEN RETURN
	IF currentrow <= 0 THEN RETURN
	THIS.SelectRow(0,FALSE)
	THIS.SelectRow(currentrow,TRUE)
END IF
end event

type cb_rtr from w_outrepdef_edit`cb_rtr within w_outrepdef_edit_ch_arr
end type

type cb_help from w_outrepdef_edit`cb_help within w_outrepdef_edit_ch_arr
boolean visible = false
end type

type ln_bar from w_outrepdef_edit`ln_bar within w_outrepdef_edit_ch_arr
end type

type ln_bar2 from w_outrepdef_edit`ln_bar2 within w_outrepdef_edit_ch_arr
end type

type r_bar from w_outrepdef_edit`r_bar within w_outrepdef_edit_ch_arr
end type

type cb_view from w_outrepdef_edit`cb_view within w_outrepdef_edit_ch_arr
end type

type cbx_inuse from w_outrepdef_edit`cbx_inuse within w_outrepdef_edit_ch_arr
end type