Q5/ws_objects/Ew_sale_ls.pbl.src/w_outware_pos.srw

$PBExportHeader$w_outware_pos.srw
forward
global type w_outware_pos from w_publ_base
end type
type dw_child from u_dw_rbtnfilter within w_outware_pos
end type
type st_3 from statictext within w_outware_pos
end type
type sle_barcode from singlelineedit within w_outware_pos
end type
type st_4 from statictext within w_outware_pos
end type
type em_qty from editmask within w_outware_pos
end type
type st_5 from statictext within w_outware_pos
end type
type em_amt from editmask within w_outware_pos
end type
type cb_1 from uo_imflatbutton within w_outware_pos
end type
type cb_js from uo_imflatbutton within w_outware_pos
end type
type dw_last from u_dw_rbtnfilter within w_outware_pos
end type
type cb_print from uo_imflatbutton within w_outware_pos
end type
type cbx_1 from checkbox within w_outware_pos
end type
type cbx_2 from checkbox within w_outware_pos
end type
type ln_1 from line within w_outware_pos
end type
type st_1 from statictext within w_outware_pos
end type
type st_user from statictext within w_outware_pos
end type
type st_6 from statictext within w_outware_pos
end type
type st_time from statictext within w_outware_pos
end type
type st_7 from statictext within w_outware_pos
end type
type st_billcode from statictext within w_outware_pos
end type
type cb_new from uo_imflatbutton within w_outware_pos
end type
type st_8 from statictext within w_outware_pos
end type
type sle_cust from singlelineedit within w_outware_pos
end type
type cb_2 from uo_imflatbutton within w_outware_pos
end type
type cbx_th from checkbox within w_outware_pos
end type
type dw_help from u_dw_rbtnfilter within w_outware_pos
end type
type ddlb_scid from uo_ddlb_scid within w_outware_pos
end type
type st_2 from statictext within w_outware_pos
end type
type ln_bar from line within w_outware_pos
end type
type ln_bar2 from line within w_outware_pos
end type
type r_bar from rectangle within w_outware_pos
end type
type ln_2 from line within w_outware_pos
end type
type ln_3 from line within w_outware_pos
end type
end forward

global type w_outware_pos from w_publ_base
integer width = 3611
integer height = 2380
string title = "零售单"
boolean maxbox = true
windowstate windowstate = maximized!
event ue_new ( )
event insert_childrow ( )
event ue_cal ( )
event user_key ( )
event keydown pbm_keydown
event ue_upone ( )
event ue_downone ( )
event ue_delone ( )
event ue_changeqty ( )
event ue_changeprice ( )
event ue_changerebate ( )
event ue_clearinput ( )
event ue_changemxdscrp ( )
event retrieve_last ( )
event ue_f8 ( )
event ue_hisbill ( )
event ue_f5 ( )
event ue_f1 ( )
event ue_f9 ( )
event ue_f6 ( )
event ue_js ( )
event ue_resize ( )
event ue_viewprint ( )
event ue_print ( )
dw_child dw_child
st_3 st_3
sle_barcode sle_barcode
st_4 st_4
em_qty em_qty
st_5 st_5
em_amt em_amt
cb_1 cb_1
cb_js cb_js
dw_last dw_last
cb_print cb_print
cbx_1 cbx_1
cbx_2 cbx_2
ln_1 ln_1
st_1 st_1
st_user st_user
st_6 st_6
st_time st_time
st_7 st_7
st_billcode st_billcode
cb_new cb_new
st_8 st_8
sle_cust sle_cust
cb_2 cb_2
cbx_th cbx_th
dw_help dw_help
ddlb_scid ddlb_scid
st_2 st_2
ln_bar ln_bar
ln_bar2 ln_bar2
r_bar r_bar
ln_2 ln_2
ln_3 ln_3
end type
global w_outware_pos w_outware_pos

type variables
uo_outware_sale uo_ware

Long ins_cusid = 0
String ins_cusname = ''

Boolean useuserkey = FALSE

Long ins_def_storageid

String ins_new_billtext = '正在建立...' //新建单时单据号码显示

long cur_scid  //分店ID
long cur_scid_arr[]
s_custom s_cust,s_isnull_cust

int cur_help = 1
end variables

forward prototypes
public function integer wf_add_score (long arg_cusid, decimal arg_totalamt, ref string arg_msg)
public function integer wf_find_dftstorage (long arg_scid, ref long arg_storageid)
end prototypes

event ue_new();
String arg_msg

Long ls_i


IF uo_ware.newbegin(cur_scid,1,arg_msg) = 0 THEN
	MessageBox('提示',arg_msg,information!,ok!)
	RETURN
END IF

dw_edit_mode = NOT dw_edit_mode

dw_child.Reset()
sle_barcode.SetFocus()
st_billcode.Text = ins_new_billtext
st_2.Text = ''
sle_cust.text = ''

s_cust = s_isnull_cust

THIS.TriggerEvent('retrieve_last')

end event

event insert_childrow();Long li_row
li_row = dw_child.InsertRow(0)
dw_child.ScrollToRow(li_row)


end event

event ue_cal();IF dw_child.RowCount() = 0 THEN
	em_qty.Text = '0'
	em_amt.Text = '0'
ELSE
	em_qty.Text = String(dw_child.Object.compute_qty[1],'#,##0.00##')
	em_amt.Text = String(dw_child.Object.compute_amt[1],'#,##0.00##')
END IF

end event

event user_key();IF wf_find_dftstorage(cur_scid,ins_def_storageid) = 0 THEN
	MessageBox('提示','查询分部的默认零售仓库失败!',information!,ok!)
	return
END IF

IF KeyDown(KeyInsert!) THEN
	THIS.PostEvent('ue_new')
	RETURN
ELSEIF KeyDown(KeyUpArrow!) THEN
	THIS.PostEvent('ue_upone')
	RETURN
ELSEIF KeyDown(KeyDownArrow!) THEN
	THIS.PostEvent('ue_downone')
	RETURN
ELSEIF KeyDown(KeyDelete!) THEN
	THIS.PostEvent('ue_delone')
	RETURN
ELSEIF KeyDown(KeyRightArrow!) THEN
	THIS.PostEvent('ue_changeqty')
	RETURN
ELSEIF KeyDown(KeyLeftArrow!) THEN
	THIS.PostEvent('ue_changeprice')
	RETURN
ELSEIF KeyDown(KeySlash!) OR KeyDown(KeyDivide!) THEN
	THIS.PostEvent('ue_changerebate')
	RETURN
ELSEIF KeyDown(KeyControl!) AND KeyDown(KeyM!) THEN
	THIS.PostEvent('ue_changemxdscrp')
	RETURN
ELSEIF KeyDown(KeyEnd!) THEN
	cb_js.TriggerEvent(Clicked!)
	RETURN
ELSEIF KeyDown(KeyF8!) THEN
	THIS.TriggerEvent('ue_f8')
	RETURN
ELSEIF KeyDown(KeyF9!) THEN
	THIS.TriggerEvent('ue_f9')
	RETURN
