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

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

global type w_buytask_redate_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
dw_child dw_child
mle_1 mle_1
st_1 st_1
st_2 st_2
sle_scname sle_scname
st_remark st_remark
cb_ok cb_ok
cb_bill cb_bill
st_msg st_msg
cb_1 cb_1
ln_bar ln_bar
ln_bar2 ln_bar2
ln_1 ln_1
ln_2 ln_2
r_bar r_bar
end type
global w_buytask_redate_ljfieb w_buytask_redate_ljfieb

type variables
Transaction tr_eb_sqlca

s_packet_ljfieb s_inscust

uo_ljfieb uo_fieb
long ins_scid
string ins_sn



long ins_sendid,ins_receid
string ins_sendsccode,ins_reccesccode
string ins_RelatedCode
end variables

forward prototypes
public function integer wf_retrieve (string arg_sn, string arg_taskcode, ref string arg_msg)
end prototypes

public function integer wf_retrieve (string arg_sn, string arg_taskcode, ref string arg_msg);Int rslt = 1


Long uc_row,ll_i,ll_rowcnt,ll_row
Long ll_mtrlid
String mtrlcode,mtrlname,mtrlmode,unit,mtrlsectype,zxmtrlmode,usermtrlmode
String ls_sptmtrlcode
Long ll_sptid
String ls_commcode
Long ll_scid,ll_taskid,ll_printid
String ls_status,ls_woodcode,ls_pcode
DateTime ldt_requiredate

SELECT CusCode
	INTO :ls_commcode
	FROM LJFIEB_CusComm
	Where CusCommID = :ins_sendid Using tr_eb_sqlca;
IF tr_eb_sqlca.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = '查询发送者企业信息失败,'+tr_eb_sqlca.SQLErrText
	GOTO ext
END IF

SELECT sptid
	INTO :ll_sptid
	FROM u_spt
	WHERE commcode = :ls_commcode
	And commsccode = :ins_sendsccode Using sqlca;
IF sqlca.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = '查询供应商信息失败,'+sqlca.SQLErrText
	GOTO ext
END IF

dw_uc.Reset()
dw_uc.Retrieve(arg_taskcode)

IF dw_uc.RowCount() = 0 THEN
	st_msg.Text = '已无法查询单据:'+Trim(arg_taskcode)+' 的信息,可能已删除'
	st_msg.Visible = True
ELSE
	st_msg.Visible = False
END IF

Long ll_status
String ls_ConfirmUser
DateTime ld_ConfirmTime

SELECT status,ConfirmUser,ConfirmTime
	INTO :ll_status,:ls_ConfirmUser,:ld_ConfirmTime
	FROM LJFIEB_packet
	Where serialnum = :ins_sn Using tr_eb_sqlca;
IF tr_eb_sqlca.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = '查询通信信息失败'
	GOTO ext
END IF

dw_uc.Object.confirmflag[dw_uc.getrow()]  = ll_status
dw_uc.Object.u_buytask_confirmuser[dw_uc.getrow()]  = ls_ConfirmUser
dw_uc.Object.u_buytask_confirmtime[dw_uc.getrow()]  = ld_ConfirmTime

datastore ds_mx
ds_mx = Create datastore
ds_mx.DataObject = 'ds_buytaskmx_receive_ljfieb'
ds_mx.SetTransObject(tr_eb_sqlca)


ll_rowcnt = ds_mx.Retrieve(arg_sn)

IF ll_rowcnt = 0 THEN
	rslt = 0
	arg_msg = '没有正确的明细内容'
	GOTO ext
END IF

