w_mcyhz_maintain1.srw

一套PB开发的工商行政管理全套源码,包括企业登记,执照,案件管理等.

	dw_1.modify("a_qymchz_nzczb.background.color = '0~tif(mcztbz = " + char(34) +'2' +char(34) +",rgb(137,197,237),rgb(220,222,152))'")
	dw_1.modify("a_qymchz_nzczbbz.background.color = '0~tif(mcztbz = " + char(34) +'2' +char(34) +",rgb(137,197,237),rgb(220,222,152))'")
	dw_1.modify("a_qymchz_bzsm.background.color = '0~tif(mcztbz = " + char(34) +'2' +char(34) +",rgb(137,197,237),rgb(220,222,152))'")
	dw_1.setsort("mcztbz A")
	dw_1.sort()
	cb_delete.enabled = true
   cb_save.enabled=true
   cb_cancel.enabled=true
   cb_3.enabled=true
	dw_1.sharedata(tab_1.tabpage_1.dw_2)
	st_1.backcolor=rgb(236,225,183)
	st_1.text=" 注: '黄色'企业为未开业企业, '蓝色'企业为已开业企业"
end if
ls_qymc1=getitemstring(dw_1,getrow(dw_1),2)
select nbxh into :ls_nbxh1 from a_qymccx where qymc=:ls_qymc1;
retrieve(tab_1.tabpage_2.dw_3,ls_nbxh1)
end event
type cb_delete from commandbutton within w_mcyhz_maintain1
boolean visible = false
integer x = 3173
integer y = 220
integer width = 448
integer height = 104
integer taborder = 40
integer textsize = -12
integer weight = 400
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
string text = "&D.删除"
end type

event clicked;long ll_now_row, ll_new_row
string ls_tmp_nbxh
int ll_i
dwItemStatus ldws_status

// 取得当前行号
ll_now_row = dw_1.Getrow()
ls_tmp_nbxh = dw_1.getitemstring(ll_now_row,"nbxh")

ldws_status = dw_1.GetItemStatus(ll_now_row, 0, Primary!)
if ldws_status <> NEW! then
	beep(3)
	if messagebox("提问","确认是否删除记录?",question!,yesno!) = 2 then
		return
	end if
end if

// 删除企业名称查询表对应记录
if delete_qymccx(ls_tmp_nbxh) = false then
	// 删除失败
	return
end if

if dw_1.Rowcount()=1 then 
	// 列表中仅有一行
	dw_1.Deleterow(0)
	cb_delete.enabled = false
	cb_add.enabled=true
	return
end if

if ll_now_row = dw_1.Rowcount() then
	// 当前行号为列表的最后一行，设定新行号为前一行
	ll_new_row = ll_now_row - 1
else
	// 当前行号不是列表的最后一行，设定新行号为当前行
	ll_new_row = ll_now_row
end if

//dw_1.Scrolltorow(j)
tab_1.tabpage_1.dw_2.Scrolltorow(ll_new_row)
dw_1.Setrow(ll_now_row)

//删除列表中当前行
dw_1.Deleterow(0)
for ll_i=0 to rowcount(tab_1.tabpage_2.dw_3) step 1
	tab_1.tabpage_2.dw_3.deleterow(ll_i)
next
dw_1.Setfocus()
nbxh=getitemstring(dw_1,getrow(dw_1),1)
commit;
cb_add.enabled=true
end event

type cb_cancel from commandbutton within w_mcyhz_maintain1
integer x = 3104
integer y = 268
integer width = 448
integer height = 104
integer taborder = 60
integer textsize = -12
integer weight = 400
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "&C.取  消"
end type

event clicked;long ll_tmp_long
insert_flag = false

// 回退删除操作
rollback;

ll_tmp_long = dw_1.retrieve(wv_qymc,wv_zh,wv_hztzs,&
	wv_zhpy, ws_enterprise_type)
dw_1.sharedata(tab_1.tabpage_1.dw_2)

if ll_tmp_long < 1 then
	cb_delete.enabled = false
else
	cb_delete.enabled = true
end if
cb_add.enabled=true
end event

type cb_save from commandbutton within w_mcyhz_maintain1
integer x = 3104
integer y = 148
integer width = 448
integer height = 104
integer taborder = 50
integer textsize = -12
integer weight = 400
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "&S.保  存"
end type

