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

$PBExportHeader$w_income_expenses.srw
forward
global type w_income_expenses from w_publ_1ton_share_detail
end type
type ddlb_status from dropdownlistbox within w_income_expenses
end type
type st_3 from statictext within w_income_expenses
end type
type ddlb_itemflag from dropdownlistbox within w_income_expenses
end type
type st_2 from statictext within w_income_expenses
end type
type ddlb_scid from uo_ddlb_scid within w_income_expenses
end type
type st_4 from statictext within w_income_expenses
end type
type cbx_1 from checkbox within w_income_expenses
end type
end forward

global type w_income_expenses from w_publ_1ton_share_detail
string title = "其它收入支出单"
boolean maxbox = true
windowstate windowstate = maximized!
event ue_dept_ch ( )
event insert_childrow ( )
event ue_fj_edit ( )
event ue_fj_view ( )
ddlb_status ddlb_status
st_3 st_3
ddlb_itemflag ddlb_itemflag
st_2 st_2
ddlb_scid ddlb_scid
st_4 st_4
cbx_1 cbx_1
end type
global w_income_expenses w_income_expenses

type variables
uo_income_expenses uo_ie
Int cur_flag = -1
Int cur_secflag = -1
Int cur_itemflag = -1
Long cur_scid
end variables

forward prototypes
public function integer wf_refresh_curuc (long arg_billid)
public function integer wf_statusbtn_fc ()
public subroutine wf_autofrom_oppose_cust (long arg_billid, readonly string arg_billcode, decimal arg_amt)
end prototypes

event ue_dept_ch();IF Not dw_edit_mode THEN RETURN

Long uc_row
uc_row = dw_uc.GetRow()

IF uc_row <= 0 THEN
	MessageBox('系统提示','请先选择单据')
	RETURN
END IF

Open(w_department_ch)

s_deptype s_dep_rst

s_dep_rst = Message.PowerObjectParm

IF s_dep_rst.departmentid > 0 THEN
	dw_uc.Object.u_income_expenses_deptid[uc_row] = s_dep_rst.departmentid
END IF

dw_uc.AcceptText()

end event

event insert_childrow();Long li_row
DateTime ld_nulltime
SetNull(ld_nulltime)
li_row = dw_child.InsertRow(0)
dw_child.ScrollToRow(li_row)


dw_child.SetColumn ('u_itemdef_itemcode')



end event

event ue_fj_edit();IF dw_edit_mode THEN
	MessageBox('提示','编辑状态下不可用')
	RETURN
END IF

IF NOT f_power_ind(3494,sys_msg_pow) THEN
	MessageBox(publ_operator,sys_msg_pow)
	RETURN
END IF

s_edit_index_tran s_pic
Long ll_ConnectionID
String arg_msg
Long ls_row
ls_row = dw_pageretr.GetRow()
IF ls_row <= 0 THEN
	RETURN
END IF

IF f_get_outerconnection(ll_ConnectionID,arg_msg) = 0 THEN
	MessageBox('提示','没有指定附件数据库连接'+arg_msg)
	RETURN
END IF

s_pic.f_long = 546 //其它收入支出单的mainID
s_pic.f_string = dw_pageretr.Object.u_income_expenses_billcode[ls_row]
s_pic.g_long = dw_pageretr.Object.u_income_expenses_billid[ls_row]
s_pic.e_long = dw_pageretr.Object.scid[ls_row]
s_pic.sqltransaction = sys_filedb_sqlca


OpenWithParm(w_fj_bill_mng,s_pic)
//wf_check_billfj()
end event

event ue_fj_view();IF dw_edit_mode THEN
	MessageBox('提示','编辑状态下不可用')
	RETURN
END IF

s_edit_index_tran s_pic
Long ll_ConnectionID
String arg_msg
Long ls_row
ls_row = dw_pageretr.GetRow()
IF ls_row <= 0 THEN
	RETURN
END IF

IF f_get_outerconnection(ll_ConnectionID,arg_msg) = 0 THEN
	MessageBox('提示','没有指定附件数据库连接'+arg_msg)
	RETURN
END IF

s_pic.f_long = 546 //其它收入支出单的mainID
s_pic.f_string = dw_pageretr.Object.u_income_expenses_billcode[ls_row]
s_pic.g_long = dw_pageretr.Object.u_income_expenses_billid[ls_row]
s_pic.e_long = dw_pageretr.Object.scid[ls_row]
s_pic.sqltransaction = sys_filedb_sqlca


OpenWithParm(w_fj_bill_view,s_pic)



end event

public function integer wf_refresh_curuc (long arg_billid);If arg_billid <= 0 Or IsNull(arg_billid) Then Return 0
Long uc_row
uc_row = dw_pageretr.GetRow()
If uc_row <= 0 Then Return 0

String billcode
String credencecode
Long banktypeid
Decimal amt
Long accountsid
DateTime outdate,viewdate //
String Descrp
String rep
String itemcode
Long rapmoneyid

Long itemid
String itemname
String itemtype
String itemsectype
Long itemflag
String Opemp
DateTime Opdate
DateTime ModDate
String ModEmp
Long flag
String auditemp
DateTime auditdate
Long secflag
String secauditemp
DateTime secauditdate
Long deptid
Long scid
String cw_department_handtype,ls_accountsname
String bankstr
String idcode
String ls_dscrp
String accountrep

Select
U_income_expenses.outdate,
U_income_expenses.viewdate,
U_income_expenses.banktypeid,
U_income_expenses.credencecode,
U_income_expenses.accountsid,
U_income_expenses.rep,
U_income_expenses.Descrp,
U_income_expenses.rapmoneyid,
U_income_expenses.billcode,
U_income_expenses.itemid,
U_income_expenses.Opemp,
U_income_expenses.Opdate,
U_income_expenses.ModDate,
U_income_expenses.ModEmp,
U_income_expenses.itemflag,
U_income_expenses.deptid,
U_income_expenses.amt,
U_income_expenses.flag,
U_income_expenses.auditemp,
U_income_expenses.auditdate,
U_income_expenses.secflag,
U_income_expenses.secauditemp,
U_income_expenses.secauditdate,
U_income_expenses.scid,
u_accounts.accountsname,
u_accounts.bankstr,
u_accounts.idcode,
u_accounts.dscrp,
u_accounts.accountrep

Into
:outdate,
:viewdate,
:banktypeid,
:credencecode,
:accountsid,
:rep,
:Descrp,
:rapmoneyid,
:billcode,
:itemid,
:Opemp,
:Opdate,
:ModDate,
:ModEmp,
:itemflag,
:deptid,
:amt,
:flag,
:auditemp,
:auditdate,
:secflag,
:secauditemp,
:secauditdate,
:scid,
:ls_accountsname,
:bankstr,
:idcode,
:ls_dscrp,
:accountrep

From U_income_expenses Left Outer join u_accounts On
U_income_expenses.accountsid = u_accounts.accountsid
Where ( U_income_expenses.billid = :arg_billid )	;
If sqlca.SQLCode <> 0 Then
	MessageBox('系统提示',"查询收支单操作失败"+sqlca.SQLErrText)
	Return 0
End If

dw_pageretr.SetRedraw(False)
dw_pageretr.Object.U_income_expenses_billid[uc_row] = arg_billid
dw_pageretr.Object.U_income_expenses_billcode[uc_row] = billcode
dw_pageretr.Object.U_income_expenses_credencecode[uc_row] = credencecode
dw_pageretr.Object.U_income_expenses_banktypeid[uc_row] = banktypeid
dw_pageretr.Object.U_income_expenses_amt[uc_row] = amt
dw_pageretr.Object.U_income_expenses_accountsid[uc_row] = accountsid
dw_pageretr.Object.U_income_expenses_outdate[uc_row] = outdate
dw_pageretr.Object.U_income_expenses_viewdate[uc_row] = viewdate
dw_pageretr.Object.U_income_expenses_Descrp[uc_row] = Descrp
dw_pageretr.Object.U_income_expenses_rep[uc_row] = rep
dw_pageretr.Object.itemflag[uc_row] = itemflag

dw_pageretr.Object.U_income_expenses_rapmoneyid[uc_row] = rapmoneyid

dw_pageretr.Object.U_income_expenses_itemid[uc_row] = itemid

dw_pageretr.Object.U_income_expenses_Opemp[uc_row] = Opemp
dw_pageretr.Object.U_income_expenses_Opdate[uc_row] = Opdate
dw_pageretr.Object.U_income_expenses_ModDate[uc_row] = ModDate
dw_pageretr.Object.U_income_expenses_ModEmp[uc_row] = ModEmp
dw_pageretr.Object.U_income_expenses_flag[uc_row] = flag
dw_pageretr.Object.U_income_expenses_auditemp[uc_row] = auditemp
dw_pageretr.Object.U_income_expenses_auditdate[uc_row] = auditdate
dw_pageretr.Object.U_income_expenses_secflag[uc_row] = secflag
dw_pageretr.Object.U_income_expenses_secauditemp[uc_row] = secauditemp
dw_pageretr.Object.U_income_expenses_secauditdate[uc_row] = secauditdate

