Q5/ws_objects/cw_account.pbl.src/w_credence_edit.srw

$PBExportHeader$w_credence_edit.srw
$PBExportComments$凭证录入
forward
global type w_credence_edit from w_publ_pageretr
end type
type cb_print from uo_imflatbutton within w_credence_edit
end type
type cb_retrieve from uo_imflatbutton within w_credence_edit
end type
type cb_addzy from uo_imflatbutton within w_credence_edit
end type
type cb_delet from uo_imflatbutton within w_credence_edit
end type
type cb_edit from uo_imflatbutton within w_credence_edit
end type
type cb_add from uo_imflatbutton within w_credence_edit
end type
type cb_add_xm from uo_imflatbutton within w_credence_edit
end type
type cb_dele_xm from uo_imflatbutton within w_credence_edit
end type
type cb_auditing from uo_imflatbutton within w_credence_edit
end type
type dw_child from u_dw_rbtnfilter within w_credence_edit
end type
type cb_money from uo_imflatbutton within w_credence_edit
end type
type dw_child_share from datawindow within w_credence_edit
end type
type cb_3 from uo_imflatbutton within w_credence_edit
end type
type cb_print_1 from uo_imflatbutton within w_credence_edit
end type
type cbx_1 from checkbox within w_credence_edit
end type
type cb_other from uo_imflatbutton within w_credence_edit
end type
type cb_new from uo_imflatbutton within w_credence_edit
end type
type st_mxdscrp from statictext within w_credence_edit
end type
type ln_5 from line within w_credence_edit
end type
type ln_6 from line within w_credence_edit
end type
type ln_1 from line within w_credence_edit
end type
type ln_2 from line within w_credence_edit
end type
end forward

global type w_credence_edit from w_publ_pageretr
integer width = 3045
integer height = 2276
string title = "记帐凭证"
boolean minbox = false
windowtype windowtype = response!
event retrieve_childdw ( )
event retrieve_uc ( )
event refresh_interface ( )
event ue_f7 ( )
event ue_f8 ( )
event ue_f9 ( )
event ue_f10 ( )
event ue_f6 ( )
event ue_f11 ( )
event ue_f12 ( )
event ue_print ( )
event ue_print_wb ( )
event ue_print_view ( )
event ue_print_wb_view ( )
event ue_cmpl_tax ( )
event ue_computer ( )
event ue_cash ( )
event ue_cred_mode ( )
event ue_print_list ( )
event ue_balance ( )
event ue_bill_find ( )
event ue_xls ( )
cb_print cb_print
cb_retrieve cb_retrieve
cb_addzy cb_addzy
cb_delet cb_delet
cb_edit cb_edit
cb_add cb_add
cb_add_xm cb_add_xm
cb_dele_xm cb_dele_xm
cb_auditing cb_auditing
dw_child dw_child
cb_money cb_money
dw_child_share dw_child_share
cb_3 cb_3
cb_print_1 cb_print_1
cbx_1 cbx_1
cb_other cb_other
cb_new cb_new
st_mxdscrp st_mxdscrp
ln_5 ln_5
ln_6 ln_6
ln_1 ln_1
ln_2 ln_2
end type
global w_credence_edit w_credence_edit

type variables
Int child_column_int = 1,uc_column_int = 1
uo_credence uo_credence_ins
Long cur_id = 0

Boolean if_fcurrency = FALSE //是否核算外币

Long i_credid = 0
Long rst_credid = 0 //0:不是对应的记帐凭证

Int cur_editfoucs  = 0

Boolean if_changedw


Long ll_xls_billid,ll_xls_Templatesid
String ls_xls_DefaultDataWindow



end variables

forward prototypes
public function integer wf_refresh_interface ()
public function integer wf_lock_child ()
public function integer wf_no_edit ()
public function integer wf_lock_uc ()
public function integer wf_refresh_curuc (long arg_subaccsetid, long arg_credid)
public function integer wf_change_childdw_face ()
public function integer wf_autoadd_mx (datetime arg_createdate)
public subroutine wf_reshare_subid ()
public function integer wf_check_cash (ref string arg_msg)
public function integer wf_flagstatus_rf ()
end prototypes

event retrieve_childdw;Long row,uc_credid,uc_subaccsetid,i,li_row,cnt
row = dw_pageretr.GetRow()
IF row > 0 THEN
	uc_subaccsetid = dw_pageretr.Object.subaccsetid[row]
	uc_credid = dw_pageretr.Object.credid[row]
	dw_child.SetRedraw (FALSE)
	
	dw_child.Retrieve(sys_accsetid,uc_subaccsetid,uc_credid)
	dw_child.ShareData(dw_child_share)
	
	cnt = dw_child.RowCount()
	FOR i = 1 TO sys_credence_insertrow - cnt
		dw_child.InsertRow(0)
	NEXT
	dw_child.SetRedraw (TRUE)
	
ELSE
	dw_child.Reset()
	dw_child.ShareData(dw_child_share)
END IF





end event

event refresh_interface();//被 wf_refresh_interface() 调用,用于界面刷新
cb_addzy.Enabled = dw_edit_mode
cbx_1.Enabled = dw_edit_mode


IF dw_edit_mode AND cur_editfoucs = 1  THEN
	IF sys_option_credno_save = 1 THEN
		dw_pageretr.SetTabOrder('credno',0)
	END IF
END IF

IF NOT dw_edit_mode THEN if_changedw = FALSE





end event

event ue_print();IF NOT f_power_ind(1034,sys_msg_pow) THEN
	MessageBox(publ_operator,'你没有使用权限！')
	RETURN
END IF

//--直接打印
uo_print_preview uo_print
IF MessageBox ("IF","是否确定要打印当前单据吗?",Question!,YesNo! ) = 2 THEN RETURN
S_print_MSG LS_PRMSG
LONG LS_ROW
LS_ROW=dw_pageretr.getrow()
IF LS_ROW<=0 THEN 
	MESSAGEBOX('NO','没有打印目标单据!')
	RETURN
END IF

LS_PRMSG.retr_pram_falg=10
LS_PRMSG.obj_dwNAME='dw_pr_credence'
LS_PRMSG.TAG_TEXT='记帐凭证'
LS_PRMSG.FILTER_STRING = ''
LS_PRMSG.PAGECH_FLAG=0
LS_PRMSG.retr_pramnmb=dw_pageretr.object.credid[LS_ROW]
LS_PRMSG.b_long=sys_emptyrowcount
LS_PRMSG.c_long=sys_accsetid

//====================================================================
// Script - clicked for cb_print 
// Reason: 
//--------------------------------------------------------------------
// Modified By: yyx		Date: 2004.02.18
//--------------------------------------------------------------------
long ll_rowcount=0

select count(*) into :ll_rowcount from cw_credencemx 
where accsetid = :sys_accsetid
  and credid =:LS_PRMSG.retr_pramnmb;
if sqlca.sqlcode<>0 then
	return
end if
if mod(ll_rowcount + 1,sys_emptyrowcount)<>0 then
	ll_rowcount=sys_emptyrowcount - mod(ll_rowcount + 1,sys_emptyrowcount)
else
	ll_rowcount=0
end if

LS_PRMSG.d_long=ll_rowcount


uo_print.FACT_PRINT_MSG=LS_PRMSG

string arg_msg
if uo_print.uof_print_begin(arg_msg)=0 then
	messagebox("系统提示",arg_msg)
	return
end if
uo_print.ds_print()



end event

event ue_print_wb();IF NOT f_power_ind(1034,sys_msg_pow) THEN
	MessageBox(publ_operator,'你没有使用权限！')
	RETURN
END IF

//--直接打印
uo_print_preview uo_print
IF MessageBox ("IF","是否确定要打印当前单据吗?",Question!,YesNo! ) = 2 THEN RETURN
S_print_MSG LS_PRMSG
LONG LS_ROW
LS_ROW=dw_pageretr.getrow()
IF LS_ROW<=0 THEN 
	MESSAGEBOX('NO','没有打印目标单据!')
	RETURN
END IF

LS_PRMSG.retr_pram_falg=10
LS_PRMSG.obj_dwNAME='dw_pr_credence_wb'
LS_PRMSG.TAG_TEXT='记帐凭证'
LS_PRMSG.FILTER_STRING = ''
LS_PRMSG.PAGECH_FLAG=0
LS_PRMSG.retr_pramnmb=dw_pageretr.object.credid[LS_ROW]
LS_PRMSG.b_long=sys_emptyrowcount
LS_PRMSG.c_long=sys_accsetid

//====================================================================
// Script - clicked for cb_print 
// Reason: 
//--------------------------------------------------------------------
// Modified By: yyx		Date: 2004.02.18
//--------------------------------------------------------------------
long ll_rowcount=0

select count(*) into :ll_rowcount from cw_credencemx 
where accsetid = :sys_accsetid
  and credid =:LS_PRMSG.retr_pramnmb;
if sqlca.sqlcode<>0 then
	return
end if
if mod(ll_rowcount + 1,sys_emptyrowcount)<>0 then
	ll_rowcount=sys_emptyrowcount - mod(ll_rowcount + 1,sys_emptyrowcount)
else
	ll_rowcount=0
end if

LS_PRMSG.d_long=ll_rowcount


uo_print.FACT_PRINT_MSG=LS_PRMSG

string arg_msg
if uo_print.uof_print_begin(arg_msg)=0 then
	messagebox("系统提示",arg_msg)
	return
end if
uo_print.ds_print()



end event

event ue_print_view();IF Not f_power_ind(1034,sys_msg_pow) THEN
	MessageBox(publ_operator,'你没有使用权限！')
	RETURN
END IF

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

S_print_MSG LS_PRMSG

LS_PRMSG.obj_dwNAME = 'dw_pr_credence'
LS_PRMSG.TAG_TEXT = '记帐凭证'
LS_PRMSG.FILTER_STRING = ''
LS_PRMSG.retr_pram_falg = 15
LS_PRMSG.PAGECH_FLAG = 0
LS_PRMSG.retr_pramnmb = dw_pageretr.Object.credid[LS_ROW]
LS_PRMSG.printrow = sys_emptyrowcount
LS_PRMSG.retr_scid = sys_accsetid

//====================================================================
// Script - clicked for cb_print 
// Reason: 
//--------------------------------------------------------------------
// Modified By: yyx		Date: 2004.02.18
//--------------------------------------------------------------------
Long ll_rowcount = 0

SELECT count(*) INTO :ll_rowcount FROM cw_credencemx
	WHERE accsetid = :sys_accsetid
	And credid = :LS_PRMSG.retr_pramnmb;
IF sqlca.SQLCode <> 0 THEN
	RETURN
END IF
IF Mod(ll_rowcount + 1,sys_emptyrowcount) <> 0 THEN
	ll_rowcount = sys_emptyrowcount - Mod(ll_rowcount + 1,sys_emptyrowcount)
ELSE
	ll_rowcount = 0
END IF

LS_PRMSG.rowcnt = ll_rowcount
//====================================================================
OpenWithParm(w_publ_preview,LS_PRMSG)

end event

event ue_print_wb_view();IF NOT f_power_ind(1034,sys_msg_pow) THEN
	MessageBox(publ_operator,'你没有使用权限！')
	RETURN
END IF

LONG LS_ROW
LS_ROW=dw_pageretr.getrow()
IF LS_ROW<=0 THEN 
	MESSAGEBOX('NO','没有打印目标单据!')
	RETURN
END IF
	
S_print_MSG LS_PRMSG

LS_PRMSG.obj_dwNAME='dw_pr_credence_wb'
LS_PRMSG.TAG_TEXT='记帐凭证'
LS_PRMSG.FILTER_STRING = ''
LS_PRMSG.retr_pram_falg=10
LS_PRMSG.PAGECH_FLAG=0
LS_PRMSG.retr_pramnmb=dw_pageretr.object.credid[LS_ROW]
LS_PRMSG.b_long=sys_emptyrowcount
LS_PRMSG.c_long=sys_accsetid

//====================================================================
// Script - clicked for cb_print 
// Reason: 
//--------------------------------------------------------------------
// Modified By: yyx		Date: 2004.02.18
//--------------------------------------------------------------------
long ll_rowcount=0

select count(*) into :ll_rowcount from cw_credencemx 
where accsetid = :sys_accsetid
  and credid =:LS_PRMSG.retr_pramnmb;
if sqlca.sqlcode<>0 then
	return
end if
if mod(ll_rowcount + 1,sys_emptyrowcount)<>0 then
	ll_rowcount=sys_emptyrowcount - mod(ll_rowcount + 1,sys_emptyrowcount)
