|
1
|
ALTER PROCEDURE PDSFILOGETDEPOSIT
|
|
2
|
(
|
|
3
|
@CompanyID VARCHAR(20)
|
|
4
|
,@CustomerID VARCHAR(50)
|
|
5
|
,@SLID VARCHAR(50)
|
|
6
|
,@GLAccountID VARCHAR(50)
|
|
7
|
)
|
|
8
|
AS
|
|
9
|
|
|
10
|
--DECLARE @CompanyID VARCHAR(20) = '1000'
|
|
11
|
--DECLARE @CustomerID VARCHAR(50) = '00000005'
|
|
12
|
--DECLARE @SLID VARCHAR(50) = '' ---- jika ini dikosongkan, customerid wajib isi
|
|
13
|
--DECLARE @GLAccountID VARCHAR(50) = '' ---- saat ini dihardcode jd dikosongkan saja
|
|
14
|
|
|
15
|
DECLARE @FiscalPeriod VARCHAR(20)
|
|
16
|
DECLARE @FiscalYear VARCHAR(20)
|
|
17
|
SELECT @FiscalPeriod = FiscalPeriod, @FiscalYear = FiscalYear
|
|
18
|
FROM dbo.PTRACCCONTROL WHERE CompanyID = @CompanyID
|
|
19
|
|
|
20
|
DECLARE @BeforePeriod VARCHAR(20) = SUBSTRING(CONVERT(NVARCHAR(8), DATEADD(d, -1, @FiscalYear + @FiscalPeriod + '01'), 112), 5, 2);
|
|
21
|
DECLARE @BeforeYear VARCHAR(20) = LEFT(CONVERT(NVARCHAR(8), DATEADD(d, -1, @FiscalYear + @FiscalPeriod + '01'), 112), 4);
|
|
22
|
|
|
23
|
IF(@SLID = '' OR @SLID IS NULL)
|
|
24
|
BEGIN
|
|
25
|
SELECT @SLID = SubLedgerID FROM dbo.PMDSL0001 WHERE CustomerID = @CustomerID
|
|
26
|
END
|
|
27
|
|
|
28
|
IF(@GLAccountID = '' OR @GLAccountID IS NULL)
|
|
29
|
BEGIN
|
|
30
|
SET @GLAccountID = '2-104'
|
|
31
|
END
|
|
32
|
|
|
33
|
DECLARE @TBalance TABLE
|
|
34
|
(
|
|
35
|
GlAccountID VARCHAR(20)
|
|
36
|
,AmountBalanceCompCurr DECIMAL(30,0)
|
|
37
|
,SLType VARCHAR(50)
|
|
38
|
,SLID VARCHAR(50)
|
|
39
|
)
|
|
40
|
|
|
41
|
INSERT INTO @TBalance
|
|
42
|
SELECT accbal.GlAccount
|
|
43
|
,ISNULL(accbal.AmountBalanceCompCurr,0) AS AmountBalanceCompCurr
|
|
44
|
,accbal.SLType
|
|
45
|
,accbal.SLID
|
|
46
|
FROM dbo.PTRFICOMPACCBALANCE AS accbal
|
|
47
|
WHERE (accbal.CompanyID = @CompanyID OR @CompanyID = '')
|
|
48
|
AND accbal.FiscalYear = @BeforeYear
|
|
49
|
AND accbal.FiscalPeriod = @BeforePeriod
|
|
50
|
AND accbal.GlAccount = @GLAccountID
|
|
51
|
AND accbal.SLType = '01'
|
|
52
|
AND accbal.SLID = @SLID
|
|
53
|
|
|
54
|
DECLARE @TPosting TABLE
|
|
55
|
(
|
|
56
|
GlAccountID VARCHAR(20)
|
|
57
|
,AmountDebet DECIMAL(30,0)
|
|
58
|
,AmountCredit DECIMAL(30,0)
|
|
59
|
,AmountDebetCompCurr DECIMAL(30,0)
|
|
60
|
,AmountCreditCompCurr DECIMAL(30,0)
|
|
61
|
)
|
|
62
|
|
|
63
|
INSERT INTO @TPosting
|
|
64
|
SELECT posting.GlAccountID
|
|
65
|
,SUM(posting.AmountDebet)
|
|
66
|
,SUM(posting.AmountCredit)
|
|
67
|
,SUM(posting.AmountDebetCompCurr)
|
|
68
|
,SUM(posting.AmountCreditCompCurr)
|
|
69
|
FROM dbo.PTRFILOPOSTING AS posting
|
|
70
|
WHERE posting.FiscalYear = @FiscalYear
|
|
71
|
AND posting.FiscalPeriod = @FiscalPeriod
|
|
72
|
AND posting.GLAccountID = @GLAccountID
|
|
73
|
GROUP BY posting.GlAccountID
|
|
74
|
|
|
75
|
DECLARE @LastSaldo DECIMAL(22,2)
|
|
76
|
SELECT @LastSaldo = ((ISNULL(tb.AmountBalanceCompCurr,0) + ISNULL(tp.AmountCreditCompCurr,0) - ISNULL(tp.AmountDebetCompCurr,0)))
|
|
77
|
FROM @TBalance AS tb
|
|
78
|
LEFT JOIN @TPosting AS tp
|
|
79
|
ON tp.GlAccountID = tb.GlAccountID
|
|
80
|
|
|
81
|
SELECT @SLID AS SLID, @LastSaldo AS LastSaldo
|
