Q5/ws_objects/Ew_datatran.pbl.src/w_higher_exportdata.srw

$PBExportHeader$w_higher_exportdata.srw
forward
global type w_higher_exportdata from w_publ_base
end type
type cb_ju_sfile from commandbutton within w_higher_exportdata
end type
type mle_log from multilineedit within w_higher_exportdata
end type
type sle_ju_objfilename from singlelineedit within w_higher_exportdata
end type
type em_ju_st from editmask within w_higher_exportdata
end type
type em_ju_ed from editmask within w_higher_exportdata
end type
type st_2 from statictext within w_higher_exportdata
end type
type st_3 from statictext within w_higher_exportdata
end type
type cbx_ju_changetime from checkbox within w_higher_exportdata
end type
type gb_14 from groupbox within w_higher_exportdata
end type
type gb_1 from groupbox within w_higher_exportdata
end type
type cb_ju_exprdata from commandbutton within w_higher_exportdata
end type
type gb_2 from groupbox within w_higher_exportdata
end type
type st_msg from statictext within w_higher_exportdata
end type
type st_23 from statictext within w_higher_exportdata
end type
type cb_1 from commandbutton within w_higher_exportdata
end type
type sle_objfilename from singlelineedit within w_higher_exportdata
end type
type em_ed from editmask within w_higher_exportdata
end type
type st_222 from statictext within w_higher_exportdata
end type
type st_3e from statictext within w_higher_exportdata
end type
type cb_4 from commandbutton within w_higher_exportdata
end type
type gb_23 from groupbox within w_higher_exportdata
end type
type ddlb_st from dropdownlistbox within w_higher_exportdata
end type
type st_1 from statictext within w_higher_exportdata
end type
end forward

global type w_higher_exportdata from w_publ_base
integer x = 27
integer y = 48
integer width = 3159
integer height = 2132
string title = "数据导出成文件"
boolean maxbox = true
boolean resizable = true
long backcolor = 80269524
cb_ju_sfile cb_ju_sfile
mle_log mle_log
sle_ju_objfilename sle_ju_objfilename
em_ju_st em_ju_st
em_ju_ed em_ju_ed
st_2 st_2
st_3 st_3
cbx_ju_changetime cbx_ju_changetime
gb_14 gb_14
gb_1 gb_1
cb_ju_exprdata cb_ju_exprdata
gb_2 gb_2
st_msg st_msg
st_23 st_23
cb_1 cb_1
sle_objfilename sle_objfilename
em_ed em_ed
st_222 st_222
st_3e st_3e
cb_4 cb_4
gb_23 gb_23
ddlb_st ddlb_st
st_1 st_1
end type
global w_higher_exportdata w_higher_exportdata

type variables
uo_yfimex  uo_dataimex
uo_yfct uo_ct



end variables

forward prototypes
public function integer wf_export_defdata ()
public function integer wf_export_ct_data ()
end prototypes

public function integer wf_export_defdata ();//wf_export_defdata()

long rslt=1
datetime arg_bg_changetime,arg_ed_changetime
string arg_log,arg_msg,arg_exportfilename,ls_tbname,arg_exportfilename_blob
int arg_getflag=0,arg_usechangetime=0
int ls_k,tbc=0,ls_i
arg_bg_changetime=datetime(date(left(em_ju_st.text,10)),time(right(em_ju_st.text,5)))
arg_ed_changetime=datetime(date(left(em_ju_ed.text,10)),time(right(em_ju_ed.text,5)))
st_msg.text=''

s_exporttableinfo arg_zipfileinfo[300]
s_sys_tntblinfo  ls_tntblinfo

if cbx_ju_changetime.checked then arg_usechangetime=1


//1.取临时zipfilename
if f_get_tmpfilename(trim(sle_ju_objfilename.text),arg_exportfilename,arg_msg)=0 then
	messagebox("提示",arg_msg,information!,OK!)
	rslt=0
	goto ext
end if
arg_exportfilename_blob=trim(sle_ju_objfilename.text)

