IF EXISTS (SELECT NAME FROM SYSOBJECTS WHERE NAME='應收折算本位幣_PROC' AND TYPE='P')
DROP PROC 應收折算本位幣_PROC
GO
create  PROC 應收折算本位幣_PROC
AS
CREATE TABLE [#應收明細本位幣]
 (
	[客戶編碼] [varchar] (10)  ,
	[銷售單] [int]  ,
	[貨幣] [varchar] (10)  ,
	[憑證號] [int] ,
	[發票號碼] [varchar] (20),
	[發票日期] [datetime] NULL,
	[借方金額] [numeric](18, 6)  DEFAULT (0),
        借方本位幣 AS 借方金額*匯率 ,
	[貸方金額] [numeric](18, 6)  DEFAULT (0),
        貸方本位幣 AS 貸方金額*匯率,
	[余額] [numeric](18, 6)  DEFAULT (0),
        匯率 NUMERIC(18,6)DEFAULT (0),
        外幣編碼 VARCHAR(10),
        年月 DATETIME)

INSERT INTO #應收明細本位幣 (客戶編碼,銷售單,貨幣,憑證號,發票號碼,發票日期,借方金額,貸方金額,余額,匯率,外幣編碼,年月)
select a.客戶編碼,a.銷售單,a.貨幣,a.憑證號,a.發票號碼,a.發票日期,a.借方金額,a.貸方金額,a.余額,b.匯率,b.外幣編碼,b.年月
from 應收賬款明細賬 a join 貨幣匯率 b on a.貨幣=b.外幣編碼 
where year(B.年月)= year(GETDATE())  AND MONTH(B.年月)=month (GETDATE())
SELECT 客戶編碼,銷售單,貨幣,憑證號,發票號碼,發票日期,借方金額,借方本位幣,貸方金額,貸方本位幣,余額 
from #應收明細本位幣

-- EXEC 應收折算本位幣_PROC