Cari/Muhasebe Hesap Trigger

   Asagidaki kodu bana aciklayabilirmisiniz.
Cari kodu nasil sekilde acmamiz gerekiyor ki,muhasebe kodunu o sekilde acsin.Yani Cari karti acarken nasil bir seviye takibi yapmamiz gerekmektedir.120-01-0001 gibi.

Netsis otomatik Muhasebe Hesap Kodu Açmak
USE [database]
GO
/****** Object: Trigger [dbo].[triatekd] Script Date: 01/01/2014 13:40:32 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
ALTER TRIGGER [dbo].[triatekd]
ON [dbo].[TBLCASABIT]
AFTER INSERT
NOT FOR REPLICATION
AS
BEGIN
DECLARE @HESAP_KODU VARCHAR(35)
DECLARE @TIP CHAR(1)
DECLARE @SUBE_KODU CHAR(1)
DECLARE @CARI_ISIM varchar(100)
DECLARE @KAYITYAPANKUL varchar(12)
SELECT @SUBE_KODU=SUBE_KODU FROM INSERTED
SELECT @CARI_ISIM=CARI_ISIM FROM INSERTED
SELECT @TIP=CARI_TIP FROM INSERTED
IF @TIP=’A’
BEGIN
SELECT top 1 @HESAP_KODU=CASE WHEN LEN(RIGHT([HESAP_KODU],4)+1)=1 THEN LEFT(HESAP_KODU,7)+’00′+
CAST(RIGHT([HESAP_KODU],4)+1 AS VARCHAR) WHEN
LEN(RIGHT([HESAP_KODU],4)+1)=2 THEN LEFT(HESAP_KODU,7)+’0′+CAST(RIGHT([HESAP_KODU],4)+1 AS VARCHAR) ELSE LEFT(HESAP_KODU,7)+CAST(RIGHT([HESAP_KODU],4)+1 AS VARCHAR)
END FROM [TBLMUPLAN]
WHERE HESAP_KODU LIKE ’120-01%’ AND AGM=’M’ and sube_kodu=0 ORDER BY HESAP_KODU DESC

INSERT INTO TBLMUPLAN
SELECT TOP 1 @SUBE_KODU
,[ISLETME_KODU],@HESAP_KODU,[AGM]
,@CARI_ISIM,[HS_YD_ADI],[HS_GRKOD]
,[OLCU_BIRIM],[HS_BLKZ],[CALIS_TIP]
,[CALIS_BAG],[DOVIZLIMI],[DOVIZ_TIPI]
,[HESAPLAMATURU],[DOVIZKONTROL],[UPDATE_KODU]
,[REFKODLU_CALIS],[YEDEK1],[YEDEK2]
,[YEDEK3],[YEDEK4],[YEDEK5]
,[YEDEK6],[YEDEK7],[YEDEK8]
,[YEDEK9],[KAYITYAPANKUL]
,[KAYITTARIHI],[DUZELTMEYAPANKUL]
,[DUZELTMETARIHI],[ONAYTIPI]
,[ONAYNUM],[ENF_FARK_HESKOD]
FROM [TBLMUPLAN]
WHERE HESAP_KODU LIKE ’120-01%’ AND AGM=’M’ ORDER BY HESAP_KODU DESC

INSERT INTO TBLMUPLANEK(KOD)
VALUES(@HESAP_KODU)
UPDATE TBLCASABIT SET M_KOD=@HESAP_KODU FROM INSERTED WHERE TBLCASABIT.CARI_KOD=INSERTED.CARI_KOD
END
END