$PBExportHeader$f_inware_cp_audit.srf
global type f_inware_cp_audit from function_object
end type

forward prototypes
global function integer f_inware_cp_audit (ref string arg_msg, ref long arg_cnt, ref long arg_failcnt)
end prototypes

global function integer f_inware_cp_audit (ref string arg_msg, ref long arg_cnt, ref long arg_failcnt);uo_inware_cp uo_ware
uo_ware = Create uo_inware_cp
uo_ware.commit_transaction = sqlca

datastore ds_inware
ds_inware = Create datastore
ds_inware.DataObject = 'ds_inware_cp_noaudit_pda'
ds_inware.SetTransObject(sqlca)

ds_inware.Retrieve()

Long ll_i
String ls_inwarecode
Long ll_scid,ll_inwareid
String ls_msg
Long ll_fail,ll_suc

FOR ll_i = 1 To ds_inware.RowCount()
	ll_scid = ds_inware.Object.scid[ll_i]
	ll_inwareid = ds_inware.Object.inwareid[ll_i]
	ls_inwarecode =  ds_inware.Object.inwarecode[ll_i]
	
	IF uo_ware.getinfo(ll_scid,ll_inwareid,ls_msg) = 0 THEN
		ROLLBACK;
		arg_msg = arg_msg + ls_inwarecode + ' 审核失败,'+ls_msg + '~r~n'
		ll_fail++
		CONTINUE
	END IF
	
	IF uo_ware.auditing(True,ls_msg) = 0 THEN
		ROLLBACK;
		arg_msg = arg_msg + ls_inwarecode + ' 审核失败,'+ls_msg + '~r~n'
		ll_fail++
		CONTINUE
	END IF
	
	ll_suc++
NEXT

arg_cnt = ll_suc
arg_failcnt = ll_fail

Destroy uo_ware
Destroy ds_inware

RETURN 1


end function