Forum

Mikro Function hakk...
 
Bildirimler
Hepsini Temizle

Mikro Function hakkında

5 Yazılar
1 Üyeler
0 Reactions
2,766 Görüntüleme
(@leventhorasan)
Gönderiler: 11
Active Member
Konu başlatıcı
 

Merhaba arkadaşlar foruma yeni üye oldum. Bir sorum olacaktı yardımcı olabilirseniz sevinirim. Aşağıda vermiş olduğum fonksiyondan 


Cari Kod - Ünvan - Şimdiki bakiye  - Vadesi Geçen Bakiye - Vad.Geçen Bakiye günVadesi gelmeyen bakiye - Vadesi gelm.bak.gün 

şeklinde view'e nasıl alacağım. Eğer bu fonksiyondan bu verileri alamıyorsam böyle bir şeyi viewlerle nasıl yapabilirim veya sizde böyle bir örnek varsa yardımcı olabilir misiniz? Teşekkür ederim. Saygılarımla,


SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER ON
GO

CREATE FUNCTION [dbo].[GentugCariHesapOrtalamaVade]
(
@caricins  AS TINYINT
   ,@carikod   AS VARCHAR(25)
)
RETURNS DATETIME
AS
BEGIN
    DECLARE @meblag         AS FLOAT
    
    DECLARE @summeblag      AS FLOAT
    
    DECLARE @vade           AS INT
    
    DECLARE @summeblagvade  AS FLOAT
    
    DECLARE @kapanan        AS FLOAT
    
    DECLARE @rec            AS INT
    
    DECLARE @vadetarih      AS DATETIME
    
    DECLARE @tarih          AS DATETIME
    
    DECLARE @mintarih       AS DATETIME -- Kapanmayan min evrak tarihi
    
    DECLARE @hartip         AS TINYINT
    
    DECLARE @bakiye         AS FLOAT
    
    DECLARE @end            AS TINYINT
    
    DECLARE @Xvadetarih     AS FLOAT -- Ortalama Vade Tarihi
    DECLARE @Xevrvade       AS FLOAT -- Ortalama Evrak Tarihi
    
    SET @bakiye = ISNULL(dbo.fn_CariHesapBakiye(0 ,0 ,@carikod ,'' ,'' ,0 ,0) ,0)
    
    IF @bakiye<=0
        SET @hartip = 1
    ELSE
        SET @hartip = 0
    
    SET @bakiye = ABS(@bakiye)
    
    IF ROUND(@bakiye ,2 ,1)<=0
       OR (@caricins NOT IN (0 ,1))
    BEGIN
        SET @end = 1
    END
    ELSE
    BEGIN
        SET @end = 0
    END
    
    SET @summeblag = 0
    
    SET @summeblagvade = 0
    
    SET @kapanan = 0(
            SELECT TOP 1 @tarih = cha_tarihi
                  ,@vadetarih = dbo.fn_OpVadeTarih(cha_vade ,cha_tarihi)
                  ,@rec = cha_RECno
            FROM   CARI_HESAP_HAREKETLERI
            WHERE  (
                       cha_cari_cins=@caricins
                       AND cha_kod=@carikod
                       AND cha_tip=@hartip
                       AND cha_tpoz=0
                   )
        )
        
        ORDER BY cha_tarihi DESC, dbo.fn_OpVadeTarih(cha_vade ,cha_tarihi) DESC ,
        cha_RECno DESC
    
    WHILE @end=0
    BEGIN
        (
            SELECT @meblag = CASE 
                                  WHEN (cha_cinsi IN (13 ,29)) THEN (
                                           cha_meblag- cha_vergi1- cha_vergi2- 
                                           cha_vergi3- cha_vergi4- cha_vergi5- 
                                           cha_vergi6- cha_vergi7- cha_vergi8- 
                                           cha_vergi9- cha_vergi10
                                       )
                                  WHEN (cha_cinsi=33) THEN cha_aratoplam
                                  WHEN ((cha_cinsi=11) OR (cha_evrak_tip=59))
            AND (dbo.fn_FirmaAnaDovizCinsi()<>cha_d_cins) THEN 0
                
                ELSE cha_meblag END
           ,@vade=dbo.fn_OpVadeGun(cha_vade ,cha_tarihi) FROM 
            CARI_HESAP_HAREKETLERI WHERE cha_RECno=@rec
        )
        
        (
            SELECT @kapanan = SUM(chk_Tutar)
            FROM   CARI_HAREKET_BORC_ALACAK_ESLEME
            WHERE  (chk_ChCinsi=@caricins AND chk_ChKodu=@carikod)
                   AND ((chk_BorcRECid=@rec AND @hartip=0))
        ) 
        
        IF @kapanan>@meblag
            SET @kapanan = @meblag
        
        IF (@summeblag+(@meblag-ISNULL(@kapanan ,0)))>@bakiye
            SET @meblag = @bakiye- @summeblag
        
        SET @summeblag = @summeblag+(@meblag-ISNULL(@kapanan ,0))
        
        SET @summeblagvade = @summeblagvade+((@meblag-ISNULL(@kapanan ,0))*@vade)
        
        IF ROUND(@summeblag ,0)>=ROUND(@bakiye ,0)
        BEGIN
            SET @end = 1
            
            SET @Xvadetarih = CASE 
                                   WHEN @summeblagvade<>0 THEN @summeblagvade/@summeblag
                                   ELSE 0
                              END
            
            SET @mintarih = @tarih
            
            SET @summeblagvade = 0
            
            SET @summeblag = (@meblag-ISNULL(@kapanan ,0))
        END
        ELSE
        BEGIN
            (
                SELECT TOP 1 @rec = cha_RECno
                      ,@tarih = cha_tarihi
                      ,@vadetarih = dbo.fn_OpVadeTarih(cha_vade ,cha_tarihi)
                FROM   CARI_HESAP_HAREKETLERI
                WHERE  (
                           cha_cari_cins=@caricins
                           AND cha_kod=@carikod
                           AND cha_tip=@hartip
                           AND cha_tpoz=0
                       )
                       AND (
                               (cha_tarihi<@tarih)
                               OR (
                                      cha_tarihi=@tarih
                                      AND dbo.fn_OpVadeTarih(cha_vade ,cha_tarihi) 
                                         <@vadetarih
                                  )
                               OR (
                                      cha_tarihi=@tarih
                                      AND dbo.fn_OpVadeTarih(cha_vade ,cha_tarihi) 
                                         =@vadetarih
                                      AND cha_RECno<@rec
                                  )
                           )
            )
            
            ORDER BY cha_tarihi DESC,dbo.fn_OpVadeTarih(cha_vade ,cha_tarihi) 
            DESC ,cha_RECno DESC
        END
    END
    
    BEGIN
        WHILE @end=1
        BEGIN
            IF ROUND(@summeblag ,0)>=ROUND(@bakiye ,0)
            BEGIN
                SET @end = 0 
                SET @Xevrvade = CASE 
                                     WHEN @summeblagvade<>0 THEN @summeblagvade/
                                          @summeblag
                                     ELSE 0
                                END
            END
            ELSE
            BEGIN
                (
                    SELECT TOP 1 @rec = cha_RECno
                          ,@tarih = cha_tarihi
                          ,@vadetarih = dbo.fn_OpVadeTarih(cha_vade ,cha_tarihi)
                    FROM   CARI_HESAP_HAREKETLERI
                    WHERE  (
                               cha_cari_cins=@caricins
                               AND cha_kod=@carikod
                               AND cha_tip=@hartip
                               AND cha_tpoz=0
                           )
                           AND (
                                   (cha_tarihi>@tarih)
                                   OR (
                                          cha_tarihi=@tarih
                                          AND dbo.fn_OpVadeTarih(cha_vade ,cha_tarihi) 
                                             >@vadetarih
                                      )
                                   OR (
                                          cha_tarihi=@tarih
                                          AND dbo.fn_OpVadeTarih(cha_vade ,cha_tarihi) 
                                             =@vadetarih
                                          AND cha_RECno>@rec
                                      )
                               )
                )
                
                ORDER BY cha_tarihi ASC ,dbo.fn_OpVadeTarih(cha_vade ,cha_tarihi) 
                ASC ,cha_RECno ASC(
                    SELECT @meblag = CASE 
                                          WHEN (cha_cinsi IN (13 ,29)) THEN (
                                                   cha_meblag- cha_vergi1- 
                                                   cha_vergi2- cha_vergi3- 
                                                   cha_vergi4- cha_vergi5- 
                                                   cha_vergi6- cha_vergi7- 
                                                   cha_vergi8- cha_vergi9- 
                                                   cha_vergi10
                                               )
                                          WHEN (cha_cinsi=33) THEN cha_aratoplam
                                          WHEN ((cha_cinsi=11) OR (cha_evrak_tip=59))
                    AND (dbo.fn_FirmaAnaDovizCinsi()<>cha_d_cins) THEN 0 ELSE 
                        cha_meblag END
                   ,@vade=dbo.fn_gunfarkibul(@mintarih ,cha_tarihi) FROM 
                    CARI_HESAP_HAREKETLERI WHERE cha_RECno=@rec
                )
                
                (
                    SELECT @kapanan = SUM(chk_Tutar)
                    FROM   CARI_HAREKET_BORC_ALACAK_ESLEME
                    WHERE  (chk_ChCinsi=@caricins AND chk_ChKodu=@carikod)
                           AND (
                                   (chk_BorcRECid=@rec AND @hartip=0)
                                   OR (chk_AlcRECid=@rec AND @hartip=1)
                               )
                )
                
                IF @kapanan>@meblag
                    SET @kapanan = @meblag -- Hatalı kayıtlar gözardı ediliyor...
                
                SET @summeblag = @summeblag+(@meblag-ISNULL(@kapanan ,0))
                
                SET @summeblagvade = @summeblagvade+((@meblag-ISNULL(@kapanan ,0))*@vade)
            END
        END
    END
    
    RETURN 
    CASE 
         WHEN @summeblag<>0 THEN @mintarih+ROUND((@Xvadetarih+@Xevrvade) ,0)
    END
