$PBExportHeader$w_outware_barcodemx.srw
forward
global type w_outware_barcodemx from w_publ_easyq
end type
type cb_barcode from uo_imflatbutton within w_outware_barcodemx
end type
type cb_3 from uo_imflatbutton within w_outware_barcodemx
end type
type cbx_all from checkbox within w_outware_barcodemx
end type
type cb_4 from uo_imflatbutton within w_outware_barcodemx
end type
end forward

global type w_outware_barcodemx from w_publ_easyq
string title = "条码管理"
windowstate windowstate = normal!
cb_barcode cb_barcode
cb_3 cb_3
cbx_all cbx_all
cb_4 cb_4
end type
global w_outware_barcodemx w_outware_barcodemx

type variables
string ins_title //标题
long ins_outwareid //单据id
end variables

forward prototypes
public function integer wf_retrieve ()
end prototypes

public function integer wf_retrieve ();Int rslt = 1
dw_1.Reset()

String arg_msg
Long ll_row, outwareid

If IsNull(ins_outwareid) Then Goto ext

oleobject req, rsp

req = FXAppCom.CreatePbDictionary()
req.SetString('token', app_token_fx)
req.SetInt('outwareid', ins_outwareid)

rsp = FXAppCom.DoExecute('GetFxSaletaskBuyBarcode', req)
arg_msg = rsp.GetString('ErrMsg')

If (arg_msg <> '') Then
	rslt = 0
	MessageBox('提示', '获取订单条码失败:' + arg_msg)
	Goto ext
End If

oleobject list, Item
list = rsp.GetPBArray('barcodeList')

dw_1.SetRedraw(False)
Long i, row
For i = 1 To list.Count
	Item = list.GetPBDictionary(i - 1)
	
	row = dw_1.InsertRow(0)
	
	dw_1.SetItem(row, 'taskid', Item.GetInt('taskid'))
	dw_1.SetItem(row, 'printid', Item.GetInt('printid'))
	dw_1.SetItem(row, 'barcode', Item.GetString('barcode'))
	dw_1.SetItem(row, 'taskcode', Item.GetString('taskcode'))
	dw_1.SetItem(row, 'mtrlcode', Item.GetString('mtrlcode'))
	dw_1.SetItem(row, 'mtrlname', Item.GetString('mtrlname'))
	dw_1.SetItem(row, 'mtrlmode', Item.GetString('mtrlmode'))
	dw_1.SetItem(row, 'status', Item.GetString('status'))
	dw_1.SetItem(row, 'woodcode', Item.GetString('woodcode'))
	dw_1.SetItem(row, 'pcode', Item.GetString('pcode'))
	dw_1.SetItem(row, 'qty', Item.GetInt('qty'))
	dw_1.SetItem(row, 'printnum', Item.GetInt('printnum'))
	dw_1.SetItem(row, 'packqty', Item.GetDouble('packqty'))
	
	
Next
dw_1.SetRedraw(True)

ext:
Return rslt

end function

on w_outware_barcodemx.create
int iCurrent
call super::create
this.cb_barcode=create cb_barcode
this.cb_3=create cb_3
this.cbx_all=create cbx_all
this.cb_4=create cb_4
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.cb_barcode
this.Control[iCurrent+2]=this.cb_3
this.Control[iCurrent+3]=this.cbx_all
this.Control[iCurrent+4]=this.cb_4
end on

on w_outware_barcodemx.destroy
call super::destroy
destroy(this.cb_barcode)
destroy(this.cb_3)
destroy(this.cbx_all)
destroy(this.cb_4)
end on

event open;call super::open;s_edit_index_tran s_tran //翻页功能窗口 传递参数使用
s_tran = Message.PowerObjectParm

//单据id
IF NOT IsNull(s_tran.e_long ) THEN
	ins_outwareid = s_tran.e_long  //标题
ELSE
	MessageBox('系统提示','单据ID不正确或没有指定')
	Close(THIS)
	RETURN
END IF


//标题
IF NOT IsNull(s_tran.d_string ) THEN
	ins_title = s_tran.d_string  
ELSE
	ins_title = "条码管理"
END IF
THIS.Title = ins_title

wf_retrieve()
end event

type cb_func from w_publ_easyq`cb_func within w_outware_barcodemx
boolean visible = false
end type

type cb_exit from w_publ_easyq`cb_exit within w_outware_barcodemx
integer x = 1221
end type

type cb_2 from w_publ_easyq`cb_2 within w_outware_barcodemx
boolean visible = false
end type

type cb_psetup from w_publ_easyq`cb_psetup within w_outware_barcodemx
boolean visible = false
end type

type cb_1 from w_publ_easyq`cb_1 within w_outware_barcodemx
integer width = 302
string text = "刷新还原"
end type

event cb_1::clicked;call super::clicked;wf_retrieve()
end event

type st_3 from w_publ_easyq`st_3 within w_outware_barcodemx
boolean visible = false
end type