dw_pageretr.Object.U_income_expenses_deptid[uc_row] = deptid
dw_pageretr.Object.scid[uc_row] = scid
dw_pageretr.Object.u_accounts_accountsname[uc_row] = ls_accountsname

dw_pageretr.Object.u_accounts_bankstr[uc_row] = bankstr
dw_pageretr.Object.u_accounts_idcode[uc_row] = idcode
dw_pageretr.Object.u_accounts_dscrp[uc_row] = ls_dscrp
dw_pageretr.Object.u_accounts_accountrep[uc_row] = accountrep



dw_pageretr.SetRedraw(True)
dw_uc.Reset()
dw_pageretr.RowsCopy(dw_pageretr.GetRow(), dw_pageretr.GetRow(), Primary!, dw_uc, 1, Primary!)

wf_statusbtn_fc()
Return 1








end function

public function integer wf_statusbtn_fc ();//wf_statusbtn_fc

Long pagerert_row
Int li_flag
Int li_secflag
pagerert_row = dw_pageretr.GetRow()
IF pagerert_row <= 0 THEN
	cb_auditing.Enabled = False
	cb_auditing_cancel.Enabled = False
	GOTO ext
END IF

li_flag = dw_pageretr.Object.u_income_expenses_flag[pagerert_row]
li_secflag = dw_pageretr.Object.u_income_expenses_secflag[pagerert_row]

IF dw_edit_mode THEN
	cb_auditing.Enabled = False
	cb_auditing_cancel.Enabled = False
	
	cb_auditing.Text = '审核&F'
	cb_auditing_cancel.Text = '撤审'
ELSE
	IF li_flag = 0 THEN
		cb_auditing.Enabled = True
		cb_auditing_cancel.Enabled = False
		
		cb_auditing.Text = '审核&F'
		cb_auditing_cancel.Text = '撤审'
	ELSEIF li_flag = 1 And li_secflag = 0 THEN
		cb_auditing.Enabled = True
		cb_auditing_cancel.Enabled = True
		
		cb_auditing.Text = '确认&F'
		cb_auditing_cancel.Text = '撤审'
	ELSEIF li_flag = 1 And li_secflag = 1 THEN
		cb_auditing.Enabled = False
		cb_auditing_cancel.Enabled = True
		cb_auditing.Text = '确认&F'
		cb_auditing_cancel.Text = '反确认'
	END IF
END IF

cb_auditing.TriggerEvent('ue_textchange')
cb_auditing_cancel.TriggerEvent('ue_textchange')

ext:
RETURN 0










end function

public subroutine wf_autofrom_oppose_cust (long arg_billid, readonly string arg_billcode, decimal arg_amt);// TODO: 自去边带客户投诉单
IF Not dw_edit_mode THEN
	cb_add.TriggerEvent(Clicked!)
END IF

IF Not dw_edit_mode THEN RETURN

Long row
row = dw_child.GetRow()
IF row <= 0 THEN
	row = dw_child.InsertRow(0)
ELSE
	IF dw_child.Object.u_income_expenses_mx_amt[row] <> 0 Or dw_child.Object.u_income_expenses_mx_relbillid[row] <> 0 THEN
		row = dw_child.InsertRow(0)
	END IF
END IF

dw_child.Object.u_income_expenses_mx_buildtype[row] = 3
dw_child.Object.u_income_expenses_mx_relscid[row] = 0
dw_child.Object.u_income_expenses_mx_relbillid[row] = arg_billid
dw_child.Object.u_income_expenses_mx_relbillcode[row] = arg_billcode
dw_child.Object.u_income_expenses_mx_amt[row] = arg_amt


end subroutine

on w_income_expenses.create
int iCurrent
call super::create
this.ddlb_status=create ddlb_status
this.st_3=create st_3
this.ddlb_itemflag=create ddlb_itemflag
this.st_2=create st_2
this.ddlb_scid=create ddlb_scid
this.st_4=create st_4
this.cbx_1=create cbx_1
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.ddlb_status
this.Control[iCurrent+2]=this.st_3
this.Control[iCurrent+3]=this.ddlb_itemflag
this.Control[iCurrent+4]=this.st_2
this.Control[iCurrent+5]=this.ddlb_scid
this.Control[iCurrent+6]=this.st_4
this.Control[iCurrent+7]=this.cbx_1
end on

on w_income_expenses.destroy
call super::destroy
destroy(this.ddlb_status)
destroy(this.st_3)
destroy(this.ddlb_itemflag)
destroy(this.st_2)
destroy(this.ddlb_scid)
destroy(this.st_4)
destroy(this.cbx_1)
end on

event ue_usual_query_retr;call super::ue_usual_query_retr;String ls_querystrpart = ''
ls_newselect = Lower(ori_oldselect)
IF Trim(sle_usual_query.Text) <> '' THEN
	IF Pos(Trim(sle_usual_query.Text),'%') = 0 THEN
		ls_querystrpart = "(u_income_expenses.billcode like '%"+Trim(sle_usual_query.Text)+"%')"
	ELSE
		ls_querystrpart = "(u_income_expenses.billcode like '"+Trim(sle_usual_query.Text)+"')"
	END IF
	
	IF Pos(ls_newselect," where ") <> 0 THEN
		ls_newselect = ls_newselect+" and ("+ls_querystrpart+')'
	ELSE
		ls_newselect = ls_newselect+" where ("+ls_querystrpart+')'
	END IF
END IF
wf_retrieveuc(dw_pageretr,ls_newselect,1)
THIS.TriggerEvent('retrieve_pageretr')


end event

event ue_usual_query_filt;call super::ue_usual_query_filt;string obj_expr=''  
if trim(sle_usual_query.text)<>'' then 
	if pos(trim(sle_usual_query.text),'%')=0 then
		obj_expr=obj_expr+'( u_income_expenses_billcode like "%'+trim(sle_usual_query.text)+'%" )'
	else
		obj_expr=obj_expr+'( u_income_expenses_billcode like "'+trim(sle_usual_query.text)+'" )'
	end if 
end if

dw_pageretr.setfilter(obj_expr)

dw_pageretr.setredraw(false)
dw_pageretr.filter()
if dw_pageretr.rowcount()>=1 then
	dw_pageretr.selectrow(0,false)
	dw_pageretr.selectrow(1,true)
end if
dw_pageretr.setredraw(true)
end event

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

event open;call super::open;uc_column_int=8    //uc dw前6列可以编辑
child_column_int = 7
uo_ie =create uo_income_expenses
uo_ie.commit_transaction = sqlca

end event

event refresh_interface;call super::refresh_interface;wf_statusbtn_fc()
ddlb_status.Enabled = Not dw_edit_mode
ddlb_itemflag.Enabled = Not dw_edit_mode
ddlb_scid.Enabled = NOT dw_edit_mode
end event

event retrieve_pageretr;Boolean  cb_nextpage_enabled,cb_retrieveall_enabled
Boolean  cb_func_enabled,cb_retrieve_enabled


cb_nextpage_enabled = cb_nextpage.Enabled
cb_retrieveall_enabled = cb_retrieveall.Enabled
cb_func_enabled = cb_func.Enabled

cb_nextpage.Enabled = False
cb_retrieveall.Enabled = False
cb_func.Enabled = False


//权限1829 只能看到自己建立的单据
String  cur_opemp

IF sys_power_issuper Or Not f_power_ind(1829)   THEN //
	cur_opemp = ''
ELSE
	
	cur_opemp = publ_operator
END IF



dw_uc.Retrieve()
dw_pageretr.Retrieve(cur_scid,cur_flag,cur_itemflag,cur_secflag,cur_opemp)
IF dw_pageretr.RowCount() > 0 THEN
	dw_pageretr.SetRow(1)
	dw_pageretr.TriggerEvent(RowFocusChanged!)
END IF

This.TriggerEvent('retrieve_childdw')

cb_nextpage.Enabled = cb_nextpage_enabled
cb_retrieveall.Enabled = cb_retrieveall_enabled
cb_func.Enabled = cb_func_enabled

wf_statusbtn_fc()




end event

event ue_f9;call super::ue_f9;IF Not dw_edit_mode THEN RETURN

IF dw_child.GetRow() <= 0 THEN
	MessageBox(publ_operator,'请先选择明细')
	RETURN
END IF


IF Not IsValid(w_saletask_ch) THEN
	
	
	This.Enabled = False
	Open(w_oppose_cust_ch)
	This.Enabled = True
	
	s_oppose_cust_ch s_ch
	s_ch = Message.PowerObjectParm
	
	
	dw_child.SetRedraw(False)
	IF s_ch.billid > 0 THEN
			
			dw_child.Object.u_income_expenses_mx_relscid[dw_child.GetRow()] = 0
			dw_child.Object.u_income_expenses_mx_relbillid[dw_child.GetRow()] = s_ch.billid
			dw_child.Object.u_income_expenses_mx_relbillcode[dw_child.GetRow()] = s_ch.billcode
			
		END IF
	dw_child.AcceptText()
	dw_child.SetRedraw(True)
	
	
END IF












end event

event ue_viewprint;call super::ue_viewprint;Long LS_ROW
LS_ROW = dw_pageretr.GetRow()
IF LS_ROW <= 0 THEN
	MessageBox('NO','没有打印目标单据!')
	RETURN
