$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