LOGO SQL MALZEME EKSTRE

On By semt20In LOGO ERP, Sql 

/*TEST = 
select * from  dbo.SELECT_MALZEMEEXTRE_201('01/01/2017',getdate(),'01-YK-0001')*/
/****** Object:  UserDefinedFunction [dbo].[SELECT_MALZEMEEXTRE_201]    Script Date: 18.8.2020 09:09:02 ******/
SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER ON
GO


CREATE FUNCTION [dbo].[SELECT_MALZEMEEXTRE_201]
(
    @BAT DATETIME,
	@BIT DATETIME,
	@MALZEMEKODU VARCHAR(50)
)
RETURNS TABLE
AS
RETURN 
SELECT
X.AMBAR,
x.[Stfıche_Referans] ,
x.[Stlıne_Referans] ,
x.[Fiş No],
x.[Fiş Türü],
x.[Belge No],
x.[Stfıche Tarıh],
x.[Stlıne Tarıh],
x.[Ftıme],
x.[Stok Kodu],
x.[Stok Adı],
x.[Bırım],
x.[Giriş Çıkış],
x.[Miktar],
  X.STFICHELNNO,
x.Kalan,
x.[Tutar]
FROM (
SELECT
(SELECT NAME FROM L_CAPIWHOUSE CAPIWHOUSE WHERE CAPIWHOUSE.NR = STLINE.SOURCEINDEX AND CAPIWHOUSE.FIRMNR = 201 ) AMBAR,

STFICHE.LOGICALREF [STFICHE_REFERANS],
STLINE.LOGICALREF [STLINE_REFERANS],
[Fiş No]=STFICHE.FICHENO,

[Fiş Türü]=CASE STFICHE.TRCODE 

WHEN  1 then 'Satınalma İrsaliyesi'

WHEN  2 then 'Perakende Satış İade İrsaliyesi'

WHEN  3 then 'Toptan Satış İade İrsaliyesi'

WHEN  4 then 'Konsinye Çıkış İade İrsaliyesi'

WHEN  5 then 'Konsinye Giriş İrsaliyesi'

WHEN  6 then 'Satınalma İade İrsaliyesi'

WHEN  7 then 'Perakende Satış İrsaliyesi'

WHEN  8 then 'Toptan Satış İrsaliyesi'

WHEN  9 then 'Konsinye Çıkış İrsaliyesi'

WHEN  10 then 'Konsinye Giriş İade İrsaliyesi'

WHEN  11 then 'Fire Fişi'

WHEN  12 then 'Sarf Fişi'

WHEN  13 then 'Üretimden Giriş Fişi'

WHEN  14 then 'Devir Fişi'

WHEN  25 then 'Ambar Fişi'

WHEN  26 then 'Muhtahsil İrsaliyesi'

WHEN  50 then 'Sayım Fazlası Fişi'

WHEN  51 then 'Sayım Eksiği Fişi' ELSE '' END,

[Belge No]=STFICHE.DOCODE,
 
[Stfıche Tarıh]=STFICHE.DATE_,

[Stlıne Tarıh]=STLINE.DATE_,

[Ftıme]=STLINE.FTIME,

[Stok Kodu]=ITEMS.CODE,

[Stok Adı]=ITEMS.NAME,

[Bırım]=BIRIM.CODE,

[Giriş Çıkış]= CASE WHEN STLINE.IOCODE IN(1,2) THEN 'Giriş' when STLINE.IOCODE IN(3,4) THEN 'Çıkış' else '' end,

[Miktar]=CAST((CASE WHEN STLINE.IOCODE IN(1,2) THEN 1 ELSE -1 end) * STLINE.AMOUNT*(CASE WHEN ISNULL(UINFO2,0)=0 THEN 1 ELSE UINFO2 END)/(CASE WHEN ISNULL(UINFO1,0)=0 THEN 1 ELSE UINFO1 END)  AS float),
STLINE.STFICHELNNO,

0.00 KALAN,

[Tutar]=(CASE WHEN STLINE.IOCODE IN(1,2) THEN 1 ELSE -1 end) * STLINE.VATMATRAH

FROM LG_201_01_STFICHE STFICHE WITH (NOLOCK)

LEFT OUTER JOIN LG_201_01_STLINE STLINE WITH (NOLOCK) ON STFICHE.LOGICALREF=STLINE.STFICHEREF

LEFT OUTER JOIN LG_201_ITEMS ITEMS      WITH (NOLOCK) ON STLINE.STOCKREF =ITEMS.LOGICALREF

LEFT OUTER JOIN LG_201_UNITSETL BIRIM   WITH (NOLOCK) ON BIRIM.UNITSETREF= ITEMS.UNITSETREF AND BIRIM.MAINUNIT=1
WHERE
STFICHE.CANCELLED=0 AND STLINE.CANCELLED=0
AND STLINE.LINETYPE=0
AND STLINE.IOCODE IN (1,2,3,4)
AND ITEMS.CODE=@MALZEMEKODU
AND STLINE.LPRODSTAT=0
AND (STLINE.DATE_>=@BAT AND STLINE.DATE_<=@BIT )
)
 AS  X 
GO

12 thoughts on “LOGO SQL MALZEME EKSTRE”

  2. Ahmet Tekil's avatar Ahmet Tekil

    Merhaba bütün yazılarınızı dikkatle ve severek takip ediyorum. Kendimi geliştirmek istiyorum fakat yeteri miktarda döküman yok biliyorsunuz. Bu yüzden sizden eğer mevcutsa LVSL eğitim dökümanı var Logo yazılımın bunu rica ediyorum.

    Like

    Reply
  5. HUZEYFE YAMAN's avatar HUZEYFE YAMAN

    Üretim emirlerinin gerçekleşen miktar girişi ile girişini yapıyoruz.

    Üretimden giriş fişinde üretim emri ile bağlantılı olarak girişini yapıyoruz. Buraya kadar rapor tamam ve doğru…

    Ancak bazen ürün üzerinde değişiklik yapıp sarf fişi ile yok edip tekrar üretimden giriş fişi ile giriş yapıyoruz. Ama bu sefer üretimden giriş fişinin üretim emri ile bağlantısı yok. Seri numarasından mı yakalanabilir? Bunu nasıl raporlayabilirim?

    Örnek: Üretim emri ile bağlantılı ay içerisinde 5 adet Mavi Tükenmez Kalem ürettim.

    Daha sonra üretim emri bağlantısı olmadan 1 adedini Yeşil Tükenmez Kalem, 1 adedini Kırmızı Tükenmez Kalem, 1 adedini de Dolma Kalem yaptım.

    Buna göre rapor şöyle olmalıdır.

    Mavi Tükenmez Kalem: 2
    Yeşil Tükenmez Kalem: 1
    Kırmızı Tükenmez Kalem: 1
    Dolma Kalem: 1

    SELECT

    I.CODE ‘MALZEME KODU’,
    SUM(L.AMOUNT) ‘TOPLAM MİKTAR’,
    MONTH (L.DATE_) ‘TOPLAM MİKTAR’

    FROM
    LG_001_ITEMS I JOIN
    LG_001_01_STLINE L ON L.STOCKREF=I.LOGICALREF

    WHERE STFICHEREF IN (SELECT LOGICALREF FROM LG_001_01_STFICHE WHERE PRODSTAT=0)

    AND L.TRCODE=13
    AND I.CARDTYPE=12

    GROUP BY I. CODE, L.DATE_, STGRPCODE ORDER BY L.DATE_ DESC

    Like

    Reply

Leave a comment