Q5/ws_objects/Ew_mrp.pbl.src/w_saletask_sc_mx.srw

$PBExportHeader$w_saletask_sc_mx.srw
forward
global type w_saletask_sc_mx from w_publ_easyq
end type
type ddlb_1 from dropdownlistbox within w_saletask_sc_mx
end type
type ddlb_scid from uo_ddlb_scid within w_saletask_sc_mx
end type
type cb_3 from uo_imflatbutton within w_saletask_sc_mx
end type
type cb_4 from uo_imflatbutton within w_saletask_sc_mx
end type
type cbx_allselect from checkbox within w_saletask_sc_mx
end type
type cb_5 from uo_imflatbutton within w_saletask_sc_mx
end type
type cb_6 from uo_imflatbutton within w_saletask_sc_mx
end type
type cb_10 from uo_imflatbutton within w_saletask_sc_mx
end type
type ddlb_2 from dropdownlistbox within w_saletask_sc_mx
end type
type ddlb_3 from dropdownlistbox within w_saletask_sc_mx
end type
type cb_edit from uo_imflatbutton within w_saletask_sc_mx
end type
type cb_save from uo_imflatbutton within w_saletask_sc_mx
end type
type st_1 from statictext within w_saletask_sc_mx
end type
type cbx_notsc from checkbox within w_saletask_sc_mx
end type
type cb_xls from uo_imflatbutton within w_saletask_sc_mx
end type
type st_5 from statictext within w_saletask_sc_mx
end type
type ddlb_status from uo_ddlb_status within w_saletask_sc_mx
end type
type cbx_1 from checkbox within w_saletask_sc_mx
end type
type cb_9 from commandbutton within w_saletask_sc_mx
end type
type cb_11 from uo_imflatbutton within w_saletask_sc_mx
end type
type cb_12 from uo_imflatbutton within w_saletask_sc_mx
end type
type cb_add_sale from uo_imflatbutton within w_saletask_sc_mx
end type
type cbx_date from checkbox within w_saletask_sc_mx
end type
type cbx_iffinish from checkbox within w_saletask_sc_mx
end type
type cb_7 from uo_imflatbutton within w_saletask_sc_mx
end type
type cb_8 from uo_imflatbutton within w_saletask_sc_mx
end type
type ln_7 from line within w_saletask_sc_mx
end type
type ln_8 from line within w_saletask_sc_mx
end type
end forward

global type w_saletask_sc_mx from w_publ_easyq
integer width = 4832
string title = "销售订单跟踪表"
event ue_viewprint ( )
event ue_print ( )
event ue_viewprint_other ( )
event ue_print_other ( )
event ue_psetup ( )
event ue_xls ( )
event ue_p_plancode ( )
event ue_view_mxdscrp ( )
event ue_view_mxdscrp2 ( )
event ue_p_mxdscrp3 ( )
event ue_p_mxdscrp4 ( )
ddlb_1 ddlb_1
ddlb_scid ddlb_scid
cb_3 cb_3
cb_4 cb_4
cbx_allselect cbx_allselect
cb_5 cb_5
cb_6 cb_6
cb_10 cb_10
ddlb_2 ddlb_2
ddlb_3 ddlb_3
cb_edit cb_edit
cb_save cb_save
st_1 st_1
cbx_notsc cbx_notsc
cb_xls cb_xls
st_5 st_5
ddlb_status ddlb_status
cbx_1 cbx_1
cb_9 cb_9
cb_11 cb_11
cb_12 cb_12
cb_add_sale cb_add_sale
cbx_date cbx_date
cbx_iffinish cbx_iffinish
cb_7 cb_7
cb_8 cb_8
ln_7 ln_7
ln_8 ln_8
end type
global w_saletask_sc_mx w_saletask_sc_mx

type variables
int cur_status = 1 //当前查询订单状态// -1 所有
int cur_stattype = 0
long cur_scid_arr[]
long cur_scid = -1
String ls_newname = ''
Long ll_prownum
Long ls_powerid
Int li_auditprint
String ls_rpname = ''
Long ls_msgprintid_rpt = 0
boolean if_sc = false

//int if_viewprint

uo_order_ml obj_order
uo_saletask uo_sale
int cur_inware = -1
int cur_sc = -1 
int cur_ifsc = 0
int cur_ifstop=0
int cur_date = 0
int cur_iffinish = 0
boolean print_sc = false


String ins_openfile_log[] //用于退出后删除
Long ins_openfile_log_p = 0    //用于退出后删除


Long ll_xls_billid,ll_xls_Templatesid
String ls_xls_DefaultDataWindow
end variables

forward prototypes
public function integer wf_hide_col ()
public function integer wf_dw ()
public function integer wf_refresh_interface ()
public subroutine wf_addlog_tempfilepathname (string arg_filepathname)
public function integer wf_xls_retrievedata (long arg_ationid, ref s_xls_billlist arg_str_billlist, ref uo_sendtoexcel arg_obj_st, ref string arg_msg)
public subroutine wf_checkdate ()
end prototypes

event ue_viewprint();IF NOT f_power_ind(984) THEN
	MessageBox('提示','你没有使用权限！',information!,OK!)
	RETURN
END IF

Long LS_ROW
Long ll_sptid,printid
String ls_taskcode
String ls_printid
String ls_parms[]
String ls_msg
Long ll_mx
Long cur_scid
Long ls_msgprintid
s_saletaskmx s_mx[]

ls_msgprintid = Message.LongParm


SELECT dft_new_dwname,powerid,auditprint,prownum
	INTO :ls_newname,:ls_powerid,:li_auditprint,:ll_prownum
	FROM sys_dft_dwprint_dynamic
	Where sys_dft_dwprint_dynamic.dwprintid = :ls_msgprintid USING sqlca;
IF sqlca.SQLCode <> 0 THEN
	ls_newname = ''
	ls_powerid = 0
END IF

IF ddlb_scid.uo_scid = - 1 THEN
	MessageBox('提示','请先选择分部',information!,OK!)
	RETURN
END IF

ll_mx = 0
ls_msg = ''
cur_scid = ddlb_scid.uo_scid
dw_1.AcceptText()
FOR LS_ROW = 1 TO dw_1.RowCount()
	IF dw_1.Object.isselect[LS_ROW] = 1 THEN
		ls_taskcode = dw_1.Object.u_saletask_taskcode[LS_ROW]
		ll_mx ++
		ls_printid = String(dw_1.Object.u_saletaskmx_printid[LS_ROW],'#####0')
		ls_parms[ll_mx] =  LeftTrim(RightTrim(ls_taskcode)) + LeftTrim(RightTrim(ls_printid))
		s_mx[ll_mx].taskid = dw_1.Object.u_saletask_taskid[LS_ROW]
		s_mx[ll_mx].scid = dw_1.Object.u_saletask_scid[LS_ROW]
		s_mx[ll_mx].printid = dw_1.Object.u_saletaskmx_printid[LS_ROW]
		s_mx[ll_mx].ifsc =   dw_1.Object.u_saletaskmx_ifsc[LS_ROW]
		s_mx[ll_mx].cardcount = dw_1.Object.u_saletaskmx_orderqty[LS_ROW]
		
		IF if_sc  THEN
			IF s_mx[ll_mx].ifsc = 1 THEN
				ls_msg = ls_msg + '第' + String(dw_1.Object.row[LS_ROW]) + '行,订单:' + ls_taskcode + ',产品:' + dw_1.Object.u_mtrldef_mtrlcode[LS_ROW] + '已排产,不能重复排产! ~n'
			END IF
		END IF
		
	END IF
NEXT

IF ls_msg <> '' THEN
	MessageBox('错误',ls_msg,stopsign!,OK!)
	RETURN
END IF


IF ll_mx = 0 THEN
	MessageBox('提示','请选择要打印的目标单据!',information!,OK!)
	RETURN
ELSE
	IF if_sc  THEN
		if_sc = FALSE
		IF  obj_order.uof_sc(s_mx,ll_mx,1,ls_msg) = 0  THEN
			MessageBox('错误',ls_msg,stopsign!,OK!)
			RETURN
		END IF
	END IF
END IF



S_print_MSG LS_PRMSG
IF ls_newname <> '' THEN
	LS_PRMSG.obj_dwNAME = ls_newname
ELSE
	LS_PRMSG.obj_dwNAME = 'dw_rp_saletask_sc_mx_edit'
END IF

datetime firstdate,enddate
firstdate = DATEtime(date(EM_1.TEXT),time(0))
enddate = datetime(date(EM_2.TEXT),time('23:59:59'))

LS_PRMSG.TAG_TEXT = '销售排产打印单汇总打印'
LS_PRMSG.FILTER_STRING = ''
LS_PRMSG.retr_pram_falg = 17
LS_PRMSG.PAGECH_FLAG = 0
LS_PRMSG.retr_scid = cur_scid
LS_PRMSG.a_string_arr = ls_parms
LS_PRMSG.rowcnt = ll_mx
LS_PRMSG.retr_pramfdt = firstdate
LS_PRMSG.retr_pramedt = enddate
OpenWithParm(w_publ_preview,LS_PRMSG)

String arg_msg
printnum = Message.DoubleParm
IF printnum > 0 THEN
	
	FOR LS_ROW = 1 TO ll_mx
		f_update_printnum('u_saletaskmx',printnum,cur_scid,s_mx[LS_ROW].scid,ls_parms[LS_ROW],'',arg_msg,TRUE)
	NEXT
	
	CHOOSE CASE  sys_option_saletask_sc_print2
		CASE 1
			IF MessageBox ("询问","打印是否成功?成功则确认当前选定明细。",Question!,YesNo! ) = 1 THEN
				print_sc = TRUE
				cb_3.TriggerEvent(Clicked!)
			END IF
		CASE 2
			print_sc = TRUE
			cb_3.TriggerEvent(Clicked!)
	END CHOOSE
	
END IF


end event

event ue_print();IF NOT f_power_ind(987) THEN
	MessageBox('提示','你没有使用权限！',information!,OK!)
	RETURN
END IF

Long LS_ROW
Long ll_sptid,printid
String ls_taskcode
String ls_printid
String ls_parms[]
String ls_msg
Long ll_mx
Long cur_scid
Long ls_msgprintid
s_saletaskmx s_mx[]
ls_msgprintid = Message.LongParm


SELECT dft_new_dwname,powerid,auditprint,prownum
	INTO :ls_newname,:ls_powerid,:li_auditprint,:ll_prownum
	FROM sys_dft_dwprint_dynamic
	Where sys_dft_dwprint_dynamic.dwprintid = :ls_msgprintid USING sqlca;
IF sqlca.SQLCode <> 0 THEN
	ls_newname = ''
	ls_powerid = 0
END IF

IF ddlb_scid.uo_scid = - 1 THEN
	MessageBox('提示','请先选择分部',information!,OK!)
	RETURN
END IF

ll_mx = 0
ls_msg = ''
cur_scid = ddlb_scid.uo_scid
dw_1.AcceptText()
FOR LS_ROW = 1 TO dw_1.RowCount()
	IF dw_1.Object.isselect[LS_ROW] = 1 THEN
		ls_taskcode = dw_1.Object.u_saletask_taskcode[LS_ROW]
		ll_mx ++
		ls_printid = String(dw_1.Object.u_saletaskmx_printid[LS_ROW],'#####0')
		ls_parms[ll_mx] =  LeftTrim(RightTrim(ls_taskcode)) + LeftTrim(RightTrim(ls_printid))
		s_mx[ll_mx].taskid = dw_1.Object.u_saletask_taskid[LS_ROW]
		s_mx[ll_mx].scid = dw_1.Object.u_saletask_scid[LS_ROW]
		s_mx[ll_mx].printid = dw_1.Object.u_saletaskmx_printid[LS_ROW]
		s_mx[ll_mx].cardcount = dw_1.Object.u_saletaskmx_orderqty[LS_ROW]
	END IF
NEXT

IF ls_msg <> '' THEN
	MessageBox('错误',ls_msg,stopsign!,OK!)
	RETURN
END IF

IF ll_mx = 0 THEN
	MessageBox('提示','请选择要打印的目标单据!',information!,OK!)
	RETURN
END IF

S_print_MSG LS_PRMSG


IF ls_newname <> '' THEN
	LS_PRMSG.obj_dwNAME = ls_newname
ELSE
	LS_PRMSG.obj_dwNAME = 'dw_rp_saletask_sc_mx_edit'
END IF

datetime firstdate,enddate
firstdate = DATEtime(date(EM_1.TEXT),time(0))
enddate = datetime(date(EM_2.TEXT),time('23:59:59'))


