Q5/ws_objects/Cw_interface.pbl.src/uo_bill_cwaudit.sru

$PBExportHeader$uo_bill_cwaudit.sru
forward
global type uo_bill_cwaudit from nonvisualobject
end type
end forward

global type uo_bill_cwaudit from nonvisualobject
end type
global uo_bill_cwaudit uo_bill_cwaudit

type variables
s_dwsql is_dwsql[]


end variables

forward prototypes
public function integer uof_cwaudit_bill1 (long arg_credid, long arg_scid, long arg_billid, string arg_opemp, string arg_ref_credtype, long arg_ref_credno, long arg_ref_credid, ref string arg_msg, boolean arg_ifcommit)
public function integer uof_cwaudit_bill0 (long arg_credid, long arg_scid, long arg_billid, ref string arg_msg, boolean arg_ifcommit)
public function integer uof_cwaudit_bill_getinfo (long arg_credid, long arg_scid, long arg_billid, s_cred_port arg_s_credport, ref s_credence arg_ref_s_cred, ref string arg_msg)
public function integer uof_get_subject (string arg_subid, ref integer arg_hscust, ref integer arg_hsspt, string arg_msg)
public function integer uof_cwaudit_bill_getcredid (long arg_credid, long arg_scid, long arg_billid, ref long arg_ref_credid, ref string arg_msg)
public function integer uof_cwaudit_cred0 (long arg_credid, long arg_scid, long arg_billid[], string arg_billcode[], ref string arg_msg, boolean arg_ifcommit)
public function integer uof_cwaudit_cred1 (long arg_credid, long arg_scid, long arg_billid[], string arg_billcode[], string arg_opemp, ref string arg_msg, boolean arg_ifcommit)
public function integer uof_cwaudit_bill_getinfo_hz (long arg_credid, long arg_scid, long arg_billid[], s_cred_port arg_s_credport, readonly s_credence arg_ref_s_cred, ref string arg_msg)
public function integer uof_cwaudit_bill_getinfo01_and_02 (long arg_scid, long arg_billid, s_cred_port arg_s_credport, ref s_credence arg_ref_s_cred, ref string arg_msg)
public function integer uof_cwaudit_bill_getinfo04 (long arg_scid, long arg_billid, s_cred_port arg_s_credport, ref s_credence arg_ref_s_cred, ref string arg_msg)
public function integer uof_cwaudit_bill_getinfo05 (long arg_scid, long arg_billid, s_cred_port arg_s_credport, ref s_credence arg_ref_s_cred, ref string arg_msg)
public function integer uof_cwaudit_bill_getinfo06_and_07 (long arg_scid, long arg_billid, s_cred_port arg_s_credport, ref s_credence arg_ref_s_cred, ref string arg_msg)
public function integer uof_cwaudit_bill_getinfo08 (long arg_scid, long arg_billid, s_cred_port arg_s_credport, ref s_credence arg_ref_s_cred, ref string arg_msg)
public function integer uof_cwaudit_bill_getinfo09 (long arg_scid, long arg_billid, s_cred_port arg_s_credport, ref s_credence arg_ref_s_cred, ref string arg_msg)
public function integer uof_cwaudit_bill_getinfo14 (long arg_scid, long arg_billid, s_cred_port arg_s_credport, ref s_credence arg_ref_s_cred, ref string arg_msg)
public function integer uof_cwaudit_bill_getinfo15 (long arg_scid, long arg_billid, s_cred_port arg_s_credport, ref s_credence arg_ref_s_cred, ref string arg_msg)
public function integer uof_cwaudit_bill_getinfo16 (long arg_scid, long arg_billid, s_cred_port arg_s_credport, ref s_credence arg_ref_s_cred, ref string arg_msg)
public function integer uof_cwaudit_bill_getinfo17 (long arg_scid, long arg_billid, s_cred_port arg_s_credport, ref s_credence arg_ref_s_cred, ref string arg_msg)
public function integer uof_cwaudit_bill_getinfo18 (long arg_scid, long arg_billid, s_cred_port arg_s_credport, ref s_credence arg_ref_s_cred, ref string arg_msg)
public function integer uof_cwaudit_bill_getinfo19 (long arg_scid, long arg_billid, s_cred_port arg_s_credport, ref s_credence arg_ref_s_cred, ref string arg_msg)
public function integer uof_cwaudit_bill_getinfo20 (long arg_scid, long arg_billid, s_cred_port arg_s_credport, ref s_credence arg_ref_s_cred, ref string arg_msg)
public function integer uof_cwaudit_bill_getinfo25 (long arg_scid, long arg_billid, s_cred_port arg_s_credport, ref s_credence arg_ref_s_cred, ref string arg_msg)
public function integer uof_cwaudit_bill_getinfo28 (long arg_scid, long arg_billid, s_cred_port arg_s_credport, ref s_credence arg_ref_s_cred, ref string arg_msg)
public function integer uof_cwaudit_bill_getinfo33 (long arg_scid, long arg_billid, s_cred_port arg_s_credport, ref s_credence arg_ref_s_cred, ref string arg_msg)
public function integer uof_cwaudit_bill_getinfo26 (long arg_scid, long arg_billid, s_cred_port arg_s_credport, ref s_credence arg_ref_s_cred, ref string arg_msg)
public function integer uof_cwaudit_bill_getinfo31 (long arg_scid, long arg_billid, s_cred_port arg_s_credport, ref s_credence arg_ref_s_cred, ref string arg_msg)
public function integer uof_cwaudit_bill_getinfo29 (long arg_scid, long arg_billid, s_cred_port arg_s_credport, ref s_credence arg_ref_s_cred, ref string arg_msg)
public function integer uof_cwaudit_bill_getinfo32 (long arg_scid, long arg_billid, s_cred_port arg_s_credport, ref s_credence arg_ref_s_cred, ref string arg_msg)
public subroutine uof_init_s_dwsql02 ()
public subroutine uof_init_s_dwsql04 ()
public subroutine uof_init_s_dwsql05 ()
public subroutine uof_init_s_dwsql01 ()
public subroutine uof_init_s_dwsql06 ()
public subroutine uof_init_s_dwsql07 ()
public subroutine uof_init_s_dwsql08 ()
public subroutine uof_init_s_dwsql09 ()
public subroutine uof_init_s_dwsql14 ()
public subroutine uof_init_s_dwsql15 ()
public subroutine uof_init_s_dwsql16 ()
public subroutine uof_init_s_dwsql17 ()
public subroutine uof_init_s_dwsql18 ()
public subroutine uof_init_s_dwsql19 ()
public subroutine uof_init_s_dwsql20 ()
public subroutine uof_init_s_dwsql25 ()
public subroutine uof_init_s_dwsql26 ()
public subroutine uof_init_s_dwsql28 ()
public subroutine uof_init_s_dwsql29 ()
public subroutine uof_init_s_dwsql31 ()
public subroutine uof_init_s_dwsql32 ()
public subroutine uof_init_s_dwsql33 ()
public function integer uof_cwaudit_bill_getinfo10_and_11 (long arg_scid, long arg_billid, s_cred_port arg_s_credport, ref s_credence arg_ref_s_cred, ref string arg_msg)
end prototypes

public function integer uof_cwaudit_bill1 (long arg_credid, long arg_scid, long arg_billid, string arg_opemp, string arg_ref_credtype, long arg_ref_credno, long arg_ref_credid, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1

CHOOSE CASE arg_credid
	CASE 1,2,14,15,16,20 //销售发货，退货，生产领料，其它出，盘亏，扣费出
		UPDATE u_outware
			SET cwauditingdate = getdate(),
			cwauditingrep = :arg_opemp,
			cwauditingflag = 1,
			credtype = :arg_ref_credtype,
			credno = :arg_ref_credno,
			credid = :arg_ref_credid
			Where outwareid = :arg_billid
			and scid = :arg_scid;
	CASE 3,4,9 //客户补件单，客户费用单，供应商费用单
		UPDATE u_reissue
			SET cwauditingdate = getdate(),
			cwauditingrep = :arg_opemp,
			cwauditingflag = 1,
			credtype = :arg_ref_credtype,
			credno = :arg_ref_credno,
			credid = :arg_ref_credid
			Where reissueid = :arg_billid
			and scid = :arg_scid;		
	CASE 5 //客户返利单
		UPDATE u_giveback
			SET cwauditingdate = getdate(),
			cwauditingrep = :arg_opemp,
			cwauditingflag = 1,
			credtype = :arg_ref_credtype,
			credno = :arg_ref_credno,
			credid = :arg_ref_credid
			Where givebackid = :arg_billid
			and scid = :arg_scid;		
	CASE 6,7,17,18,19 //采购收货，退化，生产进，其它进，盘盈
		UPDATE u_inware
			SET cwauditingdate = getdate(),
			cwauditingrep = :arg_opemp,
			cwauditingflag = 1,
			credtype = :arg_ref_credtype,
			credno = :arg_ref_credno,
			credid = :arg_ref_credid
			Where inwareid = :arg_billid
			and scid = :arg_scid;		
	CASE 8 //供应商赔偿单
		UPDATE u_spt_amerce
			SET cwauditingdate = getdate(),
			cwauditingrep = :arg_opemp,
			cwauditingflag = 1,
			credtype = :arg_ref_credtype,
			credno = :arg_ref_credno,
			credid = :arg_ref_credid
			Where billid = :arg_billid
			and scid = :arg_scid;	
	CASE 10,11 //外协发出，退回		
		UPDATE ow_wfjg_out
			SET cwauditingdate = getdate(),
			cwauditingrep = :arg_opemp,
			cwauditingflag = 1,
			credtype = :arg_ref_credtype,
			credno = :arg_ref_credno,
			credid = :arg_ref_credid
			Where outwareid = :arg_billid
			and scid = :arg_scid;
	CASE 12,13 //外协收货，外协返工
		UPDATE ow_wfjg_in
			SET cwauditingdate = getdate(),
			cwauditingrep = :arg_opemp,
			cwauditingflag = 1,
			credtype = :arg_ref_credtype,
			credno = :arg_ref_credno,
			credid = :arg_ref_credid
			Where inwareid = :arg_billid
			and scid = :arg_scid;
	CASE 21 //仓库调拨单
	CASE 22 //成本价调整单
	CASE 23 //拆装单
	CASE 24 //库存配置调整单
	CASE 25,28 //客户收款，供应商付款
		UPDATE u_cusamt
			SET cwauditingdate = getdate(),
			cwauditingrep = :arg_opemp,
			cwauditingflag = 1,
			credtype = :arg_ref_credtype,
			credno = :arg_ref_credno,
			credid = :arg_ref_credid
			Where cusmonid = :arg_billid;
	CASE 27,30 //客户其它收款，供应商其它付款
		UPDATE u_Bmstamt
			SET cwauditingdate = getdate(),
			cwauditingrep = :arg_opemp,
			cwauditingflag = 1,
			credtype = :arg_ref_credtype,
			credno = :arg_ref_credno,
			credid = :arg_ref_credid
			Where Baid = :arg_billid;
	CASE 26,29,31,32 //其它收入，支出单 //其它应收，其它应付
		UPDATE U_income_expenses
			SET cwauditingdate = getdate(),
			cwauditingrep = :arg_opemp,
			cwauditingflag = 1,
			credtype = :arg_ref_credtype,
			credno = :arg_ref_credno,
			credid = :arg_ref_credid
			Where billid = :arg_billid;
	CASE 33 //转帐单
		UPDATE u_rap_money_transfer
			SET cwauditingdate = getdate(),
			cwauditingrep = :arg_opemp,
			cwauditingflag = 1,
			credtype = :arg_ref_credtype,
			credno = :arg_ref_credno,
			credid = :arg_ref_credid
			Where billid = :arg_billid;
		
END CHOOSE

IF sqlca.SQLCode <> 0 THEN
	arg_msg = '更新单据凭证信息失败,'+sqlca.SQLErrText
	rslt = 0
	GOTO ext
END IF

ext:
IF rslt = 0 THEN
	ROLLBACK;
ELSEIF rslt = 1 And arg_ifcommit THEN
	COMMIT;
END IF
RETURN rslt

end function

public function integer uof_cwaudit_bill0 (long arg_credid, long arg_scid, long arg_billid, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1
datetime null_dt
setnull(null_dt)

CHOOSE CASE arg_credid
	CASE 1,2,14,15,16,20 //销售发货，退货，生产领料，其它出，盘亏，扣费出
		UPDATE u_outware
			SET cwauditingdate = :null_dt,
			cwauditingrep = '',
			cwauditingflag = 0,
			credtype = '',
			credno = 0,
			credid = 0
			Where outwareid = :arg_billid
			and scid = :arg_scid;
	CASE 3,4,9 //客户补件单，客户费用单，供应商费用单
		UPDATE u_reissue
			SET cwauditingdate = :null_dt,
			cwauditingrep = '',
			cwauditingflag = 0,
			credtype = '',
			credno = 0,
			credid = 0
			Where reissueid = :arg_billid
			and scid = :arg_scid;		
	CASE 5 //客户返利单
		UPDATE u_giveback
			SET cwauditingdate = :null_dt,
			cwauditingrep = '',
			cwauditingflag = 0,
			credtype = '',
			credno = 0,
			credid = 0
			Where givebackid = :arg_billid
			and scid = :arg_scid;		
	CASE 6,7,17,18,19 //采购收货，退化，生产进，其它进，盘盈
		UPDATE u_inware
			SET cwauditingdate = :null_dt,
			cwauditingrep = '',
			cwauditingflag = 0,
			credtype = '',
			credno = 0,
			credid = 0
			Where inwareid = :arg_billid
			and scid = :arg_scid;		
	CASE 8 //供应商赔偿单
		UPDATE u_spt_amerce
			SET cwauditingdate = :null_dt,
			cwauditingrep = '',
			cwauditingflag = 0,
			credtype = '',
			credno = 0,
			credid = 0
			Where billid = :arg_billid
			and scid = :arg_scid;	
	CASE 10,11 //外协发出，退回		
		UPDATE ow_wfjg_out
			SET cwauditingdate = :null_dt,
			cwauditingrep = '',
			cwauditingflag = 0,
			credtype = '',
			credno = 0,
			credid = 0
			Where outwareid = :arg_billid
			and scid = :arg_scid;
	CASE 12,13 //外协收货，外协返工
		UPDATE ow_wfjg_in
			SET cwauditingdate = :null_dt,
			cwauditingrep = '',
			cwauditingflag = 0,
			credtype = '',
			credno = 0,
			credid = 0
			Where inwareid = :arg_billid
			and scid = :arg_scid;
	CASE 21 //仓库调拨单
	CASE 22 //成本价调整单
	CASE 23 //拆装单
	CASE 24 //库存配置调整单
	CASE 25,28 //客户收款，供应商付款
		UPDATE u_cusamt
			SET cwauditingdate = :null_dt,
			cwauditingrep = '',
			cwauditingflag = 0,
			credtype = '',
			credno = 0,
			credid = 0
			Where cusmonid = :arg_billid;
	CASE 27,30 //客户其它收款，供应商其它付款
		UPDATE u_Bmstamt
			SET cwauditingdate = :null_dt,
			cwauditingrep = '',
			cwauditingflag = 0,
			credtype = '',
			credno = 0,
			credid = 0
			Where Baid = :arg_billid;
	CASE 26,29,31,32 //其它收入，支出单 //其它应收，其它应付
		UPDATE U_income_expenses
			SET cwauditingdate = :null_dt,
			cwauditingrep = '',
			cwauditingflag = 0,
			credtype = '',
			credno = 0,
			credid = 0
			Where billid = :arg_billid;
	CASE 33 //转帐单
		UPDATE u_rap_money_transfer
			SET cwauditingdate = :null_dt,
			cwauditingrep = '',
			cwauditingflag = 0,
			credtype = '',
			credno = 0,
			credid = 0
			Where billid = :arg_billid;
		
END CHOOSE

IF sqlca.SQLCode <> 0 THEN
	arg_msg = '更新单据凭证信息失败,'+sqlca.SQLErrText
	rslt = 0
	GOTO ext
END IF

ext:
IF rslt = 0 THEN
	ROLLBACK;
ELSEIF rslt = 1 And arg_ifcommit THEN
	COMMIT;
END IF
RETURN rslt

end function

public function integer uof_cwaudit_bill_getinfo (long arg_credid, long arg_scid, long arg_billid, s_cred_port arg_s_credport, ref s_credence arg_ref_s_cred, ref string arg_msg);Int rslt = 1
Int li_hscust,li_hsspt
Long no_mxt,i
s_bill_to_cred s_billinfo

DateTime null_dt
SetNull(null_dt)


CHOOSE CASE arg_credid
	CASE 1,2,14,15,16,20 //销售发货，退货，生产领料，其它出，盘亏，扣费出
		CHOOSE CASE arg_credid
			CASE 1
				IF uof_cwaudit_bill_getinfo01_and_02(arg_scid,arg_billid,arg_s_credport,arg_ref_s_cred,arg_msg) = 0 THEN
					rslt = 0
					GOTO ext
				END IF
			CASE 2
				IF uof_cwaudit_bill_getinfo01_and_02(arg_scid,arg_billid,arg_s_credport,arg_ref_s_cred,arg_msg) = 0 THEN
					rslt = 0
					GOTO ext
				END IF
			CASE 14
				IF uof_cwaudit_bill_getinfo14(arg_scid,arg_billid,arg_s_credport,arg_ref_s_cred,arg_msg) = 0 THEN
					rslt = 0
					GOTO ext
				END IF
			CASE 15
				IF uof_cwaudit_bill_getinfo15(arg_scid,arg_billid,arg_s_credport,arg_ref_s_cred,arg_msg) = 0 THEN
					rslt = 0
					GOTO ext
				END IF
			CASE 16
				IF uof_cwaudit_bill_getinfo16(arg_scid,arg_billid,arg_s_credport,arg_ref_s_cred,arg_msg) = 0 THEN
					rslt = 0
					GOTO ext
				END IF
			CASE 20
				IF uof_cwaudit_bill_getinfo20(arg_scid,arg_billid,arg_s_credport,arg_ref_s_cred,arg_msg) = 0 THEN
					rslt = 0
					GOTO ext
				END IF
		END CHOOSE
	CASE 3,4,9 //客户补件单，客户费用单，供应商费用单
		IF arg_credid = 3 THEN //客户补件单
		ELSEIF arg_credid = 4 THEN //客户费用单
			IF uof_cwaudit_bill_getinfo04(arg_scid,arg_billid,arg_s_credport,arg_ref_s_cred,arg_msg) = 0 THEN
				rslt = 0
				GOTO ext
			END IF
		ELSEIF arg_credid = 9 THEN //供应商费用单
			IF uof_cwaudit_bill_getinfo09(arg_scid,arg_billid,arg_s_credport,arg_ref_s_cred,arg_msg) = 0 THEN
				rslt = 0
				GOTO ext
			END IF
		END IF
	CASE 5 //客户返利单	
		IF uof_cwaudit_bill_getinfo05(arg_scid,arg_billid,arg_s_credport,arg_ref_s_cred,arg_msg) = 0 THEN
			rslt = 0
			GOTO ext
		END IF
	CASE 6,7,17,18,19 //采购收货，退货，生产进，其它进，盘盈
		CHOOSE CASE arg_credid
			CASE 6 //采购收货单
				IF uof_cwaudit_bill_getinfo06_and_07(arg_scid,arg_billid,arg_s_credport,arg_ref_s_cred,arg_msg) = 0 THEN
					rslt = 0
					GOTO ext
				END IF
			CASE 7 //采购退货单
				IF uof_cwaudit_bill_getinfo06_and_07(arg_scid,arg_billid,arg_s_credport,arg_ref_s_cred,arg_msg) = 0 THEN
					rslt = 0
					GOTO ext
				END IF
			CASE 17 //生产进仓单
				IF uof_cwaudit_bill_getinfo17(arg_scid,arg_billid,arg_s_credport,arg_ref_s_cred,arg_msg) = 0 THEN
					rslt = 0
					GOTO ext
				END IF
			CASE 18 //其它进仓单
				IF uof_cwaudit_bill_getinfo18(arg_scid,arg_billid,arg_s_credport,arg_ref_s_cred,arg_msg) = 0 THEN
					rslt = 0
					GOTO ext
				END IF
			CASE 19 //盘盈单
				IF uof_cwaudit_bill_getinfo19(arg_scid,arg_billid,arg_s_credport,arg_ref_s_cred,arg_msg) = 0 THEN
					rslt = 0
					GOTO ext
				END IF
		END CHOOSE
	CASE 8 //供应商赔偿单	
		IF uof_cwaudit_bill_getinfo08(arg_scid,arg_billid,arg_s_credport,arg_ref_s_cred,arg_msg) = 0 THEN
			rslt = 0
			GOTO ext
		END IF
	CASE 10,11 //外协发出，退回		
		UPDATE ow_wfjg_out
			SET cwauditingdate = :null_dt,
			cwauditingrep = '',
			cwauditingflag = 0,
			credtype = '',
			credno = 0,
			credid = 0
			WHERE outwareid = :arg_billid
			And scid = :arg_scid;
	CASE 12,13 //外协收货，外协返工
		UPDATE ow_wfjg_in
			SET cwauditingdate = :null_dt,
			cwauditingrep = '',
			cwauditingflag = 0,
			credtype = '',
			credno = 0,
			credid = 0
			WHERE inwareid = :arg_billid
			And scid = :arg_scid;
	CASE 21 //仓库调拨单
	CASE 22 //成本价调整单
	CASE 23 //拆装单
	CASE 24 //库存配置调整单
	CASE 25,28 //客户收款，供应商付款
		IF arg_credid = 25 THEN //客户收款单
			IF uof_cwaudit_bill_getinfo25(arg_scid,arg_billid,arg_s_credport,arg_ref_s_cred,arg_msg) = 0 THEN
				rslt = 0
				GOTO ext
			END IF
		ELSEIF arg_credid = 28 THEN //供应商付款
			IF uof_cwaudit_bill_getinfo28(arg_scid,arg_billid,arg_s_credport,arg_ref_s_cred,arg_msg) = 0 THEN
				rslt = 0
				GOTO ext
			END IF
		END IF
	CASE 27,30,33,34 //客户其它收款，供应商其它付款,客户收款结算单,供应商付款结算单
		IF arg_credid = 27 THEN //客户其它收款单
		ELSEIF arg_credid = 30 THEN //供应商其它付款单
		ELSEIF arg_credid = 33 THEN //客户收款结算单
		ELSEIF arg_credid = 34 THEN //供应商付款结算单
		END IF
	CASE 26,29,31,32 //其它收入，支出单 //其它应收，其它应付
		CHOOSE CASE arg_credid
			CASE 31 //其它收入单
				IF uof_cwaudit_bill_getinfo31(arg_scid,arg_billid,arg_s_credport,arg_ref_s_cred,arg_msg) = 0 THEN
					rslt = 0
					GOTO ext
				END IF
			CASE 32 //其它支出单
				IF uof_cwaudit_bill_getinfo32(arg_scid,arg_billid,arg_s_credport,arg_ref_s_cred,arg_msg) = 0 THEN
					rslt = 0
					GOTO ext
				END IF
			CASE 26 //其它应收单
				IF uof_cwaudit_bill_getinfo26(arg_scid,arg_billid,arg_s_credport,arg_ref_s_cred,arg_msg) = 0 THEN
					rslt = 0
					GOTO ext
				END IF
			CASE 29 //其它应付单
				IF uof_cwaudit_bill_getinfo29(arg_scid,arg_billid,arg_s_credport,arg_ref_s_cred,arg_msg) = 0 THEN
					rslt = 0
					GOTO ext
				END IF
		END CHOOSE
	CASE 33 //转帐单
		IF uof_cwaudit_bill_getinfo33(arg_scid,arg_billid,arg_s_credport,arg_ref_s_cred,arg_msg) = 0 THEN
			rslt = 0
			GOTO ext
		END IF
END CHOOSE

ext:

RETURN rslt






























end function

public function integer uof_get_subject (string arg_subid, ref integer arg_hscust, ref integer arg_hsspt, string arg_msg);Int rslt = 1

SELECT cw_subject.hscust,cw_subject.hsspt
	INTO :arg_hscust,:arg_hsspt
	FROM cw_subject
	Where cw_subject.subid = :arg_subid;
IF sqlca.SQLCode <> 0 THEN
	arg_msg = '没有查询到会计科目:'+arg_subid+'的资料,操作取消,请检查资料'
	rslt = 0
	GOTO ext
END IF

ext:
RETURN rslt


end function

public function integer uof_cwaudit_bill_getcredid (long arg_credid, long arg_scid, long arg_billid, ref long arg_ref_credid, ref string arg_msg);Int rslt = 1
Int li_cwauditingflag



CHOOSE CASE arg_credid
	CASE 1,2,14,15,16,20 //销售发货，退货，生产领料，其它出，盘亏，扣费出		
		SELECT u_outware.credid,
			u_outware.cwauditingflag
			INTO :arg_ref_credid,
			:li_cwauditingflag
			FROM u_outware
			WHERE u_outware.outwareid = :arg_billid
			And u_outware.scid = :arg_scid;
	CASE 3,4,9 //客户补件单，客户费用单，供应商费用单
		SELECT u_reissue.credid,
			u_reissue.cwauditingflag
			INTO :arg_ref_credid,
			:li_cwauditingflag
			FROM u_reissue
			WHERE u_reissue.reissueid = :arg_billid
			And u_reissue.scid = :arg_scid;
	CASE 5 //客户返利单		
		SELECT u_giveback.credid,
			u_giveback.cwauditingflag
			INTO :arg_ref_credid,
			:li_cwauditingflag
			FROM u_giveback
			WHERE u_giveback.givebackid = :arg_billid
			And u_giveback.scid = :arg_scid;
	CASE 6,7,17,18,19 //采购收货，退化，生产进，其它进，盘盈				
		SELECT u_inware.credid,
			u_inware.cwauditingflag
			INTO :arg_ref_credid,
			:li_cwauditingflag
			FROM u_inware
			WHERE u_inware.inwareid = :arg_billid
			And u_inware.scid = :arg_scid;
	CASE 8 //供应商赔偿单			
		SELECT u_spt_amerce.credid,
			u_spt_amerce.cwauditingflag
			INTO :arg_ref_credid,
			:li_cwauditingflag
			FROM u_spt_amerce
			WHERE u_spt_amerce.billid = :arg_billid
			And u_spt_amerce.scid = :arg_scid;
	CASE 10,11 //外协发出，退回				
		SELECT ow_wfjg_out.credid,
			ow_wfjg_out.cwauditingflag
			INTO :arg_ref_credid,
			:li_cwauditingflag
			FROM ow_wfjg_out
			WHERE ow_wfjg_out.outwareid = :arg_billid
			And ow_wfjg_out.scid = :arg_scid;
	CASE 12,13 //外协收货，外协返工				
		SELECT ow_wfjg_in.credid,
			ow_wfjg_in.cwauditingflag
			INTO :arg_ref_credid,
			:li_cwauditingflag
			FROM ow_wfjg_in
			WHERE ow_wfjg_in.inwareid = :arg_billid
			And ow_wfjg_in.scid = :arg_scid;
	CASE 21 //仓库调拨单
	CASE 22 //成本价调整单
	CASE 23 //拆装单
	CASE 24 //库存配置调整单
	CASE 25,28 //客户收款，供应商付款
		SELECT u_cusamt.credid,
			u_cusamt.cwauditingflag
			INTO :arg_ref_credid,
			:li_cwauditingflag
			FROM u_cusamt
			Where u_cusamt.cusmonid = :arg_billid;
	CASE 27,30 //客户其它收款，供应商其它付款
		SELECT u_Bmstamt.credid,
			u_Bmstamt.cwauditingflag
			INTO :arg_ref_credid,
			:li_cwauditingflag
			FROM u_Bmstamt
			Where u_Bmstamt.Baid = :arg_billid;
	CASE 26,29,31,32 //其它收入，支出单 //其它应收，其它应付
		SELECT U_income_expenses.credid,
			U_income_expenses.cwauditingflag
			INTO :arg_ref_credid,
			:li_cwauditingflag
			FROM U_income_expenses
			Where U_income_expenses.billid = :arg_billid;
	CASE 33 //转帐单		
		SELECT u_rap_money_transfer.credid,
			u_rap_money_transfer.cwauditingflag
			INTO :arg_ref_credid,
			:li_cwauditingflag
			FROM u_rap_money_transfer
			Where u_rap_money_transfer.billid = :arg_billid;
END CHOOSE

IF sqlca.SQLCode <> 0 THEN
	arg_msg = '查询单据凭证信息失败,'+sqlca.SQLErrText
	rslt = 0
	GOTO ext
END IF

IF li_cwauditingflag = 0 THEN
	arg_msg = '单据未会计审,请检查'
	rslt = 0
	GOTO ext
END IF

IF arg_ref_credid = 0 THEN
	arg_msg = '错误的凭证id,请检查单据相关凭证信息'
	rslt = 0
	GOTO ext
END IF

ext:

RETURN rslt









end function

public function integer uof_cwaudit_cred0 (long arg_credid, long arg_scid, long arg_billid[], string arg_billcode[], ref string arg_msg, boolean arg_ifcommit);Int rslt = 1

String ls_credtype
Int li_createtype

Long ll_ref_credid,ll_credid_array[]
Long i,j,k,ll_f


SELECT credtype,createtype Into :ls_credtype,:li_createtype From Cw_credence_port Where credid = :arg_credid;
IF sqlca.SQLCode <> 0 THEN
	arg_msg = '查询单据凭证接口设置失败,'+sqlca.SQLErrText
	rslt = 0
	GOTO ext
END IF

IF li_createtype = 0 THEN
	FOR i = 1 To UpperBound(arg_billid)
		ll_ref_credid = 0
		IF uof_cwaudit_bill_getcredid(arg_credid,arg_scid,arg_billid[i],ll_ref_credid,arg_msg) = 0 THEN
			arg_msg += arg_billcode[i]+','+arg_msg
			rslt = 0
			GOTO ext
		END IF
		
		IF f_del_cred(0,ll_ref_credid,arg_msg,False) = 0 THEN
			arg_msg += arg_billcode[i]+','+arg_msg
			rslt = 0
			GOTO ext
		END IF
		
		IF uof_cwaudit_bill0(arg_credid,arg_scid,arg_billid[i],arg_msg,False) = 0 THEN
			arg_msg += arg_billcode[i]+','+arg_msg
			rslt = 0
			GOTO ext
		END IF
	NEXT
	
	
ELSEIF li_createtype = 1 THEN
	FOR i = 1 To UpperBound(arg_billid)
		ll_ref_credid = 0
		IF uof_cwaudit_bill_getcredid(arg_credid,arg_scid,arg_billid[i],ll_ref_credid,arg_msg) = 0 THEN
			arg_msg += arg_billcode[i]+','+arg_msg
			rslt = 0
			GOTO ext
		END IF
		
		ll_f = 0
		FOR j = 1 To UpperBound(ll_credid_array)
			IF ll_credid_array[j] = ll_ref_credid THEN
				ll_f = j
				EXIT
			END IF
		NEXT
		IF ll_f = 0 THEN
			k++
			ll_credid_array[k] = ll_ref_credid
		END IF
		
		
		IF uof_cwaudit_bill0(arg_credid,arg_scid,arg_billid[i],arg_msg,False) = 0 THEN
			arg_msg+= arg_billcode[i]+','+arg_msg+'~n'
			rslt = 0
			GOTO ext
		END IF
	NEXT
	
	FOR j = 1 To k
		IF f_del_cred(0,ll_credid_array[j],arg_msg,False) = 0 THEN
			rslt = 0
			GOTO ext
		END IF
	NEXT
END IF

ext:
IF rslt = 0 THEN
	ROLLBACK;
ELSEIF rslt = 1 And arg_ifcommit THEN
	COMMIT;
END IF

RETURN rslt










end function

public function integer uof_cwaudit_cred1 (long arg_credid, long arg_scid, long arg_billid[], string arg_billcode[], string arg_opemp, ref string arg_msg, boolean arg_ifcommit);Int rslt = 1

String ls_credtype,ls_credname
Int li_createtype
Int li_ifstorage
s_cred_port s_credport

Long i,j
s_credence arg_s_cred,arg_s_cred_reset
Long ll_ref_credid,ll_ref_credno

uo_credence uo_cred
uo_cred = Create uo_credence


SELECT credtype,createtype,ifstorage,credname
	INTO :ls_credtype,:li_createtype,:li_ifstorage,:ls_credname
	From Cw_credence_port Where credid = :arg_credid;
IF sqlca.SQLCode <> 0 THEN
	arg_msg = '查询单据凭证接口设置失败,'+sqlca.SQLErrText
	rslt = 0
	GOTO ext
END IF


s_credport.credtype = ls_credtype
s_credport.createtype = li_createtype
s_credport.ifstorage = li_ifstorage
s_credport.credname = ls_credname

IF li_createtype = 0 THEN
	FOR i = 1 To UpperBound(arg_billid)
		arg_s_cred = arg_s_cred_reset
		IF uof_cwaudit_bill_getinfo(arg_credid,arg_scid,arg_billid[i],s_credport,arg_s_cred,arg_msg) = 0 THEN
			arg_msg = arg_billcode[i]+','+arg_msg
			rslt = 0
			GOTO ext
		END IF
		ll_ref_credno = 0
		IF f_create_cred(arg_s_cred,False,arg_msg,ll_ref_credid,ll_ref_credno) = 0 THEN
			arg_msg = arg_billcode[i]+','+arg_msg
			rslt = 0
			GOTO ext
		END IF
		
		IF uo_cred.Check(0,ll_ref_credid,arg_msg,False) = 0 THEN
			arg_msg = arg_billcode[i]+','+arg_msg
			rslt = 0
			GOTO ext
		END IF
		
		IF uof_cwaudit_bill1(arg_credid,arg_scid,arg_billid[i],arg_opemp,ls_credtype,ll_ref_credno,ll_ref_credid,arg_msg,False) = 0 THEN
			arg_msg = arg_billcode[i]+','+arg_msg
			rslt = 0
			GOTO ext
		END IF
	NEXT
ELSEIF li_createtype = 1 THEN
	IF uof_cwaudit_bill_getinfo_hz(arg_credid,arg_scid,arg_billid,s_credport,arg_s_cred,arg_msg) = 0 THEN
		rslt = 0
		GOTO ext
	END IF
	ll_ref_credno = 0
	IF f_create_cred(arg_s_cred,False,arg_msg,ll_ref_credid,ll_ref_credno) = 0 THEN
		rslt = 0
		GOTO ext
	END IF
	
	IF uo_cred.Check(0,ll_ref_credid,arg_msg,False) = 0 THEN
		rslt = 0
		GOTO ext
	END IF
	
	FOR i = 1 To UpperBound(arg_billid)
		IF uof_cwaudit_bill1(arg_credid,arg_scid,arg_billid[i],arg_opemp,ls_credtype,ll_ref_credno,ll_ref_credid,arg_msg,False) = 0 THEN
			arg_msg = arg_billcode[i]+','+arg_msg
			rslt = 0
			GOTO ext
		END IF
	NEXT
END IF

ext:
IF rslt = 0 THEN
	ROLLBACK;
ELSEIF rslt = 1 And arg_ifcommit THEN
	COMMIT;
END IF
Destroy uo_cred

RETURN rslt











end function

public function integer uof_cwaudit_bill_getinfo_hz (long arg_credid, long arg_scid, long arg_billid[], s_cred_port arg_s_credport, readonly s_credence arg_ref_s_cred, ref string arg_msg);Int rslt = 1
Long cnt

Int li_hscust,li_hsspt
Long no_mxt,i
s_bill_to_cred s_billinfo

String ls_billname
DateTime null_dt
SetNull(null_dt)

ls_billname = arg_s_credport.credname

String ls_dwSQL_checkflag,ls_dwSQL_cwauditingflag,ls_dwSQL_data
String ls_SyntaxFromSQL_checkflag,ls_SyntaxFromSQL_cwauditingflag,ls_SyntaxFromSQL_data
datastore ds_checkflag,ds_cwauditingflag,ds_data
String ls_id_str

ds_checkflag = Create datastore
ds_cwauditingflag = Create datastore
ds_data = Create datastore

FOR i = 1 To UpperBound(arg_billid)
	ls_id_str += String(arg_billid[i])+','
NEXT
ls_id_str = Left(ls_id_str,Len(ls_id_str) - 1)
ls_id_str = '('+ls_id_str+')'


//1
ls_dwSQL_checkflag = is_dwsql[arg_credid].dwSQL_checkflag
IF Pos(ls_dwSQL_checkflag,'arg_scid') > 0 THEN ls_dwSQL_checkflag = Replace ( ls_dwSQL_checkflag, Pos(ls_dwSQL_checkflag,'arg_scid'), 8, String(arg_scid) )
IF Pos(ls_dwSQL_checkflag,'arg_id_str') > 0 THEN ls_dwSQL_checkflag = Replace ( ls_dwSQL_checkflag, Pos(ls_dwSQL_checkflag,'arg_id_str'), 10, ls_id_str )

ls_SyntaxFromSQL_checkflag = sqlca.SyntaxFromSQL(ls_dwSQL_checkflag,"style(type=grid)",arg_msg)
IF arg_msg > '' THEN
	arg_msg = ls_billname+",检查审核标记dw语法生成失败.语法: ~r~n"+ls_dwSQL_checkflag
	rslt = 0
	GOTO ext
END IF


ds_checkflag.Create(ls_SyntaxFromSQL_checkflag,arg_msg)
IF arg_msg <> '' THEN
	arg_msg = ls_billname+",建立检查审核标记dw失败," +arg_msg
	rslt = 0
	GOTO ext
END IF

ds_checkflag.SetTransObject(sqlca)
ds_checkflag.Retrieve()
cnt = ds_checkflag.Object.cnt[1]
IF cnt > 0 THEN
	arg_msg = ls_billname+' 选择的单据中有未终审的单据,请检查,语法: ~r~n'+ls_dwSQL_checkflag
	rslt = 0
	GOTO ext
END IF


//2
ls_dwSQL_cwauditingflag = is_dwsql[arg_credid].dwSQL_cwauditingflag
IF Pos(ls_dwSQL_cwauditingflag,'arg_scid') > 0 THEN ls_dwSQL_cwauditingflag = Replace ( ls_dwSQL_cwauditingflag, Pos(ls_dwSQL_cwauditingflag,'arg_scid'), 8, String(arg_scid) )
IF Pos(ls_dwSQL_cwauditingflag,'arg_id_str') > 0 THEN ls_dwSQL_cwauditingflag = Replace ( ls_dwSQL_cwauditingflag, Pos(ls_dwSQL_cwauditingflag,'arg_id_str'), 10, ls_id_str )

ls_SyntaxFromSQL_cwauditingflag = sqlca.SyntaxFromSQL(ls_dwSQL_cwauditingflag,"style(type=grid)",arg_msg)
IF arg_msg > '' THEN
	arg_msg = ls_billname+',检查会计审核标记dw语法生成失败. 语法: ~r~n'+ls_dwSQL_cwauditingflag
	rslt = 0
	GOTO ext
END IF

ds_cwauditingflag.Create(ls_SyntaxFromSQL_cwauditingflag,arg_msg)
IF arg_msg <> '' THEN
	arg_msg = ls_billname+",建立检查会计审核标记dw失败," +arg_msg
	rslt = 0
	GOTO ext
END IF

ds_cwauditingflag.SetTransObject(sqlca)
ds_cwauditingflag.Retrieve()
cnt = ds_cwauditingflag.Object.cnt[1]
IF cnt > 0 THEN
	arg_msg = ls_billname+' 选择的单据中有已会计的单据,请检查,语法: ~r~n'+ls_dwSQL_cwauditingflag
	rslt = 0
	GOTO ext
END IF

//3
if arg_s_credport.ifstorage = 0 then
	ls_dwSQL_data = is_dwsql[arg_credid].dwSQL_data
else
	ls_dwSQL_data = is_dwsql[arg_credid].dwsql_data_ifstorage
end if

IF Pos(ls_dwSQL_data,'arg_scid') > 0 THEN ls_dwSQL_data = Replace ( ls_dwSQL_data, Pos(ls_dwSQL_data,'arg_scid'), 8, String(arg_scid) )
IF Pos(ls_dwSQL_data,'arg_id_str') > 0 THEN ls_dwSQL_data = Replace ( ls_dwSQL_data, Pos(ls_dwSQL_data,'arg_id_str'), 10, ls_id_str )

ls_SyntaxFromSQL_data = sqlca.SyntaxFromSQL(ls_dwSQL_data,"style(type=grid)",arg_msg)
IF arg_msg > '' THEN
	arg_msg = ls_billname+",数据汇总dw语法生成失败. "+ls_dwSQL_data
	rslt = 0
	GOTO ext
END IF

ds_data.Create(ls_SyntaxFromSQL_data,arg_msg)
IF arg_msg <> '' THEN
	arg_msg = ls_billname+",建立数据汇总dw失败," +arg_msg
	rslt = 0
	GOTO ext
END IF

ds_data.SetTransObject(sqlca)
cnt = ds_data.Retrieve()
IF cnt = 0 THEN
	arg_msg = ls_billname+' 没有生成凭证的数据,请检查'
	rslt = 0
	GOTO ext
END IF

String ls_subid_debit
String ls_subid_credit
Decimal ld_amt


FOR i = 1 To cnt
	ls_subid_debit = ds_data.GetItemString(i,2)
	ls_subid_credit = ds_data.GetItemString(i,3)
	
	IF ls_subid_debit = '' THEN
		arg_msg = ls_billname+' 借方未设置会计科目,请检查'
		rslt = 0
		GOTO ext
	END IF
	
	IF ls_subid_credit = '' THEN
		arg_msg = ls_billname+' 贷方未设置会计科目,请检查'
		rslt = 0
		GOTO ext
	END IF
NEXT

FOR i = 1 To cnt
	ld_amt = ds_data.GetItemDecimal(i,1)
	ls_subid_debit = ds_data.GetItemString(i,2)
	ls_subid_credit = ds_data.GetItemString(i,3)
	
	//借
	no_mxt++
	arg_ref_s_cred.arg_s_credmx[no_mxt].fuluno = no_mxt
	arg_ref_s_cred.arg_s_credmx[no_mxt].brief = ''
	arg_ref_s_cred.arg_s_credmx[no_mxt].rate = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].rawdebit = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].rawcredit = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].amount = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].price = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].deptid = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].itemid = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].billdate = null_dt
	arg_ref_s_cred.arg_s_credmx[no_mxt].billid = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].billno = ''
	arg_ref_s_cred.arg_s_credmx[no_mxt].cropbillid = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].ifreadonly = 1
	
	
	arg_ref_s_cred.arg_s_credmx[no_mxt].subid = ls_subid_debit
	arg_ref_s_cred.arg_s_credmx[no_mxt].debit = ld_amt
	arg_ref_s_cred.arg_s_credmx[no_mxt].credit = 0
	
	//贷
	no_mxt++
	arg_ref_s_cred.arg_s_credmx[no_mxt].fuluno = no_mxt
	arg_ref_s_cred.arg_s_credmx[no_mxt].brief = ''
	arg_ref_s_cred.arg_s_credmx[no_mxt].rate = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].rawdebit = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].rawcredit = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].amount = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].price = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].deptid = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].itemid = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].billdate = null_dt
	arg_ref_s_cred.arg_s_credmx[no_mxt].billid = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].billno = ''
	arg_ref_s_cred.arg_s_credmx[no_mxt].cropbillid = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].ifreadonly = 1
	
	arg_ref_s_cred.arg_s_credmx[no_mxt].subid = ls_subid_credit
	arg_ref_s_cred.arg_s_credmx[no_mxt].debit = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].credit = ld_amt
	