else
	ll_rowcount=0
end if

LS_PRMSG.d_long=ll_rowcount
//====================================================================
Openwithparm(w_publ_preview,LS_PRMSG)
end event

event ue_cmpl_tax;if not dw_edit_mode then 
	messagebox('提示','非编辑状态下不可用')
	return
end if

long childrow
decimal ld_debit,ld_credit,ld_tax_debit,ld_tax_credit

dw_child.accepttext()
childrow = dw_child.getrow()
if childrow <= 0 then return

ld_debit = dw_child.object.debit[childrow]
ld_credit = dw_child.object.credit[childrow]

if ld_debit <> 0 then ld_tax_debit = round(ld_debit/sys_bank_taxrate,2)

if ld_credit <> 0 then ld_tax_credit = round(ld_credit/sys_bank_taxrate,2)

dw_child.object.debit[childrow] = ld_tax_debit
dw_child.object.credit[childrow] = ld_tax_credit

end event

event ue_computer;run('calc.exe')
end event

event ue_cash;IF dw_edit_mode THEN RETURN
IF dw_pageretr.GetRow() <= 0 THEN RETURN
Long i,cash_cnt
s_flow_cred s_flowcred

dw_pageretr.AcceptText()
s_flowcred.accsetid = dw_pageretr.Object.accsetid[dw_pageretr.GetRow()]
s_flowcred.credid = dw_pageretr.Object.credid[dw_pageretr.GetRow()]


string ls_brief,ls_brief_arr[]
DECLARE cur_brief CURSOR FOR
	SELECT cw_credencemx.brief
	FROM cw_subject,cw_credencemx
	WHERE cw_subject.accsetid = cw_credencemx.accsetid
	AND cw_subject.subid = cw_credencemx.subid
	AND cw_credencemx.accsetid = :s_flowcred.accsetid
	AND cw_credencemx.credid = :s_flowcred.credid
	AND cw_subject.hsemp = 1;
open cur_brief;
fetch cur_brief into :ls_brief;
do while sqlca.sqlcode = 0
	cash_cnt++
	ls_brief_arr[cash_cnt] = ls_brief
	fetch cur_brief into :ls_brief;
loop

close cur_brief;

IF cash_cnt = 0 THEN
	MessageBox('系统提示','凭证明细没有科目核算现金流量')
	RETURN
END IF

SELECT sum(debit),sum(credit)
	INTO :s_flowcred.debit,:s_flowcred.credit
	FROM cw_subject,cw_credencemx
	WHERE cw_subject.accsetid = cw_credencemx.accsetid
	AND cw_subject.subid = cw_credencemx.subid
	AND cw_credencemx.accsetid = :s_flowcred.accsetid
	AND cw_credencemx.credid = :s_flowcred.credid
	AND cw_subject.hsemp = 1;
	
IF sqlca.SQLCode <> 0 THEN
	MessageBox('系统提示','查询凭证明细科目核算现金流量金额失败')
	RETURN
END IF

s_flowcred.brief = ls_brief_arr



	

OpenWithParm(w_flow_cred,s_flowcred)

end event

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

Long uc_row
uc_row = dw_pageretr.GetRow()

IF uc_row <= 0 THEN RETURN

Open(w_credence_mode_choice)

Long ls_credid
String ls_credtype
Int ls_billnumber
ls_credid = Message.DoubleParm

IF ls_credid <= 0 THEN RETURN


SELECT credtype,billnumber INTO :ls_credtype,:ls_billnumber
	FROM cw_credence_auto
	WHERE accsetid = :sys_accsetid
	AND credid = :ls_credid;
IF sqlca.SQLCode <> 0 THEN RETURN

dw_pageretr.Object.credtype[uc_row] = ls_credtype
dw_pageretr.Object.billnumber[uc_row] = ls_billnumber

Long child_row
String ls_subid,ls_brief,ls_billno
Decimal ls_debit,ls_credit,ls_amount,ls_price
Long ls_deptid,ls_itemid,ls_billid
Int li_hsqty,li_hsdept,li_hsemp,li_hsitem,li_dcflag



DECLARE modecred_cur CURSOR FOR
	SELECT cw_credencemx_auto.subid,
	cw_credencemx_auto.brief,
	cw_credencemx_auto.debit,
	cw_credencemx_auto.credit,
	cw_credencemx_auto.amount,
	cw_credencemx_auto.price,
	cw_credencemx_auto.deptid,
	cw_credencemx_auto.itemid,
	cw_credencemx_auto.billid,
	cw_credencemx_auto.billno,
	cw_subject.hsqty,
	cw_subject.hsdept,
	cw_subject.hsemp,
	cw_subject.hsitem,
	cw_subject.dcflag
	FROM cw_credencemx_auto,cw_subject
	WHERE cw_credencemx_auto.accsetid = :sys_accsetid
	AND cw_credencemx_auto.credid = :ls_credid
	AND cw_credencemx_auto.accsetid = cw_subject.accsetid
	AND cw_credencemx_auto.subid = cw_subject.subid
	Order By cw_credencemx_auto.printid;
OPEN modecred_cur;
FETCH modecred_cur INTO :ls_subid,:ls_brief,:ls_debit,:ls_credit,
	:ls_amount,:ls_price,:ls_deptid,:ls_itemid,
	:ls_billid,:ls_billno,:li_hsqty,:li_hsdept,
	:li_hsemp,:li_hsitem,:li_dcflag;
	
DO WHILE sqlca.SQLCode = 0
	dw_child.AcceptText()
	
	Long ll_i
	Boolean if_f
	
	FOR ll_i = 1 TO dw_child.RowCount()
		IF Len(Trim(dw_child.Object.subid[ll_i])) > 0 THEN CONTINUE
		
		if_f = TRUE
		child_row = ll_i
		EXIT
	NEXT
	
	IF NOT if_f THEN
		child_row = dw_child.InsertRow(0)
	END IF
	
	dw_child.Object.brief[child_row] = ls_brief
	dw_child.Object.subid[child_row] = ls_subid
	dw_child.Object.debit[child_row] = ls_debit
	dw_child.Object.credit[child_row] = ls_credit
	dw_child.Object.cw_credencemx_billid[child_row] = ls_billid
	dw_child.Object.cw_credencemx_billno[child_row] = ls_billno
	dw_child.Object.cw_credencemx_amount[child_row] = ls_amount
	dw_child.Object.cw_credencemx_price[child_row] = ls_price
	dw_child.Object.cw_credencemx_deptid[child_row] = ls_deptid
	dw_child.Object.cw_credencemx_itemid[child_row] = ls_itemid
	
	dw_child.Object.cw_subject_hsqty[child_row] = li_hsqty
	dw_child.Object.cw_subject_hsdept[child_row] = li_hsdept
	dw_child.Object.cw_subject_hsemp[child_row] = li_hsemp
	dw_child.Object.cw_subject_hsitem[child_row] = li_hsitem
	dw_child.Object.cw_subject_dcflag[child_row] = li_dcflag
	
	FETCH modecred_cur INTO :ls_subid,:ls_brief,:ls_debit,:ls_credit,
		:ls_amount,:ls_price,:ls_deptid,:ls_itemid,
		:ls_billid,:ls_billno,:li_hsqty,:li_hsdept,
		:li_hsemp,:li_hsitem,:li_dcflag;
LOOP

CLOSE modecred_cur;



// brief 
// subid 
// debit  
// credit  
// cw_credencemx_billid 
// cw_credencemx_billno 
// cw_credencemx_amount 
// cw_credencemx_price  
// cw_credencemx_deptid 
// cw_credencemx_itemid 
//







end event

event ue_print_list();IF NOT f_power_ind(1034,sys_msg_pow) THEN
	MessageBox(publ_operator,'你没有使用权限！')
	RETURN
END IF

//--直接打印
uo_print_preview uo_print
if messagebox ("if","是否确定要打印列表中凭证吗?",question!,yesno! ) = 2 then return
s_print_msg ls_prmsg
long ls_i

if dw_pageretr.rowcount() <= 0 then
	messagebox('no','没有打印目标凭证!')
	return
end if


ls_prmsg.retr_pram_falg = 10

ls_prmsg.tag_text = '记帐凭证'
ls_prmsg.filter_string = ''
ls_prmsg.pagech_flag = 0
ls_prmsg.pagech_flag = 0
ls_prmsg.b_long = sys_emptyrowcount
ls_prmsg.c_long = sys_accsetid


open(w_sys_wait_jdt) //初始化进度条
w_sys_wait_jdt.show()
w_sys_wait_jdt.wf_accepttol(dw_pageretr.rowcount())


for ls_i = 1 to dw_pageretr.rowcount()
	
	w_sys_wait_jdt.st_msg.text="打印凭证:"+dw_pageretr.object.credtype[ls_i]+'  '+string(dw_pageretr.object.credno[ls_i])  //进度信息
	
	ls_prmsg.retr_pramnmb = dw_pageretr.object.credid[ls_i]	
	long ll_rowcount = 0
	
	select count(*) into :ll_rowcount from cw_credencemx
		where accsetid = :sys_accsetid
		and credid = :ls_prmsg.retr_pramnmb;
	if sqlca.sqlcode <> 0 then
		return
	end if
	if mod(ll_rowcount + 1,sys_emptyrowcount) <> 0 then
		ll_rowcount = sys_emptyrowcount - mod(ll_rowcount + 1,sys_emptyrowcount)
	else
		ll_rowcount = 0
	end if
	
	ls_prmsg.d_long = ll_rowcount
	
	//格式
	long mx_raw_cnt
	select count(*) into :mx_raw_cnt
	from cw_credencemx,cw_subject
		where cw_credencemx.accsetid = :sys_accsetid
		and cw_credencemx.credid = :ls_prmsg.retr_pramnmb
		and cw_credencemx.accsetid = cw_subject.accsetid
		and cw_credencemx.subid = cw_subject.subid
		and cw_subject.hswb = 1;
	if sqlca.sqlcode <> 0 then
		return
	end if
	if mx_raw_cnt = 0 then
		ls_prmsg.obj_dwname = 'dw_pr_credence'
	else
		ls_prmsg.obj_dwname = 'dw_pr_credence_wb'
	end if
	//
	
//	messagebox('',ls_prmsg.obj_dwname)
		
	uo_print.fact_print_msg = ls_prmsg
	
	
	string arg_msg
	if uo_print.uof_print_begin(arg_msg) = 0 then
		messagebox("系统提示",arg_msg)
		return
	end if
	uo_print.ds_print()
	
	w_sys_wait_jdt.wf_inc(ls_i)  //进度
next
close(w_sys_wait_jdt)

end event

event ue_balance;if not dw_edit_mode then 
	messagebox('提示','非编辑状态下不可用')
	return
end if

long childrow
decimal ld_sum_debit,ld_sum_credit,ld_amt
dw_child.accepttext()
childrow = dw_child.getrow()
if childrow <= 0 then return

if dw_child.object.debit[childrow] <> 0 or dw_child.object.debit[childrow] <> 0 then return

ld_sum_debit = dw_child.object.sum_debit[childrow]
ld_sum_credit = dw_child.object.sum_credit[childrow]

ld_amt = abs(ld_sum_debit - ld_sum_credit)

if dw_child.GetColumnName() = 'debit' then 
	dw_child.object.debit[childrow] = ld_amt
	dw_child.object.credit[childrow] = 0
elseif dw_child.GetColumnName() = 'credit' then 
	dw_child.object.credit[childrow] = ld_amt
	dw_child.object.debit[childrow] = 0
end if







end event

event ue_bill_find();IF dw_edit_mode THEN RETURN
IF dw_pageretr.GetRow() <= 0 THEN RETURN
String ls_code
ls_code = dw_pageretr.Object.reldcode[dw_pageretr.GetRow()]
//f_open_win('',0,ls_code)

end event

public function integer wf_refresh_interface ();//wf_refresh_interface

IF dw_edit_mode THEN
	cb_add_xm.Enabled = TRUE
	cb_dele_xm.Enabled = TRUE
	cb_retrieve.Enabled = FALSE
	cb_delet.Enabled = FALSE
	cb_print.Enabled = FALSE
	cb_auditing.Enabled = FALSE
	
	cb_edit.Enabled = TRUE
	cb_add.Enabled = TRUE
	
	cb_edit.Text = "放弃&E"
	cb_edit.normalpicname = 'Undo.bmp'
	