uo_print_preview uo_print
LS_PRMSG.TAG_TEXT = '销售排产打印单汇总打印'
LS_PRMSG.FILTER_STRING = ''
LS_PRMSG.retr_pram_falg = 17
LS_PRMSG.PAGECH_FLAG = 0
LS_PRMSG.retr_scid = cur_scid
LS_PRMSG.a_string_arr = ls_parms
LS_PRMSG.rowcnt = ll_mx
LS_PRMSG.retr_pramfdt = firstdate
LS_PRMSG.retr_pramedt = enddate
uo_print.FACT_PRINT_MSG = LS_PRMSG

String arg_msg
IF uo_print.uof_print_begin(arg_msg) = 0 THEN
	MessageBox("错误",arg_msg,stopsign!,OK!)
	RETURN
END IF
uo_print.ds_print()



FOR LS_ROW = 1 TO ll_mx
	f_update_printnum('u_saletaskmx',1,cur_scid,s_mx[LS_ROW].scid,ls_parms[LS_ROW],'',arg_msg,TRUE)
NEXT


CHOOSE CASE  sys_option_saletask_sc_print2
	CASE 1
		IF MessageBox ("询问","打印是否成功?成功则确认当前选定明细。",Question!,YesNo! ) = 1 THEN
			print_sc = TRUE
			cb_3.TriggerEvent(Clicked!)
		END IF
	CASE 2
		print_sc = TRUE
		cb_3.TriggerEvent(Clicked!)
END CHOOSE



end event

event ue_viewprint_other();IF Not f_power_ind(984) THEN
	MessageBox('提示','你没有使用权限！',information!,OK!)
	RETURN
END IF

Long LS_ROW
Long ll_sptid,printid
String ls_taskcode
String ls_printid
String ls_parms[]
String ls_msg
Long ll_mx
Long cur_scid
Long ls_msgprintid
Long ld_orderqty
s_saletaskmx s_mx[]
S_print_MSG LS_PRMSG
ls_msgprintid = Message.LongParm

SELECT dft_new_dwname,powerid,auditprint,prownum
	INTO :ls_newname,:ls_powerid,:li_auditprint,:ll_prownum
	FROM sys_dft_dwprint_dynamic
	Where sys_dft_dwprint_dynamic.dwprintid = :ls_msgprintid Using sqlca;
IF sqlca.SQLCode <> 0 THEN
	ls_newname = ''
	ls_powerid = 0
END IF

IF ddlb_scid.uo_scid = - 1 THEN
	MessageBox('提示','请先选择分部',information!,OK!)
	RETURN
END IF

LS_PRMSG.TAG_TEXT = '销售排产打印单单件打印'
LS_PRMSG.FILTER_STRING = ''
LS_PRMSG.retr_pram_falg = 18
LS_PRMSG.PAGECH_FLAG = 0
LS_PRMSG.retr_scid = cur_scid
LS_PRMSG.rowcnt = 1

ll_mx = 0
ls_msg = ''
cur_scid = ddlb_scid.uo_scid
dw_1.AcceptText()
FOR LS_ROW = 1 To dw_1.RowCount()
	IF dw_1.Object.isselect[LS_ROW] = 1 THEN
		ls_taskcode = dw_1.Object.u_saletask_taskcode[LS_ROW]
		IF dw_1.Object.u_saletask_status[LS_ROW]  = 1 And dw_1.Object.u_saletaskmx_ifsc[LS_ROW] = 0  THEN
			ll_mx ++
			LS_PRMSG.retr_pramnmb = dw_1.Object.u_SaleTask_TaskID[LS_ROW]
			LS_PRMSG.b_long = dw_1.Object.u_saletaskmx_printid[LS_ROW]
			ld_orderqty = Round(dw_1.Object.u_saletaskmx_orderqty[LS_ROW],0)
			IF ld_orderqty < dw_1.Object.u_saletaskmx_orderqty[LS_ROW] THEN  ld_orderqty = ld_orderqty + 1
			LS_PRMSG.c_long = ld_orderqty
			
			s_mx[ll_mx].taskid = dw_1.Object.u_SaleTask_TaskID[LS_ROW]
			s_mx[ll_mx].scid = dw_1.Object.u_saletask_scid[LS_ROW]
			s_mx[ll_mx].printid = dw_1.Object.u_saletaskmx_printid[LS_ROW]
			
		ELSE
			ls_msg = ls_msg + '第' + String(dw_1.Object.row[LS_ROW]) + '行,订单:' + ls_taskcode + ',产品:' + dw_1.Object.u_mtrldef_mtrlcode[LS_ROW] + '不符合条件打印! ~n'
		END IF
	END IF
NEXT

IF ls_msg <> '' THEN
	MessageBox('错误',ls_msg,stopsign!,OK!)
	RETURN
END IF

IF ll_mx <> 1  THEN
	MessageBox('提示','打印目标只能选一条明细!',information!,OK!)
	RETURN
ELSE
	IF if_sc THEN
		if_sc = False
		IF  obj_order.uof_sc(s_mx,ll_mx,1,ls_msg) = 0  THEN
			MessageBox('错误',ls_msg,stopsign!,OK!)
			RETURN
		END IF
	END IF
END IF

IF ls_newname <> '' THEN
	LS_PRMSG.obj_dwNAME = ls_newname
ELSE
	LS_PRMSG.obj_dwNAME = 'dw_rp_saletask_sc_mx1_edit'
END IF


OpenWithParm(w_publ_preview,LS_PRMSG)

cb_1.TriggerEvent(Clicked!)


end event

event ue_print_other();IF NOT f_power_ind(987) THEN
	MessageBox('提示','你没有使用权限！',information!,OK!)
	RETURN
END IF

Long LS_ROW
Long ll_sptid,printid
String ls_taskcode
String ls_printid
String ls_parms[]
String ls_msg
Long ll_mx
Long cur_scid
Long ls_msgprintid
long ld_orderqty
s_saletaskmx s_mx[]
ls_msgprintid = Message.LongParm
S_print_MSG LS_PRMSG


SELECT dft_new_dwname,powerid,auditprint,prownum
	INTO :ls_newname,:ls_powerid,:li_auditprint,:ll_prownum
	FROM sys_dft_dwprint_dynamic
	Where sys_dft_dwprint_dynamic.dwprintid = :ls_msgprintid USING sqlca;
IF sqlca.SQLCode <> 0 THEN
	ls_newname = ''
	ls_powerid = 0
END IF

IF ddlb_scid.uo_scid = - 1 THEN
	MessageBox('提示','请先选择分部',information!,OK!)
	RETURN
END IF

ll_mx = 0
ls_msg = ''
cur_scid = ddlb_scid.uo_scid
dw_1.AcceptText()
FOR LS_ROW = 1 TO dw_1.RowCount()
	IF dw_1.Object.isselect[LS_ROW] = 1 THEN
		ls_taskcode = dw_1.Object.u_saletask_taskcode[LS_ROW]
		IF dw_1.Object.u_saletask_status[LS_ROW]  = 1   THEN
			ll_mx ++
			LS_PRMSG.retr_pramnmb = dw_1.Object.u_SaleTask_TaskID[LS_ROW]
			LS_PRMSG.b_long = dw_1.Object.u_saletaskmx_printid[LS_ROW]
			ld_orderqty = round(dw_1.Object.u_saletaskmx_orderqty[LS_ROW],0)
			if ld_orderqty < dw_1.Object.u_saletaskmx_orderqty[LS_ROW] then  ld_orderqty = ld_orderqty + 1
			LS_PRMSG.c_long = ld_orderqty
			
			s_mx[1].taskid = dw_1.Object.u_saletask_taskid[LS_ROW]
			s_mx[1].scid = dw_1.Object.u_saletask_scid[LS_ROW]
			s_mx[1].printid = dw_1.Object.u_saletaskmx_printid[LS_ROW]

		ELSE
			ls_msg = ls_msg + '第' + string(dw_1.Object.row[LS_ROW]) + '行,订单:' + ls_taskcode + ',产品:' + dw_1.Object.u_mtrldef_mtrlcode[LS_ROW] + '不符合条件打印! ~n'
		END IF
	END IF
NEXT

IF ls_msg <> '' THEN
	MessageBox('错误',ls_msg,stopsign!,OK!)
	RETURN
END IF

IF ll_mx <> 1  THEN
	MessageBox('提示','打印目标只能选一条明细!',information!,OK!)
	RETURN
END IF

IF ls_newname <> '' THEN
	LS_PRMSG.obj_dwNAME = ls_newname
ELSE
	LS_PRMSG.obj_dwNAME = 'dw_rp_saletask_sc_mx1_edit'
END IF

uo_print_preview uo_print
LS_PRMSG.TAG_TEXT = '销售排产打印单单件打印'
LS_PRMSG.FILTER_STRING = ''
LS_PRMSG.retr_pram_falg = 18
LS_PRMSG.PAGECH_FLAG = 0
LS_PRMSG.retr_scid = cur_scid 
LS_PRMSG.rowcnt = 1
uo_print.FACT_PRINT_MSG = LS_PRMSG

String arg_msg
IF uo_print.uof_print_begin(arg_msg) = 0 THEN
	MessageBox("错误",arg_msg,stopsign!,OK!)
	RETURN
END IF
uo_print.ds_print()

cb_1.triggerevent(clicked!)

end event

event ue_psetup();s_print_value s_print

s_print.obj_dw = DW_1
s_print.dft_printername = ''

OpenWithParm(w_sys_printpage_value,s_print)



end event

event ue_xls();
string arg_msg
Long ll_Templatesid,ll_ationid
ll_Templatesid = Message.LongParm
ll_ationid = long(Message.wordparm )
if isnull(ll_Templatesid) then ll_Templatesid = 0
if isnull(ll_ationid) then ll_ationid = 0
if ll_Templatesid = 0 then return

ll_xls_Templatesid = ll_Templatesid

uo_xls_constant uo_constant     //Excel全局设置对象
uo_constant = create uo_xls_constant

uo_sendtoexcel obj_st             //实例化数据处理对象
obj_st = create uo_sendtoexcel
obj_st.commit_transaction = sqlca  //事务对象  建议显示设置 默认等于sqlca
obj_st.uo_const = uo_constant   //全局配置对象



s_xls_billlist str_billlist  
str_billlist =  obj_st.of_getbillinfo(ll_Templatesid,arg_msg)  //根据模版获取相应的单据信息
if str_billlist.count <=0 then 
	MessageBox('错误',arg_msg)
	return
end if 
if wf_xls_retrievedata(ll_ationid,str_billlist,obj_st,arg_msg) <> 1 then
		MessageBox('错误',arg_msg)
	return
end if

//发送数据
obj_st.event oe_sendtoexcel(str_billlist)


end event

event ue_p_plancode();IF NOT dw_edit_mode THEN RETURN
IF MessageBox('提示','是否要确定要以递增的方式批设定批号', question!, YesNo!, 2) = 2 THEN
	RETURN
END IF

dw_1.accepttext()
IF dw_1.rowcount()<=0 then return

string ls_plancode
long ll_plancode,i
string ls_zero
long ll_zero

ls_plancode = dw_1.object.plancode[1]

string L_plancode,R_plancode
L_plancode=left(ls_plancode,len(ls_plancode) - 4)
R_plancode=right(ls_plancode, 4)
ls_plancode=R_plancode
IF NOT isnumber(ls_plancode) then 
	messagebox("提示","第一行批号后四位不是数字形式，操作取消")
	return
end if
ll_plancode = long(ls_plancode)

//ll_zero = len(ls_plancode) - LEN(string(ll_plancode))
//IF ll_zero >0 then
//	for i  =1 to ll_zero
//		ls_zero = ls_zero +'0'
//	next
//end if
//


dw_1.SetRedraw(FALSE)
FOR i = 1 TO dw_1.RowCount()
		dw_1.object.plancode[i] = L_plancode +string(ll_plancode,'0000')
		ll_plancode++
NEXT
dw_1.SetRedraw(TRUE)
end event

event ue_view_mxdscrp();s_view_dscrp s_view,s_return
String ls_dscrp
dw_1.AcceptText()

ls_dscrp = dw_1.Object.u_saletaskmx_mxdscrp[dw_1.GetRow()]
s_view.Title = '销售订单明细备注'
s_view.dscrp = ls_dscrp
s_view.editmode = dw_edit_mode
OpenWithParm(w_view_dscrp,s_view)
IF dw_edit_mode THEN
	s_return = Message.PowerObjectParm
	dw_1.Object.u_saletaskmx_mxdscrp[dw_1.GetRow()] = s_return.dscrp
END IF
end event

event ue_view_mxdscrp2();s_view_dscrp s_view,s_return
String ls_dscrp
dw_1.AcceptText()