ELSEIF KeyDown(KeyF6!) THEN
	THIS.TriggerEvent('ue_f6')
	RETURN
ELSEIF KeyDown(KeyF5!) THEN
	THIS.TriggerEvent('ue_f5')
	RETURN
ELSEIF KeyDown(KeyF4!) THEN
	THIS.TriggerEvent('ue_viewprint')
	RETURN
ELSEIF KeyDown(KeyF1!) THEN
	THIS.TriggerEvent('ue_f1')
	RETURN
ELSEIF KeyDown(KeyPageUp!) THEN
	THIS.TriggerEvent('ue_hisbill')
	RETURN
ELSEIF KeyDown(KeyEscape!) THEN
	IF MessageBox('询问','是否要关闭当前窗口?',question!,yesno!) <> 1 THEN RETURN
	Close(THIS)
	RETURN
END IF



end event

event keydown;this.triggerevent('user_key')
end event

event ue_upone();if dw_child.rowcount() = 0 then
	return
end if
if dw_child.getrow() = 0 then
	dw_child.scrolltorow(1)
	return
else
	long child_row
	child_row = dw_child.getrow()
	if child_row <> 1 then
		child_row = child_row - 1
		dw_child.scrolltorow(child_row)
		dw_child.selectrow( 0, false)
		dw_child.selectrow( child_row, true)
		return
	end if
end if
end event

event ue_downone();IF dw_child.RowCount() = 0 THEN
	RETURN
END IF
IF dw_child.GetRow() = 0 THEN
	dw_child.ScrollToRow(1)
	RETURN
ELSE
	Long child_row
	child_row = dw_child.GetRow()
	IF child_row <> dw_child.RowCount() THEN
		child_row = child_row + 1
		dw_child.ScrollToRow(child_row)
		dw_child.SelectRow( 0, FALSE)
		dw_child.SelectRow( dw_child.GetRow(), TRUE)
		RETURN
	END IF
END IF

end event

event ue_delone();IF dw_child.RowCount() = 0 THEN
	OpenWithParm(w_pos_msg,'无数据可删除!')
	RETURN
END IF

Long child_row
child_row = dw_child.GetRow()
IF child_row <= 0 THEN
	OpenWithParm(w_pos_msg,'请选择要删除的行!')
	RETURN
END IF

IF MessageBox('询问','是否要删除第'+String(child_row)+'行?',question!,yesno!) = 2 THEN RETURN
dw_child.DeleteRow(child_row)
IF dw_child.RowCount() > 0 THEN
	child_row = child_row - 1
	IF child_row = 0 THEN child_row = 1
	dw_child.ScrollToRow(child_row)
	dw_child.SelectRow( 0, FALSE)
	dw_child.SelectRow( child_row, TRUE)
END IF

THIS.TriggerEvent('ue_cal')

end event

event ue_changeqty();//修改数量
Long child_row
child_row = dw_child.GetRow()
IF child_row = 0 THEN RETURN
dw_child.AcceptText()
Long ls_printid
String ls_mtrlname
Dec ls_qty
ls_printid = dw_child.Object.print_id[child_row]
ls_mtrlname = dw_child.Object.u_mtrldef_mtrlname[child_row]
ls_qty = dw_child.Object.u_outwaremx_qty[child_row]
s_pos_qty_tran s_qty_tran
s_qty_tran.mtrlname = ls_mtrlname
s_qty_tran.pid = ls_printid
s_qty_tran.preqty = ls_qty
OpenWithParm(w_outware_pos_qty,s_qty_tran)

s_qty_tran = Message.PowerObjectParm

IF s_qty_tran.if_ok = 0 THEN RETURN

dw_child.Object.u_outwaremx_qty[child_row] = s_qty_tran.newqty

end event

event ue_changeprice();//修改数量
Long child_row
child_row = dw_child.GetRow()
IF child_row = 0 THEN RETURN
dw_child.AcceptText()
Long ls_printid
String ls_mtrlname
Dec ls_price
ls_printid = dw_child.Object.print_id[child_row]
ls_mtrlname = dw_child.Object.u_mtrldef_mtrlname[child_row]
ls_price = dw_child.Object.u_outwaremx_fprice[child_row]
s_pos_price_tran s_price_tran
s_price_tran.mtrlname = ls_mtrlname
s_price_tran.pid = ls_printid
s_price_tran.preprice = ls_price
OpenWithParm(w_outware_pos_price,s_price_tran)

s_price_tran = Message.PowerObjectParm

IF s_price_tran.if_ok = 0 THEN RETURN

dw_child.Object.u_outwaremx_fprice[child_row] = s_price_tran.newprice

end event

event ue_changerebate();//修改数量
Long child_row
child_row = dw_child.GetRow()
IF child_row = 0 THEN RETURN
dw_child.AcceptText()
Long ls_printid
String ls_mtrlname
Dec ls_rebate
ls_printid = dw_child.Object.print_id[child_row]
ls_mtrlname = dw_child.Object.u_mtrldef_mtrlname[child_row]
ls_rebate = dw_child.Object.u_outwaremx_rebate[child_row]
s_pos_rebate_tran s_rebate_tran
s_rebate_tran.mtrlname = ls_mtrlname
s_rebate_tran.pid = ls_printid
s_rebate_tran.prerebate = ls_rebate

IF  f_power_ind(1293) THEN
	MessageBox('提示','你没有使用权限！', Information!, OK! )
	RETURN
END IF


OpenWithParm(w_outware_pos_rebate,s_rebate_tran)

s_rebate_tran = Message.PowerObjectParm

IF Pos(sle_barcode.Text,'/') > 0 THEN
	sle_barcode.Text = ''
END IF

IF s_rebate_tran.if_ok = 0 THEN RETURN

dw_child.Object.u_outwaremx_rebate[child_row] = s_rebate_tran.newrebate

end event

event ue_clearinput();IF Pos(sle_barcode.Text,'/') > 0 THEN
	sle_barcode.Text = ''
END IF

end event

event ue_changemxdscrp();//修改数量
Long child_row
child_row = dw_child.GetRow()
IF child_row = 0 THEN RETURN
dw_child.AcceptText()
Long ls_printid
String ls_mtrlname
String ls_mxdscrp
ls_printid = dw_child.Object.print_id[child_row]
ls_mtrlname = dw_child.Object.u_mtrldef_mtrlname[child_row]
ls_mxdscrp = dw_child.Object.u_outwaremx_mxdscrp[child_row]
s_pos_mxdscrp_tran s_dscrp_tran
s_dscrp_tran.mtrlname = ls_mtrlname
s_dscrp_tran.pid = ls_printid
s_dscrp_tran.predscrp = ls_mxdscrp
OpenWithParm(w_outware_pos_mxdscrp,s_dscrp_tran)

s_dscrp_tran = Message.PowerObjectParm

IF Upper(Left(sle_barcode.Text,1)) = 'M' THEN
	sle_barcode.Text = ''
END IF

IF s_dscrp_tran.if_ok = 0 THEN RETURN