NEXT

arg_ref_s_cred.creddate = f_rst_mon_1st(3,sys_curyearmon)
arg_ref_s_cred.relcode = ''
arg_ref_s_cred.readtype = 0
arg_ref_s_cred.ifauto = 1
arg_ref_s_cred.credtype = arg_s_credport.credtype

ext:
Destroy ds_checkflag
Destroy ds_cwauditingflag
Destroy ds_data

RETURN rslt






























end function

public function integer uof_cwaudit_bill_getinfo01_and_02 (long arg_scid, long arg_billid, s_cred_port arg_s_credport, ref s_credence arg_ref_s_cred, ref string arg_msg);Int rslt = 1
Long no_mxt,i,j,mx = 1
s_bill_to_cred s_billinfo
s_bill_to_credmx s_billmx

String ls_billname
DateTime null_dt
SetNull(null_dt)

ls_billname = arg_s_credport.credname

SELECT u_outware.outwarecode,
	u_outware.outdate,
	0,
	u_outware.dscrp,
	0 as cusid,
	0 as sptid,
	u_cust.subid,
	u_storage.subid_sale,
	u_storage.subid_cost,
	u_storage.subid,
	u_outware.cwauditingflag,
	u_outware.flag
	INTO :s_billinfo.billcode,
	:s_billinfo.billdate,
	:s_billinfo.billamt,
	:s_billinfo.dscrp,
	:s_billinfo.cusid,
	:s_billinfo.sptid,
	:s_billinfo.subid_debit,
	:s_billinfo.subid_credit,
	:s_billinfo.subid_debit2,
	:s_billinfo.subid_credit2,
	:s_billinfo.cwauditingflag,
	:s_billinfo.flag
	FROM u_outware left OUTER join u_cust on
	u_outware.cusid = u_cust.cusid left OUTER join u_storage on
	u_outware.storageid = u_storage.storageid
	WHERE u_outware.outwareid = :arg_billid
	AND u_outware.scid = :arg_scid
	And u_outware.billtype = 1;
	
IF sqlca.SQLCode <> 0 THEN
	arg_msg = '查询 '+ls_billname+' 信息及相关会计科目信息失败,'+sqlca.SQLErrText
	rslt = 0
	GOTO ext
END IF

IF s_billinfo.flag = 0 THEN
	arg_msg = ls_billname + ' 未仓库审核,请检查'
	rslt = 0
	GOTO ext
END IF

IF s_billinfo.cwauditingflag = 1 THEN
	arg_msg = ls_billname + ' 已会计审,请检查'
	rslt = 0
	GOTO ext
END IF

IF s_billinfo.subid_debit = '' THEN
	arg_msg = ls_billname + ' 客户未设置会计科目,请检查'
	rslt = 0
	GOTO ext
END IF

IF arg_s_credport.ifstorage = 1 THEN
	IF s_billinfo.subid_credit = '' THEN
		arg_msg = ls_billname + ' 仓库未设置销售收入会计科目,请检查'
		rslt = 0
		GOTO ext
	END IF
	
	IF s_billinfo.subid_debit2 = '' THEN
		arg_msg = ls_billname + ' 仓库未设置销售成本会计科目,请检查'
		rslt = 0
		GOTO ext
	END IF
	
	IF s_billinfo.subid_credit2 = '' THEN
		arg_msg = ls_billname + ' 仓库未设置存货会计科目,请检查'
		rslt = 0
		GOTO ext
	END IF
END IF

DECLARE cur_billmx CURSOR FOR
	SELECT u_outwaremx.bsamt,
	u_outwaremx.costamt,
	u_mtrldef.mtrlname,
	u_mtrldef.subid_sale,
	u_mtrldef.subid_cost,
	u_mtrldef.subid
	FROM u_outwaremx INNER join u_mtrldef on
	u_outwaremx.mtrlid = u_mtrldef.mtrlid
	WHERE u_outwaremx.outwareid = :arg_billid
	AND u_outwaremx.scid = :arg_scid
	Order By u_outwaremx.printid;
OPEN cur_billmx;
FETCH cur_billmx Into :s_billmx.mxamt[mx],:s_billmx.mxamt2[mx],:s_billmx.mxdscrp[mx],:s_billmx.subid2[mx],:s_billmx.subid3[mx],:s_billmx.subid4[mx];
DO WHILE sqlca.SQLCode = 0
	s_billinfo.billamt += s_billmx.mxamt[mx]
	s_billinfo.billamt2 += s_billmx.mxamt2[mx]
	mx++
	FETCH cur_billmx Into :s_billmx.mxamt[mx],:s_billmx.mxamt2[mx],:s_billmx.mxdscrp[mx],:s_billmx.subid2[mx],:s_billmx.subid3[mx],:s_billmx.subid4[mx];
LOOP
CLOSE cur_billmx;

mx = mx - 1
IF mx = 0 THEN
	arg_msg = ls_billname + ' 没有单据明细,请检查'
	rslt = 0
	GOTO ext
END IF

IF arg_s_credport.ifstorage = 2 THEN
	FOR j = 1 To mx
		IF s_billmx.subid2[j] = '' THEN
			arg_msg = ls_billname + ' 明细行:'+String(j)+',未设置销售收入会计科目,请检查'
			rslt = 0
			GOTO ext
		END IF
		IF s_billmx.subid3[j] = '' THEN
			arg_msg = ls_billname + ' 明细行:'+String(j)+',未设置销售成本会计科目,请检查'
			rslt = 0
			GOTO ext
		END IF
		IF s_billmx.subid4[j] = '' THEN
			arg_msg = ls_billname + ' 明细行:'+String(j)+',未设置存货会计科目,请检查'
			rslt = 0
			GOTO ext
		END IF
	NEXT
END IF

//借1
no_mxt++
arg_ref_s_cred.arg_s_credmx[no_mxt].fuluno = no_mxt
arg_ref_s_cred.arg_s_credmx[no_mxt].rate = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].rawdebit = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].rawcredit = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].amount = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].price = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].deptid = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].itemid = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].billdate = null_dt
arg_ref_s_cred.arg_s_credmx[no_mxt].billid = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].billno = ''
arg_ref_s_cred.arg_s_credmx[no_mxt].cropbillid = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].ifreadonly = 1

arg_ref_s_cred.arg_s_credmx[no_mxt].brief = Trim(s_billinfo.billcode) + ' ' + Trim(s_billinfo.dscrp)
arg_ref_s_cred.arg_s_credmx[no_mxt].subid = s_billinfo.subid_debit
arg_ref_s_cred.arg_s_credmx[no_mxt].debit = s_billinfo.billamt
arg_ref_s_cred.arg_s_credmx[no_mxt].credit = 0

//贷1
IF arg_s_credport.ifstorage = 1 THEN
	no_mxt++
	arg_ref_s_cred.arg_s_credmx[no_mxt].fuluno = no_mxt
	arg_ref_s_cred.arg_s_credmx[no_mxt].rate = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].rawdebit = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].rawcredit = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].amount = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].price = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].deptid = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].itemid = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].billdate = null_dt
	arg_ref_s_cred.arg_s_credmx[no_mxt].billid = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].billno = ''
	arg_ref_s_cred.arg_s_credmx[no_mxt].cropbillid = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].ifreadonly = 1
	
	arg_ref_s_cred.arg_s_credmx[no_mxt].brief = Trim(s_billinfo.billcode) + ' ' + Trim(s_billinfo.dscrp)
	arg_ref_s_cred.arg_s_credmx[no_mxt].subid = s_billinfo.subid_credit
	arg_ref_s_cred.arg_s_credmx[no_mxt].debit = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].credit = s_billinfo.billamt
ELSEIF arg_s_credport.ifstorage = 2 THEN
	FOR j = 1 To mx
		no_mxt++
		arg_ref_s_cred.arg_s_credmx[no_mxt].fuluno = no_mxt
		arg_ref_s_cred.arg_s_credmx[no_mxt].rate = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].rawdebit = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].rawcredit = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].amount = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].price = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].deptid = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].itemid = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].billdate = null_dt
		arg_ref_s_cred.arg_s_credmx[no_mxt].billid = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].billno = ''
		arg_ref_s_cred.arg_s_credmx[no_mxt].cropbillid = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].ifreadonly = 1
		
		
		arg_ref_s_cred.arg_s_credmx[no_mxt].brief = Trim(s_billinfo.billcode) + ' ' + s_billmx.mxdscrp[j]
		arg_ref_s_cred.arg_s_credmx[no_mxt].subid = s_billmx.subid2[j]
		arg_ref_s_cred.arg_s_credmx[no_mxt].debit = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].credit = s_billmx.mxamt[j]
	NEXT
END IF

//借2
IF arg_s_credport.ifstorage = 1 THEN
	no_mxt++
	arg_ref_s_cred.arg_s_credmx[no_mxt].fuluno = no_mxt
	arg_ref_s_cred.arg_s_credmx[no_mxt].rate = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].rawdebit = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].rawcredit = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].amount = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].price = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].deptid = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].itemid = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].billdate = null_dt
	arg_ref_s_cred.arg_s_credmx[no_mxt].billid = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].billno = ''
	arg_ref_s_cred.arg_s_credmx[no_mxt].cropbillid = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].ifreadonly = 1
	
	arg_ref_s_cred.arg_s_credmx[no_mxt].brief = Trim(s_billinfo.billcode) + ' ' + Trim(s_billinfo.dscrp)
	arg_ref_s_cred.arg_s_credmx[no_mxt].subid = s_billinfo.subid_debit2
	arg_ref_s_cred.arg_s_credmx[no_mxt].debit = s_billinfo.billamt2
	arg_ref_s_cred.arg_s_credmx[no_mxt].credit = 0
ELSEIF arg_s_credport.ifstorage = 2 THEN
	FOR j = 1 To mx
		no_mxt++
		arg_ref_s_cred.arg_s_credmx[no_mxt].fuluno = no_mxt
		arg_ref_s_cred.arg_s_credmx[no_mxt].rate = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].rawdebit = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].rawcredit = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].amount = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].price = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].deptid = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].itemid = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].billdate = null_dt
		arg_ref_s_cred.arg_s_credmx[no_mxt].billid = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].billno = ''
		arg_ref_s_cred.arg_s_credmx[no_mxt].cropbillid = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].ifreadonly = 1
		
		
		arg_ref_s_cred.arg_s_credmx[no_mxt].brief = Trim(s_billinfo.billcode) + ' ' + s_billmx.mxdscrp[j]
		arg_ref_s_cred.arg_s_credmx[no_mxt].subid = s_billmx.subid3[j]
		arg_ref_s_cred.arg_s_credmx[no_mxt].debit = s_billmx.mxamt2[j]
		arg_ref_s_cred.arg_s_credmx[no_mxt].credit = 0
	NEXT
END IF

//贷2
IF arg_s_credport.ifstorage = 1 THEN
	no_mxt++
	arg_ref_s_cred.arg_s_credmx[no_mxt].fuluno = no_mxt
	arg_ref_s_cred.arg_s_credmx[no_mxt].rate = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].rawdebit = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].rawcredit = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].amount = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].price = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].deptid = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].itemid = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].billdate = null_dt
	arg_ref_s_cred.arg_s_credmx[no_mxt].billid = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].billno = ''
	arg_ref_s_cred.arg_s_credmx[no_mxt].cropbillid = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].ifreadonly = 1
	
	arg_ref_s_cred.arg_s_credmx[no_mxt].brief = Trim(s_billinfo.billcode) + ' ' + Trim(s_billinfo.dscrp)
	arg_ref_s_cred.arg_s_credmx[no_mxt].subid = s_billinfo.subid_credit2
	arg_ref_s_cred.arg_s_credmx[no_mxt].debit = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].credit = s_billinfo.billamt2
ELSEIF arg_s_credport.ifstorage = 2 THEN
	FOR j = 1 To mx
		no_mxt++
		arg_ref_s_cred.arg_s_credmx[no_mxt].fuluno = no_mxt
		arg_ref_s_cred.arg_s_credmx[no_mxt].rate = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].rawdebit = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].rawcredit = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].amount = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].price = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].deptid = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].itemid = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].billdate = null_dt
		arg_ref_s_cred.arg_s_credmx[no_mxt].billid = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].billno = ''
		arg_ref_s_cred.arg_s_credmx[no_mxt].cropbillid = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].ifreadonly = 1
		
		
		arg_ref_s_cred.arg_s_credmx[no_mxt].brief = Trim(s_billinfo.billcode) + ' ' + s_billmx.mxdscrp[j]
		arg_ref_s_cred.arg_s_credmx[no_mxt].subid = s_billmx.subid4[j]
		arg_ref_s_cred.arg_s_credmx[no_mxt].debit = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].credit = s_billmx.mxamt2[j]
	NEXT
END IF

arg_ref_s_cred.creddate = s_billinfo.billdate
arg_ref_s_cred.reldate = s_billinfo.billdate
arg_ref_s_cred.relcode = s_billinfo.billcode
arg_ref_s_cred.readtype = 0
arg_ref_s_cred.ifauto = 1
arg_ref_s_cred.credtype = arg_s_credport.credtype

ext:

RETURN rslt













































end function

public function integer uof_cwaudit_bill_getinfo04 (long arg_scid, long arg_billid, s_cred_port arg_s_credport, ref s_credence arg_ref_s_cred, ref string arg_msg);Int rslt = 1
Int li_hscust,li_hsspt
Long no_mxt,i,j,mx = 1
s_bill_to_cred s_billinfo
s_bill_to_credmx s_billmx

String ls_billname
DateTime null_dt
SetNull(null_dt)

ls_billname = arg_s_credport.credname

SELECT u_reissue.reissuecode,
	u_reissue.reissuedate,
	0,
	u_reissue.dscrp,
	u_reissue.cusid,
	0 as sptid,
	u_cust.subid,
	'',
	u_reissue.cwauditingflag,
	u_reissue.flag
	INTO :s_billinfo.billcode,
	:s_billinfo.billdate,
	:s_billinfo.billamt,
	:s_billinfo.dscrp,
	:s_billinfo.cusid,
	:s_billinfo.sptid,
	:s_billinfo.subid_debit,
	:s_billinfo.subid_credit,
	:s_billinfo.cwauditingflag,
	:s_billinfo.flag
	FROM u_reissue left OUTER join u_cust on
	u_reissue.cusid = u_cust.cusid
	WHERE u_reissue.reissueid = :arg_billid
	And u_reissue.scid = :arg_scid;
	
IF sqlca.SQLCode <> 0 THEN
	arg_msg = '查询 '+ls_billname+' 信息及相关会计科目信息失败,'+sqlca.SQLErrText
	rslt = 0
	GOTO ext
END IF

IF s_billinfo.flag = 0 THEN
	arg_msg = ls_billname + ' 未审核,请检查'
	rslt = 0
	GOTO ext
END IF

IF s_billinfo.cwauditingflag = 1 THEN
	arg_msg = ls_billname + ' 已会计审,请检查'
	rslt = 0
	GOTO ext
END IF

IF s_billinfo.subid_credit = '' THEN
	arg_msg = ls_billname + ' 客户未设置会计科目,请检查'
	rslt = 0
	GOTO ext
END IF

DECLARE cur_billmx CURSOR FOR
	SELECT u_reissuemx.amt,
	u_reissuemx.dscrp,
	U_Expenses.subid
	FROM u_reissuemx left OUTER join U_Expenses on
	u_reissuemx.mtrlid = U_Expenses.ExpensesID
	WHERE u_reissuemx.reissueid = :arg_billid
	AND u_reissuemx.scid = :arg_scid
	Order By u_reissuemx.printid;
OPEN cur_billmx;
FETCH cur_billmx Into :s_billmx.mxamt[mx],:s_billmx.mxdscrp[mx],:s_billmx.subid[mx];
DO WHILE sqlca.SQLCode = 0
	s_billinfo.billamt += s_billmx.mxamt[mx]
	mx++
	FETCH cur_billmx Into :s_billmx.mxamt[mx],:s_billmx.mxdscrp[mx],:s_billmx.subid[mx];
LOOP
CLOSE cur_billmx;

mx = mx - 1
IF mx = 0 THEN
	arg_msg = ls_billname + ' 没有单据明细,请检查'
	rslt = 0
	GOTO ext
END IF

FOR j = 1 To mx
	IF s_billmx.subid[j] = '' THEN
		arg_msg = ls_billname + ' 明细行:'+String(j)+',未设置会计科目,请检查'
		rslt = 0
		GOTO ext
	END IF
NEXT


//借
no_mxt++
arg_ref_s_cred.arg_s_credmx[no_mxt].fuluno = no_mxt
arg_ref_s_cred.arg_s_credmx[no_mxt].rate = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].rawdebit = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].rawcredit = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].amount = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].price = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].deptid = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].itemid = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].billdate = null_dt
arg_ref_s_cred.arg_s_credmx[no_mxt].billid = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].billno = ''
arg_ref_s_cred.arg_s_credmx[no_mxt].cropbillid = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].ifreadonly = 1

arg_ref_s_cred.arg_s_credmx[no_mxt].brief = s_billinfo.dscrp
arg_ref_s_cred.arg_s_credmx[no_mxt].subid = s_billinfo.subid_debit
arg_ref_s_cred.arg_s_credmx[no_mxt].debit = s_billinfo.billamt
arg_ref_s_cred.arg_s_credmx[no_mxt].credit = 0

IF uof_get_subject(s_billinfo.subid_credit,li_hscust,li_hsspt,arg_msg) = 0 THEN
	rslt = 0
	GOTO ext
END IF
IF li_hscust = 1 THEN
	arg_ref_s_cred.arg_s_credmx[no_mxt].cusid = s_billinfo.cusid
ELSE
	arg_ref_s_cred.arg_s_credmx[no_mxt].cusid = 0
END IF
//贷
FOR j = 1 To mx
	no_mxt++
	arg_ref_s_cred.arg_s_credmx[no_mxt].fuluno = no_mxt
	arg_ref_s_cred.arg_s_credmx[no_mxt].rate = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].rawdebit = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].rawcredit = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].amount = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].price = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].deptid = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].itemid = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].billdate = null_dt
	arg_ref_s_cred.arg_s_credmx[no_mxt].billid = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].billno = ''
	arg_ref_s_cred.arg_s_credmx[no_mxt].cropbillid = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].ifreadonly = 1
	
	
	arg_ref_s_cred.arg_s_credmx[no_mxt].brief = s_billmx.mxdscrp[j]
	arg_ref_s_cred.arg_s_credmx[no_mxt].subid = s_billmx.subid[j]
	arg_ref_s_cred.arg_s_credmx[no_mxt].debit = 0 - s_billmx.mxamt[j]
	arg_ref_s_cred.arg_s_credmx[no_mxt].credit = 0
	
	IF uof_get_subject(s_billmx.subid[j],li_hscust,li_hsspt,arg_msg) = 0 THEN
		rslt = 0
		GOTO ext
	END IF
	IF li_hscust = 1 THEN
		arg_ref_s_cred.arg_s_credmx[no_mxt].cusid = s_billinfo.cusid
	ELSE
		arg_ref_s_cred.arg_s_credmx[no_mxt].cusid = 0
	END IF
NEXT