ELSE
	cb_add_xm.Enabled = FALSE
	cb_dele_xm.Enabled = FALSE
	cb_retrieve.Enabled = TRUE
	cb_delet.Enabled = TRUE
	cb_print.Enabled = TRUE
	cb_auditing.Enabled = TRUE
	
	cb_add.Enabled = FALSE
	cb_edit.Enabled = TRUE
	
	cb_edit.Text = "修改&E"
	cb_edit.normalpicname = 'OPEN.bmp'
	
	IF dw_pageretr.GetRow() <= 0 THEN
		cb_edit.Enabled = FALSE
		cb_delet.Enabled = FALSE
		cb_auditing.Enabled = FALSE
	END IF
END IF


IF retrieve_all OR dw_edit_mode THEN
	cb_nextpage.Enabled = FALSE
	cb_retrieveall.Enabled = FALSE
	em_pagerowno.Enabled = FALSE
	sle_usual_query.Enabled = FALSE
ELSE
	cb_nextpage.Enabled = TRUE
	cb_retrieveall.Enabled = TRUE
	em_pagerowno.Enabled = TRUE
	sle_usual_query.Enabled = TRUE
END IF

wf_lock_child()
wf_lock_uc()

cb_edit.of_init_draw()
cb_edit.of_paint()
cb_edit.TriggerEvent('ue_textchange')

THIS.TriggerEvent('refresh_interface')

RETURN 1



end function

public function integer wf_lock_child ();//wf_lock_child
INT LS_INT
IF dw_edit_mode THEN
	FOR LS_INT=1 TO child_column_int
		dw_child.SetTabOrder (LS_INT,LS_INT*10 )		
	NEXT
	
	//child_share	
	FOR LS_INT=1 TO child_column_int
		dw_child_share.SetTabOrder (LS_INT,LS_INT*10 )		
	NEXT	
ELSE
	FOR LS_INT=1 TO child_column_int
		dw_child.SetTabOrder (LS_INT, 0)
	NEXT
	
	//child_share
	FOR LS_INT=1 TO child_column_int
		dw_child_share.SetTabOrder (LS_INT, 0)	
	NEXT
END IF

RETURN 1
end function

public function integer wf_no_edit ();//wf_no_edit
IF dw_edit_mode THEN
	cb_edit.Enabled = TRUE
ELSE
	cb_edit.Enabled = FALSE
END IF
RETURN 1

end function

public function integer wf_lock_uc ();//wf_lock_uc
INT LS_INT
long ls_row
ls_row=dw_pageretr.getrow()
IF dw_edit_mode THEN
	FOR LS_INT=1 TO uc_column_int
		dw_pageretr.SetTabOrder (LS_INT,LS_INT*10 )
	NEXT
ELSE
	FOR LS_INT=1 TO uc_column_int
		dw_pageretr.SetTabOrder (LS_INT, 0)
	NEXT
END IF
if ls_row>0 then dw_pageretr.setrow(ls_row)
RETURN 1
end function

public function integer wf_refresh_curuc (long arg_subaccsetid, long arg_credid);//wf_refresh_curuc
IF arg_subaccsetid < 0 THEN RETURN 0
IF arg_credid <= 0 OR IsNull(arg_credid) THEN RETURN 0
Long uc_row
uc_row = dw_pageretr.GetRow()
IF uc_row <= 0 THEN RETURN 0

dw_pageretr.SetRedraw(FALSE)

Long credno
DateTime creddate
Long billnumber
String credtype
Long cmonth
String billmaker
DateTime billmakerdate
String billcheck
DateTime billcheckdate
String billpost
DateTime billpostdate
Int checkflag
Int postflag
DateTime moddate
String modemp

SELECT   cw_credence.credno,
	cw_credence.creddate  ,
	cw_credence.billnumber ,
	cw_credence.credtype  ,
	cw_credence.cmonth  ,
	cw_credence.billmaker,
	cw_credence.billmakerdate  ,
	cw_credence.billcheck  ,
	cw_credence.billcheckdate  ,
	cw_credence.billpost  ,
	cw_credence.billpostdate  ,
	cw_credence.checkflag  ,
	cw_credence.postflag  ,
	cw_credence.moddate  ,
	cw_credence.modemp
	INTO	:credno  ,
	:creddate ,
	:billnumber,
	:credtype  ,
	:cmonth  ,
	:billmaker,
	:billmakerdate  ,
	:billcheck  ,
	:billcheckdate  ,
	:billpost  ,
	:billpostdate  ,
	:checkflag  ,
	:postflag,
	:moddate,
	:modemp
	FROM cw_credence
	WHERE ( cw_credence.accsetid = :sys_accsetid ) AND
	( cw_credence.subaccsetid = :arg_subaccsetid )  AND
	( cw_credence.credid = :arg_credid)  ;
IF sqlca.SQLCode <> 0 THEN
	MessageBox('系统提示',"查询操作失败(错误凭证唯一码)")
	RETURN 0
END IF
dw_pageretr.Object.accsetid[uc_row] = sys_accsetid
dw_pageretr.Object.subaccsetid[uc_row] = arg_subaccsetid
dw_pageretr.Object.credid[uc_row] = arg_credid
dw_pageretr.Object.credno[uc_row] = credno
dw_pageretr.Object.creddate[uc_row] =  creddate
dw_pageretr.Object.billnumber[uc_row] =  billnumber
dw_pageretr.Object.credtype[uc_row] =  credtype
dw_pageretr.Object.cmonth[uc_row] =  cmonth
dw_pageretr.Object.billmaker[uc_row] = billmaker
dw_pageretr.Object.billmakerdate[uc_row] =  billmakerdate
dw_pageretr.Object.billcheck[uc_row] = billcheck
dw_pageretr.Object.billcheckdate[uc_row] = billcheckdate
dw_pageretr.Object.billpost[uc_row] = billpost
dw_pageretr.Object.billpostdate[uc_row] = billpostdate
dw_pageretr.Object.checkflag[uc_row] = checkflag
dw_pageretr.Object.postflag[uc_row] = postflag
dw_pageretr.Object.moddate[uc_row] = moddate
dw_pageretr.Object.modemp[uc_row] = modemp

wf_flagstatus_rf()
dw_pageretr.SetRedraw(TRUE)

RETURN 1



//credid  
//accsetid  
//subaccsetid  
//credno  
//creddate  
//billnumber  
//credtype  
//cmonth  
//billmaker  
//billmakerdate  
//billcheck  
//billcheckdate  
//billpost  
//billpostdate  
//checkflag  
//postflag 

end function

public function integer wf_change_childdw_face ();Long ls_sit,ls_width
IF if_fcurrency THEN
	IF NOT if_changedw THEN
		
		dw_child.Modify('cw_subject_moneyid_t.visible=1 ~n rate_t.visible=1 ~n cw_credencemx_rawmoney_t.visible=1 ~n')
		dw_child.Modify('cw_subject_moneyid.visible=1 ~n rate.visible=1 ~n cw_credencemx_rawmoney.visible=1 ~n')
		
		ls_width = Long(dw_child.Describe('subid.width')) - Long(dw_child.Describe('cw_subject_moneyid.width')) - Long(dw_child.Describe('rate.width'))
		dw_child.Modify('subid.width='+String(ls_width))
		ls_sit = Long(dw_child.Describe('subid.x'))+Long(dw_child.Describe('subid.width')) + 2
		
		dw_child.Modify('cw_subject_moneyid_t.x='+String(ls_sit))
		dw_child.Modify('cw_subject_moneyid.x='+String(ls_sit))
		
		ls_sit = Long(dw_child.Describe('cw_subject_moneyid.x'))+Long(dw_child.Describe('cw_subject_moneyid.width')) + 6
		
		dw_child.Modify('rate_t.x='+String(ls_sit))
		dw_child.Modify('rate.x='+String(ls_sit))
		dw_child.Modify('cw_credencemx_rawmoney_t.x='+String(ls_sit))
		dw_child.Modify('cw_credencemx_rawmoney.x='+String(ls_sit))
		
		ls_sit = Long(dw_child.Describe('rate.x'))+Long(dw_child.Describe('rate.width')) + 6
		dw_child.Modify('debit.x='+String(ls_sit))
		dw_child.Modify('debit_t.x='+String(ls_sit))
		dw_child.Modify('sum_debit.x='+String(ls_sit))
		
		dw_child.Modify('sum_rawmoney.x='+String(ls_sit))
		
		ls_sit = Long(dw_child.Describe('debit.x'))+Long(dw_child.Describe('debit.width')) + 6
		dw_child.Modify('credit.x='+String(ls_sit))
		dw_child.Modify('credit_t.x='+String(ls_sit))
		dw_child.Modify('sum_credit.x='+String(ls_sit))
		
		
		
	END IF
	IF NOT if_changedw THEN if_changedw = TRUE
ELSE
	ls_width = Long(dw_child.Describe('subid.width')) + Long(dw_child.Describe('cw_subject_moneyid.width')) + Long(dw_child.Describe('rate.width'))
	
	dw_child.Modify('cw_subject_moneyid_t.visible=0 ~n rate_t.visible=0 ~n cw_credencemx_rawmoney_t.visible=0 ~n')
	dw_child.Modify('cw_subject_moneyid.visible=0 ~n rate.visible=0 ~n cw_credencemx_rawmoney.visible=0 ~n')
	
	dw_child.Modify('subid.width='+String(ls_width))
	
	ls_sit = Long(dw_child.Describe('subid.x'))+Long(dw_child.Describe('subid.width')) + 4
	dw_child.Modify('debit.x='+String(ls_sit))
	dw_child.Modify('debit_t.x='+String(ls_sit))
	dw_child.Modify('sum_debit.x='+String(ls_sit))
	
	dw_child.Modify('sum_rawmoney.x='+String(ls_sit))
	
	ls_sit = Long(dw_child.Describe('debit.x'))+Long(dw_child.Describe('debit.width'))  + 6
	dw_child.Modify('credit.x='+String(ls_sit))
	dw_child.Modify('credit_t.x='+String(ls_sit))
	dw_child.Modify('sum_credit.x='+String(ls_sit))
	
	if_changedw = FALSE
END IF

RETURN 1
// cw_credencemx_rawmoney
// cw_subject_moneyid 
// rate 

// debit   
// credit  
// cw_subject_moneyid  
// cw_credencemx_rawmoney 


end function

public function integer wf_autoadd_mx (datetime arg_createdate);Long i,li_row
//datastore arg_ds
//
//arg_ds = CREATE datastore
//arg_ds.DataObject = "ds_credencemx"
//arg_ds.SetTransObject(sqlca)
//
//arg_ds.SetFullState ( s_tran.arg_blobds )
//
//cb_new.TriggerEvent(Clicked!)
//
//
//
//FOR i = 1 TO arg_ds.RowCount()
//	IF i <= dw_child.RowCount() THEN
//		dw_child.Object.brief[i] = arg_ds.Object.brief[i]
//		dw_child.Object.subid[i] = arg_ds.Object.subid[i]
//		
//		dw_child.Object.rate[i] = arg_ds.Object.rate[i]
//		dw_child.Object.debit[i] = arg_ds.Object.debit[i]
//		dw_child.Object.credit[i] = arg_ds.Object.credit[i]
//		dw_child.Object.cw_credencemx_amount[i] = arg_ds.Object.amount[i]
//		dw_child.Object.cw_credencemx_price[i] = arg_ds.Object.price[i]
//		dw_child.Object.cw_credencemx_deptid[i] = arg_ds.Object.deptid[i]
//		dw_child.Object.cw_credencemx_itemid[i] = arg_ds.Object.itemid[i]
//		dw_child.Object.cw_credencemx_billdate[i] = arg_ds.Object.billdate[i]
//		dw_child.Object.cw_credencemx_billid[i] = arg_ds.Object.billid[i]
//		dw_child.Object.cw_credencemx_billno[i] = arg_ds.Object.billno[i]
//		dw_child.Object.cropbillid[i] = arg_ds.Object.cropbillid[i]
//		dw_child.Object.cw_credencemx_readonly[i] = arg_ds.Object.READONLY[i]
//	END IF
//NEXT
//
//dw_pageretr.AcceptText()
//li_row = dw_pageretr.GetRow()
//
//dw_pageretr.SetRedraw(FALSE)
//dw_pageretr.Object.creddate[li_row] = arg_createdate
//dw_pageretr.Object.reldate[li_row] = arg_createdate
//dw_pageretr.SetFocus()
//dw_pageretr.SetColumn("reldate")
//dw_pageretr.SetRedraw(TRUE)
//
RETURN 1



