$PBExportHeader$w_credence_edit_popup.srw $PBExportComments$凭证录入 forward global type w_credence_edit_popup from w_publ_pageretr end type type cb_print from uo_imflatbutton within w_credence_edit_popup end type type cb_retrieve from uo_imflatbutton within w_credence_edit_popup end type type cb_addzy from uo_imflatbutton within w_credence_edit_popup end type type cb_delet from uo_imflatbutton within w_credence_edit_popup end type type cb_edit from uo_imflatbutton within w_credence_edit_popup end type type cb_add from uo_imflatbutton within w_credence_edit_popup end type type cb_add_xm from uo_imflatbutton within w_credence_edit_popup end type type cb_dele_xm from uo_imflatbutton within w_credence_edit_popup end type type cb_showall from uo_imflatbutton within w_credence_edit_popup end type type cb_auditing from uo_imflatbutton within w_credence_edit_popup end type type dw_child from u_dw_rbtnfilter within w_credence_edit_popup end type type cb_money from uo_imflatbutton within w_credence_edit_popup end type type dw_child_share from datawindow within w_credence_edit_popup end type type st_3 from statictext within w_credence_edit_popup end type type cb_cauditing from uo_imflatbutton within w_credence_edit_popup end type type cb_print_1 from uo_imflatbutton within w_credence_edit_popup end type type ddlb_credtype from dropdownlistbox within w_credence_edit_popup end type type st_dft_cmonth from statictext within w_credence_edit_popup end type type cbx_1 from checkbox within w_credence_edit_popup end type type ddlb_status from dropdownlistbox within w_credence_edit_popup end type type st_2 from statictext within w_credence_edit_popup end type type st_4 from statictext within w_credence_edit_popup end type type cb_other from uo_imflatbutton within w_credence_edit_popup end type type em_cmonth from editmask within w_credence_edit_popup end type type mle_msg from statictext within w_credence_edit_popup end type type dw_uc from datawindow within w_credence_edit_popup end type type cb_auto_create from uo_imflatbutton within w_credence_edit_popup end type type ln_5 from line within w_credence_edit_popup end type type ln_6 from line within w_credence_edit_popup end type type st_mxdscrp from statictext within w_credence_edit_popup end type type cb_dft from commandbutton within w_credence_edit_popup end type type st_dft_reldate from statictext within w_credence_edit_popup end type type ln_1 from line within w_credence_edit_popup end type type ln_2 from line within w_credence_edit_popup end type type ln_3 from line within w_credence_edit_popup end type type ln_4 from line within w_credence_edit_popup end type type r_bar from rectangle within w_credence_edit_popup end type end forward global type w_credence_edit_popup from w_publ_pageretr integer width = 3611 integer height = 2380 string title = "记帐凭证" boolean maxbox = true windowstate windowstate = maximized! 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_cred_savetomode ( ) event ue_bill_find ( ) event ue_xls ( ) event ue_print_list2 ( ) 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_showall cb_showall cb_auditing cb_auditing dw_child dw_child cb_money cb_money dw_child_share dw_child_share st_3 st_3 cb_cauditing cb_cauditing cb_print_1 cb_print_1 ddlb_credtype ddlb_credtype st_dft_cmonth st_dft_cmonth cbx_1 cbx_1 ddlb_status ddlb_status st_2 st_2 st_4 st_4 cb_other cb_other em_cmonth em_cmonth mle_msg mle_msg dw_uc dw_uc cb_auto_create cb_auto_create ln_5 ln_5 ln_6 ln_6 st_mxdscrp st_mxdscrp cb_dft cb_dft st_dft_reldate st_dft_reldate ln_1 ln_1 ln_2 ln_2 ln_3 ln_3 ln_4 ln_4 r_bar r_bar end type global w_credence_edit_popup w_credence_edit_popup 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 cur_checkflag = -1 Long cur_postflag = -1 String cur_credtype = '-1' Int cur_editfoucs = 0 Boolean if_changedw Long i_cmonth Long ll_xls_billid,ll_xls_Templatesid String ls_xls_DefaultDataWindow Long il_dft_cmonth Int ii_if_dft_reldate DateTime idt_dft_reldate 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_setrow (long arg_credno) public subroutine wf_reshare_subid () public function integer wf_rtr_balc () public function integer wf_flagstatus_rf () public function integer wf_check_cash (ref string arg_msg) public subroutine wf_text () end prototypes event retrieve_childdw;Long row,uc_credid,uc_subaccsetid,i,li_row,cnt row = dw_uc.GetRow() //1.会计科目 wf_reshare_subid() IF row > 0 THEN uc_subaccsetid = dw_uc.Object.subaccsetid[row] uc_credid = dw_uc.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 ddlb_status.Enabled = NOT dw_edit_mode cb_dft.Enabled = NOT dw_edit_mode em_cmonth.Enabled = NOT dw_edit_mode ddlb_credtype.Enabled = NOT dw_edit_mode cbx_1.Enabled = dw_edit_mode //mle_msg.Visible = dw_edit_mode IF dw_edit_mode AND cur_editfoucs = 1 THEN IF sys_option_credno_save = 1 THEN dw_uc.SetTabOrder('credno',0) END IF END IF IF dw_edit_mode AND sys_system_mode = -1 THEN dw_child_share.SetTabOrder('cw_credencemx_cusid',0) dw_child_share.SetTabOrder('cw_credencemx_sptid',0) END IF IF NOT dw_edit_mode THEN if_changedw = FALSE end event event ue_print();IF NOT f_power_ind(1975,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_uc.GetRow() IF LS_ROW <= 0 THEN MessageBox('NO','没有打印目标单据!') RETURN END IF String ls_windowname ls_windowname = THIS.ClassName ( ) String ls_old_dwname,ls_new_dwname = '' ls_old_dwname = 'dw_pr_credence' ls_new_dwname = f_get_dwprint_dynamic_chname(ls_old_dwname,ls_windowname) IF ls_new_dwname = '' THEN ls_new_dwname = ls_old_dwname END IF LS_PRMSG.obj_dwNAME = ls_new_dwname LS_PRMSG.TAG_TEXT = '记帐凭证' LS_PRMSG.FILTER_STRING = '' LS_PRMSG.retr_pram_falg = 15 LS_PRMSG.PAGECH_FLAG = 0 LS_PRMSG.retr_pramnmb = dw_uc.Object.credid[LS_ROW] LS_PRMSG.printrow = sys_emptyrowcount LS_PRMSG.retr_scid = sys_accsetid 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 LS_PRMSG.rowcnt = 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(1975,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_uc.GetRow() IF LS_ROW <= 0 THEN MessageBox('NO','没有打印目标单据!') RETURN END IF String ls_windowname ls_windowname = THIS.ClassName ( ) String ls_old_dwname,ls_new_dwname = '' ls_old_dwname = 'dw_pr_credence_wb' ls_new_dwname = f_get_dwprint_dynamic_chname(ls_old_dwname,ls_windowname) IF ls_new_dwname = '' THEN ls_new_dwname = ls_old_dwname END IF LS_PRMSG.obj_dwNAME = ls_new_dwname LS_PRMSG.TAG_TEXT = '记帐凭证' LS_PRMSG.FILTER_STRING = '' LS_PRMSG.retr_pram_falg = 15 LS_PRMSG.PAGECH_FLAG = 0 LS_PRMSG.retr_pramnmb = dw_uc.Object.credid[LS_ROW] LS_PRMSG.printrow = sys_emptyrowcount LS_PRMSG.retr_scid = sys_accsetid 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 LS_PRMSG.rowcnt = 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(1975,sys_msg_pow) THEN MessageBox(publ_operator,'你没有使用权限！') RETURN END IF Long LS_ROW LS_ROW = dw_uc.GetRow() IF LS_ROW <= 0 THEN MessageBox('NO','没有打印目标单据!') RETURN END IF String ls_windowname ls_windowname = THIS.ClassName ( ) String ls_old_dwname,ls_new_dwname = '' ls_old_dwname = 'dw_pr_credence' ls_new_dwname = f_get_dwprint_dynamic_chname(ls_old_dwname,ls_windowname) IF ls_new_dwname = '' THEN ls_new_dwname = ls_old_dwname END IF S_print_MSG LS_PRMSG LS_PRMSG.obj_dwNAME = ls_new_dwname LS_PRMSG.TAG_TEXT = '记帐凭证' LS_PRMSG.FILTER_STRING = '' LS_PRMSG.retr_pram_falg = 15 LS_PRMSG.PAGECH_FLAG = 0 LS_PRMSG.retr_pramnmb = dw_uc.Object.credid[LS_ROW] LS_PRMSG.printrow = sys_emptyrowcount LS_PRMSG.retr_scid = sys_accsetid 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 LS_PRMSG.rowcnt = ll_rowcount //==================================================================== OpenWithParm(w_publ_preview,LS_PRMSG) end event event ue_print_wb_view();IF NOT f_power_ind(1975,sys_msg_pow) THEN MessageBox(publ_operator,'你没有使用权限！') RETURN END IF Long LS_ROW LS_ROW = dw_uc.GetRow() IF LS_ROW <= 0 THEN MessageBox('NO','没有打印目标单据!') RETURN END IF String ls_windowname ls_windowname = THIS.ClassName ( ) String ls_old_dwname,ls_new_dwname = '' ls_old_dwname = 'dw_pr_credence_wb' ls_new_dwname = f_get_dwprint_dynamic_chname(ls_old_dwname,ls_windowname) IF ls_new_dwname = '' THEN ls_new_dwname = ls_old_dwname END IF S_print_MSG LS_PRMSG LS_PRMSG.obj_dwNAME = ls_new_dwname LS_PRMSG.TAG_TEXT = '记帐凭证' LS_PRMSG.FILTER_STRING = '' LS_PRMSG.retr_pram_falg = 15 LS_PRMSG.PAGECH_FLAG = 0 LS_PRMSG.retr_pramnmb = dw_uc.Object.credid[LS_ROW] LS_PRMSG.printrow = sys_emptyrowcount LS_PRMSG.retr_scid = sys_accsetid 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 LS_PRMSG.rowcnt = 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_uc.GetRow() <= 0 THEN RETURN Long i,cash_cnt s_flow_cred s_flowcred dw_uc.AcceptText() s_flowcred.accsetid = dw_uc.Object.accsetid[dw_uc.GetRow()] s_flowcred.credid = dw_uc.Object.credid[dw_uc.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_uc.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_uc.Object.credtype[uc_row] = ls_credtype dw_uc.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(1975,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 String ls_windowname ls_windowname = THIS.ClassName ( ) String ls_old_dwname,ls_new_dwname = '' String ls_old_dwname_wb,ls_new_dwname_wb = '' ls_old_dwname = 'dw_pr_credence' ls_new_dwname = f_get_dwprint_dynamic_chname(ls_old_dwname,ls_windowname) IF ls_new_dwname = '' THEN ls_new_dwname = ls_old_dwname END IF //wb ls_old_dwname_wb = 'dw_pr_credence_wb' ls_new_dwname_wb = f_get_dwprint_dynamic_chname(ls_old_dwname_wb,ls_windowname) IF ls_new_dwname_wb = '' THEN ls_new_dwname_wb = ls_old_dwname_wb END IF ls_prmsg.retr_pram_falg = 15 ls_prmsg.tag_text = '记帐凭证' ls_prmsg.filter_string = '' ls_prmsg.pagech_flag = 0 ls_prmsg.pagech_flag = 0 ls_prmsg.printrow = sys_emptyrowcount ls_prmsg.retr_scid = 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 ls_prmsg.rowcnt = 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 = ls_new_dwname ELSE ls_prmsg.obj_dwname = ls_new_dwname_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_cred_savetomode;IF dw_edit_mode THEN MessageBox('提示','编辑状态下不可用') RETURN END IF Int rslt = 1 Long ll_ucrow,i String arg_msg,ls_str uo_credence_mode uo_cred_mode uo_cred_mode = CREATE uo_credence_mode ll_ucrow = dw_uc.GetRow() IF ll_ucrow <= 0 THEN arg_msg = '请选择凭证' rslt = 0 GOTO ext END IF s_inputbox s_sreu s_sreu.Title = '请输入模式凭证的名称' OpenWithParm(w_inputbox,s_sreu) ls_str = Message.StringParm IF Trim(ls_str) = '' OR IsNull(ls_str) THEN RETURN IF uo_cred_mode.newbegin(0,arg_msg) = 0 THEN rslt = 0 GOTO ext END IF uo_cred_mode.Credname = ls_str uo_cred_mode.credtype = dw_uc.Object.credtype[ll_ucrow] uo_cred_mode.billnumber = 0 uo_cred_mode.ifalways = 1 FOR i = 1 TO dw_child.RowCount() IF dw_child.Object.subid[i] = '' THEN CONTINUE IF uo_cred_mode.acceptmx(dw_child.Object.subid[i],& dw_child.Object.brief[i],& 0,& 0,& 0,& 0,& '',& 0,& 0,& 0,& 0,& 0,& 0,& 0,& '',& arg_msg,i) = 0 THEN MessageBox('error!',arg_msg) RETURN END IF NEXT IF uo_cred_mode.Save(arg_msg,TRUE) = 0 THEN MessageBox('error!',arg_msg) GOTO ext END IF ext: IF rslt = 0 THEN MessageBox('提示','失败,'+arg_msg) ELSE MessageBox('提示','成功') END IF DESTROY uo_cred_mode 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 event ue_print_list2();IF NOT f_power_ind(1975,sys_msg_pow) THEN MessageBox(publ_operator,'你没有使用权限！') RETURN END IF Long ls_i,ll_credid_array[] IF dw_pageretr.RowCount() <= 0 THEN MessageBox('no','没有打印目标凭证!') RETURN END IF FOR ls_i = 1 TO dw_pageretr.RowCount() ll_credid_array[ls_i] = dw_pageretr.Object.credid[ls_i] NEXT String ls_windowname ls_windowname = THIS.ClassName ( ) String ls_old_dwname,ls_new_dwname = '' ls_old_dwname = 'dw_pr_credence_list' ls_new_dwname = f_get_dwprint_dynamic_chname(ls_old_dwname,ls_windowname) IF ls_new_dwname = '' THEN ls_new_dwname = ls_old_dwname END IF S_print_MSG LS_PRMSG LS_PRMSG.obj_dwNAME = ls_new_dwname LS_PRMSG.TAG_TEXT = '记帐凭证' LS_PRMSG.FILTER_STRING = '' LS_PRMSG.retr_pram_falg = 25 LS_PRMSG.PAGECH_FLAG = 0 LS_PRMSG.retr_pramnmb = sys_accsetid LS_PRMSG.a_long_arr = ll_credid_array OpenWithParm(w_publ_preview,LS_PRMSG) 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_showall.Enabled = FALSE cb_auditing.Enabled = FALSE dw_pageretr.RBUTTON_FILTER_USE = FALSE //右键查询功能开关 dw_pageretr.titleclick_sort_use = FALSE //单击标题排序功能开关 cb_edit.Enabled = TRUE cb_add.Enabled = TRUE cb_edit.Text = "放弃&E" cb_add.Text = "保存&S" cb_edit.normalpicname = 'Undo.bmp' cb_add.normalpicname = 'Save.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_showall.Enabled = TRUE cb_auditing.Enabled = TRUE cb_add.Enabled = TRUE cb_edit.Enabled = TRUE dw_pageretr.RBUTTON_FILTER_USE = TRUE //右键查询功能开关 dw_pageretr.titleclick_sort_use = TRUE //单击标题排序功能开关 cb_edit.Text = "修改&E" cb_add.Text = "新建&S" cb_edit.normalpicname = 'OPEN.bmp' cb_add.normalpicname = 'new.bmp' IF dw_pageretr.GetRow() <= 0 THEN cb_edit.Enabled = FALSE cb_delet.Enabled = FALSE cb_auditing.Enabled = FALSE END IF END IF IF 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_add.of_init_draw() cb_edit.of_paint() cb_add.of_paint() cb_add.TriggerEvent('ue_textchange') 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_uc.GetRow() IF dw_edit_mode THEN FOR LS_INT = 1 TO uc_column_int dw_uc.SetTabOrder (LS_INT,LS_INT*10 ) NEXT ELSE FOR LS_INT = 1 TO uc_column_int dw_uc.SetTabOrder (LS_INT, 0) NEXT END IF IF ls_row > 0 THEN dw_uc.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_uc.GetRow() IF uc_row <= 0 THEN RETURN 0 dw_uc.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 Int ifauto 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 , cw_credence.ifauto INTO :credno , :creddate , :billnumber, :credtype , :cmonth , :billmaker, :billmakerdate , :billcheck , :billcheckdate , :billpost , :billpostdate , :checkflag , :postflag , :moddate , :modemp, :ifauto 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_uc.Object.accsetid[uc_row] = sys_accsetid dw_uc.Object.subaccsetid[uc_row] = arg_subaccsetid dw_uc.Object.credid[uc_row] = arg_credid dw_uc.Object.credno[uc_row] = credno dw_uc.Object.creddate[uc_row] = creddate dw_uc.Object.billnumber[uc_row] = billnumber dw_uc.Object.credtype[uc_row] = credtype dw_uc.Object.cmonth[uc_row] = cmonth dw_uc.Object.billmaker[uc_row] = billmaker dw_uc.Object.billmakerdate[uc_row] = billmakerdate dw_uc.Object.billcheck[uc_row] = billcheck dw_uc.Object.billcheckdate[uc_row] = billcheckdate dw_uc.Object.billpost[uc_row] = billpost dw_uc.Object.billpostdate[uc_row] = billpostdate dw_uc.Object.checkflag[uc_row] = checkflag dw_uc.Object.postflag[uc_row] = postflag dw_uc.Object.moddate[uc_row] = moddate dw_uc.Object.modemp[uc_row] = modemp dw_uc.Object.ifauto[uc_row] = ifauto wf_flagstatus_rf() dw_uc.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_setrow (long arg_credno);long ll_found ll_found = dw_pageretr.Find("credno = "+ string(arg_credno),1, dw_pageretr.RowCount()) if ll_found > 0 then dw_pageretr.setredraw(false) dw_pageretr.selectrow(0,false) dw_pageretr.scrolltorow(ll_found) dw_pageretr.selectrow(ll_found,true) dw_pageretr.setredraw(true) end if 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_rtr_balc ();int rslt = 1 string ls_msg,ls_subid long ll_childrow,ll_ucrow,ll_credid int li_dcflag decimal ld_debit,ld_credit,ld_BDebit,ld_BCredit,ld_bgamt,ld_balcamt,ld_debit_i,ld_credit_i if dw_edit_mode then ll_ucrow = dw_uc.getrow() if ll_ucrow <= 0 then ls_msg = '没有凭证' rslt = 0 goto ext end if ll_credid = dw_uc.object.credid[ll_ucrow] ll_childrow = dw_child.getrow() if ll_childrow <= 0 then ls_msg = '没有明细科目' rslt = 0 goto ext end if ls_subid = dw_child.object.subid[ll_childrow] ld_debit_i = dw_child.object.debit[ll_childrow] ld_credit_i = dw_child.object.credit[ll_childrow] if ls_subid = '' then ls_msg = '' rslt = 0 goto ext end if select cw_subject.dcflag into :li_dcflag from cw_subject where subid = :ls_subid and accsetid = :sys_accsetid; if sqlca.sqlcode <> 0 then ls_msg = '查询:'+ls_subid+'余额方向失败' rslt = 0 goto ext end if select isnull(cw_Balance.BDebit,0), isnull(cw_Balance.BCredit,0) into :ld_BDebit,:ld_BCredit from cw_Balance where cw_Balance.accsetid = :sys_accsetid and cw_Balance.YearMon = :sys_curyearmon and cw_Balance.subid = :ls_subid; if sqlca.sqlcode = -1 then ls_msg = '查询:'+ls_subid+'期初余额失败' rslt = 0 goto ext end if select isnull(sum(cw_credencemx.debit),0), isnull(sum(cw_credencemx.credit),0) into :ld_debit,:ld_credit from cw_credencemx,cw_credence where ( cw_credence.accsetid = cw_credencemx.accsetid ) and ( cw_credence.credid = cw_credencemx.credid ) and ( cw_credence.cmonth = :sys_curyearmon ) and ( cw_credencemx.subid = :ls_subid ) and ( cw_credence.credid <> :ll_credid ) and ( cw_credence.accsetid = :sys_accsetid ); if sqlca.sqlcode <> 0 then ls_msg = '查询:'+ls_subid+'本月发生金额失败' rslt = 0 goto ext end if if li_dcflag = 1 then ld_bgamt = ld_bdebit - ld_bcredit ld_balcamt = ld_bdebit - ld_bcredit + ld_debit - ld_credit + ld_debit_i - ld_credit_i else ld_bgamt = ld_bcredit - ld_bdebit ld_balcamt = ld_bcredit - ld_bdebit + ld_credit - ld_debit + ld_credit_i - ld_debit_i end if ls_msg = ls_msg + '~n 科目:'+ls_subid ls_msg = ls_msg + '~n' ls_msg = ls_msg + '~n 期初余额:'+string(ld_bgamt,'#,##0.00') ls_msg = ls_msg + '~n本月发生借方:'+string(ld_debit + ld_debit_i,'#,##0.00') ls_msg = ls_msg + '~n本月发生借方:'+string(ld_credit + ld_credit_i,'#,##0.00') ls_msg = ls_msg + '~n 期末余额:'+string(ld_balcamt,'#,##0.00') end if ext: mle_msg.text = ls_msg 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_cauditing.Enabled = FALSE GOTO ext END IF IF dw_edit_mode THEN cb_auditing.Enabled = FALSE cb_cauditing.Enabled = FALSE ELSE IF dw_pageretr.Object.checkflag[pagerert_row] = 0 THEN cb_auditing.Enabled = TRUE cb_cauditing.Enabled = FALSE ELSEIF dw_pageretr.Object.checkflag[pagerert_row] = 1 and dw_pageretr.Object.postflag[pagerert_row] = 0 THEN cb_auditing.Enabled = FALSE cb_cauditing.Enabled = TRUE ELSEIF dw_pageretr.Object.checkflag[pagerert_row] = 1 and dw_pageretr.Object.postflag[pagerert_row] = 1 THEN cb_auditing.Enabled = FALSE cb_cauditing.Enabled = FALSE END IF END IF ext: RETURN 0 end function 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 subroutine wf_text ();st_dft_cmonth.Text = '默认凭证月份:'+String(il_dft_cmonth) IF ii_if_dft_reldate = 1 THEN st_dft_reldate.Text = '默认相关日期:'+String(idt_dft_reldate,'yyyy-mm-dd') ELSE st_dft_reldate.Text = '默认相关日期:无' END IF end subroutine on w_credence_edit_popup.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_showall=create cb_showall 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.st_3=create st_3 this.cb_cauditing=create cb_cauditing this.cb_print_1=create cb_print_1 this.ddlb_credtype=create ddlb_credtype this.st_dft_cmonth=create st_dft_cmonth this.cbx_1=create cbx_1 this.ddlb_status=create ddlb_status this.st_2=create st_2 this.st_4=create st_4 this.cb_other=create cb_other this.em_cmonth=create em_cmonth this.mle_msg=create mle_msg this.dw_uc=create dw_uc this.cb_auto_create=create cb_auto_create this.ln_5=create ln_5 this.ln_6=create ln_6 this.st_mxdscrp=create st_mxdscrp this.cb_dft=create cb_dft this.st_dft_reldate=create st_dft_reldate this.ln_1=create ln_1 this.ln_2=create ln_2 this.ln_3=create ln_3 this.ln_4=create ln_4 this.r_bar=create r_bar 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_showall this.Control[iCurrent+10]=this.cb_auditing this.Control[iCurrent+11]=this.dw_child this.Control[iCurrent+12]=this.cb_money this.Control[iCurrent+13]=this.dw_child_share this.Control[iCurrent+14]=this.st_3 this.Control[iCurrent+15]=this.cb_cauditing this.Control[iCurrent+16]=this.cb_print_1 this.Control[iCurrent+17]=this.ddlb_credtype this.Control[iCurrent+18]=this.st_dft_cmonth this.Control[iCurrent+19]=this.cbx_1 this.Control[iCurrent+20]=this.ddlb_status this.Control[iCurrent+21]=this.st_2 this.Control[iCurrent+22]=this.st_4 this.Control[iCurrent+23]=this.cb_other this.Control[iCurrent+24]=this.em_cmonth this.Control[iCurrent+25]=this.mle_msg this.Control[iCurrent+26]=this.dw_uc this.Control[iCurrent+27]=this.cb_auto_create this.Control[iCurrent+28]=this.ln_5 this.Control[iCurrent+29]=this.ln_6 this.Control[iCurrent+30]=this.st_mxdscrp this.Control[iCurrent+31]=this.cb_dft this.Control[iCurrent+32]=this.st_dft_reldate this.Control[iCurrent+33]=this.ln_1 this.Control[iCurrent+34]=this.ln_2 this.Control[iCurrent+35]=this.ln_3 this.Control[iCurrent+36]=this.ln_4 this.Control[iCurrent+37]=this.r_bar end on on w_credence_edit_popup.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_showall) destroy(this.cb_auditing) destroy(this.dw_child) destroy(this.cb_money) destroy(this.dw_child_share) destroy(this.st_3) destroy(this.cb_cauditing) destroy(this.cb_print_1) destroy(this.ddlb_credtype) destroy(this.st_dft_cmonth) destroy(this.cbx_1) destroy(this.ddlb_status) destroy(this.st_2) destroy(this.st_4) destroy(this.cb_other) destroy(this.em_cmonth) destroy(this.mle_msg) destroy(this.dw_uc) destroy(this.cb_auto_create) destroy(this.ln_5) destroy(this.ln_6) destroy(this.st_mxdscrp) destroy(this.cb_dft) destroy(this.st_dft_reldate) destroy(this.ln_1) destroy(this.ln_2) destroy(this.ln_3) destroy(this.ln_4) destroy(this.r_bar) end on event closequery;IF dw_edit_mode THEN Int ls_row = 0 dw_UC.AcceptText() ls_row = dw_UC.GetNextModified(0, Primary!)+& dw_UC.GetNextModified(0, Filter!)+dw_UC.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_cmonth = 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) em_cmonth.text = string(i_cmonth) //wf_refresh_interface() wf_change_childdw_face() 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 uc_column_int = 10 //uc dw前7列可以编辑 child_column_int = 21 //子dw前19列可以编辑 uo_credence_ins = CREATE uo_credence end event event ue_before_open;dw_child_share.SetTransObject(sqlca) dw_child.SetTransObject(sqlca) dw_uc.SetTransObject(sqlca) il_dft_cmonth = sys_curyearmon wf_text() //2.凭证字 datawindowchild childdw_credword dw_uc.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,cur_checkflag,cur_postflag,cur_credtype,i_cmonth) IF dw_pageretr.RowCount() > 0 AND dw_pageretr.GetRow() = 0 THEN dw_pageretr.SetRow(1) dw_pageretr.ShareData(dw_uc) 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; DESTROY uo_credence_ins end event event ue_filter;OPENWITHPARM(w_filter_query,dw_uc) STRING LS_EXPR LS_EXPR=Message.StringParm if len(LS_EXPR)>2 and trim(LS_EXPR)='' then return dw_uc.setfilter(LS_EXPR) dw_uc.SetRedraw (false) dw_uc.filter() dw_pageretr.triggerevent('ue_after_filter') dw_uc.SetRedraw (true) end event event ue_sort;OPENwithparm(w_sortrow,dw_uc) STRING LS_EXPR LS_EXPR=Message.StringParm IF ISNULL(LS_EXPR) THEN LS_EXPR=' ' if len(LS_EXPR)>2 and trim(LS_EXPR)='' then return dw_uc.setsort(LS_EXPR) dw_uc.SetRedraw (false) dw_uc.sort() dw_uc.SetRedraw (true) end event event ue_usual_query_filt;call super::ue_usual_query_filt;String obj_expr = '' IF Trim(sle_usual_query.Text) <> '' THEN obj_expr = obj_expr+'( credno = '+Trim(sle_usual_query.Text)+')' END IF dw_pageretr.SetFilter(obj_expr) dw_pageretr.SetRedraw(FALSE) dw_pageretr.Filter() IF dw_pageretr.RowCount() >= 1 THEN dw_pageretr.SelectRow(0,FALSE) dw_pageretr.SelectRow(1,TRUE) END IF dw_pageretr.SetRedraw(TRUE) end event event resize;call super::resize;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 - 549) dw_pageretr.Height = THIS.Height - (w_height - 1976) mle_msg.Width = dw_pageretr.Width mle_msg.Height = dw_pageretr.Height dw_uc.Height = THIS.Height - (w_height - 1772) dw_child.Height = THIS.Height - (w_height - 1300) dw_child_share.Y = THIS.Height - (w_height - 1428) ln_5.EndX = dw_pageretr.x - 5 ln_6.EndX = ln_5.EndX ln_3.EndX = ln_5.EndX ln_4.EndX = ln_5.EndX ln_1.EndX = ln_5.EndX ln_2.EndX = ln_5.EndX end event event ue_usual_query_retr;call super::ue_usual_query_retr;this.triggerevent('retrieve_pageretr') end event type cb_func from w_publ_pageretr`cb_func within w_credence_edit_popup integer x = 722 integer y = 28 integer width = 192 end type type cb_exit from w_publ_pageretr`cb_exit within w_credence_edit_popup integer x = 2670 integer y = 0 integer width = 151 integer height = 164 integer taborder = 300 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_popup integer x = 2866 integer y = 176 integer width = 128 boolean bringtotop = true end type type cb_retrieveall from w_publ_pageretr`cb_retrieveall within w_credence_edit_popup boolean visible = false integer x = 3150 integer y = 860 integer width = 151 integer taborder = 260 end type type em_pagerowno from w_publ_pageretr`em_pagerowno within w_credence_edit_popup boolean visible = false integer x = 3141 integer y = 736 integer height = 92 integer taborder = 240 boolean bringtotop = true end type type dw_pageretr from w_publ_pageretr`dw_pageretr within w_credence_edit_popup integer x = 2999 integer y = 176 integer width = 549 integer height = 1964 integer taborder = 50 string title = "凭证摘要内容" string dataobject = "dw_credence_index" end type event dw_pageretr::rowfocuschanged;call super::rowfocuschanged;DW_UC.SetRow(currentrow) DW_UC.ScrollToRow (currentrow) IF NOT dw_edit_mode THEN PARENT.TriggerEvent('retrieve_childdw') wf_flagstatus_rf() end event event dw_pageretr::ue_after_filter;if not dw_edit_mode then parent.triggerevent('retrieve_childdw') end event type st_1 from w_publ_pageretr`st_1 within w_credence_edit_popup integer x = 1829 integer y = 196 integer width = 151 string text = "期间:" alignment alignment = center! end type type cb_nextpage from w_publ_pageretr`cb_nextpage within w_credence_edit_popup boolean visible = false integer x = 3177 integer y = 616 integer width = 151 integer taborder = 290 end type type cb_print from uo_imflatbutton within w_credence_edit_popup integer x = 2286 integer width = 192 integer height = 164 integer taborder = 200 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" menustr = menustr + "|" + "Text=-" menustr = menustr + "|" + "Text=预览打印列表凭证~tEvent=ue_print_list2" 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_popup integer x = 1984 integer width = 151 integer height = 164 integer taborder = 130 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_popup integer x = 535 integer width = 192 integer height = 164 integer taborder = 220 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 wf_rtr_balc() 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_popup integer x = 384 integer width = 151 integer height = 164 integer taborder = 210 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(1972,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_uc.GetRow() IF uc_row <= 0 THEN MessageBox('系统提示','请选定当前目标凭证!') RETURN END IF ls_subaccsetid = dw_uc.Object.subaccsetid[uc_row] ls_credid = dw_uc.Object.credid[uc_row] IF uo_credence_ins.del(0,ls_subaccsetid,ls_credid,arg_msg,TRUE) = 0 THEN MessageBox('Error!',arg_msg) ELSE //日志 String ls_credtype long ls_credno ls_credtype = dw_uc.Object.credtype[uc_row] ls_credno = dw_uc.Object.credno[uc_row] f_setsysoplog('凭证','删除,帐套:'+s_sys_accset.cropname+'字:'+ls_credtype+',号:'+string(ls_credno),arg_msg,TRUE) //-- MessageBox(publ_operator,'删除凭证'+String(dw_uc.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_popup integer x = 192 integer width = 192 integer height = 164 integer taborder = 80 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(1971,sys_msg_pow) THEN MessageBox(publ_operator,'你没有使用权限！') RETURN END IF String arg_msg = '' Long uc_row Long ls_subaccsetid,ls_credid uc_row = dw_uc.GetRow() IF uc_row <= 0 THEN MessageBox('系统提示','请选定当前目标凭证!') RETURN END IF ls_subaccsetid = dw_uc.Object.subaccsetid[uc_row] ls_credid = dw_uc.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 IF dw_edit_mode THEN IF MessageBox ("IF","是否确定要放弃保存当前单据?",Question!,YesNo! ) = 2 THEN RETURN END IF dw_edit_mode = NOT dw_edit_mode wf_refresh_interface() IF dw_edit_mode THEN dw_uc.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_popup integer width = 192 integer height = 164 integer taborder = 70 string text = "新建&S" string normalpicname = "new.bmp" integer picsize = 16 toolbaralignment pic_align = alignattop! boolean border = false end type event clicked;IF NOT f_power_ind(1971,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 = il_dft_cmonth IF ls_yearmon < s_sys_accset.curryear THEN MessageBox(publ_operator,'默认凭证月份小于当前会计期间,操作取消!') RETURN END IF IF dw_edit_mode THEN dw_uc.AcceptText() dw_child.AcceptText() dw_child_share.AcceptText() uc_row = dw_uc.GetRow() IF uc_row <= 0 THEN MessageBox(publ_operator,'请选定当前目标凭证!') RETURN END IF IF sys_option_credno_save = 0 THEN IF dw_uc.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_uc.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_uc.Object.subaccsetid[uc_row] //子帐id uo_credence_ins.credno = dw_uc.Object.credno[uc_row] // 编号 uo_credence_ins.creddate = dw_uc.Object.creddate[uc_row] // 日期 uo_credence_ins.billnumber = dw_uc.Object.billnumber[uc_row] //附件 uo_credence_ins.credtype = dw_uc.Object.credtype[uc_row] //凭证字 uo_credence_ins.reldcode = dw_uc.Object.reldcode[uc_row] //凭证字 uo_credence_ins.reldate = dw_uc.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_uc.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 String ls_brief 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 ls_brief = Trim(dw_child.Object.brief[i]) IF uo_credence_ins.acceptmx(dw_child.Object.no[i],dw_child.Object.subid[i],& ls_brief,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,'保存操作成功!') //write ini SetProfileString (sys_inifilename,publ_userid+'_'+dw_uc.DataObject, String(sys_accsetid),dw_uc.Object.credtype[dw_uc.GetRow()]) // 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 ELSE IF uo_credence_ins.newbegin() = 0 THEN MessageBox('error!',arg_msg) RETURN END IF END IF //call super::clicked IF NOT 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) END IF dw_edit_mode = NOT dw_edit_mode wf_refresh_interface() IF dw_edit_mode THEN dw_child.Reset() FOR i = 1 TO sys_credence_insertrow dw_child.InsertRow(0) NEXT // dw_uc.SetRedraw(FALSE) //read ini String ls_credtype_ini ls_credtype_ini = ProfileString(sys_inifilename,publ_userid+'_'+dw_uc.DataObject,String(sys_accsetid),'') dw_uc.Object.credtype[li_row] = ls_credtype_ini // dw_uc.AcceptText() String ls_credtype DateTime ls_creddate ls_credtype = Trim(dw_uc.Object.credtype[li_row]) IF sys_option_credno_save = 0 THEN dw_uc.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_uc.Object.creddate[li_row] = ls_creddate IF ii_if_dft_reldate = 0 THEN dw_uc.Object.reldate[li_row] = ls_creddate ELSE dw_uc.Object.reldate[li_row] = idt_dft_reldate END IF dw_uc.SetColumn("reldate") // dw_uc.SetRedraw(TRUE) dw_uc.SetFocus() cur_editfoucs = 1 ELSE cur_editfoucs = 0 PARENT.TriggerEvent("retrieve_childdw") IF sys_option_cred_auto_savecreate = 1 THEN cb_auto_create.TriggerEvent(Clicked!) END IF end event type cb_add_xm from uo_imflatbutton within w_credence_edit_popup integer x = 1070 integer width = 265 integer height = 164 integer taborder = 90 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_popup integer x = 1335 integer width = 224 integer height = 164 integer taborder = 100 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_showall from uo_imflatbutton within w_credence_edit_popup integer x = 2135 integer width = 151 integer height = 164 integer taborder = 190 string text = "所有" string normalpicname = "setting.bmp" integer picsize = 16 toolbaralignment pic_align = alignattop! boolean border = false end type event clicked;dw_uc.setfilter('') dw_uc.SetRedraw (false) dw_uc.filter() dw_uc.SetRedraw (true) end event type cb_auditing from uo_imflatbutton within w_credence_edit_popup integer x = 727 integer width = 192 integer height = 164 integer taborder = 250 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(1973,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_uc.GetRow() IF pagerert_row <= 0 THEN MessageBox('系统提示','请选定当前目标凭证!') RETURN END IF IF MessageBox ("IF","是否确定要"+THIS.Text+"当前单据吗?",Question!,YesNo! ) = 2 THEN RETURN ls_subaccsetid = dw_uc.Object.subaccsetid[pagerert_row] ls_credid = dw_uc.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_popup event dwnkey pbm_dwnkey integer x = 5 integer y = 652 integer width = 2990 integer height = 1300 integer taborder = 30 boolean bringtotop = true string dataobject = "dw_credencemx_index_popup" 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,ls_subid_like Long ls_moneyid,cnt 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 KeyDown(keyenter!) 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] ls_subid_like = '%'+ls_subid+'%' SELECT count(*) INTO :cnt FROM cw_subject WHERE ( cw_subject.subid LIKE :ls_subid_like OR cw_subject.name LIKE :ls_subid_like ) AND cw_subject.accsetid = :sys_accsetid; IF sqlca.SQLCode <> 0 THEN cb_addzy.TriggerEvent(Clicked!) RETURN 1 END IF IF cnt <> 1 THEN cb_addzy.TriggerEvent(Clicked!) RETURN 1 END IF SELECT top 1 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 ( cw_subject.subid LIKE :ls_subid_like OR cw_subject.name LIKE :ls_subid_like ) 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 wf_rtr_balc() 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() wf_rtr_balc() 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() wf_rtr_balc() 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) elseIF KeyDown( KeyF11!) 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[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 clicked;call super::clicked;//IF row > 0 THEN // // // this.setrow(row) // this.selectrow(0,false) // this.selectrow(row,true) // // dw_child_share.SETROW(this.getrow()) // dw_child_share.ScrollToRow (this.getrow()) //end if 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 wf_rtr_balc() 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,li_hscust,li_hsspt 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,hscust,hsspt INTO :ll_moneyid,:li_hswb,:li_hsqty,:li_hsdept,:li_hsemp, :li_hsitem,:li_dcflag,:li_hscust,:li_hsspt 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_hscust[row] = li_hscust dw_child.Object.cw_subject_hsspt[row] = li_hsspt 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_popup integer x = 1559 integer width = 151 integer height = 164 integer taborder = 170 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_popup event key pbm_dwnkey integer x = 46 integer y = 1428 integer width = 1774 integer height = 520 integer taborder = 60 boolean bringtotop = true string dataobject = "dw_credencemx_index2_popup" 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 st_3 from statictext within w_credence_edit_popup integer x = 2697 integer y = 196 integer width = 151 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 boolean enabled = false string text = "编号" alignment alignment = right! boolean focusrectangle = false end type type cb_cauditing from uo_imflatbutton within w_credence_edit_popup integer x = 919 integer width = 151 integer height = 164 integer taborder = 230 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(1974,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_uc.GetRow() IF pagerert_row <= 0 THEN MessageBox('系统提示','请选定当前目标凭证!') RETURN END IF IF MessageBox ("IF","是否确定要"+THIS.Text+"当前单据吗?",Question!,YesNo! ) = 2 THEN RETURN ls_subaccsetid = dw_uc.Object.subaccsetid[pagerert_row] ls_credid = dw_uc.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_popup integer x = 2478 integer width = 192 integer height = 164 integer taborder = 160 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" menustr = menustr + "|" + "Text=-" menustr = menustr + "|" + "Text=打印列表凭证~tEvent=ue_print_list" 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 ddlb_credtype from dropdownlistbox within w_credence_edit_popup integer x = 2437 integer y = 180 integer width = 293 integer height = 512 integer taborder = 40 boolean bringtotop = true integer textsize = -9 integer weight = 400 fontcharset fontcharset = gb2312charset! fontpitch fontpitch = variable! string facename = "宋体" long textcolor = 33554432 boolean vscrollbar = true borderstyle borderstyle = stylelowered! end type event constructor;String ls_credtype DECLARE cur_credtype_1 CURSOR FOR SELECT cw_Credenceword.Credenceword FROM cw_Credenceword Where accsetid = :sys_accsetid; OPEN cur_credtype_1; FETCH cur_credtype_1 INTO :ls_credtype; DO WHILE sqlca.SQLCode = 0 THIS.AddItem(ls_credtype) FETCH cur_credtype_1 INTO :ls_credtype; LOOP CLOSE cur_credtype_1; THIS.AddItem('[全部]') THIS.Text = '[全部]' end event event selectionchanged;cur_credtype = THIS.Text IF THIS.Text = '[全部]' THEN cur_credtype = '-1' PARENT.TriggerEvent("retrieve_pageretr") end event type st_dft_cmonth from statictext within w_credence_edit_popup integer x = 5 integer y = 176 integer width = 654 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 = 82700779 boolean enabled = false string text = "默认凭证月份" boolean focusrectangle = false end type type cbx_1 from checkbox within w_credence_edit_popup integer x = 859 integer y = 196 integer width = 498 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 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 ddlb_status from dropdownlistbox within w_credence_edit_popup integer x = 1499 integer y = 180 integer width = 320 integer height = 452 integer taborder = 120 integer textsize = -9 integer weight = 400 fontcharset fontcharset = gb2312charset! fontpitch fontpitch = variable! string facename = "宋体" long textcolor = 33554432 string text = "[全部]" boolean sorted = false boolean vscrollbar = true string item[] = {"[全部]","待审核","待过帐","过帐完毕"} borderstyle borderstyle = stylelowered! end type event selectionchanged;if index=1 then cur_checkflag=-1 cur_postflag= -1 elseif index=2 then cur_checkflag= 0 cur_postflag= 0 elseif index=3 then cur_checkflag= 1 cur_postflag= 0 elseif index=4 then cur_checkflag= 1 cur_postflag= 1 end if parent.triggerevent("retrieve_pageretr") end event type st_2 from statictext within w_credence_edit_popup integer x = 1344 integer y = 196 integer width = 151 integer height = 52 integer textsize = -9 integer weight = 400 fontcharset fontcharset = gb2312charset! fontpitch fontpitch = variable! string facename = "宋体" long textcolor = 33554432 long backcolor = 67108864 boolean enabled = false string text = "状态" alignment alignment = right! boolean focusrectangle = false end type type st_4 from statictext within w_credence_edit_popup integer x = 2231 integer y = 196 integer width = 210 integer height = 52 integer textsize = -9 integer weight = 400 fontcharset fontcharset = gb2312charset! fontpitch fontpitch = variable! string facename = "宋体" long textcolor = 33554432 long backcolor = 67108864 boolean enabled = false string text = "凭证字:" alignment alignment = right! boolean focusrectangle = false end type type cb_other from uo_imflatbutton within w_credence_edit_popup integer x = 1710 integer width = 274 integer height = 164 integer taborder = 180 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=将凭证另存为模式凭证~tEvent=ue_cred_savetomode" 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 em_cmonth from editmask within w_credence_edit_popup integer x = 1961 integer y = 180 integer width = 279 integer height = 84 integer taborder = 140 boolean bringtotop = true integer textsize = -9 integer weight = 400 fontcharset fontcharset = gb2312charset! fontpitch fontpitch = variable! string facename = "宋体" long textcolor = 33554432 borderstyle borderstyle = stylelowered! string mask = "000000" boolean autoskip = true boolean spin = true double increment = 1 end type event modified;i_cmonth = Long(THIS.Text) PARENT.TriggerEvent("retrieve_pageretr") end event type mle_msg from statictext within w_credence_edit_popup integer x = 2999 integer y = 176 integer width = 549 integer height = 1964 integer textsize = -9 integer weight = 400 fontcharset fontcharset = gb2312charset! fontpitch fontpitch = variable! string facename = "宋体" long textcolor = 33554432 long backcolor = 16777215 boolean enabled = false boolean border = true borderstyle borderstyle = styleraised! boolean focusrectangle = false end type type dw_uc from datawindow within w_credence_edit_popup event dwnkey pbm_dwnkey integer y = 372 integer width = 2990 integer height = 1772 integer taborder = 110 string dataobject = "dw_credence_edit_popup" boolean border = false boolean livescroll = true end type event dwnkey;parent.triggerevent('user_key') if key = KeyDownArrow! then return 1 if dw_edit_mode then if dw_uc.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 rowfocuschanged; IF not dw_edit_mode then if currentrow >0 THEN dw_pageretr.SETROW(currentrow) dw_pageretr.ScrollToRow(currentrow) dw_pageretr.selectrow(0,false) dw_pageretr.selectrow(currentrow,true) end if // parent.triggerevent('retrieve_childdw') end if //if currentrow>0 and not dw_edit_mode then // if dw_uc.object.flag[currentrow]=1 then // cb_auditing.enabled=false // cb_delet.enabled=false // cb_edit.enabled=false // cb_addzy.enabled=true // else // cb_auditing.enabled=true // cb_delet.enabled=true // cb_edit.enabled=true // cb_addzy.enabled=false // end if //else // cb_auditing.enabled=false // cb_delet.enabled=false // cb_edit.enabled=false // cb_addzy.enabled=false //end if end event event rowfocuschanging;if dw_edit_mode then return 1 end event event itemchanged;if not dw_edit_mode then return if row <= 0 then return if dwo.name <> 'credtype' then return dw_uc.accepttext() dw_uc.setredraw(false) string ls_credtype,arg_msg long ls_yearmon ls_yearmon = il_dft_cmonth ls_credtype = dw_uc.object.credtype[row] if sys_option_credno_save = 0 then dw_uc.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_uc.setcolumn("creddate") dw_uc.setredraw(true) end event type cb_auto_create from uo_imflatbutton within w_credence_edit_popup boolean visible = false integer x = 3049 integer y = 456 integer width = 229 integer height = 104 integer taborder = 310 boolean bringtotop = true string text = "自动建" end type event clicked;cb_add.triggerevent(clicked!) end event type ln_5 from line within w_credence_edit_popup long linecolor = 33554432 integer linethickness = 4 integer beginy = 360 integer endx = 1001 integer endy = 360 end type type ln_6 from line within w_credence_edit_popup long linecolor = 16777215 integer linethickness = 4 integer beginy = 364 integer endx = 1001 integer endy = 364 end type type st_mxdscrp from statictext within w_credence_edit_popup integer x = 14 integer y = 292 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 = 67108864 boolean enabled = false boolean focusrectangle = false end type type cb_dft from commandbutton within w_credence_edit_popup integer x = 695 integer y = 180 integer width = 146 integer height = 84 integer taborder = 270 boolean bringtotop = true integer textsize = -9 integer weight = 400 fontcharset fontcharset = gb2312charset! fontpitch fontpitch = variable! string facename = "宋体" string text = "设置" end type event clicked;s_edit_index_tran s_rst OPEN(w_credence_edit_popup_dft) s_rst = Message.PowerObjectParm IF s_rst.d_long = 0 THEN RETURN il_dft_cmonth = s_rst.b_long ii_if_dft_reldate = s_rst.c_long idt_dft_reldate = s_rst.b_datetime wf_text() end event type st_dft_reldate from statictext within w_credence_edit_popup integer x = 5 integer y = 224 integer width = 654 integer height = 48 boolean bringtotop = true integer textsize = -9 integer weight = 400 fontcharset fontcharset = gb2312charset! fontpitch fontpitch = variable! string facename = "宋体" long textcolor = 33554432 long backcolor = 82700779 string text = "默认相关日期" boolean focusrectangle = false end type type ln_1 from line within w_credence_edit_popup 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_popup long linecolor = 16777215 integer linethickness = 4 integer beginy = 172 integer endx = 1001 integer endy = 172 end type type ln_3 from line within w_credence_edit_popup long linecolor = 33554432 integer linethickness = 4 integer beginy = 280 integer endx = 1001 integer endy = 280 end type type ln_4 from line within w_credence_edit_popup long linecolor = 16777215 integer linethickness = 4 integer beginy = 284 integer endx = 1001 integer endy = 284 end type type r_bar from rectangle within w_credence_edit_popup long linecolor = 16777215 long fillcolor = 1073741824 integer x = 3497 integer width = 73 integer height = 172 end type event constructor;this.fillcolor = 14215660 this.linecolor = 14215660 this.x = -1 this.y = -1 this.height = ln_1.beginy - 5 end event