ERP Muhasebe Modülü - Bütçe Raporu

Sayfayı Yazdır | Pencereyi Kapat

Bütçe Raporu

Nereden Yazdırıldığı: ERP Nedir? | Türkiye'nin ERP Forum Platformu
Kategori: ERP Temel Paketler
Forum Adı: ERP Muhasebe Modülü
Forum Tanımlaması: Muhasebe Modülü İle İlgili Bilgiler ve Sorular İçin...
URL: http://www.erpne.org/forum_posts.asp?TID=925
Tarih: 22 Kasım 2024 Saat 16:03
Program Versiyonu: Web Wiz Forums 11.10 - http://www.webwizforums.com

Konu: Bütçe Raporu

Mesajı Yazan: gullpasha
Konu: Bütçe Raporu
Mesaj Tarihi: 26 Mayıs 2008 Saat 14:21

Merhaba arkadaslar.

Bir rapor hazirlamaya çalisiyorum ama isin içinde çikamadim açikcasi belki elinde benim yapmak istedigi rapordan hazir olan vardir.

Gelirler kod ocak subat mart nisan mayis .............

Yurtiçi ürün satisi 600-10-10-1-001 xxx xxx xxx xxx xxx

yurtdisi ürün satisi ........... ... ...... ... .... ....

Bütün Gelir ve gider kalemlerini bu sekilde ay bazinda gösteren bir raporu elinde mevcut olan varsa gönderebilir mi acaba

Cevaplar:

Mesajı Yazan: mbaykan
Mesaj Tarihi: 26 Mayıs 2008 Saat 14:22

soruna iki sekilde yanit vermek istedim, 1.si internet'ten bir zaman arastirip buldugum Pivot table üreten stored prosedür. 2.si direkt bir view yazarak.
2. sik bana "balik vermek/balik tutmayi ögretmek" ikilemine düsecegimi hissettirdiginden ben 1. sikki seçtim. Stored Procedure baska raporlamalarinizda da yardimci olabilir.
kolay gelsin. prosedürü aktariyorum.
CREATE PROCEDURE [dbo].[sp_XTAB]

@MYDBO varchar(255), -- database name
@MYQRY varchar(255), -- view (name) to create/replace
@MYTBL varchar(4000), -- table name or join statement
@MYOUT varchar(255), -- column/s to group
@MYPIV varchar(255), -- column/s to pivot
@MYWHR1 varchar(4000), -- WHERE clause limits fields to be pivoted (---OPTIONAL---)
@MYFLD varchar(255), -- field/s to calculate and populate pivoted columns I.e. field + field
@MYSUM varchar(255), -- calculation method I.e. COUNT SUM AVG etc.
@MYALT varchar(255), -- NULL or 0 (zero) I.e. NULL goes with COUNT/Character fields
@MYWHR2 varchar(4000), -- WHERE clause filters calculated field/s (---OPTIONAL---)
@MYSTP varchar(8000) -- Output or other statement (---OPTIONAL---)

AS

SET NOCOUNT ON
SET ANSI_WARNINGS OFF

DECLARE @MYSTR varchar(8000), @MYTBLB varchar(4000), @MYPIVB varchar(4000)

-- Replace apostrophes with " | " to avoid scoping errors which would be created by sql-parser when @MYSTR is submitted for execution.
SELECT @MYTBLB = REPLACE(@MYTBL,CHAR(39),CHAR(124))
SELECT @MYOUT = REPLACE(@MYOUT,CHAR(39),CHAR(124))
SELECT @MYPIVB = REPLACE(@MYPIV,CHAR(39),CHAR(124))
SELECT @MYWHR2 = REPLACE(@MYWHR2,CHAR(39),CHAR(124))
SELECT @MYALT = REPLACE(@MYALT,CHAR(39),CHAR(124))
SELECT @MYSTP = REPLACE(@MYSTP,CHAR(39),CHAR(124))
-- " | " symbols are put back to apostrophes before sub-strings are submitted for execution.

-- Build @MYSTR with secondary execution code.
SELECT @MYSTR = 'DECLARE @MYSUBSTR varchar(8000), @MYSUBSTR1 varchar(8000), @MYSUBSTR2 varchar(8000), @MYSUBSTR3

varchar(8000), @MYSUBSTR4 varchar(8000), @MYSUBSTR5 varchar(8000), @MYSUBSTR6 varchar(8000), @MYSUBSTR7 varchar(8000),

@MYSUBSTR8 varchar(8000), @MYSUBSTR9 varchar(8000), @MYSUBEND varchar(8000), @MYSUBQRY varchar(255), @MYSUBTBL

varchar(4000), @MYSUBOUT varchar(255), @MYSUBPIV varchar(255), @MYSUBFLD varchar(255), @MYSUBSUM varchar(255), @MYSUBALT

varchar(255), @MYXCOL varchar(255) , @MYSUBWHR2 varchar(4000), @MYSUBSTP varchar(8000), @MYSUBINT As int, @MYSUBMAX int
Use '+ @MYDBO + '
IF EXISTS (SELECT TABLE_NAME FROM INFORMATION_SCHEMA.VIEWS
WHERE TABLE_NAME = ''' + @MYQRY + ''')
DROP VIEW ' + @MYQRY

