Q5/ws_objects/Ew_ljfieb.pbl.src/w_outware_receive_ljfieb.srw

$PBExportHeader$w_outware_receive_ljfieb.srw
forward
global type w_outware_receive_ljfieb from w_publ_base
end type
type dw_uc from datawindow within w_outware_receive_ljfieb
end type
type mle_1 from multilineedit within w_outware_receive_ljfieb
end type
type st_1 from statictext within w_outware_receive_ljfieb
end type
type st_2 from statictext within w_outware_receive_ljfieb
end type
type sle_scname from singlelineedit within w_outware_receive_ljfieb
end type
type st_remark from statictext within w_outware_receive_ljfieb
end type
type cb_accept from uo_imflatbutton within w_outware_receive_ljfieb
end type
type ln_bar from line within w_outware_receive_ljfieb
end type
type ln_bar2 from line within w_outware_receive_ljfieb
end type
type ln_1 from line within w_outware_receive_ljfieb
end type
type ln_2 from line within w_outware_receive_ljfieb
end type
type r_bar from rectangle within w_outware_receive_ljfieb
end type
type cb_bill from uo_imflatbutton within w_outware_receive_ljfieb
end type
type cb_feedback from uo_imflatbutton within w_outware_receive_ljfieb
end type
type dw_child from u_dw_rbtnfilter within w_outware_receive_ljfieb
end type
type cb_reject from uo_imflatbutton within w_outware_receive_ljfieb
end type
end forward

global type w_outware_receive_ljfieb from w_publ_base
integer width = 3611
integer height = 2380
string title = "供应商销售发货单"
boolean minbox = false
windowtype windowtype = response!
windowstate windowstate = maximized!
dw_uc dw_uc
mle_1 mle_1
st_1 st_1
st_2 st_2
sle_scname sle_scname
st_remark st_remark
cb_accept cb_accept
ln_bar ln_bar
ln_bar2 ln_bar2
ln_1 ln_1
ln_2 ln_2
r_bar r_bar
cb_bill cb_bill
cb_feedback cb_feedback
dw_child dw_child
cb_reject cb_reject
end type
global w_outware_receive_ljfieb w_outware_receive_ljfieb

type variables
Transaction tr_eb_sqlca

s_packet_ljfieb s_inscust


long ins_scid
string ins_sn

uo_saletask obj_saletask
uo_cusprice uo_price
uo_ljfieb uo_fieb


long ins_sendid,ins_receid
string ins_sendsccode,ins_reccesccode
string ins_RelatedCode

datetime ins_addtime
string ins_adduser
long ins_sptid
string ins_relreissuecode
end variables

forward prototypes
public function integer wf_retrieve (string arg_sn, long arg_sendcuscommid, string arg_sendsccode, ref string arg_msg)
public function integer wf_importnewbj (long arg_cusid, long arg_moneyid, long arg_mtrlid, string arg_status, string arg_woodcode, string arg_pcode, ref decimal arg_price, ref decimal arg_rebate, ref string arg_msg)
public function integer wf_importnewprice (long arg_cusid, long arg_moneyid, long arg_mtrlid, string arg_status, string arg_woodcode, string arg_pcode, ref decimal arg_price, ref decimal arg_rebate, ref string arg_msg)
end prototypes

public function integer wf_retrieve (string arg_sn, long arg_sendcuscommid, string arg_sendsccode, ref string arg_msg);Int rslt = 1
String ls_cuscode
Long uc_row
Long ll_sptid
String ls_sptcode,ls_sptname
Long ll_i
String ls_sptmtrlcode
String ls_mtrlcode_my,ls_mtrlname_my,ls_mtrlmode_my
Long ll_mtrlid

dw_uc.Retrieve(arg_sn)
dw_child.Retrieve(arg_sn)
//dw_mxmx.Retrieve(arg_sn)
//dw_barcodemx.Retrieve(arg_sn)
//dw_fymx.Retrieve(arg_sn)

uc_row = dw_uc.GetRow()

IF uc_row <= 0 THEN
	rslt = 0
	arg_msg = '没有对应的单据信息'
	GOTO ext