END
GO
 
Gönderildi : 13/03/2015 19:22

(@leventhorasan)
Gönderiler: 11
Active Member
Konu başlatıcı
 

İlginize ve cevabınıza çok teşekkür ederim. Peki bunu nasıl yapacağım. Vermiş olduğum örnekte de bahsettiğiniz örnek mevcut sanırım.

 SET ANSI_NULLS ON

GO

 

SET QUOTED_IDENTIFIER ON

GO

 

CREATE FUNCTION
[dbo].[GentugCariHesapOrtalamaVade]

(

            @caricins
 AS TINYINT

   ,@carikod   AS VARCHAR(25)

)

RETURNS DATETIME

AS

BEGIN

    DECLARE @meblag    
    AS FLOAT

    

    DECLARE @summeblag    
 AS FLOAT

    

    DECLARE @vade    
      AS INT

    

    DECLARE @summeblagvade  AS
FLOAT

    

    DECLARE @kapanan    
   AS FLOAT

    

    DECLARE @rec    
       AS INT

    

    DECLARE @vadetarih    
 AS DATETIME

    

    DECLARE @tarih    
     AS DATETIME

    

    DECLARE @mintarih    
  AS DATETIME -- Kapanmayan min evrak tarihi

    

    DECLARE @hartip    
    AS TINYINT

    

    DECLARE @bakiye    
    AS FLOAT

    

    DECLARE @end    
       AS TINYINT

    

    DECLARE @Xvadetarih  
  AS FLOAT -- Ortalama Vade Tarihi

    DECLARE @Xevrvade    
  AS FLOAT -- Ortalama Evrak Tarihi

 