dw_child.Object.u_outwaremx_mxdscrp[child_row] = s_dscrp_tran.newdscrp

end event

event retrieve_last();dw_last.Retrieve(publ_operator)
IF dw_last.RowCount() = 0 THEN
	dw_last.InsertRow(0)
END IF


end event

event ue_f8();Openwithparm(w_outware_pos_findmtrl,ins_def_storageid)

s_pos_mtrl s_rt
s_rt = Message.PowerObjectParm


IF isnull(s_rt.if_ok) or s_rt.if_ok = 0 THEN RETURN

sle_barcode.Text = s_rt.mtrlcode
cb_1.TriggerEvent(Clicked!)

end event

event ue_hisbill();//取单据
openwithparm(w_outware_pos_hisbill,cur_scid)
s_pos_hisbill s_rt
s_rt = message.powerobjectparm

if s_rt.if_ok = 0 then return

long ls_scid,ls_outwareid
ls_scid = s_rt.scid
ls_outwareid = s_rt.outwareid

if dw_child.rowcount() > 0 then
	if messagebox('询问','发现已存在明细数据,是否要清除当前并打开单据?',question!,yesno!)=2 then return
end if

sle_barcode.text = ''

string arg_msg
IF uo_ware.getinfo(ls_scid,ls_outwareid,arg_msg) = 0 THEN
	openwithparm(w_pos_msg,arg_msg)
	RETURN
END IF

st_billcode.text = uo_ware.outwarecode
long ls_i

dw_child.retrieve(ls_scid,ls_outwareid)

this.triggerevent('ue_cal')
end event

event ue_f5();if st_billcode.text = ins_new_billtext then
	messagebox('提示','正在建立单据不能打印!',information!,ok!)
	return
end if

cb_print.triggerevent(clicked!)
end event

event ue_f1();cur_help = 1 - cur_help

IF cur_help = 1 THEN
	dw_help.Visible = TRUE
	dw_child.X = dw_help.Width + 5
	dw_child.Width = THIS.WorkSpaceWidth() - dw_help.Width - 5
ELSE
	dw_child.X = 0
	dw_child.Width = THIS.WorkSpaceWidth()
	dw_help.Visible = FALSE
END IF
end event

event ue_f9();//高级商品查询
Long child_row
Long ls_sptid
Long ll_storageid
Decimal ls_price,ls_rebate

IF NOT IsValid(W_mtrldef_edit) THEN
	s_edit_index_tran s_tranf8 //传递参数使用
	s_tranf8.if_retrieve_all = FALSE  //是否一次RETRIEVE所有行
	s_tranf8.work_mode = 1            //0-单纯编辑模式 1-选择\编辑模式
	s_tranf8.arg_pkid = 0             //目标定位PKID (备用)
	s_tranf8.arg_string_code = ''     //查询列(物料编码)部分内容,用于初步筛选 
	s_tranf8.if_select_all = TRUE     //多选
	s_tranf8.b_long = 2               //选采购
	s_tranf8.c_long = ll_storageid
	
	Long chc = 1,ls_j
	IF dw_child.GetRow() > 0 THEN s_tranf8.arg_string_code = Trim(dw_child.Object.u_mtrldef_mtrlcode[dw_child.GetRow()])
	OpenWithParm(W_mtrldef_edit,s_tranf8) //调用
	
	s_mtrldef_array S_INSCUST
	S_INSCUST = Message.PowerObjectParm //接受返回结构
	FOR ls_j = 1 TO  UpperBound(S_INSCUST.mtrlid)
		IF S_INSCUST.mtrlid[ls_j] > 0 THEN //正常返回值则可以取以下值
			sle_barcode.text = S_INSCUST.mtrlcode[ls_j]
			cb_1.triggerevent(clicked!)
		END IF
		
	NEXT
END IF







end event

event ue_f6();
IF NOT IsValid(W_cust_edit) THEN
	s_edit_index_tran s_ch_tran //传递参数使用
	s_ch_tran.if_retrieve_all = FALSE  //是否一次RETRIEVE所有行
	s_ch_tran.work_mode = 1            //0-单纯编辑模式 1-选择\编辑模式
	s_ch_tran.arg_pkid = 0             //目标定位PKID (备用)
	//查询列(物料编码)部分内容,用于初步筛选
	s_ch_tran.arg_string_code = Upper(Trim(sle_cust.Text))
	
	OpenWithParm(W_cust_edit,s_ch_tran) //调用
	
	s_custom S_INSCUST
	S_INSCUST = Message.PowerObjectParm //接受返回结构
	
	IF S_INSCUST.cusid > 0 THEN //正常返回值则可以取以下值
		s_cust  = S_INSCUST
		sle_cust.Text = s_cust.cuscode
		st_2.text = s_cust.name
	END IF
END IF

sle_barcode.SetFocus()


end event

event ue_js();IF dw_child.RowCount() = 0 THEN
	sle_barcode.Text = ''
	OpenWithParm(w_pos_msg,'请先输入明细内容!')
	RETURN
END IF

Long ll_printid,i,j
String arg_msg
Boolean ls_mod_flag = FALSE

THIS.TriggerEvent('ue_cal')
Decimal ls_totalamt
ls_totalamt = dw_child.Object.compute_amt[1]

OpenWithParm(w_outware_pos_js,ls_totalamt)
s_pos_bank s_rt
s_rt = Message.PowerObjectParm
IF s_rt.if_ok = 0 THEN RETURN

//如果是修改单顺序财撤->仓撤->修改
IF uo_ware.outwareid > 0 THEN
	IF uo_ware.getinfo(cur_scid,uo_ware.outwareid,arg_msg) = 0 THEN
		MessageBox('错误',arg_msg,stopsign!,ok!)
		sle_barcode.Text = ''
		sle_barcode.SetFocus()
		RETURN
	END IF
	
	IF uo_ware.secflag = 1 THEN
		IF uo_ware.c_secauditing(FALSE,arg_msg) = 0 THEN
			MessageBox('错误',arg_msg,stopsign!,ok!)
			RETURN
		END IF
	END IF
	
	IF uo_ware.flag = 1 THEN
		IF uo_ware.c_auditing(FALSE,arg_msg) = 0 THEN
			MessageBox('错误',arg_msg,stopsign!,ok!)
			RETURN
		END IF
	END IF
	
	IF uo_ware.updatebegin(cur_scid,uo_ware.outwareid,1,arg_msg) = 0 THEN
		ROLLBACK;
		MessageBox('错误',arg_msg,stopsign!,ok!)
		RETURN
	END IF
ELSE
	IF uo_ware.newbegin(cur_scid,1,arg_msg) = 0 THEN
		MessageBox('错误',arg_msg,stopsign!,ok!)
		RETURN
	END IF
	uo_ware.outdate = DateTime(Today(),Now())
	uo_ware.outrep = st_user.Text
	uo_ware.part = ''
	uo_ware.dscrp = ''
	
	IF s_cust.cusid = 0 THEN
		uo_ware.cusid = ins_cusid
	ELSE
		uo_ware.cusid = s_cust.cusid
	END IF
	
	IF cbx_th.Checked THEN
		uo_ware.thflag = 1
	ELSE
		uo_ware.thflag = 0
	END IF