END IF

SELECT CusCode
	INTO :ls_cuscode
	FROM LJFIEB_CusComm
	Where CusCommID = :arg_sendcuscommid Using tr_eb_sqlca;
IF tr_eb_sqlca.SQLCode <> 0 THEN
	ls_cuscode = ''
END IF

IF Trim(ls_cuscode) = '' THEN
	rslt = 0
	arg_msg = '供应商信息不明确,请检查'
	GOTO ext
END IF

SELECT sptid, sptcode, name
	INTO :ll_sptid,:ls_sptcode,:ls_sptname
	FROM u_spt
	WHERE  commcode = :ls_cuscode
	And commsccode = :arg_sendsccode Using sqlca;
IF sqlca.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = '查询供应商信息失败,请检查通信设置是否正确,'+sqlca.SQLErrText
	GOTO ext
END IF

ins_sptid = ll_sptid

dw_uc.Object.sptid[uc_row] = ll_sptid
dw_uc.Object.CusCode[uc_row] = ls_sptcode
dw_uc.Object.cusname[uc_row] = ls_sptname

FOR ll_i = 1 To dw_child.RowCount()
	ls_sptmtrlcode = dw_child.Object.sptmtrlcode[ll_i]
	
	SELECT u_sptmtrlname.mtrlid,
		u_mtrldef.mtrlcode,
		u_mtrldef.mtrlname,
		u_mtrldef.mtrlmode
		INTO :ll_mtrlid,
		:ls_mtrlcode_my,
		:ls_mtrlname_my,
		:ls_mtrlmode_my
		FROM u_sptmtrlname INNER JOIN
		u_mtrldef ON u_sptmtrlname.mtrlid = u_mtrldef.mtrlid
		WHERE u_sptmtrlname.sptid = :ll_sptid
		And u_sptmtrlname.sptmtrlcode = :ls_sptmtrlcode using sqlca;
	IF sqlca.SQLCode <> 0 THEN
		rslt = 0
		arg_msg = '第'+string(ll_i)+'行,查询本地产品信息失败,'+sqlca.sqlerrtext
		GOTO ext
	END IF
	
	 dw_child.Object.mtrlcode_my[ll_i] = ls_mtrlcode_my
	 dw_child.Object.mtrlname_my[ll_i] = ls_mtrlname_my
	 dw_child.Object.mtrlmode_my[ll_i] = ls_mtrlmode_my
	 dw_child.Object.mtrlid_my[ll_i] = ll_mtrlid
	
NEXT

ext:
RETURN rslt





end function

public function integer wf_importnewbj (long arg_cusid, long arg_moneyid, long arg_mtrlid, string arg_status, string arg_woodcode, string arg_pcode, ref decimal arg_price, ref decimal arg_rebate, ref string arg_msg);Int rslt = 1

IF arg_moneyid = 0  THEN
	rslt = 0
	arg_msg = '请先选择币种'
	GOTO ext
END IF

IF IsNull(arg_cusid) THEN arg_cusid = 0

IF arg_cusid = 0  THEN
	rslt = 0
	arg_msg = "请选择销售客户!"
	GOTO ext
END IF


SELECT u_cus_price.fprice_bj,u_cus_price.zqrate_bj
	INTO :arg_price,:arg_rebate
	FROM u_cus_price
	WHERE ( u_cus_price.cusid = :arg_cusid ) AND
	( u_cus_price.mtrlid = :arg_mtrlid ) AND
	( u_cus_price.status = :arg_status ) AND
	( u_cus_price.pcode = :arg_pcode ) AND
	( u_cus_price.woodcode = :arg_woodcode ) and 
	( u_cus_price.moneyid = :arg_moneyid);
IF sqlca.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = "没有最新销售价!"
	GOTO ext
END IF

ext:
IF rslt = 0 THEN
	arg_price = 0
	arg_rebate = 0
END IF

RETURN rslt

end function

public function integer wf_importnewprice (long arg_cusid, long arg_moneyid, long arg_mtrlid, string arg_status, string arg_woodcode, string arg_pcode, ref decimal arg_price, ref decimal arg_rebate, ref string arg_msg);Int rslt = 1

