| 12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758 |
- $PBExportHeader$f_outware_sale_audit.srf
- global type f_outware_sale_audit from function_object
- end type
- forward prototypes
- global function integer f_outware_sale_audit (ref string arg_msg, ref long arg_cnt, ref long arg_failcnt)
- end prototypes
- global function integer f_outware_sale_audit (ref string arg_msg, ref long arg_cnt, ref long arg_failcnt);uo_outware_sale uo_ware
- uo_ware = Create uo_outware_sale
- uo_ware.commit_transaction = sqlca
- datastore ds_outware
- ds_outware = Create datastore
- ds_outware.DataObject = 'ds_outware_sale_noaudit_pda'
- ds_outware.SetTransObject(sqlca)
- ds_outware.Retrieve()
- Long ll_i
- String ls_outwarecode
- Long ll_scid,ll_outwareid
- String ls_msg
- Long ll_fail,ll_suc
- FOR ll_i = 1 To ds_outware.RowCount()
- ll_scid = ds_outware.Object.scid[ll_i]
- ll_outwareid = ds_outware.Object.outwareid[ll_i]
- ls_outwarecode = ds_outware.Object.outwarecode[ll_i]
-
- IF uo_ware.getinfo(ll_scid,ll_outwareid,ls_msg) = 0 THEN
- ROLLBACK;
- arg_msg = arg_msg + ls_outwarecode + ' 审核失败,'+ls_msg + '~r~n'
- ll_fail++
- CONTINUE
- END IF
-
- IF uo_ware.auditing(True,ls_msg) = 0 THEN
- ROLLBACK;
- arg_msg = arg_msg + ls_outwarecode + ' 审核失败,'+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_outware
- RETURN 1
- end function
|