FOR ll_i = 1 To ll_rowcnt
	ll_row = dw_child.InsertRow(0)
	
	dw_child.Object.u_buytaskmx_unit[ll_row] = ds_mx.Object.unit[ll_i]
	
	dw_child.Object.u_buytaskmx_status[ll_row] = ds_mx.Object.status[ll_i]
	dw_child.Object.u_buytaskmx_woodcode[ll_row] = ds_mx.Object.woodcode[ll_i]
	dw_child.Object.u_buytaskmx_pcode[ll_row] = ds_mx.Object.pcode[ll_i]
	dw_child.Object.Dscrp[ll_row] = ds_mx.Object.Dscrp[ll_i]
	
	dw_child.Object.u_buytaskmx_uqty[ll_row] = ds_mx.Object.spt_uqty[ll_i]
	dw_child.Object.u_buytaskmx_spt_requiredate[ll_row] = ds_mx.Object.spt_requiredate[ll_i]
	
	dw_child.Object.u_mtrldef_spt_mtrlcode[ll_row] = ds_mx.Object.sptmtrlcode[ll_i]
	dw_child.Object.u_mtrldef_spt_mtrlname[ll_row] = ds_mx.Object.sptmtrlname[ll_i]
	dw_child.Object.u_mtrldef_spt_mtrlmode[ll_row] = ds_mx.Object.sptmtrlmode[ll_i]
	
	dw_child.Object.u_buytaskmx_printid[ll_row] = ds_mx.Object.printid[ll_i]
	
	dw_child.Object.delayreason[ll_row] = ds_mx.Object.delayreason[ll_i]
	
	ls_sptmtrlcode = ds_mx.Object.sptmtrlcode[ll_i]
	ll_printid = ds_mx.Object.printid[ll_i]
	ls_status = ds_mx.Object.status[ll_i]
	ls_woodcode = ds_mx.Object.woodcode[ll_i]
	ls_pcode = ds_mx.Object.pcode[ll_i]
	
	SELECT mtrlid
		INTO :ll_mtrlid
		FROM u_sptmtrlname
		WHERE sptid = :ll_sptid
		And sptmtrlcode = :ls_sptmtrlcode Using sqlca;
	IF sqlca.SQLCode <>  0 THEN ll_mtrlid = 0
	
	dw_child.Object.mtrlid[ll_row] = ll_mtrlid
	
	IF ll_mtrlid > 0 THEN
		SELECT mtrlcode,
			mtrlname,
			mtrlmode,
			unit,
			mtrlsectype,
			zxmtrlmode,
			usermtrlmode
			INTO :mtrlcode,
			:mtrlname,
			:mtrlmode,
			:unit,
			:mtrlsectype,
			:zxmtrlmode,
			:usermtrlmode
			FROM u_mtrldef
			Where mtrlid = :ll_mtrlid ;
		IF sqlca.SQLCode = 0 THEN
			dw_child.Object.u_mtrldef_mtrlcode[ll_row] = mtrlcode
			dw_child.Object.mtrlname[ll_row] = mtrlname
			dw_child.Object.u_mtrldef_mtrlmode[ll_row] = mtrlmode
			dw_child.Object.u_mtrldef_mtrlsectype[ll_row] = mtrlsectype
			dw_child.Object.u_mtrldef_zxmtrlmode[ll_row] = zxmtrlmode
			dw_child.Object.u_mtrldef_usermtrlmode[ll_row] = usermtrlmode
		END IF
		
		//查询单据原要求交期
		IF dw_uc.GetRow() > 0 THEN
			ll_scid = dw_uc.Object.u_buytask_scid[dw_uc.GetRow()]
			ll_taskid = dw_uc.Object.taskid[dw_uc.GetRow()]
			
			SELECT requiredate
				INTO :ldt_requiredate
				FROM u_buytaskmx
				WHERE scid = :ll_scid
				AND taskid = :ll_taskid
				AND printid = :ll_printid
				AND mtrlid = :ll_mtrlid
				AND status = :ls_status
				AND woodcode = :ls_woodcode
				And pcode = :ls_pcode;
			IF sqlca.SQLCode = 0 THEN
				dw_child.Object.u_buytaskmx_requiredate[ll_row] = ldt_requiredate
			END IF
			
		END IF
		
	END IF
NEXT

ext:
RETURN rslt

end function

on w_buytask_redate_ljfieb.create
int iCurrent
call super::create
this.dw_uc=create dw_uc
this.dw_child=create dw_child
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_ok=create cb_ok
this.cb_bill=create cb_bill
this.st_msg=create st_msg
this.cb_1=create cb_1
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
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.dw_uc
this.Control[iCurrent+2]=this.dw_child
this.Control[iCurrent+3]=this.mle_1
this.Control[iCurrent+4]=this.st_1
this.Control[iCurrent+5]=this.st_2
this.Control[iCurrent+6]=this.sle_scname
this.Control[iCurrent+7]=this.st_remark
this.Control[iCurrent+8]=this.cb_ok
this.Control[iCurrent+9]=this.cb_bill
this.Control[iCurrent+10]=this.st_msg
this.Control[iCurrent+11]=this.cb_1
this.Control[iCurrent+12]=this.ln_bar
this.Control[iCurrent+13]=this.ln_bar2
this.Control[iCurrent+14]=this.ln_1
this.Control[iCurrent+15]=this.ln_2
this.Control[iCurrent+16]=this.r_bar
end on

on w_buytask_redate_ljfieb.destroy
call super::destroy
destroy(this.dw_uc)
destroy(this.dw_child)
destroy(this.mle_1)
destroy(this.st_1)
destroy(this.st_2)
destroy(this.sle_scname)
destroy(this.st_remark)
destroy(this.cb_ok)
destroy(this.cb_bill)
destroy(this.st_msg)
destroy(this.cb_1)
destroy(this.ln_bar)
destroy(this.ln_bar2)
destroy(this.ln_1)
destroy(this.ln_2)
destroy(this.r_bar)
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

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