arg_ref_s_cred.creddate = s_billinfo.billdate
arg_ref_s_cred.reldate = s_billinfo.billdate
arg_ref_s_cred.relcode = s_billinfo.billcode
arg_ref_s_cred.readtype = 0
arg_ref_s_cred.ifauto = 1
arg_ref_s_cred.credtype = arg_s_credport.credtype

ext:

RETURN rslt










































end function

public function integer uof_cwaudit_bill_getinfo05 (long arg_scid, long arg_billid, s_cred_port arg_s_credport, ref s_credence arg_ref_s_cred, ref string arg_msg);Int rslt = 1
Int li_hscust,li_hsspt
Long no_mxt,i
s_bill_to_cred s_billinfo

String ls_billname
DateTime null_dt
SetNull(null_dt)

ls_billname = arg_s_credport.credname

SELECT u_giveback.givebackcode,
	u_giveback.givebackdate,
	u_giveback.sumamt,
	u_giveback.dscrp,
	u_giveback.cusid as cusid,
	0 as sptid,
	u_itemdef.subid,
	u_cust.subid,
	u_giveback.cwauditingflag,
	u_spt_amerce.flag
	INTO :s_billinfo.billcode,
	:s_billinfo.billdate,
	:s_billinfo.billamt,
	:s_billinfo.dscrp,
	:s_billinfo.cusid,
	:s_billinfo.sptid,
	:s_billinfo.subid_debit,
	:s_billinfo.subid_credit,
	:s_billinfo.cwauditingflag,
	:s_billinfo.flag
	FROM u_giveback left OUTER join u_cust on
	u_giveback.cusid = u_cust.cusid left OUTER join u_itemdef on
	u_giveback.itemid = u_itemdef.itemid
	WHERE u_giveback.givebackid = :arg_billid
	And u_giveback.scid = :arg_scid;
IF sqlca.SQLCode <> 0 THEN
	arg_msg = '查询 '+ls_billname+' 信息及相关会计科目信息失败,'+sqlca.SQLErrText
	rslt = 0
	GOTO ext
END IF

IF s_billinfo.flag = 0 THEN
	arg_msg = ls_billname + ' 未审核,请检查'
	rslt = 0
	GOTO ext
END IF

IF s_billinfo.cwauditingflag = 1 THEN
	arg_msg = ls_billname + ' 已会计审,请检查'
	rslt = 0
	GOTO ext
END IF

IF s_billinfo.subid_debit = '' THEN
	arg_msg = ls_billname + ' 费用项目未设置会计科目,请检查'
	rslt = 0
	GOTO ext
END IF

IF s_billinfo.subid_credit = '' THEN
	arg_msg = ls_billname + ' 客户未设置会计科目,请检查'
	rslt = 0
	GOTO ext
END IF

//借
no_mxt++
arg_ref_s_cred.arg_s_credmx[no_mxt].fuluno = no_mxt
arg_ref_s_cred.arg_s_credmx[no_mxt].brief = s_billinfo.dscrp
arg_ref_s_cred.arg_s_credmx[no_mxt].rate = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].rawdebit = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].rawcredit = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].amount = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].price = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].deptid = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].itemid = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].billdate = null_dt
arg_ref_s_cred.arg_s_credmx[no_mxt].billid = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].billno = ''
arg_ref_s_cred.arg_s_credmx[no_mxt].cropbillid = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].ifreadonly = 1


arg_ref_s_cred.arg_s_credmx[no_mxt].subid = s_billinfo.subid_debit
arg_ref_s_cred.arg_s_credmx[no_mxt].debit = s_billinfo.billamt
arg_ref_s_cred.arg_s_credmx[no_mxt].credit = 0
IF uof_get_subject(s_billinfo.subid_debit,li_hscust,li_hsspt,arg_msg) = 0 THEN
	rslt = 0
	GOTO ext
END IF
IF li_hsspt = 1 THEN
	arg_ref_s_cred.arg_s_credmx[no_mxt].sptid = s_billinfo.sptid
ELSE
	arg_ref_s_cred.arg_s_credmx[no_mxt].sptid = 0
END IF

//贷
no_mxt++
arg_ref_s_cred.arg_s_credmx[no_mxt].fuluno = no_mxt
arg_ref_s_cred.arg_s_credmx[no_mxt].brief = s_billinfo.dscrp
arg_ref_s_cred.arg_s_credmx[no_mxt].rate = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].rawdebit = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].rawcredit = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].amount = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].price = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].deptid = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].itemid = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].billdate = null_dt
arg_ref_s_cred.arg_s_credmx[no_mxt].billid = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].billno = ''
arg_ref_s_cred.arg_s_credmx[no_mxt].cropbillid = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].ifreadonly = 1

arg_ref_s_cred.arg_s_credmx[no_mxt].subid = s_billinfo.subid_credit
arg_ref_s_cred.arg_s_credmx[no_mxt].debit = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].credit = s_billinfo.billamt
IF uof_get_subject(s_billinfo.subid_credit,li_hscust,li_hsspt,arg_msg) = 0 THEN
	rslt = 0
	GOTO ext
END IF
IF li_hsspt = 1 THEN
	arg_ref_s_cred.arg_s_credmx[no_mxt].sptid = s_billinfo.sptid
ELSE
	arg_ref_s_cred.arg_s_credmx[no_mxt].sptid = 0
END IF



arg_ref_s_cred.creddate = s_billinfo.billdate
arg_ref_s_cred.reldate = s_billinfo.billdate
arg_ref_s_cred.relcode = s_billinfo.billcode
arg_ref_s_cred.readtype = 0
arg_ref_s_cred.ifauto = 1
arg_ref_s_cred.credtype = arg_s_credport.credtype

ext:

RETURN rslt



























end function

public function integer uof_cwaudit_bill_getinfo06_and_07 (long arg_scid, long arg_billid, s_cred_port arg_s_credport, ref s_credence arg_ref_s_cred, ref string arg_msg);Int rslt = 1
Int li_hscust,li_hsspt
Long no_mxt,i,j,mx = 1
s_bill_to_cred s_billinfo
s_bill_to_credmx s_billmx

String ls_billname
DateTime null_dt
SetNull(null_dt)

ls_billname = arg_s_credport.credname

SELECT u_inware.inwarecode,
	u_inware.indate,
	0,
	u_inware.dscrp,
	0 as cusid,
	u_inware.sptid as sptid,
	u_storage.subid,
	u_spt.subid,
	u_inware.cwauditingflag,
	u_inware.secflag
	INTO :s_billinfo.billcode,
	:s_billinfo.billdate,
	:s_billinfo.billamt,
	:s_billinfo.dscrp,
	:s_billinfo.cusid,
	:s_billinfo.sptid,
	:s_billinfo.subid_debit,
	:s_billinfo.subid_credit,
	:s_billinfo.cwauditingflag,
	:s_billinfo.flag
	FROM u_inware left OUTER join u_spt on
	u_inware.sptid = u_spt.sptid left OUTER join u_storage on
	u_inware.storageid = u_storage.storageid
	WHERE u_inware.inwareid = :arg_billid
	AND u_inware.scid = :arg_scid
	And u_inware.billtype = 1;
	
IF sqlca.SQLCode <> 0 THEN
	arg_msg = '查询 '+ls_billname+' 信息及相关会计科目信息失败,'+sqlca.SQLErrText
	rslt = 0
	GOTO ext
END IF

IF s_billinfo.flag = 0 THEN
	arg_msg = ls_billname + ' 未财务审核,请检查'
	rslt = 0
	GOTO ext
END IF

IF s_billinfo.cwauditingflag = 1 THEN
	arg_msg = ls_billname + ' 已会计审,请检查'
	rslt = 0
	GOTO ext
END IF

IF s_billinfo.subid_credit = '' THEN
	arg_msg = ls_billname + ' 供应商未设置会计科目,请检查'
	rslt = 0
	GOTO ext
END IF

IF arg_s_credport.ifstorage = 1 THEN
	IF s_billinfo.subid_debit = '' THEN
		arg_msg = ls_billname + ' 仓库未设置存货会计科目,请检查'
		rslt = 0
		GOTO ext
	END IF
END IF

DECLARE cur_billmx CURSOR FOR
	SELECT u_inwaremx.bsamt,
	u_mtrldef.mtrlname,
	u_mtrldef.subid
	FROM u_inwaremx INNER join u_mtrldef on
	u_inwaremx.mtrlid = u_mtrldef.mtrlid
	WHERE u_inwaremx.inwareid = :arg_billid
	AND u_inwaremx.scid = :arg_scid
	Order By u_inwaremx.printid;
OPEN cur_billmx;
FETCH cur_billmx Into :s_billmx.mxamt[mx],:s_billmx.mxdscrp[mx],:s_billmx.subid[mx];
DO WHILE sqlca.SQLCode = 0
	s_billinfo.billamt += s_billmx.mxamt[mx]
	mx++
	FETCH cur_billmx Into :s_billmx.mxamt[mx],:s_billmx.mxdscrp[mx],:s_billmx.subid[mx];
LOOP
CLOSE cur_billmx;

mx = mx - 1
IF mx = 0 THEN
	arg_msg = ls_billname + ' 没有单据明细,请检查'
	rslt = 0
	GOTO ext
END IF

IF arg_s_credport.ifstorage = 2 THEN
	FOR j = 1 To mx
		IF s_billmx.subid[j] = '' THEN
			arg_msg = ls_billname + ' 明细行:'+String(j)+',未设置存货会计科目,请检查'
			rslt = 0
			GOTO ext
		END IF
	NEXT
END IF


//借
IF arg_s_credport.ifstorage = 1 THEN
	no_mxt++
	arg_ref_s_cred.arg_s_credmx[no_mxt].fuluno = no_mxt
	arg_ref_s_cred.arg_s_credmx[no_mxt].rate = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].rawdebit = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].rawcredit = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].amount = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].price = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].deptid = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].itemid = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].billdate = null_dt
	arg_ref_s_cred.arg_s_credmx[no_mxt].billid = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].billno = ''
	arg_ref_s_cred.arg_s_credmx[no_mxt].cropbillid = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].ifreadonly = 1
	
	arg_ref_s_cred.arg_s_credmx[no_mxt].brief = Trim(s_billinfo.billcode) + ' ' + Trim(s_billinfo.dscrp)
	arg_ref_s_cred.arg_s_credmx[no_mxt].subid = s_billinfo.subid_debit
	arg_ref_s_cred.arg_s_credmx[no_mxt].debit = s_billinfo.billamt
	arg_ref_s_cred.arg_s_credmx[no_mxt].credit = 0
	
	IF uof_get_subject(s_billinfo.subid_debit,li_hscust,li_hsspt,arg_msg) = 0 THEN
		rslt = 0
		GOTO ext
	END IF
	IF li_hsspt = 1 THEN
		arg_ref_s_cred.arg_s_credmx[no_mxt].sptid = s_billinfo.sptid
	ELSE
		arg_ref_s_cred.arg_s_credmx[no_mxt].sptid = 0
	END IF
ELSEIF arg_s_credport.ifstorage = 2 THEN
	FOR j = 1 To mx
		no_mxt++
		arg_ref_s_cred.arg_s_credmx[no_mxt].fuluno = no_mxt
		arg_ref_s_cred.arg_s_credmx[no_mxt].rate = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].rawdebit = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].rawcredit = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].amount = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].price = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].deptid = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].itemid = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].billdate = null_dt
		arg_ref_s_cred.arg_s_credmx[no_mxt].billid = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].billno = ''
		arg_ref_s_cred.arg_s_credmx[no_mxt].cropbillid = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].ifreadonly = 1
		
		
		arg_ref_s_cred.arg_s_credmx[no_mxt].brief = Trim(s_billinfo.billcode) + ' ' + s_billmx.mxdscrp[j]
		arg_ref_s_cred.arg_s_credmx[no_mxt].subid = s_billmx.subid[j]
		arg_ref_s_cred.arg_s_credmx[no_mxt].debit = s_billmx.mxamt[j]
		arg_ref_s_cred.arg_s_credmx[no_mxt].credit = 0
		
		IF uof_get_subject(s_billmx.subid[j],li_hscust,li_hsspt,arg_msg) = 0 THEN
			rslt = 0
			GOTO ext
		END IF
		
		IF li_hsspt = 1 THEN
			arg_ref_s_cred.arg_s_credmx[no_mxt].sptid = s_billinfo.sptid
		ELSE
			arg_ref_s_cred.arg_s_credmx[no_mxt].sptid = 0
		END IF
	NEXT
END IF
//贷
no_mxt++
arg_ref_s_cred.arg_s_credmx[no_mxt].fuluno = no_mxt
arg_ref_s_cred.arg_s_credmx[no_mxt].rate = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].rawdebit = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].rawcredit = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].amount = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].price = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].deptid = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].itemid = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].billdate = null_dt
arg_ref_s_cred.arg_s_credmx[no_mxt].billid = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].billno = ''
arg_ref_s_cred.arg_s_credmx[no_mxt].cropbillid = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].ifreadonly = 1

arg_ref_s_cred.arg_s_credmx[no_mxt].brief = Trim(s_billinfo.billcode) + ' ' + Trim(s_billinfo.dscrp)
arg_ref_s_cred.arg_s_credmx[no_mxt].subid = s_billinfo.subid_credit
arg_ref_s_cred.arg_s_credmx[no_mxt].debit = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].credit = s_billinfo.billamt

IF uof_get_subject(s_billinfo.subid_credit,li_hscust,li_hsspt,arg_msg) = 0 THEN
	rslt = 0
	GOTO ext
END IF

IF li_hsspt = 1 THEN
	arg_ref_s_cred.arg_s_credmx[no_mxt].sptid = s_billinfo.sptid
ELSE
	arg_ref_s_cred.arg_s_credmx[no_mxt].sptid = 0
END IF


arg_ref_s_cred.creddate = s_billinfo.billdate
arg_ref_s_cred.reldate = s_billinfo.billdate
arg_ref_s_cred.relcode = s_billinfo.billcode
arg_ref_s_cred.readtype = 0
arg_ref_s_cred.ifauto = 1
arg_ref_s_cred.credtype = arg_s_credport.credtype

ext:

RETURN rslt











































end function

public function integer uof_cwaudit_bill_getinfo08 (long arg_scid, long arg_billid, s_cred_port arg_s_credport, ref s_credence arg_ref_s_cred, ref string arg_msg);Int rslt = 1
Int li_hscust,li_hsspt
Long no_mxt,i
s_bill_to_cred s_billinfo

String ls_billname
DateTime null_dt
SetNull(null_dt)

ls_billname = arg_s_credport.credname

SELECT u_spt_amerce.billcode,
	u_spt_amerce.billdate,
	u_spt_amerce.amerceamt,
	u_spt_amerce.amercereason,
	0 as cusid,
	u_spt_amerce.sptid,
	u_itemdef.subid,
	u_spt.subid,
	u_spt_amerce.cwauditingflag,
	u_spt_amerce.flag
	INTO :s_billinfo.billcode,
	:s_billinfo.billdate,
	:s_billinfo.billamt,
	:s_billinfo.dscrp,
	:s_billinfo.cusid,
	:s_billinfo.sptid,
	:s_billinfo.subid_debit,
	:s_billinfo.subid_credit,
	:s_billinfo.cwauditingflag,
	:s_billinfo.flag
	FROM u_spt_amerce left OUTER join u_spt on
	u_spt_amerce.sptid = u_spt.sptid left OUTER join u_itemdef on
	u_spt_amerce.itemid = u_itemdef.itemid
	WHERE u_spt_amerce.billid = :arg_billid
	And u_spt_amerce.scid = :arg_scid;
IF sqlca.SQLCode <> 0 THEN
	arg_msg = '查询 '+ls_billname+' 信息及相关会计科目信息失败,'+sqlca.SQLErrText
	rslt = 0
	GOTO ext
END IF

IF s_billinfo.flag = 0 THEN
	arg_msg = ls_billname + ' 未审核,请检查'
	rslt = 0
	GOTO ext
END IF

IF s_billinfo.cwauditingflag = 1 THEN
	arg_msg = ls_billname + ' 已会计审,请检查'
	rslt = 0
	GOTO ext
END IF

IF s_billinfo.subid_debit = '' THEN
	arg_msg = ls_billname + ' 费用项目未设置会计科目,请检查'
	rslt = 0
	GOTO ext
END IF

IF s_billinfo.subid_credit = '' THEN
	arg_msg = ls_billname + ' 供应商未设置会计科目,请检查'
	rslt = 0
	GOTO ext
END IF

//借
no_mxt++
arg_ref_s_cred.arg_s_credmx[no_mxt].fuluno = no_mxt
arg_ref_s_cred.arg_s_credmx[no_mxt].brief = s_billinfo.dscrp
arg_ref_s_cred.arg_s_credmx[no_mxt].rate = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].rawdebit = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].rawcredit = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].amount = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].price = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].deptid = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].itemid = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].billdate = null_dt
arg_ref_s_cred.arg_s_credmx[no_mxt].billid = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].billno = ''
arg_ref_s_cred.arg_s_credmx[no_mxt].cropbillid = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].ifreadonly = 1


arg_ref_s_cred.arg_s_credmx[no_mxt].subid = s_billinfo.subid_debit
arg_ref_s_cred.arg_s_credmx[no_mxt].debit = s_billinfo.billamt
arg_ref_s_cred.arg_s_credmx[no_mxt].credit = 0
IF uof_get_subject(s_billinfo.subid_debit,li_hscust,li_hsspt,arg_msg) = 0 THEN
	rslt = 0
	GOTO ext
END IF
IF li_hsspt = 1 THEN
	arg_ref_s_cred.arg_s_credmx[no_mxt].sptid = s_billinfo.sptid
ELSE
	arg_ref_s_cred.arg_s_credmx[no_mxt].sptid = 0
END IF
//贷
no_mxt++
arg_ref_s_cred.arg_s_credmx[no_mxt].fuluno = no_mxt
arg_ref_s_cred.arg_s_credmx[no_mxt].brief = s_billinfo.dscrp
arg_ref_s_cred.arg_s_credmx[no_mxt].rate = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].rawdebit = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].rawcredit = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].amount = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].price = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].deptid = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].itemid = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].billdate = null_dt
arg_ref_s_cred.arg_s_credmx[no_mxt].billid = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].billno = ''
arg_ref_s_cred.arg_s_credmx[no_mxt].cropbillid = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].ifreadonly = 1
arg_ref_s_cred.arg_s_credmx[no_mxt].subid = s_billinfo.subid_credit
arg_ref_s_cred.arg_s_credmx[no_mxt].debit = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].credit = s_billinfo.billamt
IF uof_get_subject(s_billinfo.subid_credit,li_hscust,li_hsspt,arg_msg) = 0 THEN
	rslt = 0
	GOTO ext
END IF
IF li_hsspt = 1 THEN
	arg_ref_s_cred.arg_s_credmx[no_mxt].sptid = s_billinfo.sptid
ELSE
	arg_ref_s_cred.arg_s_credmx[no_mxt].sptid = 0
END IF


arg_ref_s_cred.creddate = s_billinfo.billdate
arg_ref_s_cred.reldate = s_billinfo.billdate
arg_ref_s_cred.relcode = s_billinfo.billcode
arg_ref_s_cred.readtype = 0
arg_ref_s_cred.ifauto = 1
arg_ref_s_cred.credtype = arg_s_credport.credtype

ext:

RETURN rslt



























end function

public function integer uof_cwaudit_bill_getinfo09 (long arg_scid, long arg_billid, s_cred_port arg_s_credport, ref s_credence arg_ref_s_cred, ref string arg_msg);Int rslt = 1
Int li_hscust,li_hsspt
Long no_mxt,i,j,mx = 1
s_bill_to_cred s_billinfo
s_bill_to_credmx s_billmx

String ls_billname
DateTime null_dt
SetNull(null_dt)

ls_billname = arg_s_credport.credname

SELECT u_reissue.reissuecode,
	u_reissue.reissuedate,
	0,
	u_reissue.dscrp,
	0 as cusid,
	u_reissue.cusid,
	'',
	u_spt.subid,
	u_reissue.cwauditingflag,
	u_reissue.flag
	INTO :s_billinfo.billcode,
	:s_billinfo.billdate,
	:s_billinfo.billamt,
	:s_billinfo.dscrp,
	:s_billinfo.cusid,
	:s_billinfo.sptid,
	:s_billinfo.subid_debit,
	:s_billinfo.subid_credit,
	:s_billinfo.cwauditingflag,
	:s_billinfo.flag
	FROM u_reissue left OUTER join u_spt on
	u_reissue.cusid = u_spt.sptid
	WHERE u_reissue.reissueid = :arg_billid
	And u_reissue.scid = :arg_scid;
	
IF sqlca.SQLCode <> 0 THEN
	arg_msg = '查询 '+ls_billname+' 信息及相关会计科目信息失败,'+sqlca.SQLErrText
	rslt = 0
	GOTO ext
END IF

IF s_billinfo.flag = 0 THEN
	arg_msg = ls_billname + ' 未审核,请检查'
	rslt = 0
	GOTO ext
END IF

IF s_billinfo.cwauditingflag = 1 THEN
	arg_msg = ls_billname + ' 已会计审,请检查'
	rslt = 0
	GOTO ext
END IF

IF s_billinfo.subid_credit = '' THEN
	arg_msg = ls_billname + ' 供应商未设置会计科目,请检查'
	rslt = 0
	GOTO ext
END IF

DECLARE cur_billmx CURSOR FOR
	SELECT u_reissuemx.amt,
	u_reissuemx.dscrp,
	U_Expenses.subid
	FROM u_reissuemx left OUTER join U_Expenses on
	u_reissuemx.mtrlid = U_Expenses.ExpensesID
	WHERE u_reissuemx.reissueid = :arg_billid
	AND u_reissuemx.scid = :arg_scid
	Order By u_reissuemx.printid;
OPEN cur_billmx;
FETCH cur_billmx Into :s_billmx.mxamt[mx],:s_billmx.mxdscrp[mx],:s_billmx.subid[mx];
DO WHILE sqlca.SQLCode = 0
	s_billinfo.billamt += s_billmx.mxamt[mx]
	mx++
	FETCH cur_billmx Into :s_billmx.mxamt[mx],:s_billmx.mxdscrp[mx],:s_billmx.subid[mx];
LOOP
CLOSE cur_billmx;

mx = mx - 1
IF mx = 0 THEN
	arg_msg = ls_billname + ' 没有单据明细,请检查'
	rslt = 0
	GOTO ext
END IF

FOR j = 1 To mx
	IF s_billmx.subid[j] = '' THEN
		arg_msg = ls_billname + ' 明细行:'+String(j)+',未设置会计科目,请检查'
		rslt = 0
		GOTO ext
	END IF
NEXT

//借
FOR j = 1 To mx
	no_mxt++
	arg_ref_s_cred.arg_s_credmx[no_mxt].fuluno = no_mxt
	arg_ref_s_cred.arg_s_credmx[no_mxt].rate = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].rawdebit = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].rawcredit = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].amount = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].price = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].deptid = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].itemid = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].billdate = null_dt
	arg_ref_s_cred.arg_s_credmx[no_mxt].billid = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].billno = ''
	arg_ref_s_cred.arg_s_credmx[no_mxt].cropbillid = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].ifreadonly = 1
	
	arg_ref_s_cred.arg_s_credmx[no_mxt].brief = s_billmx.mxdscrp[j]
	arg_ref_s_cred.arg_s_credmx[no_mxt].subid = s_billmx.subid[j]
	arg_ref_s_cred.arg_s_credmx[no_mxt].debit = s_billmx.mxamt[j]
	arg_ref_s_cred.arg_s_credmx[no_mxt].credit = 0
	
	IF uof_get_subject(s_billmx.subid[j],li_hscust,li_hsspt,arg_msg) = 0 THEN
		rslt = 0
		GOTO ext
	END IF
	IF li_hsspt = 1 THEN
		arg_ref_s_cred.arg_s_credmx[no_mxt].sptid = s_billinfo.sptid
	ELSE
		arg_ref_s_cred.arg_s_credmx[no_mxt].sptid = 0
	END IF
NEXT
//贷
no_mxt++
arg_ref_s_cred.arg_s_credmx[no_mxt].fuluno = no_mxt
arg_ref_s_cred.arg_s_credmx[no_mxt].rate = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].rawdebit = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].rawcredit = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].amount = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].price = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].deptid = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].itemid = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].billdate = null_dt
arg_ref_s_cred.arg_s_credmx[no_mxt].billid = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].billno = ''
arg_ref_s_cred.arg_s_credmx[no_mxt].cropbillid = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].ifreadonly = 1

arg_ref_s_cred.arg_s_credmx[no_mxt].brief = s_billinfo.dscrp
arg_ref_s_cred.arg_s_credmx[no_mxt].subid = s_billinfo.subid_credit
arg_ref_s_cred.arg_s_credmx[no_mxt].debit = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].credit = s_billinfo.billamt

IF uof_get_subject(s_billinfo.subid_credit,li_hscust,li_hsspt,arg_msg) = 0 THEN
	rslt = 0
	GOTO ext
END IF
IF li_hsspt = 1 THEN
	arg_ref_s_cred.arg_s_credmx[no_mxt].sptid = s_billinfo.sptid
ELSE
	arg_ref_s_cred.arg_s_credmx[no_mxt].sptid = 0
END IF



arg_ref_s_cred.creddate = s_billinfo.billdate
arg_ref_s_cred.reldate = s_billinfo.billdate
arg_ref_s_cred.relcode = s_billinfo.billcode
arg_ref_s_cred.readtype = 0
arg_ref_s_cred.ifauto = 1
arg_ref_s_cred.credtype = arg_s_credport.credtype

ext:

RETURN rslt









































end function

public function integer uof_cwaudit_bill_getinfo14 (long arg_scid, long arg_billid, s_cred_port arg_s_credport, ref s_credence arg_ref_s_cred, ref string arg_msg);Int rslt = 1
Long no_mxt,i,j,mx = 1
s_bill_to_cred s_billinfo
s_bill_to_credmx s_billmx

String ls_billname
DateTime null_dt
SetNull(null_dt)

ls_billname = arg_s_credport.credname


SELECT u_outware.outwarecode,
	u_outware.outdate,
	0,
	u_outware.dscrp,
	0 as cusid,
	0 as sptid,
	u_storage.subid_scll,
	u_storage.subid,
	u_outware.cwauditingflag,
	u_outware.flag
	INTO :s_billinfo.billcode,
	:s_billinfo.billdate,
	:s_billinfo.billamt,
	:s_billinfo.dscrp,
	:s_billinfo.cusid,
	:s_billinfo.sptid,
	:s_billinfo.subid_debit,
	:s_billinfo.subid_credit,
	:s_billinfo.cwauditingflag,
	:s_billinfo.flag
	FROM u_outware left OUTER join u_storage on
	u_outware.storageid = u_storage.storageid
	WHERE u_outware.outwareid = :arg_billid
	AND u_outware.scid = :arg_scid
	And u_outware.billtype = 3;
	
IF sqlca.SQLCode <> 0 THEN
	arg_msg = '查询 '+ls_billname+' 信息及相关会计科目信息失败,'+sqlca.SQLErrText
	rslt = 0
	GOTO ext
END IF

IF s_billinfo.flag = 0 THEN
	arg_msg = ls_billname + ' 未仓库审核,请检查'
	rslt = 0
	GOTO ext
END IF

IF s_billinfo.cwauditingflag = 1 THEN
	arg_msg = ls_billname + ' 已会计审,请检查'
	rslt = 0
	GOTO ext
END IF

IF arg_s_credport.ifstorage = 1 THEN
	IF s_billinfo.subid_debit = '' THEN
		arg_msg = ls_billname + ' 仓库未设置领料会计科目,请检查'
		rslt = 0
		GOTO ext
	END IF
	
	IF s_billinfo.subid_credit = '' THEN
		arg_msg = ls_billname + ' 仓库未设置存货会计科目,请检查'
		rslt = 0
		GOTO ext
	END IF
END IF

DECLARE cur_billmx CURSOR FOR
	SELECT u_inwaremx.costamt,
	u_mtrldef.mtrlname,
	u_mtrldef.subid_scll,
	u_mtrldef.subid
	FROM u_inwaremx INNER join u_mtrldef on
	u_inwaremx.mtrlid = u_mtrldef.mtrlid
	WHERE u_inwaremx.inwareid = :arg_billid
	AND u_inwaremx.scid = :arg_scid
	Order By u_inwaremx.printid;
OPEN cur_billmx;
FETCH cur_billmx Into :s_billmx.mxamt[mx],:s_billmx.mxdscrp[mx],:s_billmx.subid[mx],:s_billmx.subid2[mx];
DO WHILE sqlca.SQLCode = 0
	s_billinfo.billamt += s_billmx.mxamt[mx]
	mx++
	FETCH cur_billmx Into :s_billmx.mxamt[mx],:s_billmx.mxdscrp[mx],:s_billmx.subid[mx],:s_billmx.subid2[mx];
LOOP
CLOSE cur_billmx;

mx = mx - 1
IF mx = 0 THEN
	arg_msg = ls_billname + ' 没有单据明细,请检查'
	rslt = 0
	GOTO ext
END IF

IF arg_s_credport.ifstorage = 2 THEN
	FOR j = 1 To mx
		IF s_billmx.subid[j] = '' THEN
			arg_msg = ls_billname + ' 明细行:'+String(j)+',未设置领料会计科目,请检查'
			rslt = 0
			GOTO ext
		END IF
		
		IF s_billmx.subid2[j] = '' THEN
			arg_msg = ls_billname + ' 明细行:'+String(j)+',未设置存货会计科目,请检查'
			rslt = 0
			GOTO ext
		END IF
	NEXT
END IF

//借
IF arg_s_credport.ifstorage = 1 THEN
	no_mxt++
	arg_ref_s_cred.arg_s_credmx[no_mxt].fuluno = no_mxt
	arg_ref_s_cred.arg_s_credmx[no_mxt].rate = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].rawdebit = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].rawcredit = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].amount = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].price = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].deptid = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].itemid = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].billdate = null_dt
	arg_ref_s_cred.arg_s_credmx[no_mxt].billid = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].billno = ''
	arg_ref_s_cred.arg_s_credmx[no_mxt].cropbillid = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].ifreadonly = 1
	
	arg_ref_s_cred.arg_s_credmx[no_mxt].brief = Trim(s_billinfo.billcode) + ' ' + Trim(s_billinfo.dscrp)
	arg_ref_s_cred.arg_s_credmx[no_mxt].subid = s_billinfo.subid_debit
	arg_ref_s_cred.arg_s_credmx[no_mxt].debit = s_billinfo.billamt
	arg_ref_s_cred.arg_s_credmx[no_mxt].credit = 0
	
ELSEIF arg_s_credport.ifstorage = 2 THEN
	FOR j = 1 To mx
		no_mxt++
		arg_ref_s_cred.arg_s_credmx[no_mxt].fuluno = no_mxt
		arg_ref_s_cred.arg_s_credmx[no_mxt].rate = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].rawdebit = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].rawcredit = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].amount = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].price = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].deptid = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].itemid = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].billdate = null_dt
		arg_ref_s_cred.arg_s_credmx[no_mxt].billid = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].billno = ''
		arg_ref_s_cred.arg_s_credmx[no_mxt].cropbillid = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].ifreadonly = 1
		
		
		arg_ref_s_cred.arg_s_credmx[no_mxt].brief = Trim(s_billinfo.billcode) + ' ' + s_billmx.mxdscrp[j]
		arg_ref_s_cred.arg_s_credmx[no_mxt].subid = s_billmx.subid[j]
		arg_ref_s_cred.arg_s_credmx[no_mxt].debit = s_billmx.mxamt[j]
		arg_ref_s_cred.arg_s_credmx[no_mxt].credit = 0
	NEXT