END IF

s_outwaremx s_mx

Long ll_banktypeid
SELECT top 1 banktypeid
	INTO  :ll_banktypeid
	FROM  cw_banktype
	Where banktype = 0 AND btype = 1 AND inuse = 1;
IF sqlca.SQLCode <> 0 THEN
	MessageBox('错误','查询结算方式失败',stopsign!,ok!)
	RETURN
END IF

Long  ll_moneyid
SELECT moneyid
	INTO  :ll_moneyid
	FROM  cw_currency
	Where native = 1;
IF sqlca.SQLCode <> 0 THEN
	MessageBox('错误','查询本位币失败',stopsign!,ok!)
	RETURN
END IF

uo_ware.storageid = ins_def_storageid
uo_ware.totalamt = ls_totalamt
uo_ware.getamt = s_rt.getamt
uo_ware.lsflag = 1
uo_ware.mrate = 1

uo_ware.relint_1 = ll_banktypeid
uo_ware.relint_2 = ll_moneyid

dw_child.AcceptText()

FOR i = 1 TO dw_child.RowCount()
	IF dw_child.Object.u_outwaremx_mtrlwareid[i] > 0 THEN
		ll_printid = dw_child.Object.print_id[i]
		
		s_mx.mtrlwareid = dw_child.Object.u_outwaremx_mtrlwareid[i]
			s_mx.qty = dw_child.Object.u_outwaremx_qty[i]
			s_mx.addqty = 0
			s_mx.fprice = dw_child.Object.u_outwaremx_fprice[i]
			s_mx.rebate = dw_child.Object.u_outwaremx_rebate[i]
			s_mx.mxdscrp = dw_child.Object.u_outwaremx_mxdscrp[i]
			s_mx.printid = ll_printid
			s_mx.ifrel = 0
			s_mx.relid = 0
			s_mx.relprintid = 0
			s_mx.relid2 = 0
			s_mx.olmtrlid = 0
			s_mx.packqty = 0
			s_mx.outtype = 0
			s_mx.unit = dw_child.Object.u_mtrldef_unit[i]
			s_mx.rate = 1
			s_mx.mtrlcuscode = ''
			s_mx.formula = ''
			s_mx.mxdscrp2 = ''
			
			IF uo_ware.acceptmx(s_mx, arg_msg) = 0 THEN
				MessageBox('错误',arg_msg,stopsign!,ok!)
				sle_barcode.Text = ''
				sle_barcode.SetFocus()
				RETURN
			END IF
			
//		IF uo_ware.acceptmx(dw_child.Object.u_outwaremx_mtrlwareid[i],&
//			dw_child.Object.u_outwaremx_qty[i],0,&
//			dw_child.Object.u_outwaremx_fprice[i],&
//			dw_child.Object.u_outwaremx_rebate[i],&
//			dw_child.Object.u_outwaremx_mxdscrp[i],&
//			ll_printid,&
//			arg_msg,0,0,0,0,0,&
//			dw_child.Object.u_mtrldef_unit[i],&
//			1,&
//			'','') = 0 THEN
//			MessageBox('错误',arg_msg,stopsign!,ok!)
//			sle_barcode.Text = ''
//			sle_barcode.SetFocus()
//			RETURN
//		END IF
	END IF
NEXT


IF uo_ware.Save(FALSE,arg_msg) = 0 THEN
	MessageBox('错误',arg_msg,stopsign!,ok!)
	sle_barcode.Text = ''
	sle_barcode.SetFocus()
	RETURN
END IF

IF uo_ware.getinfo(cur_scid,uo_ware.outwareid,arg_msg) = 0 THEN
	MessageBox('错误',arg_msg,stopsign!,ok!)
	sle_barcode.Text = ''
	sle_barcode.SetFocus()
	RETURN
END IF

IF uo_ware.auditing(TRUE,arg_msg) = 0 THEN
	MessageBox('错误',arg_msg,stopsign!,ok!)
	sle_barcode.Text = ''
	sle_barcode.SetFocus()
	RETURN
END IF

IF uo_ware.getinfo(cur_scid,uo_ware.outwareid,arg_msg) = 0 THEN
	MessageBox('错误',arg_msg,stopsign!,ok!)
	sle_barcode.Text = ''
	sle_barcode.SetFocus()
	RETURN
END IF

IF uo_ware.secauditing(TRUE,arg_msg) = 0 THEN
	MessageBox('错误',arg_msg,stopsign!,ok!)
	sle_barcode.Text = ''
	sle_barcode.SetFocus()
	RETURN
END IF


///加积分
IF s_cust.cusid > 0 AND uo_ware.thflag = 0 THEN
	IF wf_add_score(s_cust.cusid,ls_totalamt,arg_msg) = 0 THEN
		MessageBox('错误',arg_msg,stopsign!,ok!)
		RETURN
	END IF
END IF

st_billcode.Text = uo_ware.outwarecode
OpenWithParm(w_pos_zl,'找回:'+String(s_rt.backamt,'#,##0.00'))

dw_edit_mode = NOT dw_edit_mode


end event

event ue_viewprint();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 = this
ls_windowname = this.ClassName ( )

IF NOT f_power_ind(851) THEN
	MessageBox('提示','你没有使用权限！',information!,ok!)
	RETURN
END IF

s_print_msg ls_prmsg
IF dw_child.RowCount() = 0 THEN
	MessageBox('提示','没有可打印的单据！',information!,ok!)
	RETURN
END IF

SELECT top 1 dwprintid,
	dft_old_dwname,
	dft_new_dwname,
	chnname,
	dwtype
	INTO :ls_dwprintid,
	:ls_dft_old_dwname,
	:ls_dft_new_dwname,
	:ls_chnname,
	:ls_dwtype
	FROM sys_dft_dwprint_dynamic
	WHERE dwtype = :ls_windowname
	AND ptype = 1 AND ifuse = 1;
IF sqlca.SQLCode <> 0 THEN
	LS_PRMSG.obj_dwNAME = 'dw_rp_outware_sale_edit_ls'
ELSE
	datastore temp_dw
	temp_dw = CREATE datastore
	temp_dw.SetTransObject (sqlca)
	temp_dw.DataObject = ls_dft_new_dwname
	//判断DW是否存在
	IF temp_dw.Describe("DataWindow.Objects") = "" THEN
		LS_PRMSG.obj_dwNAME = 'dw_rp_outware_sale_edit_ls'
	ELSE
		LS_PRMSG.obj_dwNAME = ls_dft_new_dwname
	END IF
END IF

ls_prmsg.retr_pram_falg = 15
ls_prmsg.tag_text = '小票'
ls_prmsg.filter_string = ''
ls_prmsg.pagech_flag = 0
ls_prmsg.retr_scid = cur_scid
ls_prmsg.retr_pramnmb = uo_ware.outwareid
ls_prmsg.rowcnt = dw_child.RowCount()

