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

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

global type w_ljfieb_buy_send_his from w_publ_easyq
string title = "采购电子商务发送记录"
cbx_1 cbx_1
end type
global w_ljfieb_buy_send_his w_ljfieb_buy_send_his

on w_ljfieb_buy_send_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_send_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_send_his
boolean visible = false
end type

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

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

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

type cb_1 from w_publ_easyq`cb_1 within w_ljfieb_buy_send_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_ReceiveCusCommID,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
		ll_ReceiveCusCommID = dw_1.Object.ljfieb_packet_ReceiveCusCommID[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_SendSCcode 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_ReceiveCusCommID 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_receivesccode 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_send_his
integer x = 0
integer width = 315
string text = "发送日期从:"
end type

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

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

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

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

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

type dw_1 from w_publ_easyq`dw_1 within w_ljfieb_buy_send_his
integer y = 300
string dataobject = "dw_ljfieb_buy_send_his"
end type

event dw_1::doubleclicked;call super::doubleclicked;IF row <= 0 THEN RETURN

String ls_code,ls_sccode
Long ll_scid

ls_sccode = This.Object.ljfieb_packet_receivesccode[row]

SELECT scid
	INTO :ll_scid
	FROM u_scdef
	Where sccode = :ls_sccode;
IF sqlca.SQLCode <> 0 THEN ll_scid = 0

ls_code = This.Object.ljfieb_packet_relatedcode[row]

f_open_win(ll_scid,ls_code)

end event

type sle_mtrl from w_publ_easyq`sle_mtrl within w_ljfieb_buy_send_his
end type

type sle_cust from w_publ_easyq`sle_cust within w_ljfieb_buy_send_his
end type

type st_mtrl from w_publ_easyq`st_mtrl within w_ljfieb_buy_send_his
end type

type st_cust from w_publ_easyq`st_cust within w_ljfieb_buy_send_his
end type

type cbx_loginretr from w_publ_easyq`cbx_loginretr within w_ljfieb_buy_send_his
end type

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

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

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

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

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

type gb_1 from w_publ_easyq`gb_1 within w_ljfieb_buy_send_his
end type

type ln_bar from w_publ_easyq`ln_bar within w_ljfieb_buy_send_his
end type

type ln_bar2 from w_publ_easyq`ln_bar2 within w_ljfieb_buy_send_his
end type

type r_bar from w_publ_easyq`r_bar within w_ljfieb_buy_send_his
end type

type ln_1 from w_publ_easyq`ln_1 within w_ljfieb_buy_send_his
end type

type ln_2 from w_publ_easyq`ln_2 within w_ljfieb_buy_send_his
end type

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

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

type cbx_1 from checkbox within w_ljfieb_buy_send_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