SELECT
(SELECT I.CODE FROM LG_121_ITEMS I WHERE I.LOGICALREF=SS3.SREF) URUNKODU ,
(SELECT I.NAME FROM LG_121_ITEMS I WHERE I.LOGICALREF=SS3.SREF) URUNKODU ,
SS3.MLYT, ST4.AMOUNT
FROM LG_121_01_STLINE AS ST4 LEFT OUTER JOIN
(SELECT ST3.VATMATRAH / ST3.AMOUNT AS MLYT, SS2.SREF FROM
(SELECT MAX(DISTINCT ST2.LOGICALREF) AS LREF, ST2.STOCKREF AS SREF FROM
(SELECT ST1.STOCKREF, MAX(ST1.DATE_) AS DATE_ FROM LG_117_01_STLINE AS ST1 WHERE
(ST1.IOCODE =1) AND (ST1.LINETYPE = 0) AND (ST1.CANCELLED = 0) AND (ST1.PRICE <> 0) GROUP BY ST1.STOCKREF)
AS SS1 LEFT OUTER JOIN LG_117_01_STLINE AS ST2 ON SS1.DATE_ = ST2.DATE_ AND SS1.STOCKREF = ST2.STOCKREF
WHERE (ST2.LINETYPE = 0) AND (ST2.IOCODE =1) AND (ST2.CANCELLED = 0) AND (ST2.PRICE <> 0) GROUP BY ST2.STOCKREF) AS SS2
LEFT OUTER JOIN LG_117_01_STLINE AS ST3 ON SS2.SREF = ST3.STOCKREF AND SS2.LREF = ST3.LOGICALREF) AS SS3
ON ST4.STOCKREF = SS3.SREF
WHERE (ST4.TRCODE = 14) AND (ST4.CANCELLED = 0) AND (ST4.LINETYPE = 0) AND (SS3.MLYT <> 0) AND (ST4.LINENET = 0)
Tag: STLINE
LOGO STLINE HATALI MALZEME BİRİMLERİ
SELECT * FROM (
SELECT *,
CASE WHEN MALZEMEUNITSETREF<>STLINEUSREF THEN 'ESIT DEGIL' ELSE '' END UNITSETREF_ESITLIKDURUMU
,
CASE WHEN MALZEMEUOMREF<>STLINEUOMREF THEN 'ESIT DEGIL' ELSE '' END UOMREF_ESITLIKDURUMU
FROM (
SELECT DISTINCT
(select TOP 1 I.CODE from LG_211_ITEMS I WHERE I.LOGICALREF=S.STOCKREF) MALZEMEKODU
,
(select TOP 1 I.NAME from LG_211_ITEMS I WHERE I.LOGICALREF=S.STOCKREF) MALZEMEADI
,
(select TOP 1 I.UNITSETREF from LG_211_ITEMS I WHERE I.LOGICALREF=S.STOCKREF) MALZEMEUNITSETREF,
(SELECT TOP 1 CODE FROM LG_211_UNITSETL U WHERE U.UNITSETREF=
(select TOP 1 I.UNITSETREF from LG_211_ITEMS I WHERE I.LOGICALREF=S.STOCKREF)) MALZEMEBIRIMADI
,
(SELECT TOP 1 LOGICALREF FROM LG_211_UNITSETL U WHERE U.UNITSETREF=
(select TOP 1 I.UNITSETREF from LG_211_ITEMS I WHERE I.LOGICALREF=S.STOCKREF)) MALZEMEUOMREF
,
USREF STLINEUSREF
,
UOMREF STLINEUOMREF
,
(SELECT TOP 1 UNT.CODE FROM LG_211_UNITSETL UNT WHERE UNT.UNITSETREF=S.USREF AND LINENR=1 ) STLINEBIRIMADI
FROM LG_211_01_STLINE S WHERE LINETYPE=0
/* AND STOCKREF=(select TOP 1 I.LOGICALREF from LG_211_ITEMS I WHERE I.CODE='BYK-0008') */
) AS T WHERE MALZEMEKODU IS NOT NULL
) AS T2 WHERE UNITSETREF_ESITLIKDURUMU<>'' OR UOMREF_ESITLIKDURUMU<>''
LOGO DEVİR MALZEME FİŞİ DEVRALINAN STLINEDAN UPDATE İŞLEMİ
Devralınan firmanın stlineinana göre devredilen firmadaki devir fişini güncelleme
/*DEVRALINAN FİRMA*/
SELECT STOCKREF,
(
/*MAX LOGICALREFLERIN VATMATRAH/AMOUNTU YANI PRICEI*/
SELECT ROUND(VATMATRAH/NULLIF(AMOUNT,0),2) FROM LG_301_01_STLINE S2 WHERE S2.LOGICALREF=T.MAXDATELOGICALREF ) AS DEVRALINANPRICE
FROM (
SELECT *,
(
/*EN SON HAREKET TARİHİNİN LOGICALREFI*/
SELECT TOP 1 S2.LOGICALREF FROM LG_301_01_STLINE S2 WHERE
S2.STOCKREF=S1.STOCKREF AND S2.DATE_=S1.MAXDATE_ AND S2.TRCODE IN (1,14)
ORDER BY S2.LOGICALREF DESC ) AS MAXDATELOGICALREF
FROM (
/*STOCKREFLER VE EN SON HAREKET TARİHLERİ GRUPLU (FİŞ TİPLERİ ALIM VE DEVİR)*/
SELECT STOCKREF,MAX(DATE_) MAXDATE_
FROM LG_301_01_STLINE S1 WHERE TRCODE IN (1,14)
GROUP BY STOCKREF) AS S1
) T
-------------------------------
/*DEVREDİLEN FİRMA-HER UPDATE İŞLEMİ TEK TEK SIRAYLA*/
UPDATE LG_401_01_STLINE SET PRICE=/*DEVRALINANPRICE*/0 FROM WHERE TRCODE=14 AND STOCKREF=/*DEVRALINANSTOCKREF*/0
UPDATE LG_401_01_STLINE SET VATMATRAH=PRICE*AMOUNT WHERE TRCODE=14 AND STOCKREF=/*DEVRALINANSTOCKREF*/0
UPDATE LG_401_01_STLINE SET LINENET=VATMATRAH, TOTAL=VATMATRAH WHERE TRCODE=14 AND STOCKREF=/*DEVRALINANSTOCKREF*/0
LOGO LOD- SATIŞ FATURA SATIRINA İKİNCİ MİKTAR GETİRME
Events:
Modules
Table:
Events:
Sub FormShow()
Call GetData()
End Sub
Sub BeforeSave(proceed as Integer)
Call SetLineArray()
End Sub
Sub AfterSave()
AppTables[14].GetIntFieldR(RecHandle,”LOGICALREF”,gSETLOGREF)
Call SetData(gSETLOGREF)
End Sub
Modules:
Dim LineDataArr1(200) as string
Sub GetData()
AppTables[14].GetIntFieldR(RecHandle,”LOGICALREF”,iMasrefRef)
MaxGridLine=MGridLines("InvoiceGrid")
for i=0 to MaxGridLine-1
GetGridRowHandle("InvoiceGrid",i,recH)
AppTables[9].GetIntFieldR(recH,"LOGICALREF",intLineRef)
CustTables[62].Search(2,2,intLineRef)
if not (DBErr <>0) then
CustTables[62].GetFltField("MIKTAR2",fMIKTAR2)
SetCellFloat("InvoiceGrid",i,10072,fMIKTAR2)
end if
next i
End Sub
Sub SetData(intLogref as Long)
i=0
CreateQuery(Qry)
tblName = Application.GetTableName(9, Application.CompanyId, Application.FiscPerdId)
Qry.AddTable(“A”, tblName)
Qry.AddSelField(“A”, “LOGICALREF,”)
Qry.AddSelField(“A”, “INVOICELNNO”)
Str(intLogref, LogRefTxt)
MyWhereCond = “INVOICEREF = ” + LogRefTxt
Qry.AddWhereCond(MyWhereCond,1)
Qry.Execute()
if Qry.Ready = 1 then
res = Qry.First()
Do while res = 1
Qry.GetFieldValue(1, 1, MyLineRef)
Qry.GetFieldValue(2, 1, MyLineNo)
if MyLineRef<>0 then
CustTables[62].Search(2,2,MyLineRef)
if (DBErr <>0) then
CustTables[62].NewRecord()
CustTables[62].SetIntField("PARLOGREF",MyLineRef)
CustTables[62].SetIntField("INVFICHEREF",intLogref)
CustTables[62].SetFltField("MIKTAR2",LineDataArr1[MyLineNo - 1])
else
CustTables[62].SetFltField("MIKTAR2",LineDataArr1[MyLineNo - 1])
end if
CustTables[62].UpdateRecord()
end if
res = Qry.Next()
Loop
end if
End Sub
Sub SetLineArray()
MaxGridLine=MGridLines(“InvoiceGrid”)
i=0
for i=0 to MaxGridLine-1
GetCellFloat(“InvoiceGrid”,i,10072,LineDataArr1[i])
next i
End Sub
LOGO ERP SQL HAREKET GÖRMÜŞ MALZEMENİN BİRİMİNİ ÇEVİRME HAREKETLER DAHIL
/*MALZEME */SELECT LOGICALREF FROM dbo.LG_211_ITEMS WITH(NOLOCK) WHERE CODE='M-4299-04-CL-SP' /*MALZEMENIN LOGICALREFINI BULMAK ICIN=1367*/
/*BIRIM*/ SELECT LOGICALREF,UNITSETREF,CODE,NAME FROM LG_211_UNITSETL WITH(NOLOCK) WHERE MAINUNIT=1 AND NAME='ADET' /*HANGI MALZEME BIRIMI OLACAK LOGICALREF=55 UNITSETREF=6*/
/*GUNCELLEME ISLEMI*/
update LG_211_ITEMS set UNITSETREF = 6 /*BIRIMIN UNITSETREFI*/ where LOGICALREF = 1367 /*MALZEMENIN LOGICALREFI*/
update LG_211_ITMUNITA set UNITLINEREF = 55 /*BIRIMIN LOGICALREFI*/ where ITEMREF = 1367 /*MALZEMENIN LOGICALREFI*/
/*RISKLI:GERIYE DONUK HAREKETLERI GUNCELLEMEK ICIN (TALEP,SIPARIS VE IRSALIYE)*/
update LG_211_01_STLINE set UOMREF = 55 /*BIRIMIN LOGICALREFI*/ , USREF = 6 /*BIRIMIN UNITSETREFI*/ where Stockref = 1367 /*MALZEMENIN LOGICALREFI*/
update LG_211_01_ORFLINE set UOMREF = 55 /*BIRIMIN LOGICALREFI*/ , USREF = 6 /*BIRIMIN UNITSETREFI*/ where Stockref = 1367 /*MALZEMENIN LOGICALREFI*/
update LG_211_01_DEMANDLINE set UOMREF = 55 /*BIRIMIN LOGICALREFI*/ , USREF = 6 /*BIRIMIN UNITSETREFI*/ where Stockref = 1367 /*MALZEMENIN LOGICALREFI*/
LOGO SQL FATURAYA BAGLI IRSALIYELERIN ESITLIK KONTROLLERI
SELECT *
,CASE WHEN T.FTARIH=T.ITARIH THEN 'ESIT' ELSE 'ESIT DEGIL' END AS TARIHESITMI
,CASE WHEN T.FTUTAR=T.ITUTAR THEN 'ESIT' ELSE 'ESIT DEGIL' END AS TUTARESITMI
,CASE WHEN T.FISYERI=T.IISYERI THEN 'ESIT' ELSE 'ESIT DEGIL' END AS ISYERIESITMI
,CASE WHEN T.FAMBAR=T.IAMBAR THEN 'ESIT' ELSE 'ESIT DEGIL' END AS AMBARESITMI
FROM(
SELECT I.FICHENO FFISNO,I.DATE_ FTARIH,I.NETTOTAL FTUTAR,I.BRANCH FISYERI,I.SOURCEINDEX FAMBAR,
S.FICHENO IFISNO,S.DATE_ ITARIH,S.NETTOTAL ITUTAR,S.BRANCH IISYERI,S.SOURCEINDEX IAMBAR
FROM LG_104_01_INVOICE I WITH(NOLOCK)
LEFT JOIN LG_104_01_STFICHE S ON S.INVOICEREF=I.LOGICALREF WHERE S.TRCODE=1 AND I.TRCODE=1
) AS T
LOGO İRSALİYELERİN TARİHİNİ FATURA TARİHLERİNE EŞİTLEME
--STLINE TARİHİ EŞİTLE
UPDATE INVDATEUPDT SET STLDATE=INVDATE FROM
(
SELECT STL.DATE_ AS STLDATE,
INV.DATE_ AS INVDATE
FROM LG_201_01_STLINE AS STL
LEFT OUTER JOIN
LG_201_01_INVOICE AS INV ON INV.LOGICALREF=STL.INVOICEREF
WHERE STL.INVOICEREF0 AND STL.DATE_INV.DATE_
)AS INVDATEUPDT
----------------------------------------------
--IRSALYE TARİHİ EŞİTLE
UPDATE STFICHEDATEUPD SET STFDATE=INVDATE FROM
(
SELECT INV.DATE_ AS INVDATE,
STF.DATE_ AS STFDATE
FROM LG_201_01_INVOICE AS INV
LEFT OUTER JOIN
LG_201_01_STFICHE AS STF ON INV.LOGICALREF=STF.INVOICEREF
WHERE STF.INVOICEREF0 AND STF.DATE_INV.DATE_
) AS STFICHEDATEUPD
*/
SQL SERVER SCALAR VALUED FUNCTION – LOGO
-- KULLANIMLAR BU TARZ OLUR:
SELECT [dbo].BMF_STLINE_TRCODE_ACIKLAMA(STLINE.TRCODE) [Fiş Türü],* FROM LG_211_01_STLINE AS STLINE
-- STLINE FİŞ TÜRLERİ
CREATE FUNCTION [dbo].[BMF_STLINE_TRCODE_ACIKLAMA](@TRCODE INT)
RETURNS VARCHAR(255)
BEGIN
DECLARE @STLINE_TRCODE_ACIKLAMA VARCHAR(255);
SET @STLINE_TRCODE_ACIKLAMA = (
CASE
@TRCODE
WHEN 14 THEN 'Devir Fişi'
WHEN 11 THEN 'Fire Fişi'
WHEN 12 THEN 'Sarf Fişi'
WHEN 13 THEN 'Üretimden Giriş Fişi'
WHEN 25 THEN 'Ambar Fişi'
WHEN 50 THEN 'Sayım Fazlası'
WHEN 51 THEN 'Sayım Eksiği'
WHEN 1 THEN 'Satınalma Faturası'
WHEN 6 THEN 'Satınalma İade Faturası'
WHEN 2 THEN 'Perkende Satış İade Faturası'
WHEN 3 THEN 'Toptan Satış İade Faturası'
WHEN 7 THEN 'Perakende Satış Faturası'
WHEN 8 THEN 'Toptan Satış Faturası'
END
)
RETURN @STLINE_TRCODE_ACIKLAMA
END
-- KULLANIMI SELECT [dbo].BMF_STLINE_TRCODE_ACIKLAMA(STLINE.TRCODE) [Fiş Türü],* FROM LG_211_01_STLINE AS STLINE
--- CLFLINE ISLEM TURLERI
CREATE FUNCTION [dbo].[BMF_CLFLINE_ISLEMTURU_ACIKLAMA](@CLFLINEMODULENR INT, @CLFLINETRCODE INT)
RETURNS VARCHAR(255)
BEGIN
DECLARE @CLFLINE_ISLEMTURU_ACIKLAMA VARCHAR(255);
SET @CLFLINE_ISLEMTURU_ACIKLAMA = (
CASE ((@CLFLINEMODULENR*100)+@CLFLINETRCODE)
WHEN 381 THEN 'Satış Siparişi'
WHEN 382 THEN 'Satınalma Siparişi'
WHEN 431 THEN 'Satın Alma Faturası'
WHEN 432 THEN 'Perakende Satış İade Faturası'
WHEN 433 THEN 'Toptan satış iade faturası'
WHEN 434 THEN 'Alınan Hizmet Faturası'
WHEN 435 THEN 'Alınan proforma faturası'
WHEN 436 THEN 'Alım iade faturası'
WHEN 437 THEN 'Perakende Satış Faturası'
WHEN 438 THEN 'Toptan satış faturası'
WHEN 439 THEN 'Verilen hizmet faturası'
WHEN 440 THEN 'Verilen proforma faturası'
WHEN 441 THEN 'Verilen vade farkı faturası'
WHEN 442 THEN 'Alınan Vade farkı faturası'
WHEN 443 THEN 'Alınan fiyat farkı faturası'
WHEN 444 THEN 'Verilen fiyat farkı faturası'
WHEN 456 THEN 'Müstahsil makbuzu'
WHEN 501 THEN 'Nakit tahsilat'
WHEN 502 THEN 'Nakit ödeme'
WHEN 503 THEN 'Borç Dekontu'
WHEN 504 THEN 'Alacak Dekontu'
WHEN 505 THEN 'Virman Işlemi'
WHEN 506 THEN 'Kur farkı işlemi'
WHEN 512 THEN 'Özel işlem'
WHEN 514 THEN 'Açılış Fişi'
WHEN 570 THEN 'Kredi Kartı Fişi'
WHEN 661 THEN 'Çek girişi'
WHEN 662 THEN 'Senet girişi'
WHEN 663 THEN 'Çek çıkış cari hesaba'
WHEN 664 THEN 'Senet çıkış cari hesaba'
WHEN 720 THEN 'Gelen havaleler'
WHEN 721 THEN 'Gönderilen havaleler'
WHEN 728 THEN 'Banka Alınan Hizmet'
WHEN 729 THEN 'Banka Verilen Hizmet'
WHEN 1001 THEN 'Nakit tahsilat'
WHEN 1002 THEN 'Nakit ödeme'
END
)
RETURN @CLFLINE_ISLEMTURU_ACIKLAMA
END
--PAYTRANS DOVIZ TURU
USE [LEVENT]
GO
/****** Object: UserDefinedFunction [dbo].[Get_Ambar_Aciklama] Script Date: 1.07.2019 10:32:36 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
CREATE FUNCTION [dbo].[BMF_PAYTRANS_DOVIZ_CINSI](@PAYTRANSTRCURR INT)
RETURNS VARCHAR(255)
BEGIN
DECLARE @PAYTRANS_DOVIZ_CINSI VARCHAR(255);
SET @PAYTRANS_DOVIZ_CINSI = (
CAST((case @PAYTRANSTRCURR
WHEN 1 then 'USD'
WHEN 2 then 'DEM'
WHEN 3 then 'AUD'
WHEN 4 then 'ATS'
WHEN 5 then 'BEF'
WHEN 6 then 'DKK'
WHEN 7 then 'FIM'
WHEN 8 then 'FRF'
WHEN 9 then 'NLG'
WHEN 10 then 'SEK'
WHEN 11 then 'CHF'
WHEN 12 then 'ITL'
WHEN 13 then 'JPY'
WHEN 14 then 'CAD'
WHEN 15 then 'KWD'
WHEN 16 then 'NOK'
WHEN 17 then 'GBP'
WHEN 18 then 'SAR'
WHEN 19 then 'XEU'
WHEN 20 then 'EUR'
WHEN 21 then 'AZM'
WHEN 22 then 'BRL'
WHEN 23 then 'BLV'
WHEN 24 then 'CZK'
WHEN 25 then 'CNY'
WHEN 26 then 'EKR'
WHEN 27 then 'GMS'
WHEN 28 then 'INR'
WHEN 29 then 'HKD'
WHEN 30 then 'IQD'
WHEN 31 then 'IRR'
WHEN 32 then 'IEP'
WHEN 33 then 'ESP'
WHEN 34 then 'ILS'
WHEN 35 then 'ISK'
WHEN 36 then 'CYP'
WHEN 37 then 'KGS'
WHEN 38 then 'LTL'
WHEN 39 then 'LBD'
WHEN 40 then 'LBP'
WHEN 41 then 'LVL'
WHEN 42 then 'LXF'
WHEN 43 then 'HNL'
WHEN 44 then 'MYR'
WHEN 45 then 'MXP'
WHEN 46 then 'EGP'
WHEN 47 then 'BBD'
WHEN 48 then 'PLN'
WHEN 49 then 'PTE'
WHEN 50 then 'RML'
WHEN 51 then 'RRU'
WHEN 52 then 'TWD'
WHEN 53 then 'TRL'
WHEN 54 then 'JOD'
WHEN 55 then 'GRD'
WHEN 56 then 'ARA'
WHEN 57 then 'LAK'
WHEN 58 then 'ADP'
WHEN 59 then 'AED'
WHEN 60 then 'AFA'
WHEN 61 then 'ALL'
WHEN 62 then 'ANG'
WHEN 63 then 'AON'
WHEN 64 then 'BDT'
WHEN 65 then 'BHD'
WHEN 66 then 'BIF'
WHEN 67 then 'BMD'
WHEN 68 then 'BND'
WHEN 69 then 'BOB'
WHEN 70 then 'BSD'
WHEN 71 then 'BTN'
WHEN 72 then 'BWP'
WHEN 73 then 'BZD'
WHEN 74 then 'CLP'
WHEN 75 then 'COP'
WHEN 76 then 'CRC'
WHEN 77 then 'CUP'
WHEN 78 then 'CVE'
WHEN 79 then 'DJF'
WHEN 80 then 'DOP'
WHEN 81 then 'DZD'
WHEN 82 then 'ECS'
WHEN 83 then 'ETB'
WHEN 84 then 'FJD'
WHEN 85 then 'FKP'
WHEN 86 then 'GHC'
WHEN 87 then 'GIP'
WHEN 88 then 'GMD'
WHEN 89 then 'GNF'
WHEN 90 then 'GTQ'
WHEN 91 then 'GWP'
WHEN 92 then 'GYD'
WHEN 93 then 'HNL'
WHEN 94 then 'HTG'
WHEN 95 then 'IDR'
WHEN 96 then 'JMD'
WHEN 97 then 'KES'
WHEN 98 then 'KHR'
WHEN 99 then 'KMF'
WHEN 100 then 'KPW'
WHEN 101 then 'KRW'
WHEN 102 then 'KYD'
WHEN 103 then 'LKR'
WHEN 104 then 'LRD'
WHEN 105 then 'LSL'
WHEN 106 then 'MAD'
WHEN 107 then 'MNT'
WHEN 108 then 'MOP'
WHEN 109 then 'MRO'
WHEN 110 then 'MTL'
WHEN 111 then 'MUR'
WHEN 112 then 'MVR'
WHEN 113 then 'MWK'
WHEN 114 then 'MZM'
WHEN 115 then 'NGN'
WHEN 116 then 'NIC'
WHEN 117 then 'NPR'
WHEN 118 then 'NZD'
WHEN 119 then 'OMR'
WHEN 120 then 'PAB'
WHEN 121 then 'PEN'
WHEN 122 then 'PGK'
WHEN 123 then 'PHP'
WHEN 124 then 'PKR'
WHEN 125 then 'PYG'
WHEN 126 then 'QAR'
WHEN 127 then 'RWF'
WHEN 128 then 'SBD'
WHEN 129 then 'SCR'
WHEN 130 then 'SDP'
WHEN 131 then 'SGD'
WHEN 132 then 'SHP'
WHEN 133 then 'SLL'
WHEN 134 then 'SOS'
WHEN 135 then 'SRG'
WHEN 136 then 'STD'
WHEN 137 then 'SVC'
WHEN 138 then 'SYP'
WHEN 139 then 'SZL'
WHEN 140 then 'THB'
WHEN 141 then 'TND'
WHEN 142 then 'TPE'
WHEN 143 then 'TTD'
WHEN 144 then 'TZS'
WHEN 145 then 'UGS'
WHEN 146 then 'UYP'
WHEN 147 then 'VEB'
WHEN 148 then 'VND'
WHEN 149 then 'WST'
WHEN 150 then 'YDD'
WHEN 151 then 'YER'
WHEN 152 then 'YUD'
WHEN 153 then 'ZAR'
WHEN 154 then 'ZMK'
WHEN 155 then 'ZWD'
WHEN 156 then 'KZT'
WHEN 157 then 'UAH'
WHEN 158 then 'TMM'
WHEN 159 then 'UZS'
WHEN 160 then 'TL'
WHEN 0 then 'TL' else '' end) AS VARCHAR(4))
)
RETURN @PAYTRANS_DOVIZ_CINSI
END
GO
--IRSALIYE TURU
CREATE FUNCTION [dbo].[BMF_STFICHE_IRSALIYETURU](@STFICHETRCODE INT)
RETURNS VARCHAR(255)
BEGIN
DECLARE @STFICHE_IRSALIYETURU VARCHAR(255);
SET @STFICHE_IRSALIYETURU = (
(CASE @STFICHETRCODE
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 15 THEN 'Tanımlı Malzeme Fişi - Giriş Fişi 1'
WHEN 16 THEN 'Tanımlı Malzeme Fişi - Giriş Fişi 2'
WHEN 17 THEN 'Tanımlı Malzeme Fişi - Giriş Fişi 3'
WHEN 18 THEN 'Tanımlı Malzeme Fişi - Giriş Fişi 4'
WHEN 19 THEN 'Tanımlı Malzeme Fişi - Giriş Fişi 5'
WHEN 20 THEN 'Tanımlı Malzeme Fişi - Çıkış Fişi 1'
WHEN 21 THEN 'Tanımlı Malzeme Fişi - Çıkış Fişi 2'
WHEN 22 THEN 'Tanımlı Malzeme Fişi - Çıkış Fişi 3'
WHEN 23 THEN 'Tanımlı Malzeme Fişi - Çıkış Fişi 4'
WHEN 24 THEN 'Tanımlı Malzeme Fişi - Çıkış Fişi 5'
WHEN 25 THEN 'Ambar Fişi'
WHEN 26 THEN 'Müstahsil İrsaliyesi'
WHEN 30 THEN 'Tanımlı Satınalma İrsaliyesi 1'
WHEN 31 THEN 'Tanımlı Satınalma İrsaliyesi 2'
WHEN 32 THEN 'Tanımlı Satınalma İrsaliyesi 3'
WHEN 33 THEN 'Tanımlı Satınalma İrsaliyesi 4'
WHEN 34 THEN 'Tanımlı Satınalma İrsaliyesi 5'
WHEN 35 THEN 'Tanımlı Satış İrsaliyesi 1'
WHEN 36 THEN 'Tanımlı Satış İrsaliyesi 2'
WHEN 37 THEN 'Tanımlı Satış İrsaliyesi 3'
WHEN 38 THEN 'Tanımlı Satış İrsaliyesi 4'
WHEN 39 THEN 'Tanımlı Satış İrsaliyesi 5' ELSE '' END)
)
RETURN @STFICHE_IRSALIYETURU
END
--AMBAR ACIKLAMA
CREATE FUNCTION [dbo].[Get_Ambar_Aciklama](@ambarno VARCHAR(255), @sirketno VARCHAR(255))
RETURNS VARCHAR(255)
BEGIN
DECLARE @ambar VARCHAR(255);
SET @ambar = (SELECT NAME FROM L_CAPIWHOUSE WHERE NR = @ambarno AND FIRMNR = @sirketno )
RETURN @ambar
END
GO
--------------------EMFLINE TRCODE
USE [LEVENT]
GO
/****** Object: UserDefinedFunction [dbo].[BMF_CLFLINE_ISLEMTURU_ACIKLAMA] Script Date: 5.07.2019 12:58:25 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
CREATE FUNCTION [dbo].[BMF_EMFLINE_TRCODE_ACIKLAMA] (@EMFLINETRCODE INT)
RETURNS VARCHAR(255)
BEGIN
DECLARE @BMF_EMFLINE_TRCODE_ACIKLAMA VARCHAR(255);
SET @BMF_EMFLINE_TRCODE_ACIKLAMA = (
CASE @EMFLINETRCODE
WHEN 1 THEN 'Açılış Fişi'
WHEN 2 THEN 'Tahsil Fişi'
WHEN 3 THEN 'Tediye Fişi'
WHEN 4 THEN 'Mahsup Fişi'
WHEN 5 THEN 'Özel Fiş'
WHEN 6 THEN 'Kur Farkı Fişi'
WHEN 7 THEN 'Kapanış Fişi'
WHEN 8 THEN 'Enflasyon Muh. Fişi'
WHEN 9 THEN 'Konsolidasyon Düzeltme Fişi'
WHEN 10 THEN 'TFRS Düzeltme Fişi'
END
)
RETURN @BMF_EMFLINE_TRCODE_ACIKLAMA
END
GO
LOGO SQL MALZEME BIRIM DURUMLARI
CREATE VIEW BM_MALZEME_BIRIM_DURUMLARI AS
SELECT DISTINCT LOGICALREF,M.ANAMALZEMEKOD,M.ANAMZELEMEAD, M.BIRIMKODU,M.BIRIMADI,
ISNULL((SELECT DISTINCT CONVERT(VARCHAR,UOMREF) FROM LG_210_01_STLINE S WHERE S.UOMREF=M.LOGICALREF AND S.LINETYPE=0),'YOK') STLINEDAVARMI,
ISNULL((SELECT DISTINCT CONVERT(VARCHAR,UOMREF) FROM LG_210_01_ORFLINE S WHERE S.UOMREF=M.LOGICALREF AND S.LINETYPE=0),'YOK') ORFLINEDAVARMI,
CASE WHEN ISNULL((SELECT DISTINCT CONVERT(VARCHAR,UOMREF) FROM LG_210_01_STLINE S WHERE S.UOMREF=M.LOGICALREF AND S.LINETYPE=0),'YOK') ='YOK'
AND ISNULL((SELECT DISTINCT CONVERT(VARCHAR,UOMREF) FROM LG_210_01_ORFLINE S WHERE S.UOMREF=M.LOGICALREF AND S.LINETYPE=0),'YOK')='YOK' THEN 'SIL' ELSE 'SILME'
END
SILINEBILIR
FROM (SELECT
UNITSETL.CODE BIRIMKODU,
UNITSETL.NAME BIRIMADI,
(SELECT CODE FROM LG_210_UNITSETF UNITSETF WHERE UNITSETF.LOGICALREF = UNITSETL.UNITSETREF) ANAMALZEMEKOD,
(SELECT UNITSETF.NAME FROM LG_210_UNITSETF UNITSETF WHERE UNITSETF.LOGICALREF = UNITSETL.UNITSETREF) ANAMZELEMEAD,
LOGICALREF, CODE, NAME, UNITSETREF, LINENR, MAINUNIT, CONVFACT1, CONVFACT2, WIDTH, LENGTH, HEIGHT, AREA, VOLUME_, WEIGHT, WIDTHREF, LENGTHREF, HEIGHTREF, AREAREF, VOLUMEREF, WEIGHTREF, DIVUNIT, MEASURECODE, GLOBALCODE
FROM
LG_210_UNITSETL UNITSETL WITH(NOLOCK) ) M
LOGO SQL MUHASEBE FİŞLERİ VE STLINE KODLARI KONTROLU
SELECT *
FROM
(
SELECT DISTINCT
*,
CASE
WHEN ACCODE_EMFLINE = ACCODE_STLINE + ',' + ACCODE_STLINE1 THEN
ACCODE_STLINE + ',' + ACCODE_STLINE1
WHEN ACCODE_EMFLINE = ACCODE_STLINE1 + ',' + ACCODE_STLINE THEN
ACCODE_STLINE1 + ',' + ACCODE_STLINE
WHEN ACCODE_STLINE1 IS NULL THEN
ACCODE_STLINE
ELSE
''
END SIRALA
FROM
(
SELECT
(
SELECT INVOICE.FICHENO
FROM LG_201_01_INVOICE INVOICE
WHERE INVOICE.LOGICALREF = stline.INVOICEREF
) FISNO,
stline.STOCKREF,
stline.LINETYPE,
(
SELECT emuhacc.CODE
FROM LG_201_EMUHACC emuhacc
WHERE emuhacc.LOGICALREF = stline.ACCOUNTREF
) ACCODE_STLINE,
(
SELECT emuhacc.CODE
FROM LG_201_EMUHACC emuhacc
WHERE emuhacc.LOGICALREF = stline.VATACCREF
) ACCODE_STLINE1,
CASE
WHEN stline.LINETYPE = 4 THEN
STUFF(
(
SELECT DISTINCT
',' + ACCOUNTCODE
FROM LG_201_01_EMFLINE S2
WHERE S2.SOURCEFREF = stline.INVOICEREF
AND S2.LINEEXP LIKE '%' +
(
SELECT ITEMS.DEFINITION_
FROM LG_201_SRVCARD ITEMS
WHERE ITEMS.LOGICALREF = stline.STOCKREF
) + '%'
FOR XML PATH(''), TYPE
).value('.', 'NVARCHAR(MAX)'),
1,
1,
''
)
ELSE
STUFF(
(
SELECT DISTINCT
',' + S2.ACCOUNTCODE
FROM LG_201_01_EMFLINE S2
WHERE S2.SOURCEFREF = stline.INVOICEREF
AND S2.LINEEXP LIKE '%' +
(
SELECT ITEMS.NAME
FROM LG_201_ITEMS ITEMS
WHERE ITEMS.LOGICALREF = stline.STOCKREF
) + '%'
FOR XML PATH(''), TYPE
).value('.', 'NVARCHAR(MAX)'),
1,
1,
''
)
END ACCODE_EMFLINE
FROM LG_201_01_STLINE stline
WHERE BILLED = 1
) AS T
) AS C
WHERE C.SIRALA = ''
AND ACCODE_EMFLINE IS NOT NULL
AND FISNO IS NOT NULL;
Blog of Sem 