FXApp/ws_objects/app_pc.pbl.src/w_cd_main_pc.srw

$PBExportHeader$w_cd_main_pc.srw
forward
global type w_cd_main_pc from w_publ_base_style
end type
type dw_1 from u_dw_rbtnfilter within w_cd_main_pc
end type
type ddlb_1 from dropdownlistbox within w_cd_main_pc
end type
type st_3 from statictext within w_cd_main_pc
end type
type st_4 from statictext within w_cd_main_pc
end type
type em_1 from editmask within w_cd_main_pc
end type
type em_2 from editmask within w_cd_main_pc
end type
type pb_em1 from picturebutton within w_cd_main_pc
end type
type pb_em2 from picturebutton within w_cd_main_pc
end type
type pb_2 from picturebutton within w_cd_main_pc
end type
type st_1 from statictext within w_cd_main_pc
end type
type cb_1 from uo_imflatbutton within w_cd_main_pc
end type
type tab_1 from tab within w_cd_main_pc
end type
type tabpage_1 from userobject within tab_1
end type
type dw_2 from datawindow within tabpage_1
end type
type tabpage_1 from userobject within tab_1
dw_2 dw_2
end type
type tabpage_2 from userobject within tab_1
end type
type p_1 from picture within tabpage_2
end type
type cb_2 from commandbutton within tabpage_2
end type
type tabpage_2 from userobject within tab_1
p_1 p_1
cb_2 cb_2
end type
type tabpage_3 from userobject within tab_1
end type
type tab_2 from tab within tabpage_3
end type
type tabpage_4 from userobject within tab_2
end type
type cb_8 from commandbutton within tabpage_4
end type
type cb_7 from commandbutton within tabpage_4
end type
type cb_6 from commandbutton within tabpage_4
end type
type dw_4 from datawindow within tabpage_4
end type
type tabpage_4 from userobject within tab_2
cb_8 cb_8
cb_7 cb_7
cb_6 cb_6
dw_4 dw_4
end type
type tabpage_5 from userobject within tab_2
end type
type cb_5 from commandbutton within tabpage_5
end type
type cb_4 from commandbutton within tabpage_5
end type
type cb_3 from commandbutton within tabpage_5
end type
type dw_5 from datawindow within tabpage_5
end type
type tabpage_5 from userobject within tab_2
cb_5 cb_5
cb_4 cb_4
cb_3 cb_3
dw_5 dw_5
end type
type tab_2 from tab within tabpage_3
tabpage_4 tabpage_4
tabpage_5 tabpage_5
end type
type dw_3 from datawindow within tabpage_3
end type
type tabpage_3 from userobject within tab_1
tab_2 tab_2
dw_3 dw_3
end type
type tab_1 from tab within w_cd_main_pc
tabpage_1 tabpage_1
tabpage_2 tabpage_2
tabpage_3 tabpage_3
end type
type cb_9 from uo_imflatbutton within w_cd_main_pc
end type
type ln_1 from line within w_cd_main_pc
end type
type ln_2 from line within w_cd_main_pc
end type
end forward

global type w_cd_main_pc from w_publ_base_style
integer width = 3013
integer height = 2000
string title = "工厂销售订单管理"
boolean maxbox = true
boolean resizable = true
windowtype windowtype = main!
windowstate windowstate = maximized!
event ue_retrieve ( )
event ue_date1 ( )
event ue_date2 ( )
event ue_date3 ( )
event ue_retrieve_fjs ( )
dw_1 dw_1
ddlb_1 ddlb_1
st_3 st_3
st_4 st_4
em_1 em_1
em_2 em_2
pb_em1 pb_em1
pb_em2 pb_em2
pb_2 pb_2
st_1 st_1
cb_1 cb_1
tab_1 tab_1
cb_9 cb_9
ln_1 ln_1
ln_2 ln_2
end type
global w_cd_main_pc w_cd_main_pc

type variables
datawindow dw_2

datawindow dw_3

tab tab_2

datawindow dw_4

datawindow dw_5
end variables

forward prototypes
public function integer days_in_month (integer month, integer year)
end prototypes

event ue_retrieve();

Long ll_status
IF ddlb_1.Text = '待询价' THEN
	ll_status = 0
ELSEIF ddlb_1.Text = '已报价' THEN
	ll_status = 1
ELSEIF ddlb_1.Text = '已退回' THEN
	ll_status = 2