event clicked;long ll_tmp_long, ll_record_count,ll_i
string ls_mclx,ls_hztzs
datetime ldt_blqx_begin, ldt_blqx_end
date ld_tmp_date
dwItemStatus ldws_status
int li_ii,li_row
string ls_gdmc
string ls_message,ls_color_save

dw_1.Accepttext()
tab_1.tabpage_1.dw_2.Accepttext()
if tab_1.tabpage_1.dw_2.GetItemString(tab_1.tabpage_1.dw_2.GetRow(),"mcztbz") = '2' then
	messageBox("提示","该企业已开业，不能修改名称核准库!")
	return
end if	

// 从系统参数表中取出名称核准保留期
SELECT parm_value  
    INTO :mchzblq  
    FROM a_sys_parm  
   WHERE parm_name = 'mchzblq'   ;

if mchzblq < 1 or isnull(mchzblq) then
	beep(3)
	messagebox("错误","系统参数名称核准保留期有误！")
	return
end if

tab_1.tabpage_1.dw_2.accepttext()
tab_1.tabpage_2.dw_3.accepttext()

ls_message=f_datawindow_message(tab_1.tabpage_2.dw_3,1,ls_color_save)
if ls_message<>'' then
	messagebox('提示信息','股东名称:~n'+space(4)+ls_message,StopSign!)
	return
end if
//名称类型
ls_mclx = '1'
ll_record_count = dw_1.rowcount()
for ll_i = 1 to ll_record_count
	nbxh = tab_1.tabpage_1.dw_2.getitemstring(ll_i, "nbxh")
	//取得当前记录状态
	ldws_status = tab_1.tabpage_1.dw_2.GetItemStatus(ll_i, 0, primary!)
	if (isnull(nbxh) or len(trim(nbxh))=0) and ldws_status = newmodified! then
		//新记录且已输入值
		//当前记录的内部序号为空,需要生成内部序号
		// 插入QYMCCX表的记录
		if not wf_insert_record(1) then
			return
			cb_exit.TriggerEvent(Clicked!)
		end if	
		
		//置A_QYMCHZ表中的 HMRY,MCHZBZ,MCZTBZ
		tab_1.tabpage_1.dw_2.SetItem(ll_i,'a_qymchz_hmry',czy)
		//将MCHZBZ置为'4'(特殊核名)
		//置名称状态标志为'预核准'状态(1)
		tab_1.tabpage_1.dw_2.SetItem(ll_i,'a_qymchz_mcztbz','1')
		//生成核准通知书号
		select dqjc into :ls_hztzs from a_bm_djjg where bm=:p_djjg;
		if isnull(ls_hztzs) then
			MessageBox("提示","对不起！登记机关编码库中没有本登记机关的地区简称，请维护！本次存盘无效！")
			rollback;
			return
		end if
		ls_hztzs='（'+ls_hztzs+'）'+'名称预核'+fn_hztzsh()
		tab_1.tabpage_1.dw_2.SetItem(ll_i,'hztzs',ls_hztzs)  
	elseif ldws_status = datamodified! then
		// 修改QYMCCX表记录
		wf_update_record(ll_i)
		//置A_QYMCHZ表中的 HMRY,MCHZBZ
		dw_1.SetItem(ll_i,'mchzbz','4')		
	end if
	
	// 设置名称保留期
	ldt_blqx_begin = tab_1.tabpage_1.dw_2.getitemdatetime(tab_1.tabpage_1.dw_2.getrow(),'hzrq')
	ld_tmp_date = date(ldt_blqx_begin)
	ldt_blqx_end = datetime(relativedate(ld_tmp_date, mchzblq))
	
	// 修改QYMCCX表中相应记录
	update a_qymccx 
		set blqx1=:ldt_blqx_begin,blqx2=:ldt_blqx_end 
		where nbxh=:nbxh;								
	IF sqlca.sqlcode <> 0 then
		beep(3)
		messagebox("错误",sqlca.sqlerrtext)
		return 
	end if
next

if isnull(getitemstring(tab_1.tabpage_1.dw_2,getrow(tab_1.tabpage_1.dw_2),'zh')) then
	setitem(tab_1.tabpage_1.dw_2,getrow(tab_1.tabpage_1.dw_2),'zh',' ')
