Q5/ws_objects/Ew_sale.pbl.src/w_outware_sale_info.srw

$PBExportHeader$w_outware_sale_info.srw
forward
global type w_outware_sale_info from w_publ_base
end type
type dw_1 from u_dw_rbtnfilter within w_outware_sale_info
end type
type st_1 from statictext within w_outware_sale_info
end type
end forward

global type w_outware_sale_info from w_publ_base
integer width = 2034
integer height = 1168
string title = "发货单信息"
boolean resizable = true
dw_1 dw_1
st_1 st_1
end type
global w_outware_sale_info w_outware_sale_info

type variables
long ins_scid,ins_taskid,ins_printid
s_edit_index_tran s_tran
end variables

forward prototypes
public subroutine wf_retrieve (long arg_scid, long arg_taskid, long arg_printid)
end prototypes

public subroutine wf_retrieve (long arg_scid, long arg_taskid, long arg_printid);String ls_taskcode,ls_mtrlcode

SELECT u_SaleTask.TaskCode, u_mtrldef.mtrlcode
	INTO :ls_taskcode,:ls_mtrlcode
	FROM u_SaleTask INNER JOIN
	u_SaleTaskMx ON u_SaleTask.scid = u_SaleTaskMx.scid AND
	u_SaleTask.TaskID = u_SaleTaskMx.TaskID INNER JOIN
	u_mtrldef ON u_SaleTaskMx.MtrlID = u_mtrldef.mtrlid
	WHERE u_SaleTask.TaskID = :arg_taskid
	AND u_SaleTask.scid = :arg_scid
	And u_SaleTaskMx.printid = :arg_printid;
IF sqlca.SQLCode <> 0 THEN
	This.Title = ''
ELSE
	This.Title = ls_taskcode + '['+ls_mtrlcode+']' + ' 相关发货单信息'
END IF

dw_1.Retrieve(ins_scid,ins_taskid,ins_printid)

end subroutine

on w_outware_sale_info.create
int iCurrent
call super::create
this.dw_1=create dw_1
this.st_1=create st_1
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.dw_1
this.Control[iCurrent+2]=this.st_1
end on

on w_outware_sale_info.destroy
call super::destroy
destroy(this.dw_1)
destroy(this.st_1)
end on

event open;call super::open;Long ll_width,ll_height

ll_width = Long(f_ProfileString(sys_empid, "w_outware_sale_info", "winwidth", "1998"))
ll_height = Long(f_ProfileString(sys_empid, "w_outware_sale_info", "winheight", "1064"))

This.Width = ll_width
This.Height = ll_height

Long ll_x,ll_y
ll_x = Long(f_ProfileString(sys_empid, "w_outware_sale_info", "winx", "1326"))
ll_y = Long(f_ProfileString(sys_empid, "w_outware_sale_info", "winy", "1076"))

This.X = ll_x
This.Y = ll_y

environment   exerun_env
GetEnvironment(exerun_env )

//计算窗口位置
IF This.X + This.Width > PixelsToUnits(exerun_env.ScreenWidth, XPixelsToUnits!) THEN
	This.X = PixelsToUnits(exerun_env.ScreenWidth, XPixelsToUnits!) - This.Width
END IF

IF This.Y + This.Height > PixelsToUnits(exerun_env.ScreenHeight, XPixelsToUnits!) - 350 THEN
	This.Y = PixelsToUnits(exerun_env.ScreenHeight, XPixelsToUnits!) - This.Height - 350
END IF

s_tran = Message.PowerObjectParm

ins_scid = s_tran.b_long
ins_taskid = s_tran.c_long
ins_printid = s_tran.d_long

wf_retrieve(ins_scid,ins_taskid,ins_printid)
end event

event close;call super::close;f_SetProfileString(sys_empid, "w_outware_sale_info", "winwidth", String(THIS.Width))
f_SetProfileString(sys_empid, "w_outware_sale_info", "winheight", String(THIS.Height))
f_SetProfileString(sys_empid, "w_outware_sale_info", "winx", String(THIS.X))
f_SetProfileString(sys_empid, "w_outware_sale_info", "winy", String(THIS.Y))

end event

event resize;call super::resize;dw_1.width = this.width - 60
dw_1.height = this.height - 220
end event

event ue_before_open;call super::ue_before_open;dw_1.settransobject(sqlca)
end event

type cb_func from w_publ_base`cb_func within w_outware_sale_info
boolean visible = false
end type

type cb_exit from w_publ_base`cb_exit within w_outware_sale_info
boolean visible = false
end type

type dw_1 from u_dw_rbtnfilter within w_outware_sale_info
integer x = 9
integer y = 72
integer width = 1984
integer height = 980
integer taborder = 20
boolean bringtotop = true
string dataobject = "dw_outware_sale_info"
boolean hscrollbar = true
boolean vscrollbar = true
end type

event rowfocuschanged;call super::rowfocuschanged;IF currentrow <= 0 THEN RETURN
THIS.SelectRow(0,FALSE)
THIS.SelectRow(currentrow,TRUE)

end event

event doubleclicked;call super::doubleclicked;IF row > 0 THEN
	String ls_code
	Long ll_scid
	
	ll_scid = THIS.Object.u_outware_scid[row]
	ls_code = THIS.Object.u_outware_outwarecode[row]
	
	f_open_win(ll_scid,ls_code)
END IF
   
end event

type st_1 from statictext within w_outware_sale_info
integer x = 18
integer y = 12
integer width = 672
integer height = 48
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 16711680
long backcolor = 134217739
string text = "双击可显示发货单详细信息"
boolean focusrectangle = false
end type