ls_dscrp = dw_1.Object.mxdscrp2[dw_1.GetRow()]
s_view.Title = '销售订单明细备注'
s_view.dscrp = ls_dscrp
s_view.editmode = dw_edit_mode
OpenWithParm(w_view_dscrp,s_view)
IF dw_edit_mode THEN
	s_return = Message.PowerObjectParm
	dw_1.Object.mxdscrp2[dw_1.GetRow()] = s_return.dscrp
END IF
end event

event ue_p_mxdscrp3();IF Not dw_edit_mode THEN RETURN
IF MessageBox('提示','是否要确定要以递增的方式批设定明细备注3', question!, YesNo!, 2) = 2 THEN
	RETURN
END IF

dw_1.AcceptText()
IF dw_1.RowCount() <= 0 THEN RETURN

String ls_plancode
Long ll_plancode,i
String ls_zero
Long ll_zero

ls_plancode = dw_1.Object.u_saletaskmx_mxdscrp3[1]

IF  Not  IsNumber(ls_plancode) THEN RETURN


String L_plancode,R_plancode

ll_plancode = Long(ls_plancode)



dw_1.SetRedraw(False)
FOR i = 1 To dw_1.RowCount()
	dw_1.Object.u_saletaskmx_mxdscrp3[i] =String(ll_plancode)
	ll_plancode++
NEXT
dw_1.SetRedraw(True)

end event

event ue_p_mxdscrp4();IF Not dw_edit_mode THEN RETURN
IF MessageBox('提示','是否要确定要以递增的方式批设定明细备注4', question!, YesNo!, 2) = 2 THEN
	RETURN
END IF

dw_1.AcceptText()
IF dw_1.RowCount() <= 0 THEN RETURN

String ls_plancode
Long ll_plancode,i
String ls_zero
Long ll_zero

ls_plancode = dw_1.Object.u_saletaskmx_mxdscrp4[1]

IF  Not  IsNumber(ls_plancode) THEN RETURN


String L_plancode,R_plancode

ll_plancode = Long(ls_plancode)



dw_1.SetRedraw(False)
FOR i = 1 To dw_1.RowCount()
	dw_1.Object.u_saletaskmx_mxdscrp4[i] =String(ll_plancode)
	ll_plancode++
NEXT
dw_1.SetRedraw(True)

end event

public function integer wf_hide_col ();//s_hide_col s_col
//    
//if dw_1.dataobject = 'dw_rp_sale_saletask' then
//	s_col.col_1 = 'fprice'
//	s_col.col_2 = 'amt'	
//	s_col.col_3 = 'not_consignedqtyamt'
//	s_col.col_4 = 'u_saletaskmx_enprice'
//	s_col.col_5 = 'enamt'
//	s_col.col_6 = 'u_saletaskmx_dftsaleprice'
//	s_col.col_8 = 'rebate'
//	s_col.col_9 = 'u_saletaskmx_acprice'
//	s_col.col_10 = 'ware_amt'
//	s_col.col_11 = 'u_saletaskmx_ware_fprice'
//elseif dw_1.dataobject = 'dw_rp_sale_saletask_hz' then	
//	s_col.col_1 = 'amt'	
//	s_col.col_2 = 'consignedqtyamt'
//	s_col.col_3 = 'not_consignedqtyamt'
//	s_col.col_4 = 'stopamt'	
//elseif dw_1.dataobject = 'dw_rp_sale_saletask_hz_cust' then	
//	s_col.col_1 = 'amt'	
//	s_col.col_2 = 'consignedqtyamt'
//	s_col.col_3 = 'not_consignedqtyamt'
//	s_col.col_4 = 'stopamt'	
//elseif dw_1.dataobject = 'dw_rp_sale_saletask_hz_assignemp' then
//	s_col.col_1 = 'amt'
//	s_col.col_2 = 'consignedqty'	
//	s_col.col_3 = 'not_consignedqty'
//elseif dw_1.dataobject = 'dw_rp_sale_saletask_hz_mtrlsectype' then
//	s_col.col_1 = 'amt'
//	s_col.col_2 = 'consignedqtyamt'	
//	s_col.col_3 = 'not_consignedqtyamt'
//	s_col.col_4 = 'stopamt'	
//elseif dw_1.dataobject = 'dw_rp_sale_saletask_hz_zxmtrlmode' then
//	s_col.col_1 = 'amt'
//	s_col.col_2 = 'not_consignedqtyamt'	
//	s_col.col_3 = 'consignedqtyamt'
//	s_col.col_4 = 'stopamt'	
//elseif dw_1.dataobject = 'dw_rp_sale_saletask_hz_bill' then
//	s_col.col_1 = 'amt'
//	s_col.col_2 = 'not_consignedqtyamt'	
//	s_col.col_3 = 'consignedqtyamt'
//	s_col.col_4 = 'stopamt'	
//end if
//
//
//f_hide_col(122,dw_1,s_col)
//            
//
return 1
//
//
//            
end function

public function integer wf_dw ();//String ls_windowname
//ls_windowname = THIS.ClassName ( )
//
//String ls_old_dwname,ls_new_dwname = ''
//ls_old_dwname = dw_1.DataObject
//ls_new_dwname = f_get_dwprint_dynamic_chname(ls_old_dwname,ls_windowname)
//
//IF ls_new_dwname = '' THEN
//	ls_new_dwname = ls_old_dwname
//END IF
//
//dw_1.DataObject = ls_new_dwname
//dw_1.SetTransObject(sqlca)
//
//dw_1.triggerevent("constructor")
////dw_1.uf_read_profile_layout() 
////f_title_change(dw_1)
//
//
//s_hide_col s_col_mtrlsectype
//s_col_mtrlsectype.col_1 = 'u_mtrldef_mtrlsectype'
//f_hide_col(1308,dw_1,s_col_mtrlsectype) 
//
//s_hide_col s_col_zxmtrlmode
//s_col_zxmtrlmode.col_1 = 'u_mtrldef_zxmtrlmode'
//f_hide_col(1309,dw_1,s_col_zxmtrlmode)

RETURN 1

end function

public function integer wf_refresh_interface ();//wf_refresh_interface
IF dw_edit_mode THEN
	cb_3.Enabled = FALSE
	cb_4.Enabled = FALSE
	cb_10.Enabled = FALSE
	cb_2.Enabled = FALSE
	cb_add_sale.Enabled = FALSE
	
	cb_save.Enabled = TRUE
	
	cb_edit.Text = "放弃&E"
	cb_edit.normalpicname = 'Undo.bmp'
	
	dw_1.RBUTTON_FILTER_USE = FALSE //右键查询功能开关
	dw_1.RBUTTON_SETPOSITION_USE = TRUE //定位
	
//	dw_1.settaborder("isselect",0)
	dw_1.settaborder("u_saletaskmx_orderqty",10)
	dw_1.settaborder("needbuyqty",20)
	dw_1.settaborder("needwfjgqty",30)
	dw_1.settaborder("u_saletaskmx_mxdscrp",40)
	dw_1.settaborder("mxdscrp2",50)
	dw_1.settaborder("plancode",60)
	
	dw_1.settaborder("u_saletaskmx_mxdscrp3",70)
	dw_1.settaborder("u_saletaskmx_mxdscrp4",70)
	dw_1.settaborder("requiredate",80)
	
	dw_1.object.isselect_t.color = rgb(0,0,255)
	dw_1.object.u_saletaskmx_orderqty_t.color = rgb(0,0,255)
	dw_1.object.needbuyqty_t.color = rgb(0,0,255)
	dw_1.object.needwfjgqty_t.color = rgb(0,0,255)
	dw_1.object.u_saletaskmx_mxdscrp_t.color = rgb(0,0,255)
	dw_1.object.mxdscrp2_t.color = rgb(0,0,255)
	dw_1.object.plancode_t.color = rgb(0,0,255)
	dw_1.object.u_saletaskmx_mxdscrp3_t.color = rgb(0,0,255)
	dw_1.object.u_saletaskmx_mxdscrp4_t.color = rgb(0,0,255)
	
ELSE
	cb_3.Enabled = TRUE
	cb_4.Enabled = TRUE
	cb_10.Enabled = TRUE
	cb_2.Enabled = TRUE
	cb_add_sale.Enabled = TRUE
	
	cb_save.Enabled = FALSE
	
	cb_edit.Text = "修改&E"
	cb_edit.normalpicname = 'OPEN.bmp'
	
	dw_1.RBUTTON_FILTER_USE = TRUE //右键查询功能开关
	dw_1.RBUTTON_SETPOSITION_USE = TRUE //定位
	
//	dw_1.settaborder("isselect",10)
	dw_1.settaborder("u_saletaskmx_orderqty",0)
	dw_1.settaborder("needbuyqty",0)
	dw_1.settaborder("needwfjgqty",0)
	dw_1.settaborder("u_saletaskmx_mxdscrp",0)
	dw_1.settaborder("mxdscrp2",0)
	dw_1.settaborder("plancode",0)
	
	dw_1.settaborder("u_saletaskmx_mxdscrp3",0)
	dw_1.settaborder("u_saletaskmx_mxdscrp4",0)
	dw_1.settaborder("requiredate",0)
	
	
	dw_1.object.isselect_t.color = rgb(0,0,255)
	dw_1.object.u_saletaskmx_orderqty_t.color = rgb(0,0,0)
	dw_1.object.needbuyqty_t.color = rgb(0,0,0)
	dw_1.object.needwfjgqty_t.color = rgb(0,0,0)
	dw_1.object.u_saletaskmx_mxdscrp_t.color = rgb(0,0,0)
	dw_1.object.mxdscrp2_t.color = rgb(0,0,0)
	dw_1.object.plancode_t.color = rgb(0,0,0)
	dw_1.object.u_saletaskmx_mxdscrp3_t.color = rgb(0,0,0)
	dw_1.object.u_saletaskmx_mxdscrp4_t.color = rgb(0,0,0)
	
	
END IF

cb_edit.of_init_draw()
cb_edit.of_paint()
cb_edit.TriggerEvent('ue_textchange')

RETURN 1








end function

public subroutine wf_addlog_tempfilepathname (string arg_filepathname);//wf_addlog_tempfilepathname
if isnull(arg_filepathname) or len(trim(arg_filepathname))<3 then return
ins_openfile_log_p++
ins_openfile_log[ins_openfile_log_p]=arg_filepathname
//	string ins_openfile_log[]  //用于退出后删除
//	long ins_openfile_log_p=0    //用于退出后删除
//
end subroutine

public function integer wf_xls_retrievedata (long arg_ationid, ref s_xls_billlist arg_str_billlist, ref uo_sendtoexcel arg_obj_st, ref string arg_msg);Long LS_ROW,ll_id,i,ll_scid
LS_ROW = dw_1.GetRow()
IF LS_ROW <= 0 THEN
	arg_msg = '没有目标单据!'
	RETURN 0
END IF

//修改点:获取 指定retriev参数
string ls_taskcode
Long li_printid
dw_1.AcceptText()
ll_scid = ddlb_scid.uo_scid
ls_taskcode = dw_1.Object.u_saletask_taskcode[LS_ROW]
li_printid = dw_1.Object.u_saletaskmx_printid[LS_ROW]



//查询所选模版是否含有图片信息
Long ll_ifpic
Long ll_classid
SELECT ifpic
	INTO :ll_ifpic
	FROM U_XLS_Templates
	Where id = :ll_xls_Templatesid;
IF sqlca.SQLCode <> 0 THEN
	ll_ifpic = 0
END IF

Long ll_i,ll_j
Long ll_mtrlid
Long ll_fileid

Blob ls_filedata
SetNull(ls_filedata)
String Pathname,ls_filename,ls_filetype
String errmsg
uo_fj_mng_billtype  ls_uo_fjbt
ls_uo_fjbt = CREATE uo_fj_mng_billtype

s_xls_pic_list s_pic //结构数组-用于保存图片路径