//2.表文件数组
for ls_i=1 to upperbound(s_tntblinfo)
	ls_tntblinfo=s_tntblinfo[ls_i]
	if ls_tntblinfo.tabletype=1 or ls_tntblinfo.tabletype=0 and ls_tntblinfo.table_name<>'' then
		ls_k++
		arg_zipfileinfo[ls_k].table_name=s_tntblinfo[ls_i].table_name
		arg_zipfileinfo[ls_k].filter_string=''
	end if
next
ls_k++
arg_zipfileinfo[ls_k].table_name='Sys_scIdentity'   //自动增量表 -部分
arg_zipfileinfo[ls_k].filter_string='(Sys_scIdentity.scid=0)'

ls_k++
arg_zipfileinfo[ls_k].table_name='dts_deletelog'   //删除日志表 -部分
arg_zipfileinfo[ls_k].filter_string='(dts_deletelog.scid=0)'
	

//3.数据导出,zipfile
rslt=uo_dataimex.f_exportdata(sqlca,arg_zipfileinfo,ls_k,arg_bg_changetime,arg_ed_changetime, &
								 arg_usechangetime,arg_getflag,arg_exportfilename,true,arg_msg,arg_log)

if rslt=0 then
	st_msg.text=arg_msg
	messagebox("错误",'数据提取失败!',stopsign!,OK!)
	rslt=0
	goto ext
end if

//4.zipfile -> blob -> file 
if uo_dataimex.f_exportdata_blob(arg_usechangetime,arg_bg_changetime,arg_ed_changetime,&
											arg_exportfilename,arg_exportfilename_blob,0,arg_msg)=0 then
	st_msg.text=arg_msg
	messagebox("错误",'数据提取失败>>数据文件建立失败!',stopsign!,OK!)
	rslt=0
	goto ext
end if

//5.删除临时zipfile
if uo_dataimex.f_delzipfile(arg_exportfilename,arg_msg)=0 then
	st_msg.text=st_msg.text + arg_msg	
end if
messagebox("提示",'数据提取成功!',information!,OK!)

ext:
mle_log.text=arg_log
return rslt

end function

public function integer wf_export_ct_data ();//wf_export_ct_data()

datetime arg_bg_changetime,arg_ed_changetime
string arg_log,arg_msg,arg_exportfilename,ls_tbname,arg_exportfilename_blob
int arg_getflag=0,arg_usechangetime=0
int rslt,ls_k,tbc=0,ls_i
long bg_ctmint,ed_ctmint

arg_bg_changetime=datetime(date(left(ddlb_st.text,10)),time(right(ddlb_st.text,8)))
arg_ed_changetime=datetime(date(left(em_ed.text,10)),time(right(em_ed.text,8)))
st_msg.text=''

s_exporttableinfo arg_zipfileinfo[200]
s_sys_tntblinfo  ls_tntblinfo


if trim(sle_objfilename.text)='' then
	messagebox("提示",'请选择文件路径',information!,OK!)
	rslt=0
	goto ext
end if

//0.取标记
select ct_dateint into :bg_ctmint from sys_ct_data where ct_datetime = :arg_bg_changetime;
if sqlca.sqlcode <> 0 then
	messagebox("错误",'查询截数开始时间标记失败',stopsign!,OK!)
	rslt=0
	goto ext
end if
select ct_dateint into :ed_ctmint from sys_ct_data where ct_datetime = :arg_ed_changetime;
if sqlca.sqlcode <> 0 then
	messagebox("错误",'查询截数结束时间标记失败',stopsign!,OK!)
	rslt=0
	goto ext
end if
string ls_filter_string='',ls_select_string='',ls_where_string=''
ls_filter_string =" ctmint >= " +string(bg_ctmint) + " and ctmint <= " +string(ed_ctmint)

//1.取临时zipfilename
if f_get_tmpfilename(trim(sle_objfilename.text),arg_exportfilename,arg_msg)=0 then
	messagebox("错误",arg_msg,stopsign!,OK!)
	rslt=0
	goto ext