ELSEIF ddlb_1.Text = '已下单' THEN
	ll_status = 3
ELSEIF ddlb_1.Text = '已发货' THEN
	ll_status = 4
ELSEIF ddlb_1.Text = '已收货' THEN
	ll_status = 5
else
	ll_status = -1
END IF

DateTime ld_begin, ld_end
ld_begin = DateTime(Date(em_1.Text), Time(0))
ld_end = DateTime(Date(em_2.Text), Time('23:59:59'))

oleobject reqparms, tasks
reqparms = AppCom.CreatePbDictionary()

reqparms.SetString("token", app_token)
reqparms.SetString("status", ll_status)
//reqparms.SetString("querystr", "")
//reqparms.SetInt("cusid", 0)
reqparms.SetDateTime("begin", ld_begin)
reqparms.SetDateTime("end", ld_end)

String arg_msg = ''
tasks = AppCom.GetTasks(reqparms, Ref arg_msg)
IF arg_msg <> '' THEN
	MessageBox('ERROR', arg_msg)
	RETURN
END IF

datawindow cur_dw
cur_dw = dw_1
cur_dw.Reset()
cur_dw.SetRedraw(False)

Long ll_cnt, row, i
oleobject task
ll_cnt = tasks.Count
FOR i = 1 To ll_cnt
	task = tasks.GetItem(i - 1)
	row = cur_dw.InsertRow(0)
	cur_dw.SetItem(row, 'taskid', task.GetInt('taskid'))
	cur_dw.SetItem(row, 'tid', task.GetString('tid'))
	cur_dw.SetItem(row, 'taskdate', task.GetDateTime('taskdate'))
	cur_dw.SetItem(row, 'cusid', task.GetInt('cusid'))
	cur_dw.SetItem(row, 'cus_rep', task.GetString('cus_rep'))
	cur_dw.SetItem(row, 'cus_tele', task.GetString('cus_tele'))
	cur_dw.SetItem(row, 'cus_address', task.GetString('cus_address'))
	cur_dw.SetItem(row, 'freight', task.GetString('freight'))
	cur_dw.SetItem(row, 'freight_tele', task.GetString('freight_tele'))
	cur_dw.SetItem(row, 'opemp', task.GetString('opemp'))
	cur_dw.SetItem(row, 'opdate', task.GetDateTime('opdate'))
	cur_dw.SetItem(row, 'modemp', task.GetString('modemp'))
	cur_dw.SetItem(row, 'moddate', task.GetDateTime('moddate'))
	cur_dw.SetItem(row, 'buyer_name', task.GetString('buyer_name'))
	cur_dw.SetItem(row, 'buyer_tele', task.GetString('buyer_tele'))
	cur_dw.SetItem(row, 'requiredate', task.GetDateTime('requiredate'))
	cur_dw.SetItem(row, 'temp1', task.GetString('temp1'))
	cur_dw.SetItem(row, 'temp2', task.GetString('temp2'))
	cur_dw.SetItem(row, 'temp3', task.GetString('temp3'))
	cur_dw.SetItem(row, 'temp4', task.GetString('temp4'))
	cur_dw.SetItem(row, 'temp5', task.GetString('temp5'))
	cur_dw.SetItem(row, 'temp6', task.GetString('temp6'))
	cur_dw.SetItem(row, 'price_emp', task.GetString('price_emp'))
	cur_dw.SetItem(row, 'replyrqdate', task.GetDateTime('replyrqdate'))
	cur_dw.SetItem(row, 'confirmemp', task.GetString('confirmemp'))
	cur_dw.SetItem(row, 'confirmdate', task.GetDateTime('confirmdate'))
	cur_dw.SetItem(row, 'status', task.GetInt('status'))
	cur_dw.SetItem(row, 'taskcode', task.GetString('taskcode'))
	cur_dw.SetItem(row, 'outwarecode', task.GetString('outwarecode'))
	cur_dw.SetItem(row, 'replydscrp', task.GetString('replydscrp'))
	cur_dw.SetItem(row, 'replydate', task.GetDateTime('replydate'))
	cur_dw.SetItem(row, 'cuscode', task.GetString('cuscode'))
	cur_dw.SetItem(row, 'cusname', task.GetString('cusname'))
NEXT

cur_dw.SetRedraw(True)

row = cur_dw.GetRow()
if row > 0 then
	cur_dw.SelectRow(row, true)
