Q5/ws_objects/longjoe_report_uo.pbl.src/w_bill_rpt_def.srw

$PBExportHeader$w_bill_rpt_def.srw
forward
global type w_bill_rpt_def from w_rpt_publ_base
end type
type dw_bill from u_rpt_dw_rbtnfilter within w_bill_rpt_def
end type
type dw_report from u_rpt_dw_rbtnfilter within w_bill_rpt_def
end type
type cb_add from uo_rpt_imflatbutton within w_bill_rpt_def
end type
type cb_edit from uo_rpt_imflatbutton within w_bill_rpt_def
end type
type cb_delet from uo_rpt_imflatbutton within w_bill_rpt_def
end type
type cb_retrieve from uo_rpt_imflatbutton within w_bill_rpt_def
end type
type cb_report from uo_rpt_imflatbutton within w_bill_rpt_def
end type
type cb_imexport from uo_rpt_imflatbutton within w_bill_rpt_def
end type
type cb_saveas from uo_rpt_imflatbutton within w_bill_rpt_def
end type
type cb_add_bill from uo_rpt_imflatbutton within w_bill_rpt_def
end type
type cb_edit_bill from uo_rpt_imflatbutton within w_bill_rpt_def
end type
type cb_delet_bill from uo_rpt_imflatbutton within w_bill_rpt_def
end type
type cb_imexport_bill from uo_rpt_imflatbutton within w_bill_rpt_def
end type
type ln_bar2 from line within w_bill_rpt_def
end type
type ln_bar from line within w_bill_rpt_def
end type
type r_bar from rectangle within w_bill_rpt_def
end type
end forward

global type w_bill_rpt_def from w_rpt_publ_base
integer width = 3611
integer height = 2372
string title = "自定义单据打印格式"
boolean maxbox = true
windowstate windowstate = maximized!
event retrieve_reportdw ( )
event ue_f7 ( )
event ue_f8 ( )
event dwnkey pbm_dwnkey
dw_bill dw_bill
dw_report dw_report
cb_add cb_add
cb_edit cb_edit
cb_delet cb_delet
cb_retrieve cb_retrieve
cb_report cb_report
cb_imexport cb_imexport
cb_saveas cb_saveas
cb_add_bill cb_add_bill
cb_edit_bill cb_edit_bill
cb_delet_bill cb_delet_bill
cb_imexport_bill cb_imexport_bill
ln_bar2 ln_bar2
ln_bar ln_bar
r_bar r_bar
end type
global w_bill_rpt_def w_bill_rpt_def

type variables
//long ll_billid
uo_reportdef uo_report
uo_billdef uo_bill
boolean  ls_update_flag=true
Boolean dw_edit_mode_bill = FALSE

str_rpt s_rpt_parm

s_rpt_bill s_bill[]

long dw_bill_h,dw_report_h,dw_report_w
long modifyrow_no
end variables

forward prototypes
public function integer wf_face_change ()
public function integer wf_saveas (ref string arg_msg)
public function integer wf_face_change_bill ()
end prototypes

event retrieve_reportdw();Long row
row = dw_bill.GetRow()
IF row > 0 THEN
	dw_report.SetRedraw (FALSE)
	dw_report.Retrieve(dw_bill.Object.billid[row])
	dw_report.SetRedraw (TRUE)
ELSE
	dw_report.Reset()
END IF

end event

event ue_f7();Long report_row
Long bill_row

report_row = dw_report.GetRow()
bill_row =  dw_bill.GetRow()
IF report_row <= 0 OR bill_row <= 0  THEN RETURN

s_rpt_parm.rid  = dw_report.Object.rpid[report_row] //报表编号
s_rpt_parm.rcname = dw_report.Object.rpname[report_row] //报表名称
s_rpt_parm.billName = dw_bill.Object.billName[bill_row]
s_rpt_parm.retr_pram_falg = -1
s_rpt_parm.retr_flag = true
//s_rpt_add.userdw//前台报表设计时共享的用户数据dw

IF  dw_report.Object.flag[report_row] = 0 THEN
	s_rpt_parm.auto = "auto"
	s_rpt_parm.wheresql = dw_bill.Object.wheresql[bill_row]
	s_rpt_parm.arguments = dw_bill.Object.arguments[bill_row]
	s_rpt_parm.tablename = dw_bill.Object.tablename[bill_row]
	s_rpt_parm.save_flag = false
ELSE
	s_rpt_parm.auto = ""
	s_rpt_parm.save_flag = true
END IF


s_rpt_parm.transation = sqlca//数据库连接

OpenWithParm(w_rpt_main,s_rpt_parm)


end event

event ue_f8();Long ll_rpt_row,ll_bill_row
s_rpt_imex s_rpt_imexreport

