Forum Anasayfa Forum Anasayfa > Mikro Ürünleri ile ilgili Forumlar > Mikro Fly
  Yeni Mesajlar Yeni Mesajlar RSS Besemesi - Cari muhasebe kodu otomatik
  SSS SSS  Forum Araması   Etkinlikler   Foruma Kayıt Olun Foruma Kayıt Olun  Giriş Giriş

Cari muhasebe kodu otomatik

 Cevap Yaz Cevap Yaz
Yazar
Mesaj
  Başlık Arama Başlık Arama  Konu Ayarları Konu Ayarları
eydief Sürükle bırak
Senior Member
Senior Member
Avatar

Kayıt tarihi: 03 Ocak 2005
Konum: Balıkesir
Durum: Çevrimdışı
Puan: 1141
Mesaj Ayarları Mesaj Ayarları   Teşekkürler (0) Teşekkürler(0)   Alıntı eydief Alıntı  Cevap YazCevap Bu mesaja direkt link Başlık: Cari muhasebe kodu otomatik
    Gönderildi: 05 Nisan 2019 saat 15:49
create TRIGGER TRG_Muhasebe_Kartac ON CARI_HESAPLAR
AFTER INSERT, UPDATE, DELETE AS
 DECLARE @INSERT AS CHAR(1) = (CASE WHEN EXISTS(SELECT * FROM INSERTED) AND NOT EXISTS(SELECT * FROM DELETED) THEN 'E' ELSE 'H' END)
 DECLARE @UPDATE AS CHAR(1) = (CASE WHEN EXISTS(SELECT * FROM INSERTED) AND EXISTS(SELECT * FROM DELETED) THEN 'E' ELSE 'H' END)
 DECLARE @DELETE AS CHAR(1) = (CASE WHEN NOT EXISTS(SELECT * FROM INSERTED) AND EXISTS(SELECT * FROM DELETED) THEN 'E' ELSE 'H' END)
a
 IF @INSERT = 'E' BEGIN
  INSERT INTO MUHASEBE_HESAP_PLANI (muh_Guid, muh_fileid, muh_create_user, muh_create_date, muh_lastup_user, muh_lastup_date, muh_hesap_kod, muh_hesap_isim1, muh_hesap_tip, muh_calisma_sekli,
  muh_SpecRECno, muh_iptal, muh_hidden, muh_kilitli, muh_degisti, muh_checksum, muh_special1, muh_special2, muh_special3, muh_hesap_isim2, muh_doviz_cinsi, muh_kurfarki_fl, muh_sorum_merk, muh_kilittarihi, muh_hes_dav_bicimi, muh_kdv_tipi, muh_maliyet_dagitim_sekli, muh_grupkodu, muh_enf_fark_maliyet_fl, muh_kdv_dagitim_sekli, muh_miktar_oto_fl, muh_ticariden_bilgi_girisi_fl, muh_proje_detayi, muh_kesin_mizan_hesap_kodu)
   SELECT NEWID(), 1, 1, GETDATE(), 1, GETDATE(), cari_kod, cari_unvan1, 0, 1,
   0, 0, 0, 0, 0, 0, '', '', '', '', 0, 0, 0, CONVERT(DATE, '30.12.1899', 104), 0, 0, 0, '', 0, 0, 0, 0, 0, ''
  FROM INSERTED
  UPDATE T SET t.cari_muh_kod = I.cari_kod
  FROM CARI_HESAPLAR AS T
 INNER JOIN INSERTED AS I ON T.cari_kod = I.cari_kod
END
-----------------------------------------------
bu kodu cari kart açarken kullanıyoruz. otomatik olarak muhasebe kodunu açıyor buraya kadar bir problem yok
fakat muhasebe kodunu cari tanıtım kartındaki muhasebe kodu alanına yazmıyor.
Mikro V16 da otomatik muhasebe kodu açılması ile ilgili bir güncelleme yapmış ama kullanışlı değil ve eksik çalışıyor hataları var.

Cari kartdaki muhasebe kodu alanına açılan kodu nasıl ekleriz. v15 için olan
kodumuz var ama v16 ile uyumlu olmadığı
için kullanamıyoruz.
Bilirkişilerin dikkatine
<font color=BLUE>mazeret değil. çözüm üretin !!!

[/COLOR]
Başa dön
eydief Sürükle bırak
Senior Member
Senior Member
Avatar

Kayıt tarihi: 03 Ocak 2005
Konum: Balıkesir
Durum: Çevrimdışı
Puan: 1141
Mesaj Ayarları Mesaj Ayarları   Teşekkürler (0) Teşekkürler(0)   Alıntı eydief Alıntı  Cevap YazCevap Bu mesaja direkt link Gönderildi: 05 Nisan 2019 saat 16:23
düzeltme yapayım mikro v16 otomatik muhasebe kodu açılması ile ilgili güncelleme de hata yok.
eksiklik var.
kullanıcı manuel cari kartı açarsa otomatik muhasebe kodunu açıyor fakat
vergi numarasından sorgula butonu ile cari bilgileri sorgulayıp karta aktar ve kaydet dediğinde  muhasebe kartını otomatik açamıyor. ayrıca kartı sakladıktan sonra (Muhasebe kodu olmadan). cari kartı tekrar açıp kaydetmek istediğinizde de muhasebe kartı açayım mı diye sormuyor . 
hatadan kastım bu
<font color=BLUE>mazeret değil. çözüm üretin !!!