end if
arg_exportfilename_blob=trim(sle_objfilename.text)

//2.表文件数组
//2.1无filter_string表
for ls_i=1 to upperbound(s_tntblinfo)
	ls_tntblinfo=s_tntblinfo[ls_i]
	if (ls_tntblinfo.tabletype=0 or ls_tntblinfo.tabletype=1) and ls_tntblinfo.table_name<>'' then
		ls_k++
		arg_zipfileinfo[ls_k].table_name=s_tntblinfo[ls_i].table_name
		arg_zipfileinfo[ls_k].filter_string=''
	end if
next

ls_k++
arg_zipfileinfo[ls_k].table_name='u_bsnNo'  //业务编号表
arg_zipfileinfo[ls_k].filter_string=''

ls_k++
arg_zipfileinfo[ls_k].table_name='Sys_scIdentity'  //ID流水表
arg_zipfileinfo[ls_k].filter_string=''

ls_k++
arg_zipfileinfo[ls_k].table_name='u_mtrlware'  //库存表
arg_zipfileinfo[ls_k].filter_string=''

//2.2 有filter_string表
ls_k++
arg_zipfileinfo[ls_k].table_name='u_warebalc'  //结存表
arg_zipfileinfo[ls_k].filter_string=ls_filter_string

ls_k++
arg_zipfileinfo[ls_k].table_name='U_mstpay'  //应付帐表
arg_zipfileinfo[ls_k].filter_string=ls_filter_string

ls_k++
arg_zipfileinfo[ls_k].table_name='U_msttake'  //应收帐表
arg_zipfileinfo[ls_k].filter_string=ls_filter_string

ls_k++
arg_zipfileinfo[ls_k].table_name='u_inWare'  //进仓单表
arg_zipfileinfo[ls_k].filter_string=ls_filter_string

ls_k++
arg_zipfileinfo[ls_k].table_name='u_inWaremx'  //进仓单明细表
arg_zipfileinfo[ls_k].dw_creattype = 1
ls_select_string='select u_inWaremx.* from u_inWare,u_inWaremx '
ls_where_string=' where u_inWare.inwareid=u_inWaremx.inwareid and '
arg_zipfileinfo[ls_k].filter_string=ls_select_string + ls_where_string + ls_filter_string

ls_k++
arg_zipfileinfo[ls_k].table_name='u_outWare'  //出仓单表
arg_zipfileinfo[ls_k].filter_string=ls_filter_string

ls_k++
arg_zipfileinfo[ls_k].table_name='u_outWaremx'  //出仓单明细表
arg_zipfileinfo[ls_k].dw_creattype = 1
ls_select_string='select u_outWaremx.* from u_outWare,u_outWaremx '
ls_where_string=' where u_outWare.outwareid=u_outWaremx.outwareid and '
arg_zipfileinfo[ls_k].filter_string=ls_select_string + ls_where_string + ls_filter_string


ls_k++
arg_zipfileinfo[ls_k].table_name='u_OutWare_move'  //仓库调拨单表
arg_zipfileinfo[ls_k].filter_string=ls_filter_string

ls_k++
arg_zipfileinfo[ls_k].table_name='u_OutWaremoveMx'  //仓库调拨单明细表
arg_zipfileinfo[ls_k].dw_creattype = 1
ls_select_string='select u_OutWaremoveMx.* from u_OutWare_move,u_OutWaremoveMx '
ls_where_string=' where u_OutWare_move.outwareid=u_OutWaremoveMx.outwareid and '
arg_zipfileinfo[ls_k].filter_string=ls_select_string + ls_where_string + ls_filter_string

ls_k++
arg_zipfileinfo[ls_k].table_name='u_buyTask'  //采购合同表
arg_zipfileinfo[ls_k].filter_string=ls_filter_string