end function

public subroutine wf_reshare_subid ();//1.会计科目
datawindowchild childdw_subid
dw_child.GetChild("subid",childdw_subid)
childdw_subid.SetTransObject (sqlca)
ddd_subid_display_detail.ShareData(childdw_subid)

end subroutine

public function integer wf_check_cash (ref string arg_msg);Int rslt = 1

IF sys_option_use_cash = 0 THEN
	rslt = 1
	GOTO ext
END IF

IF dw_edit_mode THEN
	rslt = 0
	arg_msg = '编辑状态不可用'
	GOTO ext
END IF

IF dw_pageretr.GetRow() <= 0 THEN
	rslt = 0
	arg_msg = '请选择凭证'
	GOTO ext
END IF

Long i,cnt
Long ll_accsetid,ll_credid
dw_pageretr.AcceptText()

ll_accsetid = dw_pageretr.Object.accsetid[dw_pageretr.GetRow()]
ll_credid = dw_pageretr.Object.credid[dw_pageretr.GetRow()]

SELECT count(*) INTO :cnt
	FROM cw_subject,cw_credencemx
	WHERE cw_subject.accsetid = cw_credencemx.accsetid
	AND cw_subject.subid = cw_credencemx.subid
	AND cw_credencemx.accsetid = :ll_accsetid
	AND cw_credencemx.credid = :ll_credid
	AND cw_subject.hsemp = 1;
IF sqlca.SQLCode <> 0 THEN
	arg_msg = '查询分录是否有核算现金流量科目失败,'+sqlca.SQLErrText
	rslt = 0
	GOTO ext
END IF

IF cnt = 0 THEN
	rslt = 1
	GOTO ext
END IF

Decimal ld_debit,ld_credit
SELECT sum(debit),sum(credit) INTO :ld_debit,:ld_credit
	FROM cw_subject,cw_credencemx
	WHERE cw_subject.accsetid = cw_credencemx.accsetid
	AND cw_subject.subid = cw_credencemx.subid
	AND cw_credencemx.accsetid = :ll_accsetid
	AND cw_credencemx.credid = :ll_credid
	AND cw_subject.hsemp = 1;
IF sqlca.SQLCode <> 0 THEN
	arg_msg = '查询分录核算现金流量科目金额失败,'+sqlca.SQLErrText
	rslt = 0
	GOTO ext
END IF

IF ld_debit = ld_credit THEN
	rslt = 1
	GOTO ext
END IF

cnt = 0
SELECT count(*) INTO :cnt
	FROM cw_cashitem
	WHERE accsetid = :ll_accsetid
	AND credid = :ll_credid;
IF sqlca.SQLCode <> 0 THEN
	arg_msg = '查询现金流量分配失败,'+sqlca.SQLErrText
	rslt = 0
	GOTO ext
END IF

IF cnt = 0 THEN
	arg_msg = '现金流量未分配,请检查'
	rslt = 0
	GOTO ext
END IF

ext:
RETURN rslt

end function

public function integer wf_flagstatus_rf ();//wf_flagstatus_rf
Long pagerert_row

pagerert_row = dw_pageretr.GetRow()
IF pagerert_row <= 0 THEN
	cb_auditing.Enabled = FALSE
	cb_3.Enabled = FALSE
	GOTO ext
END IF

IF dw_edit_mode THEN
	cb_auditing.Enabled = FALSE
	cb_3.Enabled = FALSE
ELSE
	IF dw_pageretr.Object.checkflag[pagerert_row] = 0 THEN		
		cb_auditing.Enabled = TRUE
		cb_3.Enabled = FALSE
	ELSEIF dw_pageretr.Object.checkflag[pagerert_row] = 1 and dw_pageretr.Object.postflag[pagerert_row] = 0 THEN
		cb_auditing.Enabled = FALSE
		cb_3.Enabled = TRUE
	ELSEIF dw_pageretr.Object.checkflag[pagerert_row] = 1 and dw_pageretr.Object.postflag[pagerert_row] = 1 THEN
		cb_auditing.Enabled = FALSE
		cb_3.Enabled = FALSE
	END IF
END IF



ext:
RETURN 0

end function

on w_credence_edit.create
int iCurrent
call super::create
this.cb_print=create cb_print
this.cb_retrieve=create cb_retrieve
this.cb_addzy=create cb_addzy
this.cb_delet=create cb_delet
this.cb_edit=create cb_edit
this.cb_add=create cb_add
this.cb_add_xm=create cb_add_xm
this.cb_dele_xm=create cb_dele_xm
this.cb_auditing=create cb_auditing
this.dw_child=create dw_child
this.cb_money=create cb_money
this.dw_child_share=create dw_child_share
this.cb_3=create cb_3
this.cb_print_1=create cb_print_1
this.cbx_1=create cbx_1
this.cb_other=create cb_other
this.cb_new=create cb_new
this.st_mxdscrp=create st_mxdscrp
this.ln_5=create ln_5
this.ln_6=create ln_6
this.ln_1=create ln_1
this.ln_2=create ln_2
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.cb_print
this.Control[iCurrent+2]=this.cb_retrieve
this.Control[iCurrent+3]=this.cb_addzy
this.Control[iCurrent+4]=this.cb_delet
this.Control[iCurrent+5]=this.cb_edit
this.Control[iCurrent+6]=this.cb_add
this.Control[iCurrent+7]=this.cb_add_xm
this.Control[iCurrent+8]=this.cb_dele_xm
this.Control[iCurrent+9]=this.cb_auditing
this.Control[iCurrent+10]=this.dw_child
this.Control[iCurrent+11]=this.cb_money
this.Control[iCurrent+12]=this.dw_child_share
this.Control[iCurrent+13]=this.cb_3
this.Control[iCurrent+14]=this.cb_print_1
this.Control[iCurrent+15]=this.cbx_1
this.Control[iCurrent+16]=this.cb_other
this.Control[iCurrent+17]=this.cb_new
this.Control[iCurrent+18]=this.st_mxdscrp
this.Control[iCurrent+19]=this.ln_5
this.Control[iCurrent+20]=this.ln_6
this.Control[iCurrent+21]=this.ln_1
this.Control[iCurrent+22]=this.ln_2
end on

on w_credence_edit.destroy
call super::destroy
destroy(this.cb_print)
destroy(this.cb_retrieve)
destroy(this.cb_addzy)
destroy(this.cb_delet)
destroy(this.cb_edit)
destroy(this.cb_add)
destroy(this.cb_add_xm)
destroy(this.cb_dele_xm)
destroy(this.cb_auditing)
destroy(this.dw_child)
destroy(this.cb_money)
destroy(this.dw_child_share)
destroy(this.cb_3)
destroy(this.cb_print_1)
destroy(this.cbx_1)
destroy(this.cb_other)
destroy(this.cb_new)
destroy(this.st_mxdscrp)
destroy(this.ln_5)
destroy(this.ln_6)
destroy(this.ln_1)
destroy(this.ln_2)
end on

event closequery;IF dw_edit_mode THEN
	Int ls_row = 0
	dw_pageretr.AcceptText()
	ls_row = dw_pageretr.GetNextModified(0, Primary!)+&
		dw_pageretr.GetNextModified(0, Filter!)+dw_pageretr.DeletedCount()
	IF ls_row > 0 THEN
		IF MessageBox('是否保存','单据数据已经改变,是否确定要放弃保存?',Question!,YesNo!,2 ) = 2 THEN
			RETURN 1
		END IF
	ELSE
		
		ls_row = dw_child.GetNextModified(0, Primary!)+&
			dw_child.GetNextModified(0, Filter!)+dw_child.DeletedCount()
		IF ls_row > 0 THEN
			IF MessageBox('是否保存','单据明细数据已经改变,是否确定要放弃保存?',Question!,YesNo!,2 ) = 2 THEN
				RETURN 1
			END IF
		END IF
	END IF
END IF



end event

event user_key;call super::user_key;IF       KeyDown(KeyF6!) THEN
	this.TRIGGEREVENT('ue_f6')
ELSEIF 	KeyDown(KeyF7!) THEN
	this.TRIGGEREVENT('ue_f7')	
ELSEIF 	KeyDown(KeyF8!) or KeyDown(KeyShift!) and KeyDown(KeyEnter!) THEN
	this.TRIGGEREVENT('ue_f8')
ELSEIF 	KeyDown(KeyF9!) THEN
	this.TRIGGEREVENT('ue_f9')
ELSEIF 	KeyDown(KeyF10!) THEN
	this.TRIGGEREVENT('ue_f10')
ELSEIF 	KeyDown(KeyF11!) THEN
	this.TRIGGEREVENT('ue_f11')
ELSEIF 	KeyDown(KeyF12!) THEN
	this.TRIGGEREVENT('ue_f12')
ELSEIF   KeyDown(KeyF4!) THEN 
	if cb_add.enabled then	cb_add.TRIGGEREVENT(CLICKED!)
ELSEIF 	KeyDown(KeyF5!)  THEN 
	if cb_edit.enabled then	cb_edit.TRIGGEREVENT(CLICKED!)
end if


end event

event open;THIS.TriggerEvent('ue_before_open')
wf_movetocenter()

OLD_TITLE = THIS.Title

s_tran = Message.PowerObjectParm
IF NOT IsNull(s_tran) THEN
	retrieve_all = s_tran.if_retrieve_all
	mode = s_tran.work_mode
	arg_pkid = s_tran.arg_pkid
	arg_string_code = s_tran.arg_string_code
	if_sharedata = s_tran.if_sharedata //是否应用sharedata，当retrieve_all＝true是生效
	ds_share = s_tran.ds_share
	i_credid = s_tran.e_long
END IF

dw_pageretr.RBUTTON_FILTER_USE = TRUE //右键查询功能开关
dw_pageretr.titleclick_sort_use = TRUE  //单击标题排序功能开关

dw_pageretr.SetTransObject (sqlca)
pkcolumndbtname = wf_get_pkcolumndbtname(dw_pageretr) //取第一列为关键字

ori_oldselect = dw_pageretr.DESCRIBE("DataWindow.Table.Select")
ls_newselect = ori_oldselect
ds_curquery = CREATE DATASTORE
ds_curquery.DataObject = 'd_extr_find'
ds_curquery.SetTransObject (sqlca)

wf_editindex_lockf()

sle_usual_query.Text = Trim(arg_string_code)

IF NOT retrieve_all THEN
	THIS.TriggerEvent("ue_usual_query_RETR") //修改ls_newselect,retrieve
ELSE
	IF if_sharedata THEN
		ds_share.ShareData(dw_pageretr)
	ELSE
		wf_retrieveuc(dw_pageretr,ls_newselect,1)
		THIS.TriggerEvent('retrieve_pageretr')
	END IF
END IF

IF retrieve_all THEN
	THIS.TriggerEvent("ue_usual_query_filt")
END IF

//wf_refresh_interface()
wf_change_childdw_face()

uc_column_int = 10 //uc dw前7列可以编辑
child_column_int = 21 //子dw前19列可以编辑

uo_credence_ins = CREATE uo_credence


////////////////////////
IF s_tran.d_long > 0 THEN
	wf_autoadd_mx(s_tran.b_datetime)
END IF






end event

event ue_before_open;dw_child_share.SetTransObject(sqlca)
dw_child.SetTransObject(sqlca)
dw_pageretr.SetTransObject(sqlca)
//1.会计科目
wf_reshare_subid()

//2.凭证字
datawindowchild childdw_credword
dw_pageretr.GetChild("credtype",childdw_credword)
childdw_credword.SetTransObject (sqlca)
childdw_credword.Retrieve(sys_accsetid)
IF childdw_credword.RowCount() <= 0 THEN
	childdw_credword.InsertRow(0)
END IF
//3.结算方式
//datawindowchild childdw_banktypeid
//dw_child_share.GetChild("cw_credencemx_billid",childdw_banktypeid)
//childdw_banktypeid.SetTransObject (sqlca)
//childdw_banktypeid.Retrieve(sys_accsetid)
//IF childdw_banktypeid.RowCount() <= 0 THEN
//	childdw_banktypeid.InsertRow(0)
//END IF