-- The second execution must declare its own set of variables and these are set for initialisation here.
SELECT @MYSTR = @MYSTR + '
SELECT @MYSUBQRY = ''' + @MYQRY + '''
SELECT @MYSUBTBL = ''' + @MYTBLB + '''
SELECT @MYSUBOUT = ''' + @MYOUT + '''
SELECT @MYSUBPIV = ''' + @MYPIVB + '''
SELECT @MYSUBFLD = ''' + @MYFLD + '''
SELECT @MYSUBSUM = ''' + @MYSUM + '''
SELECT @MYSUBALT = ''' + @MYALT + '''
SELECT @MYSUBSTR1 = '''+CHAR(59)+'''
SELECT @MYSUBSTR2 = '''+CHAR(59)+'''
SELECT @MYSUBSTR3 = '''+CHAR(59)+'''
SELECT @MYSUBSTR4 = '''+CHAR(59)+'''
SELECT @MYSUBSTR5 = '''+CHAR(59)+'''
SELECT @MYSUBSTR6 = '''+CHAR(59)+'''
SELECT @MYSUBSTR7 = '''+CHAR(59)+'''
SELECT @MYSUBSTR8 = '''+CHAR(59)+'''
SELECT @MYSUBSTR9 = '''+CHAR(59)+'''
SELECT @MYSUBWHR2 = ''' + @MYWHR2 + '''
SELECT @MYSUBSTP = ''' + @MYSTP + '''
SELECT @MYSUBINT = 0
SELECT @MYSUBMAX = 17544'

-- Replace " | " with double apostrophes here.
SELECT @MYSTR = @MYSTR + '
SELECT @MYSUBTBL = REPLACE(@MYSUBTBL,'''+CHAR(124)+''','''+CHAR(39)+CHAR(39)+''')
SELECT @MYSUBOUT = REPLACE(@MYSUBOUT,'''+CHAR(124)+''','''+CHAR(39)+CHAR(39)+''')
SELECT @MYSUBPIV = REPLACE(@MYSUBPIV,'''+CHAR(124)+''','''+CHAR(39)+CHAR(39)+''')
SELECT @MYSUBWHR2 = REPLACE(@MYSUBWHR2,'''+CHAR(124)+''','''+CHAR(39)+CHAR(39)+''')
SELECT @MYSUBALT = REPLACE(@MYSUBALT,'''+CHAR(124)+''','''+CHAR(39)+CHAR(39)+''') '

-- Initialise secondary execution code.
SELECT @MYSTR = @MYSTR + '
SELECT @MYSUBSTR = ''CREATE VIEW '' + @MYSUBQRY + '' AS SELECT TOP 100 PERCENT '' + @MYSUBOUT'

-- Add secondary execution iteration to identify and create the pivoted columns.
SELECT @MYSTR = @MYSTR + '
DECLARE curXTAB CURSOR FAST_FORWARD FOR
SELECT DISTINCT '+@MYPIV+'
FROM '+@MYTBL+'
'+@MYWHR1+'
ORDER BY '+@MYPIV+'

OPEN curXTAB
FETCH NEXT FROM curXTAB
INTO @MYXCOL
WHILE @@FETCH_STATUS = 0
BEGIN

If @MYSUBINT <= @MYSUBMAX
BEGIN
SELECT @MYSUBINT = @MYSUBINT + 1

SELECT @MYXCOL = IsNull(@MYXCOL,''NULL'')'

