Q5/ws_objects/Oa_workremind.pbl.src/w_oa_workremind_dftwin.srw

$PBExportHeader$w_oa_workremind_dftwin.srw
forward
global type w_oa_workremind_dftwin from window
end type
type dw_mx from datawindow within w_oa_workremind_dftwin
end type
type cb_exit from commandbutton within w_oa_workremind_dftwin
end type
end forward

global type w_oa_workremind_dftwin from window
integer width = 3611
integer height = 2380
boolean titlebar = true
string title = "工作提醒"
boolean controlmenu = true
windowtype windowtype = popup!
long backcolor = 67108864
string icon = "AppIcon!"
boolean center = true
dw_mx dw_mx
cb_exit cb_exit
end type
global w_oa_workremind_dftwin w_oa_workremind_dftwin

type variables
uo_oa_workremind u_wrm

end variables

on w_oa_workremind_dftwin.create
this.dw_mx=create dw_mx
this.cb_exit=create cb_exit
this.Control[]={this.dw_mx,&
this.cb_exit}
end on

on w_oa_workremind_dftwin.destroy
destroy(this.dw_mx)
destroy(this.cb_exit)
end on

event open;s_edit_index_tran s_tran
s_tran = Message.PowerObjectParm

//1.取提醒的语句
//2.改下dw的SQL语句
//3.刷新
Boolean rslt = TRUE
String arg_msg
String ls_ExpressionsMx
//
//uo_oa_workremind u_wrm
u_wrm = CREATE uo_oa_workremind

dw_mx.settransobject(sqlca)

//1
rslt = u_wrm.uf_get_userworkremind_mx(s_tran.arg_pkid, ls_ExpressionsMx, arg_msg)

IF NOT rslt THEN
	MessageBox('ERROR', arg_msg)
	RETURN
END IF


//2
dw_mx.Modify("datawindow.table.select = ~"" + ls_ExpressionsMx+ "~"")

//3
dw_mx.Retrieve()

/*
  SELECT u_SaleTask.Taskcode as billcode,   
         u_SaleTask.Dscrp as billdscrp, 
			u_SaleTask.otheramt as billnum,
         u_SaleTask.taskdate as billdate,  
         u_SaleTask.rel_rep as billrep
    FROM u_SaleTask 
*/


end event

type dw_mx from datawindow within w_oa_workremind_dftwin
integer width = 3593
integer height = 2092
integer taborder = 10
string title = "none"
string dataobject = "dw_oa_workremind_dftwin"
boolean livescroll = true
borderstyle borderstyle = stylelowered!
end type

event doubleclicked;dw_mx.SelectRow(0,FALSE)
dw_mx.SelectRow(row,TRUE)
dw_mx.SetRow(row)
if row > 0 then
	string ls_code
	ls_code = dw_mx.Object.billcode[row]
	f_open_win(-1,ls_code) 
end if


end event

type cb_exit from commandbutton within w_oa_workremind_dftwin
integer x = 1509
integer y = 2156
integer width = 270
integer height = 84
integer taborder = 10
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "关 闭"
end type

event clicked;close(parent)
end event