end if
triggerevent('ue_retrieve_fjs')


end event

event ue_date1();//IF THIS.Text = "本日" THEN
	em_1.text = string(today(),"yyyy-mm-dd")
	em_2.text = string(today(),"yyyy-mm-dd")
//ELSEIF THIS.Text = "本周" THEN
//	int li_DayNum
//	li_DayNum =  DayNumber(today())
//	em_1.text = string(RelativeDate ( today(), 1 - li_DayNum ),"yyyy-mm-dd")
//	em_2.text = string(RelativeDate ( today(), 7 - li_DayNum ),"yyyy-mm-dd")
//ELSEIF THIS.Text = "本月" THEN
//	int li_Month, li_Year, li_Days
//	li_Month = Month(today())
//	li_Year = Year(today())
//	li_Days = days_in_month(li_Month, li_Year)
//	em_1.text = string(Date(li_Year, li_Month, 1),"yyyy-mm-dd")
//	em_2.text = string(Date(li_Year, li_Month, li_Days),"yyyy-mm-dd")
//END IF
end event

event ue_date2();//IF THIS.Text = "本日" THEN
//	em_1.text = string(today(),"yyyy-mm-dd")
//	em_2.text = string(today(),"yyyy-mm-dd")
//ELSEIF THIS.Text = "本周" THEN
	int li_DayNum
	li_DayNum =  DayNumber(today())
	em_1.text = string(RelativeDate ( today(), 1 - li_DayNum ),"yyyy-mm-dd")
	em_2.text = string(RelativeDate ( today(), 7 - li_DayNum ),"yyyy-mm-dd")
//ELSEIF THIS.Text = "本月" THEN
//	int li_Month, li_Year, li_Days
//	li_Month = Month(today())
//	li_Year = Year(today())
//	li_Days = days_in_month(li_Month, li_Year)
//	em_1.text = string(Date(li_Year, li_Month, 1),"yyyy-mm-dd")
//	em_2.text = string(Date(li_Year, li_Month, li_Days),"yyyy-mm-dd")
//END IF
end event

event ue_date3();//IF THIS.Text = "本日" THEN
//	em_1.text = string(today(),"yyyy-mm-dd")
//	em_2.text = string(today(),"yyyy-mm-dd")
//ELSEIF THIS.Text = "本周" THEN
//	int li_DayNum
//	li_DayNum =  DayNumber(today())
//	em_1.text = string(RelativeDate ( today(), 1 - li_DayNum ),"yyyy-mm-dd")
//	em_2.text = string(RelativeDate ( today(), 7 - li_DayNum ),"yyyy-mm-dd")
//ELSEIF THIS.Text = "本月" THEN
	int li_Month, li_Year, li_Days
	li_Month = Month(today())
	li_Year = Year(today())
	li_Days = days_in_month(li_Month, li_Year)
	em_1.text = string(Date(li_Year, li_Month, 1),"yyyy-mm-dd")
	em_2.text = string(Date(li_Year, li_Month, li_Days),"yyyy-mm-dd")
//END IF
end event

event ue_retrieve_fjs();long row
row = dw_1.GetRow()
dw_2.Reset()
if row <= 0 then return
long taskid
taskid = dw_1.Object.taskid[row]
if isnull(taskid) OR taskid = 0 then return

string arg_msg = ''
oleobject parms, lo_rslt, lo_item
parms = AppCom.CreatePbDictionary()
parms.SetString('token', app_token)
parms.SetInt('taskid', taskid)
lo_rslt = AppCom.GetTaskFJs(parms, ref arg_msg)
if arg_msg <> '' then
	MessageBox('ERROR', arg_msg)
	return
end if

long ll_cnt, i
ll_cnt = lo_rslt.Count
dw_2.SetRedraw(false)
for i = 1 to ll_cnt
	lo_item = lo_rslt.GetItem(i - 1)
	row = dw_2.InsertRow(0)
	dw_2.SetItem(row, 'taskid', lo_item.GetInt('taskid'))
	dw_2.SetItem(row, 'printid', lo_item.GetInt('printid'))
	dw_2.SetItem(row, 'mxcode', lo_item.GetString('mxcode'))
	dw_2.SetItem(row, 'price_ls', lo_item.GetDouble('price_ls'))
	dw_2.SetItem(row, 'price_jm', lo_item.GetDouble('price_jm'))
	dw_2.SetItem(row, 'mtrltype', lo_item.GetString('mtrltype'))
	dw_2.SetItem(row, 'fjname', lo_item.GetString('fjname'))
	dw_2.SetItem(row, 'fjdscrp', lo_item.GetString('fjdscrp'))