//5.项目
//datawindowchild childdw_itemid
//dw_child_share.GetChild("cw_credencemx_itemid",childdw_itemid)
//childdw_itemid.SetTransObject (sqlca)
//childdw_itemid.Retrieve(sys_accsetid)
//IF childdw_itemid.RowCount() <= 0 THEN
//	childdw_itemid.InsertRow(0)
//END IF
//6.外币
//datawindowchild childdw_moneyid
//dw_child.GetChild("cw_subject_moneyid",childdw_moneyid)
//childdw_moneyid.SetTransObject (sqlca)
//childdw_moneyid.Retrieve(sys_accsetid)
//IF childdw_moneyid.RowCount() <= 0 THEN
//	childdw_moneyid.InsertRow(0)
//END IF








end event

event retrieve_pageretr;Boolean cb_nextpage_enabled,cb_retrieveall_enabled
Boolean cb_retrieve_enabled

cb_nextpage_enabled = cb_nextpage.Enabled
cb_retrieveall_enabled = cb_retrieveall.Enabled

cb_nextpage.Enabled = FALSE
cb_retrieveall.Enabled = FALSE

dw_pageretr.ShareDataOff()
dw_pageretr.Retrieve(sys_accsetid,i_credid)

IF dw_pageretr.RowCount() > 0 AND dw_pageretr.GetRow() = 0 THEN dw_pageretr.SetRow(1)
wf_flagstatus_rf()
THIS.TriggerEvent('retrieve_childdw')

cb_nextpage.Enabled = cb_nextpage_enabled
cb_retrieveall.Enabled = cb_retrieveall_enabled

end event

event key;THIS.TriggerEvent('user_key')

end event

event close;Long ll_pagerow

dw_pageretr.AcceptText()

ll_pagerow = dw_pageretr.GetRow()

IF ll_pagerow <= 0 THEN
	rst_credid = 0
ELSE
	rst_credid = dw_pageretr.Object.credid[ll_pagerow]
END IF

DESTROY uo_credence_ins
CloseWithReturn(THIS,rst_credid)


end event

event resize;call super::resize;ln_5.EndX = THIS.Width
ln_6.EndX = THIS.Width
ln_1.EndX = THIS.Width
ln_2.EndX = THIS.Width

end event

type cb_func from w_publ_pageretr`cb_func within w_credence_edit
boolean visible = false
integer x = 1806
integer y = 176
end type

type cb_exit from w_publ_pageretr`cb_exit within w_credence_edit
integer x = 2537
integer y = 0
integer width = 151
integer height = 164
integer taborder = 240
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

type sle_usual_query from w_publ_pageretr`sle_usual_query within w_credence_edit
boolean visible = false
integer x = 3561
integer y = 824
integer width = 224
boolean bringtotop = true
end type

type cb_retrieveall from w_publ_pageretr`cb_retrieveall within w_credence_edit
integer x = 3886
integer y = 488
integer width = 151
integer taborder = 200
end type

type em_pagerowno from w_publ_pageretr`em_pagerowno within w_credence_edit
integer x = 3721
integer y = 316
integer height = 92
integer taborder = 180
boolean bringtotop = true
end type

type dw_pageretr from w_publ_pageretr`dw_pageretr within w_credence_edit
integer y = 348
integer width = 2990
integer height = 1768
boolean titlebar = false
string dataobject = "dw_credence_edit"
boolean maxbox = false
boolean hscrollbar = false
boolean vscrollbar = false
boolean resizable = false
boolean hsplitscroll = false
borderstyle borderstyle = stylebox!
end type

event dw_pageretr::rowfocuschanged;dw_pageretr.SetRow(currentrow)
dw_pageretr.ScrollToRow(currentrow)

IF NOT dw_edit_mode THEN PARENT.TriggerEvent('retrieve_childdw')


end event

event dw_pageretr::ue_after_filter;IF NOT dw_edit_mode THEN PARENT.TriggerEvent('retrieve_childdw')

end event

event dw_pageretr::itemchanged;if not dw_edit_mode then return
if row <= 0 then return
if dwo.name <> 'credtype' then return
dw_pageretr.accepttext()
dw_pageretr.setredraw(false)
string ls_credtype,arg_msg
long ls_yearmon
ls_yearmon = sys_curyearmon
ls_credtype = dw_pageretr.object.credtype[row]

if sys_option_credno_save = 0 then
	dw_pageretr.object.credno[row] = uo_credence_ins.get_new_credno(0,ls_credtype,ls_yearmon,arg_msg)
	if trim(arg_msg)<>'' then messagebox('提示',arg_msg)
end if
dw_pageretr.setcolumn("creddate")
dw_pageretr.setredraw(true)
end event

event dw_pageretr::dwnkey;PARENT.TriggerEvent('user_key')
IF Key = KeyDownArrow! THEN RETURN 1
IF dw_edit_mode THEN
	IF dw_pageretr.GetColumnName ( ) = 'billnumber'  AND Key = KeyEnter! THEN
		dw_child.SetFocus()
		dw_child.ScrollToRow(1)
		dw_child.SetColumn ('brief')
		RETURN 1
	ELSE
		IF  Key = KeyEnter! THEN //
			keybd_event ( 9, 0, 0 , 0 ) // 按下tab 
			keybd_event ( 9, 0, 2, 0 ) // 释放tab 
			RETURN 1
		END IF
	END IF
END IF

end event

event dw_pageretr::constructor;//
end event

type st_1 from w_publ_pageretr`st_1 within w_credence_edit
boolean visible = false
integer x = 3561
integer y = 1000
integer width = 174
string text = "期间:"
end type

type cb_nextpage from w_publ_pageretr`cb_nextpage within w_credence_edit
integer x = 4032
integer y = 1016
integer width = 151
integer taborder = 230
end type

type cb_print from uo_imflatbutton within w_credence_edit
integer x = 2153
integer width = 192
integer height = 164
integer taborder = 140
string text = "预览&P"
string normalpicname = "preview.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;m_Dfc_Control_PopupMenu dmPopupMenu
String menustr


menustr = "Text=本位币格式~tEvent=ue_print_view"
menustr = menustr + "|" + "Text=外币格式~tEvent=ue_print_wb_view"

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_retrieve from uo_imflatbutton within w_credence_edit
integer x = 2002
integer width = 151
integer height = 164
integer taborder = 100
string text = "刷新"
string normalpicname = "refresh.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;parent.triggerevent('retrieve_pageretr')
end event

type cb_addzy from uo_imflatbutton within w_credence_edit
integer x = 535
integer width = 192
integer height = 164
integer taborder = 160
boolean bringtotop = true
boolean enabled = false
string text = "获取&A"
string normalpicname = "find.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;IF NOT dw_edit_mode THEN RETURN
Long child_row
String ls_brief,ls_subid
s_subject s_rt_subject


dw_child.accepttext()
child_row = dw_child.GetRow()
IF child_row <= 0 THEN
	MessageBox('系统提示','请选定当前目标凭证明细!')
	RETURN
END IF

IF dw_child.GetColumnName() = 'brief' THEN
	Open(w_briefdef_edit)
	ls_brief = Message.StringParm
	IF ls_brief = '' THEN RETURN
	dw_child.Object.brief[child_row] = ls_brief
ELSEIF dw_child.GetColumnName() = 'subid' THEN
	
	IF cbx_1.Checked THEN
		IF NOT IsValid(w_subjectdef_edit) THEN OpenWithParm(w_subjectdef_edit,0)		
	ELSE
		IF NOT IsValid(w_subjectdef_ch) then OpenWithParm(w_subjectdef_ch,Trim(dw_child.Object.subid[child_row]))
	END IF
	
	
	s_rt_subject = Message.PowerObjectParm
	
	IF s_rt_subject.subid = '' THEN RETURN
	
	wf_reshare_subid()
	dw_child.Object.subid[child_row] = s_rt_subject.subid
	dw_child.Object.cw_subject_moneyid[child_row] = s_rt_subject.moneyid
	dw_child.Object.cw_subject_hswb[child_row] = s_rt_subject.hswb
	dw_child.Object.cw_subject_hsqty[child_row] = s_rt_subject.hsqty
	dw_child.Object.cw_subject_hsdept[child_row] = s_rt_subject.hsdept
	dw_child.Object.cw_subject_hsemp[child_row] = s_rt_subject.hsemp
	dw_child.Object.cw_subject_hsitem[child_row] = s_rt_subject.hsitem
	dw_child.Object.cw_subject_dcflag[child_row] = s_rt_subject.dcflag
	dw_child.Object.cw_subject_hscust[child_row] = s_rt_subject.hscust
	dw_child.Object.cw_subject_hsspt[child_row] = s_rt_subject.hsspt
	dw_child.Object.cw_subject_hstrader[child_row] = s_rt_subject.hstrader

	IF s_rt_subject.hswb <> 0 THEN
		if_fcurrency = TRUE
		wf_change_childdw_face()
		
		IF s_rt_subject.hswb = 2 THEN			
			Long ll_moneyid_native
			Decimal ld_rate
			SELECT moneyid,rate INTO :ll_moneyid_native,:ld_rate
				FROM cw_currency Where accsetid = :sys_accsetid AND native = 1;
			IF sqlca.SQLCode <> 0 THEN
				ll_moneyid_native = 0
				ld_rate = 0
			ELSE
				dw_child.Object.cw_subject_moneyid[child_row] = ll_moneyid_native
				dw_child.Object.rate[child_row] = ld_rate
			END IF
		END IF
	END IF
END IF

//cw_subject_hsdept  
//cw_subject_hsemp  
//cw_subject_hsitem  
//cw_subject_hsqty  
//cw_subject_hswb  
//cw_subject_moneyid  
//cw_subject_specialcode





end event

type cb_delet from uo_imflatbutton within w_credence_edit
integer x = 384
integer width = 151
integer height = 164
integer taborder = 150
string text = "删除"
string normalpicname = "delete.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;IF NOT f_power_ind(1031,sys_msg_pow) THEN
	MessageBox(publ_operator,'你没有使用权限！')
	RETURN
END IF

IF dw_edit_mode THEN RETURN

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


String arg_msg = ''
Long uc_row
Long ls_subaccsetid,ls_credid

uc_row = dw_pageretr.GetRow()

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

ls_subaccsetid = dw_pageretr.Object.subaccsetid[uc_row]
ls_credid = dw_pageretr.Object.credid[uc_row]

IF uo_credence_ins.del(0,ls_subaccsetid,ls_credid,arg_msg,TRUE) = 0 THEN
	MessageBox('Error!',arg_msg)
ELSE
	MessageBox(publ_operator,'删除凭证'+String(dw_pageretr.Object.credno[uc_row])+'成功!')
	dw_pageretr.DeleteRow(uc_row)
	dw_pageretr.PostEvent(RowFocusChanged!)
END IF


end event

type cb_edit from uo_imflatbutton within w_credence_edit
integer x = 192
integer width = 192
integer height = 164
integer taborder = 70
string text = "修改&E"
string normalpicname = "open.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;IF NOT f_power_ind(1030,sys_msg_pow) THEN
	MessageBox(publ_operator,'你没有使用权限！')
	RETURN
END IF


String arg_msg = ''
Long uc_row
Long ls_subaccsetid,ls_credid

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

ls_subaccsetid = dw_pageretr.Object.subaccsetid[uc_row]
ls_credid = dw_pageretr.Object.credid[uc_row]

IF NOT dw_edit_mode THEN
	IF uo_credence_ins.UPDATEbegin(ls_subaccsetid,ls_credid,arg_msg) = 0 THEN
		MessageBox(publ_operator,arg_msg)
		RETURN
	END IF
END IF

dw_edit_mode = NOT dw_edit_mode
wf_refresh_interface()
IF dw_edit_mode THEN
	dw_pageretr.SetFocus()
	cur_editfoucs = 2
ELSE
	PARENT.TriggerEvent('retrieve_pageretr')
	IF if_fcurrency THEN
		if_fcurrency = FALSE
		wf_change_childdw_face()
	END IF
	cur_editfoucs = 0
END IF



end event

type cb_add from uo_imflatbutton within w_credence_edit
integer width = 192
integer height = 164
integer taborder = 60
boolean enabled = false
string text = "保存&S"
string normalpicname = "save.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;IF NOT f_power_ind(1030,sys_msg_pow) THEN
	MessageBox(publ_operator,'你没有使用权限！')
	RETURN
END IF

String arg_msg = ''
Long uc_row
Decimal sum_debit,sum_credit
DateTime firstdate,enddate
Long i
Long ls_yearmon
ls_yearmon = sys_curyearmon

