Netsis 'te Aynı Stok Adıyla, Stok Kartı Açılmasını Dinamik Kodlama İle Engelleme
Netsis, Stok kartı kayıtlarında dinamik kodlama ekranına girerek aşağıdaki bölüme kodu ekleyiniz.
stokmas_InQ -> BeforePost
If NETSISCORE.NetLibSession.AktifModulNo = 4 and NETSISCORE.NetLibSession.AktifProgramNo = 16 then
If KONTROL_DB = "ONEM" THEN
SET X = NETSISCORE.NetLibDB.GetNewQuery
QUERY = "SELECT COUNT(*) AS NUM FROM TBLSTSABIT WITH(NOLOCK) WHERE STOK_KODU = '"& LCase(STOK_KODUDB.text) &"'"
X.RECSQL(QUERY)
say = X.fieldbyname("NUM").AsString
IF say < 1 THEN
SET XXX = NETSISCORE.NetLibDB.GetNewQuery
QUERY = "SELECT ISNULL(STOK_ADI,'') AS ST_ADI FROM TBLSTSABIT WITH(NOLOCK) WHERE RTRIM(LTRIM(REPLACE(STOK_ADI,' ',''))) = RTRIM(LTRIM(REPLACE('"& LCase(STOK_ADI.text) &"',' ','')))"
XXX.RECSQL(QUERY)
stk = XXX.fieldbyname("ST_ADI").Asstring
rs.close
IF stk <> "" THEN
Netsiscore.NetLibWin32.ShowNetsisMesaj "AYNI İSİMLİ STOK KARTI MEVCUTTUR.",2
STOKMAS_INQ.Cancel
STOK_ADI.SetFocus
END IF
END IF
END IF
END IF
Uylamada sorun yaşıyorsaız ya da destek almak için bize ulaşın.
Onem Bilişim İletişim Ltd. Şti.
Erkan ŞARLIOĞLU
Tel: 533 680 1155