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

$PBExportHeader$w_cusamt_edit.srw
forward
global type w_cusamt_edit from w_publ_1ton_share_detail
end type
type ddlb_status from dropdownlistbox within w_cusamt_edit
end type
type ddlb_scid from uo_ddlb_scid within w_cusamt_edit
end type
type st_3 from statictext within w_cusamt_edit
end type
type st_2 from statictext within w_cusamt_edit
end type
type cb_confirm from uo_imflatbutton within w_cusamt_edit
end type
type cb_cconfirm from uo_imflatbutton within w_cusamt_edit
end type
type cbx_1 from checkbox within w_cusamt_edit
end type
end forward

global type w_cusamt_edit from w_publ_1ton_share_detail
string title = "客户收款单"
boolean maxbox = true
windowstate windowstate = maximized!
event ue_update_cust ( )
event ue_fj_view ( )
event ue_fj_edit ( )
event ue_p_auditing ( )
event ue_c_p_auditing ( )
event ue_p_secauditing ( )
event ue_c_p_secauditing ( )
event ue_p_confirm ( )
event ue_c_p_confirm ( )
ddlb_status ddlb_status
ddlb_scid ddlb_scid
st_3 st_3
st_2 st_2
cb_confirm cb_confirm
cb_cconfirm cb_cconfirm
cbx_1 cbx_1
end type
global w_cusamt_edit w_cusamt_edit

type variables
uo_cusamt uo_take
Int cur_flag = -1
int cur_secflag = -1
Int cur_confirmflag = -1
Long cur_scid



end variables

forward prototypes
public function integer wf_refresh_curuc (long arg_billid)
public function integer wf_flagstatus_rf ()
end prototypes

event ue_update_cust();//用于选择明细内容,被F9[默认]
IF dw_edit_mode THEN RETURN

IF Not f_power_ind(1514) THEN
	MessageBox('提示','你没有使用权限！',information!,ok!)
	RETURN
END IF

Long uc_row,ll_cusmonid
String arg_msg

dw_uc.AcceptText()

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

ll_cusmonid = dw_uc.Object.u_cusamt_cusmonid[uc_row]

IF Not IsValid(w_cust_edit) THEN
	s_edit_index_tran s_ch_tran //传递参数使用
	s_ch_tran.if_retrieve_all = False //是否一次RETRIEVE所有行
	s_ch_tran.work_mode = 1 //0-单纯编辑模式 1-选择\编辑模式
	s_ch_tran.arg_pkid = 0 //目标定位PKID (备用)
	//查询列(物料编码)部分内容,用于初步筛选	
	dw_uc.AcceptText()
	
	OpenWithParm(w_cust_edit,s_ch_tran) //调用
	
	s_custom S_INSCUST
	S_INSCUST = Message.PowerObjectParm //接受返回结构
	
	IF S_INSCUST.cusid > 0 THEN //正常返回值则可以取以下值
		IF uo_take.uof_update_cust(ll_cusmonid,S_INSCUST.cusid,arg_msg,True) = 0 THEN
			MessageBox('提示',arg_msg)
			RETURN
		END IF
		MessageBox('提示','更新成功')
		wf_refresh_curuc(ll_cusmonid)
	END IF
END IF



end event

event ue_fj_view();IF dw_edit_mode THEN
	MessageBox('提示','编辑状态下不可用',information!,OK!)
	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,information!,OK!)
	RETURN
END IF

s_pic.f_long = 543 //
s_pic.f_string = dw_pageretr.Object.u_cusamt_cusmoncode[ls_row]
s_pic.g_long = dw_pageretr.Object.u_cusamt_cusmonid[ls_row]
s_pic.e_long = dw_pageretr.Object.u_cusamt_scid[ls_row]
s_pic.sqltransaction = sys_filedb_sqlca


OpenWithParm(w_fj_bill_view,s_pic)



end event

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

//IF NOT f_power_ind(1098) 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,information!,OK!)
	RETURN
END IF

s_pic.f_long = 543
s_pic.f_string = dw_pageretr.Object.u_cusamt_cusmoncode[ls_row]
s_pic.g_long = dw_pageretr.Object.u_cusamt_cusmonid[ls_row]
s_pic.e_long = dw_pageretr.Object.u_cusamt_scid[ls_row]
s_pic.sqltransaction = sys_filedb_sqlca


OpenWithParm(w_fj_bill_mng,s_pic)

end event

event ue_p_auditing();//批初审
Long i
String arg_msg,ls_msg2
String ls_taskcode

IF dw_edit_mode THEN RETURN

IF Not f_power_ind(924) THEN
	MessageBox('提示','你没有使用权限！',information!,ok!)
	RETURN
END IF



IF dw_pageretr.Find('ch = 1',1,dw_pageretr.RowCount()) = 0 THEN
	MessageBox('系统提示','请先勾选要批初审的单据！')
	RETURN
END IF

IF MessageBox ("询问","是否确定要对已选择的单据批初审核?",Question!,YesNo! ) = 2 THEN RETURN

Close(w_sys_wait)
Open(w_sys_wait)

FOR i = 1 To dw_pageretr.RowCount()
	ls_taskcode = ''
	arg_msg = ''
	ls_taskcode = dw_pageretr.Object.u_cusamt_cusmoncode[i]
	
	IF dw_pageretr.Object.ch[i] = 1 THEN
		IF dw_pageretr.Object.u_cusamt_flag[i] = 1 THEN
			
			arg_msg = ls_taskcode + '，已经初审' +'~r~n'
			ls_msg2 = ls_msg2 + arg_msg
			CONTINUE
		END IF
		
		
		IF uo_take.auditing(dw_pageretr.Object.u_cusamt_cusmonid[i],publ_operator,arg_msg,True) = 0 THEN
			arg_msg = ls_taskcode + '，初审失败，' +arg_msg  +'~r~n'
			ls_msg2 = ls_msg2 + arg_msg
			
			
		END IF
		
		
		
		
		
		
	END IF
NEXT
Close(w_sys_wait)
IF ls_msg2 <> '' THEN
	OpenWithParm(w_message_err,ls_msg2)
ELSE
	MessageBox('提示','全部初审成功！')
END IF

cb_retrieve.TriggerEvent('clicked')




end event

event ue_c_p_auditing();// 批初撤审

Long i
String arg_msg,ls_msg2
String ls_taskcode

IF dw_edit_mode THEN RETURN

IF Not f_power_ind(925) THEN
	MessageBox('提示','你没有使用权限！',information!,ok!)
	RETURN
END IF



IF dw_pageretr.Find('ch = 1',1,dw_pageretr.RowCount()) = 0 THEN
	MessageBox('系统提示','请先勾选要批初审的单据！')
	RETURN
END IF

IF MessageBox ("询问","是否确定要对已选择的单据批初审核?",Question!,YesNo! ) = 2 THEN RETURN

Close(w_sys_wait)
Open(w_sys_wait)

FOR i = 1 To dw_pageretr.RowCount()
	ls_taskcode = ''
	arg_msg = ''
	ls_taskcode = dw_pageretr.Object.u_cusamt_cusmoncode[i]
	
	IF dw_pageretr.Object.ch[i] = 1 THEN
		IF dw_pageretr.Object.u_cusamt_flag[i] = 0 THEN
			
			arg_msg = ls_taskcode + '，未初审，不能初撤' +'~r~n'
			ls_msg2 = ls_msg2 + arg_msg
			CONTINUE
		END IF
		
		
		IF dw_pageretr.Object.u_cusamt_secflag[i] = 1 THEN
			
			arg_msg = ls_taskcode + '，已终审，不能初撤' +'~r~n'
			ls_msg2 = ls_msg2 + arg_msg
			CONTINUE
		END IF
		
		
		
		
		
		IF uo_take.c_auditing(dw_pageretr.Object.u_cusamt_cusmonid[i],arg_msg,True) = 0 THEN
			arg_msg = ls_taskcode + '，初撤审失败，' +arg_msg  +'~r~n'
			ls_msg2 = ls_msg2 + arg_msg
			
			
		END IF
		
		
		
		
		
		
	END IF
NEXT
Close(w_sys_wait)
IF ls_msg2 <> '' THEN
	OpenWithParm(w_message_err,ls_msg2)
ELSE
	MessageBox('提示','全部初撤审成功！')
END IF