IF dw_edit_mode THEN
	dw_pageretr.AcceptText()
	dw_child.AcceptText()
	dw_child_share.AcceptText()
	
	uc_row = dw_pageretr.GetRow()
	IF uc_row <= 0 THEN
		MessageBox(publ_operator,'请选定当前目标凭证!')
		RETURN
	END IF
	
	IF sys_option_credno_save = 0 THEN
		IF dw_pageretr.Object.credno[uc_row] <= 0 THEN
			MessageBox(publ_operator,'请正确填写凭证编号!')
			RETURN
		END IF
	END IF
	
	sum_debit = dw_child.Object.sum_debit[1]
	sum_credit = dw_child.Object.sum_credit[1]
	
	IF sum_debit <> 0 OR sum_credit <> 0 THEN
		IF String(sum_debit,'###0.00') <> String(sum_credit,'###0.00') THEN
			IF (String(sum_debit,'###0.00') = '0.00' OR String(sum_debit,'###0.00') = '-0.00') AND &
				(String(sum_credit,'###0.00') = '0.00' OR String(sum_credit,'###0.00') = '-0.00') THEN
			ELSE
				MessageBox(publ_operator,'借、贷方金额不等!')
				RETURN
			END IF
		END IF
	END IF
	
	//====================================================================
	// script - clicked for cb_add 
	// reason:检查数量是否已录入 
	//--------------------------------------------------------------------
	// modified by: yyx		date: 2004.02.17
	//--------------------------------------------------------------------
	FOR i = 1 TO dw_child.RowCount()
		String is_subid,is_brief
		Int is_hsqty
		Decimal is_amount,is_price
		
		is_brief = dw_child.Object.brief[i]
		is_subid = dw_child.Object.subid[i]
		is_hsqty = dw_child.Object.cw_subject_hsqty[i]
		is_amount = dw_child.Object.cw_credencemx_amount[i]
		is_price = dw_child.Object.cw_credencemx_price[i]
		
		IF IsNull(is_hsqty) THEN is_hsqty = 0
		IF IsNull(is_amount) THEN is_amount = 0
		IF IsNull(is_price) THEN is_price = 0
		
		IF is_hsqty = 1 AND is_amount = 0 AND is_price = 0 THEN
			IF MessageBox ("询问","摘要:"+is_brief+",科目:"+is_subid+"没有录入数量,是否确定要保存当前凭证吗?",question!,yesno! ) = 2 THEN RETURN
		END IF
		
		Int li_hsdept,li_hsitem,li_hscust,li_hsspt
		Long ll_itemid,ll_deptid,ll_cusid,ll_sptid
		
		li_hsdept = dw_child.Object.cw_subject_hsdept[i]
		ll_deptid = dw_child.Object.cw_credencemx_deptid[i]
		
		li_hsitem = dw_child.Object.cw_subject_hsitem[i]
		ll_itemid = dw_child.Object.cw_credencemx_itemid[i]
		
		li_hscust = dw_child.Object.cw_subject_hscust[i]
		ll_cusid = dw_child.Object.cw_credencemx_cusid[i]
		
		li_hsspt = dw_child.Object.cw_subject_hsspt[i]
		ll_sptid = dw_child.Object.cw_credencemx_sptid[i]
		
		IF IsNull(li_hsdept) THEN li_hsdept = 0
		IF IsNull(ll_deptid) THEN ll_deptid = 0
		IF IsNull(li_hsitem) THEN li_hsitem = 0
		IF IsNull(ll_itemid) THEN ll_itemid = 0
		IF IsNull(li_hscust) THEN li_hscust = 0
		IF IsNull(ll_cusid) THEN ll_cusid = 0
		IF IsNull(li_hsspt) THEN li_hsspt = 0
		IF IsNull(ll_sptid) THEN ll_sptid = 0
		
		IF li_hsdept = 1 AND ll_deptid = 0 THEN
			IF sys_option_cred_dics_limit = 0 THEN
				IF MessageBox ("询问","摘要:"+is_brief+",科目:"+is_subid+"核算部门,分录没有选择部门,是否确定要保存当前凭证吗?",question!,yesno! ) = 2 THEN RETURN
			ELSE
				MessageBox ("询问","摘要:"+is_brief+",科目:"+is_subid+"核算部门,分录没有选择部门,不能保存当前凭证,请检查")
			END IF
		END IF
		
		IF li_hsitem = 1 AND ll_itemid = 0 THEN
			IF sys_option_cred_dics_limit = 0 THEN
				IF MessageBox ("询问","摘要:"+is_brief+",科目:"+is_subid+"核算项目,分录没有选择项目,是否确定要保存当前凭证吗?",question!,yesno! ) = 2 THEN RETURN
			ELSE
				MessageBox ("询问","摘要:"+is_brief+",科目:"+is_subid+"核算项目,分录没有选择项目,不能保存当前凭证,请检查")
			END IF
		END IF
		
		IF li_hscust = 1 AND ll_cusid = 0 THEN
			IF sys_option_cred_dics_limit = 0 THEN
				IF MessageBox ("询问","摘要:"+is_brief+",科目:"+is_subid+"核算客户,分录没有选择客户,是否确定要保存当前凭证吗?",question!,yesno! ) = 2 THEN RETURN
			ELSE
				MessageBox ("询问","摘要:"+is_brief+",科目:"+is_subid+"核算客户,分录没有选择客户,不能保存当前凭证,请检查")
			END IF
		END IF
		
		IF li_hsspt = 1 AND ll_sptid = 0 THEN
			IF sys_option_cred_dics_limit = 0 THEN
				IF MessageBox ("询问","摘要:"+is_brief+",科目:"+is_subid+"核算供应商,分录没有选择供应商,是否确定要保存当前凭证吗?",question!,yesno! ) = 2 THEN RETURN
			ELSE
				MessageBox ("询问","摘要:"+is_brief+",科目:"+is_subid+"核算供应商,分录没有选择供应商,不能保存当前凭证,请检查")
			END IF
		END IF
	NEXT
	//====================================================================
	
	//====================================================================
	// script - clicked for cb_add 
	// reason:检查贷方是否录入现金银行
	//--------------------------------------------------------------------
	// modified by: yyx		date: 2004.02.17
	//--------------------------------------------------------------------	
	IF sys_bank_awoke = 1 THEN
		FOR i = 1 TO dw_child.RowCount()
			Dec arg_rawdebit,arg_rawcredit
			IF dw_child.Object.debit[i] <> 0 THEN
				arg_rawdebit = dw_child.Object.cw_credencemx_rawmoney[i]
				arg_rawcredit = 0
			ELSEIF dw_child.Object.credit[i] <> 0 THEN
				arg_rawdebit = 0
				arg_rawcredit  = dw_child.Object.cw_credencemx_rawmoney[i]
			END IF
			
			IF f_check_credit(dw_pageretr.Object.credid[uc_row],dw_child.Object.subid[i],&
				dw_child.Object.debit[i],dw_child.Object.credit[i],&
				arg_rawdebit,arg_rawcredit,arg_msg) = 0 THEN
				IF MessageBox ("询问","科目:"+String(dw_child.Object.subid[i])+" 为现金或银行余额贷方分录,是否确定要保存当前凭证吗? ~n" + arg_msg,question!,yesno! ) = 2 THEN RETURN
				
			END IF
		NEXT
	END IF
	//====================================================================
	
	uo_credence_ins.subaccsetid = dw_pageretr.Object.subaccsetid[uc_row] //子帐id 	
	uo_credence_ins.credno = dw_pageretr.Object.credno[uc_row]     // 编号
	uo_credence_ins.creddate  = dw_pageretr.Object.creddate[uc_row]      // 日期
	uo_credence_ins.billnumber   = dw_pageretr.Object.billnumber[uc_row]       //附件
	uo_credence_ins.credtype  = dw_pageretr.Object.credtype[uc_row]      //凭证字
	uo_credence_ins.reldcode  = dw_pageretr.Object.reldcode[uc_row]      //凭证字
	uo_credence_ins.reldate  = dw_pageretr.Object.reldate[uc_row]      //凭证字
	uo_credence_ins.ifauto  = 0
	
	IF s_tran.c_long > 0 THEN
		uo_credence_ins.readtype = s_tran.c_long
	ELSE
		uo_credence_ins.readtype = dw_pageretr.Object.readtype[uc_row]
	END IF
	uo_credence_ins.relevantbillid = s_tran.d_long
	uo_credence_ins.cmonth  = ls_yearmon // 日期
	
	
	
	FOR i = 1 TO dw_child.RowCount()
		Dec ls_rawdebit,ls_rawcredit,ls_price,ls_amount
		
		IF dw_child.Object.debit[i] <> 0 THEN
			ls_rawdebit = dw_child.Object.cw_credencemx_rawmoney[i]
			ls_rawcredit = 0
		ELSEIF dw_child.Object.credit[i] <> 0 THEN
			ls_rawdebit = 0
			ls_rawcredit  = dw_child.Object.cw_credencemx_rawmoney[i]
		END IF
		
		ls_amount = dw_child.Object.cw_credencemx_amount[i]
		IF ls_amount = 0 THEN
			ls_price = 0
		ELSE
			ls_price = Round((dw_child.Object.debit[i] + dw_child.Object.credit[i])/ls_amount ,4)
		END IF
		
		IF uo_credence_ins.acceptmx(dw_child.Object.no[i],dw_child.Object.subid[i],&
			dw_child.Object.brief[i],dw_child.Object.rate[i],ls_rawdebit,&
			ls_rawcredit,dw_child.Object.debit[i],dw_child.Object.credit[i],&
			ls_amount,ls_price,&
			dw_child.Object.cw_credencemx_deptid[i],dw_child.Object.cw_credencemx_itemid[i],&
			dw_child.Object.cw_credencemx_billdate[i],dw_child.Object.cw_credencemx_billid[i],&
			dw_child.Object.cw_credencemx_billno[i],dw_child.Object.cropbillid[i],&
			dw_child.Object.cw_credencemx_readonly[i],&
			dw_child.Object.cw_credencemx_cusid[i],&
			dw_child.Object.cw_credencemx_sptid[i],&
			dw_child.Object.cw_credencemx_empid[i],&
			arg_msg) = 0 THEN
			MessageBox('error!',arg_msg)
			RETURN
		END IF
	NEXT
	
	IF uo_credence_ins.Save(publ_operator,arg_msg,TRUE) = 0 THEN
		MessageBox('error!',arg_msg)
		RETURN
	END IF
	MessageBox(publ_operator,'保存操作成功!')
	
	dw_pageretr.SelectRow(0,FALSE)
	dw_pageretr.SelectRow(uc_row,TRUE)
	wf_refresh_curuc(uo_credence_ins.subaccsetid,uo_credence_ins.credid) //刷新uc
	
	IF if_fcurrency THEN
		if_fcurrency = FALSE
		wf_change_childdw_face()
	END IF
END IF

dw_edit_mode = NOT dw_edit_mode
wf_refresh_interface()

IF NOT dw_edit_mode THEN
	cur_editfoucs = 0
	PARENT.TriggerEvent("retrieve_childdw")
	CLOSE(PARENT)
END IF










end event

type cb_add_xm from uo_imflatbutton within w_credence_edit
integer x = 1070
integer width = 283
integer height = 164
integer taborder = 80
boolean enabled = false
string text = "插明细F8"
string normalpicname = "mx.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;Int	li_row_1, li_cur_row_1
li_cur_row_1 = dw_child.GetRow()
li_row_1 = dw_child.InsertRow (li_cur_row_1)
dw_child.ScrollToRow (li_row_1)
dw_child.SetFocus()


end event

type cb_dele_xm from uo_imflatbutton within w_credence_edit
integer x = 1353
integer width = 224
integer height = 164
integer taborder = 90
boolean enabled = false
string text = "删明细"
string normalpicname = "mx1.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;IF MessageBox ("IF","是否确定要删除当前细目记录?",Question!,YesNo! ) = 2 THEN RETURN
IF dw_child.GETROW()=0 THEN 
	MESSAGEBOX('NO','请选择删除的行对象!')
	RETURN
END IF
dw_child.DeleteRow (0)
dw_child.TriggerEvent (rowfocuschanged!)

end event

type cb_auditing from uo_imflatbutton within w_credence_edit
integer x = 727
integer width = 192
integer height = 164
integer taborder = 190
boolean bringtotop = true
string text = "审核&F"
string normalpicname = "audit.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;IF NOT f_power_ind(1032,sys_msg_pow) THEN
	MessageBox(publ_operator,'你没有使用权限！')
	RETURN
END IF


IF dw_edit_mode THEN RETURN