OpenWithParm(w_publ_preview,ls_prmsg)

//**更新打印次料
String arg_msg
printnum = Message.DoubleParm
//f_update_printnum('u_outware',printnum,uo_ware.outwareid,arg_msg,TRUE)
f_update_printnum('u_outware',1,cur_scid,uo_ware.outwareid,'','',arg_msg,TRUE)



end event

event ue_print();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 = this
ls_windowname = this.ClassName ( )

//--直接打印
IF NOT f_power_ind(851) THEN
	MessageBox('提示','你没有使用权限！',information!,ok!)
	RETURN
END IF

uo_print_preview uo_print
S_print_MSG LS_PRMSG

IF dw_child.RowCount() = 0 THEN
	MessageBox('提示','没有可打印的单据！',information!,ok!)
	RETURN
END IF

SELECT top 1 dwprintid,
	dft_old_dwname,
	dft_new_dwname,
	chnname,
	dwtype
	INTO :ls_dwprintid,
	:ls_dft_old_dwname,
	:ls_dft_new_dwname,
	:ls_chnname,
	:ls_dwtype
	FROM sys_dft_dwprint_dynamic
	WHERE dwtype = :ls_windowname
	AND ptype = 1 AND ifuse = 1;
IF sqlca.SQLCode <> 0 THEN
	LS_PRMSG.obj_dwNAME = 'dw_rp_outware_sale_edit_ls'
ELSE
	datastore temp_dw
	temp_dw = CREATE datastore
	temp_dw.SetTransObject (sqlca)
	temp_dw.DataObject = ls_dft_new_dwname
	//判断DW是否存在
	IF temp_dw.Describe("DataWindow.Objects") = "" THEN
		LS_PRMSG.obj_dwNAME = 'dw_rp_outware_sale_edit_ls'
	ELSE
		LS_PRMSG.obj_dwNAME = ls_dft_new_dwname
	END IF
END IF

if uo_ware.outwareid = 0 then return

LS_PRMSG.retr_pram_falg = 15
LS_PRMSG.TAG_TEXT = '小票'
LS_PRMSG.FILTER_STRING = ''
LS_PRMSG.PAGECH_FLAG = 0
LS_PRMSG.retr_scid = cur_scid
LS_PRMSG.retr_pramnmb = uo_ware.outwareid
LS_PRMSG.rowcnt = dw_child.RowCount()

uo_print.FACT_PRINT_MSG = LS_PRMSG


String arg_msg
IF uo_print.uof_print_begin(arg_msg) = 0 THEN
	MessageBox("提示",arg_msg,information!,ok!)
	RETURN
END IF
uo_print.ds_print()

//**更新打印次料
f_update_printnum('u_outware',1,cur_scid,uo_ware.outwareid,'','',arg_msg,TRUE)



end event

public function integer wf_add_score (long arg_cusid, decimal arg_totalamt, ref string arg_msg);Int rslt = 1
Decimal ld_score
ld_score = 0
SELECT u_cust_member.scoretype * :arg_totalamt
	INTO :ld_score
	FROM u_cust_member,u_cust
	WHERE u_cust_member.memberid = u_cust.memberid
	AND u_cust.cusid = :arg_cusid AND u_cust.lsflag = 0  ;
IF sqlca.SQLCode <> 0 THEN
	arg_msg = '更新客户积分失败'
	rslt = 0
	GOTO ext
END IF

uo_custdef uo_cust
uo_cust = CREATE uo_custdef
uo_cust.commit_transaction = sqlca
IF uo_cust.uof_cust_score(arg_cusid,ld_score,arg_msg,TRUE) = 0  THEN
	rslt = 0
	GOTO ext
END IF
ext:
RETURN rslt



end function

public function integer wf_find_dftstorage (long arg_scid, ref long arg_storageid);Int rslt = 1
Int ls_storageid
SELECT top 1 u_storage.storageid
	INTO :arg_storageid
	FROM u_storage
	Where u_storage.lsflag = 1
	and u_storage.scid = :arg_scid;
IF sqlca.SQLCode <> 0 THEN
	rslt = 0
	GOTO ext
ELSEIF sqlca.SQLNRows = 0 THEN
	rslt = 0
	GOTO ext
END IF

ext:
RETURN rslt


end function

on w_outware_pos.create
int iCurrent
call super::create
this.dw_child=create dw_child
this.st_3=create st_3
this.sle_barcode=create sle_barcode
this.st_4=create st_4
this.em_qty=create em_qty
this.st_5=create st_5
this.em_amt=create em_amt
this.cb_1=create cb_1
this.cb_js=create cb_js
this.dw_last=create dw_last
this.cb_print=create cb_print
this.cbx_1=create cbx_1
this.cbx_2=create cbx_2
this.ln_1=create ln_1
this.st_1=create st_1
this.st_user=create st_user
this.st_6=create st_6
this.st_time=create st_time
this.st_7=create st_7
this.st_billcode=create st_billcode
this.cb_new=create cb_new
this.st_8=create st_8
this.sle_cust=create sle_cust
this.cb_2=create cb_2
this.cbx_th=create cbx_th
this.dw_help=create dw_help
this.ddlb_scid=create ddlb_scid
this.st_2=create st_2
this.ln_bar=create ln_bar
this.ln_bar2=create ln_bar2
this.r_bar=create r_bar
this.ln_2=create ln_2
this.ln_3=create ln_3
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.dw_child
this.Control[iCurrent+2]=this.st_3
this.Control[iCurrent+3]=this.sle_barcode
this.Control[iCurrent+4]=this.st_4
this.Control[iCurrent+5]=this.em_qty
this.Control[iCurrent+6]=this.st_5
this.Control[iCurrent+7]=this.em_amt
this.Control[iCurrent+8]=this.cb_1
this.Control[iCurrent+9]=this.cb_js
this.Control[iCurrent+10]=this.dw_last
this.Control[iCurrent+11]=this.cb_print
this.Control[iCurrent+12]=this.cbx_1
this.Control[iCurrent+13]=this.cbx_2
this.Control[iCurrent+14]=this.ln_1
this.Control[iCurrent+15]=this.st_1
this.Control[iCurrent+16]=this.st_user
this.Control[iCurrent+17]=this.st_6
this.Control[iCurrent+18]=this.st_time
this.Control[iCurrent+19]=this.st_7
this.Control[iCurrent+20]=this.st_billcode
this.Control[iCurrent+21]=this.cb_new
this.Control[iCurrent+22]=this.st_8
this.Control[iCurrent+23]=this.sle_cust
this.Control[iCurrent+24]=this.cb_2
this.Control[iCurrent+25]=this.cbx_th
this.Control[iCurrent+26]=this.dw_help
this.Control[iCurrent+27]=this.ddlb_scid
this.Control[iCurrent+28]=this.st_2
this.Control[iCurrent+29]=this.ln_bar
this.Control[iCurrent+30]=this.ln_bar2
this.Control[iCurrent+31]=this.r_bar
this.Control[iCurrent+32]=this.ln_2
this.Control[iCurrent+33]=this.ln_3
end on