next
dw_2.SetRedraw(true)
end event

public function integer days_in_month (integer month, integer year);//Most cases are straight forward in that there are a fixed number of 
//days in 11 of the 12 months.  February is, of course, the problem.
//In a leap year February has 29 days, otherwise 28.

Integer		li_DaysInMonth, li_Days[12] = {31,28,31,30,31,30,31,31,30,31,30,31}

// Get the number of days per month for a non leap year.
li_DaysInMonth = li_Days[Month]

// Check for a leap year.
If Month = 2 Then
	// If the year is a leap year, change the number of days.
	// Leap Year Calculation:
	//	Year divisible by 4, but not by 100, unless it is also divisible by 400
	If ( (Mod(Year,4) = 0 And Mod(Year,100) <> 0) Or (Mod(Year,400) = 0) ) Then
		li_DaysInMonth = 29
	End If
End If

//Return the number of days in the relevant month
Return li_DaysInMonth
end function

on w_cd_main_pc.create
int iCurrent
call super::create
this.dw_1=create dw_1
this.ddlb_1=create ddlb_1
this.st_3=create st_3
this.st_4=create st_4
this.em_1=create em_1
this.em_2=create em_2
this.pb_em1=create pb_em1
this.pb_em2=create pb_em2
this.pb_2=create pb_2
this.st_1=create st_1
this.cb_1=create cb_1
this.tab_1=create tab_1
this.cb_9=create cb_9
this.ln_1=create ln_1
this.ln_2=create ln_2
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.dw_1
this.Control[iCurrent+2]=this.ddlb_1
this.Control[iCurrent+3]=this.st_3
this.Control[iCurrent+4]=this.st_4
this.Control[iCurrent+5]=this.em_1
this.Control[iCurrent+6]=this.em_2
this.Control[iCurrent+7]=this.pb_em1
this.Control[iCurrent+8]=this.pb_em2
this.Control[iCurrent+9]=this.pb_2
this.Control[iCurrent+10]=this.st_1
this.Control[iCurrent+11]=this.cb_1
this.Control[iCurrent+12]=this.tab_1
this.Control[iCurrent+13]=this.cb_9
this.Control[iCurrent+14]=this.ln_1
this.Control[iCurrent+15]=this.ln_2
end on

on w_cd_main_pc.destroy
call super::destroy
destroy(this.dw_1)
destroy(this.ddlb_1)
destroy(this.st_3)
destroy(this.st_4)
destroy(this.em_1)
destroy(this.em_2)
destroy(this.pb_em1)
destroy(this.pb_em2)
destroy(this.pb_2)
destroy(this.st_1)
destroy(this.cb_1)
destroy(this.tab_1)
destroy(this.cb_9)
destroy(this.ln_1)
destroy(this.ln_2)
end on

event resize;call super::resize;ln_1.endx = this.width
ln_2.endx = this.width

dw_1.width = this.Workspacewidth() - dw_1.x
dw_1.Height = (this.workspaceheight() - dw_1.y) / 3

tab_1.width = this.workspacewidth() - tab_1.x
tab_1.y = dw_1.y + dw_1.Height
tab_1.height = dw_1.Height * 2

dw_2.width = tab_1.tabpage_1.width
dw_2.Height = tab_1.tabpage_1.height

dw_3.width = tab_1.tabpage_3.width / 2
dw_3.height = tab_1.tabpage_3.height

tab_2.x = dw_3.x + dw_3.width
tab_2.width = dw_3.width
tab_2.height = dw_3.height

dw_4.width = tab_1.tabpage_3.tab_2.tabpage_4.width
dw_4.height = tab_1.tabpage_3.tab_2.tabpage_4.height - dw_4.y

dw_5.width = tab_1.tabpage_3.tab_2.tabpage_5.width
dw_5.height = tab_1.tabpage_3.tab_2.tabpage_5.height - dw_5.y
end event

event open;call super::open;dw_2 = tab_1.tabpage_1.dw_2

dw_3 = tab_1.tabpage_3.dw_3

tab_2 = tab_1.tabpage_3.tab_2

dw_4 = tab_1.tabpage_3.tab_2.tabpage_4.dw_4