IF ll_ifpic = 1 THEN //如果含有图片信息,则查询本类型单据需要带出哪类附件

	SELECT classid 
		INTO :ll_classid
		FROM u_billpic_fileclass
		Where (billtype = 102);
	IF sqlca.SQLCode <> 0 THEN
		ll_classid = 0  
	END IF
	
	IF ll_classid > 0 THEN //如果已经指定好附件类型,则循环明细表查询每个明细的图片信息.
		FOR ll_i = 1 TO dw_1.RowCount()
			IF dw_1.Object.isselect[i] = 1 THEN
			ll_mtrlid = dw_1.Object.mtrlid[ll_i]
			//取该附件类型中的第一个附件.
			SELECT top 1 fileid,DisplayName,FileType INTO :ll_fileid,:ls_filename,:ls_filetype
				FROM u_file
				WHERE relid = :ll_mtrlid
				AND classid = :ll_classid
				AND (filetype = 'bmp' OR filetype = 'rle' OR filetype = 'wmf'
				OR filetype = 'tif' OR filetype = 'jpg' OR filetype = 'gif' OR filetype = 'jpeg')
				USING sys_fileDB_sqlca;
			IF sys_fileDB_sqlca.SQLCode <> 0 THEN
				ll_fileid = 0
			END IF
			IF ll_fileid > 0 THEN 
				Pathname = sys_cur_path+ins_fjtemppath+'\'+String(Today(),'yymmdd')+String(Now(),'hhmmss')+'_'+ls_filename+'.'+ls_filetype
				IF Trim(Pathname) <> '' THEN
					IF ls_uo_fjbt.uf_getfjbolb_fromdb( ll_fileid, ls_filedata, sys_fileDB_sqlca, arg_msg) = 0 THEN
						RETURN  0
					END IF
					
					IF f_saveblobtofile(ls_filedata,Pathname,errmsg) = 0 THEN
						RETURN 0
					ELSE
						
						s_pic.path[ll_i] = Pathname
						//记录临时文件位置,本窗口退出后删除
						wf_addlog_tempfilepathname(Pathname)
						
					END IF
				ELSE
					s_pic.path[ll_i] = ''
				END IF
			ELSE
				s_pic.path[ll_i] = ''
			END IF
		END IF
		NEXT
	END IF
	//
END IF

////可选设置/ //
arg_obj_st.uo_const.create_new_pwd( ) //创建随机密码 
IF sys_option_xls_ifuse_passwd = 1 THEN arg_obj_st.uo_const.pwd = Trim(sys_option_xls_user_passwd) //默认加密密码    默认为随即密码


Boolean xls_locked
xls_locked = Not (sys_option_xls_lock = 1)

// Excel 的可选设置
IF arg_obj_st.of_setoption(arg_ationid,  xls_locked,TRUE,arg_msg) <> 1 THEN
	RETURN 0
END IF


FOR i = 1 TO arg_str_billlist.count
	////可选操作/ //
	arg_str_billlist.bill[i].ds_data = CREATE datastore //
	arg_str_billlist.bill[i].ds_data.DataObject = arg_str_billlist.bill[i].datawindow //
	arg_str_billlist.bill[i].ds_data.SetTransObject(sqlca)
	
	//修改点:注意retrieve 参数与上文对应
	arg_str_billlist.bill[i].ds_data.Retrieve(ls_taskcode,li_printid)
	
	IF ll_ifpic = 1 and ll_classid > 0 THEN
		IF arg_str_billlist.bill[i].datawindow  = 'dw_saletask_sc_mx_xls' AND arg_str_billlist.bill[i].ds_data.RowCount() > 0 THEN //设置图片路径
			FOR ll_j = 1 TO arg_str_billlist.bill[i].ds_data.RowCount()
				arg_str_billlist.bill[i].ds_data.Object.pic[ll_j] = s_pic.path[ll_j]
			NEXT
		END IF
	END IF
NEXT


DESTROY ls_uo_fjbt
RETURN 1

end function

public subroutine wf_checkdate ();//
if cur_date = 0 then
	em_1.enabled = false
	em_2.enabled = false
	pb_em1.enabled = false
	pb_em2.enabled = false
	pb_2.enabled = false
else
	em_1.enabled = true
	em_2.enabled = true
	pb_em1.enabled = true
	pb_em2.enabled = true
	pb_2.enabled = true
end if
end subroutine

on w_saletask_sc_mx.create
int iCurrent
call super::create
this.ddlb_1=create ddlb_1
this.ddlb_scid=create ddlb_scid
this.cb_3=create cb_3
this.cb_4=create cb_4
this.cbx_allselect=create cbx_allselect
this.cb_5=create cb_5
this.cb_6=create cb_6
this.cb_10=create cb_10
this.ddlb_2=create ddlb_2
this.ddlb_3=create ddlb_3
this.cb_edit=create cb_edit
this.cb_save=create cb_save
this.st_1=create st_1
this.cbx_notsc=create cbx_notsc
this.cb_xls=create cb_xls
this.st_5=create st_5
this.ddlb_status=create ddlb_status
this.cbx_1=create cbx_1
this.cb_9=create cb_9
this.cb_11=create cb_11
this.cb_12=create cb_12
this.cb_add_sale=create cb_add_sale
this.cbx_date=create cbx_date
this.cbx_iffinish=create cbx_iffinish
this.cb_7=create cb_7
this.cb_8=create cb_8
this.ln_7=create ln_7
this.ln_8=create ln_8
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.ddlb_1
this.Control[iCurrent+2]=this.ddlb_scid
this.Control[iCurrent+3]=this.cb_3
this.Control[iCurrent+4]=this.cb_4
this.Control[iCurrent+5]=this.cbx_allselect
this.Control[iCurrent+6]=this.cb_5
this.Control[iCurrent+7]=this.cb_6
this.Control[iCurrent+8]=this.cb_10
this.Control[iCurrent+9]=this.ddlb_2
this.Control[iCurrent+10]=this.ddlb_3
this.Control[iCurrent+11]=this.cb_edit
this.Control[iCurrent+12]=this.cb_save
this.Control[iCurrent+13]=this.st_1
this.Control[iCurrent+14]=this.cbx_notsc
this.Control[iCurrent+15]=this.cb_xls
this.Control[iCurrent+16]=this.st_5
this.Control[iCurrent+17]=this.ddlb_status
this.Control[iCurrent+18]=this.cbx_1
this.Control[iCurrent+19]=this.cb_9
this.Control[iCurrent+20]=this.cb_11
this.Control[iCurrent+21]=this.cb_12
this.Control[iCurrent+22]=this.cb_add_sale
this.Control[iCurrent+23]=this.cbx_date
this.Control[iCurrent+24]=this.cbx_iffinish
this.Control[iCurrent+25]=this.cb_7
this.Control[iCurrent+26]=this.cb_8
this.Control[iCurrent+27]=this.ln_7
this.Control[iCurrent+28]=this.ln_8
end on

on w_saletask_sc_mx.destroy
call super::destroy
destroy(this.ddlb_1)
destroy(this.ddlb_scid)
destroy(this.cb_3)
destroy(this.cb_4)
destroy(this.cbx_allselect)
destroy(this.cb_5)
destroy(this.cb_6)
destroy(this.cb_10)
destroy(this.ddlb_2)
destroy(this.ddlb_3)
destroy(this.cb_edit)
destroy(this.cb_save)
destroy(this.st_1)
destroy(this.cbx_notsc)
destroy(this.cb_xls)
destroy(this.st_5)
destroy(this.ddlb_status)
destroy(this.cbx_1)
destroy(this.cb_9)
destroy(this.cb_11)
destroy(this.cb_12)
destroy(this.cb_add_sale)
destroy(this.cbx_date)
destroy(this.cbx_iffinish)
destroy(this.cb_7)
destroy(this.cb_8)
destroy(this.ln_7)
destroy(this.ln_8)
end on

event open;call super::open;
//if_viewprint = Integer(f_ProfileString (sys_empid,this.ClassName( ), "if_viewprint", '0'))
//IF if_viewprint = 0 THEN
//	rb_1.Checked = FALSE
//	rb_2.Checked = TRUE
//ELSE
//	rb_1.Checked = TRUE
//	rb_2.Checked =  FALSE
//END IF

end event

event close;call super::close;//dw_1.uf_save_profile_layout()
f_SetProfileString (sys_empid,"saletask_sc_mx", "cur_sc", string(cur_sc))
f_SetProfileString(sys_empid, "saletask_sc_mx", "cur_inware", string(cur_inware))
f_SetProfileString(sys_empid, "saletask_sc_mx", "cur_stattype", string(cur_stattype))
f_SetProfileString(sys_empid, "saletask_sc_mx", "cur_date", string(cur_date))
end event

event ue_before_openretrieve;call super::ue_before_openretrieve;EM_1.TEXT=string(today(),'yyyy-mm')+'-01'
EM_2.TEXT=STRING(TODAY(),'YYYY-MM-DD')

s_hide_col s_col_mtrlsectype
s_col_mtrlsectype.col_1 = 'u_mtrldef_mtrlsectype'
f_hide_col(1308,dw_1,s_col_mtrlsectype) 

s_hide_col s_col_zxmtrlmode
s_col_zxmtrlmode.col_1 = 'u_mtrldef_zxmtrlmode'
f_hide_col(1309,dw_1,s_col_zxmtrlmode)
end event

event ue_before_open;call super::ue_before_open;st_1.visible = false

obj_order = create uo_order_ml
obj_order.commit_transaction = sqlca

uo_sale = create uo_saletask
uo_sale.commit_transaction = sqlca
end event

type cb_func from w_publ_easyq`cb_func within w_saletask_sc_mx
end type

event cb_func::clicked;m_Dfc_Control_PopupMenu dmPopupMenu
String menustr

IF if_ue_retr THEN
	menustr = "Text=查询~tEvent=ue_retr"
END IF

IF if_ue_filter THEN
	IF Len(Trim(menustr)) = 0 THEN
		menustr = "Text=高级筛选~tEvent=ue_filter"
	ELSE
		menustr = menustr + "|" + "Text=高级筛选~tEvent=ue_filter"
	END IF
END IF

IF if_ue_sort THEN
	IF Len(Trim(menustr)) = 0 THEN
		menustr = "Text=排序~tEvent=ue_sort"
	ELSE
		menustr = menustr + "|" + "Text=排序~tEvent=ue_sort"
	END IF
END IF

IF menustr <> "" AND if_ue_sentdataout THEN menustr = menustr + "|" + "Text=-"

IF if_ue_sentdataout THEN
	IF Len(Trim(menustr)) = 0 THEN
		menustr = "Text=数据发送~tEvent=ue_sentdataout"
	ELSE
		menustr = menustr + "|" + "Text=数据发送~tEvent=ue_sentdataout"
	END IF
END IF

IF menustr <> "" THEN menustr = menustr + "|" + "Text=-"

IF Len(Trim(menustr)) = 0 THEN
	menustr = "Text=页面设置~tEvent=ue_psetup"
ELSE
	menustr = menustr + "|" + "Text=页面设置~tEvent=ue_psetup"
END IF


IF Len(Trim(menustr)) <> 0 THEN
	dmPopupMenu = CREATE m_Dfc_Control_PopupMenu
	dmPopupMenu.mf_BuildMenu(THIS, menustr)
	dmPopupMenu.mf_PopMenu()
	DESTROY dmPopupMenu
END IF

end event

type cb_exit from w_publ_easyq`cb_exit within w_saletask_sc_mx
integer x = 3666
end type

type cb_2 from w_publ_easyq`cb_2 within w_saletask_sc_mx
integer x = 2898
integer width = 256
boolean bringtotop = true
string text = "报表打印"
end type

event cb_2::clicked;IF DW_1.RowCount() >= 1 THEN
	cbx_YL.Checked = TRUE
	cbx_YL.TriggerEvent(Clicked!)
	OpenWithParm(w_sys_printpagesetting,DW_1)
ELSE
	MessageBox('提示','数据窗口中没有任何记录，不能打印！',information!,OK!)
END IF


IF Trim(DW_1.DataObject) = '' THEN RETURN
f_SetProfileString (sys_empid,DW_1.DataObject, "MARGIN_TOP",   String(DW_1.Object.DataWindow.Print.MARGIN.Top))
f_SetProfileString (sys_empid,DW_1.DataObject, "MARGIN_LEFT", String(DW_1.Object.DataWindow.Print.MARGIN.Left))

f_SetProfileString (sys_empid,DW_1.DataObject, "MARGIN_BOTTOM",   String(DW_1.Object.DataWindow.Print.MARGIN.BOTTOM))
f_SetProfileString (sys_empid,DW_1.DataObject, "MARGIN_RIGHT", String(DW_1.Object.DataWindow.Print.MARGIN.Right))



end event

type cb_psetup from w_publ_easyq`cb_psetup within w_saletask_sc_mx
boolean visible = false
integer x = 306
boolean bringtotop = true
end type

type cb_1 from w_publ_easyq`cb_1 within w_saletask_sc_mx
boolean bringtotop = true
end type

event cb_1::clicked;call super::clicked;//dw_1.uf_read_profile_layout()
IF dw_edit_mode THEN RETURN
datetime firstdate,enddate
firstdate = DATEtime(date(EM_1.TEXT),time(0))
enddate = datetime(date(EM_2.TEXT),time('23:59:59'))

Int li_option_outrep
IF sys_power_issuper THEN
	li_option_outrep = 0
ELSE
	li_option_outrep = sys_option_outrep
END IF

dw_1.Retrieve(cur_scid_arr,cur_status,cur_stattype,firstdate,enddate,sys_areaid,cur_sc,cur_inware, sys_user_outrep, li_option_outrep,cur_ifsc,cur_ifstop,cur_date,cur_iffinish)

//f_title_change(dw_1)
//wf_hide_col()


end event

type st_3 from w_publ_easyq`st_3 within w_saletask_sc_mx
integer x = 526
integer y = 304
integer width = 215
alignment alignment = left!
end type