ls_k++
arg_zipfileinfo[ls_k].table_name='u_buyTaskmx'  //采购合同明细表
arg_zipfileinfo[ls_k].dw_creattype = 1
ls_select_string='select u_buyTaskmx.* from u_buyTask,u_buyTaskmx '
ls_where_string=' where u_buyTask.TaskID=u_buyTaskmx.TaskID and '
arg_zipfileinfo[ls_k].filter_string=ls_select_string + ls_where_string + ls_filter_string

ls_k++
arg_zipfileinfo[ls_k].table_name='u_saleTask'  //销售合同表
arg_zipfileinfo[ls_k].filter_string=ls_filter_string

ls_k++
arg_zipfileinfo[ls_k].table_name='u_saleTaskmx'  //销售合同明细表
arg_zipfileinfo[ls_k].dw_creattype = 1
ls_select_string='select u_saleTaskmx.* from u_saleTask,u_saleTaskmx '
ls_where_string=' where u_saleTask.TaskID=u_saleTaskmx.TaskID and '
arg_zipfileinfo[ls_k].filter_string=ls_select_string + ls_where_string + ls_filter_string

//3.数据导出,zipfile
rslt=uo_dataimex.f_exportdata(sqlca,arg_zipfileinfo,ls_k,arg_bg_changetime,arg_ed_changetime, &
								 arg_usechangetime,arg_getflag,arg_exportfilename,true,arg_msg,arg_log)
if rslt=0 then
	st_msg.text=arg_msg
	messagebox("错误",'数据提取失败!',stopsign!,OK!)
	rslt=0
	goto ext
end if

//4.zipfile -> blob -> file 
if uo_dataimex.f_exportdata_blob(arg_usechangetime,arg_bg_changetime,arg_ed_changetime,&
											arg_exportfilename,arg_exportfilename_blob,0,arg_msg)=0 then
	st_msg.text=arg_msg
	messagebox("错误",'数据文件建立失败!',stopsign!,OK!)
	rslt=0
	goto ext
end if

//5.删除临时zipfile
if uo_dataimex.f_delzipfile(arg_exportfilename,arg_msg)=0 then
	st_msg.text=st_msg.text + arg_msg	
end if

////6.
//if not if_hisdb then
//	long err_num,pos_1,pos_2,len_1
//	string char_enter
//	char_enter = char(13)+char(10)
//	len_1=len(',失败-')
//	pos_1=pos(arg_log,',失败-')
//	pos_2=pos(arg_log,char_enter,pos_1)
//	err_num=long(mid(arg_log, pos_1 + len(',失败-'),pos_2 - pos_1 - len_1 ))
//	
//	if uo_ct.add_ct_datamx(0,arg_bg_changetime,arg_ed_changetime,err_num,0,arg_msg,0,sqlca)=0 then
//		st_msg.text=st_msg.text + arg_msg	
//	end if
//end if


messagebox("提示",'数据提取完毕!',information!,OK!)

ext:
mle_log.text=arg_log
return 1
end function

on w_higher_exportdata.create
int iCurrent
call super::create
this.cb_ju_sfile=create cb_ju_sfile
this.mle_log=create mle_log
this.sle_ju_objfilename=create sle_ju_objfilename
this.em_ju_st=create em_ju_st
this.em_ju_ed=create em_ju_ed
this.st_2=create st_2
this.st_3=create st_3
this.cbx_ju_changetime=create cbx_ju_changetime
this.gb_14=create gb_14
this.gb_1=create gb_1
this.cb_ju_exprdata=create cb_ju_exprdata
this.gb_2=create gb_2
this.st_msg=create st_msg
this.st_23=create st_23
this.cb_1=create cb_1
this.sle_objfilename=create sle_objfilename
this.em_ed=create em_ed
this.st_222=create st_222
this.st_3e=create st_3e
this.cb_4=create cb_4
this.gb_23=create gb_23
this.ddlb_st=create ddlb_st
this.st_1=create st_1
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.cb_ju_sfile
this.Control[iCurrent+2]=this.mle_log
this.Control[iCurrent+3]=this.sle_ju_objfilename
this.Control[iCurrent+4]=this.em_ju_st
this.Control[iCurrent+5]=this.em_ju_ed
this.Control[iCurrent+6]=this.st_2
this.Control[iCurrent+7]=this.st_3
this.Control[iCurrent+8]=this.cbx_ju_changetime
this.Control[iCurrent+9]=this.gb_14
this.Control[iCurrent+10]=this.gb_1
this.Control[iCurrent+11]=this.cb_ju_exprdata
this.Control[iCurrent+12]=this.gb_2
this.Control[iCurrent+13]=this.st_msg
this.Control[iCurrent+14]=this.st_23
this.Control[iCurrent+15]=this.cb_1
this.Control[iCurrent+16]=this.sle_objfilename
this.Control[iCurrent+17]=this.em_ed
this.Control[iCurrent+18]=this.st_222
this.Control[iCurrent+19]=this.st_3e
this.Control[iCurrent+20]=this.cb_4
this.Control[iCurrent+21]=this.gb_23
this.Control[iCurrent+22]=this.ddlb_st
this.Control[iCurrent+23]=this.st_1
end on

