w_mcyhz_maintain1.srw

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

	return 1
else
	send(handle(this),256,9,long(0,0))
	return 1
end if
end event

event user_post;datetime coldate
string colname,str

Setnull(str)
Setnull(coldate)
CHOOSE CASE message.wordparm
	CASE 1
		this.Setitem(1,'qylx',str)
		this.Setcolumn('qylx')
	CASE 2
		this.Setitem(1,'djjg1',str)
		this.Setcolumn('djjg1')		
	CASE ELSE
		colname=this.Getcolumnname()
		this.Setitem(1,colname,coldate)
END CHOOSE


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 qyzh,py[],zhpy,qymc,qylx,bcmc
datetime dt1, dt2
integer  i,k,bcmczs
date   to_day
integer   zs
long tmp_long
datawindowchild dhydm
string tj

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
dt2 = datetime(today())
tab_1.tabpage_1.dw_2.accepttext()
IF dwo.Name = "hzrq" THEN
	dt1 = tab_1.tabpage_1.dw_2.object.hzrq[row]
	if dt1 > dt2 then
		messagebox("错误","核准日期不得大于当前日期！")
		tab_1.tabpage_1.dw_2.object.hzrq[row] = dt2
		return 1
	end if
END IF
qymc=dwo.name
IF dwo.Name = "qymc" THEN
	qymc = trim(tab_1.tabpage_1.dw_2.getitemstring(getrow(tab_1.tabpage_1.dw_2),"qymc"))
	//将QYMC中的半角字符转换为全角字符
	qymc=fn_asc_change(qymc)
	tab_1.tabpage_1.dw_2.SetItem(tab_1.tabpage_1.dw_2.getrow(),"qymc",qymc)
   tab_1.tabpage_1.dw_2.SetColumn("wwmc")	
	select count(*) into :i from a_qymccx  where qymc=:qymc;
	if  i>=1 then
		messagebox("警告","对不起,该名称已经被其他企业占用!")
		flag_qymc=true
		return 1
	else
		flag_qymc=true
	end if	
end if
if dwo.name="a_qymchz_bcmc" then
	bcmc=getitemstring(tab_1.tabpage_1.dw_2,row,'a_qymchz_bcmc')
	//将A_QYMCHZ_BCMC中的半角字符转换为全角字符
	bcmc=fn_asc_change(bcmc)
	tab_1.tabpage_1.dw_2.SetItem(tab_1.tabpage_1.dw_2.getrow(),"a_qymchz_bcmc",bcmc)
//   tab_1.tabpage_1.dw_2.SetColumn("wwmc")		
	
	select count(*) into :bcmczs from a_qymccx where qymc=:bcmc;
	if bcmczs=0 then
		 if messagebox("提示","没有找到变更前名称!请核查是否地方上报名称变更!",exclamation!,yesno!)=2 then
	       setitem(tab_1.tabpage_1.dw_2,row,'a_qymchz_bcmc','')
	    end if
		return 1
	end if
end if

//由于企业类型可编辑,所以检查是否输入的内容不在下拉的范围内
if dwo.name='qylx' then
	qylx=data
	this.Getchild("qylx",dhydm)//获得行业代码字段的子数据窗口
	tj="bm='"+data+"'"
   if dhydm.Find(tj,1,dhydm.Rowcount())<=0 then
		//输入的内容不在范围内
		this.Postevent("user_post",1,0)
		return 1
	end if
	choose case mid(qylx,1,1)
		case '1','2','3','4'
			tab_1.tabpage_1.dw_2.setitem(getrow(tab_1.tabpage_1.dw_2),"jbdw",'01')
		case '5','6','7'
			tab_1.tabpage_1.dw_2.setitem(getrow(tab_1.tabpage_1.dw_2),"jbdw",'02')
		case '9'
			if mid(qylx,1,2)='91' then
				tab_1.tabpage_1.dw_2.setitem(getrow(tab_1.tabpage_1.dw_2),"jbdw",'01')
			end if
			if mid(qylx,1,2)='90' then
				tab_1.tabpage_1.dw_2.settaborder('jbdw',91)
			end if	
				
			if mid(qylx,1,2)='92' or mid(qylx,1,2)='93' then
				tab_1.tabpage_1.dw_2.setitem(getrow(tab_1.tabpage_1.dw_2),"jbdw",'03')
			end if
			if mid(qylx,1,2)='95' then
				tab_1.tabpage_1.dw_2.setitem(getrow(tab_1.tabpage_1.dw_2),"jbdw",'03')
			end if			
			if mid(qylx,1,2)='94' then
				tab_1.tabpage_1.dw_2.setitem(getrow(tab_1.tabpage_1.dw_2),"jbdw",'04')
			end if
		case  else
	end choose			