END IF

S_print_MSG LS_PRMSG

if ls_powerid = 0 then ls_powerid = 993
IF ls_newname <> '' THEN
	IF Not f_power_ind(ls_powerid,sys_msg_pow) THEN
	MessageBox(publ_operator,sys_msg_pow)
	RETURN
END IF
	
	IF li_auditprint = 1 THEN
		IF dw_pageretr.Object.u_income_expenses_flag[dw_pageretr.GetRow()] = 0 THEN
			MessageBox('NO','目标单据还未审核,不能打印!')
			RETURN
		END IF
	END IF
	
	LS_PRMSG.obj_dwNAME = ls_newname
ELSE	
	IF Not f_power_ind(993,sys_msg_pow) THEN
	MessageBox(publ_operator,sys_msg_pow)
	RETURN
END IF
	
	LS_PRMSG.obj_dwNAME = 'dw_rp_income_expenses_print'
END IF

if LS_PRMSG.obj_dwNAME = '' then return

LS_PRMSG.TAG_TEXT = this.title
LS_PRMSG.FILTER_STRING = ''
LS_PRMSG.retr_pram_falg = 2
LS_PRMSG.PAGECH_FLAG = 0
LS_PRMSG.retr_pramnmb = dw_pageretr.Object.u_income_expenses_billid[LS_ROW]
OpenWithParm(w_publ_preview,LS_PRMSG)


//**更新打印次料
String arg_msg
printnum = Message.DoubleParm

Long ll_scid
String ls_code

ll_scid = 0
ls_code = dw_pageretr.Object.u_income_expenses_billcode[dw_pageretr.GetRow()]

f_update_printnum2(ll_scid,ls_code,FALSE,printnum,arg_msg,TRUE)

end event

event ue_print;call super::ue_print;//--直接打印
uo_print_preview uo_print
IF MessageBox ("IF","是否确定要打印当前单据吗?",Question!,YesNo! ) = 2 THEN RETURN


S_print_MSG LS_PRMSG

Long LS_ROW
LS_ROW = dw_pageretr.GetRow()
IF LS_ROW <= 0 THEN
	MessageBox('NO','没有打印目标单据!')
	RETURN
END IF

if ls_powerid = 0 then ls_powerid = 993
IF ls_newname <> '' THEN
	IF NOT f_power_ind(ls_powerid,sys_msg_pow) THEN
	MessageBox(publ_operator,sys_msg_pow)
	RETURN
END IF
	
	IF li_auditprint = 1 THEN
		IF dw_pageretr.Object.u_income_expenses_flag[dw_pageretr.GetRow()] = 0 THEN
			MessageBox('NO','目标单据还未审核,不能打印!')
			RETURN
		END IF
	END IF
	
	LS_PRMSG.obj_dwNAME = ls_newname
ELSE	
	IF NOT f_power_ind(993,sys_msg_pow) THEN
	MessageBox(publ_operator,sys_msg_pow)
	RETURN
END IF
	
	LS_PRMSG.obj_dwNAME = 'dw_rp_income_expenses_print'
END IF

IF LS_PRMSG.obj_dwNAME = '' THEN RETURN

LS_PRMSG.retr_pram_falg = 2
LS_PRMSG.TAG_TEXT = '费用支出单'
LS_PRMSG.FILTER_STRING = ''
LS_PRMSG.PAGECH_FLAG = 0
LS_PRMSG.retr_pramnmb = dw_pageretr.Object.u_income_expenses_billid[LS_ROW]
uo_print.FACT_PRINT_MSG = LS_PRMSG

String arg_msg
IF uo_print.uof_print_begin(arg_msg) = 0 THEN
	MessageBox("系统提示",arg_msg)
	RETURN
END IF
uo_print.ds_print()


//**更新打印次料

printnum = 1

Long ll_scid
String ls_code

ll_scid = 0
ls_code = dw_pageretr.Object.u_income_expenses_billcode[dw_pageretr.GetRow()]

f_update_printnum2(ll_scid,ls_code,FALSE,printnum,arg_msg,TRUE)
end event

event ue_addzy;call super::ue_addzy;IF Not f_power_ind(994,sys_msg_pow) THEN
	MessageBox(publ_operator,sys_msg_pow)
	RETURN
END IF

IF dw_edit_mode THEN RETURN
String arg_msg = ''
String ls_str
Long uc_row
s_inputbox s_sreu

uc_row = dw_pageretr.GetRow()
IF uc_row <= 0 THEN
	MessageBox('系统提示','请选定当前目标单据!')
	RETURN
END IF
s_sreu.Title = '请输入要补充到备注的内容'
s_sreu.old_text = ''
OpenWithParm(w_inputbox,s_sreu)
ls_str = Message.StringParm
IF Trim(ls_str) = '' Or IsNull(ls_str) THEN RETURN

IF uo_ie.add_dscrp(dw_pageretr.Object.U_income_expenses_billid[uc_row],ls_str,arg_msg,True) = 0 THEN
	MessageBox('error!',arg_msg)
	RETURN
ELSE
	MessageBox(publ_operator,'添加备注操作成功!')
	wf_refresh_curuc(dw_pageretr.Object.U_income_expenses_billid[uc_row])
END IF





end event

event ue_rpt_viewprint;call super::ue_rpt_viewprint;
Long row,uc_relid,ll_scid
row = dw_pageretr.GetRow()
IF row = 0 THEN RETURN


IF ls_rpname = '' THEN RETURN

IF li_auditprint = 1 THEN
	IF dw_pageretr.Object.u_income_expenses_flag[row] = 0 THEN
		MessageBox('NO','目标单据还未审核,不能打印!')
		RETURN
	END IF
END IF

s_rpt_print_msg s_print
s_print.retr_pram_falg = 2
s_print.rpid = ls_msgprintid_rpt
s_print.retr_flag = TRUE
s_print.tag_text = THIS.Title

s_print.rpname  = ls_rpname
s_print.retr_pramnmb = dw_pageretr.Object.u_income_expenses_billid[row]
s_print.rowcnt = dw_child.RowCount()
OpenWithParm(w_rpt_preview,s_print)

//**更新打印次料
String arg_msg
printnum = Message.DoubleParm

String ls_code

ll_scid = 0
ls_code = dw_pageretr.Object.u_income_expenses_billcode[row]

f_update_printnum2(ll_scid,ls_code,TRUE,printnum,arg_msg,TRUE)
end event

event ue_rpt_print;call super::ue_rpt_print;Long row,uc_relid,ll_scid
row = dw_pageretr.GetRow()
IF row = 0 THEN RETURN


uo_rpt_print_preview uo_print
S_rpt_print_MSG LS_PRMSG

IF dw_pageretr.RowCount() = 0 THEN
	MessageBox('系统信息','没有可打印的单据！')
	RETURN
END IF

IF ls_rpname = '' THEN RETURN

IF li_auditprint = 1 THEN
	IF dw_pageretr.Object.u_income_expenses_flag[row] = 0 THEN
		MessageBox('NO','目标单据还未审核,不能打印!')
		RETURN
	END IF
END IF

IF MessageBox ("IF","是否确定要打印当前单据吗?",Question!,YesNo! ) = 2 THEN RETURN

LS_PRMSG.retr_pram_falg = 2
LS_PRMSG.TAG_TEXT = THIS.Title
LS_PRMSG.rpname = ls_rpname
LS_PRMSG.FILTER_STRING = ''

LS_PRMSG.PAGECH_FLAG = 0
LS_PRMSG.rpid = ls_msgprintid_rpt
LS_PRMSG.retr_pramnmb = dw_pageretr.Object.u_income_expenses_billid[row]
LS_PRMSG.rowcnt = dw_child.RowCount()


uo_print.FACT_PRINT_MSG = LS_PRMSG

String arg_msg
IF uo_print.uof_print_begin(arg_msg) = 0 THEN
	MessageBox("系统提示",arg_msg)
	RETURN
END IF
uo_print.ds_print()


//**更新打印次料
printnum = Message.DoubleParm

String ls_code

ll_scid = 0
ls_code = dw_pageretr.Object.u_income_expenses_billcode[row]

f_update_printnum2(ll_scid,ls_code,TRUE,printnum,arg_msg,TRUE)
end event

event retrieve_childdw;call super::retrieve_childdw;Long row,uc_relid
row = dw_pageretr.GetRow()
IF row > 0 THEN
	uc_relid = dw_pageretr.Object.u_income_expenses_billid[row]
	dw_child.SetRedraw (False)
	dw_child.Retrieve(uc_relid)
	dw_child.SetRedraw (True)
	IF dw_child.RowCount() > 0 THEN
		dw_child.SelectRow(0,False)
		dw_child.SelectRow(1,True)
		dw_child.SetRow(1)
	END IF
ELSE
	dw_child.Reset()
END IF



end event

event ue_f8;call super::ue_f8;//用于选择明细内容,被f8[默认]\dw_child.doubleclicked调用
IF Not dw_edit_mode THEN RETURN

IF dw_uc.GetRow() <= 0 THEN
	MessageBox('系统提示','请先选择单据')
	RETURN
END IF

Long child_row
Long ls_cusid,ll_moneyid
Decimal ld_mrate
Long ls_j
child_row = dw_child.GetRow()