cb_retrieve.TriggerEvent('clicked')




end event

event ue_p_secauditing();//批终审

Long i
String arg_msg,ls_msg2
String ls_taskcode

IF dw_edit_mode THEN RETURN

IF Not f_power_ind(997) THEN
	MessageBox('提示','你没有使用权限！',information!,ok!)
	RETURN
END IF



IF dw_pageretr.Find('ch = 1',1,dw_pageretr.RowCount()) = 0 THEN
	MessageBox('系统提示','请先勾选要批终审的单据！')
	RETURN
END IF

IF MessageBox ("询问","是否确定要对已选择的单据批终审核?",Question!,YesNo! ) = 2 THEN RETURN

Close(w_sys_wait)
Open(w_sys_wait)

FOR i = 1 To dw_pageretr.RowCount()
	ls_taskcode = ''
	arg_msg = ''
	ls_taskcode = dw_pageretr.Object.u_cusamt_cusmoncode[i]
	
	IF dw_pageretr.Object.ch[i] = 1 THEN
		IF dw_pageretr.Object.u_cusamt_secflag[i] = 1 THEN
			
			arg_msg = ls_taskcode + '，已经终审' +'~r~n'
			ls_msg2 = ls_msg2 + arg_msg
			CONTINUE
		END IF
		
		
		IF uo_take.secauditing(dw_pageretr.Object.u_cusamt_cusmonid[i],publ_operator,arg_msg,True) = 0 THEN
			arg_msg = ls_taskcode + '，终审失败，' +arg_msg  +'~r~n'
			ls_msg2 = ls_msg2 + arg_msg
			
			
		END IF
		
		
		
		
		
		
	END IF
NEXT
Close(w_sys_wait)
IF ls_msg2 <> '' THEN
	OpenWithParm(w_message_err,ls_msg2)
ELSE
	MessageBox('提示','全部终审成功！')
END IF

cb_retrieve.TriggerEvent('clicked')




end event

event ue_c_p_secauditing();//批终撤


Long i
String arg_msg,ls_msg2
String ls_taskcode

IF dw_edit_mode THEN RETURN

IF Not f_power_ind(998) THEN
	MessageBox('提示','你没有使用权限！',information!,ok!)
	RETURN
END IF



IF dw_pageretr.Find('ch = 1',1,dw_pageretr.RowCount()) = 0 THEN
	MessageBox('系统提示','请先勾选要批终撤的单据！')
	RETURN
END IF

IF MessageBox ("询问","是否确定要对已选择的单据批终撤?",Question!,YesNo! ) = 2 THEN RETURN

Close(w_sys_wait)
Open(w_sys_wait)

FOR i = 1 To dw_pageretr.RowCount()
	ls_taskcode = ''
	arg_msg = ''
	ls_taskcode = dw_pageretr.Object.u_cusamt_cusmoncode[i]
	
	IF dw_pageretr.Object.ch[i] = 1 THEN
		IF dw_pageretr.Object.u_cusamt_secflag[i] = 0 THEN
			
			arg_msg = ls_taskcode + '，没有终审' +'~r~n'
			ls_msg2 = ls_msg2 + arg_msg
			CONTINUE
		END IF
		
		
		IF uo_take.c_secauditing(dw_pageretr.Object.u_cusamt_cusmonid[i],arg_msg,True) = 0 THEN
			arg_msg = ls_taskcode + '，终撤失败，' +arg_msg  +'~r~n'
			ls_msg2 = ls_msg2 + arg_msg
			
			
		END IF
		
		
		
		
		
		
	END IF
NEXT
Close(w_sys_wait)
IF ls_msg2 <> '' THEN
	OpenWithParm(w_message_err,ls_msg2)
ELSE
	MessageBox('提示','全部终撤成功！')
END IF

cb_retrieve.TriggerEvent('clicked')




end event

event ue_p_confirm();//批确认
Long i
String arg_msg,ls_msg2
String ls_taskcode

IF dw_edit_mode THEN RETURN

IF Not f_power_ind(926) THEN
	MessageBox('提示','你没有使用权限！',information!,ok!)
	RETURN
END IF



IF dw_pageretr.Find('ch = 1',1,dw_pageretr.RowCount()) = 0 THEN
	MessageBox('系统提示','请先勾选要批确认的单据！')
	RETURN
END IF

IF MessageBox ("询问","是否确定要对已选择的单据批确认?",Question!,YesNo! ) = 2 THEN RETURN

Close(w_sys_wait)
Open(w_sys_wait)

FOR i = 1 To dw_pageretr.RowCount()
	ls_taskcode = ''
	arg_msg = ''
	ls_taskcode = dw_pageretr.Object.u_cusamt_cusmoncode[i]
	
	IF dw_pageretr.Object.ch[i] = 1 THEN
		IF dw_pageretr.Object.u_cusamt_confirmflag[i] = 1 THEN
			
			arg_msg = ls_taskcode + '，已经确认' +'~r~n'
			ls_msg2 = ls_msg2 + arg_msg
			CONTINUE
		END IF
		
		If dw_pageretr.Object.u_cusamt_secflag[i] = 0 Then
			arg_msg =  ls_taskcode + '，未终审' +'~r~n'
			ls_msg2 = ls_msg2 + arg_msg
			CONTINUE
		END IF
		
		IF uo_take.confirm(dw_pageretr.Object.u_cusamt_cusmonid[i],publ_operator,arg_msg,True) = 0 THEN
			arg_msg = ls_taskcode + '，确认失败，' +arg_msg  +'~r~n'
			ls_msg2 = ls_msg2 + arg_msg
			
			
		END IF
		
		
		
		
		
		
	END IF
NEXT
Close(w_sys_wait)
IF ls_msg2 <> '' THEN
	OpenWithParm(w_message_err,ls_msg2)
ELSE
	MessageBox('提示','全部确认成功！')
END IF

cb_retrieve.TriggerEvent('clicked')




end event

event ue_c_p_confirm();//批反确认
Long i
String arg_msg,ls_msg2
String ls_taskcode

IF dw_edit_mode THEN RETURN

IF Not f_power_ind(927) THEN
	MessageBox('提示','你没有使用权限！',information!,ok!)
	RETURN
END IF



IF dw_pageretr.Find('ch = 1',1,dw_pageretr.RowCount()) = 0 THEN
	MessageBox('系统提示','请先勾选要批反确认的单据！')
	RETURN
END IF

IF MessageBox ("询问","是否确定要对已选择的单据批反确认?",Question!,YesNo! ) = 2 THEN RETURN

Close(w_sys_wait)
Open(w_sys_wait)

FOR i = 1 To dw_pageretr.RowCount()
	ls_taskcode = ''
	arg_msg = ''
	ls_taskcode = dw_pageretr.Object.u_cusamt_cusmoncode[i]
	
	IF dw_pageretr.Object.ch[i] = 1 THEN
		IF dw_pageretr.Object.u_cusamt_confirmflag[i] = 0 THEN
			
			arg_msg = ls_taskcode + '，未确认，' +'~r~n'
			ls_msg2 = ls_msg2 + arg_msg
			CONTINUE
		END IF
		
		
		IF uo_take.cconfirm(dw_pageretr.Object.u_cusamt_cusmonid[i],publ_operator,arg_msg,True) = 0 THEN
			arg_msg = ls_taskcode + '，反确认失败，' +arg_msg  +'~r~n'
			ls_msg2 = ls_msg2 + arg_msg
			
			
		END IF
		
		
		
		
		
		
	END IF
NEXT
Close(w_sys_wait)
IF ls_msg2 <> '' THEN
	OpenWithParm(w_message_err,ls_msg2)
ELSE
	MessageBox('提示','全部反确认成功！')
END IF

cb_retrieve.TriggerEvent('clicked')




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


Long scid
String cuscode
Long accountid
DateTime cusdate
Decimal cusamt
String dscrp
Long cusid
String cusmoncode
Int flag
DateTime opdate
String opemp
DateTime moddate
String modemp
String Name
String audopemp
DateTime audopdate
Long cusmonid
String cusrep
Long moneyid
Long itemid
String itemcode
String itemname
String accountsname
String moneyname
String confirmemp
DateTime confirmdate
Int confirmflag
Long refrapid
Long banktypeid
Decimal mrate
DateTime viewdate
string relcode
string fpcode
long secflag
string secemp
datetime secdate
long acmoneyid
string rep
string bankstr
string idcode
string ls_dscrp
string accountrep