on w_outware_pos.destroy
call super::destroy
destroy(this.dw_child)
destroy(this.st_3)
destroy(this.sle_barcode)
destroy(this.st_4)
destroy(this.em_qty)
destroy(this.st_5)
destroy(this.em_amt)
destroy(this.cb_1)
destroy(this.cb_js)
destroy(this.dw_last)
destroy(this.cb_print)
destroy(this.cbx_1)
destroy(this.cbx_2)
destroy(this.ln_1)
destroy(this.st_1)
destroy(this.st_user)
destroy(this.st_6)
destroy(this.st_time)
destroy(this.st_7)
destroy(this.st_billcode)
destroy(this.cb_new)
destroy(this.st_8)
destroy(this.sle_cust)
destroy(this.cb_2)
destroy(this.cbx_th)
destroy(this.dw_help)
destroy(this.ddlb_scid)
destroy(this.st_2)
destroy(this.ln_bar)
destroy(this.ln_bar2)
destroy(this.r_bar)
destroy(this.ln_2)
destroy(this.ln_3)
end on

event resize;call super::resize;ln_bar.EndX = THIS.Width
ln_bar2.EndX = THIS.Width
ln_1.EndX = THIS.Width
ln_2.EndX = THIS.Width
r_bar.Width = THIS.Width
ln_3.EndX = THIS.Width 

Long w_width,w_height
w_width = 3602
w_height = 2300

IF newwidth < w_width THEN THIS.Width = w_width
IF newheight < w_height THEN  THIS.Height = w_height


dw_child.x = 0
dw_child.Width = THIS.WorkSpaceWidth() 

dw_child.Height = THIS.WorkSpaceHeight() - 570
dw_help.Height = THIS.WorkSpaceHeight() - 570
dw_help.visible = false
st_4.Y = THIS.WorkSpaceHeight() - st_4.Height - 50
em_qty.Y = st_4.Y
st_5.Y = st_4.Y
em_amt.Y = st_4.Y
ln_1.BeginY = st_4.Y - 5
ln_1.EndY = st_4.Y - 5

IF cur_help = 1 THEN
	dw_help.Visible = TRUE
	dw_child.X = dw_help.Width + 5
	dw_child.Width = THIS.WorkSpaceWidth() - dw_help.Width - 5
ELSE
	dw_child.X = 0
	dw_child.Width = THIS.WorkSpaceWidth()
	dw_help.Visible = FALSE
END IF

end event

event open;call super::open;cur_help = long(f_ProfileString (sys_empid, "outware_pos", "help", "1"))


st_user.Text = publ_operator
dw_child.SetTransObject(sqlca)
dw_last.SetTransObject(sqlca)

uo_ware = CREATE uo_outware_sale
uo_ware.commit_transaction = sqlca

sle_barcode.SetFocus()

SELECT cusid,name INTO :ins_cusid,:ins_cusname
	FROM u_cust
	Where u_cust.lsflag = 1;
IF sqlca.SQLCode <> 0 THEN
	MessageBox('错误','查询零售客户信息失败',stopsign!,ok!)
END IF

THIS.TriggerEvent('ue_new')

st_time.Text = String(DateTime(Today(),Now()))
Timer(1)

end event

event timer;call super::timer;st_time.text = string(datetime(today(),now()))
end event

event close;call super::close;f_SetProfileString (sys_empid, "outware_pos", "help", string(cur_help))
end event

type cb_func from w_publ_base`cb_func within w_outware_pos
boolean visible = false
integer x = 3186
end type

type cb_exit from w_publ_base`cb_exit within w_outware_pos
integer x = 686
integer width = 165
integer height = 164
integer taborder = 70
boolean cancel = false
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

type dw_child from u_dw_rbtnfilter within w_outware_pos
integer x = 617
integer y = 436
integer width = 2862
integer height = 1412
integer taborder = 0
boolean bringtotop = true
string dataobject = "dw_outwaremx_pos_edit"
boolean hscrollbar = true
boolean vscrollbar = true
end type

event clicked;call super::clicked;IF row > 0 THEN
	THIS.ScrollToRow(row)
	THIS.SelectRow(0, FALSE)
	THIS.SelectRow(row, TRUE)
END IF

end event

event dwnkey;call super::dwnkey;PARENT.TriggerEvent('user_key')

end event

event rowfocuschanged;call super::rowfocuschanged;IF currentrow > 0 THEN
	THIS.ScrollToRow(currentrow)
	THIS.SelectRow(0, FALSE)
	THIS.SelectRow(currentrow, TRUE)
END IF
end event

type st_3 from statictext within w_outware_pos
integer x = 9
integer y = 224
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 = "商品输入："
boolean focusrectangle = false
end type

type sle_barcode from singlelineedit within w_outware_pos
event keydown pbm_keydown
event keyup pbm_keyup
integer x = 265
integer y = 204
integer width = 713
integer height = 84
integer taborder = 10
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
borderstyle borderstyle = stylelowered!
end type

event keydown;//if keydown(KeySlash!) or keydown(KeyDivide!) then
	parent.postevent('ue_clearinput')
//end if
end event

event keyup;parent.triggerevent('user_key')
end event

event modified;dw_child.selectrow( 0, false)
cb_1.triggerevent(clicked!)
end event

type st_4 from statictext within w_outware_pos
integer y = 1900
integer width = 421
integer height = 76
boolean bringtotop = true
integer textsize = -12
integer weight = 700
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 16776960
string text = "总数量:"
boolean focusrectangle = false
end type

type em_qty from editmask within w_outware_pos
integer x = 439
integer y = 1900
integer width = 667
integer height = 76
boolean bringtotop = true
integer textsize = -12
integer weight = 700
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 16776960
string text = "none"
boolean border = false
borderstyle borderstyle = stylelowered!
string mask = "#,##0.00##"
end type

type st_5 from statictext within w_outware_pos
integer x = 1458
integer y = 1900
integer width = 457
integer height = 76
boolean bringtotop = true
integer textsize = -12
integer weight = 700
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 16776960
string text = "总金额:"
boolean focusrectangle = false
end type

type em_amt from editmask within w_outware_pos
integer x = 1929
integer y = 1900
integer width = 667
integer height = 76
boolean bringtotop = true
integer textsize = -12
integer weight = 700
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 16776960
string text = "0.00"
boolean border = false
borderstyle borderstyle = stylelowered!
string mask = "#,##0.00##"
end type

type cb_1 from uo_imflatbutton within w_outware_pos
integer x = 997
integer y = 204
integer width = 306
integer height = 84
boolean bringtotop = true
string text = "确定ENT"
string normalpicname = "ok.bmp"
integer picsize = 16
end type

event clicked;call super::clicked;IF KeyDown(KeySlash!) OR KeyDown(KeyDivide!) THEN
	sle_barcode.Text = ''
END IF

IF sle_barcode.Text = '' THEN RETURN

IF sys_option_pos_jsbarcode <> '' THEN
	IF Trim(sle_barcode.Text) = sys_option_pos_jsbarcode THEN
		cb_js.TriggerEvent(Clicked!)
		RETURN
	END IF
