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

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

global type w_sptamt_edit from w_publ_1ton_share_detail
string title = "供应商付款单"
boolean maxbox = true
windowstate windowstate = maximized!
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_2 cb_2
cb_confirm cb_confirm
cb_cconfirm cb_cconfirm
cbx_1 cbx_1
end type
global w_sptamt_edit w_sptamt_edit

type variables
uo_cusamt uo_take
Int cur_flag = -1 
int cur_secflag = -1
Long cur_scid //分店ID 
int cur_confirmflag = -1
end variables

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

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 = 544 //
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 = 544
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(932) 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(933) 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(999) 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(1000) 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 sptcode
Long accountid
DateTime cusdate
Decimal cusamt
String dscrp
Long cusid
String cusmoncode
Int flag
DateTime opdate
String opemp
String Name
String audopemp
DateTime audopdate
Long cusmonid
String cusrep
Long itemid
String itemcode
String itemname
String accountsname
string relcode
long banktypeid
long secflag
string secemp
datetime secdate
long  moneyid
long u_accounts_moneyid
decimal mrate   
long confirmflag 
datetime confirmdate 
string confirmemp 
datetime viewdate
string bankstr
string idcode
string ls_dscrp
string accountrep

SELECT u_cusamt.scid,
	u_spt.sptcode,
	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_spt.name,
	u_cusamt.audopemp,
	u_cusamt.audopdate,
	u_cusamt.cusmonid,
	u_cusamt.cusrep,
	u_cusamt.itemid,
	u_itemdef.itemcode,
	u_itemdef.itemname,
	u_accounts.accountsname,
	u_cusamt.relcode,
	u_cusamt.banktypeid,
	u_cusamt.secflag,
	u_cusamt.secemp,
	u_cusamt.secdate,
	u_cusamt.moneyid,
	u_accounts.moneyid,
	u_cusamt.mrate,  
         u_cusamt.confirmflag,   
         u_cusamt.confirmdate,   
         u_cusamt.confirmemp ,
			u_cusamt.viewdate,
	u_accounts.bankstr,
	u_accounts.idcode,
	u_accounts.dscrp,
	u_accounts.accountrep

	INTO :scid,
	:sptcode,
	:accountid,
	:cusdate,
	:cusamt,
	:dscrp,
	:cusid,
	:cusmoncode,
	:flag,
	:opdate,
	:opemp,
	:Name,
	:audopemp ,
	:audopdate,
	:cusmonid,
	:cusrep,
	:itemid,
	:itemcode,
	:itemname,
	:accountsname,
	:relcode,
	:banktypeid,
	:secflag,
	:secemp,
	:secdate,
	:moneyid,
	:u_accounts_moneyid,
	:mrate,
	:confirmflag ,
:confirmdate ,
:confirmemp,
:viewdate,
	: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,
	u_spt
	WHERE ( u_cusamt.cusid = u_spt.sptid )
	And ( 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_spt_sptcode[uc_row] = sptcode
dw_pageretr.Object.u_spt_name[uc_row] = Name
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_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_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.u_cusamt_cusmonid[uc_row] = arg_billid
dw_pageretr.Object.u_cusamt_relcode[uc_row] = relcode
dw_pageretr.Object.u_cusamt_banktypeid[uc_row] = banktypeid
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_cusamt_moneyid[uc_row] = moneyid
dw_pageretr.Object.u_cusamt_mrate[uc_row] = mrate
dw_pageretr.Object.u_accounts_moneyid[uc_row] = u_accounts_moneyid
dw_pageretr.Object.u_cusamt_confirmflag[uc_row] = confirmflag   
dw_pageretr.Object.u_cusamt_confirmdate[uc_row] =   confirmdate 
dw_pageretr.Object.u_cusamt_confirmemp[uc_row] = confirmemp  
dw_pageretr.Object.u_cusamt_viewdate[uc_row] =viewdate
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 ();
Long pagerert_row
long li_confirmflag
long li_flag
long li_secflag



pagerert_row = dw_pageretr.GetRow()
IF pagerert_row <= 0 THEN
	cb_auditing.Text = '审核&F'
	cb_auditing.Enabled = FALSE
	cb_auditing_cancel.Text = '撤审'
	cb_auditing_cancel.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 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.Text = '初审&F'
		cb_auditing.Enabled = FALSE
		cb_auditing_cancel.Enabled = TRUE
		cb_auditing_cancel.Text = '终撤' 
		cb_confirm.Enabled = TRUE
		cb_cconfirm.Enabled = FALSE
	ELSEIF li_flag = 1 AND 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
END IF

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

ext:
RETURN 0


end function

on w_sptamt_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_2=create cb_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_2
this.Control[iCurrent+6]=this.cb_confirm
this.Control[iCurrent+7]=this.cb_cconfirm
this.Control[iCurrent+8]=this.cbx_1
end on

on w_sptamt_edit.destroy
call super::destroy
destroy(this.ddlb_status)
destroy(this.ddlb_scid)
destroy(this.st_3)
destroy(this.st_2)
destroy(this.cb_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 = 13 //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_sptcode,ls_sptname
			SELECT sptcode,name
				INTO :ls_sptcode,:ls_sptname
				FROM u_spt
				Where sptid = :s_tran.e_long;
			IF sqlca.SQLCode = 0 THEN
				dw_uc.Object.cusid[dw_uc.GetRow()] = s_tran.e_long
				dw_uc.Object.u_spt_name[dw_uc.GetRow()] = ls_sptname
				dw_uc.Object.u_spt_sptcode[dw_uc.GetRow()] = ls_sptcode
			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_cancel.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


dw_uc.Retrieve() 
dw_pageretr.Retrieve(cur_scid,cur_flag,cur_secflag,cur_confirmflag )
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_spt_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_spt_sptcode[dw_uc.GetRow()]))
	
	OpenWithParm(w_spt_edit,s_ch_tran) //调用
	
	s_spt S_INSCUST
	S_INSCUST = Message.PowerObjectParm //接受返回结构
	
	IF S_INSCUST.sptid > 0 THEN //正常返回值则可以取以下值
		dw_uc.SetRedraw(FALSE)
		dw_uc.Object.cusid[uc_row] = S_INSCUST.sptid
		dw_uc.Object.u_spt_sptcode[uc_row] = S_INSCUST.sptcode
		dw_uc.Object.u_spt_name[uc_row] = S_INSCUST.Name
		
		//dw_uc.Object.u_cusamt_banktypeid[uc_row] = S_INSCUST.dftbanktypeid
		dw_uc.Object.u_cusamt_moneyid[uc_row] = S_INSCUST.dftmoneyid
		dw_uc.Object.u_cusamt_mrate[uc_row] = f_get_mrate(S_INSCUST.dftmoneyid)
	
		dw_uc.SetRedraw(TRUE)
		dw_uc.SetColumn("accountid")
	END IF
