Q5/ws_objects/Ew_money.pbl.src/w_rapmoney_add_del.srw

$PBExportHeader$w_rapmoney_add_del.srw
forward
global type w_rapmoney_add_del from w_publ_base
end type
type dw_1 from datawindow within w_rapmoney_add_del
end type
type cb_2 from uo_imflatbutton within w_rapmoney_add_del
end type
type cb_1 from uo_imflatbutton within w_rapmoney_add_del
end type
type gb_1 from groupbox within w_rapmoney_add_del
end type
end forward

global type w_rapmoney_add_del from w_publ_base
integer width = 1861
integer height = 1248
string title = "出纳帐录入"
boolean minbox = false
windowtype windowtype = response!
long backcolor = 80269524
dw_1 dw_1
cb_2 cb_2
cb_1 cb_1
gb_1 gb_1
end type
global w_rapmoney_add_del w_rapmoney_add_del

type variables
s_edit_index_tran s_tran
uo_rapmoney uo_rap
 


end variables

forward prototypes
public function integer wf_save ()
end prototypes

public function integer wf_save ();Int rslt = 1
Long li_row

dw_1.AcceptText()
li_row = dw_1.GetRow()
IF li_row <= 0 THEN
	MessageBox('提示','记录错误',information!,ok!)
	rslt = 0
	GOTO ext
END IF

Long    	arg_accountid
Long    	arg_rapid
DateTime	arg_takedate
String   arg_billcode
String  	arg_dscrp
Decimal 	arg_msttakeamt
Decimal 	arg_takeamt
String  	arg_msg
Long     arg_banktypeid
String   arg_takeemp
Long     arg_acntid
string arg_relcode
arg_accountid = dw_1.Object.accountid[li_row]
arg_rapid = dw_1.Object.rapmoneyid[li_row]
arg_takedate = dw_1.Object.takedate[li_row]
arg_billcode = dw_1.Object.billcode[li_row]
arg_dscrp = dw_1.Object.dscrp[li_row]
arg_msttakeamt = dw_1.Object.msttakeamt[li_row]
arg_takeamt = dw_1.Object.takeamt[li_row]
arg_takeemp = dw_1.Object.takeemp[li_row]
arg_banktypeid = dw_1.Object.banktypeid[li_row]
arg_acntid = dw_1.Object.acntid[li_row]
arg_relcode = dw_1.Object.relcode[li_row]
uo_rap.commit_transaction = sqlca

IF uo_rap.add_del(arg_accountid,arg_takedate,arg_takeemp,arg_dscrp,arg_msttakeamt,arg_takeamt,arg_billcode,0,0,0,publ_operator,arg_msg,TRUE,arg_banktypeid,arg_acntid,arg_relcode) = 0 THEN
	MessageBox('错误',arg_msg,stopsign!,ok!)
	rslt = 0
	GOTO ext
END IF

ext:
RETURN rslt

end function

on w_rapmoney_add_del.create
int iCurrent
call super::create
this.dw_1=create dw_1
this.cb_2=create cb_2
this.cb_1=create cb_1
this.gb_1=create gb_1
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.dw_1
this.Control[iCurrent+2]=this.cb_2
this.Control[iCurrent+3]=this.cb_1
this.Control[iCurrent+4]=this.gb_1
end on

on w_rapmoney_add_del.destroy
call super::destroy
destroy(this.dw_1)
destroy(this.cb_2)
destroy(this.cb_1)
destroy(this.gb_1)
end on

event open;call super::open;dw_1.settransobject(sqlca)
s_tran=message.powerobjectparm

uo_rap = create uo_rapmoney 
int li_opentype
long li_rapid,li_accountsid
long li_row

li_opentype = s_tran.b_long
li_accountsid = s_tran.c_long
li_rapid = s_tran.d_long

if li_opentype = 1 then
	dw_1.setredraw(false)
	li_row = dw_1.insertrow(0)
	dw_1.object.accountid[li_row] = li_accountsid
	dw_1.setredraw(true)
else
	dw_1.retrieve(li_rapid,li_accountsid)
end if

end event

event close;call super::close;destroy uo_rap
end event

type cb_func from w_publ_base`cb_func within w_rapmoney_add_del
boolean visible = false
integer x = 325
integer y = 836
end type

type cb_exit from w_publ_base`cb_exit within w_rapmoney_add_del
integer x = 1463
integer y = 1020
integer taborder = 30
string text = "取消"
end type

type dw_1 from datawindow within w_rapmoney_add_del
event key pbm_dwnkey
event dwnkey pbm_dwnkey
integer x = 37
integer y = 64
integer width = 1755
integer height = 940
integer taborder = 10
boolean bringtotop = true
string dataobject = "dw_add_Del_mod"
boolean livescroll = true
borderstyle borderstyle = stylelowered!
end type

event dwnkey;if key = KeyDownArrow! then return 1

