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

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

global type w_ljfieb_sale_send_his from w_publ_easyq
string title = "销售电子商务记录"
cbx_1 cbx_1 
end type
global w_ljfieb_sale_send_his w_ljfieb_sale_send_his

on w_ljfieb_sale_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_sale_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_sale_send_his
boolean visible = false
end type

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

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

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

type cb_1 from w_publ_easyq`cb_1 within w_ljfieb_sale_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

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)

Long ll_i
String ls_cuscode
Long ll_sendcuscommid,ll_cusareaid
String ls_custype,ls_receivesccode,ls_scstr,ls_SendSCcode
String ls_areastr,ls_outrep
Long ll_scid

IF Not sys_power_issuper THEN
	
	dw_1.AcceptText()
	
	FOR ll_i = dw_1.RowCount() To 1 Step -1
		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 cusareaid,
			custype
			INTO
			:ll_cusareaid,
			:ls_custype
			FROM u_cust
			WHERE commcode = :ls_cuscode
			And commsccode = :ls_SendSCcode Using sqlca;
		IF sqlca.SQLCode <> 0 THEN CONTINUE
		
		IF sys_areastr <> '0' THEN
			ls_areastr = ','+String( ll_cusareaid)+','
			IF Pos(sys_areastr,ls_areastr) = 0 THEN
				dw_1.DeleteRow(ll_i)
				CONTINUE
			END IF
		END IF
		
		IF sys_user_outrepstr <> '0' THEN
			ls_outrep = ','+String( ls_custype)+','
			IF Pos(sys_user_outrepstr,ls_outrep) = 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_sale_send_his
integer x = 0
integer width = 315
string text = "发送日期从:"
end type

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

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

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

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

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

type dw_1 from w_publ_easyq`dw_1 within w_ljfieb_sale_send_his
integer y = 300
string dataobject = "dw_ljfieb_sale_send_his"
end type

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

if this.object.ljfieb_packet_billtype[row] = 3 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]

if trim(ls_code) = '' then return 

f_open_win(ll_scid,ls_code)

end event

type sle_mtrl from w_publ_easyq`sle_mtrl within w_ljfieb_sale_send_his
end type

type sle_cust from w_publ_easyq`sle_cust within w_ljfieb_sale_send_his
end type

type st_mtrl from w_publ_easyq`st_mtrl within w_ljfieb_sale_send_his
end type

type st_cust from w_publ_easyq`st_cust within w_ljfieb_sale_send_his
end type

type cbx_loginretr from w_publ_easyq`cbx_loginretr within w_ljfieb_sale_send_his
end type

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

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

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

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

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

type gb_1 from w_publ_easyq`gb_1 within w_ljfieb_sale_send_his
end type

type ln_bar from w_publ_easyq`ln_bar within w_ljfieb_sale_send_his
end type

type ln_bar2 from w_publ_easyq`ln_bar2 within w_ljfieb_sale_send_his
end type

type r_bar from w_publ_easyq`r_bar within w_ljfieb_sale_send_his
end type

type ln_1 from w_publ_easyq`ln_1 within w_ljfieb_sale_send_his
end type

type ln_2 from w_publ_easyq`ln_2 within w_ljfieb_sale_send_his
end type

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

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

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