on w_higher_exportdata.destroy
call super::destroy
destroy(this.cb_ju_sfile)
destroy(this.mle_log)
destroy(this.sle_ju_objfilename)
destroy(this.em_ju_st)
destroy(this.em_ju_ed)
destroy(this.st_2)
destroy(this.st_3)
destroy(this.cbx_ju_changetime)
destroy(this.gb_14)
destroy(this.gb_1)
destroy(this.cb_ju_exprdata)
destroy(this.gb_2)
destroy(this.st_msg)
destroy(this.st_23)
destroy(this.cb_1)
destroy(this.sle_objfilename)
destroy(this.em_ed)
destroy(this.st_222)
destroy(this.st_3e)
destroy(this.cb_4)
destroy(this.gb_23)
destroy(this.ddlb_st)
destroy(this.st_1)
end on

event open;call super::open;uo_dataimex=create uo_yfimex
uo_ct=create uo_yfct

em_ju_st.text=string(RelativeDate(today(),-7))+" "+string(now())
em_ju_ed.text=string(today())+" "+string(now())
end event

event close;DESTROY uo_dataimex
DESTROY uo_ct


end event

event resize;mle_log.width=newwidth - mle_log.x - 5
mle_log.height=newheight - mle_log.y - 10
end event

type cb_func from w_publ_base`cb_func within w_higher_exportdata
boolean visible = false
integer x = 2747
integer y = 60
boolean enabled = false
end type

type cb_exit from w_publ_base`cb_exit within w_higher_exportdata
boolean visible = false
integer x = 2674
integer y = 1316
integer width = 329
integer taborder = 120
end type

type cb_ju_sfile from commandbutton within w_higher_exportdata
integer x = 2615
integer y = 236
integer width = 128
integer height = 96
integer taborder = 90
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = fixed!
fontfamily fontfamily = modern!
string facename = "幼圆"
string text = "..."
end type

event clicked;string docname, named
integer value
value = GetFileSaveName("请输入导出文件名", docname, named, "DOC", &
	"dtt 文件(*.dtt),*.dtt,所有文件(*.*), *.*")

IF value = 1 THEN 
	sle_ju_objfilename.text=docname
	sle_ju_objfilename.triggerevent(modified!)
end if
end event

type mle_log from multilineedit within w_higher_exportdata
integer y = 808
integer width = 3109
integer height = 1152
integer taborder = 170
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
boolean hscrollbar = true
boolean vscrollbar = true
boolean displayonly = true
borderstyle borderstyle = stylelowered!
end type

type sle_ju_objfilename from singlelineedit within w_higher_exportdata
integer x = 329
integer y = 240
integer width = 2286
integer height = 92
integer taborder = 70
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
boolean autohscroll = false
borderstyle borderstyle = stylelowered!
end type

event modified;
f_SetProfileString (sys_empid,'dataexport_ju', "ju_selectfile",this.text)
end event

event constructor;string ls_str