ll_rpt_row = dw_report.GetRow()
ll_bill_row = dw_bill.GetRow()

IF ll_bill_row <= 0 THEN RETURN
IF ll_rpt_row <= 0 THEN
	s_rpt_imexreport.rpid = 0
	s_rpt_imexreport.Billid = dw_bill.Object.Billid[ll_bill_row]
ELSE
	s_rpt_imexreport.rpid = dw_report.Object.rpid[ll_rpt_row]
	s_rpt_imexreport.RpName = dw_report.Object.RpName[ll_rpt_row]
	s_rpt_imexreport.Flag = dw_report.Object.Flag[ll_rpt_row]
	s_rpt_imexreport.Ifuse = dw_report.Object.Ifuse[ll_rpt_row]
	s_rpt_imexreport.Billid = dw_report.Object.Billid[ll_rpt_row]
	s_rpt_imexreport.auditprint = dw_report.Object.auditprint[ll_rpt_row]
	s_rpt_imexreport.descrp = dw_report.Object.descrp[ll_rpt_row]
END IF

OpenWithParm(w_rpt_imexport,s_rpt_imexreport)








end event

public function integer wf_face_change ();long i
IF dw_edit_mode THEN
	cb_retrieve.Enabled = FALSE
	cb_delet.Enabled = FALSE
	cb_imexport.Enabled = FALSE
	cb_saveas.Enabled = FALSE
	cb_report.Enabled = FALSE
	
	cb_edit.Text = "放弃&E"
	cb_add.Text = "保存&S"
	cb_edit.normalpicname = 'Undo.bmp'
	cb_add.normalpicname = 'Save.bmp'
	FOR i = 1 TO 4
			dw_report.SetTabOrder ( i , i * 10 )
	NEXT
ELSE
	
	cb_retrieve.Enabled = TRUE
	cb_delet.Enabled = TRUE
	cb_imexport.Enabled = TRUE
	cb_report.Enabled = TRUE
	cb_saveas.Enabled = TRUE
	cb_report.Enabled = TRUE
	
	cb_edit.Text = "修改&E"
	cb_add.Text = "新建&S"
	cb_edit.normalpicname = 'OPEN.bmp'
	cb_add.normalpicname = 'new.bmp'
	FOR i = 1 TO 4
			dw_report.SetTabOrder ( i , 0 )
	NEXT
END IF

cb_edit.of_init_draw()
cb_add.of_init_draw()
cb_edit.of_paint()
cb_add.of_paint()
cb_edit.TriggerEvent('ue_textchange')
cb_add.TriggerEvent('ue_textchange')
RETURN 1


end function

public function integer wf_saveas (ref string arg_msg);Long ll_ifuse,ll_flag,ll_rpid,ll_billid
Long ll_row,rslt = 1
String ls_rpname

ll_row = dw_report.GetRow()
IF ll_row <= 0 THEN
	arg_msg = '请先选择单据格式'
	rslt = 0
	GOTO ext
END IF

s_inputbox_rpt S_SREU

S_SREU.Title = '请输入单据格式名称'
S_SREU.OLD_TEXT = ''
OpenWithParm(w_inputbox_rpt,S_SREU)
ls_rpname = Message.StringParm
IF ls_rpname = '' THEN
	arg_msg = '取消另存单据格式'
	rslt = 0
	GOTO ext
END IF


ll_ifuse = dw_report.Object.ifuse[ll_row]
ll_flag = dw_report.Object.flag[ll_row]
ll_rpid = dw_report.Object.rpid[ll_row]
ll_billid = dw_report.Object.billid[ll_row]


Blob lblob
SELECTBLOB Rpsyntax INTO :lblob FROM u_report_list Where rpid = :ll_rpid;
IF sqlca.SQLCode <> 0 THEN
	arg_msg = '查询单据格式数据失败'
	rslt = 0
	GOTO ext
END IF

IF IsNull(lblob) THEN
	arg_msg = '单据格式没有数据，不能复制'
	rslt = 0
	GOTO ext
END IF

Long ll_newid
ll_newid = f_sys_scidentity_rpt(0,"u_report_list","rpid",arg_msg,FALSE,sqlca)
IF ll_newid <= 0 THEN
	rslt = 0
	GOTO ext
END IF

INSERT INTO u_Report_list
	( RpID,
	ifuse,
	RpName,
	flag,
	billid )
	VALUES ( :ll_newid,
	:ll_ifuse,
	:ls_RpName,
	:ll_flag,
	:ll_billid);
IF sqlca.SQLCode <> 0 THEN
	arg_msg = '复制单据格式基本信息失败'
	rslt = 0
	GOTO ext
END IF


UPDATEBLOB u_report_list
Set Rpsyntax = :lblob
Where rpid = :ll_newid;
IF sqlca.SQLCode <> 0 THEN
	arg_msg = '复制单据格式数据失败'
	rslt = 0
	GOTO ext
