34,590
社区成员
发帖
与我相关
我的任务
分享
/*插入单剧体*/
SET @Cursale=CURSOR FOR SELECT fieldstr2 FROM workflow_filelist WHERE fieldstr2 <> '' and file_id=@File_ID
OPEN @Cursale
FETCH NEXT FROM @Cursale INTO @FChargeIDOA
WHILE @@Fetch_Status=0
BEGIN
SELECT @FChargeIDK3=FItemID FROM AIS20120927170219.dbo.t_Item WHERE FItemClassID=2035 AND FFullName='管理费用_租赁费用_房租费'--@FChargeIDOA
INSERT INTO AIS20120927170219.dbo.FYGL_ExpenseApplyEntry(
FID,
FIndex,
FClassID_SRC,
FSourceBillNo,
FItemClassType,
FID_SRC,
FItemID,
FBankAccountName,
FEntryID_SRC,
FBankBranch,
FBankAccount,
FChargeID,
FSettleTypeID,
FApplyAmount,
FCheckAmount,
FRepaymentDate,
FContactAccountID,
FCashAccountID,
FCheckAmountFor,
FRemark,
FOffAmount,
FRePayAmount,
FLoadBalanceAmount,
FPayAmount,
FReduceAmount
)
SELECT
@FID,
serial,
0,
'',
2,--默认核算到部门
0,
@FApplyDepartmentID,
@FApplyDepartment,
0,
'',
'',
@FChargeIDK3,
@FSettleTypeID,
fieldstr4,
fieldstr4,
GETDATE(),
1018,
0,
fieldstr4*@FExchangeRate,
fieldstr1,
0,
0,
0,
0,
0
FROM workflow_filelist
WHERE file_id=@File_ID AND fieldstr2<>''
FETCH NEXT FROM @Cursale INTO @FChargeIDOA
END
CLOSE @Cursale
DEALLOCATE @Cursale