END IF


//贷
IF arg_s_credport.ifstorage = 1 THEN
	no_mxt++
	arg_ref_s_cred.arg_s_credmx[no_mxt].fuluno = no_mxt
	arg_ref_s_cred.arg_s_credmx[no_mxt].rate = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].rawdebit = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].rawcredit = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].amount = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].price = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].deptid = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].itemid = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].billdate = null_dt
	arg_ref_s_cred.arg_s_credmx[no_mxt].billid = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].billno = ''
	arg_ref_s_cred.arg_s_credmx[no_mxt].cropbillid = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].ifreadonly = 1
	
	arg_ref_s_cred.arg_s_credmx[no_mxt].brief = Trim(s_billinfo.billcode) + ' ' + Trim(s_billinfo.dscrp)
	arg_ref_s_cred.arg_s_credmx[no_mxt].subid = s_billinfo.subid_credit
	arg_ref_s_cred.arg_s_credmx[no_mxt].debit = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].credit = s_billinfo.billamt
ELSEIF arg_s_credport.ifstorage = 2 THEN
	FOR j = 1 To mx
		no_mxt++
		arg_ref_s_cred.arg_s_credmx[no_mxt].fuluno = no_mxt
		arg_ref_s_cred.arg_s_credmx[no_mxt].rate = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].rawdebit = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].rawcredit = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].amount = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].price = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].deptid = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].itemid = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].billdate = null_dt
		arg_ref_s_cred.arg_s_credmx[no_mxt].billid = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].billno = ''
		arg_ref_s_cred.arg_s_credmx[no_mxt].cropbillid = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].ifreadonly = 1
		
		
		arg_ref_s_cred.arg_s_credmx[no_mxt].brief = Trim(s_billinfo.billcode) + ' ' + s_billmx.mxdscrp[j]
		arg_ref_s_cred.arg_s_credmx[no_mxt].subid = s_billmx.subid2[j]
		arg_ref_s_cred.arg_s_credmx[no_mxt].debit = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].credit = s_billmx.mxamt[j]
	NEXT
END IF


arg_ref_s_cred.creddate = s_billinfo.billdate
arg_ref_s_cred.reldate = s_billinfo.billdate
arg_ref_s_cred.relcode = s_billinfo.billcode
arg_ref_s_cred.readtype = 0
arg_ref_s_cred.ifauto = 1
arg_ref_s_cred.credtype = arg_s_credport.credtype

ext:

RETURN rslt












































end function

public function integer uof_cwaudit_bill_getinfo15 (long arg_scid, long arg_billid, s_cred_port arg_s_credport, ref s_credence arg_ref_s_cred, ref string arg_msg);Int rslt = 1
Long no_mxt,i,j,mx = 1
s_bill_to_cred s_billinfo
s_bill_to_credmx s_billmx

String ls_billname
DateTime null_dt
SetNull(null_dt)

ls_billname = arg_s_credport.credname

SELECT u_outware.outwarecode,
	u_outware.outdate,
	0,
	u_outware.dscrp,
	0 as cusid,
	0 as sptid,
	u_static.subid,
	u_storage.subid,
	u_outware.cwauditingflag,
	u_outware.flag
	INTO :s_billinfo.billcode,
	:s_billinfo.billdate,
	:s_billinfo.billamt,
	:s_billinfo.dscrp,
	:s_billinfo.cusid,
	:s_billinfo.sptid,
	:s_billinfo.subid_debit,
	:s_billinfo.subid_credit,
	:s_billinfo.cwauditingflag,
	:s_billinfo.flag
	FROM u_outware left OUTER join u_static on
	u_outware.staticid = u_static.staticid left OUTER join u_storage on
	u_outware.storageid = u_storage.storageid
	WHERE u_outware.outwareid = :arg_billid
	AND u_outware.scid = :arg_scid
	And u_outware.billtype = 8;
	
IF sqlca.SQLCode <> 0 THEN
	arg_msg = '查询 '+ls_billname+' 信息及相关会计科目信息失败,'+sqlca.SQLErrText
	rslt = 0
	GOTO ext
END IF

IF s_billinfo.flag = 0 THEN
	arg_msg = ls_billname + ' 未仓库审核,请检查'
	rslt = 0
	GOTO ext
END IF

IF s_billinfo.cwauditingflag = 1 THEN
	arg_msg = ls_billname + ' 已会计审,请检查'
	rslt = 0
	GOTO ext
END IF

IF s_billinfo.subid_debit = '' THEN
	arg_msg = ls_billname + ' 出仓原因未设置会计科目,请检查'
	rslt = 0
	GOTO ext
END IF

IF arg_s_credport.ifstorage = 1 THEN
	IF s_billinfo.subid_credit = '' THEN
		arg_msg = ls_billname + ' 仓库未设置存货会计科目,请检查'
		rslt = 0
		GOTO ext
	END IF
END IF

DECLARE cur_billmx CURSOR FOR
	SELECT u_outwaremx.costamt,
	u_mtrldef.mtrlname,
	u_mtrldef.subid
	FROM u_outwaremx INNER join u_mtrldef on
	u_outwaremx.mtrlid = u_mtrldef.mtrlid
	WHERE u_outwaremx.outwareid = :arg_billid
	AND u_outwaremx.scid = :arg_scid
	Order By u_outwaremx.printid;
OPEN cur_billmx;
FETCH cur_billmx Into :s_billmx.mxamt[mx],:s_billmx.mxdscrp[mx],:s_billmx.subid[mx];
DO WHILE sqlca.SQLCode = 0
	s_billinfo.billamt += s_billmx.mxamt[mx]
	mx++
	FETCH cur_billmx Into :s_billmx.mxamt[mx],:s_billmx.mxdscrp[mx],:s_billmx.subid[mx];
LOOP
CLOSE cur_billmx;

mx = mx - 1
IF mx = 0 THEN
	arg_msg = ls_billname + ' 没有单据明细,请检查'
	rslt = 0
	GOTO ext
END IF

IF arg_s_credport.ifstorage = 2 THEN
	FOR j = 1 To mx
		IF s_billmx.subid[j] = '' THEN
			arg_msg = ls_billname + ' 明细行:'+String(j)+',未设置存货会计科目,请检查'
			rslt = 0
			GOTO ext
		END IF
	NEXT
END IF

//借
no_mxt++
arg_ref_s_cred.arg_s_credmx[no_mxt].fuluno = no_mxt
arg_ref_s_cred.arg_s_credmx[no_mxt].rate = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].rawdebit = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].rawcredit = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].amount = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].price = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].deptid = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].itemid = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].billdate = null_dt
arg_ref_s_cred.arg_s_credmx[no_mxt].billid = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].billno = ''
arg_ref_s_cred.arg_s_credmx[no_mxt].cropbillid = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].ifreadonly = 1

arg_ref_s_cred.arg_s_credmx[no_mxt].brief = Trim(s_billinfo.billcode) + ' ' + Trim(s_billinfo.dscrp)
arg_ref_s_cred.arg_s_credmx[no_mxt].subid = s_billinfo.subid_debit
arg_ref_s_cred.arg_s_credmx[no_mxt].debit = s_billinfo.billamt
arg_ref_s_cred.arg_s_credmx[no_mxt].credit = 0


//贷
IF arg_s_credport.ifstorage = 1 THEN
	no_mxt++
	arg_ref_s_cred.arg_s_credmx[no_mxt].fuluno = no_mxt
	arg_ref_s_cred.arg_s_credmx[no_mxt].rate = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].rawdebit = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].rawcredit = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].amount = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].price = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].deptid = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].itemid = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].billdate = null_dt
	arg_ref_s_cred.arg_s_credmx[no_mxt].billid = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].billno = ''
	arg_ref_s_cred.arg_s_credmx[no_mxt].cropbillid = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].ifreadonly = 1
	
	arg_ref_s_cred.arg_s_credmx[no_mxt].brief = Trim(s_billinfo.billcode) + ' ' + Trim(s_billinfo.dscrp)
	arg_ref_s_cred.arg_s_credmx[no_mxt].subid = s_billinfo.subid_credit
	arg_ref_s_cred.arg_s_credmx[no_mxt].debit = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].credit = s_billinfo.billamt
ELSEIF arg_s_credport.ifstorage = 2 THEN
	FOR j = 1 To mx
		no_mxt++
		arg_ref_s_cred.arg_s_credmx[no_mxt].fuluno = no_mxt
		arg_ref_s_cred.arg_s_credmx[no_mxt].rate = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].rawdebit = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].rawcredit = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].amount = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].price = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].deptid = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].itemid = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].billdate = null_dt
		arg_ref_s_cred.arg_s_credmx[no_mxt].billid = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].billno = ''
		arg_ref_s_cred.arg_s_credmx[no_mxt].cropbillid = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].ifreadonly = 1
		
		
		arg_ref_s_cred.arg_s_credmx[no_mxt].brief = Trim(s_billinfo.billcode) + ' ' + s_billmx.mxdscrp[j]
		arg_ref_s_cred.arg_s_credmx[no_mxt].subid = s_billmx.subid2[j]
		arg_ref_s_cred.arg_s_credmx[no_mxt].debit = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].credit = s_billmx.mxamt[j]
	NEXT
END IF


arg_ref_s_cred.creddate = s_billinfo.billdate
arg_ref_s_cred.reldate = s_billinfo.billdate
arg_ref_s_cred.relcode = s_billinfo.billcode
arg_ref_s_cred.readtype = 0
arg_ref_s_cred.ifauto = 1
arg_ref_s_cred.credtype = arg_s_credport.credtype

ext:

RETURN rslt












































end function

public function integer uof_cwaudit_bill_getinfo16 (long arg_scid, long arg_billid, s_cred_port arg_s_credport, ref s_credence arg_ref_s_cred, ref string arg_msg);Int rslt = 1
Long no_mxt,i,j,mx = 1
s_bill_to_cred s_billinfo
s_bill_to_credmx s_billmx

String ls_billname
DateTime null_dt
SetNull(null_dt)

ls_billname = arg_s_credport.credname

SELECT u_outware.outwarecode,
	u_outware.outdate,
	0,
	u_outware.dscrp,
	0 as cusid,
	0 as sptid,
	u_storage.subid_pk,
	u_storage.subid,
	u_outware.cwauditingflag,
	u_outware.flag
	INTO :s_billinfo.billcode,
	:s_billinfo.billdate,
	:s_billinfo.billamt,
	:s_billinfo.dscrp,
	:s_billinfo.cusid,
	:s_billinfo.sptid,
	:s_billinfo.subid_debit,
	:s_billinfo.subid_credit,
	:s_billinfo.cwauditingflag,
	:s_billinfo.flag
	FROM u_outware left OUTER join u_storage on
	u_outware.storageid = u_storage.storageid
	WHERE u_outware.outwareid = :arg_billid
	AND u_outware.scid = :arg_scid
	And u_outware.billtype = 9;
	
IF sqlca.SQLCode <> 0 THEN
	arg_msg = '查询 '+ls_billname+' 信息及相关会计科目信息失败,'+sqlca.SQLErrText
	rslt = 0
	GOTO ext
END IF

IF s_billinfo.flag = 0 THEN
	arg_msg = ls_billname + ' 未仓库审核,请检查'
	rslt = 0
	GOTO ext
END IF

IF s_billinfo.cwauditingflag = 1 THEN
	arg_msg = ls_billname + ' 已会计审,请检查'
	rslt = 0
	GOTO ext
END IF

IF arg_s_credport.ifstorage = 1 THEN
	IF s_billinfo.subid_debit = '' THEN
		arg_msg = ls_billname + ' 仓库未设置盘亏会计科目,请检查'
		rslt = 0
		GOTO ext
	END IF
	
	IF s_billinfo.subid_credit = '' THEN
		arg_msg = ls_billname + ' 仓库未设置存货会计科目,请检查'
		rslt = 0
		GOTO ext
	END IF
END IF

DECLARE cur_billmx CURSOR FOR
	SELECT u_inwaremx.bsamt,
	u_mtrldef.mtrlname,
	u_mtrldef.subid_pk,
	u_mtrldef.subid
	FROM u_inwaremx INNER join u_mtrldef on
	u_inwaremx.mtrlid = u_mtrldef.mtrlid
	WHERE u_inwaremx.inwareid = :arg_billid
	AND u_inwaremx.scid = :arg_scid
	Order By u_inwaremx.printid;
OPEN cur_billmx;
FETCH cur_billmx Into :s_billmx.mxamt[mx],:s_billmx.mxdscrp[mx],:s_billmx.subid[mx],:s_billmx.subid2[mx];
DO WHILE sqlca.SQLCode = 0
	s_billinfo.billamt += s_billmx.mxamt[mx]
	mx++
	FETCH cur_billmx Into :s_billmx.mxamt[mx],:s_billmx.mxdscrp[mx],:s_billmx.subid[mx],:s_billmx.subid2[mx];
LOOP
CLOSE cur_billmx;

mx = mx - 1
IF mx = 0 THEN
	arg_msg = ls_billname + ' 没有单据明细,请检查'
	rslt = 0
	GOTO ext
END IF

IF arg_s_credport.ifstorage = 2 THEN
	FOR j = 1 To mx
		IF s_billmx.subid[j] = '' THEN
			arg_msg = ls_billname + ' 明细行:'+String(j)+',未设置盘亏会计科目,请检查'
			rslt = 0
			GOTO ext
		END IF
		
		IF s_billmx.subid2[j] = '' THEN
			arg_msg = ls_billname + ' 明细行:'+String(j)+',未设置存货会计科目,请检查'
			rslt = 0
			GOTO ext
		END IF
	NEXT
END IF

//借
IF arg_s_credport.ifstorage = 1 THEN
	no_mxt++
	arg_ref_s_cred.arg_s_credmx[no_mxt].fuluno = no_mxt
	arg_ref_s_cred.arg_s_credmx[no_mxt].rate = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].rawdebit = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].rawcredit = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].amount = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].price = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].deptid = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].itemid = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].billdate = null_dt
	arg_ref_s_cred.arg_s_credmx[no_mxt].billid = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].billno = ''
	arg_ref_s_cred.arg_s_credmx[no_mxt].cropbillid = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].ifreadonly = 1
	
	arg_ref_s_cred.arg_s_credmx[no_mxt].brief = Trim(s_billinfo.billcode) + ' ' + Trim(s_billinfo.dscrp)
	arg_ref_s_cred.arg_s_credmx[no_mxt].subid = s_billinfo.subid_debit
	arg_ref_s_cred.arg_s_credmx[no_mxt].debit = s_billinfo.billamt
	arg_ref_s_cred.arg_s_credmx[no_mxt].credit = 0
	
ELSEIF arg_s_credport.ifstorage = 2 THEN
	FOR j = 1 To mx
		no_mxt++
		arg_ref_s_cred.arg_s_credmx[no_mxt].fuluno = no_mxt
		arg_ref_s_cred.arg_s_credmx[no_mxt].rate = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].rawdebit = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].rawcredit = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].amount = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].price = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].deptid = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].itemid = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].billdate = null_dt
		arg_ref_s_cred.arg_s_credmx[no_mxt].billid = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].billno = ''
		arg_ref_s_cred.arg_s_credmx[no_mxt].cropbillid = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].ifreadonly = 1
		
		
		arg_ref_s_cred.arg_s_credmx[no_mxt].brief = Trim(s_billinfo.billcode) + ' ' + s_billmx.mxdscrp[j]
		arg_ref_s_cred.arg_s_credmx[no_mxt].subid = s_billmx.subid[j]
		arg_ref_s_cred.arg_s_credmx[no_mxt].debit = s_billmx.mxamt[j]
		arg_ref_s_cred.arg_s_credmx[no_mxt].credit = 0
	NEXT
END IF
//贷
IF arg_s_credport.ifstorage = 1 THEN
	no_mxt++
	arg_ref_s_cred.arg_s_credmx[no_mxt].fuluno = no_mxt
	arg_ref_s_cred.arg_s_credmx[no_mxt].rate = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].rawdebit = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].rawcredit = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].amount = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].price = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].deptid = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].itemid = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].billdate = null_dt
	arg_ref_s_cred.arg_s_credmx[no_mxt].billid = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].billno = ''
	arg_ref_s_cred.arg_s_credmx[no_mxt].cropbillid = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].ifreadonly = 1
	
	arg_ref_s_cred.arg_s_credmx[no_mxt].brief = Trim(s_billinfo.billcode) + ' ' + Trim(s_billinfo.dscrp)
	arg_ref_s_cred.arg_s_credmx[no_mxt].subid = s_billinfo.subid_credit
	arg_ref_s_cred.arg_s_credmx[no_mxt].debit = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].credit = s_billinfo.billamt
ELSEIF arg_s_credport.ifstorage = 2 THEN
	FOR j = 1 To mx
		no_mxt++
		arg_ref_s_cred.arg_s_credmx[no_mxt].fuluno = no_mxt
		arg_ref_s_cred.arg_s_credmx[no_mxt].rate = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].rawdebit = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].rawcredit = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].amount = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].price = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].deptid = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].itemid = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].billdate = null_dt
		arg_ref_s_cred.arg_s_credmx[no_mxt].billid = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].billno = ''
		arg_ref_s_cred.arg_s_credmx[no_mxt].cropbillid = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].ifreadonly = 1
		
		
		arg_ref_s_cred.arg_s_credmx[no_mxt].brief = Trim(s_billinfo.billcode) + ' ' + s_billmx.mxdscrp[j]
		arg_ref_s_cred.arg_s_credmx[no_mxt].subid = s_billmx.subid2[j]
		arg_ref_s_cred.arg_s_credmx[no_mxt].debit = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].credit = s_billmx.mxamt[j]
	NEXT
END IF

arg_ref_s_cred.creddate = s_billinfo.billdate
arg_ref_s_cred.reldate = s_billinfo.billdate
arg_ref_s_cred.relcode = s_billinfo.billcode
arg_ref_s_cred.readtype = 0
arg_ref_s_cred.ifauto = 1
arg_ref_s_cred.credtype = arg_s_credport.credtype

ext:

RETURN rslt












































end function

public function integer uof_cwaudit_bill_getinfo17 (long arg_scid, long arg_billid, s_cred_port arg_s_credport, ref s_credence arg_ref_s_cred, ref string arg_msg);Int rslt = 1
Long no_mxt,i,j,mx = 1
s_bill_to_cred s_billinfo
s_bill_to_credmx s_billmx

String ls_billname
DateTime null_dt
SetNull(null_dt)

ls_billname = arg_s_credport.credname

SELECT u_inware.inwarecode,
	u_inware.indate,
	0,
	u_inware.dscrp,
	0 as cusid,
	0 as sptid,
	u_storage.subid,
	u_storage.subid_scll,
	u_inware.cwauditingflag,
	u_inware.flag
	INTO :s_billinfo.billcode,
	:s_billinfo.billdate,
	:s_billinfo.billamt,
	:s_billinfo.dscrp,
	:s_billinfo.cusid,
	:s_billinfo.sptid,
	:s_billinfo.subid_debit,
	:s_billinfo.subid_credit,
	:s_billinfo.cwauditingflag,
	:s_billinfo.flag
	FROM u_inware left OUTER join u_static on
	u_inware.staticid = u_static.staticid left OUTER join u_storage on
	u_inware.storageid = u_storage.storageid
	WHERE u_inware.inwareid = :arg_billid
	AND u_inware.scid = :arg_scid
	And u_inware.billtype = 3;
	
IF sqlca.SQLCode <> 0 THEN
	arg_msg = '查询 '+ls_billname+' 信息及相关会计科目信息失败,'+sqlca.SQLErrText
	rslt = 0
	GOTO ext
END IF

IF s_billinfo.flag = 0 THEN
	arg_msg = ls_billname + ' 未仓库审核,请检查'
	rslt = 0
	GOTO ext
END IF

IF s_billinfo.cwauditingflag = 1 THEN
	arg_msg = ls_billname + ' 已会计审,请检查'
	rslt = 0
	GOTO ext
END IF

IF arg_s_credport.ifstorage = 1 THEN
	IF s_billinfo.subid_debit = '' THEN
		arg_msg = ls_billname + ' 仓库未设置存货会计科目,请检查'
		rslt = 0
		GOTO ext
	END IF
	
	IF s_billinfo.subid_credit = '' THEN
		arg_msg = ls_billname + ' 仓库未设置领料会计科目,请检查'
		rslt = 0
		GOTO ext
	END IF
END IF

DECLARE cur_billmx CURSOR FOR
	SELECT u_inwaremx.bsamt,
	u_mtrldef.mtrlname,
	u_mtrldef.subid,
	u_mtrldef.subid_scll
	FROM u_inwaremx INNER join u_mtrldef on
	u_inwaremx.mtrlid = u_mtrldef.mtrlid
	WHERE u_inwaremx.inwareid = :arg_billid
	AND u_inwaremx.scid = :arg_scid
	Order By u_inwaremx.printid;
OPEN cur_billmx;
FETCH cur_billmx Into :s_billmx.mxamt[mx],:s_billmx.mxdscrp[mx],:s_billmx.subid[mx],:s_billmx.subid2[mx];
DO WHILE sqlca.SQLCode = 0
	s_billinfo.billamt += s_billmx.mxamt[mx]
	mx++
	FETCH cur_billmx Into :s_billmx.mxamt[mx],:s_billmx.mxdscrp[mx],:s_billmx.subid[mx],:s_billmx.subid2[mx];
LOOP
CLOSE cur_billmx;

mx = mx - 1
IF mx = 0 THEN
	arg_msg = ls_billname + ' 没有单据明细,请检查'
	rslt = 0
	GOTO ext
END IF

IF arg_s_credport.ifstorage = 2 THEN
	FOR j = 1 To mx
		IF s_billmx.subid[j] = '' THEN
			arg_msg = ls_billname + ' 明细行:'+String(j)+',未设置存货会计科目,请检查'
			rslt = 0
			GOTO ext
		END IF
		
		IF s_billmx.subid2[j] = '' THEN
			arg_msg = ls_billname + ' 明细行:'+String(j)+',未设置领料会计科目,请检查'
			rslt = 0
			GOTO ext
		END IF
	NEXT
END IF

//借
IF arg_s_credport.ifstorage = 1 THEN
	no_mxt++
	arg_ref_s_cred.arg_s_credmx[no_mxt].fuluno = no_mxt
	arg_ref_s_cred.arg_s_credmx[no_mxt].rate = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].rawdebit = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].rawcredit = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].amount = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].price = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].deptid = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].itemid = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].billdate = null_dt
	arg_ref_s_cred.arg_s_credmx[no_mxt].billid = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].billno = ''
	arg_ref_s_cred.arg_s_credmx[no_mxt].cropbillid = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].ifreadonly = 1
	
	arg_ref_s_cred.arg_s_credmx[no_mxt].brief = Trim(s_billinfo.billcode) + ' ' + Trim(s_billinfo.dscrp)
	arg_ref_s_cred.arg_s_credmx[no_mxt].subid = s_billinfo.subid_debit
	arg_ref_s_cred.arg_s_credmx[no_mxt].debit = s_billinfo.billamt
	arg_ref_s_cred.arg_s_credmx[no_mxt].credit = 0
	
ELSEIF arg_s_credport.ifstorage = 2 THEN
	FOR j = 1 To mx
		no_mxt++
		arg_ref_s_cred.arg_s_credmx[no_mxt].fuluno = no_mxt
		arg_ref_s_cred.arg_s_credmx[no_mxt].rate = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].rawdebit = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].rawcredit = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].amount = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].price = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].deptid = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].itemid = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].billdate = null_dt
		arg_ref_s_cred.arg_s_credmx[no_mxt].billid = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].billno = ''
		arg_ref_s_cred.arg_s_credmx[no_mxt].cropbillid = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].ifreadonly = 1
		
		
		arg_ref_s_cred.arg_s_credmx[no_mxt].brief = Trim(s_billinfo.billcode) + ' ' + s_billmx.mxdscrp[j]
		arg_ref_s_cred.arg_s_credmx[no_mxt].subid = s_billmx.subid[j]
		arg_ref_s_cred.arg_s_credmx[no_mxt].debit = s_billmx.mxamt[j]
		arg_ref_s_cred.arg_s_credmx[no_mxt].credit = 0
	NEXT
END IF
//贷
IF arg_s_credport.ifstorage = 1 THEN
	no_mxt++
	arg_ref_s_cred.arg_s_credmx[no_mxt].fuluno = no_mxt
	arg_ref_s_cred.arg_s_credmx[no_mxt].rate = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].rawdebit = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].rawcredit = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].amount = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].price = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].deptid = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].itemid = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].billdate = null_dt
	arg_ref_s_cred.arg_s_credmx[no_mxt].billid = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].billno = ''
	arg_ref_s_cred.arg_s_credmx[no_mxt].cropbillid = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].ifreadonly = 1
	
	arg_ref_s_cred.arg_s_credmx[no_mxt].brief = Trim(s_billinfo.billcode) + ' ' + Trim(s_billinfo.dscrp)
	arg_ref_s_cred.arg_s_credmx[no_mxt].subid = s_billinfo.subid_credit
	arg_ref_s_cred.arg_s_credmx[no_mxt].debit = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].credit = s_billinfo.billamt
ELSEIF arg_s_credport.ifstorage = 2 THEN
	FOR j = 1 To mx
		no_mxt++
		arg_ref_s_cred.arg_s_credmx[no_mxt].fuluno = no_mxt
		arg_ref_s_cred.arg_s_credmx[no_mxt].rate = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].rawdebit = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].rawcredit = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].amount = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].price = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].deptid = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].itemid = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].billdate = null_dt
		arg_ref_s_cred.arg_s_credmx[no_mxt].billid = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].billno = ''
		arg_ref_s_cred.arg_s_credmx[no_mxt].cropbillid = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].ifreadonly = 1
		
		
		arg_ref_s_cred.arg_s_credmx[no_mxt].brief = Trim(s_billinfo.billcode) + ' ' + s_billmx.mxdscrp[j]
		arg_ref_s_cred.arg_s_credmx[no_mxt].subid = s_billmx.subid2[j]
		arg_ref_s_cred.arg_s_credmx[no_mxt].debit = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].credit = s_billmx.mxamt[j]
	NEXT
END IF

arg_ref_s_cred.creddate = s_billinfo.billdate
arg_ref_s_cred.reldate = s_billinfo.billdate
arg_ref_s_cred.relcode = s_billinfo.billcode
arg_ref_s_cred.readtype = 0
arg_ref_s_cred.ifauto = 1
arg_ref_s_cred.credtype = arg_s_credport.credtype

ext:

RETURN rslt












































end function

public function integer uof_cwaudit_bill_getinfo18 (long arg_scid, long arg_billid, s_cred_port arg_s_credport, ref s_credence arg_ref_s_cred, ref string arg_msg);Int rslt = 1
Long no_mxt,i,j,mx = 1
s_bill_to_cred s_billinfo
s_bill_to_credmx s_billmx

String ls_billname
DateTime null_dt
SetNull(null_dt)

ls_billname = arg_s_credport.credname

SELECT u_inware.inwarecode,
	u_inware.indate,
	0,
	u_inware.dscrp,
	0 as cusid,
	0 as sptid,
	u_storage.subid,
	u_static.subid,
	u_inware.cwauditingflag,
	u_inware.flag
	INTO :s_billinfo.billcode,
	:s_billinfo.billdate,
	:s_billinfo.billamt,
	:s_billinfo.dscrp,
	:s_billinfo.cusid,
	:s_billinfo.sptid,
	:s_billinfo.subid_debit,
	:s_billinfo.subid_credit,
	:s_billinfo.cwauditingflag,
	:s_billinfo.flag
	FROM u_inware left OUTER join u_static on
	u_inware.staticid = u_static.staticid left OUTER join u_storage on
	u_inware.storageid = u_storage.storageid
	WHERE u_inware.inwareid = :arg_billid
	AND u_inware.scid = :arg_scid
	And u_inware.billtype = 8;
	
IF sqlca.SQLCode <> 0 THEN
	arg_msg = '查询 '+ls_billname+' 信息及相关会计科目信息失败,'+sqlca.SQLErrText
	rslt = 0
	GOTO ext
END IF

IF s_billinfo.flag = 0 THEN
	arg_msg = ls_billname + ' 未仓库审核,请检查'
	rslt = 0
	GOTO ext
END IF

IF s_billinfo.cwauditingflag = 1 THEN
	arg_msg = ls_billname + ' 已会计审,请检查'
	rslt = 0
	GOTO ext
END IF

IF s_billinfo.subid_credit = '' THEN
	arg_msg = ls_billname + ' 进仓原因未设置会计科目,请检查'
	rslt = 0
	GOTO ext
END IF

IF arg_s_credport.ifstorage = 1 THEN
	IF s_billinfo.subid_debit = '' THEN
		arg_msg = ls_billname + ' 仓库未设置存货会计科目,请检查'
		rslt = 0
		GOTO ext
	END IF
END IF

DECLARE cur_billmx CURSOR FOR
	SELECT u_inwaremx.bsamt,
	u_mtrldef.mtrlname,
	u_mtrldef.subid
	FROM u_inwaremx INNER join u_mtrldef on
	u_inwaremx.mtrlid = u_mtrldef.mtrlid
	WHERE u_inwaremx.inwareid = :arg_billid
	AND u_inwaremx.scid = :arg_scid
	Order By u_inwaremx.printid;
OPEN cur_billmx;
FETCH cur_billmx Into :s_billmx.mxamt[mx],:s_billmx.mxdscrp[mx],:s_billmx.subid[mx];
DO WHILE sqlca.SQLCode = 0
	s_billinfo.billamt += s_billmx.mxamt[mx]
	mx++
	FETCH cur_billmx Into :s_billmx.mxamt[mx],:s_billmx.mxdscrp[mx],:s_billmx.subid[mx];
LOOP
CLOSE cur_billmx;

mx = mx - 1
IF mx = 0 THEN
	arg_msg = ls_billname + ' 没有单据明细,请检查'
	rslt = 0
	GOTO ext
END IF

IF arg_s_credport.ifstorage = 2 THEN
	FOR j = 1 To mx
		IF s_billmx.subid[j] = '' THEN
			arg_msg = ls_billname + ' 明细行:'+String(j)+',未设置存货会计科目,请检查'
			rslt = 0
			GOTO ext
		END IF
	NEXT
END IF

//借
IF arg_s_credport.ifstorage = 1 THEN
	no_mxt++
	arg_ref_s_cred.arg_s_credmx[no_mxt].fuluno = no_mxt
	arg_ref_s_cred.arg_s_credmx[no_mxt].rate = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].rawdebit = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].rawcredit = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].amount = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].price = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].deptid = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].itemid = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].billdate = null_dt
	arg_ref_s_cred.arg_s_credmx[no_mxt].billid = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].billno = ''
	arg_ref_s_cred.arg_s_credmx[no_mxt].cropbillid = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].ifreadonly = 1
	
	arg_ref_s_cred.arg_s_credmx[no_mxt].brief = Trim(s_billinfo.billcode) + ' ' + Trim(s_billinfo.dscrp)
	arg_ref_s_cred.arg_s_credmx[no_mxt].subid = s_billinfo.subid_debit
	arg_ref_s_cred.arg_s_credmx[no_mxt].debit = s_billinfo.billamt
	arg_ref_s_cred.arg_s_credmx[no_mxt].credit = 0
	