String ls_sccode,ls_scname
String arg_msg

dw_uc.settransobject(sqlca)

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_ok.enabled = false
	cb_1.enabled = false
end if

IF wf_retrieve(ins_sn,ins_RelatedCode,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


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.height = this.workspaceheight() - dw_child.y - 30
end event

event close;call super::close;destroy uo_ljfieb
end event

type cb_func from w_publ_base`cb_func within w_buytask_redate_ljfieb
boolean visible = false
end type

type cb_exit from w_publ_base`cb_exit within w_buytask_redate_ljfieb
integer x = 768
integer width = 169
integer height = 164
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

type dw_uc from datawindow within w_buytask_redate_ljfieb
integer y = 296
integer width = 1920
integer height = 1084
integer taborder = 30
boolean bringtotop = true
string title = "none"
string dataobject = "dw_buytask_rqdate_ljfieb"
boolean livescroll = true
borderstyle borderstyle = stylelowered!
end type

type dw_child from u_dw_rbtnfilter within w_buytask_redate_ljfieb
integer y = 1384
integer width = 3584
integer height = 872
integer taborder = 20
boolean bringtotop = true
boolean titlebar = true
string title = "单据明细内容"
string dataobject = "dw_buytaskmx_rqdate_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

type mle_1 from multilineedit within w_buytask_redate_ljfieb
integer x = 1929
integer y = 356
integer width = 1193
integer height = 1020
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_buytask_redate_ljfieb
integer x = 1938
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_buytask_redate_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_buytask_redate_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_buytask_redate_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_ok from uo_imflatbutton within w_buytask_redate_ljfieb
integer width = 187
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 Not f_power_ind(1588) THEN
	MessageBox(publ_operator,sys_msg_pow)
	RETURN
END IF

IF MessageBox('询问','是否确定接受供应商的交期?(接受则会把供应商提出的交期更新到采购订单明细的供应商回复交期)',question!,yesno!) = 2 THEN RETURN

Long ll_i
Long ll_ucrow
Long ll_scid,ll_taskid,ll_printid,ll_mtrlid
String ls_status,ls_woodcode,ls_pcode
Long cnt
String arg_msg,arg_msg_tmp
DateTime ld_sptbackdate,ld_sptbackdate_ori
String ls_delayreason
Long ll_max_pid,ll_cnt

ll_ucrow  = dw_uc.GetRow()

IF ll_ucrow <= 0 THEN
	IF MessageBox('询问','已经无法查询单据:' + ins_RelatedCode +' 的信息,可以已删除,是否继续确认本通信记录?',question!,yesno!) = 2 THEN RETURN
ELSE
	ll_scid = dw_uc.Object.u_buytask_scid[ll_ucrow]
	ll_taskid = dw_uc.Object.taskid[ll_ucrow]
	
	FOR ll_i = 1 To dw_child.RowCount()
		ll_printid = dw_child.Object.u_buytaskmx_printid[ll_i]
		ll_mtrlid  = dw_child.Object.mtrlid[ll_i]
		ls_status = dw_child.Object.u_buytaskmx_status[ll_i]
		ls_woodcode = dw_child.Object.u_buytaskmx_woodcode[ll_i]
		ls_pcode = dw_child.Object.u_buytaskmx_pcode[ll_i]
		
		ld_sptbackdate = dw_child.Object.u_buytaskmx_spt_requiredate[ll_i]
		ls_delayreason = dw_child.Object.delayreason[ll_i]
		
		SELECT count(*)
			INTO :cnt
			FROM u_buytaskmx
			WHERE scid = :ll_scid
			AND taskid = :ll_taskid
			AND printid = :ll_printid
			AND mtrlid = :ll_mtrlid
			AND status = :ls_status
			AND woodcode = :ls_woodcode
			And pcode = :ls_pcode ;
		IF sqlca.SQLCode <> 0 THEN cnt = 0
		
		IF cnt = 0 THEN
			arg_msg = arg_msg + '第'+String(ll_i)+'行,'+String(dw_child.Object.u_mtrldef_mtrlcode[ll_i])+' 与采购订单明细不匹配,请手动录入供应商回复交期' + '~r~n'
		ELSE
			SELECT sptbackdate
				INTO :ld_sptbackdate_ori
				FROM u_buytaskmx
				WHERE scid = :ll_scid
				AND taskid = :ll_taskid
				And printid = :ll_printid;
			IF sqlca.SQLCode <> 0 THEN
				ROLLBACK;
				MessageBox('Error','第'+String(ll_i)+'行,查询原回复交期失败,'+sqlca.SQLErrText)
				RETURN
			END IF
			
			UPDATE u_buytaskmx
				SET sptbackdate = :ld_sptbackdate,
				delayreason = :ls_delayreason
				WHERE scid = :ll_scid
				AND taskid = :ll_taskid
				And printid = :ll_printid;
			IF sqlca.SQLCode <> 0 THEN
				ROLLBACK;
				MessageBox('Error','第'+String(ll_i)+'行,更新操作失败,'+sqlca.SQLErrText)
				RETURN
			END IF
			
			IF String(ld_sptbackdate_ori,'yyyy-mm-dd hh:mm') <> String(ld_sptbackdate,'yyyy-mm-dd hh:mm') THEN
				
				SELECT count(*) INTO :ll_cnt
					FROM  u_sptbackdate_mx
					WHERE scid = :ll_scid
					AND taskid = :ll_taskid
					AND printid = :ll_printid
					And billtype = 0;
				IF sqlca.SQLCode <> 0 THEN
					ROLLBACK;
					MessageBox('Error','第'+String(ll_i)+'行,增加历史记录操作失败(01),'+sqlca.SQLErrText)
					RETURN
				END IF
				
				IF ll_cnt = 0 THEN
					ll_max_pid = 0
				ELSE
					SELECT max(pid)
						INTO :ll_max_pid
						FROM u_sptbackdate_mx
						WHERE scid = :ll_scid
						AND taskid = :ll_taskid
						AND printid = :ll_printid
						And billtype = 0;
					IF sqlca.SQLCode <> 0 THEN
						ROLLBACK;
						MessageBox('Error','第'+String(ll_i)+'行,增加历史记录操作失败(取最大Pid),'+sqlca.SQLErrText)
						RETURN
					END IF
				END IF
				ll_max_pid++
				
				INSERT INTO u_sptbackdate_mx
					(scid,
					taskid,
					printid,
					pid,
					sptbackdate,
					delayreason,
					opdate,
					billtype)
					VALUES (:ll_scid,
					:ll_taskid,
					:ll_printid,
					:ll_max_pid,
					:ld_sptbackdate,
					:ls_delayreason,
					getdate(),
					0);
				IF sqlca.SQLCode <> 0 THEN
					ROLLBACK;
					MessageBox('Error','第'+String(ll_i)+'行,增加历史记录操作失败,'+sqlca.SQLErrText)
					RETURN
				END IF
			END IF
		END IF
	NEXT
END IF



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 sqlca;
COMMIT Using tr_eb_sqlca;

MessageBox('系统提示','操作完成!')

IF Trim(arg_msg) > '' THEN
	OpenWithParm(w_message_err,arg_msg)
END IF

Close(Parent)

end event

type cb_bill from uo_imflatbutton within w_buytask_redate_ljfieb
integer x = 384
integer width = 384
integer height = 164
integer taborder = 10
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

ll_row  = dw_uc.getrow()

if ll_row <= 0 then return 

ls_code = dw_uc.object.taskcode[ll_row]

f_open_win(ins_scid,ls_code)
end event

type st_msg from statictext within w_buytask_redate_ljfieb
boolean visible = false
integer x = 27
integer y = 328
integer width = 1842
integer height = 76
boolean bringtotop = true
integer textsize = -12
integer weight = 700
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 255
long backcolor = 16777215
string text = "已无法查询单据信息,可以已删除掉"
boolean focusrectangle = false
end type

type cb_1 from uo_imflatbutton within w_buytask_redate_ljfieb
integer x = 192
integer width = 187
integer height = 164
integer taborder = 10
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(1589) THEN
	MessageBox(publ_operator,sys_msg_pow)
	RETURN
END IF

if messagebox('询问','是否确认拒绝此次供应商交期确认?',question!,yesno!) = 2 then return 

String arg_summary,arg_postscript,arg_remark
String arg_msg
string ls_SerialNum

UPDATE LJFIEB_packet
	SET Complete = 1 ,
	status = 10,
		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

s_packet_ljfieb s_pack,s_return


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

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,11,arg_summary,arg_postscript,arg_remark,ins_sn,ins_RelatedCode,0,arg_msg,True) = 0 THEN
	MessageBox('系统提示','发送确认指令失败 '+arg_msg)
	RETURN
END IF

messagebox('系统提示','操作成功!')
close(parent)


end event

type ln_bar from line within w_buytask_redate_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_buytask_redate_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_buytask_redate_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_buytask_redate_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_buytask_redate_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