end if

if dwo.name='djjg1' then
	this.Getchild("djjg1",dhydm)//获得代码字段的子数据窗口
	tj="bm='"+data+"'"
   if dhydm.Find(tj,1,dhydm.Rowcount())<=0 then
		//输入的内容不在范围内
		this.Postevent("user_post",2,0)
		return 1
	end if
end if	

IF dwo.Name = "zh" THEN
	qyzh = trim(tab_1.tabpage_1.dw_2.getitemstring(getrow(tab_1.tabpage_1.dw_2),"zh"))
	//将 ZH 中的半角字符转换为全角字符
	qyzh=fn_asc_change(qyzh)
	tab_1.tabpage_1.dw_2.SetItem(tab_1.tabpage_1.dw_2.getrow(),"zh",qyzh)	
	if  (not isnull(qyzh)) and len(trim(qyzh))<>0  then
		if  pos(tab_1.tabpage_1.dw_2.getitemstring(getrow(tab_1.tabpage_1.dw_2),"qymc"),qyzh)<1 then
	   messagebox("提示","企业字号必须包含在企业名称中	!")
		dw_2.setitem(row,"zh",' ')
		dw_2.setitem(row,"zhpy",' ')
	   return 1
   	end if	
	// 判断字号是否合法
	   if valid_char(qyzh) = false then
		return 1
	   end if
	  //转换字符串为拼音串
	  conv_char(qyzh,pinyin_string)	
	  if isnull(pinyin_string) or len(pinyin_string) < 1  then
	  beep(3)
	  messagebox("错误","字号拼音不能为空！")
     return 
     end if
	 
	  if right(trim(pinyin_string),1)<>";"  then 	pinyin_string=trim(pinyin_string)+";"
	     k=1
	     i=1
	     do  while  k<len(pinyin_string)
		
		  py[i]=trim(mid(pinyin_string,k,pos(pinyin_string,';',k)-k))
		  k=pos(pinyin_string,';',k)+1
		  i=i+1
	     loop
          if i=2 then
          dw_2.setitem(row,"zhpy",mid(pinyin_string,1,len(pinyin_string)-1))
          else
	         messagebox("提示","中文字号:"+qyzh+"  有多种可能的读音，如下：~n~n~n~ "&
	                        +mid(pinyin_string,1,len(pinyin_string)-1)+"~n~n~n"&
									+"    系统取第一种拼音作为缺省字号拼音，请务必核实它~n "&
									+"的正确性，如若不对，请以其余拼音中的正确拼音替换！")
            tab_1.tabpage_1.dw_2.setitem(row,"zhpy",py[1])									
          end if
     
     zhpy = trim(tab_1.tabpage_1.dw_2.getitemstring(getrow(tab_1.tabpage_1.dw_2),"zhpy"))
     to_day=today()
     select count(*) into :zs from a_qymccx where (zhpy=:zhpy and (blqx2 ='' or blqx2 is null or blqx2>:to_day));
	   if  zs>0  then
		openwithparm(w_ccdy,zhpy)
	   else
		return
      end  if
  
  end if
end if

long row_i
decimal tzje
IF dwo.Name = "a_qymchz_nzczb" THEN
	row_i=1
	if tab_1.tabpage_2.dw_3.rowcount() > 0 then
		do while row_i <= tab_1.tabpage_2.dw_3.rowcount()
			tzje=tab_1.tabpage_2.dw_3.getitemdecimal(row_i,'tzje')
			tab_1.tabpage_2.dw_3.setitem(row_i,'tzbl',(tzje/dec(data))*100)
			row_i=row_i+1
		loop
	end if	
END IF

