diff --git a/Borc Yaslandirma/Alacaklar_Yaslandirma.sql b/Borc Yaslandirma/Alacaklar_Yaslandirma.sql index 40ed02a..3be70e0 100644 --- a/Borc Yaslandirma/Alacaklar_Yaslandirma.sql +++ b/Borc Yaslandirma/Alacaklar_Yaslandirma.sql @@ -9,6 +9,7 @@ create table #tempresults [ACCOUNTCODE] [varchar](101) NULL, [INVOICENO] [varchar](17) NULL, [CLOSED] [smallint] NULL, + [ACILIS] [float] NULL, [OCAK] [float] NULL, [SUBAT] [float] NULL, [MART] [float] NULL, @@ -24,7 +25,7 @@ create table #tempresults [ACCOUNTNAME] [varchar](200) NULL ) --- Tahsilatlar Temp Tablo Baþlangýç +-- Tahsilatlar Temp Tablo Baþlangýç create table #tempcredits ( [CREDIT] [float] NULL, @@ -33,10 +34,10 @@ create table #tempcredits ) Insert Into #tempcredits select SUM(CREDIT) as CREDIT,ACCOUNTCODE,SUM(CREDIT) as REMAINING -from LG_141_01_EMFLINE +from LG_060_01_EMFLINE WHERE CANCELLED<>1 AND [SIGN]=1 --AND ACCOUNTCODE='120.01.G01' GROUP BY ACCOUNTCODE --- Tahsilatlar Temp Tablo Bitiþ +-- Tahsilatlar Temp Tablo Bitiþ DECLARE @_sign smallint; @@ -47,6 +48,7 @@ DECLARE @_lineexp varchar(251); DECLARE @_accountcode varchar(101); DECLARE @_invoiceno varchar(17); DECLARE @_month smallint; +DECLARE @_trcode smallint; DECLARE @_recid int; DECLARE @_accountname varchar(200); SET @_recid=0; @@ -54,15 +56,15 @@ SET @_recid=0; DECLARE MY_CURSOR CURSOR LOCAL STATIC READ_ONLY FORWARD_ONLY FOR -select [SIGN],DEBIT,CREDIT,DATE_ ,LINEEXP,ACCOUNTCODE,INVOICENO,MONTH_,ca.DEFINITION_ -from LG_141_01_EMFLINE el -left join LG_141_EMUHACC ca ON ca.LOGICALREF=el.ACCOUNTREF +select [SIGN],DEBIT,CREDIT,DATE_ ,LINEEXP,ACCOUNTCODE,INVOICENO,MONTH_,ca.DEFINITION_,el.TRCODE +from LG_060_01_EMFLINE el +left join LG_060_EMUHACC ca ON ca.LOGICALREF=el.ACCOUNTREF WHERE el.CANCELLED<>1 AND el.ACCOUNTCODE LIKE '120.%' ORDER BY DATE_ ASC OPEN MY_CURSOR -FETCH NEXT FROM MY_CURSOR INTO @_sign,@_debit,@_credit,@_date,@_lineexp,@_accountcode,@_invoiceno,@_month,@_accountname +FETCH NEXT FROM MY_CURSOR INTO @_sign,@_debit,@_credit,@_date,@_lineexp,@_accountcode,@_invoiceno,@_month,@_accountname,@_trcode WHILE @@FETCH_STATUS = 0 BEGIN SET @_recid = @_recid + 1; @@ -75,7 +77,7 @@ BEGIN SET @_splitted=0 IF @_remaining=0 OR @_remaining IS NULL - INSERT INTO #tempresults VALUES(@_recid,@_sign,@_debit,@_credit,@_date,@_lineexp,@_accountcode,@_invoiceno,0,0,0,0,0,0,0,0,0,0,0,0,0,@_accountname) + INSERT INTO #tempresults VALUES(@_recid,@_sign,@_debit,@_credit,@_date,@_lineexp,@_accountcode,@_invoiceno,0,0,0,0,0,0,0,0,0,0,0,0,0,0,@_accountname) ELSE BEGIN @@ -83,26 +85,26 @@ BEGIN BEGIN --PRINT @_remaining-@_debit UPDATE #tempcredits SET REMAINING=REMAINING-@_debit WHERE ACCOUNTCODE=@_accountcode - INSERT INTO #tempresults VALUES(@_recid,@_sign,@_debit,@_credit,@_date,@_lineexp,@_accountcode,@_invoiceno,1,0,0,0,0,0,0,0,0,0,0,0,0,@_accountname) + INSERT INTO #tempresults VALUES(@_recid,@_sign,@_debit,@_credit,@_date,@_lineexp,@_accountcode,@_invoiceno,1,0,0,0,0,0,0,0,0,0,0,0,0,0,@_accountname) END IF @_remaining-@_debit<0 AND @_sign=0 AND @_remaining<>0 BEGIN UPDATE #tempcredits SET REMAINING=0 WHERE ACCOUNTCODE=@_accountcode SET @_splitted=1 - INSERT INTO #tempresults VALUES(@_recid,@_sign,@_remaining,@_credit,@_date,@_lineexp,@_accountcode,@_invoiceno,1,0,0,0,0,0,0,0,0,0,0,0,0,@_accountname) + INSERT INTO #tempresults VALUES(@_recid,@_sign,@_remaining,@_credit,@_date,@_lineexp,@_accountcode,@_invoiceno,1,0,0,0,0,0,0,0,0,0,0,0,0,0,@_accountname) SET @_recid = @_recid+1; - INSERT INTO #tempresults VALUES(@_recid,@_sign,@_debit-@_remaining,@_credit,@_date,'PARÇALANDI : '+@_lineexp,@_accountcode,@_invoiceno,0,0,0,0,0,0,0,0,0,0,0,0,0,@_accountname) + INSERT INTO #tempresults VALUES(@_recid,@_sign,@_debit-@_remaining,@_credit,@_date,'PARÇALANDI : '+@_lineexp,@_accountcode,@_invoiceno,0,0,0,0,0,0,0,0,0,0,0,0,0,0,@_accountname) END IF @_remaining=0 AND @_sign<>1 BEGIN - INSERT INTO #tempresults VALUES(@_recid,@_sign,@_debit,@_credit,@_date,@_lineexp,@_accountcode,@_invoiceno,0,0,0,0,0,0,0,0,0,0,0,0,0,@_accountname) + INSERT INTO #tempresults VALUES(@_recid,@_sign,@_debit,@_credit,@_date,@_lineexp,@_accountcode,@_invoiceno,0,0,0,0,0,0,0,0,0,0,0,0,0,0,@_accountname) END - IF @_sign=1 --credit iþlemi. deðiþtirmeden geç + IF @_sign=1 --credit iþlemi. deðiþtirmeden geç BEGIN - INSERT INTO #tempresults VALUES(@_recid,@_sign,@_debit,@_credit,@_date,@_lineexp,@_accountcode,@_invoiceno,1,0,0,0,0,0,0,0,0,0,0,0,0,@_accountname) + INSERT INTO #tempresults VALUES(@_recid,@_sign,@_debit,@_credit,@_date,@_lineexp,@_accountcode,@_invoiceno,1,0,0,0,0,0,0,0,0,0,0,0,0,0,@_accountname) END END @@ -111,7 +113,8 @@ BEGIN BEGIN UPDATE #tempresults SET - OCAK = CASE WHEN @_month=1 THEN @_debit-@_remaining ELSE 0 END, + ACILIS = CASE WHEN @_trcode=1 THEN @_debit-@_remaining ELSE 0 END, + OCAK = CASE WHEN @_month=1 AND @_trcode<>1 THEN @_debit-@_remaining ELSE 0 END, SUBAT = CASE WHEN @_month=2 THEN @_debit-@_remaining ELSE 0 END, MART = CASE WHEN @_month=3 THEN @_debit-@_remaining ELSE 0 END, NISAN = CASE WHEN @_month=4 THEN @_debit-@_remaining ELSE 0 END, @@ -126,18 +129,19 @@ BEGIN WHERE RECID=@_recid END - FETCH NEXT FROM MY_CURSOR INTO @_sign,@_debit,@_credit,@_date,@_lineexp,@_accountcode,@_invoiceno,@_month,@_accountname + FETCH NEXT FROM MY_CURSOR INTO @_sign,@_debit,@_credit,@_date,@_lineexp,@_accountcode,@_invoiceno,@_month,@_accountname,@_trcode END CLOSE MY_CURSOR DEALLOCATE MY_CURSOR --- ÖZET +-- ÖZET SELECT ACCOUNTCODE,ACCOUNTNAME -,SUM(DEBIT) AS BORÇ +,SUM(DEBIT) AS BORÇ ,SUM(CREDIT) AS ALACAK ,SUM(DEBIT)-SUM(CREDIT) AS BAKIYE +,SUM(ACILIS) as Acilis ,SUM(OCAK) as Ocak ,SUM(SUBAT) as Subat ,SUM(MART) as Mart @@ -150,7 +154,7 @@ SELECT ACCOUNTCODE,ACCOUNTNAME ,SUM(EKIM) as Ekim ,SUM(KASIM) as Kasim ,SUM(ARALIK) as Aralik -,((SUM(DEBIT)-SUM(CREDIT))-SUM(OCAK)-SUM(SUBAT)-SUM(MART)-SUM(NISAN)-SUM(MAYIS)-SUM(HAZIRAN)-SUM(TEMMUZ)-SUM(AGUSTOS) +,((SUM(DEBIT)-SUM(CREDIT))-SUM(ACILIS)-SUM(OCAK)-SUM(SUBAT)-SUM(MART)-SUM(NISAN)-SUM(MAYIS)-SUM(HAZIRAN)-SUM(TEMMUZ)-SUM(AGUSTOS) -SUM(EYLUL)-SUM(EKIM)-SUM(KASIM)-SUM(ARALIK)) AS SAGLAMA from #tempresults GROUP BY ACCOUNTCODE,ACCOUNTNAME @@ -182,4 +186,4 @@ End If(OBJECT_ID('tempdb..#tempresults') Is Not Null) Begin Drop Table #tempresults -End \ No newline at end of file +End