[/COLOR]
Başa dön
eydief Sürükle bırak
Senior Member
Senior Member
Avatar

Kayıt tarihi: 03 Ocak 2005
Konum: Balıkesir
Durum: Çevrimdışı
Puan: 1141
Mesaj Ayarları Mesaj Ayarları   Teşekkürler (0) Teşekkürler(0)   Alıntı eydief Alıntı  Cevap YazCevap Bu mesaja direkt link Gönderildi: 05 Nisan 2019 saat 16:39
V15 de kullandığımız kod . isteyenler kullanabilir v16 ya uyarlayan olursa daha güzel olur :)
 
/****** Object:  Trigger [dbo].[CARIMUHASEBEKAYIT]    Script Date: 12/19/2014 13:29:57 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
create TRIGGER [dbo].[CARIMUHASEBEKAYIT]
ON
[dbo].[CARI_HESAPLAR]
FOR
INSERT
AS
DECLARE
@cari_kod
varchar(25),
@cari_unvan1
varchar(90),
@cari_create_user
Smallint,
@cari_lastup_user
Smallint ,
@cari_doviz_cinsi int
select
@cari_kod
=REPLACE(cari_kod,' ',''),
@cari_unvan1
=cari_unvan1 +' '+ cari_unvan2,
@cari_create_user
=cari_create_user,
@cari_lastup_user
=cari_lastup_user
,@cari_doviz_cinsi=cari_doviz_cinsi
from
INSERTED where muh_Guid=@@IDENTITY
IF
EXISTS(SELECT * FROM MUHASEBE_HESAP_PLANI WHERE muh_hesap_kod=@cari_kod)
begin
RAISERROR('MUHASEBEDE BU KOD MEVCUT!!!', 18, 1)
ROLLBACK
RETURN
END
else
BEGIN

update
CARI_HESAPLAR SET cari_muh_kod =
cari_kod where muh_Guid =@@identity
INSERT
INTO MUHASEBE_HESAP_PLANI
(
muh_DBCno
, --0
muh_RECid_RECno
, --0
muh_SpecRECno
, --0
muh_iptal
, --0
muh_fileid
, --0
muh_hidden
, --0
muh_kilitli
, --0
muh_degisti
, --0
muh_checksum
, --0
muh_create_user
, --user
muh_create_date
, --fa--date
muh_lastup_user
,
muh_lastup_date
,
muh_special1
,
muh_special2
,
muh_special3
,
muh_hesap_kod
,
muh_hesap_isim1
,
muh_hesap_isim2
,
muh_hesap_tip
,
muh_doviz_cinsi
,
muh_kurfarki_fl
,
muh_sorum_merk
,
muh_kilittarihi
,
muh_hes_dav_bicimi
,
muh_kdv_tipi
,
muh_calisma_sekli
,
muh_maliyet_dagitim_sekli
,
muh_grupkodu
,
muh_enf_fark_maliyet_fl
,
muh_kdv_dagitim_sekli
,
muh_miktar_oto_fl
,
muh_ticariden_bilgi_girisi_fl
,
muh_proje_detayi,
muh_kesin_mizan_hesap_kodu
)
VALUES
(
0
,
0
,
0
,
0
,
1
,
0
,
0
,
0
,
0
,
@cari_create_user
,
GETDATE
(),
@cari_lastup_user
,GETDATE(),
''
,
''
,
''
,
@cari_kod
,
@cari_unvan1
,
''
,
0
,--hesaptipi
@cari_doviz_cinsi
,--dövizcinsi
0
,-- muh_kurfarki_fl,
''
,-- muh_sorum_merk,
'18991230'
,-- mkiliti,
1
,--dav biçimi 0?
0
,-- muh_kdv_tipi,
1
,--muh_calisma_sekli,
0
,-- muh_maliyet_dagitim_sekli,
''
,-- muh_grupkodu,
0
,--muh_enf_fark_maliyet_fl,
0
,-- muh_kdv_dagitim_sekli,
0
,-- muh_miktar_oto_fl,
0
,-- muh_ticariden_bilgi_girisi_fl muh_ticariden_bilgi_giris,
0
-- muh_proje_detayi
,
LEFT(@cari_kod,3)
)
update
MUHASEBE_HESAP_PLANI SET muh_RECid_RECno=@@IDENTITY where muh_RECno=@@IDENTITY
END
IF
(LEFT(@cari_kod,3)=120)BEGIN update MUHASEBE_HESAP_PLANI SET muh_hesap_tip=0,muh_hes_dav_bicimi =0 , muh_calisma_sekli =0 where muh_RECno=@@IDENTITY END
IF
(LEFT(@cari_kod,3)=320)BEGIN update MUHASEBE_HESAP_PLANI SET muh_hesap_tip=1 ,muh_hes_dav_bicimi = 0 , muh_calisma_sekli =1 where muh_RECno=@@IDENTITY END
<font color=BLUE>mazeret değil. çözüm üretin !!!

[/COLOR]
Başa dön
 Cevap Yaz Cevap Yaz
  Konuyu Paylaş   

Foruma Atla Forum Yetkileri Sürükle bırak

Forum Software by Web Wiz Forums® version 11.04
Copyright ©2001-2015 Web Wiz Ltd.

Bu sayfa 0,094 saniyede yüklenmiştir.