IF arg_moneyid = 0  THEN
	rslt = 0
	arg_msg = '请先选择币种'
	GOTO ext
END IF

IF IsNull(arg_cusid) THEN arg_cusid = 0

IF arg_cusid = 0  THEN
	rslt = 0
	arg_msg = "请选择销售客户!"
	GOTO ext
END IF


SELECT u_cus_price.fprice,u_cus_price.zqrate
	INTO :arg_price,:arg_rebate
	FROM u_cus_price
	WHERE ( u_cus_price.cusid = :arg_cusid ) AND
	( u_cus_price.mtrlid = :arg_mtrlid ) AND
	( u_cus_price.status = :arg_status ) AND
	( u_cus_price.pcode = :arg_pcode ) AND
	( u_cus_price.woodcode = :arg_woodcode ) and 
	( u_cus_price.moneyid = :arg_moneyid);
IF sqlca.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = "没有最新销售价!"
	GOTO ext
END IF

ext:
IF rslt = 0 THEN
	arg_price = 0
	arg_rebate = 0
END IF

RETURN rslt

end function

on w_outware_receive_ljfieb.create
int iCurrent
call super::create
this.dw_uc=create dw_uc
this.mle_1=create mle_1
this.st_1=create st_1
this.st_2=create st_2
this.sle_scname=create sle_scname
this.st_remark=create st_remark
this.cb_accept=create cb_accept
this.ln_bar=create ln_bar
this.ln_bar2=create ln_bar2
this.ln_1=create ln_1
this.ln_2=create ln_2
this.r_bar=create r_bar
this.cb_bill=create cb_bill
this.cb_feedback=create cb_feedback
this.dw_child=create dw_child
this.cb_reject=create cb_reject
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.dw_uc
this.Control[iCurrent+2]=this.mle_1
this.Control[iCurrent+3]=this.st_1
this.Control[iCurrent+4]=this.st_2
this.Control[iCurrent+5]=this.sle_scname
this.Control[iCurrent+6]=this.st_remark
this.Control[iCurrent+7]=this.cb_accept
this.Control[iCurrent+8]=this.ln_bar
this.Control[iCurrent+9]=this.ln_bar2
this.Control[iCurrent+10]=this.ln_1
this.Control[iCurrent+11]=this.ln_2
this.Control[iCurrent+12]=this.r_bar
this.Control[iCurrent+13]=this.cb_bill
this.Control[iCurrent+14]=this.cb_feedback
this.Control[iCurrent+15]=this.dw_child
this.Control[iCurrent+16]=this.cb_reject
end on

on w_outware_receive_ljfieb.destroy
call super::destroy
destroy(this.dw_uc)
destroy(this.mle_1)
destroy(this.st_1)
destroy(this.st_2)
destroy(this.sle_scname)
destroy(this.st_remark)
destroy(this.cb_accept)
destroy(this.ln_bar)
destroy(this.ln_bar2)
destroy(this.ln_1)
destroy(this.ln_2)
destroy(this.r_bar)
destroy(this.cb_bill)
destroy(this.cb_feedback)
destroy(this.dw_child)
destroy(this.cb_reject)
end on

event open;call super::open;tr_eb_sqlca = sys_email_sqlca // 电子商务连接

IF sys_email_sqlca.DBHandle() = 0  THEN
	MessageBox('Error','电子商务数据库连接失败,请检查')
	RETURN
END IF

dw_uc.settransobject(tr_eb_sqlca)
dw_child.settransobject(tr_eb_sqlca)
//dw_mxmx.settransobject(tr_eb_sqlca)
//dw_fymx.settransobject(tr_eb_sqlca)
//dw_barcodemx.settransobject(tr_eb_sqlca)

obj_saletask = Create uo_saletask
obj_saletask.commit_transaction = sqlca
uo_price = Create uo_cusprice

uo_fieb = Create uo_ljfieb
uo_fieb.commit_transaction = tr_eb_sqlca

s_inscust = Message.PowerObjectParm