string ls_hztzs
if dwo.name='qylx' then
//当改变企业类型时，核准通知书号也改变
	select dqjc into :ls_hztzs from a_bm_djjg where bm=:p_djjg;
	if isnull(ls_hztzs) then
		MessageBox("提示","对不起！登记机关编码库中没有本登记机关的地区简称，请维护！本次存盘无效！")
		rollback;
		return
	end if
	g_manage_unit=tab_1.tabpage_1.dw_2.getitemstring(tab_1.tabpage_1.dw_2.getrow(),"jbdw")
	ls_hztzs='（'+ls_hztzs+'）'+'名称预核'+fn_hztzsh()
	tab_1.tabpage_1.dw_2.SetItem(tab_1.tabpage_1.dw_2.getrow(),'hztzs',ls_hztzs)
	return
end if


end event

event dberror;return  1
end event

type tabpage_2 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
cb_4 cb_4
cb_2 cb_2
cb_1 cb_1
dw_3 dw_3
end type

on tabpage_2.create
this.cb_4=create cb_4
this.cb_2=create cb_2
this.cb_1=create cb_1
this.dw_3=create dw_3
this.Control[]={this.cb_4,&
this.cb_2,&
this.cb_1,&
this.dw_3}
end on

on tabpage_2.destroy
destroy(this.cb_4)
destroy(this.cb_2)
destroy(this.cb_1)
destroy(this.dw_3)
end on

type cb_4 from commandbutton within tabpage_2
boolean visible = false
integer x = 3013
integer y = 616
integer width = 329
integer height = 108
integer taborder = 71
integer textsize = -12
integer weight = 400
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
string text = "&S.保存"
end type

event clicked;if update(tab_1.tabpage_2.dw_3)=1 then
	commit;	
	messagebox("提示","保存成功!")
else
	rollback;	
	beep(3)
	messagebox("提示","保存失败!")
end if
end event

type cb_2 from commandbutton within tabpage_2
integer x = 3104
integer y = 180
integer width = 402
integer height = 104
integer taborder = 62
integer textsize = -12
integer weight = 400
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "&D.删  除"
end type

event clicked;deleterow(tab_1.tabpage_2.dw_3,0)

end event

type cb_1 from commandbutton within tabpage_2
event user_post ( )
integer x = 3104
integer y = 40
integer width = 402
integer height = 104
integer taborder = 61
integer textsize = -12
integer weight = 400
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "&A.增  加"
end type

event user_post;CHOOSE CASE message.wordparm
	CASE 1
		tab_1.tabpage_2.dw_3.Object.DataWindow.HorizontalScrollPosition=1
		tab_1.tabpage_2.dw_3.setfocus()
		tab_1.tabpage_2.dw_3.setcolumn("gdmc")
end choose
end event

event clicked;datetime ldt_hzrq
string ls_tzjebz

if tab_1.tabpage_1.dw_2.rowcount()>0 then
	insertrow(tab_1.tabpage_2.dw_3,0)
	scrolltorow(tab_1.tabpage_2.dw_3,rowcount(tab_1.tabpage_2.dw_3))
	setfocus(tab_1.tabpage_2.dw_3)
	nbxh=getitemstring(tab_1.tabpage_1.dw_2,getrow(tab_1.tabpage_1.dw_2),'nbxh')
	ldt_hzrq=getitemdatetime(tab_1.tabpage_1.dw_2,getrow(tab_1.tabpage_1.dw_2),'hzrq')
	ls_tzjebz=getitemstring(tab_1.tabpage_1.dw_2,getrow(tab_1.tabpage_1.dw_2),'a_qymchz_nzczbbz')
	setitem(tab_1.tabpage_2.dw_3,getrow(tab_1.tabpage_2.dw_3),'nbxh',nbxh)
	setitem(tab_1.tabpage_2.dw_3,getrow(tab_1.tabpage_2.dw_3),'hzrq',ldt_hzrq)
	setitem(tab_1.tabpage_2.dw_3,getrow(tab_1.tabpage_2.dw_3),'tzjebz',ls_tzjebz)
	setitem(tab_1.tabpage_2.dw_3,getrow(tab_1.tabpage_2.dw_3),'tzje',0)	
	this.Postevent("user_post",1,0)
