[onurkaya]

merhaba arkadaşlar,

metro elektronikten örnek bir uygulama gönderildi. ancak bu uygulama ASP.net c# ile kodlanmış. benim ise bu kodlama diline hakimiyetim o kadar da iyi değil. ASP vbscript diline çevirmeye çalıştım ama beceremedim. yardım edebilir misiniz? dosya ekte.

using System;
using System.Data;
using System.Configuration;
using System.Collections;
using System.web;
using System.web.Security;
using System.web.UI;
using System.web.UI.WebControls;
using System.web.UI.WebControls.WebParts;
using System.web.UI.HtmlControls;
using System.IO;
using System.XML;

/***************************************************************************************************************************************************
         işleme başlamadan önce solution Explorer dan add web reference ı seçip word dokümanında belirtilen
         "http://www.metroelektronik.com.tr/tometro/ws/urunler_ws.cfc?wsdl" adresini belirtip bu adresdeki web servisini solutiona tanıtmalısınız
         
         web servisinde toplam dört metod bulunmakta Bunlar sırasıyla:
         UrunGruplar(string cariKod, string cariAd, string cariSifre)
         UrunDetaylar(string cariKod, string cariAd, string cariSifre, string stokKod)
         UrunArama(string cariKod, string cariAd, string cariSifre, string anaGrup, string altGrup, string Marka)
         KurBilgisiAl(string cariKod, string cariAd, string cariSifre)
  
 Aşağıda UrunDetaylar metodunun kullanımı örneklenmiştir. Bu örnek sadece bir fikir verme amaçlı yazılmıştır.
          
          
  **************************************************************************************************************************************************/

public partial class _Default : System.web.UI.Page
{
     protected void Page_Load(object sender, EventArgs e)
     {

     }
     protected void Button1_Click(object sender, EventArgs e)
     {
          //cfWebServisi.urunler_wsService calisma = new cfWebServisi.urunler_wsService();
          servisim.urunler_wsService calisma = new servisim.urunler_wsService();

          try
          {
               //Ana Grup ve Alt gruplar buradan tespit ediliyor
               string gruplar = calisma.UrunGruplar("BayiiKodunuz", "k_Adınız", "şifreniz").ToString();

               //Yukarıda tespit edilen alt gruplar ve üst gruplar aşağıdaki metodda kulanılabilir 
               //   Örnek:
               string urunler = calisma.UrunArama("BayiiKodunuz", "k_Adınız", "şifreniz", "30", "BilAksesua", "1168").ToString();
        
               //Burdaki stokkodu daha üstteki metodlardan elde edilmelidir...
               string stokKod = "02.044.1165.0030";
               string detaylar = calisma.UrunDetaylar("BayiiKodunuz", "k_Adınız", "şifreniz", stokKod).ToString();
#region yazdırma
               XmlDocument doc = new XmlDocument();
               doc.LoadXml(detaylar);

               // XML den veri okunuyor
               string kod = doc.SelectSingleNode("/urun/stok_kod").InnerText;
               string stokAd = doc.SelectSingleNode("/urun/stok_ad").InnerText;
               string fiyat = doc.SelectSingleNode("/urun/fiyat").InnerText;

               // Buradan elde ettiğiniz verileri veritabanına yazdırabilirsiniz
               Response.Write(kod + "<br>");
               Response.Write(stokAd + "<br>");
               Response.Write(fiyat + "<br>");
          }
          catch (Exception ex)
          {

          }
          /**/
#endregion yazdırma
     }
}