dw_5 = tab_1.tabpage_3.tab_2.tabpage_5.dw_5

em_1.Text = string(RelativeDate(today(), -30), 'yyyy-MM-dd')
em_2.Text = string(today(), 'yyyy-MM-dd')

triggerevent('ue_retrieve')
end event

type cb_func from w_publ_base_style`cb_func within w_cd_main_pc
integer x = 151
string text = "报价"
end type

event cb_func::clicked;call super::clicked;Long row

row = dw_1.GetRow()
IF row <= 0 THEN
	MessageBox('提示', '请选择目标')
	RETURN
END IF

IF dw_1.Object.status[row] <> 0 THEN
	MessageBox('提示', '订单不在待询价状态,不能报价')
	RETURN
END IF


oleobject lo_dict
lo_dict = AppCom.CreatePbDictionary()

lo_dict.SetInt('taskid', dw_1.Object.taskid[row])
lo_dict.SetString('tid', dw_1.Object.tid[row])
lo_dict.SetDateTime('taskdate', dw_1.Object.taskdate[row])
lo_dict.SetInt('cusid', dw_1.Object.cusid[row])
lo_dict.SetString('cus_rep', dw_1.Object.cus_rep[row])
lo_dict.SetString('cus_tele', dw_1.Object.cus_tele[row])
lo_dict.SetString('cus_address', dw_1.Object.cus_address[row])
lo_dict.SetString('freight', dw_1.Object.freight[row])
lo_dict.SetString('freight_tele', dw_1.Object.freight_tele[row])
lo_dict.SetString('opemp', dw_1.Object.opemp[row])
lo_dict.SetDateTime('opdate', dw_1.Object.opdate[row])
lo_dict.SetString('modemp', dw_1.Object.modemp[row])
lo_dict.SetDateTime('moddate', dw_1.Object.moddate[row])
lo_dict.SetString('buyer_name', dw_1.Object.buyer_name[row])
lo_dict.SetString('buyer_tele', dw_1.Object.buyer_tele[row])
lo_dict.SetDateTime('requiredate', dw_1.Object.requiredate[row])
lo_dict.SetString('temp1', dw_1.Object.temp1[row])
lo_dict.SetString('temp2', dw_1.Object.temp2[row])
lo_dict.SetString('temp3', dw_1.Object.temp3[row])
lo_dict.SetString('temp4', dw_1.Object.temp4[row])
lo_dict.SetString('temp5', dw_1.Object.temp5[row])
lo_dict.SetString('temp6', dw_1.Object.temp6[row])
lo_dict.SetString('price_emp', dw_1.Object.price_emp[row])
lo_dict.SetDateTime('replyrqdate', dw_1.Object.replyrqdate[row])
lo_dict.SetString('confirmemp', dw_1.Object.confirmemp[row])
lo_dict.SetDateTime('confirmdate', dw_1.Object.confirmdate[row])
lo_dict.SetInt('status', dw_1.Object.status[row])
lo_dict.SetString('taskcode', dw_1.Object.taskcode[row])
lo_dict.SetString('outwarecode', dw_1.Object.outwarecode[row])
lo_dict.SetString('replydscrp', dw_1.Object.replydscrp[row])
lo_dict.SetDateTime('replydate', dw_1.Object.replydate[row])
lo_dict.SetString('cuscode', dw_1.Object.cuscode[row])
lo_dict.SetString('cusname', dw_1.Object.cusname[row])
OpenWithParm(w_cd_saletask_bj, lo_dict)

end event

type cb_exit from w_publ_base_style`cb_exit within w_cd_main_pc
integer x = 576
end type

type ln_bar from w_publ_base_style`ln_bar within w_cd_main_pc
integer beginy = 280
integer endy = 280
end type

type ln_bar2 from w_publ_base_style`ln_bar2 within w_cd_main_pc
integer beginy = 284
integer endy = 284
end type