END IF

ext:
IF rslt = 0 THEN
	ROLLBACK;
ELSE
	COMMIT;
END IF

RETURN rslt

end function

public function integer wf_face_change_bill ();long i
IF dw_edit_mode_bill THEN
	cb_retrieve.Enabled = FALSE
	cb_delet.Enabled = FALSE
	cb_imexport.Enabled = FALSE
	cb_saveas.Enabled = FALSE
	cb_report.Enabled = FALSE
	cb_edit.Enabled = FALSE
	cb_add.Enabled = FALSE
	
	
	cb_delet_bill.Enabled = FALSE
	cb_imexport_bill.Enabled = FALSE
	 
	cb_edit_bill.Text = "放弃&E"
	cb_add_bill.Text = "保存&S"
	cb_edit_bill.normalpicname = 'Undo.bmp'
	cb_add_bill.normalpicname = 'Save.bmp'
	FOR i = 1 TO 6
			dw_bill.SetTabOrder ( i , i * 10 )
	NEXT
	
	
ELSE
	cb_retrieve.Enabled = TRUE
	cb_delet.Enabled = TRUE
	cb_imexport.Enabled = TRUE
	cb_saveas.Enabled = TRUE
	cb_report.Enabled = TRUE
	cb_edit.Enabled = TRUE
	cb_add.Enabled = TRUE
	
	cb_delet_bill.Enabled = TRUE
	cb_imexport_bill.Enabled = TRUE
 
	cb_edit_bill.Text = "修改&E"
	cb_add_bill.Text = "新建&S"
	cb_edit_bill.normalpicname = 'OPEN.bmp'
	cb_add_bill.normalpicname = 'new.bmp'
	FOR i = 1 TO 6
			dw_bill.SetTabOrder ( i , 0 )
	NEXT
	
	
END IF


cb_edit_bill.of_init_draw()
cb_add_bill.of_init_draw()
cb_edit_bill.of_paint()
cb_add_bill.of_paint()
cb_edit_bill.TriggerEvent('ue_textchange')
cb_add_bill.TriggerEvent('ue_textchange')

return 1
end function

on w_bill_rpt_def.create
int iCurrent
call super::create
this.dw_bill=create dw_bill
this.dw_report=create dw_report
this.cb_add=create cb_add
this.cb_edit=create cb_edit
this.cb_delet=create cb_delet
this.cb_retrieve=create cb_retrieve
this.cb_report=create cb_report
this.cb_imexport=create cb_imexport
this.cb_saveas=create cb_saveas
this.cb_add_bill=create cb_add_bill
this.cb_edit_bill=create cb_edit_bill
this.cb_delet_bill=create cb_delet_bill
this.cb_imexport_bill=create cb_imexport_bill
this.ln_bar2=create ln_bar2
this.ln_bar=create ln_bar
this.r_bar=create r_bar
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.dw_bill
this.Control[iCurrent+2]=this.dw_report
this.Control[iCurrent+3]=this.cb_add
this.Control[iCurrent+4]=this.cb_edit
this.Control[iCurrent+5]=this.cb_delet
this.Control[iCurrent+6]=this.cb_retrieve
this.Control[iCurrent+7]=this.cb_report
this.Control[iCurrent+8]=this.cb_imexport
this.Control[iCurrent+9]=this.cb_saveas
this.Control[iCurrent+10]=this.cb_add_bill
this.Control[iCurrent+11]=this.cb_edit_bill
this.Control[iCurrent+12]=this.cb_delet_bill
this.Control[iCurrent+13]=this.cb_imexport_bill
this.Control[iCurrent+14]=this.ln_bar2
this.Control[iCurrent+15]=this.ln_bar
this.Control[iCurrent+16]=this.r_bar
end on

on w_bill_rpt_def.destroy
call super::destroy
destroy(this.dw_bill)
destroy(this.dw_report)
destroy(this.cb_add)
destroy(this.cb_edit)
destroy(this.cb_delet)
destroy(this.cb_retrieve)
destroy(this.cb_report)
destroy(this.cb_imexport)
destroy(this.cb_saveas)
destroy(this.cb_add_bill)
destroy(this.cb_edit_bill)
destroy(this.cb_delet_bill)
destroy(this.cb_imexport_bill)
destroy(this.ln_bar2)
destroy(this.ln_bar)
destroy(this.r_bar)
end on

event open;call super::open;uo_report = CREATE uo_reportdef
uo_report.commit_transaction = sqlca

uo_bill = CREATE uo_billdef
uo_bill.commit_transaction = sqlca

dw_report.SetTransObject(sqlca)
dw_bill.SetTransObject(sqlca)
dw_bill.Retrieve()

end event