ELSEIF arg_s_credport.ifstorage = 2 THEN
	FOR j = 1 To mx
		no_mxt++
		arg_ref_s_cred.arg_s_credmx[no_mxt].fuluno = no_mxt
		arg_ref_s_cred.arg_s_credmx[no_mxt].rate = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].rawdebit = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].rawcredit = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].amount = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].price = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].deptid = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].itemid = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].billdate = null_dt
		arg_ref_s_cred.arg_s_credmx[no_mxt].billid = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].billno = ''
		arg_ref_s_cred.arg_s_credmx[no_mxt].cropbillid = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].ifreadonly = 1
		
		
		arg_ref_s_cred.arg_s_credmx[no_mxt].brief = Trim(s_billinfo.billcode) + ' ' + s_billmx.mxdscrp[j]
		arg_ref_s_cred.arg_s_credmx[no_mxt].subid = s_billmx.subid[j]
		arg_ref_s_cred.arg_s_credmx[no_mxt].debit = s_billmx.mxamt[j]
		arg_ref_s_cred.arg_s_credmx[no_mxt].credit = 0
	NEXT
END IF

//贷
no_mxt++
arg_ref_s_cred.arg_s_credmx[no_mxt].fuluno = no_mxt
arg_ref_s_cred.arg_s_credmx[no_mxt].rate = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].rawdebit = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].rawcredit = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].amount = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].price = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].deptid = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].itemid = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].billdate = null_dt
arg_ref_s_cred.arg_s_credmx[no_mxt].billid = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].billno = ''
arg_ref_s_cred.arg_s_credmx[no_mxt].cropbillid = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].ifreadonly = 1

arg_ref_s_cred.arg_s_credmx[no_mxt].brief = Trim(s_billinfo.billcode) + ' ' + Trim(s_billinfo.dscrp)
arg_ref_s_cred.arg_s_credmx[no_mxt].subid = s_billinfo.subid_credit
arg_ref_s_cred.arg_s_credmx[no_mxt].debit = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].credit = s_billinfo.billamt



arg_ref_s_cred.creddate = s_billinfo.billdate
arg_ref_s_cred.reldate = s_billinfo.billdate
arg_ref_s_cred.relcode = s_billinfo.billcode
arg_ref_s_cred.readtype = 0
arg_ref_s_cred.ifauto = 1
arg_ref_s_cred.credtype = arg_s_credport.credtype

ext:

RETURN rslt











































end function

public function integer uof_cwaudit_bill_getinfo19 (long arg_scid, long arg_billid, s_cred_port arg_s_credport, ref s_credence arg_ref_s_cred, ref string arg_msg);Int rslt = 1
Long no_mxt,i,j,mx = 1
s_bill_to_cred s_billinfo
s_bill_to_credmx s_billmx

String ls_billname
DateTime null_dt
SetNull(null_dt)

ls_billname = arg_s_credport.credname

SELECT u_inware.inwarecode,
	u_inware.indate,
	0,
	u_inware.dscrp,
	0 as cusid,
	0 as sptid,
	u_storage.subid,
	u_storage.subid_py,
	u_inware.cwauditingflag,
	u_inware.flag
	INTO :s_billinfo.billcode,
	:s_billinfo.billdate,
	:s_billinfo.billamt,
	:s_billinfo.dscrp,
	:s_billinfo.cusid,
	:s_billinfo.sptid,
	:s_billinfo.subid_debit,
	:s_billinfo.subid_credit,
	:s_billinfo.cwauditingflag,
	:s_billinfo.flag
	FROM u_inware left OUTER join u_storage on
	u_inware.storageid = u_storage.storageid
	WHERE u_inware.inwareid = :arg_billid
	AND u_inware.scid = :arg_scid
	And u_inware.billtype = 9;
	
IF sqlca.SQLCode <> 0 THEN
	arg_msg = '查询 '+ls_billname+' 信息及相关会计科目信息失败,'+sqlca.SQLErrText
	rslt = 0
	GOTO ext
END IF

IF s_billinfo.flag = 0 THEN
	arg_msg = ls_billname + ' 未仓库审核,请检查'
	rslt = 0
	GOTO ext
END IF

IF s_billinfo.cwauditingflag = 1 THEN
	arg_msg = ls_billname + ' 已会计审,请检查'
	rslt = 0
	GOTO ext
END IF

IF arg_s_credport.ifstorage = 1 THEN
	IF s_billinfo.subid_debit = '' THEN
		arg_msg = ls_billname + ' 仓库未设置存货会计科目,请检查'
		rslt = 0
		GOTO ext
	END IF
	
	IF s_billinfo.subid_credit = '' THEN
		arg_msg = ls_billname + ' 仓库未设置盘盈会计科目,请检查'
		rslt = 0
		GOTO ext
	END IF
END IF

DECLARE cur_billmx CURSOR FOR
	SELECT u_inwaremx.bsamt,
	u_mtrldef.mtrlname,
	u_mtrldef.subid,
	u_mtrldef.subid_py
	FROM u_inwaremx INNER join u_mtrldef on
	u_inwaremx.mtrlid = u_mtrldef.mtrlid
	WHERE u_inwaremx.inwareid = :arg_billid
	AND u_inwaremx.scid = :arg_scid
	Order By u_inwaremx.printid;
OPEN cur_billmx;
FETCH cur_billmx Into :s_billmx.mxamt[mx],:s_billmx.mxdscrp[mx],:s_billmx.subid[mx],:s_billmx.subid2[mx];
DO WHILE sqlca.SQLCode = 0
	s_billinfo.billamt += s_billmx.mxamt[mx]
	mx++
	FETCH cur_billmx Into :s_billmx.mxamt[mx],:s_billmx.mxdscrp[mx],:s_billmx.subid[mx],:s_billmx.subid2[mx];
LOOP
CLOSE cur_billmx;

mx = mx - 1
IF mx = 0 THEN
	arg_msg = ls_billname + ' 没有单据明细,请检查'
	rslt = 0
	GOTO ext
END IF

IF arg_s_credport.ifstorage = 2 THEN
	FOR j = 1 To mx
		IF s_billmx.subid[j] = '' THEN
			arg_msg = ls_billname + ' 明细行:'+String(j)+',未设置存货会计科目,请检查'
			rslt = 0
			GOTO ext
		END IF
		
		IF s_billmx.subid2[j] = '' THEN
			arg_msg = ls_billname + ' 明细行:'+String(j)+',未设置盘盈会计科目,请检查'
			rslt = 0
			GOTO ext
		END IF
	NEXT
END IF

//借
IF arg_s_credport.ifstorage = 1 THEN
	no_mxt++
	arg_ref_s_cred.arg_s_credmx[no_mxt].fuluno = no_mxt
	arg_ref_s_cred.arg_s_credmx[no_mxt].rate = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].rawdebit = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].rawcredit = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].amount = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].price = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].deptid = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].itemid = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].billdate = null_dt
	arg_ref_s_cred.arg_s_credmx[no_mxt].billid = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].billno = ''
	arg_ref_s_cred.arg_s_credmx[no_mxt].cropbillid = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].ifreadonly = 1
	
	arg_ref_s_cred.arg_s_credmx[no_mxt].brief = Trim(s_billinfo.billcode) + ' ' + Trim(s_billinfo.dscrp)
	arg_ref_s_cred.arg_s_credmx[no_mxt].subid = s_billinfo.subid_debit
	arg_ref_s_cred.arg_s_credmx[no_mxt].debit = s_billinfo.billamt
	arg_ref_s_cred.arg_s_credmx[no_mxt].credit = 0
	
ELSEIF arg_s_credport.ifstorage = 2 THEN
	FOR j = 1 To mx
		no_mxt++
		arg_ref_s_cred.arg_s_credmx[no_mxt].fuluno = no_mxt
		arg_ref_s_cred.arg_s_credmx[no_mxt].rate = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].rawdebit = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].rawcredit = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].amount = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].price = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].deptid = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].itemid = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].billdate = null_dt
		arg_ref_s_cred.arg_s_credmx[no_mxt].billid = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].billno = ''
		arg_ref_s_cred.arg_s_credmx[no_mxt].cropbillid = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].ifreadonly = 1
		
		
		arg_ref_s_cred.arg_s_credmx[no_mxt].brief = Trim(s_billinfo.billcode) + ' ' + s_billmx.mxdscrp[j]
		arg_ref_s_cred.arg_s_credmx[no_mxt].subid = s_billmx.subid[j]
		arg_ref_s_cred.arg_s_credmx[no_mxt].debit = s_billmx.mxamt[j]
		arg_ref_s_cred.arg_s_credmx[no_mxt].credit = 0
	NEXT
END IF
//贷
IF arg_s_credport.ifstorage = 1 THEN
	no_mxt++
	arg_ref_s_cred.arg_s_credmx[no_mxt].fuluno = no_mxt
	arg_ref_s_cred.arg_s_credmx[no_mxt].rate = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].rawdebit = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].rawcredit = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].amount = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].price = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].deptid = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].itemid = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].billdate = null_dt
	arg_ref_s_cred.arg_s_credmx[no_mxt].billid = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].billno = ''
	arg_ref_s_cred.arg_s_credmx[no_mxt].cropbillid = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].ifreadonly = 1
	
	arg_ref_s_cred.arg_s_credmx[no_mxt].brief = Trim(s_billinfo.billcode) + ' ' + Trim(s_billinfo.dscrp)
	arg_ref_s_cred.arg_s_credmx[no_mxt].subid = s_billinfo.subid_credit
	arg_ref_s_cred.arg_s_credmx[no_mxt].debit = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].credit = s_billinfo.billamt
ELSEIF arg_s_credport.ifstorage = 2 THEN
	FOR j = 1 To mx
		no_mxt++
		arg_ref_s_cred.arg_s_credmx[no_mxt].fuluno = no_mxt
		arg_ref_s_cred.arg_s_credmx[no_mxt].rate = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].rawdebit = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].rawcredit = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].amount = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].price = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].deptid = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].itemid = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].billdate = null_dt
		arg_ref_s_cred.arg_s_credmx[no_mxt].billid = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].billno = ''
		arg_ref_s_cred.arg_s_credmx[no_mxt].cropbillid = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].ifreadonly = 1
		
		
		arg_ref_s_cred.arg_s_credmx[no_mxt].brief = Trim(s_billinfo.billcode) + ' ' + s_billmx.mxdscrp[j]
		arg_ref_s_cred.arg_s_credmx[no_mxt].subid = s_billmx.subid2[j]
		arg_ref_s_cred.arg_s_credmx[no_mxt].debit = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].credit = s_billmx.mxamt[j]
	NEXT
END IF

arg_ref_s_cred.creddate = s_billinfo.billdate
arg_ref_s_cred.reldate = s_billinfo.billdate
arg_ref_s_cred.relcode = s_billinfo.billcode
arg_ref_s_cred.readtype = 0
arg_ref_s_cred.ifauto = 1
arg_ref_s_cred.credtype = arg_s_credport.credtype

ext:

RETURN rslt












































end function

public function integer uof_cwaudit_bill_getinfo20 (long arg_scid, long arg_billid, s_cred_port arg_s_credport, ref s_credence arg_ref_s_cred, ref string arg_msg);Int rslt = 1
Long no_mxt,i,j,mx = 1
s_bill_to_cred s_billinfo
s_bill_to_credmx s_billmx

String ls_billname
DateTime null_dt
SetNull(null_dt)

ls_billname = arg_s_credport.credname

SELECT u_outware.outwarecode,
	u_outware.outdate,
	0,
	u_outware.dscrp,
	0 as cusid,
	0 as sptid,
	u_storage.subid_kf,
	u_storage.subid,
	u_outware.cwauditingflag,
	u_outware.flag
	INTO :s_billinfo.billcode,
	:s_billinfo.billdate,
	:s_billinfo.billamt,
	:s_billinfo.dscrp,
	:s_billinfo.cusid,
	:s_billinfo.sptid,
	:s_billinfo.subid_debit,
	:s_billinfo.subid_credit,
	:s_billinfo.cwauditingflag,
	:s_billinfo.flag
	FROM u_outware left OUTER join u_storage on
	u_outware.storageid = u_storage.storageid
	WHERE u_outware.outwareid = :arg_billid
	AND u_outware.scid = :arg_scid
	And u_outware.billtype = 9;
	
IF sqlca.SQLCode <> 0 THEN
	arg_msg = '查询 '+ls_billname+' 信息及相关会计科目信息失败,'+sqlca.SQLErrText
	rslt = 0
	GOTO ext
END IF

IF s_billinfo.flag = 0 THEN
	arg_msg = ls_billname + ' 未仓库审核,请检查'
	rslt = 0
	GOTO ext
END IF

IF s_billinfo.cwauditingflag = 1 THEN
	arg_msg = ls_billname + ' 已会计审,请检查'
	rslt = 0
	GOTO ext
END IF

IF arg_s_credport.ifstorage = 1 THEN
	IF s_billinfo.subid_debit = '' THEN
		arg_msg = ls_billname + ' 仓库未设置扣费领用会计科目,请检查'
		rslt = 0
		GOTO ext
	END IF
	
	IF s_billinfo.subid_credit = '' THEN
		arg_msg = ls_billname + ' 仓库未设置存货会计科目,请检查'
		rslt = 0
		GOTO ext
	END IF
END IF

DECLARE cur_billmx CURSOR FOR
	SELECT u_inwaremx.bsamt,
	u_mtrldef.mtrlname,
	u_mtrldef.subid_kf,
	u_mtrldef.subid
	FROM u_inwaremx INNER join u_mtrldef on
	u_inwaremx.mtrlid = u_mtrldef.mtrlid
	WHERE u_inwaremx.inwareid = :arg_billid
	AND u_inwaremx.scid = :arg_scid
	Order By u_inwaremx.printid;
OPEN cur_billmx;
FETCH cur_billmx Into :s_billmx.mxamt[mx],:s_billmx.mxdscrp[mx],:s_billmx.subid[mx],:s_billmx.subid2[mx];
DO WHILE sqlca.SQLCode = 0
	s_billinfo.billamt += s_billmx.mxamt[mx]
	mx++
	FETCH cur_billmx Into :s_billmx.mxamt[mx],:s_billmx.mxdscrp[mx],:s_billmx.subid[mx],:s_billmx.subid2[mx];
LOOP
CLOSE cur_billmx;

mx = mx - 1
IF mx = 0 THEN
	arg_msg = ls_billname + ' 没有单据明细,请检查'
	rslt = 0
	GOTO ext
END IF

IF arg_s_credport.ifstorage = 2 THEN
	FOR j = 1 To mx
		IF s_billmx.subid[j] = '' THEN
			arg_msg = ls_billname + ' 明细行:'+String(j)+',未设置扣费领用会计科目,请检查'
			rslt = 0
			GOTO ext
		END IF
		
		IF s_billmx.subid2[j] = '' THEN
			arg_msg = ls_billname + ' 明细行:'+String(j)+',未设置存货会计科目,请检查'
			rslt = 0
			GOTO ext
		END IF
	NEXT
END IF

//借
IF arg_s_credport.ifstorage = 1 THEN
	no_mxt++
	arg_ref_s_cred.arg_s_credmx[no_mxt].fuluno = no_mxt
	arg_ref_s_cred.arg_s_credmx[no_mxt].rate = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].rawdebit = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].rawcredit = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].amount = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].price = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].deptid = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].itemid = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].billdate = null_dt
	arg_ref_s_cred.arg_s_credmx[no_mxt].billid = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].billno = ''
	arg_ref_s_cred.arg_s_credmx[no_mxt].cropbillid = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].ifreadonly = 1
	
	arg_ref_s_cred.arg_s_credmx[no_mxt].brief = Trim(s_billinfo.billcode) + ' ' + Trim(s_billinfo.dscrp)
	arg_ref_s_cred.arg_s_credmx[no_mxt].subid = s_billinfo.subid_debit
	arg_ref_s_cred.arg_s_credmx[no_mxt].debit = s_billinfo.billamt
	arg_ref_s_cred.arg_s_credmx[no_mxt].credit = 0
	
ELSEIF arg_s_credport.ifstorage = 2 THEN
	FOR j = 1 To mx
		no_mxt++
		arg_ref_s_cred.arg_s_credmx[no_mxt].fuluno = no_mxt
		arg_ref_s_cred.arg_s_credmx[no_mxt].rate = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].rawdebit = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].rawcredit = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].amount = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].price = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].deptid = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].itemid = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].billdate = null_dt
		arg_ref_s_cred.arg_s_credmx[no_mxt].billid = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].billno = ''
		arg_ref_s_cred.arg_s_credmx[no_mxt].cropbillid = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].ifreadonly = 1
		
		
		arg_ref_s_cred.arg_s_credmx[no_mxt].brief = Trim(s_billinfo.billcode) + ' ' + s_billmx.mxdscrp[j]
		arg_ref_s_cred.arg_s_credmx[no_mxt].subid = s_billmx.subid[j]
		arg_ref_s_cred.arg_s_credmx[no_mxt].debit = s_billmx.mxamt[j]
		arg_ref_s_cred.arg_s_credmx[no_mxt].credit = 0
	NEXT
END IF
//贷
IF arg_s_credport.ifstorage = 1 THEN
	no_mxt++
	arg_ref_s_cred.arg_s_credmx[no_mxt].fuluno = no_mxt
	arg_ref_s_cred.arg_s_credmx[no_mxt].rate = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].rawdebit = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].rawcredit = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].amount = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].price = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].deptid = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].itemid = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].billdate = null_dt
	arg_ref_s_cred.arg_s_credmx[no_mxt].billid = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].billno = ''
	arg_ref_s_cred.arg_s_credmx[no_mxt].cropbillid = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].ifreadonly = 1
	
	arg_ref_s_cred.arg_s_credmx[no_mxt].brief = Trim(s_billinfo.billcode) + ' ' + Trim(s_billinfo.dscrp)
	arg_ref_s_cred.arg_s_credmx[no_mxt].subid = s_billinfo.subid_credit
	arg_ref_s_cred.arg_s_credmx[no_mxt].debit = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].credit = s_billinfo.billamt
ELSEIF arg_s_credport.ifstorage = 2 THEN
	FOR j = 1 To mx
		no_mxt++
		arg_ref_s_cred.arg_s_credmx[no_mxt].fuluno = no_mxt
		arg_ref_s_cred.arg_s_credmx[no_mxt].rate = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].rawdebit = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].rawcredit = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].amount = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].price = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].deptid = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].itemid = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].billdate = null_dt
		arg_ref_s_cred.arg_s_credmx[no_mxt].billid = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].billno = ''
		arg_ref_s_cred.arg_s_credmx[no_mxt].cropbillid = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].ifreadonly = 1
		
		
		arg_ref_s_cred.arg_s_credmx[no_mxt].brief = Trim(s_billinfo.billcode) + ' ' + s_billmx.mxdscrp[j]
		arg_ref_s_cred.arg_s_credmx[no_mxt].subid = s_billmx.subid2[j]
		arg_ref_s_cred.arg_s_credmx[no_mxt].debit = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].credit = s_billmx.mxamt[j]
	NEXT
END IF

arg_ref_s_cred.creddate = s_billinfo.billdate
arg_ref_s_cred.reldate = s_billinfo.billdate
arg_ref_s_cred.relcode = s_billinfo.billcode
arg_ref_s_cred.readtype = 0
arg_ref_s_cred.ifauto = 1
arg_ref_s_cred.credtype = arg_s_credport.credtype

ext:

RETURN rslt












































end function

public function integer uof_cwaudit_bill_getinfo25 (long arg_scid, long arg_billid, s_cred_port arg_s_credport, ref s_credence arg_ref_s_cred, ref string arg_msg);Int rslt = 1
Int li_hscust,li_hsspt
Long no_mxt,i
s_bill_to_cred s_billinfo

String ls_billname
DateTime null_dt
SetNull(null_dt)

ls_billname = arg_s_credport.credname

SELECT u_cusamt.cusmoncode,
	u_cusamt.cusdate,
	u_cusamt.cusamt,
	u_cusamt.dscrp,
	u_cusamt.cusid,
	0 as sptid,
	u_accounts.subid,
	u_cust.subid,
	u_cusamt.cwauditingflag,
	u_cusamt.secflag
	INTO :s_billinfo.billcode,
	:s_billinfo.billdate,
	:s_billinfo.billamt,
	:s_billinfo.dscrp,
	:s_billinfo.cusid,
	:s_billinfo.sptid,
	:s_billinfo.subid_debit,
	:s_billinfo.subid_credit,
	:s_billinfo.cwauditingflag,
	:s_billinfo.flag
	FROM u_cusamt left OUTER join u_cust on
	u_cusamt.cusid = u_cust.cusid left OUTER join u_accounts on
	u_cusamt.accountid = u_accounts.accountsid
	Where u_cusamt.cusmonid = :arg_billid;
IF sqlca.SQLCode <> 0 THEN
	arg_msg = '查询 '+ls_billname+' 信息及相关会计科目信息失败,'+sqlca.SQLErrText
	rslt = 0
	GOTO ext
END IF

IF s_billinfo.flag = 0 THEN
	arg_msg = ls_billname + ' 未终审,请检查'
	rslt = 0
	GOTO ext
END IF

IF s_billinfo.cwauditingflag = 1 THEN
	arg_msg = ls_billname + ' 已会计审,请检查'
	rslt = 0
	GOTO ext
END IF

IF s_billinfo.subid_debit = '' THEN
	arg_msg = ls_billname + ' 出纳帐户未设置会计科目,请检查'
	rslt = 0
	GOTO ext
END IF

IF s_billinfo.subid_credit = '' THEN
	arg_msg = ls_billname + ' 客户资料未设置会计科目,请检查'
	rslt = 0
	GOTO ext
END IF

//借
no_mxt++
arg_ref_s_cred.arg_s_credmx[no_mxt].fuluno = no_mxt
arg_ref_s_cred.arg_s_credmx[no_mxt].brief = s_billinfo.dscrp
arg_ref_s_cred.arg_s_credmx[no_mxt].rate = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].rawdebit = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].rawcredit = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].amount = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].price = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].deptid = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].itemid = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].billdate = null_dt
arg_ref_s_cred.arg_s_credmx[no_mxt].billid = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].billno = ''
arg_ref_s_cred.arg_s_credmx[no_mxt].cropbillid = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].ifreadonly = 1


arg_ref_s_cred.arg_s_credmx[no_mxt].subid = s_billinfo.subid_debit
arg_ref_s_cred.arg_s_credmx[no_mxt].debit = s_billinfo.billamt
arg_ref_s_cred.arg_s_credmx[no_mxt].credit = 0
IF uof_get_subject(s_billinfo.subid_debit,li_hscust,li_hsspt,arg_msg) = 0 THEN
	rslt = 0
	GOTO ext
END IF
IF li_hscust = 1 THEN
	arg_ref_s_cred.arg_s_credmx[no_mxt].cusid = s_billinfo.cusid
ELSE
	arg_ref_s_cred.arg_s_credmx[no_mxt].cusid = 0
END IF

//贷
no_mxt++
arg_ref_s_cred.arg_s_credmx[no_mxt].fuluno = no_mxt
arg_ref_s_cred.arg_s_credmx[no_mxt].brief = s_billinfo.dscrp
arg_ref_s_cred.arg_s_credmx[no_mxt].rate = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].rawdebit = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].rawcredit = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].amount = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].price = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].deptid = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].itemid = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].billdate = null_dt
arg_ref_s_cred.arg_s_credmx[no_mxt].billid = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].billno = ''
arg_ref_s_cred.arg_s_credmx[no_mxt].cropbillid = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].ifreadonly = 1

arg_ref_s_cred.arg_s_credmx[no_mxt].subid = s_billinfo.subid_credit
arg_ref_s_cred.arg_s_credmx[no_mxt].debit = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].credit = s_billinfo.billamt
IF uof_get_subject(s_billinfo.subid_credit,li_hscust,li_hsspt,arg_msg) = 0 THEN
	rslt = 0
	GOTO ext
END IF
IF li_hscust = 1 THEN
	arg_ref_s_cred.arg_s_credmx[no_mxt].cusid = s_billinfo.cusid
ELSE
	arg_ref_s_cred.arg_s_credmx[no_mxt].cusid = 0
END IF



arg_ref_s_cred.creddate = s_billinfo.billdate
arg_ref_s_cred.reldate = s_billinfo.billdate
arg_ref_s_cred.relcode = s_billinfo.billcode
arg_ref_s_cred.readtype = 0
arg_ref_s_cred.ifauto = 1
arg_ref_s_cred.credtype = arg_s_credport.credtype

ext:

RETURN rslt
























end function

public function integer uof_cwaudit_bill_getinfo28 (long arg_scid, long arg_billid, s_cred_port arg_s_credport, ref s_credence arg_ref_s_cred, ref string arg_msg);Int rslt = 1
Int li_hscust,li_hsspt
Long no_mxt,i
s_bill_to_cred s_billinfo

String ls_billname
DateTime null_dt
SetNull(null_dt)

ls_billname = arg_s_credport.credname

SELECT u_cusamt.cusmoncode,
	u_cusamt.cusdate,
	u_cusamt.cusamt,
	u_cusamt.dscrp,
	0 as cusid,
	u_cusamt.cusid,
	u_spt.subid,
	u_accounts.subid,
	u_cusamt.cwauditingflag,
	u_cusamt.secflag
	INTO :s_billinfo.billcode,
	:s_billinfo.billdate,
	:s_billinfo.billamt,
	:s_billinfo.dscrp,
	:s_billinfo.cusid,
	:s_billinfo.sptid,
	:s_billinfo.subid_debit,
	:s_billinfo.subid_credit,
	:s_billinfo.cwauditingflag,
	:s_billinfo.flag
	FROM u_cusamt left OUTER join u_spt on
	u_cusamt.cusid = u_spt.sptid left OUTER join u_accounts on
	u_cusamt.accountid = u_accounts.accountsid
	Where u_cusamt.cusmonid = :arg_billid;
IF sqlca.SQLCode <> 0 THEN
	arg_msg = '查询 '+ls_billname+' 信息及相关会计科目信息失败,'+sqlca.SQLErrText
	rslt = 0
	GOTO ext
END IF

IF s_billinfo.flag = 0 THEN
	arg_msg = ls_billname + ' 未终审,请检查'
	rslt = 0
	GOTO ext
END IF

IF s_billinfo.cwauditingflag = 1 THEN
	arg_msg = ls_billname + ' 已会计审,请检查'
	rslt = 0
	GOTO ext
END IF


IF s_billinfo.subid_debit = '' THEN
	arg_msg = ls_billname + ' 供应商未设置会计科目,请检查'
	rslt = 0
	GOTO ext
END IF

IF s_billinfo.subid_credit = '' THEN
	arg_msg = ls_billname + ' 出纳帐户未设置会计科目,请检查'
	rslt = 0
	GOTO ext
END IF


//借
no_mxt++
arg_ref_s_cred.arg_s_credmx[no_mxt].fuluno = no_mxt
arg_ref_s_cred.arg_s_credmx[no_mxt].brief = s_billinfo.dscrp
arg_ref_s_cred.arg_s_credmx[no_mxt].rate = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].rawdebit = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].rawcredit = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].amount = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].price = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].deptid = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].itemid = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].billdate = null_dt
arg_ref_s_cred.arg_s_credmx[no_mxt].billid = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].billno = ''
arg_ref_s_cred.arg_s_credmx[no_mxt].cropbillid = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].ifreadonly = 1

arg_ref_s_cred.arg_s_credmx[no_mxt].subid = s_billinfo.subid_debit
arg_ref_s_cred.arg_s_credmx[no_mxt].debit = s_billinfo.billamt
arg_ref_s_cred.arg_s_credmx[no_mxt].credit = 0
IF uof_get_subject(s_billinfo.subid_debit,li_hscust,li_hsspt,arg_msg) = 0 THEN
	rslt = 0
	GOTO ext
END IF
IF li_hsspt = 1 THEN
	arg_ref_s_cred.arg_s_credmx[no_mxt].sptid = s_billinfo.sptid
ELSE
	arg_ref_s_cred.arg_s_credmx[no_mxt].sptid = 0
END IF

//贷
no_mxt++
arg_ref_s_cred.arg_s_credmx[no_mxt].fuluno = no_mxt
arg_ref_s_cred.arg_s_credmx[no_mxt].brief = s_billinfo.dscrp
arg_ref_s_cred.arg_s_credmx[no_mxt].rate = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].rawdebit = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].rawcredit = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].amount = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].price = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].deptid = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].itemid = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].billdate = null_dt
arg_ref_s_cred.arg_s_credmx[no_mxt].billid = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].billno = ''
arg_ref_s_cred.arg_s_credmx[no_mxt].cropbillid = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].ifreadonly = 1
arg_ref_s_cred.arg_s_credmx[no_mxt].subid = s_billinfo.subid_credit
arg_ref_s_cred.arg_s_credmx[no_mxt].debit = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].credit = s_billinfo.billamt
IF uof_get_subject(s_billinfo.subid_credit,li_hscust,li_hsspt,arg_msg) = 0 THEN
	rslt = 0
	GOTO ext
END IF
IF li_hsspt = 1 THEN
	arg_ref_s_cred.arg_s_credmx[no_mxt].sptid = s_billinfo.sptid
ELSE
	arg_ref_s_cred.arg_s_credmx[no_mxt].sptid = 0
END IF



arg_ref_s_cred.creddate = s_billinfo.billdate
arg_ref_s_cred.reldate = s_billinfo.billdate
arg_ref_s_cred.relcode = s_billinfo.billcode
arg_ref_s_cred.readtype = 0
arg_ref_s_cred.ifauto = 1
arg_ref_s_cred.credtype = arg_s_credport.credtype

ext:

RETURN rslt























end function

public function integer uof_cwaudit_bill_getinfo33 (long arg_scid, long arg_billid, s_cred_port arg_s_credport, ref s_credence arg_ref_s_cred, ref string arg_msg);Int rslt = 1
Int li_hscust,li_hsspt
Long no_mxt,i
s_bill_to_cred s_billinfo

String ls_billname
DateTime null_dt
SetNull(null_dt)

ls_billname = arg_s_credport.credname

SELECT u_rap_money_transfer.billcode,
	u_rap_money_transfer.checkdate,
	u_rap_money_transfer.transferamt,
	u_rap_money_transfer.dscrp,
	0 as cusid,
	0 as sptid,
	u_in.subid,
	u_out.subid,
	u_rap_money_transfer.cwauditingflag,
	u_rap_money_transfer.secflag
	INTO :s_billinfo.billcode,
	:s_billinfo.billdate,
	:s_billinfo.billamt,
	:s_billinfo.dscrp,
	:s_billinfo.cusid,
	:s_billinfo.sptid,
	:s_billinfo.subid_debit,
	:s_billinfo.subid_credit,
	:s_billinfo.cwauditingflag,
	:s_billinfo.flag
	FROM u_rap_money_transfer left OUTER join u_accounts u_in on
	u_rap_money_transfer.accountid_in = u_in.accountsid left OUTER join u_accounts u_out on
	u_rap_money_transfer.accountid_out = u_out.accountsid
	Where u_rap_money_transfer.billid = :arg_billid;
IF sqlca.SQLCode <> 0 THEN
	arg_msg = '查询 '+ls_billname+' 信息及相关会计科目信息失败,'+sqlca.SQLErrText
	rslt = 0
	GOTO ext
END IF

IF s_billinfo.flag = 0 THEN
	arg_msg = ls_billname + ' 未终审,请检查'
	rslt = 0
	GOTO ext