-- Build a series of secondary execution strings accomodating up to 63000 characters of dynamic sql.
SELECT @MYSTR = @MYSTR + '
If (Len(@MYSUBSTR) < 7001)
BEGIN
SELECT @MYSUBSTR = @MYSUBSTR + '',
''+@MYSUBSUM+''(CASE '' + @MYSUBPIV + '' WHEN ''+CHAR(39)+@MYXCOL+CHAR(39)+'' THEN ''+@MYSUBFLD+'' ELSE ''+ @MYSUBALT+'' END) AS '' + IsNull(''_'' + REPLACE(@MYXCOL,'' '',''''),''_NULL'')
END
ELSE
If (Len(@MYSUBSTR1) < 7001)
BEGIN
SELECT @MYSUBSTR1 = @MYSUBSTR1 + '',
''+@MYSUBSUM+''(CASE '' + @MYSUBPIV + '' WHEN ''+CHAR(39)+@MYXCOL+CHAR(39)+'' THEN ''+@MYSUBFLD+'' ELSE ''+ @MYSUBALT+'' END) AS '' + IsNull(''_'' + REPLACE(@MYXCOL,'' '',''''),''_NULL'')
END
ELSE
If (Len(@MYSUBSTR2) < 7001)
BEGIN
SELECT @MYSUBSTR2 = @MYSUBSTR2 + '',
''+@MYSUBSUM+''(CASE '' + @MYSUBPIV + '' WHEN ''+CHAR(39)+@MYXCOL+CHAR(39)+'' THEN ''+@MYSUBFLD+'' ELSE ''+ @MYSUBALT+'' END) AS '' + IsNull(''_'' + REPLACE(@MYXCOL,'' '',''''),''_NULL'')
END
ELSE
If (Len(@MYSUBSTR3) < 7001)
BEGIN
SELECT @MYSUBSTR3 = @MYSUBSTR3 + '',
''+@MYSUBSUM+''(CASE '' + @MYSUBPIV + '' WHEN ''+CHAR(39)+@MYXCOL+CHAR(39)+'' THEN ''+@MYSUBFLD+'' ELSE ''+ @MYSUBALT+'' END) AS '' + IsNull(''_'' + REPLACE(@MYXCOL,'' '',''''),''_NULL'')
END
ELSE
If (Len(@MYSUBSTR4) < 7001)
BEGIN
SELECT @MYSUBSTR4 = @MYSUBSTR4 + '',
''+@MYSUBSUM+''(CASE '' + @MYSUBPIV + '' WHEN ''+CHAR(39)+@MYXCOL+CHAR(39)+'' THEN ''+@MYSUBFLD+'' ELSE ''+ @MYSUBALT+'' END) AS '' + IsNull(''_'' + REPLACE(@MYXCOL,'' '',''''),''_NULL'')
END
ELSE
If (Len(@MYSUBSTR5) < 7001)
BEGIN
SELECT @MYSUBSTR5 = @MYSUBSTR5 + '',
''+@MYSUBSUM+''(CASE '' + @MYSUBPIV + '' WHEN ''+CHAR(39)+@MYXCOL+CHAR(39)+'' THEN ''+@MYSUBFLD+'' ELSE ''+ @MYSUBALT+'' END) AS '' + IsNull(''_'' + REPLACE(@MYXCOL,'' '',''''),''_NULL'')
END
ELSE
If (Len(@MYSUBSTR6) < 7001)
BEGIN
SELECT @MYSUBSTR6 = @MYSUBSTR6 + '',
''+@MYSUBSUM+''(CASE '' + @MYSUBPIV + '' WHEN ''+CHAR(39)+@MYXCOL+CHAR(39)+'' THEN ''+@MYSUBFLD+'' ELSE ''+ @MYSUBALT+'' END) AS '' + IsNull(''_'' + REPLACE(@MYXCOL,'' '',''''),''_NULL'')
END
ELSE
If (Len(@MYSUBSTR7) < 7001)
BEGIN
SELECT @MYSUBSTR7 = @MYSUBSTR7 + '',
''+@MYSUBSUM+''(CASE '' + @MYSUBPIV + '' WHEN ''+CHAR(39)+@MYXCOL+CHAR(39)+'' THEN ''+@MYSUBFLD+'' ELSE ''+ @MYSUBALT+'' END) AS '' + IsNull(''_'' + REPLACE(@MYXCOL,'' '',''''),''_NULL'')
END
ELSE
If (Len(@MYSUBSTR8) < 7001)
BEGIN
SELECT @MYSUBSTR8 = @MYSUBSTR8 + '',
''+@MYSUBSUM+''(CASE '' + @MYSUBPIV + '' WHEN ''+CHAR(39)+@MYXCOL+CHAR(39)+'' THEN ''+@MYSUBFLD+'' ELSE ''+ @MYSUBALT+'' END) AS '' + IsNull(''_'' + REPLACE(@MYXCOL,'' '',''''),''_NULL'')
END
ELSE
If (Len(@MYSUBSTR9) < 7001)
BEGIN
SELECT @MYSUBSTR9 = @MYSUBSTR9 + '',
''+@MYSUBSUM+''(CASE '' + @MYSUBPIV + '' WHEN ''+CHAR(39)+@MYXCOL+CHAR(39)+'' THEN ''+@MYSUBFLD+'' ELSE ''+ @MYSUBALT+'' END) AS '' + IsNull(''_'' + REPLACE(@MYXCOL,'' '',''''),''_NULL'')
END
ELSE
If (Len(@MYSUBSTR9) >= 7000)
BEGIN
SELECT @MYSUBSTR9 = ''SELECT XTAB_ERROR__QUERY_TOO_LARGE_FOR_THIS_VERSION_OF_XTAB''
END

END
ELSE'
-- Clear all dynamic strings if more than 17544 distinct rows to pivot.
SELECT @MYSTR = @MYSTR + '
BEGIN
SELECT @MYSUBSTR1 = ''''
SELECT @MYSUBSTR2 = ''''
SELECT @MYSUBSTR3 = ''''
SELECT @MYSUBSTR4 = ''''
SELECT @MYSUBSTR5 = ''''
SELECT @MYSUBSTR6 = ''''
SELECT @MYSUBSTR7 = ''''
SELECT @MYSUBSTR8 = ''''
SELECT @MYSUBSTR9 = ''''
SELECT @MYSUBWHR2 = ''''
SELECT @MYSUBSTP = ''EXEC(| XTAB_ERROR__MORE_THAN_17544_DISTINCT_ROWS_TO_PIVOT|''
END

FETCH NEXT FROM curXTAB
INTO @MYXCOL
END

CLOSE curXTAB
DEALLOCATE curXTAB'

-- Initialise secondary FROM WHERE GROUP and ORDER BY statements.
SELECT @MYSTR = @MYSTR + '
SELECT @MYSUBEND = ''
FROM '' + @MYSUBTBL

If Len(@MYSUBWHR2) > 0
BEGIN
SELECT @MYSUBEND = @MYSUBEND + ''
'' + @MYSUBWHR2 + '' ''
END

If Len(@MYSUBSUM) > 0
BEGIN
SELECT @MYSUBEND = @MYSUBEND + ''
GROUP BY '' + @MYSUBOUT
END

SELECT @MYSUBEND = @MYSUBEND + ''
ORDER BY '' + @MYSUBOUT'

-- Remove the CHAR(59) padding from second execution strings.
SELECT @MYSTR = @MYSTR + '
SELECT @MYSUBSTR1 = SUBSTRING(@MYSUBSTR1,2,8000)
SELECT @MYSUBSTR2 = SUBSTRING(@MYSUBSTR2,2,8000)
SELECT @MYSUBSTR3 = SUBSTRING(@MYSUBSTR3,2,8000)
SELECT @MYSUBSTR4 = SUBSTRING(@MYSUBSTR4,2,8000)
SELECT @MYSUBSTR5 = SUBSTRING(@MYSUBSTR5,2,8000)
SELECT @MYSUBSTR6 = SUBSTRING(@MYSUBSTR6,2,8000)
SELECT @MYSUBSTR7 = SUBSTRING(@MYSUBSTR7,2,8000)
SELECT @MYSUBSTR8 = SUBSTRING(@MYSUBSTR8,2,8000)
SELECT @MYSUBSTR9 = SUBSTRING(@MYSUBSTR9,2,8000)'

-- Secondary execution code with zero to 63000+ character tolerance.
SELECT @MYSTR = @MYSTR + '
If Len(@MYSUBSTR1) < 1
BEGIN
EXEC(@MYSUBSTR + @MYSUBEND)
END
ELSE
If Len(@MYSUBSTR2) < 1
BEGIN
EXEC(@MYSUBSTR + @MYSUBSTR1 + @MYSUBEND)
END
ELSE
If Len(@MYSUBSTR3) < 1
BEGIN
EXEC(@MYSUBSTR + @MYSUBSTR1 + @MYSUBSTR2 + @MYSUBEND)
END
ELSE
If Len(@MYSUBSTR4) < 1
BEGIN
EXEC(@MYSUBSTR + @MYSUBSTR1 + @MYSUBSTR2 + @MYSUBSTR3 + @MYSUBEND)
END
ELSE
If Len(@MYSUBSTR5) < 1
BEGIN
EXEC(@MYSUBSTR + @MYSUBSTR1 + @MYSUBSTR2 + @MYSUBSTR3 + @MYSUBSTR4 + @MYSUBEND)
END
ELSE
If Len(@MYSUBSTR6) < 1
BEGIN
EXEC(@MYSUBSTR + @MYSUBSTR1 + @MYSUBSTR2 + @MYSUBSTR3 + @MYSUBSTR4 + @MYSUBSTR5 + @MYSUBEND)
END
ELSE
If Len(@MYSUBSTR7) < 1
BEGIN
EXEC(@MYSUBSTR + @MYSUBSTR1 + @MYSUBSTR2 + @MYSUBSTR3 + @MYSUBSTR4 + @MYSUBSTR5 + @MYSUBSTR6 +

@MYSUBEND)
END
ELSE
If Len(@MYSUBSTR8) < 1
BEGIN
EXEC(@MYSUBSTR + @MYSUBSTR1 + @MYSUBSTR2 + @MYSUBSTR3 + @MYSUBSTR4 + @MYSUBSTR5 + @MYSUBSTR6 +

@MYSUBSTR7 + @MYSUBEND)
END
ELSE
If Len(@MYSUBSTR9) < 1
BEGIN
EXEC(@MYSUBSTR + @MYSUBSTR1 + @MYSUBSTR2 + @MYSUBSTR3 + @MYSUBSTR4 + @MYSUBSTR5 + @MYSUBSTR6 +

@MYSUBSTR7 + @MYSUBSTR8 + @MYSUBEND)
END
ELSE
BEGIN
EXEC(@MYSUBSTR + @MYSUBSTR1 + @MYSUBSTR2 + @MYSUBSTR3 + @MYSUBSTR4 + @MYSUBSTR5 + @MYSUBSTR6 +

@MYSUBSTR7 + @MYSUBSTR8 + @MYSUBSTR9 + @MYSUBEND)
END'

-- Initialise secondary (optional) output statement.
SELECT @MYSTR = @MYSTR + '
If Len(@MYSUBSTP) > 2
BEGIN
SELECT @MYSUBSTP = REPLACE(@MYSUBSTP,'''+CHAR(124)+''','''+CHAR(39)+CHAR(39)+''')
EXEC(@MYSUBSTP)
END'

EXEC(@MYSTR)

-------------
Mehmet Baykan

Mesajı Yazan: gullpasha
Mesaj Tarihi: 26 Mayıs 2008 Saat 14:51

Üstadim çok saolasin, prosedürler hakkinda pek bir bilgim yok, yukaridaki prosedürü, benim istedigim rapor için nasil kullanacagimi bir izah edebilir misin?

Mesajı Yazan: Conari
Mesaj Tarihi: 26 Mayıs 2008 Saat 14:51

gullpasha Yazdı:

Merhaba arkadaslar.

Bir rapor hazirlamaya çalisiyorum ama isin içinde çikamadim açikcasi belki elinde benim yapmak istedigi rapordan hazir olan vardir.

Gelirler kod ocak subat mart nisan mayis .............

Yurtiçi ürün satisi 600-10-10-1-001 xxx xxx xxx xxx xxx

yurtdisi ürün satisi ........... ... ...... ... .... ....

Bütün Gelir ve gider kalemlerini bu sekilde ay bazinda gösteren bir raporu elinde mevcut olan varsa gönderebilir mi acaba

http://www.erpne.org/forum_posts.asp?TID=885&KW - http://www.erpne.org/forum_posts.asp?TID=885&KW =

Gülpasa Bu linkte viewi wermistim.

-------------
Netsisden vazgeçemiyorum. Beni engelliyor..

Mesajı Yazan: gullpasha
Mesaj Tarihi: 26 Mayıs 2008 Saat 15:05

Sagolasin üstadim

çok güzel yapmissin,..

Mesajı Yazan: mbaykan
Mesaj Tarihi: 26 Mayıs 2008 Saat 18:02

http://www.themssforum.com/SQLServerDev/XTAB-CROSSTAB/%20 - http://www.themssforum.com/SQLServerDev/XTAB-CROSSTAB/
linkinde prosedürün kullanim örnegini Northwind database'i için örneklemis.
Ben size konunuza yakin olmasi için ssyle bir örnek vereyim

CREATE VIEW NV_ORNEK AS
SELECT A.HES_KOD,B.HS_ADI,A.AY_KODU AS AY,
CASE WHEN BA=1 THEN TUTAR ELSE 0 END BORC,
CASE WHEN BA=2 THEN TUTAR ELSE 0 END ALAC,
CASE WHEN BA=1 THEN TUTAR ELSE -TUTAR END BAKIYE
FROM TBLMUHFIS A,TBLMUPLAN B
WHERE A.HES_KOD=B.HESAP_KODU

view' ni yaratalim. burada benim hesaplarin bakiyelerini Ay- Ay listelemek istedigimi düsünelim

EXEC sp_XTAB
'database_adi',
'xtBIL', --Gecici tablo
'NV_ORNEK',
'HES_KOD,HS_ADI',
'AY',
'',
'BAKIYE',
'SUM',
'NULL',
'',
'SELECT xtBIL.* FROM xtBIL ORDER BY HES_KOD DROP VIEW xtBIL'
komutuyla istedigimizi aliriz
Not: bu prosedürü 4-5 sene önce bulup kullanmistim Access ve Excel'den alistigim Pivot'u SQL nasil yapamaz diyerek arayip buldum. kullanimini hatirlamam biraz zor oldu.
-hala WHERE cümleciklerini prosedüre dahil edemedim-
Kolay gelsin

-------------
Mehmet Baykan

Mesajı Yazan: mbaykan
Mesaj Tarihi: 26 Mayıs 2008 Saat 18:16

http://www.themssforum.com/SQLServerDev/XTAB-CROSSTAB/%20 - http://www.themssforum.com/SQLServerDev/XTAB-CROSSTAB/
linkinde prosedürün kullanim örnegini Northwind database'i için örneklemis.
Ben size konunuza yakin olmasi için ssyle bir örnek vereyim

CREATE VIEW NV_ORNEK AS
SELECT A.HES_KOD,B.HS_ADI,A.AY_KODU AS AY,
CASE WHEN BA=1 THEN TUTAR ELSE 0 END BORC,
CASE WHEN BA=2 THEN TUTAR ELSE 0 END ALAC,
CASE WHEN BA=1 THEN TUTAR ELSE -TUTAR END BAKIYE
FROM TBLMUHFIS A,TBLMUPLAN B
WHERE A.HES_KOD=B.HESAP_KODU

view' ni yaratalim. burada benim hesaplarin bakiyelerini Ay- Ay listelemek istedigimi düsünelim

EXEC sp_XTAB
'database_adi',
'xtBIL', --Gecici tablo
'NV_ORNEK',
'HES_KOD,HS_ADI',
'AY',
'',
'BAKIYE',
'SUM',
'NULL',
'',
'SELECT xtBIL.* FROM xtBIL ORDER BY HES_KOD DROP VIEW xtBIL'
komutuyla istedigimizi aliriz
bendeki çikti

HES_KOD         HS_ADI                 _1                     _2                _3
--------------- ------------------------------- ---------------------- -------------------- ---------------
Hesap-1            HESAP adi-1                         ....
Hesap-2            Hesap adi-2                         .....

Not: bu prosedürü 4-5 sene önce bulup kullanmistim Access ve Excel'den alistigim Pivot'u SQL nasil yapamaz diyerek arayip buldum. kullanimini hatirlamam biraz zor oldu.
-hala WHERE cümleciklerini prosedüre dahil edemedim-
Kolay gelsin

-------------
Mehmet Baykan

Mesajı Yazan: suleyman3535
Mesaj Tarihi: 19 Mart 2009 Saat 15:19

merhabalar bende extend oladigi icin alamiyorum extendsiz nasil alabilirim bu raporu

Mesajı Yazan: Conari
Mesaj Tarihi: 19 Mart 2009 Saat 15:52

Raporlar >

Serbest Raporlar

MUPLANSUBETOPLAM

view ile ay bazinda hesaplarin borc ve alacaklarini görebilirsiniz.

-------------
Netsisden vazgeçemiyorum. Beni engelliyor..

Mesajı Yazan: suleyman3535
Mesaj Tarihi: 19 Mart 2009 Saat 16:55

dogru haklisiniz ordan alabiliyorum ancak benim istedim ayni yukardaki… http://www.themssforum.com/SQLServerDev/XTAB-CROSSTAB/%20 - http://www.themssforum.com/SQLServerDev/XTAB-CROSSTAB/ ..rapordaki gibi tum islemleri extend olmadan yapmanin bi formulu bunun da tek yollu anladigim kadariyla makrodan geciyor(extend olmadigi icin baska care yok)

Mesajı Yazan: Conari
Mesaj Tarihi: 19 Mart 2009 Saat 17:11

extend derken ne sekilde istediginizi anladim bu rapor

hesap kodu - açiklamasi -ocak borç - ocak alacak............

seklinde size verir istediginizi.

verdiginiz link bozuk bu arada.

-------------
Netsisden vazgeçemiyorum. Beni engelliyor..

Mesajı Yazan: suleyman3535
Mesaj Tarihi: 20 Mart 2009 Saat 09:04

http://192.168.3.17:15871/cgi-bin/blockpage.cgi?ws-session=1090639081 - http://192.168.3.17:15871/cgi-bin/blockpage.cgi?ws-session=1090639081

bu linkte bir extend caçlismasi var bu link disinda benim bir caçlismam vardi 2 yil önce yaptigim suan nasil yaptigimi hatirlayamiyorum. ALTTAKI LINK TEKI CALISMA GIBI BIR ÇALISMAYI USTTEKI BILGILER DOGRULTUSUNDA YAPMAK ISTIYORUM

http://rapidshare.com/files/211326445/EXTENS__304_Z_SADECE_V__304_EW___304_LE_VER__304__ALMA.xls.html -

Mesajı Yazan: Conari
Mesaj Tarihi: 20 Mart 2009 Saat 10:27

üstteki linki yine açamadim.

Excel belgesi de Extend degil ado ile baglanti yapilmis vt ye.

-------------
Netsisden vazgeçemiyorum. Beni engelliyor..

Mesajı Yazan: suleyman3535
Mesaj Tarihi: 20 Mart 2009 Saat 10:52

burdaki konudan ulasmistim bahsetigim linke

http://www.erpne.org/forum_posts.asp?TID=925 - http://www.erpne.org/forum_posts.asp?TID=925

Mesajı Yazan: suleyman3535
Mesaj Tarihi: 20 Mart 2009 Saat 13:36

SONUNDA DOGRU LINK I YAZMAYI BASRADIM

http://www.erpne.org/forum_posts.asp?TID=885 - http://www.erpne.org/forum_posts.asp?TID=885

Mesajı Yazan: Conari
Mesaj Tarihi: 20 Mart 2009 Saat 15:19

Benim Extend de yaptigim Bilanço, Gelir tablosu Rasyo çalismasi bu.

-------------
Netsisden vazgeçemiyorum. Beni engelliyor..

Mesajı Yazan: suleyman3535
Mesaj Tarihi: 20 Mart 2009 Saat 15:45

EXTEND SIZ OLARAK BU RAPORU ALMAM MUMKUNMU MUMKUN ISE NASIL YAPABILRIIM BENIM YUKARDA BI RAPORUM VAR 2 YIL ÖNCE YAMISTIM NASIL YAPTIGIMI DA UNTTUM TEKRAR YAPAYIM DEDIM BECEREMEDIM. YRD OLURSAN COK SEVIRNIR VE BENI HER AY ZAMAN KAYBINDAN KURTARMIS OLURSUNUZ

Mesajı Yazan: Conari
Mesaj Tarihi: 20 Mart 2009 Saat 17:04

Siz excelde nasil bir rapor almak istiyorsunuz. Özet tablo basit.

Excele getirmek istediginiz veriler neler? ilk olarak SQL cümlesini hazirlamalisiniz.

-------------
Netsisden vazgeçemiyorum. Beni engelliyor..

Mesajı Yazan: suleyman3535
Mesaj Tarihi: 20 Mart 2009 Saat 17:13

http://www.erpne.org/forum_posts.asp?TID=885 - http://www.erpne.org/forum_posts.asp?TID=885

bu linkte extend calismaniz varya onu extend olmadan excele aktarmak mumkun mudur .

Mesajı Yazan: Conari
Mesaj Tarihi: 20 Mart 2009 Saat 18:00

O sekilde siz create edin VT de Extend siz olarak ki halini hazirlariz ama bu günlerde biraz yogunum.

Önümüzde ki hafta içi insallah.

-------------
Netsisden vazgeçemiyorum. Beni engelliyor..

Mesajı Yazan: micromak
Mesaj Tarihi: 20 Mart 2009 Saat 23:19

CREATE FUNCTION [dbo].[PDF_AYLIK_GELIR] ()
RETURNS @SONUC TABLE
(
KOD   VARCHAR(30),
ADI   VARCHAR(100),
TUR   VARCHAR(10),
OCAK  DECIMAL(28,2) DEFAULT 0,
SUBAT  DECIMAL(28,2) DEFAULT 0,
MART  DECIMAL(28,2) DEFAULT 0,
NISAN  DECIMAL(28,2) DEFAULT 0,
MAYIS  DECIMAL(28,2) DEFAULT 0,
HAZIRAN  DECIMAL(28,2) DEFAULT 0,
TEMMUZ  DECIMAL(28,2) DEFAULT 0,
AGUSTOS  DECIMAL(28,2) DEFAULT 0,
EYLUL  DECIMAL(28,2) DEFAULT 0,
EKIM  DECIMAL(28,2) DEFAULT 0,
KASIM  DECIMAL(28,2) DEFAULT 0,
ARALIK  DECIMAL(28,2) DEFAULT 0,
TOPLAM  DECIMAL(28,2) DEFAULT 0
)
AS
BEGIN

INSERT INTO @SONUC (KOD,ADI,TUR) SELECT HESAP_KODU,HS_ADI,(CASE WHEN HESAP_KODU LIKE '600%' THEN 'YURTICI' ELSE 'YURTDISI' END) FROM TBLMUPLAN
WHERE   AGM='M' AND (HESAP_KODU LIKE '600%' OR HESAP_KODU LIKE '601%' ) ORDER BY HESAP_KODU
---TUTAR GELIRLER

UPDATE @SONUC SET OCAK=ISNULL((SELECT SUM (TUTAR) FROM TBLMUHFIS WHERE BA='2' AND MONTH(TARIH)='1' AND HES_KOD=KOD ),0)
UPDATE @SONUC SET SUBAT=ISNULL((SELECT SUM (TUTAR) FROM TBLMUHFIS WHERE BA='2' AND MONTH(TARIH)='2' AND HES_KOD=KOD ),0)
UPDATE @SONUC SET MART=ISNULL((SELECT SUM (TUTAR) FROM TBLMUHFIS WHERE BA='2' AND MONTH(TARIH)='3' AND HES_KOD=KOD ),0)
UPDATE @SONUC SET NISAN=ISNULL((SELECT SUM (TUTAR) FROM TBLMUHFIS WHERE BA='2' AND MONTH(TARIH)='4' AND HES_KOD=KOD),0)
UPDATE @SONUC SET MAYIS=ISNULL((SELECT SUM (TUTAR) FROM TBLMUHFIS WHERE BA='2' AND MONTH(TARIH)='5' AND HES_KOD=KOD),0)
UPDATE @SONUC SET HAZIRAN=ISNULL((SELECT SUM (TUTAR) FROM TBLMUHFIS WHERE BA='2' AND MONTH(TARIH)='6' AND HES_KOD=KOD),0)
UPDATE @SONUC SET TEMMUZ=ISNULL((SELECT SUM (TUTAR) FROM TBLMUHFIS WHERE BA='2' AND MONTH(TARIH)='7' AND HES_KOD=KOD ),0)
UPDATE @SONUC SET AGUSTOS=ISNULL((SELECT SUM (TUTAR) FROM TBLMUHFIS WHERE BA='2' AND MONTH(TARIH)='8' AND HES_KOD=KOD),0)
UPDATE @SONUC SET EYLUL=ISNULL((SELECT SUM (TUTAR) FROM TBLMUHFIS WHERE BA='2' AND MONTH(TARIH)='9' AND HES_KOD=KOD ),0)
UPDATE @SONUC SET EKIM=ISNULL((SELECT SUM (TUTAR) FROM TBLMUHFIS WHERE BA='2' AND MONTH(TARIH)='10' AND HES_KOD=KOD ),0)
UPDATE @SONUC SET KASIM=ISNULL((SELECT SUM (TUTAR) FROM TBLMUHFIS WHERE BA='2' AND MONTH(TARIH)='11' AND HES_KOD=KOD),0)
UPDATE @SONUC SET ARALIK=ISNULL((SELECT SUM (TUTAR) FROM TBLMUHFIS WHERE BA='2' AND MONTH(TARIH)='12' AND HES_KOD=KOD),0)
UPDATE @SONUC SET TOPLAM=ISNULL((SELECT SUM (TUTAR) FROM TBLMUHFIS WHERE BA='2' AND HES_KOD=KOD ),0)
DELETE @SONUC WHERE TOPLAM='0'

RETURN
END
GO
CREATE FUNCTION [dbo].[PDF_AYLIK_GIDER] ()
RETURNS @SONUC TABLE
(
KOD   VARCHAR(30),
ADI   VARCHAR(100),
TUR   VARCHAR(5),
OCAK  DECIMAL(28,2) DEFAULT 0,
SUBAT  DECIMAL(28,2) DEFAULT 0,
MART  DECIMAL(28,2) DEFAULT 0,
NISAN  DECIMAL(28,2) DEFAULT 0,
MAYIS  DECIMAL(28,2) DEFAULT 0,
HAZIRAN  DECIMAL(28,2) DEFAULT 0,
TEMMUZ  DECIMAL(28,2) DEFAULT 0,
AGUSTOS  DECIMAL(28,2) DEFAULT 0,
EYLUL  DECIMAL(28,2) DEFAULT 0,
EKIM  DECIMAL(28,2) DEFAULT 0,
KASIM  DECIMAL(28,2) DEFAULT 0,
ARALIK  DECIMAL(28,2) DEFAULT 0,
TOPLAM  DECIMAL(28,2) DEFAULT 0
)
AS
BEGIN

INSERT INTO @SONUC (KOD,ADI,TUR) SELECT HESAP_KODU,HS_ADI,'GIDER' FROM TBLMUPLAN
WHERE   AGM='M' AND (HESAP_KODU LIKE '7%') ORDER BY HESAP_KODU
---TUTAR GELIRLER

UPDATE @SONUC SET OCAK=ISNULL((SELECT SUM (TUTAR) FROM TBLMUHFIS WHERE BA='1' AND MONTH(TARIH)='1' AND HES_KOD=KOD ),0)
UPDATE @SONUC SET SUBAT=ISNULL((SELECT SUM (TUTAR) FROM TBLMUHFIS WHERE BA='1' AND MONTH(TARIH)='2' AND HES_KOD=KOD ),0)
UPDATE @SONUC SET MART=ISNULL((SELECT SUM (TUTAR) FROM TBLMUHFIS WHERE BA='1' AND MONTH(TARIH)='3' AND HES_KOD=KOD ),0)
UPDATE @SONUC SET NISAN=ISNULL((SELECT SUM (TUTAR) FROM TBLMUHFIS WHERE BA='1' AND MONTH(TARIH)='4' AND HES_KOD=KOD),0)
UPDATE @SONUC SET MAYIS=ISNULL((SELECT SUM (TUTAR) FROM TBLMUHFIS WHERE BA='1' AND MONTH(TARIH)='5' AND HES_KOD=KOD),0)
UPDATE @SONUC SET HAZIRAN=ISNULL((SELECT SUM (TUTAR) FROM TBLMUHFIS WHERE BA='1' AND MONTH(TARIH)='6' AND HES_KOD=KOD ),0)
UPDATE @SONUC SET TEMMUZ=ISNULL((SELECT SUM (TUTAR) FROM TBLMUHFIS WHERE BA='1' AND MONTH(TARIH)='7' AND HES_KOD=KOD ),0)
UPDATE @SONUC SET AGUSTOS=ISNULL((SELECT SUM (TUTAR) FROM TBLMUHFIS WHERE BA='1' AND MONTH(TARIH)='8' AND HES_KOD=KOD),0)
UPDATE @SONUC SET EYLUL=ISNULL((SELECT SUM (TUTAR) FROM TBLMUHFIS WHERE BA='1' AND MONTH(TARIH)='9' AND HES_KOD=KOD ),0)
UPDATE @SONUC SET EKIM=ISNULL((SELECT SUM (TUTAR) FROM TBLMUHFIS WHERE BA='1' AND MONTH(TARIH)='10' AND HES_KOD=KOD ),0)
UPDATE @SONUC SET KASIM=ISNULL((SELECT SUM (TUTAR) FROM TBLMUHFIS WHERE BA='1' AND MONTH(TARIH)='11' AND HES_KOD=KOD),0)
UPDATE @SONUC SET ARALIK=ISNULL((SELECT SUM (TUTAR) FROM TBLMUHFIS WHERE BA='1' AND MONTH(TARIH)='12' AND HES_KOD=KOD),0)
UPDATE @SONUC SET TOPLAM=ISNULL((SELECT SUM (TUTAR) FROM TBLMUHFIS WHERE BA='1' AND HES_KOD=KOD ),0)
DELETE @SONUC WHERE TOPLAM='0'

RETURN
END
GO
CREATE VIEW AYLIK_GELIR_GIDER
AS
SELECT * FROM [dbo].[PDF_AYLIK_GELIR] ()
UNION ALL
SELECT * FROM [dbo].[PDF_AYLIK_GIDER] ()
GO
SELECT * FROM AYLIK_GELIR_GIDER

Mesajı Yazan: suleyman3535
Mesaj Tarihi: 10 Nisan 2009 Saat 13:48

http://rapidshare.com/files/219623480/Bilan_o_Gelir_Rasyolar_Netsis_-_Extend.XLS.html -

http://www.erpne.org/forum_posts.asp?TID=885

burdkai çalismanizi alttaki linkteki açlisma ile birlestimek yani linkteki gibi döküm almak isityorum yradim ci olurmusunuz

http://rapidshare.com/files/219623480/Bilan_o_Gelir_Rasyolar_Netsis_-_Extend.XLS.html

Mesajı Yazan: Conari
Mesaj Tarihi: 21 Nisan 2009 Saat 17:46

ADO ile hazirlanmis hali

http://rapidshare.com/files/224015535/Bilanco_Gelir_Rasyolar_Netsis_-_Extend.rar.html - http://rapidshare.com/files/224015535/Bilanco_Gelir_Rasyolar_Netsis_-_Extend.rar.html

View sayfasindaki view i create etmeyi unutmayin.

-------------
Netsisden vazgeçemiyorum. Beni engelliyor..

Mesajı Yazan: suleyman3535
Mesaj Tarihi: 28 Nisan 2009 Saat 12:16

Sirket

User

User Pass

Server

GÜNCELEDIM...

BILGILERINNI GIRDIM ANCAK HIÇBIRSEY DÖKMÜYOR...

Mesajı Yazan: Conari
Mesaj Tarihi: 28 Nisan 2009 Saat 12:48

Burdan indirin.

http://rapidshare.com/files/226659562/Bilanco_Gelir_Rasyolar_Netsis_-_Extend.rar.html

-------------
Netsisden vazgeçemiyorum. Beni engelliyor..

Mesajı Yazan: suleyman3535
Mesaj Tarihi: 28 Nisan 2009 Saat 18:40

COK TSK ELLERINIZE SAGLIK BIDE AYNI SAYFADA GECEN SENENIN VERILERINE ALABILSEK NE GUZEL OLURDU

Mesajı Yazan: Conari
Mesaj Tarihi: 29 Nisan 2009 Saat 08:52

Ona ileriki günlerde bakarim.

-------------
Netsisden vazgeçemiyorum. Beni engelliyor..

Mesajı Yazan: suleyman3535
Mesaj Tarihi: 06 Mayıs 2009 Saat 13:19

Conari Yazdı:

Ona ileriki günlerde bakarim.

slm isterseniz nasil yapilcapini söylerseniz ben deneye bilrim ama sifreli oldugu icin vba acamiyorum.

Mesajı Yazan: Conari
Mesaj Tarihi: 06 Mayıs 2009 Saat 14:02

Selam

Süleyman arkadasim simdi burada olayin nasil oldugunu size nasil anlayayim.

O kadar basit degil bu is. Vaktim olunca bakacagim.

VBA kodlarinda is bitmiyorki

iki sirket vtsine baglanmak lazim v.s.v.s.

-------------
Netsisden vazgeçemiyorum. Beni engelliyor..

Mesajı Yazan: suleyman3535
Mesaj Tarihi: 18 Mayıs 2009 Saat 11:57

Hesap Kodu	Hesap Adi	4. Ay Bakiye	4. Ay KM Bakiye
100	KASA	437,36	600,54

BAKIYELER TMA 2 KATTI CIKIYOR NEDEN BÖLE CIKTIGINI ANLAMADIM

Mesajı Yazan: Conari
Mesaj Tarihi: 18 Mayıs 2009 Saat 15:28

Çikmasina imkan yok.

sube falan var ise farklilik verebilir sadece subeli olarak ayarlamamistim.

-------------
Netsisden vazgeçemiyorum. Beni engelliyor..