END IF

String ls_barcode

String ls_mtrlcode,ls_mtrlname,ls_unit,ls_mtrlmode
String ls_prdpackcode
Long ls_mtrlwareid,ls_mtrlid,ls_storageid
Decimal ls_noallocqty,ls_packqty
Decimal ls_price,ls_rebate

s_mtrlware_noalloc_array arg_s_mtrlware
s_mtrldef_array arg_s_mtrldef

ls_barcode = Trim(sle_barcode.Text)

ls_storageid = ins_def_storageid
IF ls_storageid <= 0 THEN
	OpenWithParm(w_pos_msg,'请先选择仓库!')
	RETURN
END IF

IF f_find_mtrl(ls_barcode,-1,arg_s_mtrldef) = 0 THEN
	sle_barcode.Text = ''
	OpenWithParm(w_pos_msg,'查无此商品记录!')
	sle_barcode.SetFocus()
	RETURN
ELSE
	ls_barcode = arg_s_mtrldef.mtrlcode[1]
END IF

IF f_find_mtrlware_ls(ls_barcode,ls_storageid,-1,arg_s_mtrlware) = 0 THEN
	OpenWithParm(w_pos_msg,'查询库存失败!')
	sle_barcode.Text = ''
	sle_barcode.SetFocus()
	RETURN
ELSE
	ls_mtrlwareid = arg_s_mtrlware.mtrlwareid[1]
	ls_mtrlid = arg_s_mtrlware.mtrlid[1]
	ls_mtrlcode = arg_s_mtrlware.u_mtrldef_mtrlcode[1]
	ls_mtrlname = arg_s_mtrlware.u_mtrldef_mtrlname[1]
	ls_unit = arg_s_mtrlware.u_mtrldef_unit[1]
	ls_mtrlmode = arg_s_mtrlware.u_mtrldef_mtrlmode[1]
	ls_noallocqty = arg_s_mtrlware.noallocqty[1]
	
	//是否会员销售自动带出会员对应价格表价，否则带出零售价（默认标准价格表价）
	//ls_price = arg_s_mtrlware.lmsaleprice[1]
	Dec arg_price,arg_rebate 
	arg_price = 0
	IF f_find_cust_dftprice(s_cust.pricelistid,ls_mtrlid,arg_price,arg_rebate) = 0 THEN
		IF f_find_mtrl_dftprice(ls_mtrlid,arg_price,arg_rebate) = 0 THEN 
			OpenWithParm(w_pos_msg,'查询默认标准价格表价失败!')
			RETURN 
		END IF
	END IF
	
	ls_price = arg_price
	ls_rebate = arg_rebate
	
	ls_packqty = arg_s_mtrlware.u_mtrldef_packqty[1]
	ls_prdpackcode = arg_s_mtrlware.u_mtrldef_prdpackcode[1]
END IF

IF not cbx_th.checked and ls_noallocqty = 0 THEN
	OpenWithParm(w_pos_msg,'库存不足!')
	sle_barcode.Text = ''
	sle_barcode.SetFocus()
	RETURN
END IF

Long child_row
child_row = dw_child.InsertRow(0)
dw_child.ScrollToRow(child_row)

dw_child.Object.u_outwaremx_mtrlwareid[child_row] = ls_mtrlwareid
dw_child.Object.u_outwaremx_mtrlid[child_row]    = ls_mtrlid
dw_child.Object.u_mtrldef_mtrlname[child_row]    = ls_mtrlname
dw_child.Object.u_mtrldef_mtrlmode[child_row]    = ls_mtrlmode
dw_child.Object.u_mtrldef_unit[child_row]        = ls_unit
IF cbx_th.Checked THEN
	dw_child.Object.u_outwaremx_qty[child_row]  = - 1
ELSE
	dw_child.Object.u_outwaremx_qty[child_row]  = 1
END IF
dw_child.Object.u_outwaremx_fprice[child_row]       = ls_price
dw_child.Object.u_outwaremx_rebate[child_row]       = ls_rebate

dw_child.Object.u_mtrldef_mtrlcode[child_row]    = ls_mtrlcode
dw_child.Object.u_mtrldef_packqty[child_row] = ls_packqty
dw_child.Object.u_mtrldef_prdpackcode[child_row]  = ls_prdpackcode
dw_child.Object.u_mtrldef_barcode[child_row]  = ls_barcode

PARENT.TriggerEvent('ue_cal')
sle_barcode.Text = ''
sle_barcode.SetFocus()

end event

event ue_keydown;call super::ue_keydown;parent.triggerevent('user_key')
end event

type cb_js from uo_imflatbutton within w_outware_pos
integer x = 247
integer width = 247
integer height = 164
integer taborder = 40
boolean bringtotop = true
string text = "结算End"
string normalpicname = "SAVE.BMP"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;
PARENT.TriggerEvent('ue_js')

IF cbx_2.Checked = TRUE THEN
	parent.TriggerEvent('ue_print')
ELSE
	IF MessageBox('询问','是否要打印当前单据?',question!,yesno!) = 2 THEN RETURN
	PARENT.TriggerEvent('ue_new')
END IF


IF cbx_1.Checked = TRUE THEN
	PARENT.TriggerEvent('ue_new')
END IF

end event

event ue_keydown;call super::ue_keydown;parent.triggerevent('user_key')
end event

type dw_last from u_dw_rbtnfilter within w_outware_pos
integer y = 312
integer width = 2743
integer height = 124
integer taborder = 0
boolean bringtotop = true
string dataobject = "dw_outware_pos_lastbill"
boolean border = false
boolean setcolumn_visible_use = false
boolean autosave_filter_use = false
boolean autosave_sort_use = false
boolean autosave_setlayout_use = false
boolean autosave_columnvisible_use = false
end type

type cb_print from uo_imflatbutton within w_outware_pos
integer x = 494
integer width = 192
integer height = 164
integer taborder = 60
boolean bringtotop = true
string text = "打印&P"
string normalpicname = "print.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event ue_keydown;call super::ue_keydown;parent.triggerevent('user_key')
end event

event clicked;call super::clicked;parent.PostEvent('ue_print')
end event

type cbx_1 from checkbox within w_outware_pos
integer x = 933
integer y = 16
integer width = 343
integer height = 48
integer taborder = 80
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 = "自动新建"
boolean checked = true
end type

event clicked;string ls_flag
if this.checked=true then
	ls_flag = '1'
else
	ls_flag = '0'
end if
f_SetProfileString (sys_empid,'pos','autonew',ls_flag)
end event

event constructor;String ls_flag
ls_flag = f_ProfileString (sys_empid,'pos','autonew','1')
IF ls_flag = '1' THEN
	THIS.Checked = TRUE
ELSE
	THIS.Checked = FALSE
END IF


THIS.BackColor = 14215660

end event

type cbx_2 from checkbox within w_outware_pos
integer x = 933
integer y = 108
integer width = 343
integer height = 48
integer taborder = 90
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 = "结算打印"
boolean checked = true
end type