IF Not IsValid(w_itemdef_ch_with_itemflag)  THEN
	
	This.Enabled = False
	Openwithparm(w_itemdef_ch_with_itemflag,cur_itemflag) //调用
	This.Enabled = True
	
	s_itemdef_arr s_inscust
	s_inscust = Message.PowerObjectParm //接受返回结构
	
	dw_child.setredraw(false)
	FOR ls_j = 1 To  UpperBound(s_inscust.itemid)
		IF s_inscust.itemid[ls_j] > 0 THEN //正常返回值则可以取以下值
			
			//IF dw_child.Find('u_income_expenses_mx_itemid = '+String(s_inscust.itemid[ls_j]),1,dw_child.RowCount()) > 0 THEN CONTINUE
			
			IF dw_child.GetRow() > 0 THEN
				IF dw_child.Object.u_income_expenses_mx_itemid[child_row] <> 0 THEN
					child_row = dw_child.InsertRow (0)
				ELSE
					child_row = dw_child.GetRow()
				END IF
			ELSE
				child_row = dw_child.InsertRow (0)
			END IF
			
			dw_child.Object.u_income_expenses_mx_itemid[child_row] = s_inscust.itemid[ls_j]
			dw_child.Object.u_itemdef_itemcode[child_row]    = s_inscust.itemcode[ls_j]
			dw_child.Object.u_itemdef_itemname[child_row]    = s_inscust.itemname[ls_j]
			dw_child.Object.u_itemdef_itemtype[child_row]     = s_inscust.itemtype[ls_j]
			dw_child.Object.u_itemdef_itemsectype[child_row]     = s_inscust.itemsectype[ls_j]
			
			dw_child.SetColumn('u_income_expenses_mx_amt')
		END IF
		
	NEXT
	dw_child.setredraw(true)
	dw_child.SetFocus()
END IF

end event

event ue_f7;call super::ue_f7;IF Not dw_edit_mode THEN RETURN


Long ls_storageid,ll_cusid
Long ls_taskid,ls_j,ll_i
String ls_taskcode
Long ll_scid,ll_moneyid
Long ll_mtrlid
String ls_status,ls_woodcode,ls_pcode
DateTime ld_outdate

IF dw_child.GetRow() <= 0 THEN
	MessageBox(publ_operator,'请先选择明细')
	RETURN
END IF


IF Not IsValid(w_saletask_ch) THEN
	
//	s_edit_index_tran s_tranf //传递参数使用
//	
//	
//	s_tranf.b_long = -1
//	s_tranf.c_long = -1
//	s_tranf.d_long = 1 //选销售订单
//	s_tranf.e_long = 1
//	s_tranf.h_long = 1
	
	s_saletask_find s_find
	s_find.scid = -1
	s_find.areaid = sys_areaid
	This.Enabled = False
	OpenWithParm(w_saletask_ch,s_find)
	This.Enabled = True
	
	s_saletask_ch s_saletask
	s_saletask = Message.PowerObjectParm
	
	
	dw_child.SetRedraw(False)
	IF s_saletask.taskid > 0 THEN
			
			dw_child.Object.u_income_expenses_mx_relscid[dw_child.GetRow()] = s_saletask.scid 
			dw_child.Object.u_income_expenses_mx_relbillid[dw_child.GetRow()] = s_saletask.taskid 
			dw_child.Object.u_income_expenses_mx_relbillcode[dw_child.GetRow()] = s_saletask.taskcode 
			
		END IF
	dw_child.AcceptText()
	dw_child.SetRedraw(True)
	
	
END IF












end event

event ue_f10;call super::ue_f10;IF Not dw_edit_mode THEN RETURN
Long uc_row,ls_j

uc_row = dw_child.GetRow()
IF uc_row = 0 THEN
	MessageBox('系统提示','请选定明细!')
	RETURN
END IF

dw_child.AcceptText()

IF Not IsValid(w_order_ml_mx_mtrl_ch) THEN
	s_edit_index_tran s_open //传递参数使用
	s_open.if_select_any = False
	
	s_open.d_long = -1
	
	s_open.f_long = 0
	s_open.g_long = 1 //使用终止计件条件 
	
	s_open.h_long = 0 //进仓
	s_open.c_long = 1 //领料
	
	OpenWithParm(w_order_ml_mx_mtrl_ch,s_open)
	
	s_saletask_mtrl s_inscust
	s_inscust = Message.PowerObjectParm //接受返回结构
	dw_child.SetRedraw(False)
	IF UpperBound(s_inscust.taskid) > 0 THEN
		IF s_inscust.taskid[1] > 0 THEN //正常返回值则可以取以下值		
			dw_child.Object.u_income_expenses_mx_relscid[uc_row] = s_inscust.scid[1]
			dw_child.Object.u_income_expenses_mx_relbillid[uc_row] = s_inscust.taskid[1]
			dw_child.Object.u_income_expenses_mx_relbillcode[uc_row] = s_inscust.taskcode[1]
		END IF
	END IF
	dw_child.SetRedraw(True)
END IF


end event

event resize;
ln_bar.EndX = This.Width
ln_bar2.EndX = This.Width
ln_1.EndX = This.Width
ln_2.EndX = This.Width
r_bar.Width = This.Width

Long w_width,w_height
w_width = 3602
w_height = 2300

IF newwidth < w_width THEN This.Width = w_width
IF newheight < w_height THEN  This.Height = w_height

//dw_child.Width = THIS.Width - (w_width - dw_child_w)
//dw_child.Height = THIS.Height - (w_height - dw_child_h)
//dw_pageretr.Width = THIS.Width - (w_width - dw_pageretr_w)

IF uc_width > 0 THEN
	dw_uc.Width = uc_width
END IF

IF uc_height > 0 THEN
	dw_uc.Height = uc_height
END IF

//IF ins_p_y < ins_c_y THEN
//	IF ins_p_y + ins_p_h > ins_c_y THEN
//		dw_child.x = dw_uc.x
//		dw_child.Y =  dw_uc.Y + dw_uc.Height + 4
//		dw_child.Width = dw_uc.Width
//		dw_child.Height = This.Height - dw_child.Y - 150
//		
//		dw_pageretr.y = dw_uc.y
//		dw_pageretr.X = dw_uc.X + dw_uc.Width
//		dw_pageretr.Width = This.Width - dw_pageretr.X - 40
//		dw_pageretr.Height =   dw_uc.Height + dw_child.Height + (dw_child.Y - dw_uc.Y - dw_uc.Height)
//	ELSE
//		dw_pageretr.y = dw_uc.y
//		dw_pageretr.X = dw_uc.X + dw_uc.Width
//		dw_pageretr.Width = This.Width - dw_pageretr.X - 40
//		dw_pageretr.Height =   dw_uc.Height
//		
//		dw_child.x = dw_uc.x
//		dw_child.Y =  dw_uc.Y + dw_uc.Height + 4
//		dw_child.Width = This.Width - dw_child.X - 40
//		dw_child.Height = This.Height - dw_child.Y - 150
//	END IF
//ELSE
//	IF ins_c_y + ins_c_h > ins_p_y THEN
//		dw_pageretr.x = dw_uc.x
//		dw_pageretr.Y =  dw_uc.Y + dw_uc.Height + 4
//		dw_pageretr.Width = dw_uc.Width
//		dw_pageretr.Height = This.Height - dw_pageretr.Y - 150
//		
//		
//		dw_child.y = dw_uc.y
//		dw_child.X = dw_uc.X + dw_uc.Width
//		dw_child.Width = This.Width - dw_child.X - 40
//		dw_child.Height =   dw_uc.Height + dw_pageretr.Height + (dw_pageretr.Y - dw_uc.Y - dw_uc.Height)
//	ELSE
//		dw_child.y = dw_uc.y
//		dw_child.X = dw_uc.X +  dw_uc.Width
//		dw_child.Width = This.Width - dw_child.X - 40
//		dw_child.Height =   dw_uc.Height
//		
//		
//		dw_pageretr.x = dw_uc.x
//		dw_pageretr.Y =  dw_uc.Y + dw_uc.height + 4
//		dw_pageretr.Width = This.Width - dw_pageretr.X - 40
//		dw_pageretr.Height = This.Height - dw_pageretr.Y - 150
//		
//	END IF
//	
//END IF 


dw_pageretr.X = dw_uc.X + dw_uc.Width
dw_pageretr.Width = This.Width - dw_pageretr.X - 40
dw_pageretr.Height =   dw_uc.Height


dw_child.Y =  dw_uc.Y + dw_uc.Height + 4
dw_child.Width = This.Width - dw_child.X - 40
dw_child.Height = This.Height - dw_child.Y - 150

This.TriggerEvent('resize_p')


end event

event ue_f11;call super::ue_f11;//用于选择明细内容,被F9[默认]
IF Not dw_edit_mode THEN RETURN

Long uc_row
Long ll_rst_accountsid

uc_row = dw_uc.GetRow()

IF uc_row = 0 THEN
	MessageBox('系统提示','请选定单据!')
	RETURN
END IF

