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

$PBExportHeader$w_ljfieb_buy_feedback_his.srw
forward
global type w_ljfieb_buy_feedback_his from w_publ_easyq
end type
type cbx_1 from checkbox within w_ljfieb_buy_feedback_his
end type
end forward 

global type w_ljfieb_buy_feedback_his from w_publ_easyq
string title = "采购电子商务接收记录"
cbx_1 cbx_1
end type
global w_ljfieb_buy_feedback_his w_ljfieb_buy_feedback_his

on w_ljfieb_buy_feedback_his.create
int iCurrent
call super::create
this.cbx_1=create cbx_1
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.cbx_1
end on

on w_ljfieb_buy_feedback_his.destroy
call super::destroy
destroy(this.cbx_1)
end on

event open;this.triggerevent('ue_before_open')
wf_movetocenter()

dw_1.SetTransObject (sys_email_sqlca)

EM_1.Text = String(Today(),'YYYY-MM-DD')
EM_2.Text = EM_1.Text

dw_1.RBUTTON_FILTER_USE = TRUE //右键查询功能开关


cb_1.triggerevent(clicked!)
end event

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

type cb_exit from w_publ_easyq`cb_exit within w_ljfieb_buy_feedback_his
integer x = 151
end type

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

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

type cb_1 from w_publ_easyq`cb_1 within w_ljfieb_buy_feedback_his
end type

event cb_1::clicked;call super::clicked;DateTime first_date,end_date

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

Int li_ifall

Long ll_i
String ls_cuscode
Long ll_sendcuscommid,ll_spttypeid
String ls_spttype,ls_receivesccode, ls_SendSCcode,ls_scstr
Long ll_scid

IF cbx_1.Checked THEN
	li_ifall = 0
ELSE
	li_ifall = 1
END IF

dw_1.SetRedraw(False)
dw_1.Retrieve(first_date,end_date,li_ifall)

IF Not sys_power_issuper THEN
	dw_1.AcceptText()
	
	FOR ll_i = dw_1.RowCount() To 1 Step -1
		IF dw_1.Object.ljfieb_packet_billtype [ll_i] = 9 THEN CONTINUE	
		
		ll_sendcuscommid = dw_1.Object.ljfieb_packet_sendcuscommid[ll_i]
		ls_receivesccode = dw_1.Object.ljfieb_packet_receivesccode[ll_i]
		ls_SendSCcode = dw_1.Object.ljfieb_packet_SendSCcode [ll_i]
		
		IF sys_user_scstr <> '0' THEN
			SELECT scid INTO :ll_scid
				FROM u_scdef
				Where sccode = :ls_receivesccode Using sqlca;
			IF sqlca.SQLCode <> 0 THEN
				ll_scid = 0
			END IF
			
			ls_scstr = ','+String(ll_scid)+','
			
			IF Pos(sys_user_scstr,ls_scstr) = 0 THEN
				dw_1.DeleteRow(ll_i)
				CONTINUE
			END IF
			
		END IF
		
		SELECT CusCode
			INTO :ls_cuscode
			FROM LJFIEB_CusComm
			Where CusCommID = :ll_sendcuscommid Using sys_email_sqlca;
		IF sys_email_sqlca.SQLCode <> 0 THEN
			ls_cuscode = ''
		END IF
		
		IF Trim(ls_cuscode) = '' THEN CONTINUE
		
		SELECT spttypeid
			INTO :ll_spttypeid
			FROM u_spt
			WHERE  commcode = :ls_cuscode
			And commsccode = :ls_SendSCcode Using sqlca;
		IF sqlca.SQLCode <> 0 THEN CONTINUE
		
		IF sys_user_spttypestr <> '0' THEN
			ls_spttype = ','+String( ll_spttypeid)+','
			IF Pos(sys_user_spttypestr,ls_spttype) = 0 THEN
				dw_1.DeleteRow(ll_i)
				CONTINUE
			END IF
		END IF
	NEXT
	
END IF
dw_1.SetRedraw(True)
end event

type st_3 from w_publ_easyq`st_3 within w_ljfieb_buy_feedback_his
integer x = 0
integer width = 315
string text = "发送日期从:"
end type

type st_4 from w_publ_easyq`st_4 within w_ljfieb_buy_feedback_his
integer x = 823
end type

type em_1 from w_publ_easyq`em_1 within w_ljfieb_buy_feedback_his
integer x = 315
end type

type em_2 from w_publ_easyq`em_2 within w_ljfieb_buy_feedback_his
integer x = 928
end type

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

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