ins_sn = s_inscust.serialnum

ins_sendid = s_inscust.sendcuscommid
ins_receid = s_inscust.receivecuscommid
ins_sendsccode = s_inscust.sendsccode
ins_reccesccode = s_inscust.receivesccode
ins_RelatedCode = s_inscust.RelatedCode
ins_addtime = s_inscust.addtime
ins_adduser = s_inscust.adduser

String ls_sccode,ls_scname
String arg_msg

ls_sccode = s_inscust.receivesccode

SELECT scid,scname
	INTO  :ins_scid,:ls_scname
	FROM u_scdef
	Where sccode = :ls_sccode;
IF sqlca.SQLCode <> 0 THEN
	MessageBox('Error','查询分部信息失败,'+sqlca.SQLErrText)
	RETURN
END IF

sle_scname.Text = ls_scname
st_remark.Text = '备注:'+s_inscust.remark
mle_1.Text = s_inscust.postscript


long ll_status

SELECT status INTO :ll_status
	FROM LJFIEB_packet
	Where serialnum = :ins_sn Using tr_eb_sqlca;
IF tr_eb_sqlca.SQLCode <> 0 THEN
	MessageBox('Error','查询通信数据失败,'+sqlca.SQLErrText)
	RETURN
END IF

if ll_status <> 5 then 
	cb_accept.enabled = false
	cb_bill.enabled = false
end if

IF wf_retrieve(ins_sn,ins_sendid,ins_sendsccode,arg_msg) = 0 THEN
	MessageBox('Error',arg_msg)
	RETURN
END IF

//更新对方状态-已打开
string ls_SerialNum

SELECT  TOP 1 NEWID() INTO :ls_SerialNum
	From u_user Using sqlca;
IF sqlca.SQLCode <> 0 THEN
	return
END IF

IF IsNull(ls_SerialNum) THEN ls_SerialNum = ''

IF ls_SerialNum = '' THEN
	return 
END IF

IF uo_fieb.add_packet(ls_SerialNum,'',ins_receid,ins_reccesccode,ins_sendid,ins_sendsccode,5,'打开消息','','',ins_sn,'',0,arg_msg,True) = 0 THEN
	return
END IF

dw_child.BringToTop = TRUE

end event

event resize;call super::resize;ln_bar.EndX = This.Width
ln_bar2.EndX = This.Width
r_bar.Width = This.Width

ln_1.EndX = This.Width
ln_2.EndX = This.Width

dw_child.Width = This.WorkSpaceWidth() - 10

mle_1.Width = dw_child.Width - dw_uc.Width - 4


	//dw_child.Y = cb_fhmx.Y + 88
	dw_child.Y = dw_uc.Y + dw_uc.height  + 5
	dw_child.Width = This.Width - dw_child.X - 40
	dw_child.Height = This.WorkSpaceHeight() - dw_child.Y - 120


//dw_mxmx.X = dw_child.X
//dw_mxmx.Y = dw_child.Y
//dw_mxmx.Height = dw_child.Height
//dw_mxmx.Width = dw_child.Width
//
//dw_barcodemx.X = dw_child.X
//dw_barcodemx.Y = dw_child.Y
//dw_barcodemx.Height = dw_child.Height
//dw_barcodemx.Width = dw_child.Width
//
//dw_fymx.X = dw_child.X
//dw_fymx.Y = dw_child.Y
//dw_fymx.Height = dw_child.Height
//dw_fymx.Width = dw_child.Width


end event

event close;call super::close;destroy uo_fieb
destroy obj_saletask
destroy uo_price


closewithreturn(this,ins_relreissuecode)
end event

type cb_func from w_publ_base`cb_func within w_outware_receive_ljfieb
boolean visible = false
integer width = 311
integer height = 96
string text = "功能"
string normalpicname = ""
integer picsize = 0
toolbaralignment pic_align = alignatleft!
boolean border = true
end type

type cb_exit from w_publ_base`cb_exit within w_outware_receive_ljfieb
integer x = 1097
integer width = 183
integer height = 164
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