dw_uc.AcceptText()
IF Not IsValid(w_accounts_ch) THEN
	s_edit_index_tran s_ch_tran //传递参数使用
	s_ch_tran.if_retrieve_all = True //是否一次retrieve所有行
	s_ch_tran.work_mode = 1 //0-单纯编辑模式 1-选择\编辑模式
	s_ch_tran.arg_pkid = 0 //目标定位pkid (备用)	
	s_ch_tran.arg_string_code = '' //查询列(物料编码)部分内容,用于初步筛选
	
	
	OpenWithParm(w_accounts_ch,s_ch_tran) //调用
	
	
	ll_rst_accountsid = Message.DoubleParm //接受返回结构
	
	IF ll_rst_accountsid > 0 THEN //正常返回值则可以取以下值
		dw_uc.SetRedraw(False)
		dw_uc.Object.u_income_expenses_accountsid[uc_row] = ll_rst_accountsid		
		dw_uc.SetColumn("u_income_expenses_rep")
		dw_uc.SetRedraw(True)
	END IF
END IF




end event

type cb_func from w_publ_1ton_share_detail`cb_func within w_income_expenses
integer x = 142
end type

type cb_exit from w_publ_1ton_share_detail`cb_exit within w_income_expenses
integer x = 2318
integer width = 142
end type

type sle_usual_query from w_publ_1ton_share_detail`sle_usual_query within w_income_expenses
integer x = 197
integer width = 549
end type

type cb_retrieveall from w_publ_1ton_share_detail`cb_retrieveall within w_income_expenses
integer x = 2761
integer width = 142
end type

type em_pagerowno from w_publ_1ton_share_detail`em_pagerowno within w_income_expenses
integer x = 2459
end type

type dw_pageretr from w_publ_1ton_share_detail`dw_pageretr within w_income_expenses
event dwnkey pbm_dwnkey
integer x = 1934
integer width = 1614
integer height = 1052
string dataobject = "dw_income_expenses_index"
end type

event dw_pageretr::dwnkey;call super::dwnkey;//int h = 0
end event

event dw_pageretr::constructor;call super::constructor; titleclick_sort_use=true  //单击标题排序功能开关
 RBUTTON_FILTER_USE=true  //右键查询功能开关

end event

event dw_pageretr::rowfocuschanged;call super::rowfocuschanged;wf_statusbtn_fc()
end event

type st_1 from w_publ_1ton_share_detail`st_1 within w_income_expenses
integer x = 14
end type

type cb_nextpage from w_publ_1ton_share_detail`cb_nextpage within w_income_expenses
integer x = 2903
end type

type dw_uc from w_publ_1ton_share_detail`dw_uc within w_income_expenses
integer width = 1929
integer height = 1052
string dataobject = "dw_income_expenses_edit"
end type

event dw_uc::dwnkey;PARENT.TriggerEvent('user_key')

IF Key = KeyDownArrow! THEN RETURN 1

String ls_itemcode,ls_itemname,ls_itemtype,ls_itemsectype,ls_find_code
Int ls_itemflag
Long ls_itemid
Long cnt = 0
Boolean if_find = FALSE

IF dw_edit_mode THEN
	IF dw_uc.GetColumnName ( ) = 'u_income_expenses_descrp' And Key = KeyEnter! THEN
		dw_child.ScrollToRow(1)
		dw_child.SetFocus()
		dw_child.SetColumn ('u_itemdef_itemcode')
		RETURN 1
	elseIF dw_uc.GetColumnName ( ) = 'u_itemdef_itemcode' AND Key = KeyEnter! THEN
		dw_uc.AcceptText()
		ls_itemcode = Upper(Trim(dw_uc.Object.u_itemdef_itemcode[dw_uc.GetRow()]))
		SELECT
		u_itemdef.itemid,
		u_itemdef.itemcode,
		u_itemdef.itemname,
		u_itemdef.itemtype,
		u_itemdef.itemsectype,
		u_itemdef.itemflag
		INTO
		:ls_itemid,
		:ls_itemcode,
		:ls_itemname,
		:ls_itemtype,
		:ls_itemsectype,
		:ls_itemflag
		FROM u_itemdef
		Where ( u_itemdef.itemcode = :ls_itemcode )
		and (u_itemdef.itemflag = :cur_itemflag);
		IF sqlca.SQLCode <> 0 THEN
			IF Pos(Trim(ls_itemcode),'%') = 0 THEN
				ls_find_code = '%'+ Trim(ls_itemcode) + '%'
			ELSE
				ls_find_code = Trim(ls_itemcode)
			END IF
			
			SELECT count(*) INTO :cnt
				FROM u_itemdef
				Where ( u_itemdef.itemcode Like :ls_find_code)
				and (u_itemdef.itemflag = :cur_itemflag);
			IF sqlca.SQLCode <> 0 THEN
				PARENT.TriggerEvent('ue_f9')
				RETURN 1
			END IF
			IF cnt <> 1 THEN
				PARENT.TriggerEvent('ue_f9')
				RETURN 1
			ELSE
				SELECT
				u_itemdef.itemid,
				u_itemdef.itemcode,
				u_itemdef.itemname,
				u_itemdef.itemtype,
				u_itemdef.itemsectype,
				u_itemdef.itemflag
				INTO	:ls_itemid,:ls_itemcode,:ls_itemname,:ls_itemtype,:ls_itemsectype,:ls_itemflag
				FROM u_itemdef
				Where (u_itemdef.itemcode Like :ls_find_code)
				and (u_itemdef.itemflag = :cur_itemflag);
				IF sqlca.SQLCode <> 0 THEN
					
					PARENT.TriggerEvent('ue_f9')
					RETURN 1
				ELSE
					if_find = TRUE
				END IF
			END IF
		ELSE
			if_find = TRUE
		END IF
		
		IF if_find THEN
			dw_uc.SetRedraw(FALSE)
			dw_uc.Object.u_income_expenses_itemid[dw_uc.GetRow()] = ls_itemid
			dw_uc.Object.u_itemdef_itemcode[dw_uc.GetRow()] = ls_itemcode
			dw_uc.Object.u_itemdef_itemname[dw_uc.GetRow()] = ls_itemname
			dw_uc.Object.u_itemdef_itemtype[dw_uc.GetRow()] = ls_itemtype
			dw_uc.Object.u_itemdef_itemsectype[dw_uc.GetRow()] = ls_itemsectype
			dw_uc.Object.u_itemdef_itemflag[dw_uc.GetRow()] = ls_itemflag
			dw_uc.SetRedraw(TRUE)
			dw_uc.SetColumn("u_income_expenses_amt")
			RETURN 1
		END IF
		
		
	ELSE
		IF  Key = KeyEnter! THEN //
			keybd_event ( 9, 0, 0 , 0 ) // 按下tab 
			keybd_event ( 9, 0, 2, 0 ) // 释放tab 
			RETURN 1
		END IF
	END IF
END IF



end event

event dw_uc::clicked;call super::clicked;IF row > 0 THEN
	IF dwo.Name = 'b_dept' THEN
		Parent.TriggerEvent('ue_dept_ch')
	END IF
END IF

end event

event dw_uc::buttonclicked;call super::buttonclicked;IF dw_edit_mode And row > 0  THEN
	IF dwo.Name = 'b_f11' THEN
		Parent.TriggerEvent('ue_f11')
	END IF
END IF

end event

event dw_uc::doubleclicked;IF dw_edit_mode And row > 0  THEN
	IF dwo.Name = 'u_income_expenses_accountsid' THEN
		Parent.TriggerEvent('ue_f11')
	END IF
END IF



end event

event dw_uc::itemchanged;call super::itemchanged;IF NOT dw_edit_mode THEN RETURN

THIS.AcceptText()

Long ll_moneyid_account,ll_moneyid
Long ll_accountid

If (dwo.Name = 'u_income_expenses_rapmoneyid' OR dwo.Name = 'u_income_expenses_accountsid') AND THIS.Object.u_income_expenses_accountsid[row] > 0  THEN
	THIS.SetRedraw(FALSE)
	
	ll_accountid = THIS.Object.u_income_expenses_accountsid[row]
	ll_moneyid = THIS.Object.u_income_expenses_rapmoneyid[row]
	
	
	SELECT moneyid INTO :ll_moneyid_account
		FROM u_accounts
		Where accountsid = :ll_accountid;
	IF sqlca.SQLCode <> 0 THEN
		ll_moneyid_account = 0
		RETURN
	END IF
	
	THIS.Object.u_income_expenses_rapmoneyid[row] = ll_moneyid_account

//	IF ll_moneyid = ll_moneyid_account THEN
//		THIS.Object.u_cusamt_mrate[row] = 1
//	ELSE 
//		THIS.Object.u_cusamt_mrate[dw_uc.GetRow()] = f_get_mrate(ll_moneyid)
//	END IF
	
	THIS.SetRedraw(TRUE)
END IF

end event

type gb_2 from w_publ_1ton_share_detail`gb_2 within w_income_expenses
integer x = 338
integer y = 864
integer width = 215
integer height = 348
end type