type dw_1 from w_publ_easyq`dw_1 within w_ljfieb_buy_feedback_his
integer y = 300
string dataobject = "dw_ljfieb_buy_feedback_his"
end type

event dw_1::doubleclicked;call super::doubleclicked;Long ll_row
String ls_sn

ll_row = dw_1.GetRow()

IF ll_row <= 0 THEN RETURN

s_packet_ljfieb s_inscust

s_inscust.sendcuscommid = dw_1.Object.ljfieb_packet_sendcuscommid[ll_row]
s_inscust.receivecuscommid = dw_1.Object.ljfieb_packet_receivecuscommid[ll_row]
s_inscust.sendsccode = dw_1.Object.ljfieb_packet_sendsccode[ll_row]
s_inscust.receivesccode = dw_1.Object.ljfieb_packet_receivesccode[ll_row]
s_inscust.RelatedCode = dw_1.Object.ljfieb_packet_relatedcode[ll_row]
s_inscust.remark = dw_1.Object.ljfieb_packet_remark[ll_row]
s_inscust.postscript = dw_1.Object.ljfieb_packet_postscript[ll_row]
s_inscust.serialnum = dw_1.Object.ljfieb_packet_serialnum[ll_row]

IF dw_1.Object.ljfieb_packet_billtype[ll_row] = 3 THEN
	
	OpenWithParm(w_buytask_feedback_ljfieb,s_inscust)
	
ELSEIF dw_1.Object.ljfieb_packet_billtype[ll_row] = 12 THEN
	OpenWithParm(w_buytask_redate_ljfieb,s_inscust)
ELSEIF dw_1.Object.ljfieb_packet_billtype[ll_row] = 4 THEN
	OpenWithParm(w_outware_receive_ljfieb,s_inscust)
ELSEIF dw_1.Object.ljfieb_packet_billtype[ll_row] = 1 THEN
	OpenWithParm(w_quote_receive_ljfieb,s_inscust)
ELSEIF dw_1.Object.ljfieb_packet_billtype[ll_row] = 9  THEN
	IF   dw_1.Object.ljfieb_packet_status[ll_row] <> 5 THEN RETURN
	
	SELECT top 1 SerialNum
		INTO :ls_sn
		FROM LJFIEB_packet
		WHERE BillType = 9
		AND status = 5
		AND Complete = 0
		AND sendcuscommid = :s_inscust.sendcuscommid
		Order By AddTime Using sys_email_sqlca;
	IF sys_email_sqlca.SQLCode <> 0 THEN
		MessageBox('Error','查询最早待处理的同步数据失败,'+sys_email_sqlca.SQLErrText)
		RETURN
	END IF
	
	IF ls_sn <> s_inscust.serialnum THEN
		MessageBox('系统提示','同一供应商资料同步严格按照推送时间顺序,当前选中的资料不是最早,将自动转到最早的资料作同步')
	ELSE
		ls_sn = s_inscust.serialnum
	END IF
	
	OpenWithParm(w_mtrl_receive_ljfieb,ls_sn)
END IF

cb_1.TriggerEvent(Clicked!)


end event

type sle_mtrl from w_publ_easyq`sle_mtrl within w_ljfieb_buy_feedback_his
end type

type sle_cust from w_publ_easyq`sle_cust within w_ljfieb_buy_feedback_his
end type

type st_mtrl from w_publ_easyq`st_mtrl within w_ljfieb_buy_feedback_his
end type

type st_cust from w_publ_easyq`st_cust within w_ljfieb_buy_feedback_his
end type

type cbx_loginretr from w_publ_easyq`cbx_loginretr within w_ljfieb_buy_feedback_his
end type

type pb_em1 from w_publ_easyq`pb_em1 within w_ljfieb_buy_feedback_his
integer x = 731
end type

type pb_em2 from w_publ_easyq`pb_em2 within w_ljfieb_buy_feedback_his
integer x = 1344
end type

type pb_2 from w_publ_easyq`pb_2 within w_ljfieb_buy_feedback_his
integer x = 1454
end type

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

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

type gb_1 from w_publ_easyq`gb_1 within w_ljfieb_buy_feedback_his
end type

type ln_bar from w_publ_easyq`ln_bar within w_ljfieb_buy_feedback_his
end type

type ln_bar2 from w_publ_easyq`ln_bar2 within w_ljfieb_buy_feedback_his
end type

type r_bar from w_publ_easyq`r_bar within w_ljfieb_buy_feedback_his
end type

type ln_1 from w_publ_easyq`ln_1 within w_ljfieb_buy_feedback_his
end type

type ln_2 from w_publ_easyq`ln_2 within w_ljfieb_buy_feedback_his
end type

type ln_3 from w_publ_easyq`ln_3 within w_ljfieb_buy_feedback_his
boolean visible = false
end type

type ln_4 from w_publ_easyq`ln_4 within w_ljfieb_buy_feedback_his
boolean visible = false
end type

type cbx_1 from checkbox within w_ljfieb_buy_feedback_his
integer x = 1600
integer y = 200
integer width = 411
integer height = 60
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 134217739
string text = "只显示待处理"
end type

event clicked;cb_1.triggerevent(clicked!)
end event