END IF

IF s_billinfo.cwauditingflag = 1 THEN
	arg_msg = ls_billname + ' 已会计审,请检查'
	rslt = 0
	GOTO ext
END IF

IF s_billinfo.subid_debit = '' THEN
	arg_msg = ls_billname + ' 转入帐户未设置会计科目,请检查'
	rslt = 0
	GOTO ext
END IF

IF s_billinfo.subid_credit = '' THEN
	arg_msg = ls_billname + ' 转出帐户未设置会计科目,请检查'
	rslt = 0
	GOTO ext
END IF

//贷
no_mxt++
arg_ref_s_cred.arg_s_credmx[no_mxt].fuluno = no_mxt
arg_ref_s_cred.arg_s_credmx[no_mxt].brief = s_billinfo.dscrp
arg_ref_s_cred.arg_s_credmx[no_mxt].rate = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].rawdebit = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].rawcredit = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].amount = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].price = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].deptid = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].itemid = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].billdate = null_dt
arg_ref_s_cred.arg_s_credmx[no_mxt].billid = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].billno = ''
arg_ref_s_cred.arg_s_credmx[no_mxt].cropbillid = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].ifreadonly = 1


arg_ref_s_cred.arg_s_credmx[no_mxt].subid = s_billinfo.subid_debit
arg_ref_s_cred.arg_s_credmx[no_mxt].debit = s_billinfo.billamt
arg_ref_s_cred.arg_s_credmx[no_mxt].credit = 0

//贷
no_mxt++
arg_ref_s_cred.arg_s_credmx[no_mxt].fuluno = no_mxt
arg_ref_s_cred.arg_s_credmx[no_mxt].brief = s_billinfo.dscrp
arg_ref_s_cred.arg_s_credmx[no_mxt].rate = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].rawdebit = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].rawcredit = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].amount = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].price = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].deptid = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].itemid = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].billdate = null_dt
arg_ref_s_cred.arg_s_credmx[no_mxt].billid = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].billno = ''
arg_ref_s_cred.arg_s_credmx[no_mxt].cropbillid = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].ifreadonly = 1

arg_ref_s_cred.arg_s_credmx[no_mxt].subid = s_billinfo.subid_credit
arg_ref_s_cred.arg_s_credmx[no_mxt].debit = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].credit = s_billinfo.billamt


arg_ref_s_cred.creddate = s_billinfo.billdate
arg_ref_s_cred.reldate = s_billinfo.billdate
arg_ref_s_cred.relcode = s_billinfo.billcode
arg_ref_s_cred.readtype = 0
arg_ref_s_cred.ifauto = 1
arg_ref_s_cred.credtype = arg_s_credport.credtype

ext:

RETURN rslt




















end function

public function integer uof_cwaudit_bill_getinfo26 (long arg_scid, long arg_billid, s_cred_port arg_s_credport, ref s_credence arg_ref_s_cred, ref string arg_msg);Int rslt = 1
Int li_hscust,li_hsspt
Long no_mxt,i,j,mx = 1
s_bill_to_cred s_billinfo
s_bill_to_credmx s_billmx

String ls_billname
DateTime null_dt
SetNull(null_dt)

ls_billname = arg_s_credport.credname

SELECT U_income_expenses.billcode,
	U_income_expenses.outdate,
	U_income_expenses.amt,
	U_income_expenses.Descrp,
	u_cust.subid2,
	'',
	U_income_expenses.cwauditingflag,
	U_income_expenses.flag,
	U_income_expenses.spt_cus_id as cusid,
	0 as sptid
	INTO :s_billinfo.billcode,
	:s_billinfo.billdate,
	:s_billinfo.billamt,
	:s_billinfo.dscrp,
	:s_billinfo.subid_debit,
	:s_billinfo.subid_credit,
	:s_billinfo.cwauditingflag,
	:s_billinfo.flag,
	:s_billinfo.cusid,
	:s_billinfo.sptid
	FROM U_income_expenses left OUTER join u_cust on
	U_income_expenses.spt_cus_id = u_cust.cusid
	WHERE U_income_expenses.billid = :arg_billid
	And U_income_expenses.billtype = 3;
IF sqlca.SQLCode <> 0 THEN
	arg_msg = '查询 '+ls_billname+' 信息及相关会计科目信息失败,'+sqlca.SQLErrText
	rslt = 0
	GOTO ext
END IF

IF s_billinfo.flag = 0 THEN
	arg_msg = ls_billname + ' 未审核,请检查'
	rslt = 0
	GOTO ext
END IF

IF s_billinfo.cwauditingflag = 1 THEN
	arg_msg = ls_billname + ' 已会计审,请检查'
	rslt = 0
	GOTO ext
END IF

IF s_billinfo.subid_debit = '' THEN
	arg_msg = ls_billname + ' 客户未设置会计科目,请检查'
	rslt = 0
	GOTO ext
END IF

DECLARE cur_billmx CURSOR FOR
	SELECT U_income_expenses_mx.amt,
	U_income_expenses_mx.mxdscrp,
	u_itemdef.subid
	FROM U_income_expenses_mx left OUTER join u_itemdef on
	U_income_expenses_mx.itemid = u_itemdef.itemid
	WHERE U_income_expenses_mx.billid = :arg_billid
	Order By U_income_expenses_mx.printid;
OPEN cur_billmx;
FETCH cur_billmx Into :s_billmx.mxamt[mx],:s_billmx.mxdscrp[mx],:s_billmx.subid[mx];
DO WHILE sqlca.SQLCode = 0
	s_billinfo.billamt += s_billmx.mxamt[mx]
	mx++
	FETCH cur_billmx Into :s_billmx.mxamt[mx],:s_billmx.mxdscrp[mx],:s_billmx.subid[mx];
LOOP
CLOSE cur_billmx;

mx = mx - 1
IF mx = 0 THEN
	arg_msg = ls_billname + ' 没有单据明细,请检查'
	rslt = 0
	GOTO ext
END IF

FOR j = 1 To mx
	IF s_billmx.subid[j] = '' THEN
		arg_msg = ls_billname + ' 明细行:'+String(j)+',未设置会计科目,请检查'
		rslt = 0
		GOTO ext
	END IF
NEXT

//借
no_mxt++
arg_ref_s_cred.arg_s_credmx[no_mxt].fuluno = no_mxt
arg_ref_s_cred.arg_s_credmx[no_mxt].rate = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].rawdebit = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].rawcredit = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].amount = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].price = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].deptid = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].itemid = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].billdate = null_dt
arg_ref_s_cred.arg_s_credmx[no_mxt].billid = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].billno = ''
arg_ref_s_cred.arg_s_credmx[no_mxt].cropbillid = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].ifreadonly = 1

arg_ref_s_cred.arg_s_credmx[no_mxt].brief = s_billinfo.dscrp
arg_ref_s_cred.arg_s_credmx[no_mxt].subid = s_billinfo.subid_debit
arg_ref_s_cred.arg_s_credmx[no_mxt].debit = s_billinfo.billamt
arg_ref_s_cred.arg_s_credmx[no_mxt].credit = 0
//贷
FOR j = 1 To mx
	no_mxt++
	arg_ref_s_cred.arg_s_credmx[no_mxt].fuluno = no_mxt
	arg_ref_s_cred.arg_s_credmx[no_mxt].rate = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].rawdebit = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].rawcredit = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].amount = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].price = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].deptid = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].itemid = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].billdate = null_dt
	arg_ref_s_cred.arg_s_credmx[no_mxt].billid = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].billno = ''
	arg_ref_s_cred.arg_s_credmx[no_mxt].cropbillid = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].ifreadonly = 1
	
	arg_ref_s_cred.arg_s_credmx[no_mxt].brief = s_billmx.mxdscrp[j]
	arg_ref_s_cred.arg_s_credmx[no_mxt].subid = s_billmx.subid[j]
	arg_ref_s_cred.arg_s_credmx[no_mxt].debit = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].credit = s_billmx.mxamt[j]
NEXT

arg_ref_s_cred.creddate = s_billinfo.billdate
arg_ref_s_cred.reldate = s_billinfo.billdate
arg_ref_s_cred.relcode = s_billinfo.billcode
arg_ref_s_cred.readtype = 0
arg_ref_s_cred.ifauto = 1
arg_ref_s_cred.credtype = arg_s_credport.credtype

ext:

RETURN rslt











































end function

public function integer uof_cwaudit_bill_getinfo31 (long arg_scid, long arg_billid, s_cred_port arg_s_credport, ref s_credence arg_ref_s_cred, ref string arg_msg);Int rslt = 1
Int li_hscust,li_hsspt
Long no_mxt,i,j,mx = 1
s_bill_to_cred s_billinfo
s_bill_to_credmx s_billmx

String ls_billname
DateTime null_dt
SetNull(null_dt)

ls_billname = arg_s_credport.credname

SELECT U_income_expenses.billcode,
	U_income_expenses.outdate,
	U_income_expenses.amt,
	U_income_expenses.Descrp,
	u_accounts.subid,
	'',
	U_income_expenses.cwauditingflag,
	U_income_expenses.flag
	INTO :s_billinfo.billcode,
	:s_billinfo.billdate,
	:s_billinfo.billamt,
	:s_billinfo.dscrp,
	:s_billinfo.subid_debit,
	:s_billinfo.subid_credit,
	:s_billinfo.cwauditingflag,
	:s_billinfo.flag
	FROM U_income_expenses left OUTER join u_accounts on
	U_income_expenses.accountid = u_accounts.accountsid
	WHERE U_income_expenses.billid = :arg_billid
	AND U_income_expenses.itemflag = 1
	And U_income_expenses.billtype = 0;
IF sqlca.SQLCode <> 0 THEN
	arg_msg = '查询 '+ls_billname+' 信息及相关会计科目信息失败,'+sqlca.SQLErrText
	rslt = 0
	GOTO ext
END IF

IF s_billinfo.flag = 0 THEN
	arg_msg = ls_billname + ' 未审核,请检查'
	rslt = 0
	GOTO ext
END IF

IF s_billinfo.cwauditingflag = 1 THEN
	arg_msg = ls_billname + ' 已会计审,请检查'
	rslt = 0
	GOTO ext
END IF

IF s_billinfo.subid_debit = '' THEN
	arg_msg = ls_billname + ' 出纳帐号未设置会计科目,请检查'
	rslt = 0
	GOTO ext
END IF

DECLARE cur_billmx CURSOR FOR
	SELECT U_income_expenses_mx.amt,
	U_income_expenses_mx.mxdscrp,
	u_itemdef.subid
	FROM U_income_expenses_mx left OUTER join u_itemdef on
	U_income_expenses_mx.itemid = u_itemdef.itemid
	WHERE U_income_expenses_mx.billid = :arg_billid
	Order By U_income_expenses_mx.printid;
OPEN cur_billmx;
FETCH cur_billmx Into :s_billmx.mxamt[mx],:s_billmx.mxdscrp[mx],:s_billmx.subid[mx];
DO WHILE sqlca.SQLCode = 0
	s_billinfo.billamt += s_billmx.mxamt[mx]
	mx++
	FETCH cur_billmx Into :s_billmx.mxamt[mx],:s_billmx.mxdscrp[mx],:s_billmx.subid[mx];
LOOP
CLOSE cur_billmx;

mx = mx - 1
IF mx = 0 THEN
	arg_msg = ls_billname + ' 没有单据明细,请检查'
	rslt = 0
	GOTO ext
END IF

FOR j = 1 To mx
	IF s_billmx.subid[j] = '' THEN
		arg_msg = ls_billname + ' 明细行:'+String(j)+',未设置会计科目,请检查'
		rslt = 0
		GOTO ext
	END IF
NEXT

//借
no_mxt++
arg_ref_s_cred.arg_s_credmx[no_mxt].fuluno = no_mxt
arg_ref_s_cred.arg_s_credmx[no_mxt].rate = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].rawdebit = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].rawcredit = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].amount = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].price = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].deptid = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].itemid = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].billdate = null_dt
arg_ref_s_cred.arg_s_credmx[no_mxt].billid = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].billno = ''
arg_ref_s_cred.arg_s_credmx[no_mxt].cropbillid = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].ifreadonly = 1

arg_ref_s_cred.arg_s_credmx[no_mxt].brief = s_billinfo.dscrp
arg_ref_s_cred.arg_s_credmx[no_mxt].subid = s_billinfo.subid_debit
arg_ref_s_cred.arg_s_credmx[no_mxt].debit = s_billinfo.billamt
arg_ref_s_cred.arg_s_credmx[no_mxt].credit = 0


//贷
FOR j = 1 To mx
	no_mxt++
	arg_ref_s_cred.arg_s_credmx[no_mxt].fuluno = no_mxt
	arg_ref_s_cred.arg_s_credmx[no_mxt].rate = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].rawdebit = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].rawcredit = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].amount = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].price = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].deptid = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].itemid = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].billdate = null_dt
	arg_ref_s_cred.arg_s_credmx[no_mxt].billid = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].billno = ''
	arg_ref_s_cred.arg_s_credmx[no_mxt].cropbillid = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].ifreadonly = 1
	
	arg_ref_s_cred.arg_s_credmx[no_mxt].brief = s_billmx.mxdscrp[j]
	arg_ref_s_cred.arg_s_credmx[no_mxt].subid = s_billmx.subid[j]
	arg_ref_s_cred.arg_s_credmx[no_mxt].debit = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].credit = s_billmx.mxamt[j]
NEXT




arg_ref_s_cred.creddate = s_billinfo.billdate
arg_ref_s_cred.reldate = s_billinfo.billdate
arg_ref_s_cred.relcode = s_billinfo.billcode
arg_ref_s_cred.readtype = 0
arg_ref_s_cred.ifauto = 1
arg_ref_s_cred.credtype = arg_s_credport.credtype

ext:

RETURN rslt











































end function

public function integer uof_cwaudit_bill_getinfo29 (long arg_scid, long arg_billid, s_cred_port arg_s_credport, ref s_credence arg_ref_s_cred, ref string arg_msg);Int rslt = 1
Int li_hscust,li_hsspt
Long no_mxt,i,j,mx = 1
s_bill_to_cred s_billinfo
s_bill_to_credmx s_billmx

String ls_billname
DateTime null_dt
SetNull(null_dt)

ls_billname = arg_s_credport.credname

SELECT U_income_expenses.billcode,
	U_income_expenses.outdate,
	U_income_expenses.amt,
	U_income_expenses.Descrp,
	'',
	u_spt.subid2,
	U_income_expenses.cwauditingflag,
	U_income_expenses.flag
	INTO :s_billinfo.billcode,
	:s_billinfo.billdate,
	:s_billinfo.billamt,
	:s_billinfo.dscrp,
	:s_billinfo.subid_debit,
	:s_billinfo.subid_credit,
	:s_billinfo.cwauditingflag,
	:s_billinfo.flag
	FROM U_income_expenses left OUTER join u_spt on
	U_income_expenses.spt_cus_id = u_spt.sptid
	WHERE U_income_expenses.billid = :arg_billid
	And U_income_expenses.billtype = 4;
IF sqlca.SQLCode <> 0 THEN
	arg_msg = '查询 '+ls_billname+' 信息及相关会计科目信息失败,'+sqlca.SQLErrText
	rslt = 0
	GOTO ext
END IF

IF s_billinfo.flag = 0 THEN
	arg_msg = ls_billname + ' 未审核,请检查'
	rslt = 0
	GOTO ext
END IF

IF s_billinfo.cwauditingflag = 1 THEN
	arg_msg = ls_billname + ' 已会计审,请检查'
	rslt = 0
	GOTO ext
END IF

IF s_billinfo.subid_credit = '' THEN
	arg_msg = ls_billname + ' 供应商未设置会计科目,请检查'
	rslt = 0
	GOTO ext
END IF

DECLARE cur_billmx CURSOR FOR
	SELECT U_income_expenses_mx.amt,
	U_income_expenses_mx.mxdscrp,
	u_itemdef.subid
	FROM U_income_expenses_mx left OUTER join u_itemdef on
	U_income_expenses_mx.itemid = u_itemdef.itemid
	WHERE U_income_expenses_mx.billid = :arg_billid
	Order By U_income_expenses_mx.printid;
OPEN cur_billmx;
FETCH cur_billmx Into :s_billmx.mxamt[mx],:s_billmx.mxdscrp[mx],:s_billmx.subid[mx];
DO WHILE sqlca.SQLCode = 0
	s_billinfo.billamt += s_billmx.mxamt[mx]
	mx++
	FETCH cur_billmx Into :s_billmx.mxamt[mx],:s_billmx.mxdscrp[mx],:s_billmx.subid[mx];
LOOP
CLOSE cur_billmx;

mx = mx - 1
IF mx = 0 THEN
	arg_msg = ls_billname + ' 没有单据明细,请检查'
	rslt = 0
	GOTO ext
END IF

FOR j = 1 To mx
	IF s_billmx.subid[j] = '' THEN
		arg_msg = ls_billname + ' 明细行:'+String(j)+',未设置会计科目,请检查'
		rslt = 0
		GOTO ext
	END IF
NEXT

//借
FOR j = 1 To mx
	no_mxt++
	arg_ref_s_cred.arg_s_credmx[no_mxt].fuluno = no_mxt
	arg_ref_s_cred.arg_s_credmx[no_mxt].rate = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].rawdebit = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].rawcredit = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].amount = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].price = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].deptid = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].itemid = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].billdate = null_dt
	arg_ref_s_cred.arg_s_credmx[no_mxt].billid = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].billno = ''
	arg_ref_s_cred.arg_s_credmx[no_mxt].cropbillid = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].ifreadonly = 1
	
	arg_ref_s_cred.arg_s_credmx[no_mxt].brief = s_billmx.mxdscrp[j]
	arg_ref_s_cred.arg_s_credmx[no_mxt].subid = s_billmx.subid[j]
	arg_ref_s_cred.arg_s_credmx[no_mxt].debit = s_billmx.mxamt[j]
	arg_ref_s_cred.arg_s_credmx[no_mxt].credit = 0
NEXT
//贷
no_mxt++
arg_ref_s_cred.arg_s_credmx[no_mxt].fuluno = no_mxt
arg_ref_s_cred.arg_s_credmx[no_mxt].rate = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].rawdebit = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].rawcredit = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].amount = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].price = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].deptid = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].itemid = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].billdate = null_dt
arg_ref_s_cred.arg_s_credmx[no_mxt].billid = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].billno = ''
arg_ref_s_cred.arg_s_credmx[no_mxt].cropbillid = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].ifreadonly = 1

arg_ref_s_cred.arg_s_credmx[no_mxt].brief = s_billinfo.dscrp
arg_ref_s_cred.arg_s_credmx[no_mxt].subid = s_billinfo.subid_credit
arg_ref_s_cred.arg_s_credmx[no_mxt].debit = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].credit = s_billinfo.billamt

arg_ref_s_cred.creddate = s_billinfo.billdate
arg_ref_s_cred.reldate = s_billinfo.billdate
arg_ref_s_cred.relcode = s_billinfo.billcode
arg_ref_s_cred.readtype = 0
arg_ref_s_cred.ifauto = 1
arg_ref_s_cred.credtype = arg_s_credport.credtype

ext:

RETURN rslt











































end function

public function integer uof_cwaudit_bill_getinfo32 (long arg_scid, long arg_billid, s_cred_port arg_s_credport, ref s_credence arg_ref_s_cred, ref string arg_msg);Int rslt = 1
Int li_hscust,li_hsspt
Long no_mxt,i,j,mx = 1
s_bill_to_cred s_billinfo
s_bill_to_credmx s_billmx

String ls_billname
DateTime null_dt
SetNull(null_dt)

ls_billname = arg_s_credport.credname

SELECT U_income_expenses.billcode,
	U_income_expenses.outdate,
	U_income_expenses.amt,
	U_income_expenses.Descrp,
	'',
	u_accounts.subid,
	U_income_expenses.cwauditingflag,
	U_income_expenses.flag
	INTO :s_billinfo.billcode,
	:s_billinfo.billdate,
	:s_billinfo.billamt,
	:s_billinfo.dscrp,
	:s_billinfo.subid_debit,
	:s_billinfo.subid_credit,
	:s_billinfo.cwauditingflag,
	:s_billinfo.flag
	FROM U_income_expenses left OUTER join u_accounts on
	U_income_expenses.accountid = u_accounts.accountsid
	WHERE U_income_expenses.billid = :arg_billid
	AND U_income_expenses.itemflag = -1
	And U_income_expenses.billtype = 0;
IF sqlca.SQLCode <> 0 THEN
	arg_msg = '查询 '+ls_billname+' 信息及相关会计科目信息失败,'+sqlca.SQLErrText
	rslt = 0
	GOTO ext
END IF

IF s_billinfo.flag = 0 THEN
	arg_msg = ls_billname + ' 未审核,请检查'
	rslt = 0
	GOTO ext
END IF

IF s_billinfo.cwauditingflag = 1 THEN
	arg_msg = ls_billname + ' 已会计审,请检查'
	rslt = 0
	GOTO ext
END IF

IF s_billinfo.subid_credit = '' THEN
	arg_msg = ls_billname + ' 出纳帐号未设置会计科目,请检查'
	rslt = 0
	GOTO ext
END IF

DECLARE cur_billmx CURSOR FOR
	SELECT U_income_expenses_mx.amt,
	U_income_expenses_mx.mxdscrp,
	u_itemdef.subid
	FROM U_income_expenses_mx left OUTER join u_itemdef on
	U_income_expenses_mx.itemid = u_itemdef.itemid
	WHERE U_income_expenses_mx.billid = :arg_billid
	Order By U_income_expenses_mx.printid;
OPEN cur_billmx;
FETCH cur_billmx Into :s_billmx.mxamt[mx],:s_billmx.mxdscrp[mx],:s_billmx.subid[mx];
DO WHILE sqlca.SQLCode = 0
	s_billinfo.billamt += s_billmx.mxamt[mx]
	mx++
	FETCH cur_billmx Into :s_billmx.mxamt[mx],:s_billmx.mxdscrp[mx],:s_billmx.subid[mx];
LOOP
CLOSE cur_billmx;

mx = mx - 1
IF mx = 0 THEN
	arg_msg = ls_billname + ' 没有单据明细,请检查'
	rslt = 0
	GOTO ext
END IF

FOR j = 1 To mx
	IF s_billmx.subid[j] = '' THEN
		arg_msg = ls_billname + ' 明细行:'+String(j)+',未设置会计科目,请检查'
		rslt = 0
		GOTO ext
	END IF
NEXT

//借
FOR j = 1 To mx
	no_mxt++
	arg_ref_s_cred.arg_s_credmx[no_mxt].fuluno = no_mxt
	arg_ref_s_cred.arg_s_credmx[no_mxt].rate = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].rawdebit = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].rawcredit = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].amount = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].price = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].deptid = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].itemid = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].billdate = null_dt
	arg_ref_s_cred.arg_s_credmx[no_mxt].billid = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].billno = ''
	arg_ref_s_cred.arg_s_credmx[no_mxt].cropbillid = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].ifreadonly = 1
	
	arg_ref_s_cred.arg_s_credmx[no_mxt].brief = s_billmx.mxdscrp[j]
	arg_ref_s_cred.arg_s_credmx[no_mxt].subid = s_billmx.subid[j]
	arg_ref_s_cred.arg_s_credmx[no_mxt].debit = s_billmx.mxamt[j]
	arg_ref_s_cred.arg_s_credmx[no_mxt].credit = 0
NEXT
//贷
no_mxt++
arg_ref_s_cred.arg_s_credmx[no_mxt].fuluno = no_mxt
arg_ref_s_cred.arg_s_credmx[no_mxt].rate = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].rawdebit = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].rawcredit = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].amount = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].price = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].deptid = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].itemid = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].billdate = null_dt
arg_ref_s_cred.arg_s_credmx[no_mxt].billid = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].billno = ''
arg_ref_s_cred.arg_s_credmx[no_mxt].cropbillid = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].ifreadonly = 1

arg_ref_s_cred.arg_s_credmx[no_mxt].brief = s_billinfo.dscrp
arg_ref_s_cred.arg_s_credmx[no_mxt].subid = s_billinfo.subid_credit
arg_ref_s_cred.arg_s_credmx[no_mxt].debit = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].credit = s_billinfo.billamt


arg_ref_s_cred.creddate = s_billinfo.billdate
arg_ref_s_cred.reldate = s_billinfo.billdate
arg_ref_s_cred.relcode = s_billinfo.billcode
arg_ref_s_cred.readtype = 0
arg_ref_s_cred.ifauto = 1
arg_ref_s_cred.credtype = arg_s_credport.credtype

ext:

RETURN rslt











































end function

public subroutine uof_init_s_dwsql02 ();//2 销售退货单
is_dwsql[2].dwsql_checkflag += 'SELECT count(*) as cnt FROM u_outware '
is_dwsql[2].dwsql_checkflag += 'WHERE u_outware.outwareid IN arg_id_str and u_outware.scid = arg_scid '
is_dwsql[2].dwsql_checkflag += ' And u_outware.secflag = 0; '

is_dwsql[2].dwsql_cwauditingflag += 'SELECT count(*) as cnt FROM u_outware '
is_dwsql[2].dwsql_cwauditingflag += 'WHERE u_outware.outwareid IN arg_id_str and u_outware.scid = arg_scid '
is_dwsql[2].dwsql_cwauditingflag += ' And u_outware.cwauditingflag = 2; '

is_dwsql[2].dwsql_data += 'SELECT sum(u_outwaremx.bsamt) as amt, '
is_dwsql[2].dwsql_data += 'u_cust.subid as subid_debit, '
is_dwsql[2].dwsql_data += 'u_mtrldef.subid_sale as subid_credit '
is_dwsql[2].dwsql_data += 'FROM u_outwaremx inner join u_mtrldef on '
is_dwsql[2].dwsql_data += 'u_outwaremx.mtrlid = u_mtrldef.mtrlid inner join u_outware on '
is_dwsql[2].dwsql_data += 'u_outwaremx.scid = u_outware.scid and u_outwaremx.outwareid = u_outware.outwareid '
is_dwsql[2].dwsql_data += 'WHERE u_outware.outwareid IN arg_id_str and u_outware.scid = arg_scid '
is_dwsql[2].dwsql_data += ' group by u_cust.subid,u_mtrldef.subid_sale '
is_dwsql[2].dwsql_data += ' order by u_cust.subid,u_mtrldef.subid_sale; '
is_dwsql[2].dwsql_data += 'union all '
is_dwsql[2].dwsql_data += 'SELECT sum(u_outwaremx.costamt) as amt, '
is_dwsql[2].dwsql_data += 'u_mtrldef.subid_cost as subid_debit, '
is_dwsql[2].dwsql_data += 'u_mtrldef.subid as subid_credit '
is_dwsql[2].dwsql_data += 'FROM u_outwaremx inner join u_mtrldef on '
is_dwsql[2].dwsql_data += 'u_outwaremx.mtrlid = u_mtrldef.mtrlid inner join u_outware on '
is_dwsql[2].dwsql_data += 'u_outwaremx.scid = u_outware.scid and u_outwaremx.outwareid = u_outware.outwareid '
is_dwsql[2].dwsql_data += 'WHERE u_outware.outwareid IN arg_id_str and u_outware.scid = arg_scid '
is_dwsql[2].dwsql_data += ' group by u_mtrldef.subid_cost,u_mtrldef.subid '
is_dwsql[2].dwsql_data += ' order by u_mtrldef.subid_cost,u_mtrldef.subid; '

is_dwsql[2].dwsql_data_ifstorage += 'SELECT sum(u_outwaremx.bsamt) as amt, '
is_dwsql[2].dwsql_data_ifstorage += 'u_cust.subid as subid_debit, '
is_dwsql[2].dwsql_data_ifstorage += 'u_storage.subid_sale as subid_credit '
is_dwsql[2].dwsql_data_ifstorage += 'FROM u_outware inner join u_storage on '
is_dwsql[2].dwsql_data_ifstorage += 'u_outware.storageid = u_storage.storageid inner join u_outwaremx on '
is_dwsql[2].dwsql_data_ifstorage += 'u_outwaremx.scid = u_outware.scid and u_outwaremx.outwareid = u_outware.outwareid '
is_dwsql[2].dwsql_data_ifstorage += 'WHERE u_outware.outwareid IN arg_id_str and u_outware.scid = arg_scid '
is_dwsql[2].dwsql_data_ifstorage += ' group by u_cust.subid,u_storage.subid_sale '
is_dwsql[2].dwsql_data_ifstorage += ' order by u_cust.subid,u_storage.subid_sale; '
is_dwsql[2].dwsql_data_ifstorage += 'union all '
is_dwsql[2].dwsql_data_ifstorage += 'SELECT sum(u_outwaremx.costamt) as amt, '
is_dwsql[2].dwsql_data_ifstorage += 'u_storage.subid_cost as subid_debit, '
is_dwsql[2].dwsql_data_ifstorage += 'u_storage.subid as subid_credit '
is_dwsql[2].dwsql_data_ifstorage += 'FROM u_outware inner join u_storage on '
is_dwsql[2].dwsql_data_ifstorage += 'u_outware.storageid = u_storage.storageid inner join u_outwaremx on '
is_dwsql[2].dwsql_data_ifstorage += 'u_outwaremx.scid = u_outware.scid and u_outwaremx.outwareid = u_outware.outwareid '
is_dwsql[2].dwsql_data_ifstorage += 'WHERE u_outware.outwareid IN arg_id_str and u_outware.scid = arg_scid '
is_dwsql[2].dwsql_data_ifstorage += ' group by u_storage.subid_cost,u_storage.subid '
is_dwsql[2].dwsql_data_ifstorage += ' order by u_storage.subid_cost,u_storage.subid; '

end subroutine

public subroutine uof_init_s_dwsql04 ();//4 客户费用单	
is_dwsql[4].dwsql_checkflag += 'SELECT count(*) as cnt FROM u_reissue '
is_dwsql[4].dwsql_checkflag += 'WHERE u_reissue.reissueid IN arg_id_str and u_reissue.scid = arg_scid '
is_dwsql[4].dwsql_checkflag += ' And u_reissue.flag = 0; '

is_dwsql[4].dwsql_cwauditingflag += 'SELECT count(*) as cnt FROM u_reissue '
is_dwsql[4].dwsql_cwauditingflag += 'WHERE u_reissue.reissueid IN arg_id_str and u_reissue.scid = arg_scid '
is_dwsql[4].dwsql_cwauditingflag += ' And u_reissue.cwauditingflag = 1; '

is_dwsql[4].dwsql_data += 'SELECT sum(u_reissuemx.amt) as amt, '
is_dwsql[4].dwsql_data += 'u_cust.subid as subid_debit, '
is_dwsql[4].dwsql_data += 'U_Expenses.subid as subid_credit '
is_dwsql[4].dwsql_data += 'FROM u_reissue left outer join u_cust on '
is_dwsql[4].dwsql_data += 'u_reissue.cusid = u_cust.cusid inner join u_reissuemx on '
is_dwsql[4].dwsql_data += 'u_reissue.reissueid = u_reissuemx.reissueid and '
is_dwsql[4].dwsql_data += 'u_reissue.scid = u_reissuemx.scid left outer join U_Expenses on  '
is_dwsql[4].dwsql_data += 'u_reissuemx.mtrlid = U_Expenses.ExpensesID '
is_dwsql[4].dwsql_data += 'WHERE u_reissue.billid IN arg_id_str and u_reissue.scid = arg_scid '
is_dwsql[4].dwsql_data += ' group by u_cust.subid,U_Expenses.subid '
is_dwsql[4].dwsql_data += ' order by u_cust.subid,U_Expenses.subid; '