end if
end event

type dw_3 from datawindow within tabpage_2
event keyenter pbm_dwnprocessenter
event user_post ( )
integer x = 18
integer y = 40
integer width = 3003
integer height = 1140
integer taborder = 31
string dataobject = "dw_qymchzgd"
boolean hscrollbar = true
boolean vscrollbar = true
boolean hsplitscroll = true
boolean livescroll = true
borderstyle borderstyle = stylelowered!
end type

event keyenter;string gdmc
tab_1.tabpage_2.dw_3.accepttext()
if tab_1.tabpage_2.dw_3.getcolumnname()='tzjebz' then
      tab_1.tabpage_2.cb_1.triggerevent(clicked!)	   
end if
if tab_1.tabpage_2.dw_3.getcolumnname()='gdmc' then
    this.Postevent("user_post",1,0)

end if
send(handle(this),256,9,long(0,0))
end event

event user_post;CHOOSE CASE message.wordparm
	CASE 1
		tab_1.tabpage_2.dw_3.SetColumn('tzje')
	case 2
		tab_1.tabpage_2.dw_3.Setitem(tab_1.tabpage_2.dw_3.getrow(),"tzje",0)
		tab_1.Selectedtab=1
		tab_1.tabpage_1.dw_2.SetColumn("a_qymchz_nzczb")		
	case 3
		tab_1.tabpage_2.dw_3.Setitem(tab_1.tabpage_2.dw_3.getrow(),"tzbl",0)				
		tab_1.Selectedtab=1
		tab_1.tabpage_1.dw_2.SetColumn("a_qymchz_nzczb")		
	case 4
		tab_1.tabpage_2.dw_3.Setitem(tab_1.tabpage_2.dw_3.getrow(),"tzje",0)
		tab_1.tabpage_2.dw_3.SetColumn("tzje")		
	case 5
		tab_1.tabpage_2.dw_3.setcolumn("gdmc")
end choose
end event

event rowfocuschanged;//datetime hzrq
//hzrq=getitemdatetime(dw_1,getrow(dw_1),7)
//	SETITEM(tab_1.tabpage_2.dw_3,getrow(tab_1.tabpage_2.dw_3),3,nbxh)
//	setitem(tab_1.tabpage_2.dw_3,getrow(tab_1.tabpage_2.dw_3),2,hzrq)
end event

event itemchanged;decimal ldec_nzczb
string ls_cloname
long ll_i,ll_row
decimal ldec_hh
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
ls_cloname=this.GetColumnName( ) 
ldec_nzczb=getitemnumber(tab_1.tabpage_1.dw_2,getrow(tab_1.tabpage_1.dw_2),'a_qymchz_nzczb')
if ls_cloname='tzje' then
	tab_1.tabpage_2.dw_3.accepttext()
	if ldec_nzczb=0 then
		Messagebox("提 示 信 息","注册资本未输入!~n请先输入注册资本!")
		this.Postevent("user_post",2,0)
	else
		if Dec(data)>ldec_nzczb then
			Messagebox("提 示 信 息","出资额不能大于注册资本!")
			this.Postevent("user_post",4,0)
		else
			ll_i=1
			ldec_hh=0
			ll_row=tab_1.tabpage_2.dw_3.rowcount()
			do while ll_i <= ll_row
	  			ldec_hh=ldec_hh+tab_1.tabpage_2.dw_3.getitemdecimal(ll_i,"tzje")
				ll_i=ll_i+1
			loop	
			if ldec_hh > ldec_nzczb then
				messagebox("提示","所有输入的股东的投资金额总数已超过该企业的注册资本！")
				this.Postevent("user_post",4,0)
			else	
				tab_1.tabpage_2.dw_3.setitem(row,'tzbl',(Dec(data)/ldec_nzczb)*100)
			end if	
		end if
	end if
end if
if ls_cloname='tzbl' then
	if ldec_nzczb=0 then
		Messagebox("提 示 信 息","注册资本未输入!~n请先输入注册资本!")
		this.Postevent("user_post",3,0)
	end if
end if		
if ls_cloname='gdmc' then
	this.Postevent("user_post",1,0)
end if
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