END IF


end event

event ue_viewprint;call super::ue_viewprint;
IF Not f_power_ind(934)  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(934)  THEN
		MessageBox('提示','你没有使用权限！',information!,OK!)
		RETURN
	END IF
	
	LS_PRMSG.obj_dwNAME = 'dw_rp_sptamt_print'
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 = 15
LS_PRMSG.PAGECH_FLAG = 0
LS_PRMSG.retr_scid = dw_pageretr.Object.u_cusamt_scid[LS_ROW]
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 (540, 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(934)  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(934)  THEN
		MessageBox('提示','你没有使用权限！',information!,ok!)
		RETURN
	END IF
	
	LS_PRMSG.obj_dwNAME = 'dw_rp_sptamt_print'
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 (540, 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 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(935) 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,stopsign!,ok!)
	RETURN
ELSE
	MessageBox('提示','添加备注操作成功!',information!,ok!)
	wf_refresh_curuc(dw_pageretr.Object.u_cusamt_cusmonid[uc_row])
END IF



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 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)
dw_child.Height = THIS.Height - (w_height - dw_child_h)


this.triggerevent('resize_p')
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_sptamt_edit
end type

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

type sle_usual_query from w_publ_1ton_share_detail`sle_usual_query within w_sptamt_edit
integer width = 549
end type

type cb_retrieveall from w_publ_1ton_share_detail`cb_retrieveall within w_sptamt_edit
integer x = 3113
integer width = 142
end type

type em_pagerowno from w_publ_1ton_share_detail`em_pagerowno within w_sptamt_edit
integer x = 2811
end type

type dw_pageretr from w_publ_1ton_share_detail`dw_pageretr within w_sptamt_edit
event dwnkey pbm_dwnkey
integer x = 1851
integer width = 1742
integer height = 1876
string dataobject = "dw_sptamt_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_sptamt_edit
integer x = 18
end type

type cb_nextpage from w_publ_1ton_share_detail`cb_nextpage within w_sptamt_edit
integer x = 3255
end type

type dw_uc from w_publ_1ton_share_detail`dw_uc within w_sptamt_edit
integer width = 1842
integer height = 1560
string dataobject = "dw_sptamt_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_spt_sptcode' And Key = KeyEnter! THEN
		String ls_code,ls_name
		Long ls_sptid
		
		dw_uc.AcceptText()
		ls_code = Upper(Trim(dw_uc.Object.u_spt_sptcode[dw_uc.GetRow()]))
		SELECT sptid,
			name
			INTO	:ls_sptid,:ls_name
			FROM u_spt
			Where charindex(:ls_code,sptcode)>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_spt_name[dw_uc.GetRow()] = ls_name
			dw_uc.SetRedraw(True)
			dw_uc.SetColumn("accountid")
			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 = 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_sptamt_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_sptamt_edit
integer y = 1868
integer width = 1851
integer height = 300
string title = "付款对单明细内容"
string dataobject = "dw_sptamt_mx"
end type

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

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

