$PBExportHeader$w_expensesdef_popup_spt.srw
forward
global type w_expensesdef_popup_spt from w_expensesdef_spt
end type
end forward

global type w_expensesdef_popup_spt from w_expensesdef_spt
integer width = 2043
integer height = 1540
boolean minbox = true
windowtype windowtype = popup!
end type
global w_expensesdef_popup_spt w_expensesdef_popup_spt

on w_expensesdef_popup_spt.create
call super::create
end on

on w_expensesdef_popup_spt.destroy
call super::destroy
end on

type cb_func from w_expensesdef_spt`cb_func within w_expensesdef_popup_spt
end type

type cb_exit from w_expensesdef_spt`cb_exit within w_expensesdef_popup_spt
integer x = 987
end type

type cb_add from w_expensesdef_spt`cb_add within w_expensesdef_popup_spt
end type

type cb_edit from w_expensesdef_spt`cb_edit within w_expensesdef_popup_spt
end type

type cb_delet from w_expensesdef_spt`cb_delet within w_expensesdef_popup_spt
end type

type cb_choice from w_expensesdef_spt`cb_choice within w_expensesdef_popup_spt
boolean visible = false
end type

type dw_uc from w_expensesdef_spt`dw_uc within w_expensesdef_popup_spt
end type

event dw_uc::rowfocuschanged;IF modifyrow_no >0 AND dw_edit_mode THEN
	THIS.SETROW(modifyrow_no)
	THIS.ScrollToRow(modifyrow_no)
else
	this.selectrow(0,false)
	this.selectrow(currentrow,true)
END IF
end event

type cb_rtr from w_expensesdef_spt`cb_rtr within w_expensesdef_popup_spt
end type

type cb_help from w_expensesdef_spt`cb_help within w_expensesdef_popup_spt
integer x = 837
end type

type ln_bar from w_expensesdef_spt`ln_bar within w_expensesdef_popup_spt
end type

type ln_bar2 from w_expensesdef_spt`ln_bar2 within w_expensesdef_popup_spt
end type

type r_bar from w_expensesdef_spt`r_bar within w_expensesdef_popup_spt
end type

type cbx_mlselect from w_expensesdef_spt`cbx_mlselect within w_expensesdef_popup_spt
boolean visible = false
end type

type cbx_allselect from w_expensesdef_spt`cbx_allselect within w_expensesdef_popup_spt
boolean visible = false
end type