type st_4 from w_publ_easyq`st_4 within w_saletask_sc_mx
integer x = 1239
integer y = 304
end type

type em_1 from w_publ_easyq`em_1 within w_saletask_sc_mx
integer x = 736
integer y = 288
end type

type em_2 from w_publ_easyq`em_2 within w_saletask_sc_mx
integer x = 1339
integer y = 288
end type

type ddlb_yl from w_publ_easyq`ddlb_yl within w_saletask_sc_mx
integer x = 4087
integer y = 36
end type

type cbx_yl from w_publ_easyq`cbx_yl within w_saletask_sc_mx
integer x = 3835
integer y = 28
integer width = 238
end type

type dw_1 from w_publ_easyq`dw_1 within w_saletask_sc_mx
integer y = 400
integer width = 2967
integer height = 1724
string dataobject = "dw_saletask_sc_mx_edit"
end type

event dw_1::doubleclicked;String LS_STR,column_name

IF Not DW_EDIT_MODE THEN
	IF  if_mdf_title THEN
		IF Lower(Left(dwo.Type,4)) = 'text'  THEN
			s_inputbox S_SREU
			
			S_SREU.Title = '目前标题为: '+dwo.Text+' 。请输入新标题: '
			S_SREU.OLD_TEXT = dwo.Text
			column_name = dwo.Name
			
			OpenWithParm(w_inputbox,S_SREU)
			LS_STR = Message.StringParm
			IF Trim(LS_STR) <> '' And dwo.Text <> LS_STR THEN
				This.Modify(column_name+'.text="'+LS_STR+'"')
			END IF
			
		END IF
	ELSE
		IF row > 0 THEN
			String ls_code
			Long ll_scid
			
			ll_scid = This.Object.u_saletask_scid[row]
			ls_code = This.Object.u_saletask_taskcode[row]
			
			f_open_win(ll_scid,ls_code)
		END IF
	END IF
ELSE
	
	
	IF Lower(Left(dwo.Type,4)) = 'text'  THEN
		column_name = dwo.Name
		IF column_name = 'plancode_t' THEN
			Parent.TriggerEvent('ue_p_plancode')
		ELSEIF column_name = 'u_saletaskmx_mxdscrp3_t' THEN
			Parent.TriggerEvent('ue_p_mxdscrp3')
			
		ELSEIF column_name = 'u_saletaskmx_mxdscrp4_t' THEN
			Parent.TriggerEvent('ue_p_mxdscrp4')
			
		END IF
	ELSE
		IF dwo.Name = 'u_saletaskmx_mxdscrp' THEN
			Parent.TriggerEvent('ue_view_mxdscrp')
			RETURN
		ELSEIF dwo.Name = 'mxdscrp2' THEN
			Parent.TriggerEvent('ue_view_mxdscrp2')
			RETURN
		END IF
	END IF
END IF

//IF not dw_edit_mode THEN
//	IF row > 0 THEN
//		String ls_code
//		Long ll_scid
//		
//		ll_scid = THIS.Object.u_saletask_scid[row]
//		ls_code = THIS.Object.u_saletask_taskcode[row]
//		
//		f_open_win(ll_scid,ls_code)		
//	END IF
//END IF

//IF dw_edit_mode THEN
//
//
//END IF

end event

event dw_1::clicked;call super::clicked;this.setrow(row)
THIS.SelectRow(0,FALSE)
THIS.SelectRow(row,TRUE)

end event

type sle_mtrl from w_publ_easyq`sle_mtrl within w_saletask_sc_mx
end type

type sle_cust from w_publ_easyq`sle_cust within w_saletask_sc_mx
end type

type st_mtrl from w_publ_easyq`st_mtrl within w_saletask_sc_mx
end type

type st_cust from w_publ_easyq`st_cust within w_saletask_sc_mx
end type

type cbx_loginretr from w_publ_easyq`cbx_loginretr within w_saletask_sc_mx
integer x = 2674
end type

type pb_em1 from w_publ_easyq`pb_em1 within w_saletask_sc_mx
integer x = 1147
integer y = 288
end type

type pb_em2 from w_publ_easyq`pb_em2 within w_saletask_sc_mx
integer x = 1760
integer y = 288
end type

type pb_2 from w_publ_easyq`pb_2 within w_saletask_sc_mx
integer x = 1870
integer y = 288
end type

type cb_help from w_publ_easyq`cb_help within w_saletask_sc_mx
integer x = 3515
end type

type cb_copyself from w_publ_easyq`cb_copyself within w_saletask_sc_mx
boolean visible = false
integer width = 238
end type

type gb_1 from w_publ_easyq`gb_1 within w_saletask_sc_mx
end type

type ln_bar from w_publ_easyq`ln_bar within w_saletask_sc_mx
end type

type ln_bar2 from w_publ_easyq`ln_bar2 within w_saletask_sc_mx
end type

type r_bar from w_publ_easyq`r_bar within w_saletask_sc_mx
integer x = 4649
integer y = 24
end type

type ln_1 from w_publ_easyq`ln_1 within w_saletask_sc_mx
integer beginy = 388
integer endy = 388
end type

type ln_2 from w_publ_easyq`ln_2 within w_saletask_sc_mx
integer beginy = 396
integer endy = 396
end type

type ln_3 from w_publ_easyq`ln_3 within w_saletask_sc_mx
end type

type ln_4 from w_publ_easyq`ln_4 within w_saletask_sc_mx
end type

type ddlb_1 from dropdownlistbox within w_saletask_sc_mx
integer y = 292
integer width = 407
integer height = 300
integer taborder = 110
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
string text = "按订货日期"
boolean sorted = false
string item[] = {"按订货日期","按交货日期"}
borderstyle borderstyle = stylelowered!
end type

event selectionchanged;if this.text = '按订货日期' then
	cur_stattype = 0
else
	cur_stattype = 1
end if

cb_1.triggerevent(clicked!)
end event

event constructor;cur_stattype = Long(f_ProfileString(sys_empid, "saletask_sc_mx", "cur_stattype", "0"))

CHOOSE CASE cur_stattype
	CASE 0
		this.Text = "按订货日期"
	CASE 1
		this.Text = "按交货日期"
END CHOOSE

end event

type ddlb_scid from uo_ddlb_scid within w_saletask_sc_mx
integer y = 188
integer width = 549
integer height = 620
integer taborder = 90
boolean bringtotop = true
end type

event constructor;call super::constructor;cur_scid_arr = THIS.uo_scid_arr
cur_scid = This.uo_scid
end event

event selectionchanged;call super::selectionchanged;cur_scid_arr = THIS.uo_scid_arr
cur_scid = This.uo_scid
cb_1.triggerevent(clicked!)
end event

type cb_3 from uo_imflatbutton within w_saletask_sc_mx
integer x = 603
integer width = 151
integer height = 164
integer taborder = 90
boolean bringtotop = true
string text = "确认"
string normalpicname = "audit.BMP"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;IF NOT f_power_ind(984) THEN
	MessageBox('提示','你没有使用权限！',information!,OK!)
	RETURN
END IF

IF sys_option_saletask_sc_print = 0 or  print_sc  THEN
	print_sc = false
	Long LS_ROW
	Long ll_sptid,printid
	String ls_taskcode
	String ls_printid
	String ls_parms[]
	String ls_msg
	Long ll_mx
	Long ls_msgprintid
	s_saletaskmx s_mx[]
	
	dw_1.AcceptText()
	FOR LS_ROW = 1 TO dw_1.RowCount()
		IF dw_1.Object.isselect[LS_ROW] = 1 THEN
			ls_taskcode = dw_1.Object.u_saletask_taskcode[LS_ROW]
			IF dw_1.Object.u_saletaskmx_ifsc[LS_ROW] = 0  and dw_1.Object.u_saletask_status[LS_ROW] > 0 THEN
				ll_mx ++
				ls_printid = String(dw_1.Object.u_saletaskmx_printid[LS_ROW],'#####0')
				ls_parms[ll_mx] =  LeftTrim(RightTrim(ls_taskcode)) + LeftTrim(RightTrim(ls_printid))
				s_mx[ll_mx].taskid = dw_1.Object.u_saletask_taskid[LS_ROW]
				s_mx[ll_mx].scid = dw_1.Object.u_saletask_scid[LS_ROW]
				s_mx[ll_mx].printid = dw_1.Object.u_saletaskmx_printid[LS_ROW]
				s_mx[ll_mx].cardcount = dw_1.Object.u_saletaskmx_orderqty[LS_ROW]
				
				s_mx[ll_mx].mtrlid = dw_1.Object.mtrlid[LS_ROW]
				s_mx[ll_mx].mtrlcode= dw_1.Object.u_mtrldef_mtrlcode[LS_ROW]
				s_mx[ll_mx].Status= dw_1.Object.u_saletaskmx_status[LS_ROW]
				s_mx[ll_mx].pcode= dw_1.Object.u_saletaskmx_pcode[LS_ROW]
				s_mx[ll_mx].woodcode= dw_1.Object.u_saletaskmx_woodcode[LS_ROW]
		 
									
			ELSE
				ls_msg = ls_msg + '第' + String(dw_1.Object.row[LS_ROW]) + '行,订单:' + ls_taskcode + ',产品:' + dw_1.Object.u_mtrldef_mtrlcode[LS_ROW] + '~n'
			END IF
		END IF
	NEXT
	
	IF ls_msg <> '' THEN
		ls_msg  =  ls_msg + '已确认或未审核,操作取消! '
		MessageBox('错误',ls_msg,stopsign!,OK!)
		RETURN
	END IF
	
	IF obj_order.uof_sc(s_mx,ll_mx,1,ls_msg) = 0  THEN
		MessageBox('错误',ls_msg,stopsign!,OK!)
		RETURN
	END IF
	
	cb_1.TriggerEvent(Clicked!)
ELSE
	String ls_dft_old_dwname, ls_dft_new_dwname,ls_chnname,ls_dwtype
	Long ls_dwprintid
	String ls_windowname
	Int ls_i
	Long ll_billid
	Int li_ifuse
	Long ll_row
	String Name,ll_rpname
	Long ll_RpID,ll_flag,ll_ifuse
	
	if_sc = TRUE
	
	w_curwin = PARENT
	ls_windowname = PARENT.ClassName ( )
	
	SELECT billid,ifuse
		INTO :ll_billid,
		:li_ifuse
		FROM u_report_bill
		Where winName = :ls_windowname;
	IF sqlca.SQLCode <> 0 THEN
		li_ifuse = 0
	END IF
	
	IF li_ifuse = 0 THEN
		DECLARE dft_dwprint CURSOR FOR
			SELECT dwprintid,dft_old_dwname, dft_new_dwname, chnname, dwtype
			FROM sys_dft_dwprint_dynamic
			WHERE dwtype = :ls_windowname
			AND ptype = 0;
			
		OPEN dft_dwprint;
		FETCH dft_dwprint INTO  :ls_dwprintid,:ls_dft_old_dwname, :ls_dft_new_dwname,:ls_chnname, :ls_dwtype;
		IF sqlca.SQLCode <> 0 THEN
			PARENT.TriggerEvent('ue_viewprint',0,0)
		ELSE
			m_dft_dwprint_item m_1
			m_1 = CREATE m_dft_dwprint_item
			ls_i = 1
			DO WHILE sqlca.SQLCode = 0
				f_add_menuItem_dft(m_1,ls_i,ls_chnname,String(ls_dwprintid))
				FETCH dft_dwprint INTO  :ls_dwprintid,:ls_dft_old_dwname, :ls_dft_new_dwname,:ls_chnname, :ls_dwtype;
				ls_i++
			LOOP
			CLOSE dft_dwprint;
			m_1.PopMenu(THIS.X+50,THIS.Y+50)
		END IF
	ELSE
		DECLARE rpt_dwprint CURSOR FOR
			SELECT RpID,RpName,Flag,Ifuse
			FROM U_report_list
			WHERE billid = :ll_billid
			Order By RpName;
			
		OPEN rpt_dwprint;
		FETCH rpt_dwprint INTO  :ll_RpID,:ll_rpname,:ll_flag,:ll_ifuse;
		IF sqlca.SQLCode <> 0 THEN
			PARENT.TriggerEvent('ue_rpt_viewprint',0,0)
		ELSE
			m_rpt_dwprint_item m_2
			m_2 = CREATE m_rpt_dwprint_item
			ls_i = 1
			DO WHILE sqlca.SQLCode = 0
				
				IF f_pow_rpt(ll_RpID) AND ll_ifuse = 1 AND ll_flag = 1  THEN //权限检查f_pow_rpt( )
					f_add_menuItem_rpt(m_2,ls_i,ll_rpname,String(ll_RpID))
				END IF
				
				FETCH rpt_dwprint INTO   :ll_RpID,:ll_rpname,:ll_flag,:ll_ifuse;
				ls_i++
			LOOP
			CLOSE rpt_dwprint;
			m_2.Item[1].Visible = FALSE
			m_2.PopMenu(THIS.X+50,THIS.Y+50)
		END IF
	END IF
	
	