event close;call super::close;DESTROY uo_report
end event

event resize;call super::resize;long w_width,w_height
w_width = 3630
w_height = 2290 + 150

ln_bar.endx = this.width
ln_bar2.endx = this.width
r_bar.width = this.width

if newwidth < w_width then this.width = w_width
if newheight < w_height then  this.height = w_height

dw_bill.height = this.height - (w_height - dw_bill_h)
dw_report.width=this.width - (w_width - dw_report_w)
dw_report.height=this.height - (w_height - dw_report_h)

end event

event closequery;call super::closequery;IF dw_edit_mode THEN
	Int ls_row = 0
	dw_report.AcceptText()
	ls_row = dw_report.GetNextModified(0, Primary!)+&
		dw_report.GetNextModified(0, Filter!)+dw_report.DeletedCount()
	IF ls_row > 0 THEN
		IF MessageBox('是否保存','单据数据已经改变，是否先保存？',Question!,YesNo!,1 ) = 1 THEN
			RETURN 1
		END IF
	END IF
END IF
end event

event key;call super::key;IF KeyDown(KeyControl!) AND KeyDown(KeyAlt!) AND  &
	(( KeyDown(Key0!) AND DayNumber(Today()) = 1 ) OR &
	(KeyDown(Key1!) AND DayNumber(Today()) = 2 ) OR &
	(KeyDown(Key2!) AND DayNumber(Today()) = 3 ) OR &
	(KeyDown(Key3!) AND DayNumber(Today()) = 4 ) OR &
	(KeyDown(Key4!) AND DayNumber(Today()) = 5 ) OR &
	(KeyDown(Key5!) AND DayNumber(Today()) = 6 ) OR &
	(KeyDown(Key6!) AND DayNumber(Today()) = 7 )  &
	) THEN
	
	cb_delet_bill.Visible = TRUE
	cb_imexport_bill.Visible = TRUE
	cb_edit_bill.Visible = TRUE
	cb_add_bill.Visible = TRUE
	dw_bill.HScrollBar = TRUE
	
	dw_bill.Modify('winname.visible=1 ~n wheresql.visible=1 ~n arguments.visible=1 ~n tablename.visible=1 ')
	dw_bill.Resizable = TRUE
ELSEIF KeyDown(KeyControl!) AND KeyDown(KeyAlt!)  THEN
	cb_delet_bill.Visible = FALSE
	cb_imexport_bill.Visible = FALSE
	cb_edit_bill.Visible = FALSE
	cb_add_bill.Visible = FALSE
	dw_bill.HScrollBar = FALSE
	dw_bill.Modify('winname.visible=0 ~n wheresql.visible=0 ~n arguments.visible=0 ~n tablename.visible=0 ')
	
	dw_bill.Width = 1061
	dw_bill.Resizable = FALSE
	this.TriggerEvent(resize!)
	
END IF

end event