end if
if isnull(getitemstring(tab_1.tabpage_1.dw_2,getrow(tab_1.tabpage_1.dw_2),'zhpy')) then
	setitem(tab_1.tabpage_1.dw_2,getrow(tab_1.tabpage_1.dw_2),'zhpy',' ')
end if
tab_1.tabpage_1.dw_2.accepttext()

if tab_1.tabpage_1.dw_2.update() = 1 then	
	tab_1.tabpage_1.dw_2.scrolltorow(dw_1.getrow())
	ll_record_count=tab_1.tabpage_2.dw_3.RowCount()	
	ll_i=1
	
	string ls_nbxh
	ls_nbxh=dw_1.getitemstring(dw_1.getrow(), "nbxh")
	do while ll_i<=ll_record_count
		//tab_1.tabpage_2.dw_3.SetItem(ll_i,'nbxh',nbxh)
		tab_1.tabpage_2.dw_3.SetItem(ll_i,'nbxh',ls_nbxh)		
		ll_i=ll_i+1
	loop		
	ls_message =f_data_unique(tab_1.tabpage_2.dw_3)
	if ls_message<>'' then
		messagebox('提示信息','股东名称:~n'+space(4)+ls_message,StopSign!)
		return
	end if
	if update(tab_1.tabpage_2.dw_3)=1 then
		messagebox("提示","保存成功!")
	else
		beep(3)
		messagebox("提示","股东保存失败!")
		rollback;
		return
	end if
   commit;
	cb_delete.enabled=true
   cb_save.enabled=true
   cb_cancel.enabled=true
   cb_3.enabled=true