end subroutine

public subroutine uof_init_s_dwsql05 ();//5 客户返利单		
is_dwsql[5].dwsql_checkflag += 'SELECT count(*) as cnt FROM u_giveback '
is_dwsql[5].dwsql_checkflag += 'WHERE u_giveback.givebackid IN arg_id_str and u_giveback.scid = arg_scid '
is_dwsql[5].dwsql_checkflag += ' And u_giveback.flag = 0; '

is_dwsql[5].dwsql_cwauditingflag += 'SELECT count(*) as cnt FROM u_giveback '
is_dwsql[5].dwsql_cwauditingflag += 'WHERE u_giveback.givebackid IN arg_id_str and u_giveback.scid = arg_scid '
is_dwsql[5].dwsql_cwauditingflag += ' And u_giveback.cwauditingflag = 1; '

is_dwsql[5].dwsql_data += 'SELECT sum(u_giveback.sumamt) as amt, '
is_dwsql[5].dwsql_data += 'u_cust.subid as subid_debit, '
is_dwsql[5].dwsql_data += 'u_itemdef.subid as subid_credit '
is_dwsql[5].dwsql_data += 'FROM u_giveback inner join u_cust on '
is_dwsql[5].dwsql_data += 'u_giveback.cusid = u_cust.cusid inner join u_itemdef on '
is_dwsql[5].dwsql_data += 'u_giveback.itemid = u_itemdef.itemid '
is_dwsql[5].dwsql_data += 'WHERE u_giveback.givebackid IN arg_id_str and u_giveback.scid = arg_scid '
is_dwsql[5].dwsql_data += ' group by u_cust.subid,u_itemdef.subid '
is_dwsql[5].dwsql_data += ' order by u_cust.subid,u_itemdef.subid; '

end subroutine

public subroutine uof_init_s_dwsql01 ();//1 销售发货单
is_dwsql[1].dwsql_checkflag += 'SELECT count(*) as cnt FROM u_outware '
is_dwsql[1].dwsql_checkflag += 'WHERE u_outware.outwareid IN arg_id_str and u_outware.scid = arg_scid '
is_dwsql[1].dwsql_checkflag += ' And u_outware.secflag = 0; '

is_dwsql[1].dwsql_cwauditingflag += 'SELECT count(*) as cnt FROM u_outware '
is_dwsql[1].dwsql_cwauditingflag += 'WHERE u_outware.outwareid IN arg_id_str and u_outware.scid = arg_scid '
is_dwsql[1].dwsql_cwauditingflag += ' And u_outware.cwauditingflag = 1; '

is_dwsql[1].dwsql_data += 'SELECT sum(u_outwaremx.bsamt) as amt, '
is_dwsql[1].dwsql_data += 'u_cust.subid as subid_debit, '
is_dwsql[1].dwsql_data += 'u_mtrldef.subid_sale as subid_credit '
is_dwsql[1].dwsql_data += 'FROM u_outwaremx inner join u_mtrldef on '
is_dwsql[1].dwsql_data += 'u_outwaremx.mtrlid = u_mtrldef.mtrlid inner join u_outware on '
is_dwsql[1].dwsql_data += 'u_outwaremx.scid = u_outware.scid and u_outwaremx.outwareid = u_outware.outwareid '
is_dwsql[1].dwsql_data += 'WHERE u_outware.outwareid IN arg_id_str and u_outware.scid = arg_scid '
is_dwsql[1].dwsql_data += ' group by u_cust.subid,u_mtrldef.subid_sale '
is_dwsql[1].dwsql_data += ' order by u_cust.subid,u_mtrldef.subid_sale; '
is_dwsql[1].dwsql_data += 'union all '
is_dwsql[1].dwsql_data += 'SELECT sum(u_outwaremx.costamt) as amt, '
is_dwsql[1].dwsql_data += 'u_mtrldef.subid_cost as subid_debit, '
is_dwsql[1].dwsql_data += 'u_mtrldef.subid as subid_credit '
is_dwsql[1].dwsql_data += 'FROM u_outwaremx inner join u_mtrldef on '
is_dwsql[1].dwsql_data += 'u_outwaremx.mtrlid = u_mtrldef.mtrlid inner join u_outware on '
is_dwsql[1].dwsql_data += 'u_outwaremx.scid = u_outware.scid and u_outwaremx.outwareid = u_outware.outwareid '
is_dwsql[1].dwsql_data += 'WHERE u_outware.outwareid IN arg_id_str and u_outware.scid = arg_scid '
is_dwsql[1].dwsql_data += ' group by u_mtrldef.subid_cost,u_mtrldef.subid '
is_dwsql[1].dwsql_data += ' order by u_mtrldef.subid_cost,u_mtrldef.subid; '

is_dwsql[1].dwsql_data += 'SELECT sum(u_outwaremx.bsamt) as amt, '
is_dwsql[1].dwsql_data += 'u_cust.subid as subid_debit, '
is_dwsql[1].dwsql_data += 'u_storage.subid_sale as subid_credit '
is_dwsql[1].dwsql_data += 'FROM u_outware inner join u_storage on '
is_dwsql[1].dwsql_data += 'u_outware.storageid = u_storage.storageid inner join u_outwaremx on '
is_dwsql[1].dwsql_data += 'u_outwaremx.scid = u_outware.scid and u_outwaremx.outwareid = u_outware.outwareid '
is_dwsql[1].dwsql_data += 'WHERE u_outware.outwareid IN arg_id_str and u_outware.scid = arg_scid '
is_dwsql[1].dwsql_data += ' group by u_cust.subid,u_storage.subid_sale '
is_dwsql[1].dwsql_data += ' order by u_cust.subid,u_storage.subid_sale; '
is_dwsql[1].dwsql_data += 'union all '
is_dwsql[1].dwsql_data += 'SELECT sum(u_outwaremx.costamt) as amt, '
is_dwsql[1].dwsql_data += 'u_storage.subid_cost as subid_debit, '
is_dwsql[1].dwsql_data += 'u_storage.subid as subid_credit '
is_dwsql[1].dwsql_data += 'FROM u_outware inner join u_storage on '
is_dwsql[1].dwsql_data += 'u_outware.storageid = u_storage.storageid inner join u_outwaremx on '
is_dwsql[1].dwsql_data += 'u_outwaremx.scid = u_outware.scid and u_outwaremx.outwareid = u_outware.outwareid '
is_dwsql[1].dwsql_data += 'WHERE u_outware.outwareid IN arg_id_str and u_outware.scid = arg_scid '
is_dwsql[1].dwsql_data += ' group by u_storage.subid_cost,u_storage.subid '
is_dwsql[1].dwsql_data += ' order by u_storage.subid_cost,u_storage.subid; '


end subroutine

public subroutine uof_init_s_dwsql06 ();//6 采购收货单
is_dwsql[6].dwsql_checkflag += 'SELECT count(*) as cnt FROM u_inware '
is_dwsql[6].dwsql_checkflag += 'WHERE u_inware.inwareid IN arg_id_str and u_inware.scid = arg_scid '
is_dwsql[6].dwsql_checkflag += ' And u_inware.secflag = 0; '

is_dwsql[6].dwsql_cwauditingflag += 'SELECT count(*) as cnt FROM u_inware '
is_dwsql[6].dwsql_cwauditingflag += 'WHERE u_inware.inwareid IN arg_id_str and u_inware.scid = arg_scid '
is_dwsql[6].dwsql_cwauditingflag += ' And u_inware.cwauditingflag = 1; '

is_dwsql[6].dwsql_data += 'SELECT sum(u_inwaremx.bsamt) as amt, '
is_dwsql[6].dwsql_data += 'u_mtrldef.subid as subid_debit, '
is_dwsql[6].dwsql_data += 'u_spt.subid as subid_credit '
is_dwsql[6].dwsql_data += 'FROM u_inwaremx inner join u_mtrldef on '
is_dwsql[6].dwsql_data += 'u_inwaremx.mtrlid = u_mtrldef.mtrlid inner join u_inware on '
is_dwsql[6].dwsql_data += 'u_inwaremx.scid = u_inware.scid and u_inwaremx.inwareid = u_inware.inwareid inner join u_spt on '
is_dwsql[6].dwsql_data += 'u_inware.sptid = u_spt.sptid  '
is_dwsql[6].dwsql_data += 'WHERE u_inware.inwareid IN arg_id_str and u_inware.scid = arg_scid '
is_dwsql[6].dwsql_data += ' group by u_mtrldef.subid,u_spt.subid '
is_dwsql[6].dwsql_data += ' order by u_mtrldef.subid,u_spt.subid; '

is_dwsql[6].dwsql_data_ifstorage += 'SELECT sum(u_inwaremx.bsamt) as amt, '
is_dwsql[6].dwsql_data_ifstorage += 'u_storage.subid as subid_debit, '
is_dwsql[6].dwsql_data_ifstorage += 'u_spt.subid as subid_credit '
is_dwsql[6].dwsql_data_ifstorage += 'FROM u_inware inner join u_storage on '
is_dwsql[6].dwsql_data_ifstorage += 'u_inware.storageid = u_storage.storageid inner join u_inwaremx on '
is_dwsql[6].dwsql_data_ifstorage += 'u_inwaremx.scid = u_inware.scid and u_inwaremx.inwareid = u_inware.inwareid inner join u_spt on '
is_dwsql[6].dwsql_data_ifstorage += 'u_inware.sptid = u_spt.sptid  '
is_dwsql[6].dwsql_data_ifstorage += 'WHERE u_inware.inwareid IN arg_id_str and u_inware.scid = arg_scid '
is_dwsql[6].dwsql_data_ifstorage += ' group by u_storage.subid,u_spt.subid '
is_dwsql[6].dwsql_data_ifstorage += ' order by u_storage.subid,u_spt.subid; '


end subroutine

public subroutine uof_init_s_dwsql07 ();//7 采购退货单
is_dwsql[7].dwsql_checkflag += 'SELECT count(*) as cnt FROM u_inware '
is_dwsql[7].dwsql_checkflag += 'WHERE u_inware.inwareid IN arg_id_str and u_inware.scid = arg_scid '
is_dwsql[7].dwsql_checkflag += ' And u_inware.secflag = 0; '

is_dwsql[7].dwsql_cwauditingflag += 'SELECT count(*) as cnt FROM u_inware '
is_dwsql[7].dwsql_cwauditingflag += 'WHERE u_inware.inwareid IN arg_id_str and u_inware.scid = arg_scid '
is_dwsql[7].dwsql_cwauditingflag += ' And u_inware.cwauditingflag = 1; '

is_dwsql[7].dwsql_data += 'SELECT sum(u_inwaremx.bsamt) as amt, '
is_dwsql[7].dwsql_data += 'u_mtrldef.subid as subid_debit, '
is_dwsql[7].dwsql_data += 'u_spt.subid as subid_credit '
is_dwsql[7].dwsql_data += 'FROM u_inwaremx inner join u_mtrldef on '
is_dwsql[7].dwsql_data += 'u_inwaremx.mtrlid = u_mtrldef.mtrlid inner join u_inware on '
is_dwsql[7].dwsql_data += 'u_inwaremx.scid = u_inware.scid and u_inwaremx.inwareid = u_inware.inwareid inner join u_spt on '
is_dwsql[7].dwsql_data += 'u_inware.sptid = u_spt.sptid  '
is_dwsql[7].dwsql_data += 'WHERE u_inware.inwareid IN arg_id_str and u_inware.scid = arg_scid '
is_dwsql[7].dwsql_data += ' group by u_mtrldef.subid,u_spt.subid '
is_dwsql[7].dwsql_data += ' order by u_mtrldef.subid,u_spt.subid; '

is_dwsql[7].dwsql_data_ifstorage += 'SELECT sum(u_inwaremx.bsamt) as amt, '
is_dwsql[7].dwsql_data_ifstorage += 'u_storage.subid as subid_debit, '
is_dwsql[7].dwsql_data_ifstorage += 'u_spt.subid as subid_credit '
is_dwsql[7].dwsql_data_ifstorage += 'FROM u_inware inner join u_storage on '
is_dwsql[7].dwsql_data_ifstorage += 'u_inware.storageid = u_storage.storageid inner join u_inwaremx on '
is_dwsql[7].dwsql_data_ifstorage += 'u_inwaremx.scid = u_inware.scid and u_inwaremx.inwareid = u_inware.inwareid inner join u_spt on '
is_dwsql[7].dwsql_data_ifstorage += 'u_inware.sptid = u_spt.sptid  '
is_dwsql[7].dwsql_data_ifstorage += 'WHERE u_inware.inwareid IN arg_id_str and u_inware.scid = arg_scid '
is_dwsql[7].dwsql_data_ifstorage += ' group by u_storage.subid,u_spt.subid '
is_dwsql[7].dwsql_data_ifstorage += ' order by u_storage.subid,u_spt.subid; '


end subroutine

public subroutine uof_init_s_dwsql08 ();//8 供应商罚款单	
is_dwsql[8].dwsql_checkflag += 'SELECT count(*) as cnt FROM u_spt_amerce '
is_dwsql[8].dwsql_checkflag += 'WHERE u_spt_amerce.billid IN arg_id_str and u_spt_amerce.scid = arg_scid '
is_dwsql[8].dwsql_checkflag += ' And u_spt_amerce.flag = 0; '

is_dwsql[8].dwsql_cwauditingflag += 'SELECT count(*) as cnt FROM u_spt_amerce '
is_dwsql[8].dwsql_cwauditingflag += 'WHERE u_spt_amerce.billid IN arg_id_str and u_spt_amerce.scid = arg_scid '
is_dwsql[8].dwsql_cwauditingflag += ' And u_spt_amerce.cwauditingflag = 1; '

is_dwsql[8].dwsql_data += 'SELECT sum(u_spt_amerce.amerceamt) as amt, '
is_dwsql[8].dwsql_data += 'u_itemdef.subid as subid_debit, '
is_dwsql[8].dwsql_data += 'u_spt.subid as subid_credit '
is_dwsql[8].dwsql_data += 'FROM u_spt_amerce inner join u_spt on '
is_dwsql[8].dwsql_data += 'u_spt_amerce.sptid = u_spt.sptid left outer join u_itemdef on '
is_dwsql[8].dwsql_data += 'u_spt_amerce.itemid = u_itemdef.itemid '
is_dwsql[8].dwsql_data += 'WHERE u_spt_amerce.billid IN arg_id_str and u_spt_amerce.scid = arg_scid '
is_dwsql[8].dwsql_data += ' group by u_itemdef.subid,u_spt.subid '
is_dwsql[8].dwsql_data += ' order by u_itemdef.subid,u_spt.subid; '


end subroutine

public subroutine uof_init_s_dwsql09 ();//9 供应商费用单	
is_dwsql[9].dwsql_checkflag += 'SELECT count(*) as cnt FROM u_reissue '
is_dwsql[9].dwsql_checkflag += 'WHERE u_reissue.reissueid IN arg_id_str and u_reissue.scid = arg_scid '
is_dwsql[9].dwsql_checkflag += ' And u_reissue.flag = 0; '

is_dwsql[9].dwsql_cwauditingflag += 'SELECT count(*) as cnt FROM u_reissue '
is_dwsql[9].dwsql_cwauditingflag += 'WHERE u_reissue.reissueid IN arg_id_str and u_reissue.scid = arg_scid '
is_dwsql[9].dwsql_cwauditingflag += ' And u_reissue.cwauditingflag = 1; '

is_dwsql[9].dwsql_data += 'SELECT sum(u_reissuemx.amt) as amt, '
is_dwsql[9].dwsql_data += 'U_Expenses.subid as subid_debit, '
is_dwsql[9].dwsql_data += 'u_spt.subid as subid_credit '
is_dwsql[9].dwsql_data += 'FROM u_reissue left outer join u_spt on '
is_dwsql[9].dwsql_data += 'u_reissue.cusid = u_spt.sptid inner join u_reissuemx on '
is_dwsql[9].dwsql_data += 'u_reissue.reissueid = u_reissuemx.reissueid and '
is_dwsql[9].dwsql_data += 'u_reissue.scid = u_reissuemx.scid left outer join U_Expenses on  '
is_dwsql[9].dwsql_data += 'u_reissuemx.mtrlid = U_Expenses.ExpensesID '
is_dwsql[9].dwsql_data += 'WHERE u_reissue.billid IN arg_id_str and u_reissue.scid = arg_scid '
is_dwsql[9].dwsql_data += ' group by U_Expenses.subid,u_spt.subid '
is_dwsql[9].dwsql_data += ' order by U_Expenses.subid,u_spt.subid; '

end subroutine

public subroutine uof_init_s_dwsql14 ();//14 生产领料单
is_dwsql[14].dwsql_checkflag += 'SELECT count(*) as cnt FROM u_outware '
is_dwsql[14].dwsql_checkflag += 'WHERE u_outware.outwareid IN arg_id_str and u_outware.scid = arg_scid '
is_dwsql[14].dwsql_checkflag += ' And u_outware.flag = 0; '

is_dwsql[14].dwsql_cwauditingflag += 'SELECT count(*) as cnt FROM u_outware '
is_dwsql[14].dwsql_cwauditingflag += 'WHERE u_outware.outwareid IN arg_id_str and u_outware.scid = arg_scid '
is_dwsql[14].dwsql_cwauditingflag += ' And u_outware.cwauditingflag = 1; '

is_dwsql[14].dwsql_data += 'SELECT sum(u_outwaremx.costamt) as amt, '
is_dwsql[14].dwsql_data += 'u_mtrldef.subid_scll as subid_debit, '
is_dwsql[14].dwsql_data += 'u_mtrldef.subid as subid_credit '
is_dwsql[14].dwsql_data += 'FROM u_outwaremx inner join u_mtrldef on '
is_dwsql[14].dwsql_data += 'u_outwaremx.mtrlid = u_mtrldef.mtrlid inner join u_outware on '
is_dwsql[14].dwsql_data += 'u_outwaremx.scid = u_outware.scid and u_outwaremx.outwareid = u_outware.outwareid '
is_dwsql[14].dwsql_data += 'WHERE u_outware.outwareid IN arg_id_str and u_outware.scid = arg_scid '
is_dwsql[14].dwsql_data += ' group by u_mtrldef.subid_scll,u_mtrldef.subid '
is_dwsql[14].dwsql_data += ' order by u_mtrldef.subid_scll,u_mtrldef.subid; '

is_dwsql[14].dwsql_data_ifstorage += 'SELECT sum(u_outwaremx.costamt) as amt, '
is_dwsql[14].dwsql_data_ifstorage += 'u_storage.subid_scll as subid_debit, '
is_dwsql[14].dwsql_data_ifstorage += 'u_storage.subid as subid_credit '
is_dwsql[14].dwsql_data_ifstorage += 'FROM u_outware inner join u_storage on '
is_dwsql[14].dwsql_data_ifstorage += 'u_outware.storageid = u_storage.storageid inner join u_outwaremx on '
is_dwsql[14].dwsql_data_ifstorage += 'u_outwaremx.scid = u_outware.scid and u_outwaremx.outwareid = u_outware.outwareid '
is_dwsql[14].dwsql_data_ifstorage += 'WHERE u_outware.outwareid IN arg_id_str and u_outware.scid = arg_scid '
is_dwsql[14].dwsql_data_ifstorage += ' group by u_storage.subid_scll,u_storage.subid '
is_dwsql[14].dwsql_data_ifstorage += ' order by u_storage.subid_scll,u_storage.subid; '


end subroutine

public subroutine uof_init_s_dwsql15 ();//15 其它出仓单
is_dwsql[15].dwsql_checkflag += 'SELECT count(*) as cnt FROM u_outware '
is_dwsql[15].dwsql_checkflag += 'WHERE u_outware.outwareid IN arg_id_str and u_outware.scid = arg_scid '
is_dwsql[15].dwsql_checkflag += ' And u_outware.flag = 0; '

is_dwsql[15].dwsql_cwauditingflag += 'SELECT count(*) as cnt FROM u_outware '
is_dwsql[15].dwsql_cwauditingflag += 'WHERE u_outware.outwareid IN arg_id_str and u_outware.scid = arg_scid '
is_dwsql[15].dwsql_cwauditingflag += ' And u_outware.cwauditingflag = 1; '

is_dwsql[15].dwsql_data += 'SELECT sum(u_outwaremx.costamt) as amt, '
is_dwsql[15].dwsql_data += 'u_static.subid as subid_debit, '
is_dwsql[15].dwsql_data += 'u_mtrldef.subid as subid_credit '
is_dwsql[15].dwsql_data += 'FROM u_outwaremx inner join u_mtrldef on '
is_dwsql[15].dwsql_data += 'u_outwaremx.mtrlid = u_mtrldef.mtrlid inner join u_outware on '
is_dwsql[15].dwsql_data += 'u_outwaremx.scid = u_outware.scid and u_outwaremx.outwareid = u_outware.outwareid inner join u_static on '
is_dwsql[15].dwsql_data += 'u_outware.staticid = u_static.staticid  '
is_dwsql[15].dwsql_data += 'WHERE u_outware.outwareid IN arg_id_str and u_outware.scid = arg_scid '
is_dwsql[15].dwsql_data += ' group by u_static.subid,u_mtrldef.subid '
is_dwsql[15].dwsql_data += ' order by u_static.subid,u_mtrldef.subid; '

is_dwsql[15].dwsql_data_ifstorage += 'SELECT sum(u_outwaremx.costamt) as amt, '
is_dwsql[15].dwsql_data_ifstorage += 'u_static.subid as subid_debit, '
is_dwsql[15].dwsql_data_ifstorage += 'u_storage.subid as subid_credit '
is_dwsql[15].dwsql_data_ifstorage += 'FROM u_outware inner join u_storage on '
is_dwsql[15].dwsql_data_ifstorage += 'u_outware.storageid = u_storage.storageid inner join u_outwaremx on '
is_dwsql[15].dwsql_data_ifstorage += 'u_outwaremx.scid = u_outware.scid and u_outwaremx.outwareid = u_outware.outwareid inner join u_static on '
is_dwsql[15].dwsql_data_ifstorage += 'u_outware.staticid = u_static.staticid  '
is_dwsql[15].dwsql_data_ifstorage += 'WHERE u_outware.outwareid IN arg_id_str and u_outware.scid = arg_scid '
is_dwsql[15].dwsql_data_ifstorage += ' group by u_static.subid,u_storage.subid '
is_dwsql[15].dwsql_data_ifstorage += ' order by u_static.subid,u_storage.subid; '


end subroutine

public subroutine uof_init_s_dwsql16 ();//16 盘亏单
is_dwsql[16].dwsql_checkflag += 'SELECT count(*) as cnt FROM u_outware '
is_dwsql[16].dwsql_checkflag += 'WHERE u_outware.outwareid IN arg_id_str and u_outware.scid = arg_scid '
is_dwsql[16].dwsql_checkflag += ' And u_outware.flag = 0; '

is_dwsql[16].dwsql_cwauditingflag += 'SELECT count(*) as cnt FROM u_outware '
is_dwsql[16].dwsql_cwauditingflag += 'WHERE u_outware.outwareid IN arg_id_str and u_outware.scid = arg_scid '
is_dwsql[16].dwsql_cwauditingflag += ' And u_outware.cwauditingflag = 1; '

is_dwsql[16].dwsql_data += 'SELECT sum(u_outwaremx.costamt) as amt, '
is_dwsql[16].dwsql_data += 'u_mtrldef.subid_pk as subid_debit, '
is_dwsql[16].dwsql_data += 'u_mtrldef.subid as subid_credit '
is_dwsql[16].dwsql_data += 'FROM u_outwaremx inner join u_mtrldef on '
is_dwsql[16].dwsql_data += 'u_outwaremx.mtrlid = u_mtrldef.mtrlid inner join u_outware on '
is_dwsql[16].dwsql_data += 'u_outwaremx.scid = u_outware.scid and u_outwaremx.outwareid = u_outware.outwareid '
is_dwsql[16].dwsql_data += 'WHERE u_outware.outwareid IN arg_id_str and u_outware.scid = arg_scid '
is_dwsql[16].dwsql_data += ' group by u_mtrldef.subid_pk,u_mtrldef.subid '
is_dwsql[16].dwsql_data += ' order by u_mtrldef.subid_pk,u_mtrldef.subid; '

is_dwsql[16].dwsql_data_ifstorage += 'SELECT sum(u_outwaremx.costamt) as amt, '
is_dwsql[16].dwsql_data_ifstorage += 'u_storage.subid_pk as subid_debit, '
is_dwsql[16].dwsql_data_ifstorage += 'u_storage.subid as subid_credit '
is_dwsql[16].dwsql_data_ifstorage += 'FROM u_outware inner join u_storage on '
is_dwsql[16].dwsql_data_ifstorage += 'u_outware.storageid = u_storage.storageid inner join u_outwaremx on '
is_dwsql[16].dwsql_data_ifstorage += 'u_outwaremx.scid = u_outware.scid and u_outwaremx.outwareid = u_outware.outwareid '
is_dwsql[16].dwsql_data_ifstorage += 'WHERE u_outware.outwareid IN arg_id_str and u_outware.scid = arg_scid '
is_dwsql[16].dwsql_data_ifstorage += ' group by u_storage.subid_pk,u_storage.subid '
is_dwsql[16].dwsql_data_ifstorage += ' order by u_storage.subid_pk,u_storage.subid; '


end subroutine

public subroutine uof_init_s_dwsql17 ();//17 生产进仓单
is_dwsql[17].dwsql_checkflag += 'SELECT count(*) as cnt FROM u_inware '
is_dwsql[17].dwsql_checkflag += 'WHERE u_inware.inwareid IN arg_id_str and u_inware.scid = arg_scid '
is_dwsql[17].dwsql_checkflag += ' And u_inware.flag = 0; '

is_dwsql[17].dwsql_cwauditingflag += 'SELECT count(*) as cnt FROM u_inware '
is_dwsql[17].dwsql_cwauditingflag += 'WHERE u_inware.inwareid IN arg_id_str and u_inware.scid = arg_scid '
is_dwsql[17].dwsql_cwauditingflag += ' And u_inware.cwauditingflag = 1; '

is_dwsql[17].dwsql_data += 'SELECT sum(u_inwaremx.costamt) as amt, '
is_dwsql[17].dwsql_data += 'u_mtrldef.subid as subid_debit, '
is_dwsql[17].dwsql_data += 'u_mtrldef.subid_scll as subid_credit '
is_dwsql[17].dwsql_data += 'FROM u_inwaremx inner join u_mtrldef on '
is_dwsql[17].dwsql_data += 'u_inwaremx.mtrlid = u_mtrldef.mtrlid inner join u_inware on '
is_dwsql[17].dwsql_data += 'u_inwaremx.scid = u_inware.scid and u_inwaremx.inwareid = u_inware.inwareid '
is_dwsql[17].dwsql_data += 'WHERE u_inware.inwareid IN arg_id_str and u_inware.scid = arg_scid '
is_dwsql[17].dwsql_data += ' group by u_mtrldef.subid,u_mtrldef.subid_scll '
is_dwsql[17].dwsql_data += ' order by u_mtrldef.subid,u_mtrldef.subid_scll; '

is_dwsql[17].dwsql_data_ifstorage += 'SELECT sum(u_inwaremx.costamt) as amt, '
is_dwsql[17].dwsql_data_ifstorage += 'u_storage.subid as subid_debit, '
is_dwsql[17].dwsql_data_ifstorage += 'u_storage.subid_scll as subid_credit '
is_dwsql[17].dwsql_data_ifstorage += 'FROM u_inware inner join u_storage on '
is_dwsql[17].dwsql_data_ifstorage += 'u_inware.storageid = u_storage.storageid inner join u_inwaremx on '
is_dwsql[17].dwsql_data_ifstorage += 'u_inwaremx.scid = u_inware.scid and u_inwaremx.inwareid = u_inware.inwareid '
is_dwsql[17].dwsql_data_ifstorage += 'WHERE u_inware.inwareid IN arg_id_str and u_inware.scid = arg_scid '
is_dwsql[17].dwsql_data_ifstorage += ' group by u_storage.subid,u_storage.subid_scll '
is_dwsql[17].dwsql_data_ifstorage += ' order by u_storage.subid,u_storage.subid_scll; '


end subroutine

public subroutine uof_init_s_dwsql18 ();//18 其它进仓单
is_dwsql[18].dwsql_checkflag += 'SELECT count(*) as cnt FROM u_inware '
is_dwsql[18].dwsql_checkflag += 'WHERE u_inware.inwareid IN arg_id_str and u_inware.scid = arg_scid '
is_dwsql[18].dwsql_checkflag += ' And u_inware.flag = 0; '

is_dwsql[18].dwsql_cwauditingflag += 'SELECT count(*) as cnt FROM u_inware '
is_dwsql[18].dwsql_cwauditingflag += 'WHERE u_inware.inwareid IN arg_id_str and u_inware.scid = arg_scid '
is_dwsql[18].dwsql_cwauditingflag += ' And u_inware.cwauditingflag = 1; '

is_dwsql[18].dwsql_data += 'SELECT sum(u_inwaremx.bsamt) as amt, '
is_dwsql[18].dwsql_data += 'u_mtrldef.subid as subid_debit, '
is_dwsql[18].dwsql_data += 'u_static.subid as subid_credit '
is_dwsql[18].dwsql_data += 'FROM u_inwaremx inner join u_mtrldef on '
is_dwsql[18].dwsql_data += 'u_inwaremx.mtrlid = u_mtrldef.mtrlid inner join u_inware on '
is_dwsql[18].dwsql_data += 'u_inwaremx.scid = u_inware.scid and u_inwaremx.inwareid = u_inware.inwareid inner join u_static on '
is_dwsql[18].dwsql_data += 'u_inware.staticid = u_static.staticid  '
is_dwsql[18].dwsql_data += 'WHERE u_inware.inwareid IN arg_id_str and u_inware.scid = arg_scid '
is_dwsql[18].dwsql_data += ' group by u_mtrldef.subid,u_static.subid '
is_dwsql[18].dwsql_data += ' order by u_mtrldef.subid,u_static.subid; '

is_dwsql[18].dwsql_data_ifstorage += 'SELECT sum(u_inwaremx.bsamt) as amt, '
is_dwsql[18].dwsql_data_ifstorage += 'u_storage.subid as subid_debit, '
is_dwsql[18].dwsql_data_ifstorage += 'u_static.subid as subid_credit '
is_dwsql[18].dwsql_data_ifstorage += 'FROM u_inware inner join u_storage on '
is_dwsql[18].dwsql_data_ifstorage += 'u_inware.storageid = u_storage.storageid inner join u_inwaremx on '
is_dwsql[18].dwsql_data_ifstorage += 'u_inwaremx.scid = u_inware.scid and u_inwaremx.inwareid = u_inware.inwareid inner join u_static on '
is_dwsql[18].dwsql_data_ifstorage += 'u_inware.staticid = u_static.staticid  '
is_dwsql[18].dwsql_data_ifstorage += 'WHERE u_inware.inwareid IN arg_id_str and u_inware.scid = arg_scid '
is_dwsql[18].dwsql_data_ifstorage += ' group by u_storage.subid,u_static.subid '
is_dwsql[18].dwsql_data_ifstorage += ' order by u_storage.subid,u_static.subid; '


end subroutine