type dw_uc from datawindow within w_outware_receive_ljfieb
integer y = 296
integer width = 2373
integer height = 1156
integer taborder = 30
boolean bringtotop = true
string title = "none"
string dataobject = "dw_outware_sale_ljfieb"
boolean livescroll = true
borderstyle borderstyle = stylelowered!
end type

type mle_1 from multilineedit within w_outware_receive_ljfieb
integer x = 2377
integer y = 364
integer width = 1193
integer height = 1080
integer taborder = 40
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
boolean vscrollbar = true
boolean autovscroll = true
boolean displayonly = true
borderstyle borderstyle = stylelowered!
end type

type st_1 from statictext within w_outware_receive_ljfieb
integer x = 2386
integer y = 300
integer width = 142
integer height = 56
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 st_2 from statictext within w_outware_receive_ljfieb
integer x = 23
integer y = 204
integer width = 155
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 sle_scname from singlelineedit within w_outware_receive_ljfieb
integer x = 210
integer y = 188
integer width = 443
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
boolean displayonly = true
borderstyle borderstyle = stylelowered!
end type

type st_remark from statictext within w_outware_receive_ljfieb
integer x = 727
integer y = 200
integer width = 2848
integer height = 52
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 cb_accept from uo_imflatbutton within w_outware_receive_ljfieb
boolean visible = false
integer width = 192
integer height = 164
integer taborder = 30
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;if messagebox('询问','是否要确认本消息?',question!,yesno!) = 2 then return 

UPDATE LJFIEB_packet
	SET Complete = 1 ,
	status = 6,
	ConfirmTime = getdate(),
	ConfirmUser = :publ_operator
	Where SerialNum = :ins_sn Using tr_eb_sqlca;
IF tr_eb_sqlca.SQLCode <> 0 THEN
	ROLLBACK Using tr_eb_sqlca;
	MessageBox('Errr','更新通信记录状态失败,'+tr_eb_sqlca.SQLErrText)
	RETURN
END IF

commit Using tr_eb_sqlca;

messagebox('系统提示','消息已确认')
close(parent)
end event

type ln_bar from line within w_outware_receive_ljfieb
long linecolor = 268435456
integer linethickness = 4
integer beginy = 172
integer endx = 3200
integer endy = 172
end type

type ln_bar2 from line within w_outware_receive_ljfieb
long linecolor = 16777215
integer linethickness = 4
integer beginx = 9
integer beginy = 176
integer endx = 3273
integer endy = 176
end type

type ln_1 from line within w_outware_receive_ljfieb
long linecolor = 268435456
integer linethickness = 4
integer beginy = 284
integer endx = 3250
integer endy = 284
end type

type ln_2 from line within w_outware_receive_ljfieb
long linecolor = 16777215
integer linethickness = 4
integer beginy = 288
integer endx = 3282
integer endy = 288
end type

type r_bar from rectangle within w_outware_receive_ljfieb
long linecolor = 16777215
integer linethickness = 4
long fillcolor = 1073741824
integer x = 3351
integer width = 87
integer height = 68
end type

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

end event

type cb_bill from uo_imflatbutton within w_outware_receive_ljfieb
integer width = 439
integer height = 164
integer taborder = 10
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;If Not f_power_ind(3471) Then
	MessageBox(publ_operator,sys_msg_pow)
	Return
End If



If MessageBox('询问','确定要将当前供应商发货单转为正式采购收货单吗?',question!,yesno!) = 2 Then Return

If ins_sptid = 0 Then
	MessageBox('系统提示','供应商信息不明确,不能建立采购收货单,请检查')
	Return
End If

s_packet_ljfieb s_edit_tran
s_edit_tran.serialnum = ins_sn
s_edit_tran.sendcuscommid = ins_sendid
s_edit_tran.scid = ins_scid
s_edit_tran.sendsccode = ins_sendsccode

OpenWithParm(w_outware_to_inwarebuy_edit,s_edit_tran)

string ls_relreissuecode

ls_relreissuecode = message.stringparm

if ls_relreissuecode = '' then return 

ins_relreissuecode = ls_relreissuecode

