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