public subroutine uof_init_s_dwsql19 ();//19 盘盈单
is_dwsql[19].dwsql_checkflag += 'SELECT count(*) as cnt FROM u_inware '
is_dwsql[19].dwsql_checkflag += 'WHERE u_inware.inwareid IN arg_id_str and u_inware.scid = arg_scid '
is_dwsql[19].dwsql_checkflag += ' And u_inware.flag = 0; '

is_dwsql[19].dwsql_cwauditingflag += 'SELECT count(*) as cnt FROM u_inware '
is_dwsql[19].dwsql_cwauditingflag += 'WHERE u_inware.inwareid IN arg_id_str and u_inware.scid = arg_scid '
is_dwsql[19].dwsql_cwauditingflag += ' And u_inware.cwauditingflag = 1; '

is_dwsql[19].dwsql_data += 'SELECT sum(u_inwaremx.costamt) as amt, '
is_dwsql[19].dwsql_data += 'u_mtrldef.subid as subid_debit, '
is_dwsql[19].dwsql_data += 'u_mtrldef.subid_py as subid_credit '
is_dwsql[19].dwsql_data += 'FROM u_inwaremx inner join u_mtrldef on '
is_dwsql[19].dwsql_data += 'u_inwaremx.mtrlid = u_mtrldef.mtrlid inner join u_inware on '
is_dwsql[19].dwsql_data += 'u_inwaremx.scid = u_inware.scid and u_inwaremx.inwareid = u_inware.inwareid '
is_dwsql[19].dwsql_data += 'WHERE u_inware.inwareid IN arg_id_str and u_inware.scid = arg_scid '
is_dwsql[19].dwsql_data += ' group by u_mtrldef.subid,u_mtrldef.subid_py '
is_dwsql[19].dwsql_data += ' order by u_mtrldef.subid,u_mtrldef.subid_py; '

is_dwsql[19].dwsql_data_ifstorage += 'SELECT sum(u_inwaremx.costamt) as amt, '
is_dwsql[19].dwsql_data_ifstorage += 'u_storage.subid as subid_debit, '
is_dwsql[19].dwsql_data_ifstorage += 'u_storage.subid_py as subid_credit '
is_dwsql[19].dwsql_data_ifstorage += 'FROM u_inware inner join u_storage on '
is_dwsql[19].dwsql_data_ifstorage += 'u_inware.storageid = u_storage.storageid inner join u_inwaremx on '
is_dwsql[19].dwsql_data_ifstorage += 'u_inwaremx.scid = u_inware.scid and u_inwaremx.inwareid = u_inware.inwareid '
is_dwsql[19].dwsql_data_ifstorage += 'WHERE u_inware.inwareid IN arg_id_str and u_inware.scid = arg_scid '
is_dwsql[19].dwsql_data_ifstorage += ' group by u_storage.subid,u_storage.subid_py '
is_dwsql[19].dwsql_data_ifstorage += ' order by u_storage.subid,u_storage.subid_py; '


end subroutine

public subroutine uof_init_s_dwsql20 ();//20 扣费品领用单
is_dwsql[20].dwsql_checkflag += 'SELECT count(*) as cnt FROM u_outware '
is_dwsql[20].dwsql_checkflag += 'WHERE u_outware.outwareid IN arg_id_str and u_outware.scid = arg_scid '
is_dwsql[20].dwsql_checkflag += ' And u_outware.flag = 0; '

is_dwsql[20].dwsql_cwauditingflag += 'SELECT count(*) as cnt FROM u_outware '
is_dwsql[20].dwsql_cwauditingflag += 'WHERE u_outware.outwareid IN arg_id_str and u_outware.scid = arg_scid '
is_dwsql[20].dwsql_cwauditingflag += ' And u_outware.cwauditingflag = 1; '

is_dwsql[20].dwsql_data += 'SELECT sum(u_outwaremx.costamt) as amt, '
is_dwsql[20].dwsql_data += 'u_mtrldef.subid_kf as subid_debit, '
is_dwsql[20].dwsql_data += 'u_mtrldef.subid as subid_credit '
is_dwsql[20].dwsql_data += 'FROM u_outwaremx inner join u_mtrldef on '
is_dwsql[20].dwsql_data += 'u_outwaremx.mtrlid = u_mtrldef.mtrlid inner join u_outware on '
is_dwsql[20].dwsql_data += 'u_outwaremx.scid = u_outware.scid and u_outwaremx.outwareid = u_outware.outwareid '
is_dwsql[20].dwsql_data += 'WHERE u_outware.outwareid IN arg_id_str and u_outware.scid = arg_scid '
is_dwsql[20].dwsql_data += ' group by u_mtrldef.subid_kf,u_mtrldef.subid '
is_dwsql[20].dwsql_data += ' order by u_mtrldef.subid_kf,u_mtrldef.subid; '

is_dwsql[20].dwsql_data_ifstorage += 'SELECT sum(u_outwaremx.costamt) as amt, '
is_dwsql[20].dwsql_data_ifstorage += 'u_storage.subid_kf as subid_debit, '
is_dwsql[20].dwsql_data_ifstorage += 'u_storage.subid as subid_credit '
is_dwsql[20].dwsql_data_ifstorage += 'FROM u_outware inner join u_storage on '
is_dwsql[20].dwsql_data_ifstorage += 'u_outware.storageid = u_storage.storageid inner join u_outwaremx on '
is_dwsql[20].dwsql_data_ifstorage += 'u_outwaremx.scid = u_outware.scid and u_outwaremx.outwareid = u_outware.outwareid '
is_dwsql[20].dwsql_data_ifstorage += 'WHERE u_outware.outwareid IN arg_id_str and u_outware.scid = arg_scid '
is_dwsql[20].dwsql_data_ifstorage += ' group by u_storage.subid_kf,u_storage.subid '
is_dwsql[20].dwsql_data_ifstorage += ' order by u_storage.subid_kf,u_storage.subid; '


end subroutine

public subroutine uof_init_s_dwsql25 ();//25 客户收款单
is_dwsql[25].dwsql_checkflag += 'SELECT count(*) as cnt FROM u_cusamt '
is_dwsql[25].dwsql_checkflag += 'WHERE u_cusamt.cusmonid IN arg_id_str '
is_dwsql[25].dwsql_checkflag += ' And u_cusamt.flag = 0; '

is_dwsql[25].dwsql_cwauditingflag += 'SELECT count(*) as cnt FROM u_cusamt '
is_dwsql[25].dwsql_cwauditingflag += 'WHERE u_cusamt.cusmonid IN arg_id_str '
is_dwsql[25].dwsql_cwauditingflag += ' And u_cusamt.cwauditingflag = 1; '

is_dwsql[25].dwsql_data += 'SELECT sum(u_cusamt.cusamt) as amt, '
is_dwsql[25].dwsql_data += 'u_accounts.subid as subid_debit, '
is_dwsql[25].dwsql_data += 'u_cust.subid as subid_credit '
is_dwsql[25].dwsql_data += 'FROM u_cusamt inner join u_accounts on '
is_dwsql[25].dwsql_data += 'u_cusamt.accountid = u_accounts.accountsid inner join u_cust on '
is_dwsql[25].dwsql_data += 'u_cusamt.cusid = u_cust.cusid '
is_dwsql[25].dwsql_data += 'WHERE u_cusamt.cusmonid IN arg_id_str '
is_dwsql[25].dwsql_data += ' group by u_accounts.subid,u_cust.subid '
is_dwsql[25].dwsql_data += ' order by u_accounts.subid,u_cust.subid; '


end subroutine

public subroutine uof_init_s_dwsql26 ();//26 其它应收单
is_dwsql[26].dwsql_checkflag += 'SELECT count(*) as cnt FROM U_income_expenses '
is_dwsql[26].dwsql_checkflag += 'WHERE U_income_expenses.billid IN arg_id_str '
is_dwsql[26].dwsql_checkflag += ' And U_income_expenses.flag = 0; '

is_dwsql[26].dwsql_cwauditingflag += 'SELECT count(*) as cnt FROM U_income_expenses '
is_dwsql[26].dwsql_cwauditingflag += 'WHERE U_income_expenses.billid IN arg_id_str '
is_dwsql[26].dwsql_cwauditingflag += ' And U_income_expenses.cwauditingflag = 1; '

is_dwsql[26].dwsql_data += 'SELECT sum(U_income_expenses_mx.amt) as amt, '
is_dwsql[26].dwsql_data += 'u_cust.subid2 as subid_debit, '
is_dwsql[26].dwsql_data += 'u_itemdef.subid as subid_credit '
is_dwsql[26].dwsql_data += 'FROM U_income_expenses_mx inner join u_itemdef on '
is_dwsql[26].dwsql_data += 'U_income_expenses_mx.itemid = u_itemdef.itemid inner join U_income_expenses on '
is_dwsql[26].dwsql_data += 'U_income_expenses_mx.billid = U_income_expenses.billid inner join u_cust on '
is_dwsql[26].dwsql_data += 'U_income_expenses.spt_cus_id = u_cust.cusid '
is_dwsql[26].dwsql_data += 'WHERE U_income_expenses.billid IN arg_id_str '
is_dwsql[26].dwsql_data += ' group by u_cust.subid2,u_itemdef.subid '
is_dwsql[26].dwsql_data += ' order by u_cust.subid2,u_itemdef.subid; '


end subroutine

public subroutine uof_init_s_dwsql28 ();//28 供应商付款单
is_dwsql[28].dwsql_checkflag += 'SELECT count(*) as cnt FROM u_cusamt '
is_dwsql[28].dwsql_checkflag += 'WHERE u_cusamt.cusmonid IN arg_id_str '
is_dwsql[28].dwsql_checkflag += ' And u_cusamt.flag = 0; '

is_dwsql[28].dwsql_cwauditingflag += 'SELECT count(*) as cnt FROM u_cusamt '
is_dwsql[28].dwsql_cwauditingflag += 'WHERE u_cusamt.cusmonid IN arg_id_str '
is_dwsql[28].dwsql_cwauditingflag += ' And u_cusamt.cwauditingflag = 1; '

is_dwsql[28].dwsql_data += 'SELECT sum(u_cusamt.cusamt) as amt, '
is_dwsql[28].dwsql_data += 'u_accounts.subid as subid_debit, '
is_dwsql[28].dwsql_data += 'u_spt.subid as subid_credit '
is_dwsql[28].dwsql_data += 'FROM u_cusamt inner join u_accounts on '
is_dwsql[28].dwsql_data += 'u_cusamt.accountid = u_accounts.accountsid inner join u_spt on '
is_dwsql[28].dwsql_data += 'u_cusamt.cusid = u_spt.sptid '
is_dwsql[28].dwsql_data += 'WHERE u_cusamt.cusmonid IN arg_id_str '
is_dwsql[28].dwsql_data += ' group by u_accounts.subid,u_spt.subid '
is_dwsql[28].dwsql_data += ' order by u_accounts.subid,u_spt.subid; '



end subroutine

public subroutine uof_init_s_dwsql29 ();//29 其它应付单
is_dwsql[29].dwsql_checkflag += 'SELECT count(*) as cnt FROM U_income_expenses '
is_dwsql[29].dwsql_checkflag += 'WHERE U_income_expenses.billid IN arg_id_str '
is_dwsql[29].dwsql_checkflag += ' And U_income_expenses.flag = 0; '

is_dwsql[29].dwsql_cwauditingflag += 'SELECT count(*) as cnt FROM U_income_expenses '
is_dwsql[29].dwsql_cwauditingflag += 'WHERE U_income_expenses.billid IN arg_id_str '
is_dwsql[29].dwsql_cwauditingflag += ' And U_income_expenses.cwauditingflag = 1; '

is_dwsql[29].dwsql_data += 'SELECT sum(U_income_expenses_mx.amt) as amt, '
is_dwsql[29].dwsql_data += 'u_itemdef.subid as subid_debit, '
is_dwsql[29].dwsql_data += 'u_spt.subid2 as subid_credit '
is_dwsql[29].dwsql_data += 'FROM U_income_expenses_mx inner join u_itemdef on '
is_dwsql[29].dwsql_data += 'U_income_expenses_mx.itemid = u_itemdef.itemid inner join U_income_expenses on '
is_dwsql[29].dwsql_data += 'U_income_expenses_mx.billid = U_income_expenses.billid inner join u_spt on '
is_dwsql[29].dwsql_data += 'U_income_expenses.spt_cus_id = u_spt.sptid '
is_dwsql[29].dwsql_data += 'WHERE U_income_expenses.billid IN arg_id_str '
is_dwsql[29].dwsql_data += ' group by u_itemdef.subid,u_spt.subid2 '
is_dwsql[29].dwsql_data += ' order by u_itemdef.subid,u_spt.subid2; '


end subroutine

public subroutine uof_init_s_dwsql31 ();//31 其它收入单
is_dwsql[31].dwsql_checkflag += 'SELECT count(*) as cnt FROM U_income_expenses '
is_dwsql[31].dwsql_checkflag += 'WHERE U_income_expenses.billid IN arg_id_str '
is_dwsql[31].dwsql_checkflag += ' And U_income_expenses.flag = 0; '

is_dwsql[31].dwsql_cwauditingflag += 'SELECT count(*) as cnt FROM U_income_expenses '
is_dwsql[31].dwsql_cwauditingflag += 'WHERE U_income_expenses.billid IN arg_id_str '
is_dwsql[31].dwsql_cwauditingflag += ' And U_income_expenses.cwauditingflag = 1; '

is_dwsql[31].dwsql_data += 'SELECT sum(U_income_expenses_mx.amt) as amt, '
is_dwsql[31].dwsql_data += 'u_accounts.subid as subid_debit, '
is_dwsql[31].dwsql_data += 'u_itemdef.subid as subid_credit '
is_dwsql[31].dwsql_data += 'FROM U_income_expenses_mx inner join u_itemdef on '
is_dwsql[31].dwsql_data += 'U_income_expenses_mx.itemid = u_itemdef.itemid inner join U_income_expenses on '
is_dwsql[31].dwsql_data += 'U_income_expenses_mx.billid = U_income_expenses.billid inner join u_accounts on '
is_dwsql[31].dwsql_data += 'U_income_expenses.accountid = u_accounts.accountsid '
is_dwsql[31].dwsql_data += 'WHERE U_income_expenses.billid IN arg_id_str '
is_dwsql[31].dwsql_data += ' group by u_accounts.subid,u_itemdef.subid '
is_dwsql[31].dwsql_data += ' order by u_accounts.subid,u_itemdef.subid; '


end subroutine

public subroutine uof_init_s_dwsql32 ();//32 其它支出单
is_dwsql[32].dwsql_checkflag += 'SELECT count(*) as cnt FROM U_income_expenses '
is_dwsql[32].dwsql_checkflag += 'WHERE U_income_expenses.billid IN arg_id_str '
is_dwsql[32].dwsql_checkflag += ' And U_income_expenses.flag = 0; '

is_dwsql[32].dwsql_cwauditingflag += 'SELECT count(*) as cnt FROM U_income_expenses '
is_dwsql[32].dwsql_cwauditingflag += 'WHERE U_income_expenses.billid IN arg_id_str '
is_dwsql[32].dwsql_cwauditingflag += ' And U_income_expenses.cwauditingflag = 1; '

is_dwsql[32].dwsql_data += 'SELECT sum(U_income_expenses_mx.amt) as amt, '
is_dwsql[32].dwsql_data += 'u_itemdef.subid as subid_debit, '
is_dwsql[32].dwsql_data += 'u_accounts.subid as subid_credit '
is_dwsql[32].dwsql_data += 'FROM U_income_expenses_mx inner join u_itemdef on '
is_dwsql[32].dwsql_data += 'U_income_expenses_mx.itemid = u_itemdef.itemid inner join U_income_expenses on '
is_dwsql[32].dwsql_data += 'U_income_expenses_mx.billid = U_income_expenses.billid inner join u_accounts on '
is_dwsql[32].dwsql_data += 'U_income_expenses.accountid = u_accounts.accountsid '
is_dwsql[32].dwsql_data += 'WHERE U_income_expenses.billid IN arg_id_str '
is_dwsql[32].dwsql_data += ' group by u_itemdef.subid,u_accounts.subid '
is_dwsql[32].dwsql_data += ' order by u_itemdef.subid,u_accounts.subid; '
end subroutine

public subroutine uof_init_s_dwsql33 ();//33 转帐单
is_dwsql[33].dwsql_checkflag += 'SELECT count(*) as cnt FROM u_rap_money_transfer '
is_dwsql[33].dwsql_checkflag += 'WHERE u_rap_money_transfer.billid IN arg_id_str '
is_dwsql[33].dwsql_checkflag += ' And u_rap_money_transfer.secflag = 0; '

is_dwsql[33].dwsql_cwauditingflag += 'SELECT count(*) as cnt FROM u_rap_money_transfer '
is_dwsql[33].dwsql_cwauditingflag += 'WHERE u_rap_money_transfer.billid IN arg_id_str '
is_dwsql[33].dwsql_cwauditingflag += ' And u_rap_money_transfer.cwauditingflag = 1; '

is_dwsql[33].dwsql_data += 'SELECT sum(u_rap_money_transfer.transferamt) as amt, '
is_dwsql[33].dwsql_data += 'u_in.subid as subid_debit, '
is_dwsql[33].dwsql_data += 'u_out.subid as subid_credit '
is_dwsql[33].dwsql_data += 'FROM u_rap_money_transfer left OUTER join u_accounts u_in on '
is_dwsql[33].dwsql_data += 'u_rap_money_transfer.accountid_in = u_in.accountsid left OUTER join u_accounts u_out on '
is_dwsql[33].dwsql_data += 'u_rap_money_transfer.accountid_out = u_out.accountsid '
is_dwsql[33].dwsql_data += 'WHERE u_rap_money_transfer.billid IN arg_id_str '
is_dwsql[33].dwsql_data += ' group by u_in.subid,u_out.subid; '
end subroutine

public function integer uof_cwaudit_bill_getinfo10_and_11 (long arg_scid, long arg_billid, s_cred_port arg_s_credport, ref s_credence arg_ref_s_cred, ref string arg_msg);Int rslt = 1
Long no_mxt,i,j,mx = 1
s_bill_to_cred s_billinfo
s_bill_to_credmx s_billmx

String ls_billname
DateTime null_dt
SetNull(null_dt)

ls_billname = arg_s_credport.credname

SELECT ow_wfjg_out.outwarecode,
	ow_wfjg_out.outdate,
	0,
	ow_wfjg_out.dscrp,
	0 as cusid,
	0 as sptid,
	u_cust.subid,
	u_storage.subid_sale,
	u_storage.subid_cost,
	u_storage.subid,
	ow_wfjg_out.cwauditingflag,
	ow_wfjg_out.flag
	INTO :s_billinfo.billcode,
	:s_billinfo.billdate,
	:s_billinfo.billamt,
	:s_billinfo.dscrp,
	:s_billinfo.cusid,
	:s_billinfo.sptid,
	:s_billinfo.subid_debit,
	:s_billinfo.subid_credit,
	:s_billinfo.subid_debit2,
	:s_billinfo.subid_credit2,
	:s_billinfo.cwauditingflag,
	:s_billinfo.flag
	FROM u_outware left OUTER join u_cust on
	u_outware.cusid = u_cust.cusid left OUTER join u_storage on
	u_outware.storageid = u_storage.storageid
	WHERE u_outware.outwareid = :arg_billid
	AND u_outware.scid = :arg_scid
	And u_outware.billtype = 1;
	
IF sqlca.SQLCode <> 0 THEN
	arg_msg = '查询 '+ls_billname+' 信息及相关会计科目信息失败,'+sqlca.SQLErrText
	rslt = 0
	GOTO ext
END IF

IF s_billinfo.flag = 0 THEN
	arg_msg = ls_billname + ' 未仓库审核,请检查'
	rslt = 0
	GOTO ext
END IF

IF s_billinfo.cwauditingflag = 1 THEN
	arg_msg = ls_billname + ' 已会计审,请检查'
	rslt = 0
	GOTO ext
END IF

IF s_billinfo.subid_debit = '' THEN
	arg_msg = ls_billname + ' 客户未设置会计科目,请检查'
	rslt = 0
	GOTO ext
END IF

IF arg_s_credport.ifstorage = 1 THEN
	IF s_billinfo.subid_credit = '' THEN
		arg_msg = ls_billname + ' 仓库未设置销售收入会计科目,请检查'
		rslt = 0
		GOTO ext
	END IF
	
	IF s_billinfo.subid_debit2 = '' THEN
		arg_msg = ls_billname + ' 仓库未设置销售成本会计科目,请检查'
		rslt = 0
		GOTO ext
	END IF
	
	IF s_billinfo.subid_credit2 = '' THEN
		arg_msg = ls_billname + ' 仓库未设置存货会计科目,请检查'
		rslt = 0
		GOTO ext
	END IF
END IF

DECLARE cur_billmx CURSOR FOR
	SELECT u_outwaremx.bsamt,
	u_outwaremx.costamt,
	u_mtrldef.mtrlname,
	u_mtrldef.subid_sale,
	u_mtrldef.subid_cost,
	u_mtrldef.subid
	FROM u_outwaremx INNER join u_mtrldef on
	u_outwaremx.mtrlid = u_mtrldef.mtrlid
	WHERE u_outwaremx.outwareid = :arg_billid
	AND u_outwaremx.scid = :arg_scid
	Order By u_outwaremx.printid;
OPEN cur_billmx;
FETCH cur_billmx Into :s_billmx.mxamt[mx],:s_billmx.mxamt2[mx],:s_billmx.mxdscrp[mx],:s_billmx.subid2[mx],:s_billmx.subid3[mx],:s_billmx.subid4[mx];
DO WHILE sqlca.SQLCode = 0
	s_billinfo.billamt += s_billmx.mxamt[mx]
	s_billinfo.billamt2 += s_billmx.mxamt2[mx]
	mx++
	FETCH cur_billmx Into :s_billmx.mxamt[mx],:s_billmx.mxamt2[mx],:s_billmx.mxdscrp[mx],:s_billmx.subid2[mx],:s_billmx.subid3[mx],:s_billmx.subid4[mx];
LOOP
CLOSE cur_billmx;

mx = mx - 1
IF mx = 0 THEN
	arg_msg = ls_billname + ' 没有单据明细,请检查'
	rslt = 0
	GOTO ext
END IF

IF arg_s_credport.ifstorage = 2 THEN
	FOR j = 1 To mx
		IF s_billmx.subid2[j] = '' THEN
			arg_msg = ls_billname + ' 明细行:'+String(j)+',未设置销售收入会计科目,请检查'
			rslt = 0
			GOTO ext
		END IF
		IF s_billmx.subid3[j] = '' THEN
			arg_msg = ls_billname + ' 明细行:'+String(j)+',未设置销售成本会计科目,请检查'
			rslt = 0
			GOTO ext
		END IF
		IF s_billmx.subid4[j] = '' THEN
			arg_msg = ls_billname + ' 明细行:'+String(j)+',未设置存货会计科目,请检查'
			rslt = 0
			GOTO ext
		END IF
	NEXT
END IF

//借1
no_mxt++
arg_ref_s_cred.arg_s_credmx[no_mxt].fuluno = no_mxt
arg_ref_s_cred.arg_s_credmx[no_mxt].rate = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].rawdebit = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].rawcredit = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].amount = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].price = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].deptid = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].itemid = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].billdate = null_dt
arg_ref_s_cred.arg_s_credmx[no_mxt].billid = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].billno = ''
arg_ref_s_cred.arg_s_credmx[no_mxt].cropbillid = 0
arg_ref_s_cred.arg_s_credmx[no_mxt].ifreadonly = 1

arg_ref_s_cred.arg_s_credmx[no_mxt].brief = Trim(s_billinfo.billcode) + ' ' + Trim(s_billinfo.dscrp)
arg_ref_s_cred.arg_s_credmx[no_mxt].subid = s_billinfo.subid_debit
arg_ref_s_cred.arg_s_credmx[no_mxt].debit = s_billinfo.billamt
arg_ref_s_cred.arg_s_credmx[no_mxt].credit = 0

//贷1
IF arg_s_credport.ifstorage = 1 THEN
	no_mxt++
	arg_ref_s_cred.arg_s_credmx[no_mxt].fuluno = no_mxt
	arg_ref_s_cred.arg_s_credmx[no_mxt].rate = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].rawdebit = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].rawcredit = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].amount = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].price = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].deptid = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].itemid = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].billdate = null_dt
	arg_ref_s_cred.arg_s_credmx[no_mxt].billid = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].billno = ''
	arg_ref_s_cred.arg_s_credmx[no_mxt].cropbillid = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].ifreadonly = 1
	
	arg_ref_s_cred.arg_s_credmx[no_mxt].brief = Trim(s_billinfo.billcode) + ' ' + Trim(s_billinfo.dscrp)
	arg_ref_s_cred.arg_s_credmx[no_mxt].subid = s_billinfo.subid_credit
	arg_ref_s_cred.arg_s_credmx[no_mxt].debit = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].credit = s_billinfo.billamt
ELSEIF arg_s_credport.ifstorage = 2 THEN
	FOR j = 1 To mx
		no_mxt++
		arg_ref_s_cred.arg_s_credmx[no_mxt].fuluno = no_mxt
		arg_ref_s_cred.arg_s_credmx[no_mxt].rate = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].rawdebit = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].rawcredit = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].amount = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].price = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].deptid = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].itemid = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].billdate = null_dt
		arg_ref_s_cred.arg_s_credmx[no_mxt].billid = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].billno = ''
		arg_ref_s_cred.arg_s_credmx[no_mxt].cropbillid = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].ifreadonly = 1
		
		
		arg_ref_s_cred.arg_s_credmx[no_mxt].brief = Trim(s_billinfo.billcode) + ' ' + s_billmx.mxdscrp[j]
		arg_ref_s_cred.arg_s_credmx[no_mxt].subid = s_billmx.subid2[j]
		arg_ref_s_cred.arg_s_credmx[no_mxt].debit = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].credit = s_billmx.mxamt[j]
	NEXT
END IF

//借2
IF arg_s_credport.ifstorage = 1 THEN
	no_mxt++
	arg_ref_s_cred.arg_s_credmx[no_mxt].fuluno = no_mxt
	arg_ref_s_cred.arg_s_credmx[no_mxt].rate = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].rawdebit = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].rawcredit = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].amount = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].price = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].deptid = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].itemid = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].billdate = null_dt
	arg_ref_s_cred.arg_s_credmx[no_mxt].billid = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].billno = ''
	arg_ref_s_cred.arg_s_credmx[no_mxt].cropbillid = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].ifreadonly = 1
	
	arg_ref_s_cred.arg_s_credmx[no_mxt].brief = Trim(s_billinfo.billcode) + ' ' + Trim(s_billinfo.dscrp)
	arg_ref_s_cred.arg_s_credmx[no_mxt].subid = s_billinfo.subid_debit2
	arg_ref_s_cred.arg_s_credmx[no_mxt].debit = s_billinfo.billamt2
	arg_ref_s_cred.arg_s_credmx[no_mxt].credit = 0
ELSEIF arg_s_credport.ifstorage = 2 THEN
	FOR j = 1 To mx
		no_mxt++
		arg_ref_s_cred.arg_s_credmx[no_mxt].fuluno = no_mxt
		arg_ref_s_cred.arg_s_credmx[no_mxt].rate = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].rawdebit = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].rawcredit = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].amount = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].price = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].deptid = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].itemid = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].billdate = null_dt
		arg_ref_s_cred.arg_s_credmx[no_mxt].billid = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].billno = ''
		arg_ref_s_cred.arg_s_credmx[no_mxt].cropbillid = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].ifreadonly = 1
		
		
		arg_ref_s_cred.arg_s_credmx[no_mxt].brief = Trim(s_billinfo.billcode) + ' ' + s_billmx.mxdscrp[j]
		arg_ref_s_cred.arg_s_credmx[no_mxt].subid = s_billmx.subid3[j]
		arg_ref_s_cred.arg_s_credmx[no_mxt].debit = s_billmx.mxamt2[j]
		arg_ref_s_cred.arg_s_credmx[no_mxt].credit = 0
	NEXT
END IF

//贷2
IF arg_s_credport.ifstorage = 1 THEN
	no_mxt++
	arg_ref_s_cred.arg_s_credmx[no_mxt].fuluno = no_mxt
	arg_ref_s_cred.arg_s_credmx[no_mxt].rate = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].rawdebit = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].rawcredit = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].amount = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].price = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].deptid = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].itemid = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].billdate = null_dt
	arg_ref_s_cred.arg_s_credmx[no_mxt].billid = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].billno = ''
	arg_ref_s_cred.arg_s_credmx[no_mxt].cropbillid = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].ifreadonly = 1
	
	arg_ref_s_cred.arg_s_credmx[no_mxt].brief = Trim(s_billinfo.billcode) + ' ' + Trim(s_billinfo.dscrp)
	arg_ref_s_cred.arg_s_credmx[no_mxt].subid = s_billinfo.subid_credit2
	arg_ref_s_cred.arg_s_credmx[no_mxt].debit = 0
	arg_ref_s_cred.arg_s_credmx[no_mxt].credit = s_billinfo.billamt2
ELSEIF arg_s_credport.ifstorage = 2 THEN
	FOR j = 1 To mx
		no_mxt++
		arg_ref_s_cred.arg_s_credmx[no_mxt].fuluno = no_mxt
		arg_ref_s_cred.arg_s_credmx[no_mxt].rate = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].rawdebit = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].rawcredit = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].amount = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].price = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].deptid = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].itemid = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].billdate = null_dt
		arg_ref_s_cred.arg_s_credmx[no_mxt].billid = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].billno = ''
		arg_ref_s_cred.arg_s_credmx[no_mxt].cropbillid = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].ifreadonly = 1
		
		
		arg_ref_s_cred.arg_s_credmx[no_mxt].brief = Trim(s_billinfo.billcode) + ' ' + s_billmx.mxdscrp[j]
		arg_ref_s_cred.arg_s_credmx[no_mxt].subid = s_billmx.subid4[j]
		arg_ref_s_cred.arg_s_credmx[no_mxt].debit = 0
		arg_ref_s_cred.arg_s_credmx[no_mxt].credit = s_billmx.mxamt2[j]
	NEXT
END IF

arg_ref_s_cred.creddate = s_billinfo.billdate
arg_ref_s_cred.reldate = s_billinfo.billdate
arg_ref_s_cred.relcode = s_billinfo.billcode
arg_ref_s_cred.readtype = 0
arg_ref_s_cred.ifauto = 1
arg_ref_s_cred.credtype = arg_s_credport.credtype

ext:

RETURN rslt













































end function

on uo_bill_cwaudit.create
call super::create
TriggerEvent( this, "constructor" )
end on

on uo_bill_cwaudit.destroy
TriggerEvent( this, "destructor" )
call super::destroy
end on

event constructor;uof_init_s_dwsql01()
uof_init_s_dwsql02()
uof_init_s_dwsql04()
uof_init_s_dwsql05()
uof_init_s_dwsql06()
uof_init_s_dwsql07()
uof_init_s_dwsql08()
uof_init_s_dwsql09()
uof_init_s_dwsql14()
uof_init_s_dwsql15()
uof_init_s_dwsql16()
uof_init_s_dwsql17()
uof_init_s_dwsql18()
uof_init_s_dwsql19()
uof_init_s_dwsql20()
uof_init_s_dwsql25()
uof_init_s_dwsql26()
uof_init_s_dwsql28()
uof_init_s_dwsql29()
uof_init_s_dwsql31()
uof_init_s_dwsql32()
uof_init_s_dwsql33()
end event