String arg_msg = ''
Long pagerert_row
Long ls_subaccsetid,ls_credid

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

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

ls_subaccsetid = dw_pageretr.Object.subaccsetid[pagerert_row]
ls_credid = dw_pageretr.Object.credid[pagerert_row]

IF wf_check_cash(arg_msg) = 0 THEN
	MessageBox('提示',arg_msg)
	RETURN
END IF


IF uo_credence_ins.Check(ls_subaccsetid,ls_credid,arg_msg,TRUE) = 0 THEN
	MessageBox('Error!',arg_msg)
ELSE
	MessageBox(publ_operator,'审核成功!')
	wf_refresh_curuc(ls_subaccsetid,ls_credid)
END IF


end event

type dw_child from u_dw_rbtnfilter within w_credence_edit
event dwnkey pbm_dwnkey
integer y = 628
integer width = 2990
integer height = 1296
integer taborder = 30
boolean bringtotop = true
string dataobject = "dw_credencemx_index"
boolean vscrollbar = true
borderstyle borderstyle = stylebox!
end type

event dwnkey;PARENT.TriggerEvent('user_key')

String ls_subid,ls_briefcode,ls_briefname,ls_dftsubid,ls_subid_find
Long ls_moneyid
Int ls_hswb,ls_hsqty,ls_hsdept,ls_hsemp,ls_hsitem,ls_dcflag,ls_hscust,ls_hsspt,ls_hstrader
Dec ls_rawmoney
Double ls_rawrate

Long child_row
IF dw_edit_mode THEN
	child_row = dw_child.GetRow()
	IF child_row <= 0 THEN RETURN
	
	IF (KeyDown(keyenter!) OR KeyDown(keytab!)) AND NOT KeyDown(keycontrol!) AND NOT KeyDown(keyshift!) THEN
		IF dw_child.GetColumnName() = 'brief' THEN
			dw_child.AcceptText()
			ls_briefcode = dw_child.Object.brief[child_row]
			
			IF ls_briefcode <> '' THEN
				SELECT top 1 briefname,dftsubid INTO :ls_briefname,:ls_dftsubid
					FROM cw_brief
					Where (briefcode = :ls_briefcode OR briefname = :ls_briefcode)
					AND accsetid = :sys_accsetid;
					
				IF sqlca.SQLCode <> 0 OR IsNull(ls_briefname) THEN ls_briefname = ''
				IF ls_briefname <> '' THEN
					dw_child.Object.brief[child_row] = ls_briefname
					IF dw_child.Object.subid[child_row] = '' THEN
						dw_child.Object.subid[child_row] = ls_dftsubid
					END IF
				END IF
			END IF
			
			IF Key = keyenter!  THEN
				keybd_event ( 9, 0, 0 , 0 ) // 按下tab 
				keybd_event ( 9, 0, 2, 0 ) // 释放tab 	
				RETURN 1
			END IF
		ELSEIF  dw_child.GetColumnName() = 'subid' THEN
			dw_child.AcceptText()
			ls_subid = dw_child.Object.subid[child_row]
			
			SELECT cw_subject.moneyid,hswb,hsqty,hsdept,hsemp,hsitem,dcflag,cw_currency.rate,
				hscust,hsspt,cw_subject.subid,cw_subject.hstrader
				INTO :ls_moneyid,:ls_hswb,:ls_hsqty,:ls_hsdept,
				:ls_hsemp,:ls_hsitem,:ls_dcflag,:ls_rawrate,:ls_hscust,:ls_hsspt,:ls_subid_find,:ls_hstrader
				FROM cw_subject left OUTER join cw_currency on
				cw_subject.accsetid = cw_currency.accsetid AND
				cw_subject.moneyid = cw_currency.moneyid
				Where subid = :ls_subid AND cw_subject.accsetid = :sys_accsetid;
				
			IF sqlca.SQLCode <> 0 THEN
				cb_addzy.TriggerEvent(Clicked!)
				RETURN 1
			END IF
			
			dw_child.Object.cw_subject_moneyid[child_row] = ls_moneyid
			dw_child.Object.cw_subject_hswb[child_row] = ls_hswb
			dw_child.Object.cw_subject_hsqty[child_row] = ls_hsqty
			dw_child.Object.cw_subject_hsdept[child_row] = ls_hsdept
			dw_child.Object.cw_subject_hsemp[child_row] = ls_hsemp
			dw_child.Object.cw_subject_hsitem[child_row] = ls_hsitem
			dw_child.Object.cw_subject_dcflag[child_row] = ls_dcflag
			dw_child.Object.cw_subject_hscust[child_row] = ls_hscust
			dw_child.Object.cw_subject_hsspt[child_row] = ls_hsspt
			dw_child.Object.cw_subject_hstrader[child_row] = ls_hstrader
			dw_child.Object.subid[child_row] = ls_subid_find
			
			
			IF ls_hswb <> 0 THEN
				if_fcurrency = TRUE
				dw_child.Object.rate[child_row] = ls_rawrate
				wf_change_childdw_face()
				
				IF ls_hswb = 2 THEN
					Long ll_moneyid_native
					Decimal ld_rate
					SELECT moneyid,rate INTO :ll_moneyid_native,:ld_rate
						FROM cw_currency Where accsetid = :sys_accsetid AND native = 1;
					IF sqlca.SQLCode <> 0 THEN
						ll_moneyid_native = 0
						ld_rate = 0
					ELSE
						dw_child.Object.cw_subject_moneyid[child_row] = ll_moneyid_native
						dw_child.Object.rate[child_row] = ld_rate
					END IF
				END IF
			ELSE
				dw_child.Object.rate[child_row] = 0
			END IF
			
			IF Key = keyenter!  THEN
				keybd_event ( 9, 0, 0 , 0 ) // 按下tab 
				keybd_event ( 9, 0, 2, 0 ) // 释放tab 	
				RETURN 1
			END IF
		ELSEIF dw_child.GetColumnName() = 'cw_credencemx_rawmoney' THEN
			dw_child.AcceptText()
			IF dw_child.Object.cw_subject_moneyid[child_row] > 0 THEN
				
				ls_rawrate = dw_child.Object.rate[child_row]
				ls_rawmoney = dw_child.Object.cw_credencemx_rawmoney[child_row]
				
				IF dw_child.Object.cw_subject_dcflag[child_row] = 1 THEN
					dw_child.Object.debit[child_row] = Round(ls_rawmoney * ls_rawrate,2)
				ELSE
					dw_child.Object.credit[child_row] = Round(ls_rawmoney * ls_rawrate,2)
				END IF
				
				IF Key = keyenter!  THEN
					keybd_event ( 9, 0, 0 , 0 ) // 按下tab 
					keybd_event ( 9, 0, 2, 0 ) // 释放tab 	
					RETURN 1
				END IF
			END IF
			
		ELSEIF dw_child.GetColumnName() = 'debit' THEN
			dw_child.AcceptText()
			
			IF dw_child.Object.debit[child_row] <> 0 THEN dw_child.Object.credit[child_row] = 0
			
			
			IF Key = keyenter!  THEN
				keybd_event ( 9, 0, 0 , 0 ) // 按下tab 
				keybd_event ( 9, 0, 2, 0 ) // 释放tab 	
				RETURN 1
			ELSEIF Key = KeySpaceBar!  THEN
				dw_child.SetRedraw(FALSE)
				dw_child.SetColumn('credit')
				dw_child.Object.credit[child_row] = dw_child.Object.debit[child_row]
				dw_child.Object.debit[child_row] = 0
				dw_child.SetRedraw(TRUE)
				RETURN 1
			END IF
			
		ELSEIF dw_child.GetColumnName() = 'credit' THEN
			dw_child.AcceptText()
			
			
			IF Key = keyenter!  THEN
				keybd_event ( 9, 0, 0 , 0 ) // 按下tab 
				keybd_event ( 9, 0, 2, 0 ) // 释放tab 	
				RETURN 1
			ELSEIF Key = KeySpaceBar!  THEN
				dw_child.SetRedraw(FALSE)
				dw_child.SetColumn('debit')
				dw_child.Object.debit[child_row] = dw_child.Object.credit[child_row]
				dw_child.Object.credit[child_row] = 0
				dw_child.SetRedraw(TRUE)
				RETURN 1
			END IF
			IF dw_child.Object.credit[child_row] <> 0 THEN
				dw_child.Object.debit[child_row] = 0
				dw_child.AcceptText()
			END IF
		ELSE
			IF Key = keyenter!  THEN
				keybd_event ( 9, 0, 0 , 0 ) // 按下tab 
				keybd_event ( 9, 0, 2, 0 ) // 释放tab 	
				RETURN 1
			END IF
		END IF
	ELSE
		IF KeyDown( KeyF12!) AND dw_child.GetColumnName() = 'brief' THEN
			dw_child.AcceptText()
			dw_child.SetRedraw(FALSE)
			IF child_row > 1 THEN
				dw_child.Object.brief[child_row] = dw_child.Object.brief[child_row - 1]
			END IF
			dw_child.SetRedraw(TRUE)
		END IF
	END IF
END IF





















end event

event constructor;call super::constructor;titleclick_sort_use=true 
end event

event doubleclicked;IF NOT dw_edit_mode THEN RETURN
dw_child.AcceptText()
IF dwo.Name = 'cw_subject_moneyid' THEN
	IF dw_child.Object.cw_subject_hswb[row] = 2 THEN
		
		IF NOT IsValid(w_currency_ch) THEN
			OPEN(w_currency_ch)
			s_currency s_ch_rst
			s_ch_rst = Message.PowerObjectParm
			IF s_ch_rst.moneyid = 0 THEN RETURN
			
			dw_child.Object.cw_subject_moneyid[row] = s_ch_rst.moneyid
			dw_child.Object.rate[row] = s_ch_rst.rate
			dw_child.SetColumn('cw_credencemx_rawmoney')
		END IF
	END IF
ELSE
	cb_addzy.TriggerEvent(Clicked!)
END IF

end event

event rowfocuschanged;Long ll_getrow

ll_getrow = THIS.GetRow()

IF ll_getrow <= 0 THEN
	st_mxdscrp.Text = ''
ELSE
	THIS.SelectRow(0,FALSE)
	THIS.SetRow(ll_getrow)
	THIS.ScrollToRow (ll_getrow)
	THIS.SelectRow(ll_getrow,TRUE)
	THIS.AcceptText()
	
	st_mxdscrp.Text = '分录:'+String(ll_getrow)+',搞要:'+THIS.Object.brief[ll_getrow]
	
	dw_child_share.SetRow(ll_getrow)
	dw_child_share.ScrollToRow (ll_getrow)
END IF

IF dw_edit_mode THEN
	
	IF sys_option_lbrief = 1 AND ll_getrow > 1 AND cur_editfoucs = 1 THEN
		dw_child.Object.brief[ll_getrow] = dw_child.Object.brief[ll_getrow - 1 ]
	END IF
END IF









end event

event itemchanged;IF NOT dw_edit_mode THEN RETURN
String ls_subid
long ll_moneyid
int li_hswb,li_hsqty,li_hsdept,li_hsemp,li_hsitem,li_dcflag

dw_child.accepttext()

IF row <= 0 THEN RETURN

if dwo.name = 'subid' THEN
	
	ls_subid = dw_child.object.subid[row]
	
	select moneyid,hswb,hsqty,hsdept,hsemp,hsitem,dcflag
	into :ll_moneyid,:li_hswb,:li_hsqty,:li_hsdept,:li_hsemp,:li_hsitem,:li_dcflag
	from cw_subject
	where accsetid = :sys_accsetid
	and subid = :ls_subid;
	if sqlca.sqlcode <> 0 then return
	
	wf_reshare_subid()
	
	dw_child.Object.cw_subject_moneyid[row] = ll_moneyid
	dw_child.Object.cw_subject_hswb[row] = li_hswb
	dw_child.Object.cw_subject_hsqty[row] = li_hsqty
	dw_child.Object.cw_subject_hsdept[row] = li_hsdept
	dw_child.Object.cw_subject_hsemp[row] = li_hsemp
	dw_child.Object.cw_subject_hsitem[row] = li_hsitem
	dw_child.Object.cw_subject_dcflag[row] = li_dcflag
	
	IF li_hswb <> 0 THEN
		if_fcurrency = TRUE
		wf_change_childdw_face()
		
		IF li_hswb = 2 THEN			
			Long ll_moneyid_native
			Decimal ld_rate
			SELECT moneyid,rate INTO :ll_moneyid_native,:ld_rate
				FROM cw_currency Where accsetid = :sys_accsetid AND native = 1;
			IF sqlca.SQLCode <> 0 THEN
				ll_moneyid_native = 0
				ld_rate = 0
			ELSE
				dw_child.Object.cw_subject_moneyid[row] = ll_moneyid_native
				dw_child.Object.rate[row] = ld_rate
			END IF
		END IF
	END IF	