String arg_msg
String ls_SerialNum

SELECT  TOP 1 NEWID() INTO :ls_SerialNum
	From u_user Using sqlca;
IF sqlca.SQLCode <> 0 THEN
	ROLLBACK Using sqlca;
	MessageBox('Error','生成序列号失败,'+sqlca.SQLErrText)
	RETURN
END IF

IF IsNull(ls_SerialNum) THEN ls_SerialNum = ''

IF ls_SerialNum = '' THEN
	MessageBox('Error','错误的发送序列号')
	RETURN
END IF


IF uo_fieb.add_packet(ls_SerialNum,'',ins_receid,ins_reccesccode,ins_sendid,ins_sendsccode,6,'已收货','','',ins_sn,ins_RelatedCode,0,arg_msg,True) = 0 THEN
	MessageBox('系统提示','发送确认指令失败 '+arg_msg)
	RETURN
END IF

IF MessageBox('系统提示','成功生成采购收货单:'+ins_relreissuecode+',是否马上打开?',question!,yesno!) = 2 THEN ins_relreissuecode = ''

Close(Parent)
//
//
//

end event

type cb_feedback from uo_imflatbutton within w_outware_receive_ljfieb
integer x = 439
integer width = 439
integer height = 164
integer taborder = 30
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;Long ll_row
String ls_code
Long cnt
String ls_relreissuecode

ll_row  = dw_uc.GetRow()

If ll_row <= 0 Then Return

If dw_uc.Object.flag[ll_row] = 0 Then
	MessageBox('系统提示','本供应商发货单尚未进行处理')
	Return
End If

ls_code = dw_uc.Object.relreissuecode[ll_row]

Select count(*)
	Into :cnt
	From u_inware
	Where inwarecode = :ls_code Using sqlca;
If sqlca.SQLCode <> 0 Then
	MessageBox('Error','查询采购收货单信息失败,'+sqlca.SQLErrText)
	Return
End If

If cnt = 0 Then
	If Not f_power_ind(3471) Then
		MessageBox('系统提示','无法查询相关收货单,可能已被删除')
		Return
	Else
		If MessageBox('询问','无法查询相关收货单,可能已被删除,是否重新生成新的采购收货单?',question!,yesno!) = 2 Then Return
		
		If ins_sptid = 0 Then
			MessageBox('系统提示','供应商信息不明确,不能建立采购收货单,请检查')
			Return
		End If
		
		s_packet_ljfieb s_edit_tran
		s_edit_tran.serialnum = ins_sn
		s_edit_tran.sendcuscommid = ins_sendid
		s_edit_tran.scid = ins_scid
		
		
		OpenWithParm(w_outware_to_inwarebuy_edit,s_edit_tran)
		
		
		ls_relreissuecode = Message.StringParm
		
		If ls_relreissuecode = '' Then Return
		
		dw_uc.Object.relreissuecode[ll_row] = ls_relreissuecode
		
		f_open_win(ins_scid,ls_relreissuecode)
		
	End If
Else
	f_open_win(ins_scid,ls_code)
End If







end event

type dw_child from u_dw_rbtnfilter within w_outware_receive_ljfieb
integer y = 1552
integer width = 3218
integer height = 656
integer taborder = 20
boolean bringtotop = true
boolean titlebar = true
string title = "单据明细内容"
string dataobject = "dw_outwaremx_sale_ljfieb"
boolean maxbox = true
boolean hscrollbar = true
boolean vscrollbar = true
boolean hsplitscroll = true
end type

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

event clicked;call super::clicked;	IF row <= 0 THEN RETURN
	THIS.SelectRow(0,FALSE)
	THIS.SelectRow(row,TRUE)
	this.setrow(row)
end event

event rbuttondown;call super::rbuttondown;Long ll_row,ll_column
ll_row = This.GetRow()
ll_column = This.GetColumn()

IF ll_row <= 0 THEN RETURN
IF ll_column <= 0 THEN RETURN