else
	beep(3)
	messagebox("保存失败","非空字段放入空值，" &
			+"请检查以下字段不能为空：~r~n"&
			+"企业名称、企业类型、行业代码、登记机关、&
				核准日期、核准通知书文号")
    	messagebox("错误","保存失败！")
	rollback;
end if

cb_add.enabled=true
ll_tmp_long = dw_1.rowcount()
if ll_tmp_long < 1 then
	cb_delete.enabled = false
else
	cb_delete.enabled = true
end if
cb_add.enabled=true


end event

type cb_add from commandbutton within w_mcyhz_maintain1
boolean visible = false
integer x = 3173
integer y = 116
integer width = 448
integer height = 104
integer taborder = 30
integer textsize = -12
integer weight = 400
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
string text = "&A.增加"
end type

event clicked;current_row=insertrow(dw_1,0)
cb_delete.enabled=true
cb_save.enabled=true
cb_cancel.enabled=true
cb_3.enabled=false

dw_1.setitem(current_row,"djjg",p_djjg)
dw_1.setitem(current_row, "hzrq", today())
dw_1.setitem(current_row,"a_qymchz_zcdjjg",p_djjg)

dw_1.scrolltorow(current_row)
dw_1.sharedata(tab_1.tabpage_1.dw_2)
tab_1.tabpage_1.dw_2.scrolltorow(current_row)
tab_1.tabpage_1.dw_2.setfocus()
tab_1.tabpage_2.dw_3.reset()
insert_flag = true
setitem(tab_1.tabpage_1.dw_2,getrow(tab_1.tabpage_1.dw_2),'a_qymchz_nzczbbz','002')
cb_delete.enabled = true
cb_add.enabled=false
end event

type dw_1 from datawindow within w_mcyhz_maintain1
integer x = 14
integer y = 28
integer width = 3003
integer height = 680
integer taborder = 10
string dataobject = "dw_qymchz_list1"
boolean hscrollbar = true
boolean vscrollbar = true
boolean hsplitscroll = true
boolean livescroll = true
borderstyle borderstyle = stylelowered!
end type

event clicked;string nbxh1
long l_row

if row <= 0 then return

nbxh1=getitemstring(dw_1,row,'nbxh')
if  not isnull(nbxh1) then 
	cb_3.enabled=true
else
	cb_3.enabled=false
end if
tab_1.tabpage_1.dw_2.scrolltorow(row)
retrieve(tab_1.tabpage_2.dw_3,nbxh1)
selectrow(0,false)
selectrow(row,true)
nbxh=getitemstring(dw_1,row,'nbxh')
end event

event dberror;// not display the system error message
return 1
end event

event rowfocuschanged;//string ls_nbxh
//
//if Currentrow <= 0 then return
//current_row = Currentrow
//ls_nbxh=getitemstring(dw_1,Currentrow,'nbxh')
//messagebox("",ls_nbxh)
//if  not isnull(ls_nbxh) then 
//	cb_3.enabled=true
//else
//	cb_3.enabled=false
//end if
//tab_1.tabpage_1.dw_2.scrolltorow(Currentrow)
//retrieve(tab_1.tabpage_2.dw_3,ls_nbxh)
//selectrow(0,false)
//selectrow(Currentrow,true)
//nbxh=getitemstring(dw_1,Currentrow,'nbxh')
end event

event itemerror;string ls_type					
String ls_colname			
String ls_colname_text
string ls_return

ls_colname = dwo.name
ls_type = upper(left(dwo.ColType,4))
ls_colname_text=Describe(ls_colname + "_t.text" )
ls_return=f_datawindow_itemerror(ls_colname,ls_type,ls_colname_text,data)

if not isnull(ls_return) and len(ls_return)>0 then
   messagebox('提示信息',ls_return)
else
end if
return 1
end event

event itemchanged;string ls_colname,ls_type,ls_colname_text,ls_return

if lower(dwo.coltype)='date' or lower(dwo.coltype)='datetime' then
	ls_colname = dwo.name
	ls_type = upper(left(dwo.ColType,4))
	ls_colname_text=Describe(ls_colname + "_t.text" )
	ls_return=f_datawindow_itemerror(ls_colname,ls_type,ls_colname_text,data)
	if not isnull(ls_return) and len(ls_return)>0 then
		messagebox('提示信息',ls_return)
		return 1
	end if
end if
end event

type tab_1 from tab within w_mcyhz_maintain1
event create ( )
event destroy ( )
integer y = 864
integer width = 3561
integer height = 1372
integer taborder = 90
integer textsize = -9
integer weight = 400
fontpitch fontpitch = variable!
string facename = "宋体"
long backcolor = 80269524
boolean raggedright = true
integer selectedtab = 1
tabpage_1 tabpage_1
tabpage_2 tabpage_2
end type

on tab_1.create
this.tabpage_1=create tabpage_1
this.tabpage_2=create tabpage_2
this.Control[]={this.tabpage_1,&
this.tabpage_2}
end on

on tab_1.destroy
destroy(this.tabpage_1)
destroy(this.tabpage_2)
end on

event constructor;
dw_1.setredraw(false)
gf_set_bg(dw_1)
dw_1.setredraw(true)

tab_1.tabpage_1.dw_2.setredraw(false)
gf_set_bg(tab_1.tabpage_1.dw_2)
tab_1.tabpage_1.dw_2.setredraw(true)

tab_1.tabpage_2.dw_3.setredraw(false)
gf_set_bg(tab_1.tabpage_2.dw_3)
tab_1.tabpage_2.dw_3.setredraw(true)
end event

type tabpage_1 from userobject within tab_1
event create ( )
event destroy ( )
integer x = 18
integer y = 96
integer width = 3525
integer height = 1260
long backcolor = 80269524
string text = "详细情况"
long tabtextcolor = 33554432
long tabbackcolor = 80269524
long picturemaskcolor = 553648127
dw_2 dw_2
end type

on tabpage_1.create
this.dw_2=create dw_2
this.Control[]={this.dw_2}
end on

on tabpage_1.destroy
destroy(this.dw_2)
end on

type dw_2 from datawindow within tabpage_1
event enterkey pbm_dwnprocessenter
event user_post ( )
integer x = 18
integer y = 40
integer width = 3483
integer height = 1140
integer taborder = 41
string dataobject = "dw_qymchz_freeform2"
boolean livescroll = true
borderstyle borderstyle = stylelowered!
end type

event enterkey;if tab_1.tabpage_1.dw_2.getcolumnname()='a_qymchz_bzsm' then
	tab_1.tabpage_1.dw_2.setcolumn("qymc")
	return 1
end if
if tab_1.tabpage_1.dw_2.getcolumnname()='qymc'  and flag_qymc=true then
	tab_1.tabpage_1.dw_2.setcolumn("qymc")