SELECT u_cusamt.scid,
	u_cust.cuscode,
	u_cusamt.accountid,
	u_cusamt.cusdate,
	u_cusamt.cusamt,
	u_cusamt.dscrp,
	u_cusamt.cusid,
	u_cusamt.cusmoncode,
	u_cusamt.flag,
	u_cusamt.opdate,
	u_cusamt.opemp,
	u_cusamt.moddate,
	u_cusamt.modemp,
	u_cust.name,
	u_cusamt.audopemp,
	u_cusamt.audopdate,
	u_cusamt.cusmonid,
	u_cusamt.cusrep,
	u_cusamt.moneyid,
	u_cusamt.mrate,
	u_cusamt.viewdate,
	u_cusamt.banktypeid,
	u_cusamt.itemid,
	u_itemdef.itemcode,
	u_itemdef.itemname,
	u_accounts.accountsname,
	cw_currency.name,
	u_cusamt.refrapid,
	u_cusamt.confirmemp,
	u_cusamt.confirmdate,
	u_cusamt.confirmflag,
	u_cusamt.relcode,
	u_cusamt.fpcode,
	u_cusamt.secflag,
	u_cusamt.secemp,
	u_cusamt.secdate,
	u_accounts.moneyid,
	u_cust.rep,
	u_accounts.bankstr,
	u_accounts.idcode,
	u_accounts.dscrp,
	u_accounts.accountrep
	INTO :scid,
	:cuscode,
	:accountid,
	:cusdate,
	:cusamt,
	:dscrp,
	:cusid,
	:cusmoncode,
	:flag,
	:opdate,
	:opemp,
	:moddate,
	:modemp,
	:Name,
	:audopemp ,
	:audopdate,
	:cusmonid,
	:cusrep,
	:moneyid,
	:mrate,
	:viewdate,
	:banktypeid,
	:itemid,
	:itemcode,
	:itemname,
	:accountsname,
	:moneyname,
	:refrapid,
	:confirmemp,
	:confirmdate,
	:confirmflag,
	:relcode,
	:fpcode,
	:secflag,
	:secemp,
	:secdate,
	:acmoneyid,
	:rep,
	:bankstr,
	:idcode,
	:ls_dscrp,
	:accountrep
	FROM u_cusamt LEFT OUTER JOIN u_itemdef 
	ON u_cusamt.itemid = u_itemdef.itemid LEFT OUTER JOIN u_accounts 
	ON u_cusamt.accountid = u_accounts.accountsid LEFT OUTER JOIN cw_currency 
	ON u_cusamt.moneyid = cw_currency.moneyid  LEFT OUTER JOIN u_cust 
	ON u_cusamt.cusid = u_cust.cusid 
	WHERE ( u_cusamt.cusmonid = :arg_billid );
	
IF sqlca.SQLCode <> 0 THEN
	MessageBox('错误',"查询单据操作失败"+sqlca.SQLErrText,stopsign!,ok!)
	RETURN 0
END IF


dw_pageretr.SetRedraw(FALSE)
dw_pageretr.Object.u_cusamt_scid[uc_row] = scid
dw_pageretr.Object.u_cust_cuscode[uc_row] = cuscode
dw_pageretr.Object.u_cusamt_accountid[uc_row] = accountid
dw_pageretr.Object.u_cusamt_cusdate[uc_row] = cusdate
dw_pageretr.Object.u_cusamt_cusamt[uc_row] = cusamt
dw_pageretr.Object.u_cusamt_dscrp[uc_row] = dscrp
dw_pageretr.Object.u_cusamt_cusid[uc_row] = cusid
dw_pageretr.Object.u_cusamt_cusmoncode[uc_row] = cusmoncode
dw_pageretr.Object.u_cusamt_flag[uc_row] = flag
dw_pageretr.Object.u_cusamt_opemp[uc_row] = opemp
dw_pageretr.Object.u_cusamt_opdate[uc_row] = opdate
dw_pageretr.Object.u_cusamt_modemp[uc_row] = modemp
dw_pageretr.Object.u_cusamt_moddate[uc_row] = moddate
dw_pageretr.Object.u_cusamt_audopemp[uc_row] = audopemp
dw_pageretr.Object.u_cusamt_audopemp[uc_row] = audopemp
dw_pageretr.Object.u_cusamt_audopdate[uc_row] = audopdate
dw_pageretr.Object.u_cusamt_moneyid[uc_row] = moneyid
dw_pageretr.Object.u_cusamt_mrate[uc_row] = mrate
dw_pageretr.Object.u_cusamt_viewdate[uc_row] = viewdate
dw_pageretr.Object.u_cusamt_banktypeid[uc_row] = banktypeid
dw_pageretr.Object.u_cusamt_cusrep[uc_row] = cusrep
dw_pageretr.Object.u_itemdef_itemcode[uc_row] = itemcode
dw_pageretr.Object.u_itemdef_itemname[uc_row] = itemname
dw_pageretr.Object.u_cusamt_itemid[uc_row] = itemid
dw_pageretr.Object.u_accounts_accountsname[uc_row] = accountsname
dw_pageretr.Object.cw_currency_name[uc_row] = moneyname
dw_pageretr.Object.u_cusamt_confirmemp[uc_row] = confirmemp
dw_pageretr.Object.u_cusamt_confirmdate[uc_row] = confirmdate
dw_pageretr.Object.u_cusamt_confirmflag[uc_row] = confirmflag
dw_pageretr.Object.u_cusamt_refrapid[uc_row] = refrapid
dw_pageretr.Object.u_cusamt_cusmonid[uc_row] = arg_billid
dw_pageretr.Object.u_cust_name[uc_row] = name
dw_pageretr.Object.u_cust_rep[uc_row] = rep

dw_pageretr.Object.u_cusamt_relcode[uc_row] = relcode
dw_pageretr.Object.u_accounts_moneyid[uc_row] = acmoneyid
dw_pageretr.Object.u_cusamt_fpcode[uc_row] = fpcode
dw_pageretr.Object.u_cusamt_secflag[uc_row] = secflag
dw_pageretr.Object.u_cusamt_secemp[uc_row] = secemp
dw_pageretr.Object.u_cusamt_secdate[uc_row] = secdate
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_flagstatus_rf()


RETURN 1

end function

public function integer wf_flagstatus_rf ();//wf_flagstatus_rf
Long pagerert_row
Int li_flag,li_confirmflag,li_secflag

pagerert_row = dw_pageretr.GetRow()
IF pagerert_row <= 0 THEN
	cb_auditing.Enabled = FALSE
	cb_auditing_cancel.Enabled = FALSE
	cb_confirm.Enabled = FALSE
	cb_cconfirm.Enabled = FALSE
	cur_flag = -1
	cur_secflag = -1
	GOTO ext
END IF

li_flag = dw_pageretr.Object.u_cusamt_flag[pagerert_row]
li_secflag = dw_pageretr.Object.u_cusamt_secflag[pagerert_row]
li_confirmflag = dw_pageretr.Object.u_cusamt_confirmflag[pagerert_row]

IF dw_edit_mode THEN
	cb_auditing.Text = '审核&F'
	cb_auditing.Enabled = FALSE
	cb_auditing_cancel.Enabled = FALSE
	cb_confirm.Enabled = FALSE
	cb_cconfirm.Enabled = FALSE