string ls_itemcode
string ls_itemname
string ls_itemtype
int li_itemflag  
long ll_itemid,li_row
dw_1.accepttext()
li_row=dw_1.getrow()

if dw_1.getcolumnname ( )='u_itemdef_itemcode' and key = keyenter! then 
//	ls_itemcode=trim(dw_1.object.u_itemdef_itemcode[li_row])
//	select itemid,itemname,itemflag,itemtype into :ll_itemid,:ls_itemname,:li_itemflag,:ls_itemtype from u_itemdef where itemcode=:ls_itemcode;
//	dw_1.setredraw(false)
//	if sqlca.sqlcode<>0 then
//		dw_1.triggerevent(doubleclicked!)
//		return 0
//	else
//		dw_1.object.u_iteminput_itemid[li_row]=ll_itemid
//		dw_1.object.u_itemdef_itemname[li_row]=ls_itemname
//		dw_1.object.u_itemdef_itemtype[li_row]=ls_itemtype
//		dw_1.object.u_itemdef_itemflag[li_row]=li_itemflag
//	end if
//	dw_1.setredraw(true)
//	dw_1.setcolumn("u_iteminput_outamt")
//	return 0
	
else
	if  key = keyenter!  or key = keydownarrow! then //
		keybd_event ( 9, 0, 0 , 0 ) // 按下tab 
		keybd_event ( 9, 0, 2, 0 ) // 释放tab 
		return 0
	elseif key = keyuparrow! then 
		keybd_event ( 16, 0, 0 , 0 )
		keybd_event ( 9, 0, 0 , 0 )
		keybd_event ( 9, 0, 2, 0 ) 
		keybd_event ( 16, 0, 2, 0 ) 
		return 0
	end if
end if
end event

event doubleclicked;//string ls_itemcode
//long li_row
//dw_1.accepttext()
//li_row=dw_1.getrow()
//
//ls_itemcode=trim(dw_1.object.u_itemdef_itemcode[li_row])
//
//if not isvalid(w_itemdef) then 
//	s_edit_index_tran s_ch_tran                   //传递参数使用
//	s_ch_tran.if_retrieve_all=local_retrieve_all  //是否一次retrieve所有行
//	s_ch_tran.work_mode=1                         //0-单纯编辑模式 1-选择\编辑模式
//	s_ch_tran.arg_pkid=0                          //目标定位pkid (备用)	
//	s_ch_tran.arg_string_code=ls_itemcode         //查询列(物料编码)部分内容,用于初步筛选
//
//	openwithparm(w_itemdef,s_ch_tran)             //调用
//
//	s_itemdef s_inscust
//	s_inscust=message.powerobjectparm             //接受返回结构
//	
//	if s_inscust.itemid > 0 then                  //正常返回值则可以取以下值
//		dw_1.setredraw(false)
//		dw_1.object.u_iteminput_itemid[li_row]=s_inscust.itemid
//		dw_1.object.u_itemdef_itemcode[li_row]=s_inscust.itemcode
//		dw_1.object.u_itemdef_itemname[li_row]=s_inscust.itemname		
//		dw_1.object.u_itemdef_itemtype[li_row]=s_inscust.itemtype
//		dw_1.object.u_itemdef_itemflag[li_row]=s_inscust.itemflag
//		dw_1.setcolumn("u_iteminput_outamt")
//		dw_1.setredraw(true)
//	end if
//end if
//
//     
end event

event rbuttondown;Long ll_row,ll_column
ll_row = THIS.GetRow()
ll_column = THIS.GetColumn()

IF ll_row <= 0 THEN RETURN
IF ll_column <= 0 THEN RETURN

IF Left( THIS.Describe( dwo.Name+ ".coltype"),4) = 'date' THEN
	s_calender_arg s_calender
	
	s_calender.PointerX = THIS.PointerX()
	s_calender.PointerY = THIS.PointerY()
	s_calender.X = THIS.X + PARENT.X
	s_calender.Y = THIS.Y + PARENT.Y
	
	OpenWithParm(w_calendar,s_calender)
	THIS.SetItem(ll_row,ll_column,id_date_selected)
end if
end event

type cb_2 from uo_imflatbutton within w_rapmoney_add_del
integer x = 1134
integer y = 1020
integer width = 329
integer height = 96
integer taborder = 40
string text = "保存[C^+S]"
end type

event clicked;call super::clicked;if wf_save() = 0 then return
close(parent)

end event

type cb_1 from uo_imflatbutton within w_rapmoney_add_del
integer x = 731
integer y = 1020
integer width = 407
integer height = 96
integer taborder = 40
string text = "保存＆新增[&S]"
end type

event clicked;call super::clicked;if wf_save() = 0 then return
dw_1.reset()
dw_1.insertrow(0)
dw_1.setfocus()
dw_1.setcolumn('billcode')
end event

type gb_1 from groupbox within w_rapmoney_add_del
integer width = 1829
integer height = 1144
integer taborder = 30
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 67108864
string text = "资料录入"
end type