Kaynak: KB-v1
08_SupportPlaybooks/Processes/PROC-130.md←Surecler/*.doc(destek süreç dokümanı; parola/IP/terminal maskelenmiş). Gerçeklik: DOCUMENTED — kodla doğrulanmış değil.
Bilanco Problemleri
Kimlik: PROC-130 · Ürün: ERPGOLDV2 · Kategori: Rapor ve bilanço · Katalog: Bilanco Problemleri
Kaynak: AifaSoft destek süreç dokümanı (Word). Şifre, kullanıcı adı, terminal no ve IP bilgileri kaynak aşamasında maskelenmiştir; görseller resimli süreç kitabındadır.
ERPGOLDV2
BİLANÇO PROBLEMLERİ
Doküman TipiBilanço ProblemleriDoküman No---HazırlayanCihan Burak TURGUTYayın Tarihi22.10.2021Revize YapanMünür SEZERRevizyon Tarihi24.11.2021KonuMaden MaliyetiRevize YapanMünür SEZERRevizyon Tarihi11.02.2022KonuTakoz KaynaklıRevize YapanRevizyon TarihiKonu
22.10.2021 / Cihan Burak TURGUT
Bilanco – yazıyor ise Islem Kontrol Raporundan Islemleri tek tek kontrol ediniz Örneğin DOLAR satış kuru 9 iken müşteri VS olarak doları 6 liradan sattı ise program zarar yazıcaktır.
Bilanco - yazdı ise, Stoğu kontrol ediniz stoktan olmiyan malı cıkmış olabilir.
ALTER Function [Stok].[GetMadenMaliyeti] (@SubeId int,@KasaId int,@StokId int,@Tarih as Date,@StokMiktar Decimal(18,2))
returnS Decimal(18,2)
as
BEGIN
Declare @IscTur int=0
Declare @BirimId int =0
Select @IscTur=IscTuru,@BirimId =MaliyetBirimId From Stok.Maden Where Id=@StokId
Declare @Miktar Decimal(18,2)=0
Declare @Maliyet Decimal(18,2)=0
Declare @ToplamMiktar Decimal(18,2)=0
Declare @ToplamMaliyet Decimal(18,2)=0
Declare @IsExit as int =0
DECLARE CRS_MadenBirimMaliyetTL CURSOR FOR
Select top 5000 Case When @IscTur =0 Then H.Adet Else H.Miktar End as Miktar,Fn.Bol(H.Maliyet,I.HasKur) as Maliyet FRom Stok.StokHaraketleri H Left Join Cari.Islemler I on I.Id=H.IslemId Where (H.Tarih\<=@Tarih or @Tarih is null) and (H.SubeId=@SubeId or @SubeId =0) And (H.KasaId =@KasaId Or @KasaId =0) And H.StokId=@StokId and StokTipi =1 And H.IslemTuru =0 Order By IslemId Desc
OPEN CRS_MadenBirimMaliyetTL
FETCH NEXT FROM CRS_MadenBirimMaliyetTL INTO @Miktar,@Maliyet
WHILE @@FETCH_STATUS =0 and @IsExit =0
BEGIN
if (@ToplamMiktar + @Miktar)<=@StokMiktar
BEGIN
set @ToplamMiktar +=@Miktar
Set @ToplamMaliyet +=@Maliyet
END
ELSE
BEGIN
Set @ToplamMaliyet +=FN.Bol (@Maliyet ,@Miktar) * (@StokMiktar - @ToplamMiktar)
Set @ToplamMiktar = @StokMiktar
SET @IsExit =1
END
FETCH NEXT FROM CRS_MadenBirimMaliyetTL INTO @Miktar,@Maliyet
END
CLOSE CRS_MadenBirimMaliyetTL
DEALLOCATE CRS_MadenBirimMaliyetTL
RETURN CONVERT(Decimal(18,2), @ToplamMaliyet)
END
24.11.2021 / Münür SEZER
Kur değiştirildiğinde Bilanço da değişiyorsa; ya POZİSYON vardır ya da HAS harici diğer birimlerle (USD, TL vb.) işçilikli ürün alınmıştır.
Eğer;
- POZİSYON 0 (sıfır) ise
- Tüm ürün işçilikleri HAS ise
aşağıdakiler yapılacaktır.
1. Maden Stok Listesine giriniz ve "Maliyeti Göster" butonuna basınız.
2. Tüm Stoğu (işçilikleri ile beraber) boş bir Cari Karta (DEVIR, PESIN, SERMAYE vb.) çıkınız.
3. Aşağıdaki query' yi çalıştırınız.
4. Aynı Cari Karttan silmiş olduğunuz tüm stoğu (işçilikleri ile beraber) tekrar giriniz.
ALTER Function [Stok].[GetMadenMaliyeti] (@SubeId int,@KasaId int,@StokId int,@Tarih as Date,@StokMiktar Decimal(18,2))
returnS Decimal(18,2)
as
BEGIN
Declare @IscTur int=0
Declare @BirimId int =0
Select @IscTur=IscTuru,@BirimId =MaliyetBirimId From Stok.Maden Where Id=@StokId
Declare @Miktar Decimal(18,2)=0
Declare @Maliyet Decimal(18,2)=0
Declare @ToplamMiktar Decimal(18,2)=0
Declare @ToplamMaliyet Decimal(18,2)=0
Declare @IsExit as int =0
DECLARE CRS_MadenBirimMaliyetTL CURSOR FOR
Select top 5000 Case When @IscTur =0 Then H.Adet Else H.Miktar End as Miktar,I.Iscilik as Maliyet FRom Stok.StokHaraketleri H Left Join Cari.Islemler I on I.Id =H.IslemId Where (H.Tarih>'2021-11-12' and H.Tarih<=@Tarih or @Tarih is null) and (I.SubeId=@SubeId or @SubeId =0) And (I.KasaId =@KasaId Or @KasaId =0) And I.StokId=@StokId and StokTipi =1 And I.IslemTuru =0 Order By IslemId Desc
OPEN CRS_MadenBirimMaliyetTL
FETCH NEXT FROM CRS_MadenBirimMaliyetTL INTO @Miktar,@Maliyet
WHILE @@FETCH_STATUS =0 and @IsExit =0
BEGIN
if (@ToplamMiktar + @Miktar)<=@StokMiktar
BEGIN
set @ToplamMiktar +=@Miktar
Set @ToplamMaliyet +=@Maliyet
END
ELSE
BEGIN
Set @ToplamMaliyet+=FN.Bol(@Maliyet,@Miktar)*(@StokMiktar-@ToplamMiktar)
Set @ToplamMiktar = @StokMiktar
SET @IsExit =1
END
FETCH NEXT FROM CRS_MadenBirimMaliyetTL INTO @Miktar,@Maliyet
END
CLOSE CRS_MadenBirimMaliyetTL
DEALLOCATE CRS_MadenBirimMaliyetTL
RETURN CONVERT(Decimal(18,2), @ToplamMaliyet)
END
11.02.2022 / Münür SEZER
TAKOZLARDAN KAYNAKLANAN BİLANÇO PROBLEMİ
İşlem Kontrol Raporunda Takoz Giriş / Çıkış İşlemlerini kontrol ediniz.
1. Eğer alınan tüm takozların çıkışları yapılmış ise bilanço problemi takozlardan kaynaklanmamaktadır.
2. Eğer takoz girişi yapılmış fakat çıkışı yapılmamışsa, ayrıca takoz stoğunda bulunan takozlar bilançoda gözükmüyorsa Görsel 1 ve Görsel 2' deki adımları takip ediniz. Görsel 2' de bulunan "Stok.GetSirketStoklari" querysini "Stok.GetTakozSubeStoklari" olarak değiştiriniz.
"Where t.SubeId=@SubeId" ekleyiniz ve ardından tekrar bilançoyu kontrol ediniz.
(görsel — süreç kitabında)
Görsel 1
(görsel — süreç kitabında)
Görsel 2
Kaynaklar
- SRC-PROC-DOC — süreç dokümanı #130