ELSE
	IF sys_option_msttake_takeamt_secaudit = 0 THEN
		cb_auditing.Text = '审核&F'
		cb_auditing_cancel.Text = '撤审'
		
		IF li_flag = 0 THEN
			cb_auditing.Enabled = TRUE
			cb_auditing_cancel.Enabled = FALSE
			cb_confirm.Enabled = FALSE
			cb_cconfirm.Enabled = FALSE
		ELSEIF li_flag = 1 AND li_confirmflag = 0  THEN
			cb_auditing.Enabled = FALSE
			cb_auditing_cancel.Enabled = TRUE
			cb_confirm.Enabled = TRUE
			cb_cconfirm.Enabled = FALSE
		ELSEIF li_flag = 1 AND li_confirmflag = 1  THEN
			cb_auditing.Enabled = FALSE
			cb_auditing_cancel.Enabled = FALSE
			cb_confirm.Enabled = FALSE
			cb_cconfirm.Enabled = TRUE
		END IF
	ELSE
		
		IF li_flag = 0 THEN
			cb_auditing.Text = '初审&F'
			cb_auditing_cancel.Text = '初撤'
			cb_auditing.Enabled = TRUE
			cb_auditing_cancel.Enabled = FALSE
			cb_confirm.Enabled = FALSE
			cb_cconfirm.Enabled = FALSE
		ELSEIF li_flag = 1 AND li_secflag = 0  THEN
			cb_auditing.Text = '终审&F'
			cb_auditing_cancel.Text = '初撤'
			cb_auditing.Enabled = TRUE
			cb_auditing_cancel.Enabled = TRUE
			
			cb_confirm.Enabled = FALSE
			cb_cconfirm.Enabled = FALSE
		ELSEIF li_flag = 1 AND li_secflag = 1 AND li_confirmflag = 0 THEN
			cb_auditing.Text = '终审&F'
			cb_auditing_cancel.Text = '终撤'
			cb_auditing.Enabled = FALSE
			cb_auditing_cancel.Enabled = TRUE
			
			cb_confirm.Enabled = TRUE
			cb_cconfirm.Enabled = FALSE
		ELSEIF li_flag = 1 AND li_secflag = 1 AND li_confirmflag = 1  THEN
			cb_auditing.Text = '终审&F'
			cb_auditing_cancel.Text = '终撤'
			cb_auditing.Enabled = FALSE
			cb_auditing_cancel.Enabled = FALSE
			cb_confirm.Enabled = FALSE
			cb_cconfirm.Enabled = TRUE
		END IF
	END IF
END IF

//IF dw_edit_mode THEN
//	cb_auditing.Text = '初审&F'
//	cb_auditing.Enabled = FALSE
//	cb_auditing_cancel.Enabled = FALSE
//	cb_confirm.Enabled = FALSE
//	cb_cconfirm.Enabled = FALSE
//ELSE
//	IF li_flag = 0 THEN
//		cb_auditing.Enabled = TRUE
//		cb_auditing.Text = '初审&F'
//		cb_auditing_cancel.Enabled = FALSE
//		cb_confirm.Enabled = FALSE
//		cb_cconfirm.Enabled = FALSE
//	ELSEIF li_flag = 1 AND li_secflag = 0  AND li_confirmflag = 0  THEN
//		cb_auditing.Enabled = TRUE
//		cb_auditing.Text = '终审&F'
//		cb_auditing_cancel.Enabled = TRUE
//		cb_auditing_cancel.Text = '初撤'
//		cb_confirm.Enabled = FALSE
//		cb_cconfirm.Enabled = FALSE
//	ELSEIF li_flag = 1 AND li_secflag = 1  AND li_confirmflag = 0  THEN
//		cb_auditing.Enabled = FALSE
//		cb_auditing.Text = '终审&F'
//		cb_auditing_cancel.Enabled = TRUE
//		cb_auditing_cancel.Text = '终撤'
//		cb_confirm.Enabled = TRUE
//		cb_cconfirm.Enabled = FALSE
//	ELSEIF li_flag = 1 AND li_secflag = 1  AND li_confirmflag = 1  THEN
//		cb_auditing.Enabled = FALSE
//		cb_auditing_cancel.Enabled = FALSE
//		cb_confirm.Enabled = FALSE
//		cb_cconfirm.Enabled = TRUE
//	END IF
//END IF

ext:
RETURN 0



end function

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

on w_cusamt_edit.destroy
call super::destroy
destroy(this.ddlb_status)
destroy(this.ddlb_scid)
destroy(this.st_3)
destroy(this.st_2)
destroy(this.cb_confirm)
destroy(this.cb_cconfirm)
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_cusamt.cusmoncode like '%"+Trim(sle_usual_query.Text)+"%')"
	ELSE
		ls_querystrpart = "(u_cusamt.cusmoncode 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_cusamt_cusmoncode like "%'+trim(sle_usual_query.text)+'%" )'
	else
		obj_expr=obj_expr+'( u_cusamt_cusmoncode 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.SetRow(1)
	dw_pageretr.SelectRow(1,True)
END IF
dw_pageretr.TriggerEvent(RowFocusChanged!)
dw_pageretr.SetRedraw(True)
end event

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

event open;call super::open;uc_column_int = 14 //uc dw前6列可以编辑
uo_take = CREATE uo_cusamt

IF s_tran.d_long = 1 THEN
	cur_scid =  s_tran.c_long
	Int li_item
	li_item = ddlb_scid.FindItem(s_tran.d_string,0)
	IF li_item > 0 THEN
		ddlb_scid.SelectItem(li_item)
	END IF
	String arg_msg
	cb_add.TriggerEvent(Clicked!)
	IF dw_uc.GetRow() > 0 THEN
		IF s_tran.e_long > 0 THEN
			String ls_cuscode,ls_cusname
			SELECT cuscode,name
				INTO :ls_cuscode,:ls_cusname
				FROM u_cust
				Where cusid = :s_tran.e_long;
			IF sqlca.SQLCode = 0 THEN
				dw_uc.Object.cusid[dw_uc.GetRow()] = s_tran.e_long
				dw_uc.Object.u_cust_name[dw_uc.GetRow()] = ls_cusname
				dw_uc.Object.u_cust_cuscode[dw_uc.GetRow()] = ls_cuscode
			END IF
		END IF
	END IF
END IF


end event

event refresh_interface;call super::refresh_interface;ddlb_status.Enabled = NOT dw_edit_mode
ddlb_scid.Enabled = NOT dw_edit_mode
cb_auditing.Enabled = NOT dw_edit_mode
cb_auditing_cancel.Enabled = NOT dw_edit_mode
cb_confirm.Enabled = NOT dw_edit_mode
cb_cconfirm.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

datawindowchild childdw 

dw_uc.SetTransObject (sqlca)
dw_uc.GetChild("accountid",childdw)
childdw.SetTransObject (sqlca) 
 
IF childdw.Retrieve(sys_user_account) = 0 THEN
	childdw.InsertRow(0)
END IF

Int li_option_outrep  //业务员权限
IF sys_power_issuper THEN
	li_option_outrep = 0
ELSE
	li_option_outrep = sys_option_outrep
END IF

dw_uc.Retrieve() //dw_uc的dw改左select top 0 并肯不带参数
dw_pageretr.Retrieve(cur_scid,cur_flag,cur_secflag,cur_confirmflag,sys_option_msttake_cusarea,sys_areaid,sys_user_outrep, li_option_outrep)
IF dw_pageretr.RowCount() > 0 THEN 
	dw_pageretr.SetRow(1)
	dw_pageretr.triggerevent(rowfocuschanged!)
end if 


wf_flagstatus_rf()
THIS.TriggerEvent('retrieve_childdw')

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




end event

event ue_f9;call super::ue_f9;//用于选择明细内容,被F9[默认]
if not dw_edit_mode then return

long uc_row
uc_row=dw_uc.getrow()
if uc_row=0 then
	messagebox('提示','请选定进仓单!',information!,ok!)
	return 
end if
dw_uc.accepttext()
if not isvalid(w_cust_edit) then 
	s_edit_index_tran s_ch_tran  //传递参数使用
	s_ch_tran.if_retrieve_all=false  //是否一次RETRIEVE所有行
	s_ch_tran.work_mode=1            //0-单纯编辑模式 1-选择\编辑模式
	s_ch_tran.arg_pkid=0             //目标定位PKID (备用)
	//查询列(物料编码)部分内容,用于初步筛选	
	dw_uc.accepttext()	
	s_ch_tran.arg_string_code=upper(trim(dw_uc.object.u_cust_cuscode[dw_uc.getrow()]))

	OPENwithparm(w_cust_edit,s_ch_tran)  //调用

	s_custom S_INSCUST
	S_INSCUST=Message.PowerObjectParm  //接受返回结构

	IF S_INSCUST.cusid>0 THEN //正常返回值则可以取以下值
		dw_uc.setredraw(false)
		dw_uc.object.cusid[uc_row]=S_INSCUST.cusid
		dw_uc.object.u_cust_cuscode[uc_row]=S_INSCUST.cuscode
		dw_uc.object.u_cust_name[uc_row]=S_INSCUST.name
		dw_uc.object.u_cusamt_cusrep[uc_row]=S_INSCUST.bsntype
		dw_uc.object.u_cust_rep[uc_row]=S_INSCUST.rep
		
		dw_uc.setredraw(true)
		dw_uc.setcolumn("cusdate")
 	END IF
