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

$PBExportHeader$w_cust_edit_popup.srw
forward
global type w_cust_edit_popup from w_cust_edit
end type
end forward

global type w_cust_edit_popup from w_cust_edit
integer y = 388
integer height = 2426
boolean minbox = true
windowtype windowtype = popup!
event ue_ch_upname ( )
end type
global w_cust_edit_popup w_cust_edit_popup

event ue_ch_upname();IF Not IsValid(w_outrepdef_edit_ch) THEN
	Open(w_outrepdef_edit_ch)
	s_outrepdef s_outrep_ch
	s_outrep_ch = Message.PowerObjectParm
	IF s_outrep_ch.outrepname <> '' THEN
		dw_base.Object.upname[dw_base.GetRow()] = s_outrep_ch.outrepname
	END IF
	
	
	datawindowchild childdw
	dw_base.GetChild("upname",childdw)
	childdw.SetTransObject (sqlca)
	childdw.Retrieve()
END IF

end event

on w_cust_edit_popup.create
call super::create
end on

on w_cust_edit_popup.destroy
call super::destroy
end on

type cb_func from w_cust_edit`cb_func within w_cust_edit_popup
end type

type cb_exit from w_cust_edit`cb_exit within w_cust_edit_popup
end type

type sle_usual_query from w_cust_edit`sle_usual_query within w_cust_edit_popup
end type

type cb_nextpage from w_cust_edit`cb_nextpage within w_cust_edit_popup
integer x = 2483
end type

type cb_priorpage from w_cust_edit`cb_priorpage within w_cust_edit_popup
end type

type cb_firstpage from w_cust_edit`cb_firstpage within w_cust_edit_popup
end type

type cb_retrieveall from w_cust_edit`cb_retrieveall within w_cust_edit_popup
end type

type em_pagerowno from w_cust_edit`em_pagerowno within w_cust_edit_popup
integer x = 2015
string text = "1000"
end type

type st_pagerowno from w_cust_edit`st_pagerowno within w_cust_edit_popup
end type

type st_1 from w_cust_edit`st_1 within w_cust_edit_popup
end type

type cb_add from w_cust_edit`cb_add within w_cust_edit_popup
end type

type cb_edit from w_cust_edit`cb_edit within w_cust_edit_popup
end type

type cb_delet from w_cust_edit`cb_delet within w_cust_edit_popup
end type

type cb_choice from w_cust_edit`cb_choice within w_cust_edit_popup
end type

type cb_cancel from w_cust_edit`cb_cancel within w_cust_edit_popup
end type

type cbx_mlselect from w_cust_edit`cbx_mlselect within w_cust_edit_popup
end type

type cbx_allselect from w_cust_edit`cbx_allselect within w_cust_edit_popup
end type

type cb_mode_itfchg_b from w_cust_edit`cb_mode_itfchg_b within w_cust_edit_popup
end type

type cb_mode_itfchg from w_cust_edit`cb_mode_itfchg within w_cust_edit_popup
end type

type gb_1 from w_cust_edit`gb_1 within w_cust_edit_popup
end type

type dw_uc from w_cust_edit`dw_uc within w_cust_edit_popup
end type

type cb_retrieve from w_cust_edit`cb_retrieve within w_cust_edit_popup
end type

type cb_print from w_cust_edit`cb_print within w_cust_edit_popup
end type

type ln_bar from w_cust_edit`ln_bar within w_cust_edit_popup
end type

type ln_bar2 from w_cust_edit`ln_bar2 within w_cust_edit_popup
end type

type r_bar from w_cust_edit`r_bar within w_cust_edit_popup
end type

type ln_1 from w_cust_edit`ln_1 within w_cust_edit_popup
end type

type ln_2 from w_cust_edit`ln_2 within w_cust_edit_popup
end type

type dw_index from w_cust_edit`dw_index within w_cust_edit_popup
integer height = 2032
end type

type cb_help from w_cust_edit`cb_help within w_cust_edit_popup
end type

type cbx_inuse from w_cust_edit`cbx_inuse within w_cust_edit_popup
end type

type tv_1 from w_cust_edit`tv_1 within w_cust_edit_popup
integer height = 2026
end type

type cb_1 from w_cust_edit`cb_1 within w_cust_edit_popup
end type

type tab_1 from w_cust_edit`tab_1 within w_cust_edit_popup
integer height = 2045
end type

type tabpage_1 from w_cust_edit`tabpage_1 within tab_1
integer height = 1946
end type

type dw_base from w_cust_edit`dw_base within tabpage_1
event ue_ch_upname ( )
integer height = 1949
end type

event dw_base::clicked;IF  dwo.Name = 'p_2' THEN
	GetParentWin().TriggerEvent('ue_mod_address')
END IF

IF dw_edit_mode THEN
	IF dwo.Name = 'p_1' THEN
		GetParentWin().TriggerEvent('ue_ch_station')
	ELSEIF  dwo.Name = 'p_3' THEN
		GetParentWin().TriggerEvent('ue_mod_freight_address')
	ELSEIF  dwo.Name = 'p_emp' THEN
		GetParentWin().TriggerEvent('ue_ch_outrepdef')
	ELSEIF  dwo.Name = 'p_banktype' THEN
		GetParentWin().TriggerEvent('ue_ch_banktype')
	ELSEIF  dwo.Name = 'p_cusarea' THEN
		GetParentWin().TriggerEvent('ue_ch_cusarea')
	ELSEIF  dwo.Name = 'p_member' THEN
		GetParentWin().TriggerEvent('ue_ch_member')
	ELSEIF  dwo.Name = 'p_grade' THEN
		GetParentWin().TriggerEvent('ue_ch_grade')
	ELSEIF  dwo.Name = 'p_up' THEN
		GetParentWin().TriggerEvent('ue_ch_upname')
	END IF
END IF







end event

type tabpage_2 from w_cust_edit`tabpage_2 within tab_1
integer height = 1946
end type

type cb_add_xm from w_cust_edit`cb_add_xm within tabpage_2
end type

type dw_rep from w_cust_edit`dw_rep within tabpage_2
end type

type cb_dele_xm from w_cust_edit`cb_dele_xm within tabpage_2
end type

type cb_other from w_cust_edit`cb_other within w_cust_edit_popup
end type

type st_2 from w_cust_edit`st_2 within w_cust_edit_popup
end type

type ddlb_member from w_cust_edit`ddlb_member within w_cust_edit_popup
end type

type cbx_auto_cuscode from w_cust_edit`cbx_auto_cuscode within w_cust_edit_popup
integer x = 2567
end type

type st_3 from w_cust_edit`st_3 within w_cust_edit_popup
integer x = 2564
end type

type em_1 from w_cust_edit`em_1 within w_cust_edit_popup
integer x = 2801
end type