Bu function ile ilgili kullandığım bir view var ama ben bunu istemiyorum.

 SELECT     TOP (100) PERCENT dbo.CARI_HESAPLAR.cari_kod AS [CARİ KODU], dbo.CARI_HESAPLAR.cari_unvan1 AS [ÜNVAN 1], 

                      dbo.CARI_HESAPLAR.cari_unvan2 AS [ÜNVAN 2], CASE WHEN dbo.fn_GetByteParam(1053) = 1 THEN dbo.fn_CariHesapAnaDovizBakiye('', 0, cari_kod, '', 

                      '', NULL, NULL, NULL, 0) WHEN dbo.fn_GetByteParam(1053) = 2 THEN dbo.fn_CariHesapAlternatifDovizBakiye('', 0, cari_kod, '', '', NULL, NULL, NULL, 0) 

                      WHEN dbo.fn_GetByteParam(1053) = 3 THEN dbo.fn_CariHesapOrjinalDovizBakiye('', 0, cari_kod, '', '', 0, NULL, NULL, 0) WHEN dbo.fn_GetByteParam(1053) 

                      = 4 THEN dbo.fn_CariHareketSayisi(0, cari_kod, '') END AS BAKİYESİ, dbo.fn_DovizSembolu(dbo.CARI_HESAPLAR.cari_doviz_cinsi) AS Expr1, 

                      dbo.fn_GentugCariHesapOrtalamaVade(0, dbo.CARI_HESAPLAR.cari_kod) AS [VADE TARİHİ]

FROM         dbo.CARI_HESAPLAR WITH (NOLOCK) LEFT OUTER JOIN

                      dbo.CARI_HESAP_YETKILILERI ON dbo.CARI_HESAPLAR.cari_kod = dbo.CARI_HESAP_YETKILILERI.mye_cari_kod

ORDER BY [CARİ KODU]

    

 
Gönderildi : 13/03/2015 22:42

(@leventhorasan)
Gönderiler: 11
Active Member
Konu başlatıcı
 

Size mail attım.

 
Gönderildi : 14/03/2015 13:52

(@leventhorasan)
Gönderiler: 11
Active Member
Konu başlatıcı
 

Hala Çözemedim.

 
Gönderildi : 16/03/2015 15:23

(@leventhorasan)
Gönderiler: 11
Active Member
Konu başlatıcı
 

Hala Çözemedim.

 

Merhaba bunu da çözdüm mikronun kendi içerisinde 

 
Gönderildi : 20/03/2015 18:41

Paylaş: