ALTER PROCEDURE LP_提交发票(@YHH CHAR(7),@NBBH CHAR(19),@SFY INTEGER,@SSJE NUMERIC(10,2),@WYJ NUMERIC(10,2),@SYYE NUMERIC(10,2),@BYYE NUMERIC(10,2),@FPBH CHAR(7)) AS
BEGIN TRAN TJFP
DECLARE @SKSFQ CHAR(10) SELECT @SKSFQ=收费期
FROM 收费期表
WHERE 抄表准备='否' UPDATE 用户档案表 SET 已经开票=1,
本月尾数=@BYYE
WHERE 用户编号='-1'--@YHH
IF @@ROWCOUNT = 0
BEGIN
ROLLBACK TRAN TJFP
GOTO RE
END UPDATE 发票记录主表 SET 收款收费期=@SKSFQ,
发票时间=GETDATE(),
票据状态 =1 ,
收费人员=@SFY,
实收金额=@SSJE,
违约金=@WYJ,
上月余额=@SYYE,
本月余额=@BYYE,
发票编号=@FPBH
WHERE 内部编号=@NBBH
IF (@@ERROR<>0) OR (@@ROWCOUNT=0)
BEGIN
ROLLBACK TRAN TJFP
GOTO RE
END
COMMIT TRAN TJFP
SELECT ''
RETURN 0
RE:
SELECT '修改发票记录主表时发生错误!' AS ERRORS
RETURN -1
BEGIN TRAN TJFP
DECLARE @SKSFQ CHAR(10) SELECT @SKSFQ=收费期
FROM 收费期表
WHERE 抄表准备='否' UPDATE 用户档案表 SET 已经开票=1,
本月尾数=@BYYE
WHERE 用户编号='-1'--@YHH
IF @@ROWCOUNT = 0
BEGIN
ROLLBACK TRAN TJFP
GOTO RE
END UPDATE 发票记录主表 SET 收款收费期=@SKSFQ,
发票时间=GETDATE(),
票据状态 =1 ,
收费人员=@SFY,
实收金额=@SSJE,
违约金=@WYJ,
上月余额=@SYYE,
本月余额=@BYYE,
发票编号=@FPBH
WHERE 内部编号=@NBBH
IF (@@ERROR<>0) OR (@@ROWCOUNT=0)
BEGIN
ROLLBACK TRAN TJFP
GOTO RE
END
COMMIT TRAN TJFP
SELECT ''
RETURN 0
RE:
SELECT '修改发票记录主表时发生错误!' AS ERRORS
RETURN -1
ALTER PROCEDURE LP_提交发票(@YHH CHAR(7),@NBBH CHAR(19),@SFY INTEGER,@SSJE NUMERIC(10,2),@WYJ NUMERIC(10,2),@SYYE NUMERIC(10,2),@BYYE NUMERIC(10,2),@FPBH CHAR(7)) AS
BEGIN TRAN TJFP
DECLARE @SKSFQ CHAR(10)
SELECT @SKSFQ=收费期 FROM 收费期表 WHERE 抄表准备='否'
UPDATE 用户档案表 SET 已经开票=1,本月尾数=@BYYE WHERE 用户编号=@YHH
IF @@ROWCOUNT = 0
BEGIN
ROLLBACK TRAN TJFP
GOTO RE
END UPDATE 发票记录主表 SET 收款收费期=@SKSFQ,发票时间=GETDATE(),票据状态 =1 ,收费人员=@SFY,实收金额=@SSJE,违约金=@WYJ, 上月余额=@SYYE,本月余额=@BYYE,发票编号=@FPBH
WHERE 内部编号=@NBBH
IF (@@ERROR<>0) OR (@@ROWCOUNT=0)
BEGIN
ROLLBACK TRAN TJFP
GOTO RE
END
COMMIT TRAN TJFP
SELECT ''
RETURN 0
RE:
SELECT '修改发票记录主表时发生错误!' AS ERRORS
RETURN -1