Netsis EDefter Ondalık ve Belge No Düzenleme

Netsis'de fiyatlarda virgülden sonra 2 haneden fazla kullanan firmalarda edefter hazırlamada problemler oluşmakta. Bu problemleri aşmak için tutatlar 2 haneye yuvarlanıp kalan küsüratlar bir muhasebe hesabına atılmalı.

Not : Bu işlemleri yaptıktan sonra defter hazırlama tekrar çalıştırmak gerekiyor.
DECLARE @AYKODU TDBINTEGER
SET @AYKODU=10

UPDATE TBLMUHFISEK SET BELGE_NO='1' WHERE MUHAY_KODU=@AYKODU AND BELGE_NO IS NULL

UPDATE TBLMUHFISEK SET BELGE_NO='1' WHERE MUHAY_KODU=@AYKODU AND BELGE_NO=''

UPDATE TBLMUHFISEK
SET TARIH=B.TARIH
FROM TBLMUHFISEK A
INNER JOIN TBLMUHFIS B ON A.MUHAY_KODU=B.AY_KODU AND A.MUHFISNO=B.FISNO AND A.MUHSIRA=B.SIRA
WHERE MUHAY_KODU=@AYKODU AND A.TARIH IS NULL

UPDATE TBLMUHFIS SET TUTAR=ROUND(TUTAR,2) WHERE AY_KODU=@AYKODU

INSERT INTO TBLMUHFIS(AY_KODU, FISNO, SIRA, HES_KOD, TARIH, BA, ACIKLAMA, TUTAR, MIKTAR
      , REF_KOD, ACIKLAMA2, DOVIZTIP, DOVIZTUT, FIRMADOVTIP, FIRMADOVTUT
      , UPDATEKODU, EVRAKTARIHI, HESAPISMI, YONTEM, ENTEGREFKEY, YEDEK1
      , YEDEK2, YEDEK3, YEDEK4, YEDEK5, YEDEK6, YEDEK7, YEDEK8, YEDEK9
      , YEDEK10, YEDEK11, PROJE_KODU, SUBE_KODU, SUBELI, HARKONTROL
      , KAYITYAPANKUL, KAYITTARIHI, DUZELTMEYAPANKUL, DUZELTMETARIHI
      , BFORMCARIKODU, BFORMBELGENO, GUID, ISLEMSIRANO, KAYITSEKLI
      , MGECDK, KULL_ID, ISLEMTIPI, EDEFTER_SIRA)

SELECT AY_KODU,FISNO,MAX(SIRA)+1,'659-00-00-001',MAX(TARIH),2,
'FÝÞ YUVARLAMASI', (SUM(CASE BA WHEN 1 THEN TUTAR END) - SUM(CASE BA WHEN 2 THEN TUTAR END)) FARK,
0, NULL, NULL, 0, 0, 0, 0, NULL, MAX(EVRAKTARIHI), NULL, NULL, NULL, NULL, NULL, NULL, NULL
, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, SUBE_KODU, 'E', 0, 'MCICEKCI', GETDATE()
, NULL, NULL, NULL, NULL, NULL, NULL, NULL, 'CB', 243, NULL, NULL 
from TBLMUHFIS with(nolock) WHERE AY_KODU=@AYKODU
GROUP BY AY_KODU,FISNO,SUBE_KODU
HAVING SUM(CASE BA WHEN 1 THEN TUTAR END)<>SUM(CASE BA WHEN 2 THEN TUTAR END)
AND SUM(CASE BA WHEN 1 THEN TUTAR END)-SUM(CASE BA WHEN 2 THEN TUTAR END)>0

INSERT INTO TBLMUHFIS(AY_KODU, FISNO, SIRA, HES_KOD, TARIH, BA, ACIKLAMA, TUTAR, MIKTAR
      , REF_KOD, ACIKLAMA2, DOVIZTIP, DOVIZTUT, FIRMADOVTIP, FIRMADOVTUT
      , UPDATEKODU, EVRAKTARIHI, HESAPISMI, YONTEM, ENTEGREFKEY, YEDEK1
      , YEDEK2, YEDEK3, YEDEK4, YEDEK5, YEDEK6, YEDEK7, YEDEK8, YEDEK9
      , YEDEK10, YEDEK11, PROJE_KODU, SUBE_KODU, SUBELI, HARKONTROL
      , KAYITYAPANKUL, KAYITTARIHI, DUZELTMEYAPANKUL, DUZELTMETARIHI
      , BFORMCARIKODU, BFORMBELGENO, GUID, ISLEMSIRANO, KAYITSEKLI
      , MGECDK, KULL_ID, ISLEMTIPI, EDEFTER_SIRA)

SELECT AY_KODU,FISNO,MAX(SIRA)+1,'659-00-00-001',MAX(TARIH),1,
'FÝÞ YUVARLAMASI', (SUM(CASE BA WHEN 1 THEN TUTAR END) - SUM(CASE BA WHEN 2 THEN TUTAR END))*-1 FARK,
0, NULL, NULL, 0, 0, 0, 0, NULL, MAX(EVRAKTARIHI), NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL
, NULL, NULL, NULL, NULL, NULL, NULL, NULL, SUBE_KODU, 'E', 0, 'MCICEKCI', GETDATE(), NULL, NULL
, NULL, NULL, NULL, NULL, NULL, 'CB', 243, NULL, NULL 
from TBLMUHFIS with(nolock) WHERE AY_KODU=@AYKODU
GROUP BY AY_KODU,FISNO,SUBE_KODU
HAVING SUM(CASE BA WHEN 1 THEN TUTAR END)<>SUM(CASE BA WHEN 2 THEN TUTAR END)
AND SUM(CASE BA WHEN 1 THEN TUTAR END)-SUM(CASE BA WHEN 2 THEN TUTAR END)<0 pre="">

Yorumlar

Yorum Gönder