type dw_child from w_publ_1ton_share_detail`dw_child within w_income_expenses
integer y = 1344
integer height = 924
string dataobject = "dw_income_expenses_mx_edit"
end type

event dw_child::dwnkey;call super::dwnkey;Parent.TriggerEvent('user_key')

String ls_itemcode
Long ls_itemid
String ls_itemname,ls_itemtype,ls_itemsectype,ls_find_code
Long cnt
Boolean if_find
Long ll_row

IF dw_edit_mode THEN
	IF KeyDown(keydownarrow!) THEN
		Long li_row
		IF dw_child.GetRow() = dw_child.RowCount() THEN
			Parent.TriggerEvent("insert_childrow")
		END IF
	ELSE
		IF KeyDown(keyenter!) And Not KeyDown(keycontrol!) And Not KeyDown(keyshift!) THEN
			IF dw_child.GetColumnName() = 'u_itemdef_itemcode' THEN
				dw_child.AcceptText()
				ls_itemcode = Upper(Trim(dw_child.Object.u_itemdef_itemcode[dw_child.GetRow()]))
				SELECT
				u_itemdef.itemid,
				u_itemdef.itemcode,
				u_itemdef.itemname,
				u_itemdef.itemtype,
				u_itemdef.itemsectype
				Into
				:ls_itemid,
				:ls_itemcode,
				:ls_itemname,
				:ls_itemtype,
				:ls_itemsectype
				From u_itemdef
				Where ( u_itemdef.itemcode = :ls_itemcode )
				And (u_itemdef.itemflag = :cur_itemflag);
				IF sqlca.SQLCode <> 0 THEN
					IF Pos(Trim(ls_itemcode),'%') = 0 THEN
						ls_find_code = '%'+ Trim(ls_itemcode) + '%'
					ELSE
						ls_find_code = Trim(ls_itemcode)
					END IF
					
					SELECT count(*) INTO :cnt
						FROM u_itemdef
						WHERE ( u_itemdef.itemcode LIKE :ls_find_code)
						And (u_itemdef.itemflag = :cur_itemflag);
					IF sqlca.SQLCode <> 0 THEN
						Parent.TriggerEvent('ue_f8')
						RETURN 1
					END IF
					IF cnt <> 1 THEN
						Parent.TriggerEvent('ue_f8')
						RETURN 1
					ELSE
						SELECT
						u_itemdef.itemid,
						u_itemdef.itemcode,
						u_itemdef.itemname,
						u_itemdef.itemtype,
						u_itemdef.itemsectype
						Into	:ls_itemid,:ls_itemcode,:ls_itemname,:ls_itemtype,:ls_itemsectype
						From u_itemdef
						Where (u_itemdef.itemcode Like :ls_find_code)
						And (u_itemdef.itemflag = :cur_itemflag);
						IF sqlca.SQLCode <> 0 THEN
							
							Parent.TriggerEvent('ue_f9')
							RETURN 1
						ELSE
							if_find = True
						END IF
					END IF
				ELSE
					if_find = True
				END IF
				
				IF if_find THEN
//					ll_row = dw_child.Find('u_income_expenses_mx_itemid = '+String(ls_itemid),1,dw_child.RowCount())
//					
//					IF ll_row > 0 THEN
//						dw_child.Object.u_itemdef_itemcode[dw_child.GetRow()] = ''
//						dw_child.SetRow(ll_row)
//						dw_child.ScrollToRow(ll_row)
//						dw_child.SelectRow(0,False)
//						dw_child.SelectRow(ll_row,True)
//						RETURN 1
//					END IF
					
					dw_child.SetRedraw(False)
					dw_child.Object.u_income_expenses_mx_itemid[dw_child.GetRow()] = ls_itemid
					dw_child.Object.u_itemdef_itemcode[dw_child.GetRow()] = ls_itemcode
					dw_child.Object.u_itemdef_itemname[dw_child.GetRow()] = ls_itemname
					dw_child.Object.u_itemdef_itemtype[dw_child.GetRow()] = ls_itemtype
					dw_child.Object.u_itemdef_itemsectype[dw_child.GetRow()] = ls_itemsectype
					dw_child.SetRedraw(True)
					dw_child.SetColumn("u_income_expenses_mx_amt")
				END IF
				IF Key = keyenter!  THEN
					keybd_event ( 9, 0, 0 , 0 ) // 按下tab 
					keybd_event ( 9, 0, 2, 0 ) // 释放tab 	
					RETURN 1
				END IF
			END IF
		END IF
	END IF
END IF




end event

event dw_child::itemchanged;call super::itemchanged;IF dwo.Name = 'u_income_expenses_mx_buildtype' THEN
	dw_child.Object.u_income_expenses_mx_relbillcode[row] = ''
	dw_child.Object.u_income_expenses_mx_relscid[row] = 0
	dw_child.Object.u_income_expenses_mx_relbillid[row] = 0
END IF


end event

event dw_child::doubleclicked;IF Not dw_edit_mode THEN RETURN

dw_child.AcceptText()
IF row > 0 THEN
	IF dwo.Name = 'u_income_expenses_mx_relbillcode' THEN
		IF dw_child.Object.u_income_expenses_mx_buildtype[row] = 1 THEN
			Parent.TriggerEvent('ue_f10')
		ELSEIF dw_child.Object.u_income_expenses_mx_buildtype[row] = 2 THEN
			Parent.TriggerEvent('ue_f7')
		ELSEIF dw_child.Object.u_income_expenses_mx_buildtype[row] = 3 THEN
			Parent.TriggerEvent('ue_f9')
		END IF
	ELSE
		Parent.TriggerEvent('ue_f8')
	END IF
END IF


end event

type cb_viewprint from w_publ_1ton_share_detail`cb_viewprint within w_income_expenses
integer x = 1673
end type

type cb_print from w_publ_1ton_share_detail`cb_print within w_income_expenses
integer x = 1481
end type

type cb_add from w_publ_1ton_share_detail`cb_add within w_income_expenses
integer x = 293
end type

event cb_add::clicked;IF Not f_power_ind(989,sys_msg_pow) THEN
	MessageBox(publ_operator,sys_msg_pow)
	RETURN
END IF


String arg_msg = ''
Long uc_row
Long ll_i
Decimal ld_amt_uc,ld_amt_mx

IF dw_edit_mode THEN
	dw_uc.AcceptText()
	dw_child.AcceptText()
	uc_row = dw_uc.GetRow()
	
	
	
	IF uc_row <= 0 THEN
		MessageBox('系统提示','请选定当前目标单据!')
		RETURN
	END IF
	
	
	IF Not dw_uc.Object.u_income_expenses_outdate[uc_row] > DateTime(2000-01-01,Now()) THEN
		MessageBox('系统提示','不合理单据日期')
		dw_uc.SetFocus()
		dw_uc.SetColumn('u_income_expenses_outdate')
		RETURN
	END IF
	
	IF Not dw_uc.Object.u_income_expenses_viewdate[uc_row] > DateTime(2000-01-01,Now()) THEN
		MessageBox('系统提示','不合理出纳日期')
		dw_uc.SetFocus()
		dw_uc.SetColumn('u_income_expenses_outdate')
		RETURN
	END IF
	
	IF Trim(dw_uc.Object.u_income_expenses_rep[uc_row]) = '' THEN
		MessageBox('系统提示','请输入经手人')
		dw_uc.SetFocus()
		dw_uc.SetColumn('u_income_expenses_rep')
		RETURN
	END IF
	
	IF dw_uc.Object.u_income_expenses_banktypeid[uc_row] = 0 THEN
		MessageBox('系统提示','请选择结算方式')
		dw_uc.SetFocus()
		dw_uc.SetColumn('u_income_expenses_banktypeid')
		RETURN
	END IF
	
	//	IF dw_uc.Object.u_income_expenses_itemid[uc_row] = 0 THEN
	//		MessageBox('系统提示','请选择收支项目')
	//		dw_uc.SetFocus()
	//		dw_uc.SetColumn('u_itemdef_itemcode')
	//		RETURN
	//	END IF
	
	IF dw_uc.Object.u_income_expenses_accountsid[uc_row] = 0 THEN
		MessageBox('系统提示','请选择银行帐号')
		dw_uc.SetFocus()
		dw_uc.SetColumn('u_income_expenses_accountsid')
		RETURN
	END IF
	
	//	IF dw_uc.Object.u_income_expenses_amt[uc_row] = 0 THEN
	//		MessageBox('系统提示','请输入金额')
	//		dw_uc.SetFocus()
	//		dw_uc.SetColumn('u_income_expenses_amt')
	//		RETURN
	//	END IF
	
	//	IF dw_uc.Object.u_income_expenses_credencecode[uc_row] = '' THEN
	//		MessageBox('系统提示','请输入凭证编号')
	//		dw_uc.SetFocus()
	//		dw_uc.SetColumn('u_income_expenses_credencecode')
	//		RETURN
	//	END IF
	
	//检查金额
	IF sys_option_income_secaudit = 1 And dw_uc.Object.u_income_expenses_flag[uc_row] = 1 THEN
		ld_amt_uc = dw_uc.Object.u_income_expenses_amt[uc_row]
		
		ld_amt_mx = 0
		FOR ll_i = 1 To dw_child.RowCount()
			ld_amt_mx = ld_amt_mx + dw_child.Object.u_income_expenses_mx_amt[ll_i]
		NEXT
		
		IF ld_amt_uc <> ld_amt_mx THEN
			MessageBox('系统提示','明细总金额与主表金额不一致,请检查')
			RETURN
		END IF
	END IF
	
	
	uo_ie.credencecode = dw_uc.Object.u_income_expenses_credencecode[uc_row]
	uo_ie.banktypeid = dw_uc.Object.u_income_expenses_banktypeid[uc_row]
	//	uo_ie.amt = dw_uc.Object.u_income_expenses_amt[uc_row]
	uo_ie.accountsid = dw_uc.Object.u_income_expenses_accountsid[uc_row]
	uo_ie.outdate = dw_uc.Object.u_income_expenses_outdate[uc_row]
    uo_ie.viewdate = dw_uc.Object.u_income_expenses_viewdate[uc_row]// 新加
	uo_ie.Descrp = dw_uc.Object.u_income_expenses_Descrp[uc_row]
	uo_ie.rep = dw_uc.Object.u_income_expenses_rep[uc_row]
	uo_ie.scid = dw_uc.Object.scid[uc_row]
	//	uo_ie.itemid = dw_uc.Object.u_income_expenses_itemid[uc_row]
	uo_ie.billtype = 0
	uo_ie.scid = dw_uc.Object.scid[uc_row]
	
	//	uo_ie.deptid = dw_uc.Object.u_income_expenses_deptid[uc_row]
	uo_ie.itemflag = dw_uc.Object.itemflag[uc_row]
	
	FOR ll_i = 1 To dw_child.RowCount()
		IF dw_child.Object.u_income_expenses_mx_itemid[ll_i] > 0 And dw_child.Object.u_income_expenses_mx_amt[ll_i] <> 0 THEN
			IF uo_ie.acceptmx(dw_child.Object.u_income_expenses_mx_itemid[ll_i] ,&
				dw_child.Object.u_income_expenses_mx_amt[ll_i],&
				dw_child.Object.u_income_expenses_mx_deptid[ll_i],&
				dw_child.Object.u_income_expenses_mx_buildtype[ll_i],&
				dw_child.Object.u_income_expenses_mx_relscid[ll_i],&
				dw_child.Object.u_income_expenses_mx_relbillid[ll_i],&
				dw_child.Object.u_income_expenses_mx_relbillcode[ll_i],&
				dw_child.Object.u_income_expenses_mx_useemp[ll_i],&
				dw_child.Object.u_income_expenses_mx_mxdscrp[ll_i],&
				arg_msg) = 0 THEN
				MessageBox('Error',arg_msg)
				RETURN
			END IF
		END IF
	NEXT
	
	IF uo_ie.Save(publ_operator,arg_msg,True) = 0 THEN
		MessageBox('error!',arg_msg)
		RETURN
	END IF
	MessageBox(publ_operator,'保存操作成功!')
	
	f_SetProfileString (sys_empid,dw_uc.DataObject, "dft_banktype",String(dw_uc.Object.u_income_expenses_banktypeid[dw_uc.GetRow()]))
	Long ll_row
	ll_row = dw_pageretr.GetRow()
	dw_pageretr.SelectRow(0,False)
	dw_pageretr.SelectRow(ll_row,True)
	
	wf_refresh_curuc(uo_ie.billid)
ELSE
	if cur_itemflag  = 0 then 
		MessageBox('error!','请选择收支方向')
		RETURN
	end if
	if cur_scid  < 0 then 
		MessageBox('error!','请选择分部')
		RETURN
	end if
	
	IF uo_ie.newbegin(arg_msg) = 0 THEN
		MessageBox('error!',arg_msg)
		RETURN
	END IF
END IF

CALL Super::Clicked


IF dw_edit_mode THEN
	Parent.TriggerEvent("insert_childrow")
	string ls_banktype
	ls_banktype = f_ProfileString (sys_empid,dw_uc.DataObject, "dft_banktype",'0')
	
	dw_uc.Object.itemflag[dw_uc.GetRow()] = cur_itemflag
	dw_uc.Object.scid[dw_uc.GetRow()] = cur_scid
	dw_uc.Object.u_income_expenses_viewdate[dw_uc.GetRow()] =datetime(date(today()),time(now()))
	dw_uc.Object.u_income_expenses_rep[dw_uc.GetRow()] = publ_operator
	dw_uc.Object.u_income_expenses_banktypeid[dw_uc.GetRow()] = Long(ls_banktype)
ELSE
	Parent.TriggerEvent("retrieve_childdw")
	
	IF cbx_1.Checked THEN
		This.TriggerEvent(Clicked!)
		RETURN 1
	END IF
END IF











end event

type cb_edit from w_publ_1ton_share_detail`cb_edit within w_income_expenses
integer x = 485
end type

event cb_edit::clicked;IF Not f_power_ind(989,sys_msg_pow) THEN
	MessageBox(publ_operator,sys_msg_pow)
	RETURN
END IF


string arg_msg=''
long uc_row

uc_row=dw_pageretr.getrow()
if uc_row<=0 then
	messagebox('系统提示','请选定当前目标单据!')
	return
end if

if not dw_edit_mode then
	if uo_ie.updatebegin(dw_pageretr.object.U_income_expenses_billid[uc_row],arg_msg)=0 then
		messagebox('Error!',arg_msg)
		return
	end if
	
	wf_refresh_curuc(dw_pageretr.Object.U_income_expenses_billid[uc_row])

end if

call super::clicked

end event

type cb_delet from w_publ_1ton_share_detail`cb_delet within w_income_expenses
integer x = 677
end type

event cb_delet::clicked;call super::clicked;IF Not f_power_ind(990,sys_msg_pow) THEN
	MessageBox(publ_operator,sys_msg_pow)
	RETURN
END IF

IF dw_edit_mode THEN RETURN


String arg_msg = ''
Long uc_row

uc_row = dw_pageretr.GetRow()

IF uc_row <= 0 THEN
	MessageBox('系统提示','请选定当前目标单据!')
	RETURN
END IF

IF MessageBox ("IF","是否确定要删除当前单据吗?",Question!,YesNo! ) = 2 THEN RETURN

IF uo_ie.Cancel(dw_pageretr.Object.U_income_expenses_billid[uc_row],arg_msg,True) = 0 THEN
	MessageBox('Error!',arg_msg)
ELSE
	//日志
	Long ls_id
	String ls_code
	ls_id = dw_pageretr.Object.U_income_expenses_billid[uc_row]
	ls_code = dw_pageretr.Object.U_income_expenses_billcode[uc_row]
	f_setsysoplog('收支单','收支单删除,id:'+String(ls_id)+',code:'+ls_code,arg_msg,True)
	//--
	
	MessageBox(publ_operator,'删除单据'+String(dw_pageretr.Object.U_income_expenses_billcode[uc_row])+'成功!')
	dw_pageretr.DeleteRow(uc_row)
	dw_pageretr.TriggerEvent(RowFocusChanged!)
END IF


end event

type cb_addzy from w_publ_1ton_share_detail`cb_addzy within w_income_expenses
integer x = 1211
integer width = 270
end type

event cb_addzy::clicked;call super::clicked;m_Dfc_Control_PopupMenu dmPopupMenu
String menustr

IF Not dw_edit_mode THEN
	menustr = "|"+"Text=补充备注~tEvent=ue_addzy"
	menustr +=  "|" + "Text=查看附件~tEvent=ue_fj_view"
	menustr +=  "|" + "Text=添加附件~tEvent=ue_fj_edit"
END IF

IF Len(Trim(menustr)) <> 0 THEN
	dmPopupMenu = Create m_Dfc_Control_PopupMenu
	dmPopupMenu.mf_BuildMenu(This, menustr)
	dmPopupMenu.mf_PopMenu()
	Destroy dmPopupMenu
END IF






end event

type cb_auditing from w_publ_1ton_share_detail`cb_auditing within w_income_expenses
integer x = 827
end type

event cb_auditing::clicked;call super::clicked;IF dw_edit_mode THEN RETURN
String arg_msg = ''

Long pagerert_row

Long ll_i,ll_billid,ll_scid
Int li_flag
Long ll_suc,ll_fail

IF Not KeyDown(KeyControl!) THEN
	pagerert_row = dw_pageretr.GetRow()
	IF pagerert_row <= 0 THEN
		MessageBox('系统提示','请选定当前目标单据!')
		RETURN
	END IF
	
	IF dw_pageretr.Object.u_income_expenses_flag[pagerert_row] = 0 THEN
		IF Not f_power_ind(991,sys_msg_pow) THEN
			MessageBox(publ_operator,sys_msg_pow)
			RETURN
		END IF
		
		IF MessageBox ("询问","是否确定要审核当前单据?",question!,yesno! ) = 2 THEN RETURN
		
		IF uo_ie.permit(dw_pageretr.Object.u_income_expenses_billid[pagerert_row],publ_operator,arg_msg,True) = 0 THEN
			MessageBox('error!',arg_msg)
		ELSE
			MessageBox(publ_operator,'审核成功!')
			wf_refresh_curuc(dw_pageretr.Object.u_income_expenses_billid[pagerert_row])
		END IF
	ELSEIF dw_pageretr.Object.u_income_expenses_flag[pagerert_row] = 1 And dw_pageretr.Object.u_income_expenses_secflag[pagerert_row] = 0 THEN
		IF Not f_power_ind(995,sys_msg_pow) THEN
			MessageBox(publ_operator,sys_msg_pow)
			RETURN
		END IF
		
		IF MessageBox ("询问","是否确定要财务确认当前单据?",question!,yesno! ) = 2 THEN RETURN
		
		IF uo_ie.permit2(dw_pageretr.Object.u_income_expenses_billid[pagerert_row],publ_operator,arg_msg,True) = 0 THEN
			MessageBox('error!',arg_msg)
		ELSE
			MessageBox(publ_operator,'财务确认成功!')
			wf_refresh_curuc(dw_pageretr.Object.u_income_expenses_billid[pagerert_row])
		END IF
	END IF
ELSE
	IF Not f_power_ind(991,sys_msg_pow) THEN
		MessageBox(publ_operator,sys_msg_pow)
		RETURN
	END IF
	
	IF MessageBox ("询问","是否确定要批审核列表中未审核的单据?",question!,yesno! ) = 2 THEN RETURN
	
	dw_pageretr.AcceptText()
	
	Open(w_sys_wait_jdt) //初始化进度条
	w_sys_wait_jdt.Show()
	w_sys_wait_jdt.wf_accepttol(dw_pageretr.RowCount())
	
	FOR ll_i = 1 To dw_pageretr.RowCount()
		w_sys_wait_jdt.st_msg.Text = dw_pageretr.Object.u_income_expenses_billcode[ll_i] + " 正在审核..." //进度信息
		
		li_flag = dw_pageretr.Object.u_income_expenses_flag[ll_i]
		IF li_flag = 1 THEN CONTINUE
		ll_billid = dw_pageretr.Object.u_income_expenses_billid[ll_i]
		
		IF uo_ie.permit(ll_billid,publ_operator,arg_msg,True) = 0 THEN
			ll_fail++
			CONTINUE
		END IF
		
		ll_suc++
		w_sys_wait_jdt.wf_inc(ll_i) //进度
	NEXT
	Close(w_sys_wait_jdt)
	MessageBox(publ_operator,'批审核成功!成功:'+String(ll_suc)+',失败:'+String(ll_fail))
	Parent.TriggerEvent('retrieve_pageretr')
END IF









end event

type cb_xm from w_publ_1ton_share_detail`cb_xm within w_income_expenses
boolean visible = false
integer x = 3026
boolean enabled = false
end type

type cb_retrieve from w_publ_1ton_share_detail`cb_retrieve within w_income_expenses
integer width = 142
end type

type cb_xls from w_publ_1ton_share_detail`cb_xls within w_income_expenses
integer x = 1865
end type

type cb_help from w_publ_1ton_share_detail`cb_help within w_income_expenses
integer x = 2167
end type

type cb_auditing_cancel from w_publ_1ton_share_detail`cb_auditing_cancel within w_income_expenses
integer x = 1019
integer width = 192
end type

event cb_auditing_cancel::clicked;call super::clicked;

IF dw_edit_mode THEN RETURN
String arg_msg = ''
String ls_code
Long pagerert_row

pagerert_row = dw_pageretr.GetRow()
IF pagerert_row <= 0 THEN
	MessageBox('系统提示','请选定当前目标单据!')
	RETURN
END IF

IF dw_pageretr.Object.u_income_expenses_flag[pagerert_row] = 1 And dw_pageretr.Object.u_income_expenses_secflag[pagerert_row] = 0 THEN
	
	IF Not f_power_ind(992,sys_msg_pow) THEN
		MessageBox(publ_operator,sys_msg_pow)
		RETURN
	END IF
	
	IF MessageBox ("询问","是否确定要撤消审核当前单据?",question!,yesno! ) = 2 THEN RETURN
	
	IF uo_ie.cancelpermit(dw_pageretr.Object.u_income_expenses_billid[pagerert_row],arg_msg,True) = 0 THEN
		MessageBox('error!',arg_msg)
	ELSE
		MessageBox(publ_operator,'撤消审核成功!')
		wf_refresh_curuc(dw_pageretr.Object.u_income_expenses_billid[pagerert_row])
		
		//日志    
		ls_code = dw_pageretr.Object.u_income_expenses_billcode[pagerert_row]
		f_setsysoplog('其它收入支出单','其它收入支出单撤审'+',code:'+ls_code,arg_msg,True)
		//--
	END IF
ELSEIF dw_pageretr.Object.u_income_expenses_flag[pagerert_row] = 1 And dw_pageretr.Object.u_income_expenses_secflag[pagerert_row] = 1 THEN
	
	IF MessageBox ("询问","是否确定要财务反确认当前单据?",question!,yesno! ) = 2 THEN RETURN
	
	IF Not f_power_ind(996,sys_msg_pow) THEN
		MessageBox(publ_operator,sys_msg_pow)
		RETURN
	END IF
	
	IF uo_ie.cancelpermit2(dw_pageretr.Object.u_income_expenses_billid[pagerert_row],arg_msg,True) = 0 THEN
		MessageBox('error!',arg_msg)
	ELSE
		MessageBox(publ_operator,'财务反确认成功!')
		wf_refresh_curuc(dw_pageretr.Object.u_income_expenses_billid[pagerert_row])
		
		//日志    
		ls_code = dw_pageretr.Object.u_income_expenses_billcode[pagerert_row]
		f_setsysoplog('其它收入支出单','其它收入支出单财务反确认'+',code:'+ls_code,arg_msg,True)
		//--
	END IF
END IF




end event

type p_msg from w_publ_1ton_share_detail`p_msg within w_income_expenses
end type

type p_help from w_publ_1ton_share_detail`p_help within w_income_expenses
end type

type p_encl from w_publ_1ton_share_detail`p_encl within w_income_expenses
end type

type p_other from w_publ_1ton_share_detail`p_other within w_income_expenses
end type

type gb_3 from w_publ_1ton_share_detail`gb_3 within w_income_expenses
end type

type ln_bar from w_publ_1ton_share_detail`ln_bar within w_income_expenses
integer endx = 2894
end type

type ln_bar2 from w_publ_1ton_share_detail`ln_bar2 within w_income_expenses
end type

type r_bar from w_publ_1ton_share_detail`r_bar within w_income_expenses
integer x = 3008
end type

type ln_1 from w_publ_1ton_share_detail`ln_1 within w_income_expenses
end type

type ln_2 from w_publ_1ton_share_detail`ln_2 within w_income_expenses
end type

type ddlb_status from dropdownlistbox within w_income_expenses
integer x = 1618
integer y = 188
integer width = 453
integer height = 412
integer taborder = 10
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
string text = "[全部]"
boolean sorted = false
string item[] = {"[全部]","待审核","待财务确认","审核完毕"}
borderstyle borderstyle = stylelowered!
end type

event selectionchanged;IF Index = 1 THEN
	cur_flag = -1
	cur_secflag = -1
ELSEIF Index = 2 THEN
	cur_flag = 0
	cur_secflag = 0
ELSEIF Index = 3 THEN
	cur_flag = 1
	cur_secflag = 0
ELSEIF Index = 4 THEN
	cur_flag = 1
	cur_secflag = 1
END IF
Parent.TriggerEvent('retrieve_pageretr')

end event

type st_3 from statictext within w_income_expenses
integer x = 1486
integer y = 204
integer width = 114
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 = 134217739
string text = "状态"
alignment alignment = center!
boolean focusrectangle = false
end type

type ddlb_itemflag from dropdownlistbox within w_income_expenses
integer x = 2226
integer y = 188
integer width = 439
integer height = 300
integer taborder = 20
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
string text = "支出"
boolean sorted = false
string item[] = {"[全部]","支出","收入"}
borderstyle borderstyle = stylelowered!
end type

event selectionchanged;IF This.Text = '[全部]' THEN
	cur_itemflag = 0
ELSEIF This.Text = '收入' THEN
	cur_itemflag = 1
ELSE
	cur_itemflag = -1
END IF

Parent.TriggerEvent('retrieve_pageretr')

end event

type st_2 from statictext within w_income_expenses
integer x = 2085
integer y = 204
integer width = 119
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 = 134217739
string text = "方向"
boolean focusrectangle = false
end type

type ddlb_scid from uo_ddlb_scid within w_income_expenses
integer x = 896
integer y = 188
integer width = 549
integer height = 1120
integer taborder = 20
boolean bringtotop = true
end type

event constructor;call super::constructor;cur_scid = This.uo_scid

end event

event selectionchanged;call super::selectionchanged;cur_scid = This.uo_scid
Parent.TriggerEvent("retrieve_pageretr")

end event

type st_4 from statictext within w_income_expenses
integer x = 713
integer y = 204
integer width = 165
integer height = 48
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 134217739
string text = "分部"
alignment alignment = right!
boolean focusrectangle = false
end type

type cbx_1 from checkbox within w_income_expenses
integer x = 2688
integer y = 196
integer width = 411
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 = 134217739
string text = "保存自动新建"
end type

event constructor;int li_auto
li_auto =long(f_profilestring(sys_empid, this.classname(), "auto_add", string(0)))
if li_auto = 1 then
	this.checked = true	
else
	this.checked = false	
end if
end event