IF Left( This.Describe( dwo.Name+ ".coltype"),4) = 'date' THEN
	s_calender_arg s_calender
	
	s_calender.PointerX = This.PointerX()
	s_calender.PointerY = This.PointerY()
	s_calender.X = This.X + Parent.X
	s_calender.Y = This.Y + Parent.Y
	
	OpenWithParm(w_calendar,s_calender)
	This.SetItem(ll_row,ll_column,id_date_selected)
END IF

end event

type cb_reject from uo_imflatbutton within w_outware_receive_ljfieb
integer x = 878
integer width = 219
integer height = 164
integer taborder = 40
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 Not f_power_ind(3150,sys_msg_pow) THEN
//	MessageBox(publ_operator,sys_msg_pow)
//	RETURN
//END IF

String arg_summary,arg_postscript,arg_remark
s_packet_ljfieb s_pack,s_return
Int rslt = 1
String arg_msg
String ls_SerialNum

//s_pack.summary = '拒绝订单:'+ins_RelatedCode

OpenWithParm(w_dscrp_edit_ljfieb,s_pack)

s_return = Message.PowerObjectParm

IF s_return.returnflag <> 1 THEN RETURN

//arg_summary = s_return.summary
arg_postscript = s_return.postscript
arg_remark = s_return.remark

////更新本地通信记录
UPDATE LJFIEB_packet
	SET status = 10,
	Complete = 1,
	ConfirmTime = getdate(),
	ConfirmUser = :publ_operator
	Where SerialNum = :ins_sn Using tr_eb_sqlca;
IF tr_eb_sqlca.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = '更新本地通信记录失败,'+tr_eb_sqlca.SQLErrText
	GOTO ext
END IF


SELECT  TOP 1 NEWID() INTO :ls_SerialNum
	From u_user Using sqlca;
IF sqlca.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = '生成序列号失败,'+sqlca.SQLErrText
	GOTO ext
END IF

IF IsNull(ls_SerialNum) THEN ls_SerialNum = ''

IF ls_SerialNum = '' THEN
	rslt = 0
	arg_msg = '错误的发送序列号'
	GOTO ext
END IF

//INSERT INTO LJFIEB_tempbuyTask
//	(scid, TaskID, TaskCode, orderid, kind, sptID, requiredate, accomplishdate, finishemp,
//	Status, Opemp, Modemp, moddate, Assign_Emp, Permit_Emp, Permit_date, Dscrp,
//	opdate, stopemp, ctmint, printnum, relcode, banktypeid, train, reason, billtype,
//	firpermitemp, firpermitdate, billamt, moneyid, mrate, serialnum,banktypename,moneyname,cusid)
//	SELECT scid, TaskID, TaskCode, orderid, kind, sptID, requiredate, accomplishdate,
//	finishemp, 11, Opemp, Modemp, moddate, Assign_Emp, Permit_Emp,
//	Permit_date, Dscrp, opdate, stopemp, ctmint, printnum, relcode, banktypeid, train,
//	reason, billtype, firpermitemp, firpermitdate, billamt, moneyid, mrate, :ls_SerialNum,banktypename,moneyname,cusid
//	FROM LJFIEB_tempbuyTask
//	Where SerialNum = :ins_sn Using tr_eb_sqlca;
//IF tr_eb_sqlca.SQLCode <> 0 THEN
//	rslt = 0
//	arg_msg = '插入临时采购订单表失败,'+tr_eb_sqlca.SQLErrText
//	GOTO ext
//END IF

IF uo_fieb.add_packet(ls_SerialNum,'',ins_receid,ins_reccesccode,ins_sendid,ins_sendsccode,11,arg_summary,arg_postscript,arg_remark,ins_sn,ins_RelatedCode,0,arg_msg,False) = 0 THEN
	rslt = 0
	arg_msg = '发送确认指令失败 '+arg_msg
	GOTO ext
END IF
ext:
IF rslt = 1 THEN
	COMMIT Using tr_eb_sqlca;
	MessageBox('系统提示','操作成功')
	Close(Parent)
ELSE
	ROLLBACK Using tr_eb_sqlca;
	MessageBox('系统提示',arg_msg)
END IF


end event