Q5/ws_objects/cw_account.pbl.src/w_credence_mode_choice.srw

$PBExportHeader$w_credence_mode_choice.srw
$PBExportComments$模式凭证
forward
global type w_credence_mode_choice from w_publ_choice
end type
end forward

global type w_credence_mode_choice from w_publ_choice
integer width = 1705
integer height = 1636
string title = "模式凭证选择"
long backcolor = 80269524
end type
global w_credence_mode_choice w_credence_mode_choice

type variables
long rslt_credid = 0
end variables

on w_credence_mode_choice.create
call super::create
end on

on w_credence_mode_choice.destroy
call super::destroy
end on

event close;call super::close;CLOSEWITHRETURN(THIS,rslt_credid)
//<INS_RT_STRU> 窗体级子定义结构变量,用于返回
end event

event ue_before_open;call super::ue_before_open;if_ue_sort = TRUE

end event

type cb_func from w_publ_choice`cb_func within w_credence_mode_choice
end type

type cb_exit from w_publ_choice`cb_exit within w_credence_mode_choice
end type

event cb_exit::clicked;rslt_credid = 0
close(parent)
end event

type sle_ch from w_publ_choice`sle_ch within w_credence_mode_choice
end type

type dw_ch from w_publ_choice`dw_ch within w_credence_mode_choice
integer width = 1678
integer height = 1232
string dataobject = "dw_credence_mode_choice"
boolean hscrollbar = false
boolean hsplitscroll = false
end type

type st_1 from w_publ_choice`st_1 within w_credence_mode_choice
string text = "名称含"
end type

type cb_retrieve from w_publ_choice`cb_retrieve within w_credence_mode_choice
end type

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

type cb_choice from w_publ_choice`cb_choice within w_credence_mode_choice
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

rslt_credid = dw_CH.OBJECT.credid[LS_ROW]


CLOSE(PARENT)
end event

type ln_bar from w_publ_choice`ln_bar within w_credence_mode_choice
end type

type ln_bar2 from w_publ_choice`ln_bar2 within w_credence_mode_choice
end type

type r_bar from w_publ_choice`r_bar within w_credence_mode_choice
end type

type ln_1 from w_publ_choice`ln_1 within w_credence_mode_choice
end type

type ln_2 from w_publ_choice`ln_2 within w_credence_mode_choice
end type