ls_str=f_ProfileString (sys_empid,'dataexport_ju', "ju_selectfile",'c:\')
this.text=left(ls_str, len(ls_str)-pos(Reverse(ls_str),'\') )+'\'+string(today(),'yymmdd')+'定义数据.dtt'
end event

type em_ju_st from editmask within w_higher_exportdata
integer x = 805
integer y = 120
integer width = 535
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 enabled = false
borderstyle borderstyle = stylelowered!
maskdatatype maskdatatype = datetimemask!
string mask = "yyyy-mm-dd hh:mm"
boolean spin = true
end type

type em_ju_ed from editmask within w_higher_exportdata
integer x = 1641
integer y = 120
integer width = 535
integer height = 84
integer taborder = 50
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
boolean enabled = false
borderstyle borderstyle = stylelowered!
maskdatatype maskdatatype = datetimemask!
string mask = "yyyy-mm-dd hh:mm"
boolean spin = true
end type

type st_2 from statictext within w_higher_exportdata
integer x = 544
integer y = 136
integer width = 261
integer height = 64
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 67108864
boolean enabled = false
string text = "开始日期:"
boolean focusrectangle = false
end type

type st_3 from statictext within w_higher_exportdata
integer x = 1381
integer y = 136
integer width = 261
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 = 67108864
boolean enabled = false
string text = "结束日期:"
boolean focusrectangle = false
end type

type cbx_ju_changetime from checkbox within w_higher_exportdata
integer x = 101
integer y = 132
integer width = 375
integer height = 64
integer taborder = 20
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 67108864
string text = "按时间提取"
end type

event clicked;if not this.checked  then 

	em_ju_st.enabled=false
	em_ju_ed.enabled=false
else

	em_ju_st.enabled=true
	em_ju_ed.enabled=true

end if
end event

event constructor;//this.checked=false
//if not this.checked  then 
//	
//	em_ju_st.enabled=false
//	em_ju_ed.enabled=false
//else
////	cbx_updateflag.enabled=true
//
//	em_ju_st.enabled=true
//	em_ju_ed.enabled=true
//
//end if
end event

type gb_14 from groupbox within w_higher_exportdata
integer x = 32
integer y = 448
integer width = 2331
integer height = 148
integer taborder = 40
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 67108864
end type

type gb_1 from groupbox within w_higher_exportdata
integer x = 329
integer y = 68
integer width = 1929
integer height = 160
integer taborder = 60
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 67108864
end type

type cb_ju_exprdata from commandbutton within w_higher_exportdata
integer x = 2743
integer y = 236
integer width = 338
integer height = 96
integer taborder = 110
boolean bringtotop = true
integer textsize = -9
integer weight = 700
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "提取数据"
end type

event clicked;if MessageBox("询问",'是否确定要提取数据? ', Exclamation!, yesno!, 2) =2 then return 
wf_export_defdata()
end event

type gb_2 from groupbox within w_higher_exportdata
integer y = 8
integer width = 3109
integer height = 352
integer taborder = 10
integer textsize = -9
integer weight = 700
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 67108864
string text = "公共设定数据导出"
end type

type st_msg from statictext within w_higher_exportdata
integer y = 728
integer width = 3109
integer height = 76
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long backcolor = 16776960
boolean enabled = false
boolean border = true
boolean focusrectangle = false
end type

type st_23 from statictext within w_higher_exportdata
integer x = 46
integer y = 624
integer width = 274
integer height = 60
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 67108864
boolean enabled = false
string text = "生成文件:"
boolean focusrectangle = false
end type

type cb_1 from commandbutton within w_higher_exportdata
integer x = 2592
integer y = 600
integer width = 128
integer height = 96
integer taborder = 150
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = fixed!
fontfamily fontfamily = modern!
string facename = "幼圆"
string text = "..."
end type

event clicked;string docname, named
integer value
value = GetFileSaveName("请输入导出文件名", docname, named, "DOC", &
	"dtt 文件(*.dtt),*.dtt,所有文件(*.*), *.*")

IF value = 1 THEN 
	sle_objfilename.text=docname
end if
end event

type sle_objfilename from singlelineedit within w_higher_exportdata
integer x = 306
integer y = 604
integer width = 2286
integer height = 92
integer taborder = 160
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
boolean autohscroll = false
borderstyle borderstyle = stylelowered!
end type

event modified;f_SetProfileString (sys_empid,'dataexport_ct', "ct_selectfile",this.text)
end event

event constructor;string ls_str

ls_str=f_ProfileString (sys_empid,'dataexport_ct', "ct_selectfile",'c:\')
this.text=left(ls_str, len(ls_str)-pos(Reverse(ls_str),'\') )+'\'+string(today(),'yymmdd')+'截数数据.dtt'
end event

type em_ed from editmask within w_higher_exportdata
integer x = 1691
integer y = 492
integer width = 617
integer height = 84
integer taborder = 80
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
boolean enabled = false
borderstyle borderstyle = stylelowered!
maskdatatype maskdatatype = datetimemask!
string mask = "yyyy-mm-dd hh:mm:ss"
boolean spin = true
end type

event constructor;datetime last_ctdt
select top 1 ct_datetime into :last_ctdt from sys_ct_data order by ct_dateint desc;

if sqlca.sqlcode <>0  then	last_ctdt=datetime(date('1900-01-01'),time(0))
em_ed.text=string(last_ctdt,'yyyy-mm-dd hh:mm:ss')
end event

type st_222 from statictext within w_higher_exportdata
integer x = 59
integer y = 508
integer width = 480
integer height = 64
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 67108864
boolean enabled = false
string text = "截数时间开始时间:"
boolean focusrectangle = false
end type

type st_3e from statictext within w_higher_exportdata
integer x = 1207
integer y = 508
integer width = 480
integer height = 64
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 67108864
boolean enabled = false
string text = "截数时间结束时间:"
boolean focusrectangle = false
end type

type cb_4 from commandbutton within w_higher_exportdata
integer x = 2720
integer y = 600
integer width = 338
integer height = 96
integer taborder = 140
boolean bringtotop = true
integer textsize = -9
integer weight = 700
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "提取数据"
end type

event clicked;if MessageBox("询问",'是否确定要提取数据? ', Exclamation!, yesno!, 2) =2 then return

wf_export_ct_data()
end event

type gb_23 from groupbox within w_higher_exportdata
integer y = 380
integer width = 3104
integer height = 348
integer taborder = 130
integer textsize = -9
integer weight = 700
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 67108864
string text = "业务数据导出(用于提取数据到历史库)"
end type

type ddlb_st from dropdownlistbox within w_higher_exportdata
integer x = 526
integer y = 492
integer width = 667
integer height = 972
integer taborder = 100
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
boolean sorted = false
boolean vscrollbar = true
borderstyle borderstyle = stylelowered!
end type

event constructor;datetime ls_ctdt,first_ctdt
long ctdt_num=0

 DECLARE ct_cur CURSOR FOR  
  SELECT sys_ct_data.ct_datetime  
    FROM sys_ct_data  
ORDER BY sys_ct_data.ct_datetime ASC  ;
open ct_cur;
fetch ct_cur into :ls_ctdt;
first_ctdt=ls_ctdt
do while sqlca.sqlcode=0
	ddlb_st.additem(string(ls_ctdt,'yyyy-mm-dd hh:mm:ss'))
	ctdt_num++
	fetch ct_cur into :ls_ctdt;
loop
close ct_cur;

if ctdt_num=0 then
	first_ctdt=datetime(date('1900-01-01'),time(0))
	ddlb_st.additem(string(first_ctdt,'yyyy-mm-dd hh:mm:ss'))
end if
ddlb_st.text=string(first_ctdt,'yyyy-mm-dd hh:mm:ss')

	
end event

type st_1 from statictext within w_higher_exportdata
integer x = 73
integer y = 260
integer width = 251
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 = 67108864
string text = "生成文件:"
boolean focusrectangle = false
end type