END IF



end event

type cb_4 from uo_imflatbutton within w_saletask_sc_mx
integer x = 754
integer width = 256
integer height = 164
integer taborder = 100
boolean bringtotop = true
string text = "取消确认"
string normalpicname = "caudit.BMP"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;IF NOT f_power_ind(986) THEN
	MessageBox('提示','你没有使用权限！',information!,OK!)
	RETURN
END IF


Long LS_ROW
String ls_parms[]
String ls_msg
Long ll_mx
String ls_taskcode
s_saletaskmx s_mx[]

IF MessageBox ("询问","是否确定要取消确认当前选择明细吗",Question!,YesNo! ) = 2 THEN RETURN

IF ddlb_scid.uo_scid = - 1 THEN
	MessageBox('提示','请先选择分部',information!,OK!)
	RETURN
END IF

ll_mx = 0
ls_msg = ''

dw_1.AcceptText()
FOR LS_ROW = 1 TO dw_1.RowCount()
	IF dw_1.Object.isselect[LS_ROW] = 1 THEN
		ls_taskcode = dw_1.Object.u_saletask_taskcode[LS_ROW]
		IF  dw_1.Object.u_saletaskmx_ifsc[LS_ROW] = 1  THEN
			ll_mx ++
			s_mx[ll_mx].taskid = dw_1.Object.u_saletask_taskid[LS_ROW]
			s_mx[ll_mx].scid = dw_1.Object.u_saletask_scid[LS_ROW]
			s_mx[ll_mx].printid = dw_1.Object.u_saletaskmx_printid[LS_ROW]
			s_mx[ll_mx].printrow= dw_1.Object.row[LS_ROW]
		ELSE
			ls_msg = ls_msg + '第' + string(dw_1.Object.row[LS_ROW]) + '行,订单:' + ls_taskcode + ',产品:' + dw_1.Object.u_mtrldef_mtrlcode[LS_ROW] + '~n'
		END IF
	END IF
NEXT

IF ls_msg <> '' THEN
	ls_msg = ls_msg  +  '已经排产,不能取消确认!' 
	MessageBox('错误',ls_msg,stopsign!,OK!)
	RETURN
END IF

IF ll_mx = 0 THEN
	MessageBox('提示','请选择要目标明细!',information!,OK!)
	RETURN
ELSE
	IF  obj_order.uof_sc(s_mx,ll_mx,0,ls_msg) = 0  THEN
		MessageBox('错误',ls_msg,stopsign!,OK!)
		RETURN
	END IF
END IF

cb_1.triggerevent(clicked!)
end event

type cbx_allselect from checkbox within w_saletask_sc_mx
integer x = 2011
integer y = 304
integer width = 210
integer height = 60
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 134217739
string text = "全选"
end type

event clicked;Int li
IF THIS.Checked THEN
	FOR li = 1 TO dw_1.RowCount()
		dw_1.object.isselect[li] = 1
	NEXT
ELSE
	FOR li = 1 TO dw_1.RowCount()
		dw_1.object.isselect[li] = 0
	NEXT
END IF

 
end event

type cb_5 from uo_imflatbutton within w_saletask_sc_mx
integer x = 2514
integer width = 192
integer height = 164
integer taborder = 110
boolean bringtotop = true
string text = "预览&P"
string normalpicname = "preview.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;String ls_dft_old_dwname, ls_dft_new_dwname,ls_chnname,ls_dwtype
Long ls_dwprintid
String ls_windowname
Int ls_i
Long ll_billid
Int li_ifuse
Long ll_row
String Name,ll_rpname
Long ll_RpID,ll_flag,ll_ifuse

if_sc = FALSE

w_curwin = PARENT
ls_windowname = PARENT.ClassName ( )

SELECT billid,ifuse
	INTO :ll_billid,
	:li_ifuse
	FROM u_report_bill
	Where winName = :ls_windowname;
IF sqlca.SQLCode <> 0 THEN
	li_ifuse = 0
END IF

IF li_ifuse = 0 THEN
	DECLARE dft_dwprint CURSOR FOR
		SELECT dwprintid,dft_old_dwname, dft_new_dwname, chnname, dwtype
		FROM sys_dft_dwprint_dynamic
		WHERE dwtype = :ls_windowname
		AND ptype = 0 and ifuse = 1;
		
	OPEN dft_dwprint;
	FETCH dft_dwprint INTO  :ls_dwprintid,:ls_dft_old_dwname, :ls_dft_new_dwname,:ls_chnname, :ls_dwtype;
	IF sqlca.SQLCode <> 0 THEN
		PARENT.TriggerEvent('ue_viewprint',0,0)
	ELSE
		m_dft_dwprint_item m_1
		m_1 = CREATE m_dft_dwprint_item
		ls_i = 1
		DO WHILE sqlca.SQLCode = 0
			f_add_menuItem_dft(m_1,ls_i,ls_chnname,String(ls_dwprintid))
			FETCH dft_dwprint INTO  :ls_dwprintid,:ls_dft_old_dwname, :ls_dft_new_dwname,:ls_chnname, :ls_dwtype;
			ls_i++
		LOOP
		CLOSE dft_dwprint;
		m_1.PopMenu(THIS.X+50,THIS.Y+50)
	END IF
ELSE
	DECLARE rpt_dwprint CURSOR FOR
		SELECT RpID,RpName,Flag,Ifuse
		FROM U_report_list
		WHERE billid = :ll_billid
		Order By RpName;
		
	OPEN rpt_dwprint;
	FETCH rpt_dwprint INTO  :ll_RpID,:ll_rpname,:ll_flag,:ll_ifuse;
	IF sqlca.SQLCode <> 0 THEN
		PARENT.TriggerEvent('ue_rpt_viewprint',0,0)
	ELSE
		m_rpt_dwprint_item m_2
		m_2 = CREATE m_rpt_dwprint_item
		ls_i = 1
		DO WHILE sqlca.SQLCode = 0
			
			IF f_pow_rpt(ll_RpID) AND ll_ifuse = 1 AND ll_flag = 1  THEN //权限检查f_pow_rpt( )
				f_add_menuItem_rpt(m_2,ls_i,ll_rpname,String(ll_RpID))
			END IF
			
			FETCH rpt_dwprint INTO   :ll_RpID,:ll_rpname,:ll_flag,:ll_ifuse;
			ls_i++
		LOOP
		CLOSE rpt_dwprint;
		m_2.Item[1].Visible = FALSE
		m_2.PopMenu(THIS.X+50,THIS.Y+50)
	END IF
END IF



end event

type cb_6 from uo_imflatbutton within w_saletask_sc_mx
integer x = 2706
integer width = 192
integer height = 164
integer taborder = 100
boolean bringtotop = true
string text = "打印&O"
string normalpicname = "print.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;String ls_dft_old_dwname, ls_dft_new_dwname,ls_chnname,ls_dwtype
Long ls_dwprintid
String ls_windowname
Int ls_i
Long ll_billid
Int li_ifuse
Long ll_row
String Name,ll_rpname
Long ll_RpID,ll_flag,ll_ifuse

w_curwin = PARENT
ls_windowname = PARENT.ClassName ( )

SELECT billid,ifuse
	INTO :ll_billid,
	:li_ifuse
	FROM u_report_bill
	Where winName = :ls_windowname;
IF sqlca.SQLCode <> 0 THEN
	li_ifuse = 0
END IF

IF li_ifuse = 0 THEN
	DECLARE dft_dwprint1 CURSOR FOR
		SELECT dwprintid,dft_old_dwname, dft_new_dwname, chnname, dwtype
		FROM sys_dft_dwprint_dynamic
		WHERE dwtype = :ls_windowname
		AND ptype = 0 and ifuse = 1;
		
	OPEN dft_dwprint1;
	FETCH dft_dwprint1 INTO  :ls_dwprintid,:ls_dft_old_dwname, :ls_dft_new_dwname,:ls_chnname, :ls_dwtype;
	IF sqlca.SQLCode <> 0 THEN
		PARENT.TriggerEvent('ue_print',0,0)
	ELSE
		m_dft_dwprint_print_item m_3
		m_3 = CREATE m_dft_dwprint_print_item
		ls_i = 1
		DO WHILE sqlca.SQLCode = 0
			f_add_menuitem_print_dft(m_3,ls_i,ls_chnname,String(ls_dwprintid))
			FETCH dft_dwprint1 INTO  :ls_dwprintid,:ls_dft_old_dwname, :ls_dft_new_dwname,:ls_chnname, :ls_dwtype;
			ls_i++
		LOOP
		CLOSE dft_dwprint1;
		m_3.PopMenu(THIS.X+50,THIS.Y+50)
	END IF
ELSE
	DECLARE rpt_dwprint2 CURSOR FOR
		SELECT RpID,RpName,Flag,Ifuse
		FROM U_report_list
		WHERE billid = :ll_billid
		Order By RpName;
		
	OPEN rpt_dwprint2;
	FETCH rpt_dwprint2 INTO  :ll_RpID,:ll_rpname,:ll_flag,:ll_ifuse;
	IF sqlca.SQLCode <> 0 THEN
		PARENT.TriggerEvent('ue_print',0,0)
	ELSE
		m_rpt_dwprint_print_item m_4
		m_4 = CREATE m_rpt_dwprint_print_item
		ls_i = 1
		DO WHILE sqlca.SQLCode = 0
			
			IF ll_ifuse = 1 AND ll_flag = 1 AND f_pow_rpt(ll_RpID) THEN //需添加权限
				f_add_menuItem_print_rpt(m_4,ls_i,ll_rpname,String(ll_RpID))
			END IF
			
			FETCH rpt_dwprint2 INTO   :ll_RpID,:ll_rpname,:ll_flag,:ll_ifuse;
			ls_i++
		LOOP
		CLOSE rpt_dwprint2;
		m_4.Item[1].Visible = FALSE
		m_4.PopMenu(THIS.X+50,THIS.Y+50)
		
	END IF
END IF



end event

type cb_10 from uo_imflatbutton within w_saletask_sc_mx
integer x = 2286
integer width = 201
integer height = 164
integer taborder = 110
boolean bringtotop = true
string text = "流程卡"
string normalpicname = "update2.BMP"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;IF NOT f_power_ind(1357) THEN
	MessageBox('提示','你没有使用权限！',information!,OK!)
	RETURN
END IF

dw_1.AcceptText()
IF dw_1.RowCount() = 0 THEN RETURN

Long i,cnt
Long scid,taskid,mxprintid
Long qty
String ls_msg
cnt = 0
s_edit_index_tran s_tranf8

FOR i = 1 TO dw_1.RowCount()
	IF dw_1.Object.isselect[i] = 1 THEN
		cnt ++
		
		s_tranf8.arr_long[cnt] = dw_1.Object.u_saletask_scid[i]
		s_tranf8.arr_long2[cnt] = dw_1.Object.u_saletask_taskid[i]
		s_tranf8.arr_long3[cnt] = dw_1.Object.u_saletaskmx_printid[i]
		qty = ceiling(dw_1.Object.u_saletaskmx_orderqty[i])
		
		s_tranf8.arr_long4[cnt] = qty
	END IF
NEXT

IF cnt = 0 THEN
	i = dw_1.GetRow()
	IF i <= 0 THEN
		MessageBox('提示','请先选择一条订单明细', information!, OK! )
		RETURN
	END IF
	
	cnt ++
	
	s_tranf8.arr_long[cnt] = dw_1.Object.u_saletask_scid[i]
	s_tranf8.arr_long2[cnt] = dw_1.Object.u_saletask_taskid[i]
	s_tranf8.arr_long3[cnt] = dw_1.Object.u_saletaskmx_printid[i]
	qty = ceiling(dw_1.Object.u_saletaskmx_orderqty[i])
		
	s_tranf8.arr_long4[cnt] = qty

END IF



OpenWithParm(w_saletask_sc_card,s_tranf8)





end event

type ddlb_2 from dropdownlistbox within w_saletask_sc_mx
integer x = 585
integer y = 188
integer width = 306
integer height = 300
integer taborder = 120
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
string text = "[全部]"
boolean sorted = false
string item[] = {"[全部]","未排产","已排产"}
borderstyle borderstyle = stylelowered!
end type

event selectionchanged;IF THIS.Text = '未排产' THEN
	cur_sc = 0
ELSEIF THIS.Text = '已排产' THEN
	cur_sc = 1
ELSE
	cur_sc = -1
END IF

cb_1.triggerevent(clicked!)
end event

event constructor;
cur_sc = Long(f_ProfileString (sys_empid,"saletask_sc_mx", "cur_sc", "-1"))

CHOOSE CASE cur_sc
	CASE 0
		this.Text = "未排产"
	CASE 1
		this.Text = "已排产"
	CASE -1
		this.Text = "[全部]"
END CHOOSE

end event

type ddlb_3 from dropdownlistbox within w_saletask_sc_mx
integer x = 914
integer y = 192
integer width = 306
integer height = 300
integer taborder = 120
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
string text = "[全部]"
boolean sorted = false
string item[] = {"[全部]","未进仓","已进仓"}
borderstyle borderstyle = stylelowered!
end type

event selectionchanged;IF This.Text = '未进仓' THEN
	cur_inware = 0
ELSEIF This.Text = '已进仓' THEN
	cur_inware = 1
ELSE
	cur_inware = -1
END IF

cb_1.TriggerEvent(Clicked!)

end event

event constructor;cur_inware = Long(f_ProfileString(sys_empid, "saletask_sc_mx", "cur_inware", "-1"))

CHOOSE CASE cur_inware
	CASE 0
		this.Text = "未进仓"
	CASE 1
		this.Text = "已进仓"
	CASE -1
		this.Text = "[全部]"
END CHOOSE

end event

type cb_edit from uo_imflatbutton within w_saletask_sc_mx
integer x = 306
integer width = 151
integer height = 164
integer taborder = 90
boolean bringtotop = true
string text = "修改"
string normalpicname = "OPEN.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;IF NOT f_power_ind(1492) THEN
	MessageBox('提示','你没有使用权限！',information!,OK!)
	RETURN
END IF

IF dw_edit_mode THEN
	IF MessageBox ("IF","是否确定要放弃保存?",Question!,YesNo! ) = 2 THEN RETURN
ELSE
	
END IF

dw_edit_mode = NOT dw_edit_mode

wf_refresh_interface()

IF NOT dw_edit_mode THEN
	cb_1.TriggerEvent(Clicked!)
END IF

end event

type cb_save from uo_imflatbutton within w_saletask_sc_mx
integer x = 453
integer width = 151
integer height = 164
integer taborder = 100
boolean bringtotop = true
boolean enabled = false
string text = "保存"
string normalpicname = "Save.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;IF NOT f_power_ind(1492) THEN
	MessageBox('提示','你没有使用权限！',information!,OK!)
	RETURN
END IF

dw_1.AcceptText()
IF dw_edit_mode THEN
	IF dw_1.GetNextModified(0, Primary!) = 0  THEN
		MessageBox('系统提示','没有任何修改，不可以保存!')
		RETURN
	END IF
	
	Int li_qtychk
	Long ll_scid, ll_taskid
	DateTime ldt_moddate
	Long ll_row, ll_rowCnt
	String ls_errmsg
	
//	ll_row = dw_1.Find("qtychk = 1",1, dw_1.RowCount())
//	
//	IF ll_row > 0 THEN
//		MessageBox('系统提示','行['+String(ll_row)+'],需排产数 + 需订购数 + 需外协数 > 订单数量,请检查')
//		RETURN
//	END IF
	
//	//保存修改人
//	ll_rowCnt = dw_1.RowCount()
//	ldt_moddate = DateTime(Today(), Now())
//	DO WHILE ll_row <= ll_rowCnt
//		ll_row = dw_1.GetNextModified(ll_row, Primary!)
//		IF ll_row > 0 THEN
//			ll_scid = dw_1.Object.u_saletask_scid[ll_row]
//			ll_taskid = dw_1.Object.u_saletask_taskid[ll_row]
//			UPDATE u_saletask
//				SET moddate = :ldt_moddate,
//				modemp = :publ_operator
//				where scid = :ll_scid
//				and taskid = :ll_taskid;
//			IF sqlca.SQLCode <> 0 THEN
//				ROLLBACK;
//				MessageBox ("系统提示",ls_errmsg+"保存修改人操作失败!",exclamation!,OK!)
//				RETURN
//			END IF
//		ELSE
//			ll_row = ll_rowCnt + 1
//		END IF
//	LOOP
	
	
	//保存修改
	IF dw_1.Update() = -1 THEN
		ROLLBACK;
		MessageBox ("系统提示",ls_errmsg+"保存操作失败!",exclamation!,OK!)
		RETURN
	ELSE
		COMMIT;
	END IF
END IF


dw_edit_mode = NOT dw_edit_mode

wf_refresh_interface()



end event

type st_1 from statictext within w_saletask_sc_mx
integer x = 4375
integer y = 132
integer width = 457
integer height = 76
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 255
long backcolor = 67108864
string text = "dw_1要用到update"
boolean focusrectangle = false
end type

type cbx_notsc from checkbox within w_saletask_sc_mx
integer x = 2025
integer y = 196
integer width = 498
integer height = 60
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 134217739
string text = "显示不需排产的"
end type

event clicked;IF This.checked THEN
	cur_ifsc = 1
ELSE
	cur_ifsc = 0
END IF

f_SetProfileString (sys_empid,'saletask_sc_mx', "cur_ifsc",String(cur_ifsc))

cb_1.TriggerEvent(Clicked!)

end event

event constructor;cur_ifsc = Long(f_ProfileString (sys_empid,"saletask_sc_mx", "cur_ifsc", "0"))
//This.Checked = cur_ifsc = 1
//

if cur_ifsc = 0 then
	This.Checked = false
else
	This.Checked = true
end if




end event

type cb_xls from uo_imflatbutton within w_saletask_sc_mx
boolean visible = false
integer x = 3232
integer width = 306
integer height = 164
integer taborder = 20
boolean bringtotop = true
string text = "Excel打印"
string normalpicname = "excel.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;// 约定  用 parent.Classname ( ) 即状况名称 作为打印模板的分类

uo_sendtoexcel obj_st
obj_st = Create uo_sendtoexcel

obj_st.commit_transaction = sqlca
obj_st.TriggerEventObject = This.GetParent()
obj_st.TriggerEventname = 'ue_xls'
String arg_msg

menu m1
m1 = obj_st.of_createmenu( Parent.ClassName ( ),sys_user_xls_print_str,sys_user_xls_send_str)


IF UpperBound( m1.Item) = 2 THEN
	MessageBox('错误','当前单据还没有设置Excel打印模板.')
ELSE
	m1.PopMenu(This.X ,This.Y+This.Height)
END IF

end event

type st_5 from statictext within w_saletask_sc_mx
integer x = 1248
integer y = 204
integer width = 343
integer height = 48
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 134217739
string text = "销售订单状态"
alignment alignment = right!
boolean focusrectangle = false
end type

type ddlb_status from uo_ddlb_status within w_saletask_sc_mx
integer x = 1605
integer y = 192
integer width = 389
integer height = 812
integer taborder = 100
boolean bringtotop = true
string item[] = {"[全部]","待审核[0]","待二审[4]","在进行[1]","已暂停[2]","已终止[3]","已完成[5]","手动完成[6]"}
integer uo_status = 1
integer dft_index = 4
end type

event selectionchanged;call super::selectionchanged;cb_1.TriggerEvent(Clicked!)
end event

event uof_getvalue;call super::uof_getvalue;cur_status = this.uo_status
end event

type cbx_1 from checkbox within w_saletask_sc_mx
integer x = 2546
integer y = 196
integer width = 850
integer height = 60
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 134217739
string text = "不显示终止订单或明细整行终止"
end type

event clicked;IF This.checked THEN
	cur_ifstop = 1
ELSE
	cur_ifstop = 0
END IF


f_SetProfileString (sys_empid,'saletask_sc_mx', "cur_ifstop",String(cur_ifstop))


cb_1.TriggerEvent(Clicked!)

end event

event constructor;cur_ifstop = Long(f_ProfileString (sys_empid,"saletask_sc_mx", "cur_ifstop", "0"))
//This.Checked = cur_ifsc = 1
//

if cur_ifstop = 0 then
	This.Checked = false
else
	This.Checked = true
end if




end event

type cb_9 from commandbutton within w_saletask_sc_mx
integer x = 2487
integer y = 304
integer width = 402
integer height = 84
integer taborder = 130
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "自动批号"
end type

event clicked;Long ll_Plancode,ll_number,ll_row
long ll_scid,ll_taskid,ll_printid
string ls_Plancode,ls_mid_number,ls_left,ls_auto_code,ls_j
Int i,j = 0

FOR ll_row = 1 TO dw_1.RowCount()
	if dw_1.Object.u_saletaskmx_ifsc[ll_row] = 1 then Continue//已排产不参与自动批号
	IF dw_1.Object.isselect[ll_row] = 1 THEN
		ll_scid = dw_1.Object.scid[ll_row]
		ll_taskid = dw_1.Object.taskid[ll_row]
		ll_printid = dw_1.Object.u_saletaskmx_printid[ll_row]
		
//		ls_plancode = dw_1.Object.plancode[ll_row]
//		if ls_plancode <> '' then
//			MessageBox('错误','选中的某个订单已有批号,请重新选择!',information!,OK!)
//			exit
//		end if
		
		select max(Plancode) into :ls_Plancode from u_saletaskmx;

		IF sqlca.SQLCode <> 0 THEN 
			MessageBox('提示','查找编号失败!~n'+sqlca.SQLErrText,information!,OK!)
			RETURN
		End if

IF IsNull(ls_Plancode) THEN
	ll_number = 0
	ls_left = '000'
ELSE
	for i = 1 to len(ls_Plancode)
		ls_mid_number = Mid(ls_Plancode,i,1)
		if isnumber(ls_mid_number) = true then 
			exit
		end if
	next
	ll_number = LONG(right(ls_Plancode,len(ls_Plancode) - i + 1))
	ls_left = left(ls_Plancode,i -1)
END IF
ls_auto_code = ls_left + String(ll_number+1,'0000')
dw_1.Object.plancode[ll_row] = ls_auto_code

UPDATE u_saletaskmx
	SET plancode = :ls_auto_code
	WHERE scid = :ll_scid
	AND TaskID = :ll_taskid
	AND printid = :ll_printid;
	j++
end if
next

if j = 0 then 
	MessageBox('提示','请选择订单!',information!,OK!)
	return
else
	ls_j = string(j)
	MessageBox('提示','成功为'+ls_j+'行数据进行自动批号',information!,OK!)
end if

end event

type cb_11 from uo_imflatbutton within w_saletask_sc_mx
integer x = 1010
integer width = 165
integer height = 164
integer taborder = 100
boolean bringtotop = true
string text = "核对"
string normalpicname = "audit.BMP"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;IF NOT f_power_ind(2062) THEN
	MessageBox('提示','你没有使用权限！',information!,OK!)
	RETURN
END IF

If dw_edit_mode Then Return
Long ll_row
Long ll_scid,ll_taskid,ll_printid
Int li_checkflag,j,i = 0
String ls_emp,ls_j,ls_msg,ls_taskcode
DateTime nulldate,ld_checkdate
SetNull(nulldate)
ls_emp = publ_operator

If MessageBox ("询问","是否确定要对选中订单进行核对?",Question!,YesNo! ) = 2 Then Return

For ll_row = 1 To dw_1.RowCount()
	If dw_1.Object.isselect[ll_row] = 1 Then
		ll_scid = dw_1.Object.scid[ll_row]
		ll_taskid = dw_1.Object.taskid[ll_row]
		ll_printid = dw_1.Object.u_saletaskmx_printid[ll_row]
		li_checkflag = dw_1.Object.checkflag[ll_row]
		ls_taskcode = dw_1.Object.u_saletask_taskcode[ll_row]
		
		If li_checkflag <> 0 Then
			ls_msg = ls_msg + '第' + String(dw_1.Object.row[ll_row]) + '行,订单:' + ls_taskcode + ',产品:' + dw_1.Object.u_mtrldef_mtrlcode[ll_row] + '~n'
			i++
			If ls_msg <> '' Then
				ls_msg  =  ls_msg + '已核对,不能重复核对! '+'~r~n'
			End If
		End If
		If uo_sale.salecheck(ll_scid,ll_taskid,ll_printid,ls_emp,ls_msg,True) = 0  Then
			Continue
		End If
		
		Select checkflag,
			checkemp,
			checkdate
			Into :li_checkflag,
			:ls_emp,
			:ld_checkdate
			From u_saletaskmx
			Where scid = :ll_scid And taskid = :ll_taskid And printid = :ll_printid;
		dw_1.Object.checkflag[ll_row] = li_checkflag
		dw_1.Object.checkemp[ll_row] = ls_emp
		dw_1.Object.checkdate[ll_row] = ld_checkdate
		j++
	End If