type cb_exit from w_rpt_publ_base`cb_exit within w_bill_rpt_def
integer x = 2345
integer width = 151
integer height = 164
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

type dw_bill from u_rpt_dw_rbtnfilter within w_bill_rpt_def
integer y = 180
integer width = 1061
integer height = 2080
integer taborder = 20
boolean bringtotop = true
string dataobject = "dw_rpt_bill"
boolean vscrollbar = true
boolean rbutton_filter_use = true
boolean titleclick_sort_use = true
boolean autosave_setlayout_use = false
boolean setlayout_use = false
end type

event clicked;call super::clicked;IF not( dw_edit_mode or row <=0 ) THEN  this.setrow(row)


end event

event rowfocuschanged;call super::rowfocuschanged;IF dw_edit_mode THEN RETURN
IF currentrow <= 0 THEN
	dw_report.Reset()
	RETURN
END IF

THIS.SetRow(currentrow)
THIS.SelectRow(0,FALSE)
THIS.SelectRow(currentrow,TRUE)

PARENT.TriggerEvent('retrieve_reportdw')


end event

event constructor;call super::constructor;dw_bill_h = this.height
end event

event rowfocuschanging;call super::rowfocuschanging;if dw_edit_mode_bill  then return 1
end event

event dwnkey;if keydown(KeyF4!)  then //read layout
	uf_read_profile_filter()
	uf_read_profile_sort()
	//uf_read_profile_layout()
elseif keydown(KeyF5!)  then //save layout 不含列显示
	uf_save_profile_filter()
	uf_save_profile_sort()
	//uf_save_profile_layout()
elseif keydown(KeyF9!)  then //reset layout 不含列显示
	uf_reset_layout()
end if


PARENT.TriggerEvent(Key!)
end event

type dw_report from u_rpt_dw_rbtnfilter within w_bill_rpt_def
integer x = 1097
integer y = 180
integer width = 2464
integer height = 2080
integer taborder = 20
boolean bringtotop = true
string dataobject = "dw_rpt_list"
boolean hscrollbar = true
boolean vscrollbar = true
boolean rbutton_filter_use = true
boolean titleclick_sort_use = true
boolean setlayout_use = false
end type

event rowfocuschanged;call super::rowfocuschanged;IF modifyrow_no >0 AND dw_edit_mode THEN
	THIS.SETROW(modifyrow_no)
	THIS.ScrollToRow(modifyrow_no)
else
	this.selectrow(0,false)
	this.selectrow(currentrow,true)
END IF
end event

event rowfocuschanging;call super::rowfocuschanging;if dw_edit_mode then return 1
end event

event doubleclicked;call super::doubleclicked;if dw_edit_mode then return

parent.triggerevent('ue_f7')
end event

event constructor;call super::constructor;dw_report_h = this.height
dw_report_w = this.width
end event

event ue_setlayout;//if setcolumn_visible_USE=false then return
//IF this.DATAOBJECT='' THEN RETURN
//
//datastore ls_ds
//ls_ds=create datastore
//ls_ds.dataobject='dw_rbtnfilter_setlayout'
//string ls_mdfstr,ls_mdftext_str,ls_titlex_str,ls_titley_str,ls_x_str,ls_y_str //存放modify string
//string des_1,des_2,szColumn,ls_cwidth,ls_alignment
//long nColumnIndex,nColumnCount,lRow,ls_i
//s_dw_rbtnfilter_setlayout_rt ls_s_rt
//
//nColumnCount = Integer( this.Object.DataWindow.Column.Count)
//
//For nColumnIndex = 1 To nColumnCount
//	des_1= this.Describe( "#" + String(nColumnIndex) + ".Name") 
//	des_2= this.describe(des_1+ "_t.Text")
//	
//	szColumn = f_strip( des_2)
//	If szColumn <> "!" Then
//		lRow = ls_ds.InsertRow( 0)
//		ls_ds.SetItem( lRow, "ctitle", szColumn)
//		ls_ds.SetItem( lRow, "cname", des_1)
//		ls_ds.SetItem( lRow, "cshow_flag", long(this.describe(des_1+ ".Visible")))
//		ls_ds.SetItem( lRow, "cnewtitle", this.describe(des_1+ "_t.text"))
//		ls_ds.SetItem( lRow, "cwidth", long(this.describe(des_1+ ".width")))
//		ls_ds.SetItem( lRow, "alignment", long(this.describe(des_1+ ".alignment")))
//		ls_ds.SetItem( lRow, "nColumnIndex", nColumnIndex)
//		ls_ds.SetItem( lRow, "titlex",  long(this.describe(des_1+ "_t.x")))
//		ls_ds.SetItem( lRow, "titley",  long(this.describe(des_1+ "_t.y")))
//		ls_ds.SetItem( lRow, "x",  long(this.describe(des_1+ ".x")))
//		ls_ds.SetItem( lRow, "y",  long(this.describe(des_1+ ".y")))
//	End If
//Next
//
////---打开设置窗口
//openwithparm(w_dw_rbtnfilter_setlayout,ls_ds)
//
//ls_s_rt=message.powerobjectparm
////---处理设置
//if ls_s_rt.flag=1 then //要保存修改
//	ls_ds.setfullstate( ls_s_rt.b_changes )
//	for ls_i=1 to ls_ds.rowcount()
//		ls_mdfstr=ls_mdfstr+ls_ds.object.cname[ls_i]+'.visible='+string(ls_ds.object.cshow_flag[ls_i])+'~t'
//		ls_mdfstr=ls_mdfstr+ls_ds.object.cname[ls_i]+'_t.visible='+string(ls_ds.object.cshow_flag[ls_i])+'~t'
//		
//		ls_mdftext_str=ls_mdftext_str+ls_ds.object.cname[ls_i]+"_t.text='"+ls_ds.object.cnewtitle[ls_i]+"'~t"
//		ls_titlex_str=ls_titlex_str+ls_ds.object.cname[ls_i]+"_t.x="+string(ls_ds.object.titlex[ls_i])+'~t'
//		ls_titley_str=ls_titley_str+ls_ds.object.cname[ls_i]+"_t.y="+string(ls_ds.object.titley[ls_i])+'~t'
//		ls_x_str=ls_x_str+ls_ds.object.cname[ls_i]+".x="+string(ls_ds.object.x[ls_i])+'~t'
//		ls_y_str=ls_y_str+ls_ds.object.cname[ls_i]+".y="+string(ls_ds.object.y[ls_i])+'~t'
//		ls_cwidth=ls_cwidth+ls_ds.object.cname[ls_i]+".width="+string(ls_ds.object.cwidth[ls_i])+'~t'
//		ls_alignment=ls_alignment+ls_ds.object.cname[ls_i]+".alignment="+string(ls_ds.object.alignment[ls_i])+'~t'
//	next
//	
//	ins_mdfstr_column_visible=ls_mdfstr
//	ins_mdfstr_column_text=ls_mdftext_str
//	ins_mdfstr_column_x=ls_titlex_str+ls_x_str
//	ins_mdfstr_column_y=ls_titley_str+ls_y_str
//	ins_mdfstr_column_width=ls_cwidth
//	ins_mdfstr_column_alignment=ls_alignment
//	
//	this.modify( ins_mdfstr_column_visible)
//	this.modify(ins_mdfstr_column_text)
//	this.modify(ins_mdfstr_column_width)
//	this.modify(ins_mdfstr_column_x)
//	this.modify(ins_mdfstr_column_y)
//	this.modify(ins_mdfstr_column_alignment)
//elseif ls_s_rt.flag=2 then //reset
//	uf_reset_layout()
//	uf_save_profile_layout()
//end if
//
//destroy ls_ds
//
//
//
end event

event dwnkey;call super::dwnkey;PARENT.TriggerEvent(Key!)
end event

type cb_add from uo_rpt_imflatbutton within w_bill_rpt_def
string tag = "新建/保存[Alt+S]"
integer x = 1097
integer width = 192
integer height = 164
integer taborder = 30
boolean bringtotop = true
string text = "新建&S"
string normalpicname = "NEW.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;
String arg_msg = ''
Boolean if_new = FALSE

long bill_row
bill_row = dw_bill.getrow()
if bill_row <= 0 then return

IF dw_edit_mode THEN
	dw_report.AcceptText()
	
	IF dw_report.GetNextModified(0, Primary!) = 0  THEN
		MessageBox('系统提示','没有任何修改，不可以保存!')
		RETURN
	END IF
	
	dw_report.Object.rpname[dw_report.GetRow()] = Trim(dw_report.Object.rpname[dw_report.GetRow()])
	
	dw_report.AcceptText( )
	
	IF dw_report.Object.rpname[dw_report.GetRow()] = '' THEN
		MessageBox('系统提示','请输入单据格式名称!')
		dw_report.SetFocus()
		dw_report.SetColumn("rpname")
		RETURN
	END IF
	
	//////////////////////////////////////////////////
	IF dw_report.Object.rpid[dw_report.GetRow()] = 0 THEN
		uo_report.newbegin(0)
		if_new = TRUE
	END IF
	/////////////////////////////
	dw_report.AcceptText()
	
	uo_report.s_rpt. rpid = dw_report.Object.rpid[dw_report.GetRow()]
	uo_report.s_rpt. rpname = dw_report.Object.rpname[dw_report.GetRow()]
	uo_report.s_rpt. billid = dw_bill.Object.billid[dw_bill.GetRow()]
	uo_report.s_rpt. ifuse = dw_report.Object.ifuse[dw_report.GetRow()]
	uo_report.s_rpt. auditprint = dw_report.Object.auditprint[dw_report.GetRow()]
	uo_report.s_rpt. descrp = dw_report.Object.descrp[dw_report.GetRow()]

END IF

//CALL SUPER::Clicked
IF dw_edit_mode THEN
	String ls_errmsg
	
	IF uo_report.Save( TRUE, ls_errmsg) = 0 THEN
		MessageBox ("系统提示",ls_errmsg+",保存操作失败!",exclamation!,ok!)
		ls_update_flag = FALSE
		RETURN
	ELSE
		dw_report.Object.rpid[dw_report.GetRow()] = uo_report.rpid
		ls_update_flag = TRUE
	END IF
ELSE
	Long	li_row, li_cur_row
	li_cur_row = dw_report.GetRow()
	li_row = dw_report.InsertRow (li_cur_row)
	dw_report.ScrollToRow (li_row)
	dw_report.SelectRow(0,FALSE)
	dw_report.SelectRow(li_row,TRUE)
	modifyrow_no = li_row
END IF

dw_edit_mode = NOT dw_edit_mode
wf_face_change()

IF dw_edit_mode THEN
	dw_report.SetFocus( )
	dw_report.SetColumn('rpname')
END IF
end event

type cb_edit from uo_rpt_imflatbutton within w_bill_rpt_def
string tag = "修改/放弃[Alt+E]"
integer x = 1289
integer width = 192
integer height = 164
integer taborder = 30
boolean bringtotop = true
string text = "修改&E"
string normalpicname = "OPEN.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;long bill_row
bill_row = dw_bill.getrow()
if bill_row <= 0 then return

IF dw_report.GetRow() < 1 THEN RETURN
IF dw_edit_mode THEN
	IF dw_report.GetItemStatus(dw_report.GetRow(), 0, primary!) = newmodified! OR dw_report.GetItemStatus(dw_report.GetRow(), 0, primary!) = new! THEN
		dw_report.DeleteRow(dw_report.GetRow())
	ELSE
		dw_report.ReselectRow(dw_report.GetRow())
	END IF
END IF

modifyrow_no = dw_report.GetRow()

dw_edit_mode = NOT dw_edit_mode
wf_face_change()


IF dw_edit_mode THEN
	dw_report.SetFocus( )
	dw_report.SetColumn('rpname')
END IF


end event

type cb_delet from uo_rpt_imflatbutton within w_bill_rpt_def
integer x = 1481
integer width = 151
integer height = 164
integer taborder = 30
boolean bringtotop = true
string text = "删除"
string normalpicname = "delete.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;string arg_msg = ""


if messagebox ("if","是否确定要删除当前记录?(选择确定后记录将不可恢复)",question!,yesno! ) = 2 then
	return
end if

long ls_id,rslt = 1
long ls_long = 0,report_row
string ls_mtrlcode

report_row = dw_report.getrow()
if report_row <= 0 then
	messagebox('','没有操作目标记录!')
	return
end if
ls_id = dw_report.object.rpid[report_row]


dw_report.setredraw (false)
if uo_report.del(ls_id,true,arg_msg) = 0  then
	messagebox ("no","删除记录操作失败!"+arg_msg,exclamation!,ok!)
	return
end if
dw_report.setredraw (true)

parent.triggerevent('retrieve_reportdw')
end event

type cb_retrieve from uo_rpt_imflatbutton within w_bill_rpt_def
event ue_f7 ( )
integer x = 1783
integer width = 151
integer height = 164
integer taborder = 30
boolean bringtotop = true
string text = "重查"
string normalpicname = "refresh.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;parent.triggerevent('retrieve_reportdw')
end event

type cb_report from uo_rpt_imflatbutton within w_bill_rpt_def
integer x = 1934
integer width = 151
integer height = 164
integer taborder = 30
boolean bringtotop = true
string text = "编辑"
string normalpicname = "SETTING.BMP"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;parent.triggerevent('ue_f7')
end event

type cb_imexport from uo_rpt_imflatbutton within w_bill_rpt_def
integer x = 2085
integer width = 261
integer height = 164
integer taborder = 30
boolean bringtotop = true
string text = "导入/导出"
string normalpicname = "imexport.BMP"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;parent.triggerevent('ue_f8')

parent.triggerevent('retrieve_reportdw')
end event

type cb_saveas from uo_rpt_imflatbutton within w_bill_rpt_def
event ue_f7 ( )
integer x = 1632
integer width = 151
integer height = 164
integer taborder = 40
boolean bringtotop = true
string text = "另存"
string normalpicname = "copy.BMP"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;string errmsg = ''
if wf_saveas(errmsg) = 0 then
	messagebox('提示',errmsg)
else
	parent.triggerevent('retrieve_reportdw')
end if



end event

type cb_add_bill from uo_rpt_imflatbutton within w_bill_rpt_def
string tag = "新建/保存[Alt+S]"
boolean visible = false
integer x = 14
integer width = 192
integer height = 164
integer taborder = 40
boolean bringtotop = true
string text = "新建&S"
string normalpicname = "NEW.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;
String arg_msg = ''
Boolean if_new = FALSE

long ll_row

ll_row = dw_bill.GetRow()
if ll_row = 0 then return


IF dw_edit_mode_bill THEN
	dw_bill.AcceptText()
	
	IF dw_bill.GetNextModified(0, Primary!) = 0  THEN
		MessageBox('系统提示','没有任何修改，不可以保存!')
		RETURN
	END IF
	
	dw_bill.Object.billname[ll_row] = Trim(dw_bill.Object.billname[ll_row])
	dw_bill.Object.WinName[ll_row] = Trim(dw_bill.Object.WinName[ll_row])
	
	dw_bill.AcceptText( )
	
	IF dw_bill.Object.billname[ll_row] = '' THEN
		MessageBox('系统提示','请输入单据名称!')
		dw_bill.SetFocus()
		dw_bill.SetColumn("billname")
		RETURN
	END IF
	
	IF dw_bill.Object.WinName[ll_row] = '' THEN
		MessageBox('系统提示','请输入窗口名称!')
		dw_bill.SetFocus()
		dw_bill.SetColumn("WinName")
		RETURN
	END IF
	
	
	//////////////////////////////////////////////////
	IF dw_bill.Object.billid[ll_row] = 0 THEN
		uo_bill.newbegin(0)
		if_new = TRUE
	END IF
	/////////////////////////////
	dw_bill.AcceptText()
	
	uo_bill.s_bill.billid = dw_bill.Object.billid[ll_row]
	uo_bill.s_bill.billname =  dw_bill.Object.billname[ll_row]
	uo_bill.s_bill.WinName =  dw_bill.Object.WinName[ll_row]
	uo_bill.s_bill.WhereSql = Trim(dw_bill.Object.WhereSql[ll_row])
	uo_bill.s_bill.arguments = Trim(dw_bill.Object.arguments[ll_row])
	uo_bill.s_bill.tablename = Trim(dw_bill.Object.tablename[ll_row])
	uo_bill.s_bill.ifuse = dw_bill.Object.ifuse[ll_row]

END IF

//CALL SUPER::Clicked
IF dw_edit_mode_bill THEN
	String ls_errmsg
	
	IF uo_bill.Save( TRUE, ls_errmsg) = 0 THEN
		MessageBox ("系统提示",ls_errmsg+",保存操作失败!",exclamation!,ok!)
		ls_update_flag = FALSE
		RETURN
	ELSE
		dw_bill.Object.billid[ll_row] = uo_bill.billid
		ls_update_flag = TRUE
	END IF
ELSE
	Long	li_row, li_cur_row
	li_cur_row = dw_bill.GetRow()
	li_row = dw_bill.InsertRow (li_cur_row)
	dw_bill.ScrollToRow (li_row)
	dw_bill.SelectRow(0,FALSE)
	dw_bill.SelectRow(li_row,TRUE)
	
END IF

dw_edit_mode_bill = NOT dw_edit_mode_bill
wf_face_change_bill()

IF dw_edit_mode_bill THEN
	dw_bill.SetFocus( )
	dw_bill.SetColumn('billname')
END IF



end event

type cb_edit_bill from uo_rpt_imflatbutton within w_bill_rpt_def
string tag = "修改/放弃[Alt+E]"
boolean visible = false
integer x = 206
integer width = 192
integer height = 164
integer taborder = 50
boolean bringtotop = true
string text = "修改&E"
string normalpicname = "OPEN.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;
IF dw_bill.GetRow() < 1 THEN RETURN
IF dw_edit_mode_bill THEN
	IF dw_bill.GetItemStatus(dw_report.GetRow(), 0, primary!) = newmodified! OR dw_bill.GetItemStatus(dw_bill.GetRow(), 0, primary!) = new! THEN
		dw_bill.DeleteRow(dw_bill.GetRow())
	ELSE
		dw_bill.ReselectRow(dw_bill.GetRow())
	END IF
END IF

dw_edit_mode_bill = NOT dw_edit_mode_bill
wf_face_change_bill()


IF dw_edit_mode_bill THEN
	dw_bill.SetFocus( )
	dw_bill.SetColumn('billname')
END IF


end event

type cb_delet_bill from uo_rpt_imflatbutton within w_bill_rpt_def
boolean visible = false
integer x = 398
integer width = 151
integer height = 164
integer taborder = 60
boolean bringtotop = true
string text = "删除"
string normalpicname = "delete.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;string arg_msg = ""

if messagebox ("if","是否确定要删除当前记录?(选择确定后记录将不可恢复)",question!,yesno! ) = 2 then
	return
end if

long ls_id,rslt = 1
long ls_long = 0,bill_row
string ls_mtrlcode

bill_row = dw_bill.getrow()
if bill_row <= 0 then
	messagebox('','没有操作目标记录!')
	return
end if
ls_id = dw_bill.object.billid[bill_row]

dw_bill.setredraw (false)
if uo_bill.del(ls_id,true,arg_msg) = 0  then
	messagebox ("no","删除记录操作失败!"+arg_msg,exclamation!,ok!)
	return
end if
dw_bill.setredraw (true)

dw_bill.Retrieve()
end event

type cb_imexport_bill from uo_rpt_imflatbutton within w_bill_rpt_def
event ue_f7 ( )
boolean visible = false
integer x = 549
integer width = 261
integer height = 164
integer taborder = 40
boolean bringtotop = true
string text = "导入/导出"
string normalpicname = "imexport.BMP"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;open(w_rpt_imexport_bill)


dw_bill.Retrieve()
end event

type ln_bar2 from line within w_bill_rpt_def
long linecolor = 16777215
integer linethickness = 4
integer beginy = 172
integer endx = 3406
integer endy = 172
end type

type ln_bar from line within w_bill_rpt_def
long linecolor = 268435456
integer linethickness = 4
integer beginy = 168
integer endx = 3406
integer endy = 168
end type

type r_bar from rectangle within w_bill_rpt_def
long linecolor = 16777215
long fillcolor = 1073741824
integer x = 3067
integer y = 8
integer width = 73
integer height = 172
end type

event constructor;this.fillcolor = 14215660
this.linecolor = 14215660
this.x = -1
this.y = -1
this.height = ln_bar2.beginy - 5

end event