收款_proc.sql

SQL server 进销存软件数据库设计。大家积极下载

IF EXISTS(SELECT NAME FROM SYSOBJECTS WHERE NAME='收款_PROC' AND TYPE='P')
DROP PROC 收款_PROC
GO
create procedure 收款_PROC
@SUM CHAR(1)
AS
CREATE TABLE #收款

(
序号 INT IDENTITY(1,1),
科目编码 VARCHAR(30),
客户 VARCHAR(10),
货币 VARCHAR(10),
支票号码 VARCHAR(20),
借方_原币 NUMERIC(18,6) DEFAULT(0),
借方_本币 NUMERIC(18,6) DEFAULT(0),
贷方_原币  NUMERIC(18,6) DEFAULT(0),
贷方_本币  NUMERIC(18,6) DEFAULT(0))
INSERT INTO #收款 (客户,货币,支票号码,贷方_原币,科目编码 )
SELECT 客户编码,货币,支票号码,支票金额, '应收账款' FROM 收款主表
WHERE 支票金额>0

INSERT INTO #收款 (客户,货币,支票号码,借方_原币,科目编码 )
SELECT 客户编码,货币,支票号码,支票金额, '现金' FROM 收款主表
WHERE 支票金额>0


DECLARE EXCB SCROLL CURSOR FOR
SELECT 外币编码,汇率,年月 FROM 货币汇率 
OPEN EXCB
DECLARE @外币编码 VARCHAR(30),@汇率 NUMERIC(18,6),@年月 DATETIME
FETCH EXCB INTO @外币编码,@汇率,@年月
WHILE @@FETCH_STATUS=0
BEGIN
UPDATE #收款 SET 借方_本币=借方_原币*@汇率,贷方_本币=贷方_原币*@汇率 WHERE 货币=@外币编码 
AND  year(GETDATE())=year(@年月)   AND month (GETDATE())=MONTH(@年月)
FETCH EXCB INTO @外币编码,@汇率,@年月
END
CLOSE EXCB
DEALLOCATE EXCB

IF @SUM='D'
SELECT 客户,货币,支票号码,科目编码,借方_原币,借方_本币,贷方_原币,贷方_本币 FROM #收款
ELSE
IF  @SUM='S'
BEGIN
SELECT 科目编码,SUM(借方_原币) AS 借方_原币,SUM(借方_本币) AS 借方_本币 ,SUM(贷方_原币)  AS 贷方_原币 ,
SUM(贷方_本币) AS 贷方_本币
FROM #收款 GROUP BY 科目编码
END