type cb_add from w_publ_1ton_share_detail`cb_add within w_sptamt_edit
end type

event cb_add::clicked;IF NOT f_power_ind(930) 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 dw_uc.Object.cusid[uc_row] = 0  THEN
		MessageBox('提示','请选择供应商!',information!,ok!)
		dw_uc.SetFocus()
		dw_uc.SetColumn('u_spt_sptcode')
		RETURN
	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.cusrep = trim(dw_uc.Object.u_cusamt_cusrep[uc_row])
	uo_take.relcode = trim(dw_uc.Object.u_cusamt_relcode[uc_row])
	uo_take.billtype = 1    
	uo_take.moneyid = dw_uc.Object.u_cusamt_moneyid[uc_row] 
	uo_take.mrate = dw_uc.Object.u_cusamt_mrate[uc_row]
	uo_take.viewdate = dw_uc.Object.u_cusamt_viewdate[uc_row]
	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 (540, 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 

//IF not dw_edit_mode THEN
//	int li_row
//	li_row = dw_pageretr.InsertRow (1)
//	dw_pageretr.ScrollToRow(li_row)
//	dw_child.RESET()
//	dw_uc.reset()
//	dw_UC.SetFocus()
//	dw_pageretr.Object.u_cusamt_scid[li_row] = cur_scid
//	dw_pageretr.RowsCopy(li_row,li_row, Primary!, dw_uc, 1, Primary!)	
//END IF	
//dw_edit_mode= NOT dw_edit_mode
//wf_refresh_interface()

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.Object.u_cusamt_cusrep[dw_uc.GetRow()] = publ_operator
	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_sptamt_edit
end type

event cb_edit::clicked;IF NOT f_power_ind(930) 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(cur_scid,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])
	
END IF

CALL SUPER::Clicked


end event

type cb_delet from w_publ_1ton_share_detail`cb_delet within w_sptamt_edit
end type

event cb_delet::clicked;call super::clicked;if not f_power_ind(931) 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_sptamt_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 +=  "|" + "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_sptamt_edit
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 dw_pageretr.Object.u_cusamt_flag[pagerert_row] = 0 THEN
	IF Not f_power_ind(932) 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])
	END IF
ELSE
	IF Not f_power_ind(999) 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])
		
		String ls_taskcode
		ls_taskcode = dw_pageretr.Object.u_cusamt_cusmoncode[dw_pageretr.GetRow()]
		IF f_billevent_trigger (540, 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_sptamt_edit
boolean visible = false
integer x = 3246
end type

type cb_retrieve from w_publ_1ton_share_detail`cb_retrieve within w_sptamt_edit
end type

type cb_xls from w_publ_1ton_share_detail`cb_xls within w_sptamt_edit
integer x = 2208
end type

type cb_help from w_publ_1ton_share_detail`cb_help within w_sptamt_edit
integer x = 2510
end type

type cb_auditing_cancel from w_publ_1ton_share_detail`cb_auditing_cancel within w_sptamt_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 dw_pageretr.Object.u_cusamt_secflag[pagerert_row] = 0 THEN
	IF NOT f_power_ind(933) 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(1000) 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_sptamt_edit
end type

type p_help from w_publ_1ton_share_detail`p_help within w_sptamt_edit
end type

type p_encl from w_publ_1ton_share_detail`p_encl within w_sptamt_edit
end type

type p_other from w_publ_1ton_share_detail`p_other within w_sptamt_edit
end type

type gb_3 from w_publ_1ton_share_detail`gb_3 within w_sptamt_edit
end type

type ln_bar from w_publ_1ton_share_detail`ln_bar within w_sptamt_edit
end type

type ln_bar2 from w_publ_1ton_share_detail`ln_bar2 within w_sptamt_edit
end type

type r_bar from w_publ_1ton_share_detail`r_bar within w_sptamt_edit
integer x = 3223
integer height = 148
end type

type ln_1 from w_publ_1ton_share_detail`ln_1 within w_sptamt_edit
end type

type ln_2 from w_publ_1ton_share_detail`ln_2 within w_sptamt_edit
end type

type ddlb_status from dropdownlistbox within w_sptamt_edit
integer x = 1563
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_sptamt_edit
integer x = 887
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_sptamt_edit
integer x = 1403
integer y = 204
integer width = 155
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_sptamt_edit
integer x = 722
integer y = 204
integer width = 155
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_2 from uo_imflatbutton within w_sptamt_edit
boolean visible = false
integer x = 3191
integer width = 128
integer height = 164
integer taborder = 230
boolean bringtotop = true
boolean enabled = false
string text = "收据删除"
string normalpicname = "delete.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

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

openwithparm(w_del_data,0)


end event

type cb_confirm from uo_imflatbutton within w_sptamt_edit
integer x = 1179
integer width = 192
integer height = 164
integer taborder = 240
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_sptamt_edit
integer x = 1371
integer width = 201
integer height = 164
integer taborder = 250
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_sptamt_edit
integer x = 2057
integer y = 208
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