event clicked;string ls_flag
if this.checked=true then
	ls_flag = '1'
else
	ls_flag = '0'
end if
f_SetProfileString (sys_empid,'pos','autoprint',ls_flag)
end event

event constructor;String ls_flag
ls_flag = f_ProfileString (sys_empid,'pos','autoprint','1')
IF ls_flag = '1' THEN
	THIS.Checked = TRUE
ELSE
	THIS.Checked = FALSE
END IF

THIS.BackColor = 14215660

end event

type ln_1 from line within w_outware_pos
long linecolor = 33554432
integer linethickness = 4
integer beginy = 1876
integer endx = 3333
integer endy = 1876
end type

type st_1 from statictext within w_outware_pos
integer x = 2331
integer y = 28
integer width = 279
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 st_user from statictext within w_outware_pos
integer x = 2610
integer y = 28
integer width = 453
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
boolean focusrectangle = false
end type

event constructor;THIS.BackColor = 14215660
end event

type st_6 from statictext within w_outware_pos
integer x = 2363
integer y = 116
integer width = 247
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 st_time from statictext within w_outware_pos
integer x = 2610
integer y = 116
integer width = 571
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
boolean focusrectangle = false
end type

event constructor;THIS.BackColor = 14215660
end event

type st_7 from statictext within w_outware_pos
integer x = 1312
integer y = 108
integer width = 315
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 st_billcode from statictext within w_outware_pos
integer x = 1627
integer y = 108
integer width = 672
integer height = 48
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 134217739
boolean focusrectangle = false
end type

event constructor;THIS.BackColor = 14215660
end event

type cb_new from uo_imflatbutton within w_outware_pos
integer width = 247
integer height = 164
integer taborder = 50
boolean bringtotop = true
string text = "新建Ins"
string normalpicname = "new.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;IF dw_child.RowCount() = 0 THEN RETURN


IF dw_edit_mode THEN
	IF MessageBox('询问','是否要结算当前单据?',question!,yesno!) = 2 THEN
		GOTO ext
	END IF
	PARENT.TriggerEvent('ue_js')
END IF

ext:
PARENT.TriggerEvent('ue_new')



end event

event ue_keydown;call super::ue_keydown;parent.triggerevent('user_key')
end event

type st_8 from statictext within w_outware_pos
integer x = 1362
integer y = 224
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 = "客户输入："
boolean focusrectangle = false
end type

type sle_cust from singlelineedit within w_outware_pos
event keydown pbm_keydown
event keyup pbm_keyup
integer x = 1664
integer y = 204
integer width = 773
integer height = 84
integer taborder = 30
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
borderstyle borderstyle = stylelowered!
end type

event keydown;//if keydown(KeySlash!) or keydown(KeyDivide!) then
	parent.postevent('ue_clearinput')
//end if
end event

event keyup;parent.triggerevent('user_key')
end event

event modified;
cb_2.triggerevent(clicked!)
end event

type cb_2 from uo_imflatbutton within w_outware_pos
integer x = 2455
integer y = 204
integer width = 306
integer height = 84
boolean bringtotop = true
string text = "查询ENT"
string normalpicname = "ok.bmp"
integer picsize = 16
end type

event clicked;call super::clicked;IF sle_cust.Text = '' THEN RETURN

String ls_custcode

ls_custcode = Trim(sle_cust.Text)
if f_find_cust(ls_custcode,s_cust) = 1 THEN
	sle_cust.Text = s_cust.cuscode
	st_2.text = s_cust.name
	sle_barcode.SetFocus()
	RETURN
ELSE
	parent.TriggerEvent('ue_f6')
end if 

end event

event ue_keydown;call super::ue_keydown;parent.triggerevent('user_key')
end event

type cbx_th from checkbox within w_outware_pos
integer x = 1353
integer y = 12
integer width = 325
integer height = 60
integer taborder = 100
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 constructor;THIS.BackColor = 14215660
end event

type dw_help from u_dw_rbtnfilter within w_outware_pos
integer y = 436
integer width = 613
integer height = 1412
integer taborder = 0
boolean bringtotop = true
string dataobject = "ds_help"
end type

type ddlb_scid from uo_ddlb_scid within w_outware_pos
integer x = 1733
integer y = 4
integer width = 549
integer height = 620
integer taborder = 110
boolean bringtotop = true
end type

event constructor;Long ls_scid
Long cnt = 0
String ls_scname
Long ll_i
String ls_space
Int li_spacenum

IF UpperBound(sys_user_scid) = 1 THEN ddlb_scid.Visible = FALSE

FOR ll_i = 1 TO UpperBound(sys_user_scid)
	ls_scid = sys_user_scid[ll_i]
	SELECT scname
		INTO :ls_scname
		FROM u_scdef
		Where scid = :ls_scid;
	IF sqlca.SQLCode <> 0 OR IsNull(ls_scname) THEN ls_scname = ''
	
	li_spacenum = 50 - Len(Trim(ls_scname)) - 2 - Len(String(ls_scid))
	ls_space = Fill(' ',li_spacenum)
	
	THIS.AddItem (ls_scname+ls_space+'['+String(ls_scid)+']')
NEXT

THIS.uo_scid = ls_scid
uo_scid_arr[1] = ls_scid
THIS.Text = ls_scname+ls_space+'['+String(ls_scid)+']'

cur_scid = THIS.uo_scid
IF wf_find_dftstorage(cur_scid,ins_def_storageid) = 0 THEN
	MessageBox('错误','查询分部的默认零售仓库失败!',stopsign!,ok!)
END IF

end event

event selectionchanged;call super::selectionchanged;cur_scid = THIS.uo_scid
IF wf_find_dftstorage(cur_scid,ins_def_storageid) = 0 THEN
	MessageBox('错误','查询分部的默认零售仓库失败!',stopsign!,ok!)
END IF

end event

type st_2 from statictext within w_outware_pos
integer x = 2784
integer y = 204
integer width = 786
integer height = 84
boolean bringtotop = true
integer textsize = -12
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 67108864
boolean focusrectangle = false
end type

type ln_bar from line within w_outware_pos
long linecolor = 268435456
integer linethickness = 4
integer beginy = 176
integer endx = 3323
integer endy = 176
end type

type ln_bar2 from line within w_outware_pos
long linecolor = 16777215
integer linethickness = 4
integer beginy = 180
integer endx = 3323
integer endy = 180
end type

type r_bar from rectangle within w_outware_pos
long linecolor = 16777215
long fillcolor = 1073741824
integer x = 3319
integer width = 73
integer height = 172
end type

event constructor;this.fillcolor = 14215660
this.linecolor = 14215660
this.x = -1
this.y = -1
this.height = ln_bar2.beginy - 5

end event

type ln_2 from line within w_outware_pos
long linecolor = 268435456
integer linethickness = 4
integer beginy = 300
integer endx = 3323
integer endy = 300
end type

type ln_3 from line within w_outware_pos
long linecolor = 16777215
integer linethickness = 4
integer beginy = 304
integer endx = 3323
integer endy = 304
end type