MUHASEBE ALT-ÜST HESAP KONTROLÜ

[mkutlu]

Merhaba Arkadaşlar,

320 
320.01
320.01.000
diye devam eden kodlarımız var. yalnız bu kodlardan "320" nin altında kalan kodları Bİlanço tablosuna bir türlü alıyor. Formül de Hesap kodu kısmında 320 yazıyor bir problem yok. Veritabanından EMUHACC kontrol ettiğimde SUBACCOUNTS VE LEVEL alanları 0 görünüyor. Bunları otomatik düzenleyen bir query var mıdır ? ya da neye göre düzeltebilirim.

İyi Çalışmalar

[ozankilic]

/*UST HESABI OLMAYAN HESAPLARI BULMAYA YARAR*/
DECLARE @CODE VARCHAR(24)
DECLARE @MCODE VARCHAR(24)
DECLARE @L INT
DECLARE @CNT INT

DECLARE EMCC CURSOR FOR
SELECT CODE FROM LG_001_EMUHACC
WHERE LEVEL_<> 0
ORDER BY CODE
OPEN EMCC
 
FETCH NEXT FROM EMCC
INTO @CODE
 WHILE @@FETCH_STATUS = 0
  BEGIN
   SELECT @L = LEN(@CODE)
   WHILE @L >= 0
           BEGIN
                IF SUBSTRING(@CODE,@L,1)='.'
                 BEGIN
            SELECT @MCODE = SUBSTRING(@CODE,1,@L-1)
            BREAK    
       END
                SELECT @L = @L-1                 
      END   
        SELECT @CNT = COUNT(*) FROM LG_001_EMUHACC
   WHERE CODE = @MCODE 
   IF @CNT = 0
         SELECT @CODE   

FETCH NEXT FROM EMCC
INTO @CODE
END
CLOSE EMCC
DEALLOCATE EMCC

[ozankilic]

SELECT * FROM LG_001_01_EMFLINE
WHERE ACCFICHEREF NOT IN(SELECT LOGICALREF FROM LG_001_01_EMFICHE)

[ozankilic]

DECLARE @POINT_INDEX INT
DECLARE @POINTS INT
DECLARE @REF INT
DECLARE @CODE VARCHAR (25)

SET @POINTS = 0

DECLARE C CURSOR
FOR

SELECT  LOGICALREF , CODE FROM LG_001_EMUHACC  ORDER BY CODE

OPEN C
FETCH NEXT FROM C 
INTO @REF , @CODE
WHILE @@FETCH_STATUS = 0
BEGIN
SET @POINTS = 0
SET @POINT_INDEX = 1

   WHILE @POINT_INDEX <> 0
   BEGIN
   IF @POINT_INDEX <> 1 SET @POINT_INDEX = @POINT_INDEX +1
      SET @POINT_INDEX = CHARINDEX('.', @CODE , @POINT_INDEX)

      IF @POINT_INDEX > 0
      BEGIN
         SET @POINTS = @POINTS + 1    
      END
   END

   yasak LG_001_EMUHACC  SET LEVEL_ = @POINTS WHERE LOGICALREF = @REF AND LEVEL_ <> @POINTS
   FETCH NEXT FROM C 
   
INTO @REF , @CODE
END
CLOSE C
DEALLOCATE C
go

DECLARE @MuhCode varchar(25)
DECLARE @LEVEL_ smallint
DECLARE @SUBACCOUNTS smallint
DECLARE @SAY  SMALLINT

DECLARE MUH_CURSOR CURSOR FOR

SELECT
   CODE,LEVEL_
FROM
   LG_001_EMUHACC
ORDER BY
   CODE

OPEN MUH_CURSOR
FETCH NEXT FROM MUH_CURSOR
into @MuhCode ,@LEVEL_
WHILE @@FETCH_STATUS = 0
BEGIN
SET ROWCOUNT 0

   SELECT @SAY = COUNT(*)FROM LG_001_EMUHACC WHERE CODE LIKE @MuhCode+'%' AND LEVEL_=@LEVEL_+1

   yasak LG_001_EMUHACC SET SUBACCOUNTS=@SAY

WHERE CODE=@MuhCode
FETCH NEXT FROM MUH_CURSOR
into @MuhCode ,@LEVEL_
END
CLOSE MUH_CURSOR
DEALLOCATE MUH_CURSOR

[ozankilic]

DECLARE
@MuhCode varchar(25),
@LEVEL_ smallint,
@SUBACCOUNTS smallint,
@SAY  SMALLINT
DECLARE MUH_CURSOR CURSOR FOR
SELECT
   CODE,LEVEL_
FROM
   LG_080_EMUHACC
ORDER BY
   CODE
OPEN MUH_CURSOR
FETCH NEXT FROM MUH_CURSOR
into @MuhCode ,@LEVEL_
WHILE @@FETCH_STATUS = 0
BEGIN
SET ROWCOUNT 0
SELECT @SAY = COUNT(*)FROM LG_080_EMUHACC WHERE CODE LIKE @MuhCode+'%' AND LEVEL_=@LEVEL_+1
yasak LG_080_EMUHACC SET SUBACCOUNTS=@SAY
WHERE CODE=@MuhCode
FETCH NEXT FROM MUH_CURSOR
into @MuhCode ,@LEVEL_
END
CLOSE MUH_CURSOR
DEALLOCATE MUH_CURSOR

[ozankilic]

sanrım bunlar iişini görür

[mkutlu]

Teşekkürler. İyi Çalışmalar