end if
end event

event ue_viewprint;call super::ue_viewprint;
IF NOT f_power_ind(928)  THEN
	MessageBox('提示','你没有使用权限！',information!,OK!)
	RETURN
END IF

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

S_print_MSG LS_PRMSG

IF ls_newname <> '' THEN
	
	IF li_auditprint = 1 THEN
		IF dw_pageretr.Object.u_cusamt_flag[dw_pageretr.GetRow()] = 0 THEN
			MessageBox('提示','目标单据还未审核,不能打印!',information!,ok!)
			RETURN
		END IF
	END IF
	
	LS_PRMSG.obj_dwNAME = ls_newname
ELSE
	IF NOT f_power_ind(928)  THEN
		MessageBox('提示','你没有使用权限！',information!,ok!)
		RETURN
	END IF
	
	LS_PRMSG.obj_dwNAME = 'dw_rp_cusamt_edit'
END IF

IF LS_PRMSG.obj_dwNAME = '' THEN RETURN

LS_PRMSG.printrow = ll_prownum
LS_PRMSG.TAG_TEXT = '收款单'
LS_PRMSG.FILTER_STRING = ''
LS_PRMSG.retr_pram_falg = 2
LS_PRMSG.PAGECH_FLAG = 0
LS_PRMSG.retr_pramnmb = dw_pageretr.Object.u_cusamt_cusmonid[LS_ROW]
LS_PRMSG.rowcnt = dw_child.RowCount()
OpenWithParm(w_publ_preview,LS_PRMSG)


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

Long ll_scid
ll_scid = dw_pageretr.Object.u_cusamt_scid[dw_pageretr.GetRow()]
f_update_printnum('u_cusamt',printnum,ll_scid,dw_pageretr.Object.u_cusamt_cusmonid[LS_ROW],'','',arg_msg,TRUE)


String ls_taskcode
	ls_taskcode = dw_pageretr.Object.u_cusamt_cusmoncode[dw_pageretr.GetRow()]
	IF f_billevent_trigger (532, 1,  ls_taskcode, arg_msg) = 0 THEN
		MessageBox('Error',arg_msg)
	END IF



end event

event ue_print;call super::ue_print;//--直接打印
IF NOT f_power_ind(928)  THEN
	MessageBox('提示','你没有使用权限！',information!,OK!)
	RETURN
END IF

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


S_print_MSG LS_PRMSG

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

IF ls_newname <> '' THEN
	
	IF li_auditprint = 1 THEN
		IF dw_pageretr.Object.u_cusamt_flag[dw_pageretr.GetRow()] = 0 THEN
			MessageBox('提示','目标单据还未审核,不能打印!',information!,ok!)
			RETURN
		END IF
	END IF
	
	LS_PRMSG.obj_dwNAME = ls_newname
ELSE
	
	IF NOT f_power_ind(928)  THEN
		MessageBox('提示','你没有使用权限！',information!,ok!)
		RETURN
	END IF
	
	LS_PRMSG.obj_dwNAME = 'dw_rp_cusamt_edit'
END IF

if LS_PRMSG.obj_dwNAME = '' then return

LS_PRMSG.retr_pram_falg = 2
LS_PRMSG.printrow = ll_prownum
LS_PRMSG.TAG_TEXT = '收款单'
LS_PRMSG.FILTER_STRING = ''
LS_PRMSG.PAGECH_FLAG = 0
LS_PRMSG.retr_pramnmb = dw_pageretr.Object.u_cusamt_cusmonid[LS_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,stopsign!,ok!)
	RETURN
END IF
uo_print.ds_print()


//**更新打印次料

printnum = 1

Long ll_scid
ll_scid = dw_pageretr.Object.u_cusamt_scid[dw_pageretr.GetRow()]
f_update_printnum('u_cusamt',printnum,ll_scid,dw_pageretr.Object.u_cusamt_cusmonid[LS_ROW],'','',arg_msg,TRUE)

String ls_taskcode
	ls_taskcode = dw_pageretr.Object.u_cusamt_cusmoncode[dw_pageretr.GetRow()]
	IF f_billevent_trigger (532, 1,  ls_taskcode, arg_msg) = 0 THEN
		MessageBox('Error',arg_msg)
	END IF





end event

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

Long uc_row
String ls_itemcode
uc_row = dw_uc.GetRow()
ls_itemcode = Trim(dw_uc.Object.u_itemdef_itemcode[uc_row])

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

dw_uc.AcceptText()
IF NOT IsValid(w_itemdef_response) 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_response,s_ch_tran) //调用
	
	s_itemdef s_inscust
	s_inscust = Message.PowerObjectParm //接受返回结构
	
	IF s_inscust.itemid > 0 THEN //正常返回值则可以取以下值
		dw_uc.SetRedraw(FALSE)
		dw_uc.Object.u_cusamt_itemid[uc_row] = s_inscust.itemid
		dw_uc.Object.u_itemdef_itemcode[uc_row] = s_inscust.itemcode
		dw_uc.Object.u_itemdef_itemname[uc_row] = s_inscust.itemname
		
		dw_uc.SetColumn("dscrp")
		dw_uc.SetRedraw(TRUE)
	END IF
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 = 3600
w_height = 2300

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

dw_pageretr.Width = THIS.Width - (w_width - dw_pageretr_w)
dw_pageretr.Height = THIS.Height - (w_height - dw_pageretr_h) - 60
dw_child.Height = THIS.Height - (w_height - dw_child_h)- 60


this.triggerevent('resize_p')
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_cusamt_refrapid[row]
	dw_child.SetRedraw (FALSE)
	dw_child.Retrieve(uc_relid)
	dw_child.SetRedraw (TRUE)
ELSE
	dw_child.Reset()
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_cusamt_flag[row] = 0 THEN
		MessageBox('提示','目标单据还未审核,不能打印!',information!,ok!)
		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_cusamt_cusmonid[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_cusamt_cusmoncode[row]
f_update_printnum('u_cusamt',printnum,ll_scid,dw_pageretr.Object.u_cusamt_cusmonid[ROW],'','',arg_msg,TRUE)

//f_update_printnum(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('提示','没有可打印的单据！',information!,ok!)
	RETURN
END IF

IF ls_rpname = '' THEN RETURN

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

IF MessageBox ("询问","是否确定要打印当前单据吗?",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_cusamt_cusmonid[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,stopsign!,ok!)
	RETURN
END IF
uo_print.ds_print()


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

String ls_code

ll_scid = 0
ls_code = dw_pageretr.Object.u_cusamt_cusmoncode[row]
f_update_printnum('u_cusamt',printnum,ll_scid,dw_pageretr.Object.u_cusamt_cusmonid[ROW],'','',arg_msg,TRUE)

//f_update_printnum(ll_scid,ls_code,TRUE,printnum,arg_msg,TRUE)
end event

event ue_addzy;call super::ue_addzy;IF NOT f_power_ind(929) THEN
	MessageBox('提示','你没有使用权限！',information!,ok!)
	RETURN
END IF

IF dw_edit_mode THEN RETURN

String arg_msg = '',LS_STR
Long uc_row
s_inputbox S_SREU

uc_row = dw_pageretr.GetRow()
IF uc_row <= 0 THEN
	MessageBox('提示','请选定当前目标单据!',information!,ok!)
	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_take.add_dscrp(dw_pageretr.Object.u_cusamt_cusmonid[uc_row],LS_STR,arg_msg,TRUE) = 0 THEN
	MessageBox('错误',arg_msg,information!,ok!)
	RETURN
ELSE
	MessageBox('提示','添加备注操作成功!',information!,ok!)
	wf_refresh_curuc(dw_pageretr.Object.u_cusamt_cusmonid[uc_row])
END IF



end event

event ue_f10;call super::ue_f10;//用于选择明细内容,被F10[默认]
If Not dw_edit_mode Then Return

Long uc_row
Long ll_rst_accountsid,ll_accountid,ll_moneyid,ll_moneyid_account

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)
		
		ll_moneyid = dw_uc.Object.u_cusamt_moneyid[uc_row]
		dw_uc.Object.accountid[uc_row] = ll_rst_accountsid
		
		Select moneyid Into :ll_moneyid_account
			From u_accounts
			Where accountsid = :ll_rst_accountsid;
		If sqlca.SQLCode <> 0 Then
			ll_moneyid_account = 0
			Return
		End If
		
		dw_uc.Object.u_accounts_moneyid[uc_row] = ll_moneyid_account
		If ll_moneyid = ll_moneyid_account Then
			dw_uc.Object.u_cusamt_mrate[uc_row] = 1
		Else
			dw_uc.Object.u_cusamt_mrate[dw_uc.GetRow()] = f_get_mrate(ll_moneyid)
		End If
		dw_uc.SetColumn("accountid")
		dw_uc.SetRedraw(True)
	End If
End If


end event

type cb_func from w_publ_1ton_share_detail`cb_func within w_cusamt_edit
end type

type cb_exit from w_publ_1ton_share_detail`cb_exit within w_cusamt_edit
integer x = 2661
end type

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

type cb_retrieveall from w_publ_1ton_share_detail`cb_retrieveall within w_cusamt_edit
integer x = 3118
integer width = 142
end type

type em_pagerowno from w_publ_1ton_share_detail`em_pagerowno within w_cusamt_edit
integer x = 2816
end type

type dw_pageretr from w_publ_1ton_share_detail`dw_pageretr within w_cusamt_edit
event dwnkey pbm_dwnkey
integer x = 1829
integer width = 1719
integer height = 1960
string dataobject = "dw_cusamt_index"
boolean rbutton_filter_use = true
boolean titleclick_sort_use = true
end type

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

event dw_pageretr::rowfocuschanged;call super::rowfocuschanged;wf_flagstatus_rf()


end event

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

type cb_nextpage from w_publ_1ton_share_detail`cb_nextpage within w_cusamt_edit
integer x = 3259
end type

type dw_uc from w_publ_1ton_share_detail`dw_uc within w_cusamt_edit
integer width = 1819
integer height = 1704
string dataobject = "dw_cusamt_edit"
end type

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

IF Key = KeyDownArrow! THEN RETURN 1

IF dw_edit_mode THEN
	IF dw_uc.GetColumnName ( ) = 'u_cust_cuscode' And Key = KeyEnter! THEN
		String ls_code,ls_name,ls_custype,ls_rep
		Long ls_sptid
		
		dw_uc.AcceptText()
		ls_code = Upper(Trim(dw_uc.Object.u_cust_cuscode[dw_uc.GetRow()]))
		SELECT cusid,
			name,custype,rep
			INTO	:ls_sptid,:ls_name,:ls_custype,:ls_rep
			FROM u_cust
			Where charindex(:ls_code,cuscode)>0 or charindex(:ls_code,Name)>0;  
			
		IF sqlca.SQLCode <> 0 THEN
			Parent.TriggerEvent('ue_f9')
			RETURN 1
		ELSE
			dw_uc.SetRedraw(False)
			dw_uc.Object.cusid[dw_uc.GetRow()] = ls_sptid
			dw_uc.Object.u_cust_name[dw_uc.GetRow()] = ls_name
			dw_uc.Object.u_cusamt_cusrep[dw_uc.GetRow()] = ls_custype
			dw_uc.Object.u_cust_rep[dw_uc.GetRow()] = ls_rep
			dw_uc.SetRedraw(True)
			dw_uc.SetColumn("u_cusamt_banktypeid")
			RETURN 1
		END IF
	ELSEIF dw_uc.GetColumnName ( ) = 'u_itemdef_itemcode' And Key = KeyEnter! THEN
		String ls_itemcode,ls_itemname
		Long ls_itemid
		
		dw_uc.AcceptText()
		ls_itemcode = Upper(Trim(dw_uc.Object.u_itemdef_itemcode[dw_uc.GetRow()]))
		SELECT
		u_itemdef.itemid,
		u_itemdef.itemname
		Into
		:ls_itemid,
		:ls_itemname
		From u_itemdef
		Where ( u_itemdef.itemcode = :ls_itemcode );
		IF sqlca.SQLCode <> 0 THEN
			Parent.TriggerEvent('ue_f7')
			RETURN 1
		ELSE
			dw_uc.SetRedraw(False)
			dw_uc.Object.u_cusamt_itemid[dw_uc.GetRow()] = ls_itemid
			dw_uc.Object.u_itemdef_itemname[dw_uc.GetRow()] = ls_itemname
			dw_uc.SetRedraw(True)
			dw_uc.SetColumn("dscrp")
			RETURN 1
		END IF
	ELSE
		IF  Key = KeyEnter! And dw_uc.GetColumnName ( ) <> 'dscrp' 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::doubleclicked;If dw_edit_mode And row > 0  Then
	If dwo.Name = 'u_itemdef_itemcode' Or dwo.Name = 'u_itemdef_itemname' Then
		Parent.TriggerEvent('ue_f7')
	ElseIf dwo.Name = 'accountid' Then
		Parent.TriggerEvent('ue_f10')
	Else
		Parent.TriggerEvent('ue_f9')
	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_cusamt_moneyid' OR dwo.Name = 'accountid') AND THIS.Object.accountid[row] > 0  THEN
	THIS.SetRedraw(FALSE)
	
	ll_accountid = THIS.Object.accountid[row]
	ll_moneyid = THIS.Object.u_cusamt_moneyid[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_accounts_moneyid[row] = ll_moneyid_account
	
//	if ll_moneyid = 0 then
//		THIS.Object.u_cusamt_moneyid[row] = ll_moneyid_account
//		ll_moneyid = ll_moneyid_account
//	end if
	
	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_cusamt_edit
integer x = 1358
integer y = 332
integer width = 311
integer height = 1104
end type

type dw_child from w_publ_1ton_share_detail`dw_child within w_cusamt_edit
integer y = 2024
integer width = 1819
integer height = 276
string title = "收款对单明细内容"
string dataobject = "dw_cusamt_mx"
end type

type cb_viewprint from w_publ_1ton_share_detail`cb_viewprint within w_cusamt_edit
integer x = 2016
end type

type cb_print from w_publ_1ton_share_detail`cb_print within w_cusamt_edit
integer x = 1824
end type

type cb_add from w_publ_1ton_share_detail`cb_add within w_cusamt_edit
end type

event cb_add::clicked;IF Not f_power_ind(922) THEN
	MessageBox('提示','你没有使用权限！',information!,ok!)
	RETURN
END IF

String arg_msg = ''
Long uc_row

IF dw_edit_mode THEN
	dw_uc.AcceptText()
	uc_row = dw_uc.GetRow()
	IF uc_row <= 0 THEN
		MessageBox('提示','请选定当前目标单据!',information!,ok!)
		RETURN
	END IF
	
	IF Not dw_uc.Object.cusdate[uc_row] > DateTime(2000-01-01,Now()) THEN
		MessageBox('提示','不合理日期',information!,ok!)
		dw_uc.SetFocus()
		dw_uc.SetColumn('cusdate')
		RETURN
	END IF
	
	
	IF dw_uc.Object.accountid[uc_row] = 0  THEN
		MessageBox('提示','请选择帐号!',information!,ok!)
		dw_uc.SetFocus()
		dw_uc.SetColumn('accountid')
		RETURN
	END IF
	
	IF dw_uc.Object.u_cusamt_banktypeid[uc_row] = 0  THEN
		MessageBox('提示','请选择结算方式!',information!,ok!)
		dw_uc.SetFocus()
		dw_uc.SetColumn('u_cusamt_banktypeid')
		RETURN
	END IF
	
	IF dw_uc.Object.u_cusamt_moneyid[uc_row] = 0  THEN
		MessageBox('提示','请选择币种!',information!,ok!)
		dw_uc.SetFocus()
		dw_uc.SetColumn('u_cusamt_moneyid')
		RETURN
	END IF
	
	IF Trim(dw_uc.Object.u_cusamt_cusrep[uc_row]) = ''  THEN
		MessageBox('提示','请输入经手人!',information!,ok!)
		dw_uc.SetFocus()
		dw_uc.SetColumn('u_cusamt_cusrep')
		RETURN
	END IF
	
	IF sys_option_msttake_takeamt_secaudit = 0 THEN //
		IF dw_uc.Object.cusid[uc_row] = 0  THEN
			MessageBox('提示','请选择客户!',information!,ok!)
			dw_uc.SetFocus()
			dw_uc.SetColumn('u_cust_cuscode')
			RETURN
		END IF
	END IF
	
	
	uo_take.scid = dw_uc.Object.scid[uc_row]
	uo_take.accountid = dw_uc.Object.accountid[uc_row]
	uo_take.cusid = dw_uc.Object.cusid[uc_row]
	uo_take.cusamt  = dw_uc.Object.cusamt[uc_row]
	uo_take.dscrp  = Trim(dw_uc.Object.dscrp[uc_row])
	uo_take.cusdate = dw_uc.Object.cusdate[uc_row]
	uo_take.banktypeid = dw_uc.Object.u_cusamt_banktypeid[uc_row]
	uo_take.itemid = dw_uc.Object.u_cusamt_itemid[uc_row]
	uo_take.moneyid = dw_uc.Object.u_cusamt_moneyid[uc_row]
	uo_take.mrate = dw_uc.Object.u_cusamt_mrate[uc_row]
	uo_take.cusrep = Trim(dw_uc.Object.u_cusamt_cusrep[uc_row])
	uo_take.viewdate = dw_uc.Object.u_cusamt_viewdate[uc_row]
	uo_take.relcode = dw_uc.Object.u_cusamt_relcode[uc_row]
	uo_take.fpcode =  dw_uc.Object.u_cusamt_fpcode[uc_row]
	uo_take.billtype = 0
	
	IF uo_take.Save(arg_msg,True) = 0 THEN
		MessageBox('错误',arg_msg,stopsign!,ok!)
		RETURN
	END IF
	//MessageBox('提示','保存操作成功!',information!,ok!)
	//write ini
	f_SetProfileString (sys_empid,publ_userid+'_'+dw_uc.DataObject, "moneyid",String(dw_uc.Object.u_cusamt_moneyid[dw_uc.GetRow()]))
	f_SetProfileString (sys_empid,dw_uc.DataObject, "dft_banktype",String(dw_uc.Object.u_cusamt_banktypeid[dw_uc.GetRow()]))
	f_SetProfileString (sys_empid,dw_uc.DataObject, "itemid",String(dw_uc.Object.u_cusamt_itemid[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_take.cusmonid)
	String ls_taskcode
	ls_taskcode = dw_pageretr.Object.u_cusamt_cusmoncode[dw_pageretr.GetRow()]
	IF f_billevent_trigger (532, 2,  ls_taskcode, arg_msg) = 0 THEN
		MessageBox('Error',arg_msg)
	END IF
ELSE
	IF uo_take.newbegin(cur_scid,arg_msg) = 0 THEN
		MessageBox('错误',arg_msg,stopsign!,ok!)
		RETURN
	END IF
END IF

CALL Super::Clicked

IF dw_edit_mode THEN
	Parent.TriggerEvent("insert_childrow")
	String ls_moneyid,ls_banktype, ls_itemid
	
	ls_moneyid = f_ProfileString (sys_empid,publ_userid+'_'+dw_uc.DataObject, "moneyid",'0')
	ls_banktype = f_ProfileString (sys_empid,dw_uc.DataObject, "dft_banktype",'0')
	ls_itemid = f_ProfileString (sys_empid,dw_uc.DataObject, "itemid",'0')
	dw_uc.SetRedraw(False)
	dw_uc.Object.u_cusamt_moneyid[dw_uc.GetRow()] = Long(ls_moneyid)
	dw_uc.Object.u_cusamt_mrate[dw_uc.GetRow()] = f_get_mrate(Long(ls_moneyid))
	dw_uc.Object.u_cusamt_banktypeid[dw_uc.GetRow()] = Long(ls_banktype)
	dw_uc.Object.scid[dw_uc.GetRow()] = cur_scid
	dw_uc.Object.u_cusamt_itemid[dw_uc.GetRow()] = Long(ls_itemid)
	dw_uc.Object.u_itemdef_itemcode[dw_uc.GetRow()] = f_get_itemcode(Long(ls_itemid))
	dw_uc.Object.u_itemdef_itemname[dw_uc.GetRow()] = f_get_itemname(Long(ls_itemid))
	
	dw_uc.SetColumn("u_cusamt_relcode")
	dw_uc.SetRedraw(True)
ELSE
	Parent.TriggerEvent("retrieve_childdw")
END IF


end event

type cb_edit from w_publ_1ton_share_detail`cb_edit within w_cusamt_edit
end type

event cb_edit::clicked;IF NOT f_power_ind(922) THEN
	MessageBox('提示','你没有使用权限！',information!,ok!)
	RETURN
END IF


String arg_msg = ''
Long uc_row

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

IF NOT dw_edit_mode THEN
	IF uo_take.updatebegin(dw_pageretr.Object.u_cusamt_scid[uc_row],dw_pageretr.Object.u_cusamt_cusmonid[uc_row],arg_msg) = 0 THEN
		MessageBox('错误',arg_msg,stopsign!,ok!)
		RETURN
	END IF
	
	wf_refresh_curuc(dw_pageretr.Object.u_cusamt_cusmonid[uc_row])
	PARENT.TriggerEvent("retrieve_childdw")
END IF

CALL SUPER::Clicked



end event

type cb_delet from w_publ_1ton_share_detail`cb_delet within w_cusamt_edit
end type

event cb_delet::clicked;call super::clicked;if not f_power_ind(923) then
	messagebox('提示','你没有使用权限！',information!,ok!)
	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('提示','请选定当前目标单据!',information!,ok!)
	return
end if

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

if uo_take.del(cur_scid,dw_pageretr.object.u_cusamt_cusmonid[uc_row],arg_msg)=0 then
	messagebox('错误',arg_msg,stopsign!,ok!)
ELSE
	//日志
	long ls_id
	string ls_code
	ls_id=dw_pageretr.object.u_cusamt_cusmonid[uc_row]
	ls_code=dw_pageretr.object.u_cusamt_cusmoncode[uc_row]
	f_setsysoplog('收款单','收款单删除,id:'+string(ls_id)+',code:'+ls_code,arg_msg,true)
	//--
	
	MESSAGEBOX('提示','删除单据'+string(dw_pageretr.object.u_cusamt_cusmoncode[uc_row])+'成功!',information!,ok!)	
	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_cusamt_edit
integer x = 1573
end type

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


menustr = "Text=增加备注~tEvent=ue_addzy"
menustr = menustr + "|" + "Text=-"
menustr = menustr + "|" + "Text=确定客户~tEvent=ue_update_cust"
menustr +=  "|" + "Text=-"
menustr +=  "|" + "Text=批初审~tEvent=ue_p_auditing"
menustr +=  "|" + "Text=批初撤~tEvent=ue_c_p_auditing"
menustr +=  "|" + "Text=-"
menustr +=  "|" + "Text=批终审~tEvent=ue_p_secauditing"
menustr +=  "|" + "Text=批终撤~tEvent=ue_c_p_secauditing"

menustr +=  "|" + "Text=-"
menustr +=  "|" + "Text=查看附件~tEvent=ue_fj_view"
menustr +=  "|" + "Text=添加附件~tEvent=ue_fj_edit"

menustr +=  "|" + "Text=-"
menustr +=  "|" + "Text=批确认~tEvent=ue_p_confirm"
menustr +=  "|" + "Text=批反确认~tEvent=ue_c_p_confirm"

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_cusamt_edit
integer x = 841
end type

event cb_auditing::clicked;call super::clicked;

IF dw_edit_mode THEN RETURN
String arg_msg = ''
Long pagerert_row

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

IF MessageBox ("询问","是否确定要审核当前单据?",question!,yesno! ) = 2 THEN RETURN

IF sys_option_msttake_takeamt_secaudit = 0 Or &
	sys_option_msttake_takeamt_secaudit = 1 And dw_pageretr.Object.u_cusamt_flag[pagerert_row] = 0 THEN
	IF Not f_power_ind(924) THEN
		MessageBox('提示','你没有使用权限！',information!,ok!)
		RETURN
	END IF
	IF uo_take.auditing(dw_pageretr.Object.u_cusamt_cusmonid[pagerert_row],publ_operator,arg_msg,True) = 0 THEN
		MessageBox('错误',arg_msg,stopsign!,ok!)
	ELSE
		MessageBox('提示','审核成功!',information!,ok!)
		wf_refresh_curuc(dw_pageretr.Object.u_cusamt_cusmonid[pagerert_row])
		
		String ls_taskcode
		ls_taskcode = dw_pageretr.Object.u_cusamt_cusmoncode[dw_pageretr.GetRow()]
		IF f_billevent_trigger (532, 3,  ls_taskcode, arg_msg) = 0 THEN
			MessageBox('Error',arg_msg)
		END IF
		
	END IF
ELSE
	IF Not f_power_ind(997) THEN
		MessageBox('提示','你没有使用权限！',information!,ok!)
		RETURN
	END IF
	IF uo_take.secauditing(dw_pageretr.Object.u_cusamt_cusmonid[pagerert_row],publ_operator,arg_msg,True) = 0 THEN
		MessageBox('错误',arg_msg,stopsign!,ok!)
	ELSE
		MessageBox('提示','审核成功!',information!,ok!)
		wf_refresh_curuc(dw_pageretr.Object.u_cusamt_cusmonid[pagerert_row])
		
		
		ls_taskcode = dw_pageretr.Object.u_cusamt_cusmoncode[dw_pageretr.GetRow()]
		IF f_billevent_trigger (532, 3,  ls_taskcode, arg_msg) = 0 THEN
			MessageBox('Error',arg_msg)
		END IF
	END IF
END IF


end event

type cb_xm from w_publ_1ton_share_detail`cb_xm within w_cusamt_edit
boolean visible = false
integer x = 3337
end type

type cb_retrieve from w_publ_1ton_share_detail`cb_retrieve within w_cusamt_edit
end type

type cb_xls from w_publ_1ton_share_detail`cb_xls within w_cusamt_edit
integer x = 2359
end type

type cb_help from w_publ_1ton_share_detail`cb_help within w_cusamt_edit
integer x = 2208
end type

type cb_auditing_cancel from w_publ_1ton_share_detail`cb_auditing_cancel within w_cusamt_edit
end type

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

IF dw_edit_mode THEN RETURN
String arg_msg = ''

Long pagerert_row

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

IF MessageBox ("询问","是否确定要撤消审核当前单据?",question!,yesno! ) = 2 THEN RETURN

IF sys_option_msttake_takeamt_secaudit = 0 OR &
	sys_option_msttake_takeamt_secaudit = 1 AND &
	dw_pageretr.Object.u_cusamt_flag[pagerert_row] = 1 AND &
	dw_pageretr.Object.u_cusamt_secflag[pagerert_row] = 0 THEN

	IF NOT f_power_ind(925) THEN
		MessageBox('提示','你没有使用权限！',information!,ok!)
		RETURN
	END IF
	IF uo_take.c_auditing(dw_pageretr.Object.u_cusamt_cusmonid[pagerert_row],arg_msg,TRUE) = 0 THEN
		MessageBox('错误',arg_msg,stopsign!,ok!)
	ELSE
		MessageBox('提示','撤消审核成功!',information!,ok!)
		wf_refresh_curuc(dw_pageretr.Object.u_cusamt_cusmonid[pagerert_row])
	END IF
ELSE
	IF NOT f_power_ind(998) THEN
		MessageBox('提示','你没有使用权限！',information!,ok!)
		RETURN
	END IF
	IF uo_take.c_secauditing(dw_pageretr.Object.u_cusamt_cusmonid[pagerert_row],arg_msg,TRUE) = 0 THEN
		MessageBox('错误',arg_msg,stopsign!,ok!)
	ELSE
		MessageBox('提示','撤消二级审核成功!',information!,ok!)
		wf_refresh_curuc(dw_pageretr.Object.u_cusamt_cusmonid[pagerert_row])
	END IF
END IF

end event

type p_msg from w_publ_1ton_share_detail`p_msg within w_cusamt_edit
end type

type p_help from w_publ_1ton_share_detail`p_help within w_cusamt_edit
end type

type p_encl from w_publ_1ton_share_detail`p_encl within w_cusamt_edit
end type

type p_other from w_publ_1ton_share_detail`p_other within w_cusamt_edit
end type

type gb_3 from w_publ_1ton_share_detail`gb_3 within w_cusamt_edit
end type

type ln_bar from w_publ_1ton_share_detail`ln_bar within w_cusamt_edit
integer beginx = 9
integer endx = 3209
end type

type ln_bar2 from w_publ_1ton_share_detail`ln_bar2 within w_cusamt_edit
end type

type r_bar from w_publ_1ton_share_detail`r_bar within w_cusamt_edit
integer x = 2935
integer height = 148
end type

type ln_1 from w_publ_1ton_share_detail`ln_1 within w_cusamt_edit
end type

type ln_2 from w_publ_1ton_share_detail`ln_2 within w_cusamt_edit
end type

type ddlb_status from dropdownlistbox within w_cusamt_edit
integer x = 1577
integer y = 188
integer width = 393
integer height = 400
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_confirmflag = -1
	cur_secflag = -1
ELSEIF Index = 2 THEN
	cur_flag = 0
	cur_secflag = 0
	cur_confirmflag = -1
ELSEIF Index = 3 THEN
	cur_flag = 1
	cur_secflag = 0
	cur_confirmflag = -1
ELSEIF Index = 4 THEN
	cur_flag = -1
	cur_secflag = -1
	cur_confirmflag = 0
ELSE
	cur_flag = 1
	cur_secflag = 1
	cur_confirmflag = 1
END IF

PARENT.TriggerEvent('retrieve_pageretr')


end event

type ddlb_scid from uo_ddlb_scid within w_cusamt_edit
integer x = 896
integer y = 188
integer width = 549
integer height = 1120
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_3 from statictext within w_cusamt_edit
integer x = 1403
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 st_2 from statictext within w_cusamt_edit
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 cb_confirm from uo_imflatbutton within w_cusamt_edit
integer x = 1179
integer width = 192
integer height = 164
integer taborder = 230
boolean bringtotop = true
string text = "确认&D"
string normalpicname = "audit.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;IF NOT f_power_ind(926) THEN
	MessageBox('提示','你没有使用权限！',information!,ok!)
	RETURN
END IF

IF dw_edit_mode THEN RETURN
String arg_msg = ''

Long pagerert_row

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

IF MessageBox ("询问","是否确定要确认当前单据?",question!,yesno! ) = 2 THEN RETURN


IF uo_take.confirm(dw_pageretr.Object.u_cusamt_cusmonid[pagerert_row],publ_operator,arg_msg,TRUE) = 0 THEN
	MessageBox('错误',arg_msg,stopsign!,ok!)
ELSE
	MessageBox('提示','确认成功!',information!,ok!)
	wf_refresh_curuc(dw_pageretr.Object.u_cusamt_cusmonid[pagerert_row])
END IF



end event

type cb_cconfirm from uo_imflatbutton within w_cusamt_edit
integer x = 1371
integer width = 201
integer height = 164
integer taborder = 290
boolean bringtotop = true
string text = "反确认"
string normalpicname = "caudit.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;IF NOT f_power_ind(927) THEN
	MessageBox('提示','你没有使用权限！',information!,ok!)
	RETURN
END IF

IF dw_edit_mode THEN RETURN
String arg_msg = ''

Long pagerert_row

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

IF MessageBox ("询问","是否确定要反确认当前单据?",question!,yesno! ) = 2 THEN RETURN


IF uo_take.cconfirm(dw_pageretr.Object.u_cusamt_cusmonid[pagerert_row],publ_operator,arg_msg,TRUE) = 0 THEN
	MessageBox('错误',arg_msg,stopsign!,ok!)
ELSE
	MessageBox('提示','反确认成功!',information!,ok!)
	wf_refresh_curuc(dw_pageretr.Object.u_cusamt_cusmonid[pagerert_row])
END IF
end event

type cbx_1 from checkbox within w_cusamt_edit
integer x = 2021
integer y = 196
integer width = 183
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 clicked;Long i
dw_pageretr.SetRedraw(False)
FOR i = 1 To dw_pageretr.RowCount()
	
		IF Checked THEN
			dw_pageretr.Object.ch[i] = 1
		ELSE
			dw_pageretr.Object.ch[i] = 0
		END IF

NEXT
dw_pageretr.SetRedraw(True)




end event