type st_4 from w_publ_easyq`st_4 within w_outware_barcodemx
boolean visible = false
end type

type em_1 from w_publ_easyq`em_1 within w_outware_barcodemx
boolean visible = false
end type

type em_2 from w_publ_easyq`em_2 within w_outware_barcodemx
boolean visible = false
end type

type ddlb_yl from w_publ_easyq`ddlb_yl within w_outware_barcodemx
boolean visible = false
end type

type cbx_yl from w_publ_easyq`cbx_yl within w_outware_barcodemx
boolean visible = false
end type

type dw_1 from w_publ_easyq`dw_1 within w_outware_barcodemx
integer y = 188
integer height = 2044
string dataobject = "dw_fx_saletask_buy_barcode"
end type

type sle_mtrl from w_publ_easyq`sle_mtrl within w_outware_barcodemx
end type

type sle_cust from w_publ_easyq`sle_cust within w_outware_barcodemx
end type

type st_mtrl from w_publ_easyq`st_mtrl within w_outware_barcodemx
end type

type st_cust from w_publ_easyq`st_cust within w_outware_barcodemx
end type

type cbx_loginretr from w_publ_easyq`cbx_loginretr within w_outware_barcodemx
end type

type pb_em1 from w_publ_easyq`pb_em1 within w_outware_barcodemx
boolean visible = false
end type

type pb_em2 from w_publ_easyq`pb_em2 within w_outware_barcodemx
boolean visible = false
end type

type pb_2 from w_publ_easyq`pb_2 within w_outware_barcodemx
boolean visible = false
end type

type cb_help from w_publ_easyq`cb_help within w_outware_barcodemx
boolean visible = false
end type

type cb_copyself from w_publ_easyq`cb_copyself within w_outware_barcodemx
boolean visible = false
end type

type gb_1 from w_publ_easyq`gb_1 within w_outware_barcodemx
end type

type ln_bar from w_publ_easyq`ln_bar within w_outware_barcodemx
end type

type ln_bar2 from w_publ_easyq`ln_bar2 within w_outware_barcodemx
end type

type r_bar from w_publ_easyq`r_bar within w_outware_barcodemx
end type

type ln_1 from w_publ_easyq`ln_1 within w_outware_barcodemx
integer beginy = 172
integer endy = 172
end type

type ln_2 from w_publ_easyq`ln_2 within w_outware_barcodemx
integer beginy = 176
integer endy = 176
end type

type ln_3 from w_publ_easyq`ln_3 within w_outware_barcodemx
integer beginy = 176
integer endy = 176
end type

type ln_4 from w_publ_easyq`ln_4 within w_outware_barcodemx
integer beginy = 176
integer endy = 176
end type

type cb_barcode from uo_imflatbutton within w_outware_barcodemx
integer x = 608
integer height = 164
integer taborder = 60
boolean bringtotop = true
string text = "录入条码"
string normalpicname = "new.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;s_edit_index_tran s_tran, s_ret
OpenWithParm(w_outware_barcode_ch, s_tran)
s_ret = Message.PowerObjectParm

Long i,num
num = UpperBound(s_ret.arr_string)

If num <= 0 Then Return

If Not IsNull(s_ret) Then
	
	For i = 1 To num
	Next
	
End If



end event

type cb_3 from uo_imflatbutton within w_outware_barcodemx
integer x = 914
integer height = 164
integer taborder = 70
boolean bringtotop = true
string text = "删除条码"
string normalpicname = "delete.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;if dw_1.RowCount() <= 0 then
	Messagebox('提示', '请先添加明细！')
	return
end if

long i, index
index = 0
FOR i = dw_1.RowCount() TO 1 STEP -1
	IF  dw_1.Object.ch[i] = 1 THEN
	index++
	dw_1.DeleteRow(0)
	END IF
NEXT
IF index = 0 THEN
	MessageBox('提示', '请先勾选要删除的发货明细!')
END IF
end event

type cbx_all from checkbox within w_outware_barcodemx
integer x = 1445
integer y = 108
integer width = 261
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 = 67108864
string text = "全选"
end type

event clicked;Long ll_i

dw_1.SetRedraw(FALSE)
FOR ll_i = 1 TO dw_1.RowCount()
   IF THIS.Checked THEN
      dw_1.Object.ch[ll_i] = 1
   ELSE
      dw_1.Object.ch[ll_i] = 0
   END IF
NEXT
dw_1.SetRedraw(TRUE)

end event

type cb_4 from uo_imflatbutton within w_outware_barcodemx
integer x = 306
integer height = 164
integer taborder = 70
boolean bringtotop = true
string text = "保存"
string normalpicname = "ok.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;
//OpenWithParm(w_fj_manage_saletask,s_pic)
end event