Next

If i > 0 Then
	MessageBox('错误',ls_msg,stopsign!,OK!)
End If

If j = 0 Then
	MessageBox('提示','请选择订单!',information!,OK!)
	Return
End If








end event

type cb_12 from uo_imflatbutton within w_saletask_sc_mx
integer x = 1179
integer width = 274
integer height = 164
integer taborder = 110
boolean bringtotop = true
string text = "取消核对"
string normalpicname = "caudit.BMP"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;IF NOT f_power_ind(2063) THEN
	MessageBox('提示','你没有使用权限！',information!,OK!)
	RETURN
END IF

DateTime nulldate
SetNull(nulldate)
Long ll_row,ll_scid,ll_taskid,ll_printid
Int li_checkflag,j,i = 0
String ls_j,ls_msg,ls_taskcode,ls_emp,ld_checkdate

If MessageBox ("询问","是否取消核对选中订单?",Question!,YesNo! ) = 2 Then Return

For ll_row = 1 To dw_1.RowCount()
	If dw_1.Object.isselect[ll_row] = 1 Then
		ll_scid = dw_1.Object.scid[ll_row]
		ll_taskid = dw_1.Object.taskid[ll_row]
		ll_printid = dw_1.Object.u_saletaskmx_printid[ll_row]
		li_checkflag = dw_1.Object.checkflag[ll_row]
		ls_taskcode = dw_1.Object.u_saletask_taskcode[ll_row]
		
		If li_checkflag <> 1 Then
			ls_msg = ls_msg + '第' + String(dw_1.Object.row[ll_row]) + '行,订单:' + ls_taskcode + ',产品:' + dw_1.Object.u_mtrldef_mtrlcode[ll_row] + '~n'
			i++
			If ls_msg <> '' Then
				ls_msg  =  ls_msg + '没有核对,不能取消核对! '+'~r~n'
			End If
		End If
		
		If uo_sale.salecheck_cancel(ll_scid,ll_taskid,ll_printid,ls_msg,True) = 0  Then
			
		End If
		
		dw_1.Object.checkflag[ll_row] = 0
		dw_1.Object.checkemp[ll_row] = ''
		dw_1.Object.checkdate[ll_row] = nulldate
		
		j++
	End If
Next

If i > 0 Then
	MessageBox('错误',ls_msg,stopsign!,OK!)
End If

If j = 0 Then
	MessageBox('提示','请选择订单!',information!,OK!)
	Return
End If






end event

type cb_add_sale from uo_imflatbutton within w_saletask_sc_mx
integer x = 1458
integer width = 384
integer height = 164
integer taborder = 50
boolean bringtotop = true
string text = "建销售发货单"
string normalpicname = "OPEN.BMP"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;
IF Not (f_power_ind(11) Or f_power_ind(869))  THEN
	MessageBox(publ_operator,'没有使用权限!')
	RETURN
END IF

IF cur_scid < 0 THEN
	MessageBox('系统提示','请先选择分部')
	RETURN
END IF

Long ll_row,ll_i
Long ll_found,ll_cusid,ll_storageid
String ls_scname
Long cnt = 0
String ls_cus_address,ls_rel_rep

s_edit_index_tran s_tran,s_ch

ll_found = dw_1.Find("isselect = 1",1, dw_1.RowCount())

IF ll_found <= 0 THEN
	MessageBox('系统提示','请先选择要建立发货单的订单明细')
	RETURN
END IF

FOR ll_i = 1 To dw_1.RowCount()
	IF dw_1.Object.isselect[ll_i] = 1 THEN
		
		IF dw_1.Object.u_saletask_status[ll_i] <> 1 THEN
			MessageBox('系统提示','选中的订单中含有不是在进行状态的,请检查')
			RETURN
		END IF
		
		IF cnt = 0 THEN
			ll_cusid =  dw_1.Object.cusid[ll_i]
			ls_cus_address =  dw_1.Object.cus_address[ll_i]
			ls_rel_rep =  dw_1.Object.rel_rep[ll_i]
		ELSE
			IF ll_cusid <>  dw_1.Object.cusid[ll_i] And ll_cusid <> 0 THEN
				MessageBox('系统提示','请选择相同客户的订单明细')
				RETURN
			END IF
		END IF
		
		cnt++
		s_tran.arr_long[cnt] =  dw_1.Object.u_saletask_taskid[ll_i]
		s_tran.arr_long2[cnt] =  dw_1.Object.u_saletaskmx_printid[ll_i]
		s_tran.arr_long3[cnt] =  dw_1.Object.mtrlid[ll_i]
		s_tran.arr_string[cnt] =  dw_1.Object.u_saletask_taskcode[ll_i]
	END IF
NEXT


FOR ll_i = 1 To dw_1.RowCount()
	IF dw_1.Object.isselect[ll_i] = 1 THEN
		IF ls_cus_address <> dw_1.Object.cus_address[ll_i] THEN
			IF MessageBox('询问','所选订单出现不同的客户地址,是否继续?',question!,yesno!) = 2 THEN
				RETURN
			ELSE
				EXIT
			END IF
		END IF
		
		IF ls_rel_rep <> dw_1.Object.rel_rep[ll_i] THEN
			IF MessageBox('询问','所选订单出现不同的联系人,是否继续?',question!,yesno!) = 2 THEN
				RETURN
			ELSE
				EXIT
			END IF
		END IF
	END IF
NEXT

Open(w_storage_index_ch)
s_ch = Message.PowerObjectParm
IF s_ch.c_long = 0 THEN RETURN

ll_storageid = s_ch.c_long


s_tran.if_retrieve_all = local_retrieve_all //是否一次RETRIEVE所有行
s_tran.work_mode = 0 //0-单纯编辑模式, 1-选择模式
s_tran.arg_pkid = 0 //目标定位PKID (备用)
s_tran.arg_string_code = '' //查询列部分内容,用于初步筛选 

s_tran.e_long = 1
s_tran.c_long = cur_scid

SELECT scname
	INTO :ls_scname
	FROM u_scdef
	Where scid = :s_tran.c_long;
IF sqlca.SQLCode <> 0 THEN
	MessageBox('系统提示','查询单据所属分部失败')
	RETURN
END IF

s_tran.d_string = ls_scname
s_tran.d_long = 2
s_tran.g_long = ll_cusid
s_tran.f_long = ll_storageid


//OpenWithParm(w_outware_sale,s_tran)

IF Not IsValid(w_outware_sale) THEN
	OpenWithParm(w_outware_sale,s_tran)
	
	w_outware_sale.cb_add.TriggerEvent(Clicked!)	
	String errmsg = ''
	
	 if w_outware_sale.wf_autoaddmx_rp(s_tran,errmsg) = 0 then
		MessageBox('系统提示','新建失败，'+errmsg)
	end if
	
	w_outware_sale.dw_uc.SetRedraw(True)

END  IF



end event

type cbx_date from checkbox within w_saletask_sc_mx
integer x = 434
integer y = 300
integer width = 82
integer height = 60
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 134217739
end type

event clicked;IF This.checked THEN
	cur_date = 1
ELSE
	cur_date = 0
END IF

wf_checkdate()
cb_1.TriggerEvent(Clicked!)


end event

event constructor;cur_date = Long(f_ProfileString (sys_empid,"saletask_sc_mx", "cur_date", "1"))

This.Checked = cur_date = 1

wf_checkdate()
end event

type cbx_iffinish from checkbox within w_saletask_sc_mx
integer x = 3433
integer y = 192
integer width = 631
integer height = 60
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 134217739
string text = "不显示已完成发货明细"
end type

event clicked;IF This.checked THEN
	cur_iffinish = 1
ELSE
	cur_iffinish = 0
END IF

f_SetProfileString (sys_empid,'saletask_sc_mx', "cur_iffinish",String(cur_iffinish))

cb_1.TriggerEvent(Clicked!)

end event

event constructor;cur_iffinish = Long(f_ProfileString (sys_empid,"saletask_sc_mx", "cur_iffinish", "0"))
//This.Checked = cur_ifsc = 1
//

if cur_iffinish = 0 then
	This.Checked = false
else
	This.Checked = true
end if




end event

type cb_7 from uo_imflatbutton within w_saletask_sc_mx
integer x = 1847
integer width = 439
integer height = 164
integer taborder = 60
boolean bringtotop = true
string text = "建立生产进仓单"
string normalpicname = "OPEN.BMP"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;//辅助生成生产进仓单
IF NOT( f_power_ind(1494) OR f_power_ind(1054) ) THEN
	MessageBox('提示','你没有使用权限！', Information!, OK! )
	RETURN
END IF


Open(w_order_ml_storage)
Long ll_storageid

ll_storageid = Message.DoubleParm

IF ll_storageid = 0 THEN RETURN

Long cnt
String ls_msg
Long i,j
s_saletask_mtrl s_saletask

Long ll_scid


dw_1.AcceptText()
cnt = 0
FOR i = 1 TO dw_1.RowCount()
	IF dw_1.Object.isselect[i] = 1 THEN
		
		FOR j = 1 TO UpperBound(s_saletask.scid)
			IF s_saletask.scid[j] <> dw_1.Object.scid[i] THEN
				MessageBox('系统提示','当前选定订单明细存在不同分部!',Information!,OK!)
				RETURN
			END IF
		NEXT
		
		cnt++
		ll_scid = dw_1.Object.scid[i]
		s_saletask.scid[cnt] =  dw_1.Object.scid[i]
		s_saletask.taskid[cnt] =  dw_1.Object.taskid[i]
		s_saletask.printid[cnt] =  dw_1.Object.u_saletaskmx_printid[i]
		s_saletask.saletaskcode[cnt] =  dw_1.Object.u_saletask_taskcode[i]
		
	END IF
NEXT

IF cnt = 0 THEN
	i = dw_1.GetRow()
	IF i <= 0 THEN
		MessageBox('系统提示','请选定当前目标订单明细!',Information!,OK!)
		RETURN
	END IF
//	IF Not (dw_1.Object.flag[i] = 1 &
//		AND dw_1.Object.scllflag[i] = 1) THEN
//		MessageBox('系统提示','当前选定订单明细没有用料审!',Information!,OK!)
//		RETURN
//	END IF
	
	ll_scid = dw_1.Object.scid[i]
	s_saletask.scid[1] =  dw_1.Object.scid[i]
	s_saletask.taskid[1] =  dw_1.Object.taskid[i]
	s_saletask.printid[1] =  dw_1.Object.u_saletaskmx_printid[i]
	s_saletask.saletaskcode[1] =  dw_1.Object.u_saletask_taskcode[i]
END IF

IF Not ( f_power_ind(291) OR f_power_ind(1053) ) THEN
	MessageBox('提示','你没有生产进仓单的使用权限！', Information!, OK! )
	RETURN
END IF

s_edit_index_tran s_tran
if not isvalid(w_inware_cp) then
	OpenWithParm(w_inware_cp,s_tran)

	w_inware_cp.ddlb_scid.uf_selectsc(ll_scid)
	w_inware_cp.cb_add.TriggerEvent(Clicked!)
	w_inware_cp.dw_uc.Object.storageid[w_inware_cp.dw_uc.GetRow()] = ll_storageid
	w_inware_cp.wf_autoaddmx_salemx(ll_scid,s_saletask,ll_storageid,ls_msg)
end if



end event

type cb_8 from uo_imflatbutton within w_saletask_sc_mx
integer x = 3154
integer width = 357
integer height = 164
integer taborder = 110
boolean bringtotop = true
string text = "Excel打印&O"
string normalpicname = "excel.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;// 约定  用 parent.Classname ( ) 即状况名称 作为打印模板的分类

uo_sendtoexcel obj_st
obj_st = create uo_sendtoexcel

obj_st.commit_transaction = sqlca
obj_st.TriggerEventObject = this.getparent()
obj_st.TriggerEventname = 'ue_xls'
string arg_msg

menu m1
m1 = obj_st.of_createmenu( parent.Classname ( ),sys_user_xls_print_str,sys_user_xls_send_str)

 
if upperbound( m1.item)=2 then
	messagebox('错误','当前单据还没有设置Excel打印模板.')
else
	m1.PopMenu(this.x ,this.y+THIS.height)
end if
end event

type ln_7 from line within w_saletask_sc_mx
long linecolor = 268435456
integer linethickness = 4
integer beginx = 2496
integer endx = 2496
integer endy = 184
end type

type ln_8 from line within w_saletask_sc_mx
long linecolor = 16777215
integer linethickness = 4
integer beginx = 2487
integer beginy = 12
integer endx = 2487
integer endy = 184
end type