END IF

//cw_subject_hsdept  
//cw_subject_hsemp  
//cw_subject_hsitem  
//cw_subject_hsqty  
//cw_subject_hswb  
//cw_subject_moneyid  
//cw_subject_specialcode





end event

type cb_money from uo_imflatbutton within w_credence_edit
integer x = 1577
integer width = 151
integer height = 164
integer taborder = 120
boolean bringtotop = true
string text = "外币"
string normalpicname = "p2.BMP"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;if_fcurrency = NOT if_fcurrency

wf_change_childdw_face()

end event

type dw_child_share from datawindow within w_credence_edit
event key pbm_dwnkey
integer x = 46
integer y = 1400
integer width = 1774
integer height = 512
integer taborder = 50
boolean bringtotop = true
string dataobject = "dw_credencemx_index2"
boolean border = false
boolean livescroll = true
end type

event key;PARENT.TriggerEvent('user_key')
IF Key = keyenter! THEN RETURN 1

end event

event itemchanged;if not dw_edit_mode then return


dec ls_amount,ls_price,ls_amt

long child_row,uc_row

dw_child_share.accepttext()
dw_child.accepttext()
child_row = dw_child_share.getrow()
uc_row = dw_child.getrow()

if child_row <= 0 then return
if uc_row <= 0 then return

ls_amt = dw_child.object.debit[uc_row] + dw_child.object.credit[uc_row]

if string(dwo.name) = 'cw_credencemx_amount' then
	if dw_child_share.object.cw_subject_hsqty[child_row] > 0 or dw_child.object.cw_subject_hsqty[child_row] > 0 then
		ls_amount = dw_child_share.object.cw_credencemx_amount[child_row]
		if ls_amount > 0 then
			ls_price = round(ls_amt/ls_amount,4)
		end if
		dw_child_share.object.cw_credencemx_price[child_row] = ls_price
	end if
elseif  string(dwo.name) = 'cw_credencemx_price' then
	if dw_child_share.object.cw_subject_hsqty[child_row] > 0 or dw_child.object.cw_subject_hsqty[child_row] > 0 then
		ls_amount = dw_child_share.object.cw_credencemx_amount[child_row]
		if ls_amount > 0 then
			ls_price = round(ls_amt/ls_amount,4)
		end if
		dw_child_share.object.cw_credencemx_price[child_row] = ls_price
	end if
end if




//cw_credencemx_amount

end event

event buttonclicked;IF row <= 0 THEN RETURN

//IF dw_edit_mode 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 (备用)	
//	s_ch_tran.arg_string_code = ''//查询列(物料编码)部分内容,用于初步筛选	
//	
//	IF dwo.Name = 'b_dept' THEN
//		IF THIS.Object.cw_subject_hsdept[row] = 0 THEN
//			MessageBox('提示','科目不是核算部门,不能选择部门')
//			RETURN
//		END IF
//		
//		IF NOT IsValid(w_department_ch) THEN
//			OPEN(w_department_ch)
//			
//			Long ll_deptid
//			ll_deptid = Message.DoubleParm
//			
//			IF ll_deptid > 0 THEN
//				THIS.Object.cw_credencemx_deptid[row] = ll_deptid
//			END IF
//		END IF
//	ELSEIF dwo.Name = 'b_item' THEN
//		
//		IF THIS.Object.cw_subject_hsitem[row] = 0 THEN
//			MessageBox('提示','科目不是核算银行,不能选择银行')
//			RETURN
//		END IF
//		
//		IF NOT IsValid(w_hsaccount_ch) THEN
//			OPEN(w_hsaccount_ch)
//			
//			s_accounts s_account
//			s_account = Message.PowerObjectParm
//			
//			IF s_account.accountsid > 0 THEN
//				THIS.Object.cw_credencemx_itemid[row] = s_account.accountsid 
//			END IF
//		END IF
//	ELSEIF dwo.Name = 'b_emp' THEN
//		
//		IF THIS.Object.cw_subject_hstrader[row] = 0 THEN
//			MessageBox('提示','科目不是核算个人,不能选择个人')
//			RETURN
//		END IF
//		IF NOT IsValid(w_empinfo_choice) THEN
//			OPEN(w_empinfo_choice)
//			
//			s_empselect s_select
//			s_select = Message.PowerObjectParm
//			
//			IF s_select.empid > 0 THEN
//				THIS.Object.cw_credencemx_empid[row] = s_select.empid
//			END IF
//		END IF
//	ELSEIF dwo.Name = 'b_cust' THEN
//		
//		IF THIS.Object.cw_subject_hscust[row] = 0 THEN
//			MessageBox('提示','科目不是核算客户,不能选择客户')
//			RETURN
//		END IF
//		
//		IF NOT IsValid(W_cust_edit) THEN
//			OpenWithParm(W_cust_edit,s_ch_tran) //调用
//			
//			s_custom S_INSCUST_cust
//			S_INSCUST_cust = Message.PowerObjectParm //接受返回结构
//			
//			IF S_INSCUST_cust.cusid > 0 THEN //正常返回值则可以取以下值
//				THIS.SetRedraw(FALSE)
//				THIS.Object.cw_credencemx_cusid[row] = S_INSCUST_cust.cusid
//				THIS.SetRedraw(TRUE)
//			END IF
//		END IF
//	ELSEIF dwo.Name = 'b_spt' THEN
//		
//		IF THIS.Object.cw_subject_hsspt[row] = 0 THEN
//			MessageBox('提示','科目不是核算供应商,不能选择供应商')
//			RETURN
//		END IF
//		
//		IF NOT IsValid(W_spt_edit) THEN
//			OpenWithParm(W_spt_edit,s_ch_tran) //调用
//			
//			S_spt S_INSCUST_spt
//			S_INSCUST_spt = Message.PowerObjectParm //接受返回结构
//			
//			IF S_INSCUST_spt.sptid > 0 THEN //正常返回值则可以取以下值
//				THIS.SetRedraw(FALSE)
//				THIS.Object.cw_credencemx_sptid[row] = S_INSCUST_spt.sptid
//				THIS.SetRedraw(TRUE)
//			END IF
//		END IF
//	END IF
//END IF











end event

type cb_3 from uo_imflatbutton within w_credence_edit
integer x = 919
integer width = 151
integer height = 164
integer taborder = 170
boolean bringtotop = true
string text = "撤审"
string normalpicname = "caudit.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;IF NOT f_power_ind(1033,sys_msg_pow) THEN
	MessageBox(publ_operator,'你没有使用权限！')
	RETURN
END IF

IF dw_edit_mode THEN RETURN

String arg_msg = ''
Long pagerert_row
Long ls_subaccsetid,ls_credid

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

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

ls_subaccsetid = dw_pageretr.Object.subaccsetid[pagerert_row]
ls_credid = dw_pageretr.Object.credid[pagerert_row]


IF uo_credence_ins.cancel_check_1(ls_subaccsetid,ls_credid,1,arg_msg,TRUE) = 0 THEN
	MessageBox('Error!',arg_msg)
ELSE
	MessageBox(publ_operator,'撤审成功!')
	wf_refresh_curuc(ls_subaccsetid,ls_credid)
END IF

end event

type cb_print_1 from uo_imflatbutton within w_credence_edit
integer x = 2345
integer width = 192
integer height = 164
integer taborder = 110
boolean bringtotop = true
string text = "打印&O"
string normalpicname = "print.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;m_Dfc_Control_PopupMenu dmPopupMenu
string menustr


menustr="Text=本位币格式~tEvent=ue_print"
menustr=menustr + "|" + "Text=外币格式~tEvent=ue_print_wb"
	
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 cbx_1 from checkbox within w_credence_edit
integer x = 558
integer y = 192
integer width = 357
integer height = 52
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 67108864
string text = "获取选定义"
boolean checked = true
end type

event clicked;Int li_ifdy

IF THIS.Checked THEN
	li_ifdy = 1
ELSE
	li_ifdy = 0
END IF
SetProfileString (sys_inifilename,dw_pageretr.DataObject, "ifdy", String(li_ifdy))
end event

event constructor;Int li_ifdy
li_ifdy = Integer(ProfileString (sys_inifilename,dw_pageretr.DataObject, "ifdy", '1'))
IF li_ifdy = 0 THEN
	THIS.Checked = FALSE
ELSE
	THIS.Checked = TRUE
END IF


end event

type cb_other from uo_imflatbutton within w_credence_edit
integer x = 1728
integer width = 274
integer height = 164
integer taborder = 130
boolean bringtotop = true
string text = "其它功能"
string normalpicname = "other.BMP"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;m_Dfc_Control_PopupMenu dmPopupMenu
string menustr

menustr="Text=找平~tEvent=ue_balance"
menustr=menustr + "|" + "Text=-"
menustr=menustr + "|" + "Text=计税~tEvent=ue_cmpl_tax"
menustr=menustr + "|" + "Text=-"
menustr=menustr + "|" + "Text=计算器~tEvent=ue_computer"
menustr=menustr + "|" + "Text=-"
menustr=menustr + "|" + "Text=现金流量分配~tEvent=ue_cash"
menustr=menustr + "|" + "Text=-"
menustr=menustr + "|" + "Text=调入模式凭证~tEvent=ue_cred_mode"
menustr=menustr + "|" + "Text=-"
menustr=menustr + "|" + "Text=查看相关单据~tEvent=ue_bill_find"
	
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_new from uo_imflatbutton within w_credence_edit
boolean visible = false
integer x = 2857
integer y = 168
integer width = 151
integer height = 132
integer taborder = 250
boolean bringtotop = true
boolean enabled = false
string text = "新建"
end type

event clicked;String arg_msg = ''
Long uc_row
Long i
Long ls_yearmon
ls_yearmon = sys_curyearmon

IF not dw_edit_mode THEN
	IF uo_credence_ins.newbegin() = 0 THEN
		MessageBox('error!',arg_msg)
		RETURN
	END IF
END IF

dw_edit_mode = NOT dw_edit_mode
wf_refresh_interface()

IF dw_edit_mode THEN	
	Int li_row, li_cur_row
	li_cur_row = dw_pageretr.GetRow()
	li_row = dw_pageretr.InsertRow (li_cur_row)
	dw_pageretr.ScrollToRow (li_row)
	
	dw_child.Reset()
	FOR i = 1 TO sys_credence_insertrow
		dw_child.InsertRow(0)
	NEXT
	
	//
	dw_pageretr.SetRedraw(FALSE)
	String ls_credtype
	DateTime ls_creddate
	ls_credtype = Trim(dw_pageretr.Object.credtype[li_row])
	
	IF sys_option_credno_save = 0 THEN
		dw_pageretr.Object.credno[li_row] = uo_credence_ins.get_new_credno(0,ls_credtype,ls_yearmon,arg_msg)
		IF Trim(arg_msg) <> '' THEN MessageBox('提示',arg_msg)
	END IF
	ls_creddate = f_rst_mon_1st(3,ls_yearmon)
	dw_pageretr.Object.creddate[li_row] = ls_creddate
	dw_pageretr.Object.reldate[li_row] = ls_creddate
	dw_pageretr.SetColumn("reldate")
	//	
	dw_pageretr.SetRedraw(TRUE)
	dw_pageretr.SetFocus()
	cur_editfoucs = 1
END IF







end event

type st_mxdscrp from statictext within w_credence_edit
integer x = 14
integer y = 264
integer width = 2962
integer height = 52
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 134217739
boolean enabled = false
boolean focusrectangle = false
end type

type ln_5 from line within w_credence_edit
long linecolor = 33554432
integer linethickness = 4
integer beginy = 332
integer endx = 1001
integer endy = 332
end type

type ln_6 from line within w_credence_edit
long linecolor = 16777215
integer linethickness = 4
integer beginy = 336
integer endx = 1001
integer endy = 336
end type

type ln_1 from line within w_credence_edit
long linecolor = 33554432
integer linethickness = 4
integer beginy = 168
integer endx = 1001
integer endy = 168
end type

type ln_2 from line within w_credence_edit
long linecolor = 16777215
integer linethickness = 4
integer beginy = 172
integer endx = 1001
integer endy = 172
end type