type r_bar from w_publ_base_style`r_bar within w_cd_main_pc
end type

type dw_1 from u_dw_rbtnfilter within w_cd_main_pc
integer y = 296
integer width = 2455
integer height = 852
integer taborder = 20
boolean bringtotop = true
string dataobject = "dw_cd_saletask_dm"
boolean hscrollbar = true
boolean vscrollbar = true
boolean hsplitscroll = true
end type

event rowfocuschanged;call super::rowfocuschanged;this.selectrow(0,false)
if currentrow > 0 then
	this.selectrow(currentrow, true)
end if

parent.triggerevent('ue_retrieve_fjs')
end event

type ddlb_1 from dropdownlistbox within w_cd_main_pc
integer x = 329
integer y = 188
integer width = 549
integer height = 476
integer taborder = 30
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;parent.triggerevent('ue_retrieve')
end event

type st_3 from statictext within w_cd_main_pc
integer x = 905
integer y = 196
integer width = 315
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
boolean enabled = false
string text = "订货日期从:"
alignment alignment = right!
boolean focusrectangle = false
end type

event constructor;this.backcolor = 14215660
end event

type st_4 from statictext within w_cd_main_pc
integer x = 1737
integer y = 196
integer width = 105
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
boolean enabled = false
string text = "到:"
alignment alignment = right!
boolean focusrectangle = false
end type

event constructor;this.backcolor = 14215660
end event

type em_1 from editmask within w_cd_main_pc
integer x = 1230
integer y = 180
integer width = 407
integer height = 88
integer taborder = 120
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
borderstyle borderstyle = stylelowered!
maskdatatype maskdatatype = datemask!
string mask = "yyyy-mm-dd"
boolean spin = true
end type

event rbuttondown;s_calender_arg s_calender
s_calender.PointerX = THIS.PointerX()
s_calender.PointerY = THIS.PointerY()
s_calender.X = THIS.X
s_calender.Y = THIS.Y


OpenWithParm(w_calendar,s_calender)
THIS.Text = String(id_date_selected)


end event

type em_2 from editmask within w_cd_main_pc
integer x = 1842
integer y = 180
integer width = 407
integer height = 88
integer taborder = 130
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
borderstyle borderstyle = stylelowered!
maskdatatype maskdatatype = datemask!
string mask = "yyyy-mm-dd"
boolean spin = true
end type

event rbuttondown;s_calender_arg s_calender
s_calender.PointerX = THIS.PointerX()
s_calender.PointerY = THIS.PointerY()
s_calender.X = THIS.X
s_calender.Y = THIS.Y


OpenWithParm(w_calendar,s_calender)
THIS.Text = String(id_date_selected)


end event

type pb_em1 from picturebutton within w_cd_main_pc
integer x = 1646
integer y = 180
integer width = 101
integer height = 92
integer taborder = 130
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string picturename = "date.BMP"
alignment htextalign = left!
end type

event clicked;em_1.triggerevent(rbuttondown!)
end event

type pb_em2 from picturebutton within w_cd_main_pc
integer x = 2258
integer y = 180
integer width = 101
integer height = 92
integer taborder = 140
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string picturename = "date.BMP"
alignment htextalign = left!
end type

event clicked;em_2.triggerevent(rbuttondown!)
end event

type pb_2 from picturebutton within w_cd_main_pc
integer x = 2368
integer y = 180
integer width = 101
integer height = 92
integer taborder = 150
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string picturename = "date1.BMP"
alignment htextalign = left!
end type

event clicked;m_Dfc_Control_PopupMenu dmPopupMenu
string menustr


menustr="Text=本日~tEvent=ue_date1"
menustr = menustr + "|" + "Text=本周~tEvent=ue_date2"
menustr = menustr + "|" + "Text=本月~tEvent=ue_date3"
	
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 st_1 from statictext within w_cd_main_pc
integer x = 23
integer y = 200
integer width = 288
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

event constructor;this.backcolor = 14215660
end event

type cb_1 from uo_imflatbutton within w_cd_main_pc
integer width = 151
integer height = 164
integer taborder = 10
boolean bringtotop = true
string text = "刷新"
string normalpicname = "refresh.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;parent.triggerevent('ue_retrieve')
end event

type tab_1 from tab within w_cd_main_pc
integer y = 1152
integer width = 2240
integer height = 1008
integer taborder = 30
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long backcolor = 134217739
boolean raggedright = true
boolean focusonbuttondown = true
integer selectedtab = 1
tabpage_1 tabpage_1
tabpage_2 tabpage_2
tabpage_3 tabpage_3
end type

on tab_1.create
this.tabpage_1=create tabpage_1
this.tabpage_2=create tabpage_2
this.tabpage_3=create tabpage_3
this.Control[]={this.tabpage_1,&
this.tabpage_2,&
this.tabpage_3}
end on

on tab_1.destroy
destroy(this.tabpage_1)
destroy(this.tabpage_2)
destroy(this.tabpage_3)
end on

type tabpage_1 from userobject within tab_1
integer x = 18
integer y = 96
integer width = 2203
integer height = 896
long backcolor = 134217739
string text = "附件"
long tabtextcolor = 33554432
long tabbackcolor = 134217739
long picturemaskcolor = 536870912
dw_2 dw_2
end type

on tabpage_1.create
this.dw_2=create dw_2
this.Control[]={this.dw_2}
end on

on tabpage_1.destroy
destroy(this.dw_2)
end on

type dw_2 from datawindow within tabpage_1
integer width = 1961
integer height = 400
integer taborder = 40
string title = "none"
string dataobject = "dw_cd_saletask_edit_fj"
boolean hscrollbar = true
boolean vscrollbar = true
boolean hsplitscroll = true
boolean livescroll = true
borderstyle borderstyle = stylelowered!
end type

event clicked;String ls_name
ls_name = dwo.Name
String Pathname,Filename,FileType
Integer i
Long taskid,printid
oleobject parms
String arg_msg = ''

IF row <= 0 THEN RETURN

IF ls_name = 'b_1' THEN
	taskid = dw_2.Object.taskid[row]
	printid = dw_2.Object.printid[row]
	Filename = dw_2.Object.fjname[row]
	Pathname = filename
	FileType = '所有图片,*.bmp;*.gif;*.jpg;*.jpeg;*.png;*.wmf'
	i = GetFileSaveName("请选择文件", Pathname,Filename, "All", FileType)
	
	IF i = 1 And Trim(Pathname) <> '' And Trim(Filename) <> "" THEN
		IF FileExists(Filename) THEN
			IF MessageBox('提问', '文件已存在是否要覆盖?', Question!, YesNo!, 1) <> 1 THEN RETURN
		END IF
		
		parms = AppCom.CreatePbDictionary()
		parms.SetString('token', app_token)
		parms.SetInt('taskid', taskid)
		parms.SetInt('printid', printid)
		parms.SetString('filename', Filename)
		AppCom.GetFjData(parms, Ref arg_msg)
		IF arg_msg <> '' THEN
			MessageBox('ERROR', arg_msg)
			RETURN
		END IF
	END IF
END IF

end event

event rowfocuschanged;this.selectrow(0, false)
if currentrow > 0 then
	this.selectrow(currentrow, true)
end if
end event

type tabpage_2 from userobject within tab_1
integer x = 18
integer y = 96
integer width = 2203
integer height = 896
long backcolor = 134217739
string text = "物料清单"
long tabtextcolor = 33554432
long tabbackcolor = 134217739
long picturemaskcolor = 536870912
p_1 p_1
cb_2 cb_2
end type

on tabpage_2.create
this.p_1=create p_1
this.cb_2=create cb_2
this.Control[]={this.p_1,&
this.cb_2}
end on

on tabpage_2.destroy
destroy(this.p_1)
destroy(this.cb_2)
end on

type p_1 from picture within tabpage_2
integer y = 92
integer width = 6231
integer height = 1020
boolean originalsize = true
string picturename = "QQ截图20150626162704.png"
boolean focusrectangle = false
end type

type cb_2 from commandbutton within tabpage_2
integer y = 8
integer width = 279
integer height = 84
integer taborder = 30
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "导入BOM"
end type

type tabpage_3 from userobject within tab_1
integer x = 18
integer y = 96
integer width = 2203
integer height = 896
long backcolor = 134217739
string text = "指令单"
long tabtextcolor = 33554432
long tabbackcolor = 134217739
long picturemaskcolor = 536870912
tab_2 tab_2
dw_3 dw_3
end type

on tabpage_3.create
this.tab_2=create tab_2
this.dw_3=create dw_3
this.Control[]={this.tab_2,&
this.dw_3}
end on

on tabpage_3.destroy
destroy(this.tab_2)
destroy(this.dw_3)
end on

type tab_2 from tab within tabpage_3
integer x = 1303
integer width = 2240
integer height = 1008
integer taborder = 40
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long backcolor = 134217739
boolean raggedright = true
boolean focusonbuttondown = true
integer selectedtab = 1
tabpage_4 tabpage_4
tabpage_5 tabpage_5
end type

on tab_2.create
this.tabpage_4=create tabpage_4
this.tabpage_5=create tabpage_5
this.Control[]={this.tabpage_4,&
this.tabpage_5}
end on

on tab_2.destroy
destroy(this.tabpage_4)
destroy(this.tabpage_5)
end on

type tabpage_4 from userobject within tab_2
integer x = 18
integer y = 96
integer width = 2203
integer height = 896
long backcolor = 134217739
string text = "已安排工作"
long tabtextcolor = 33554432
long tabbackcolor = 134217739
long picturemaskcolor = 536870912
cb_8 cb_8
cb_7 cb_7
cb_6 cb_6
dw_4 dw_4
end type

on tabpage_4.create
this.cb_8=create cb_8
this.cb_7=create cb_7
this.cb_6=create cb_6
this.dw_4=create dw_4
this.Control[]={this.cb_8,&
this.cb_7,&
this.cb_6,&
this.dw_4}
end on

on tabpage_4.destroy
destroy(this.cb_8)
destroy(this.cb_7)
destroy(this.cb_6)
destroy(this.dw_4)
end on

type cb_8 from commandbutton within tabpage_4
integer x = 411
integer width = 183
integer height = 84
integer taborder = 20
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "打印"
end type

type cb_7 from commandbutton within tabpage_4
integer x = 187
integer width = 219
integer height = 84
integer taborder = 20
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "全不选"
end type

type cb_6 from commandbutton within tabpage_4
integer width = 183
integer height = 84
integer taborder = 50
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "全选"
end type

type dw_4 from datawindow within tabpage_4
integer y = 104
integer width = 686
integer height = 400
integer taborder = 40
string title = "none"
string dataobject = "dw_sc_task_wkp_uc"
boolean hscrollbar = true
boolean vscrollbar = true
boolean hsplitscroll = true
boolean livescroll = true
borderstyle borderstyle = stylelowered!
end type

type tabpage_5 from userobject within tab_2
integer x = 18
integer y = 96
integer width = 2203
integer height = 896
long backcolor = 134217739
string text = "待安排工作"
long tabtextcolor = 33554432
long tabbackcolor = 134217739
long picturemaskcolor = 536870912
cb_5 cb_5
cb_4 cb_4
cb_3 cb_3
dw_5 dw_5
end type

on tabpage_5.create
this.cb_5=create cb_5
this.cb_4=create cb_4
this.cb_3=create cb_3
this.dw_5=create dw_5
this.Control[]={this.cb_5,&
this.cb_4,&
this.cb_3,&
this.dw_5}
end on

on tabpage_5.destroy
destroy(this.cb_5)
destroy(this.cb_4)
destroy(this.cb_3)
destroy(this.dw_5)
end on

type cb_5 from commandbutton within tabpage_5
integer x = 411
integer width = 274
integer height = 84
integer taborder = 10
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "新建派工"
end type

type cb_4 from commandbutton within tabpage_5
integer x = 187
integer width = 219
integer height = 84
integer taborder = 10
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "全不选"
end type

type cb_3 from commandbutton within tabpage_5
integer width = 183
integer height = 84
integer taborder = 40
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "全选"
end type

type dw_5 from datawindow within tabpage_5
integer y = 96
integer width = 686
integer height = 400
integer taborder = 40
string title = "none"
string dataobject = "dw_sc_task_wkp_notplan_index"
boolean hscrollbar = true
boolean vscrollbar = true
boolean hsplitscroll = true
boolean livescroll = true
borderstyle borderstyle = stylelowered!
end type

type dw_3 from datawindow within tabpage_3
integer width = 1285
integer height = 640
integer taborder = 40
string title = "none"
string dataobject = "dw_order_ml_zlmx"
boolean hscrollbar = true
boolean vscrollbar = true
boolean hsplitscroll = true
boolean livescroll = true
borderstyle borderstyle = stylelowered!
end type

type cb_9 from uo_imflatbutton within w_cd_main_pc
integer x = 302
integer width = 274
integer height = 164
integer taborder = 20
boolean bringtotop = true
string text = "店铺管理"
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;open(w_cd_custs)
end event

type ln_1 from line within w_cd_main_pc
long linecolor = 268435456
integer linethickness = 4
integer beginx = -18
integer beginy = 168
integer endx = 1998
integer endy = 168
end type

type ln_2 from line within w_cd_main_pc
long linecolor = 16777215
integer linethickness = 4
integer beginx = -18
integer beginy = 172
integer endx = 2030
integer endy = 172
end type