using System;
 using System.Runtime.InteropServices;
 using NetOpenX50;
 namespace NetOpenXTest
 {
     public static class IsEmriOrnek
     {
        public static void IsEmriKaydet()
        {
            Kernel kernel = new Kernel();
            Sirket sirket = default(Sirket);
            IsEmri Isemri = default(IsEmri);
            try
            {
                sirket = kernel.yeniSirket(TVTTipi.vtMSSQL,
                                                "vt adi",
                                                "vt kull adi",
                                                "vt kull sifre",
                                                "netsis kull adi",
                                                "netsis sifre",
                                                0);
                Isemri = kernel.yeniIsEmri(sirket);
                Isemri.IsEmriNo = "X00000000000018";                
                Isemri.Tarih = Convert.ToDateTime("2015-01-01");
                Isemri.StokKodu = "M1";
                Isemri.Miktar = 100;
                Isemri.SiparisNo = "A00000000001162";  // Müşteri sipariş no
                Isemri.SipKont = 2;                    // Müşteri sipariş sıra no
                Isemri.TeslimTarihi = Convert.ToDateTime("2015-01-02");
                Isemri.kayitYeni();
            }
            catch (Exception ex)
            {
                MessageBox.Show(ex.Message);
            }
            finally
            {
                Marshal.ReleaseComObject(Isemri);
                Marshal.ReleaseComObject(sirket);
                kernel.FreeNetsisLibrary();
                Marshal.ReleaseComObject(kernel);
            }
        }
     }
 }

 using System;
 using System.Runtime.InteropServices;
 using NetOpenX50;
 namespace NetOpenXTest
 {
     public static class IsEmriOrnek
     {
        public static void IsEmriKaydet()
        {
             	Kernel kernel = new Kernel();
                Sirket sirket = default(Sirket);
                IIsEmri isEmri = default(IIsEmri);
                try
                {
                    sirket = kernel.yeniSirket(TVTTipi.vtMSSQL,
                                                  "ENTERPRISE9",
                                                  "sa",
                                                  "sapass",
                                                  "NETSIS",
                                                  "1",
                                                  0);

                    isEmri = kernel.yeniIsEmri(sirket);
                    isEmri.kayitOku(TOkumaTipi.otAc, "ISEMRINO = \'000000000000001\'");
                    isEmri.Miktar = 1000;
                    isEmri.Aciklama = "test1";
                    isEmri.kayitDuzelt();
                }
                catch (Exception ex)
                {
                    MessageBox.Show(ex.Message);
                }
                finally
                {
                    Marshal.ReleaseComObject(isEmri);
                    Marshal.ReleaseComObject(sirket);
                    kernel.FreeNetsisLibrary();
                    Marshal.ReleaseComObject(kernel);
                }
    
        }
     }
 }

 			Kernel kernel = new Kernel();
            Sirket sirket = default(Sirket);
            IsEmri Isemri = default(IsEmri);

            try
            {
                sirket = kernel.yeniSirket(TVTTipi.vtMSSQL,
                                                "vt adi",
                                                "vt kull adi",
                                                "vt kull sifre",
                                                "netsis kull adi",
                                                "netsis sifre",
                                                0);
                Isemri = kernel.yeniIsEmri(sirket);
                Isemri.kayitOku(TOkumaTipi.otAc, "ISEMRINO='000000000000001'");
                string isemrino = Isemri.IsEmriNo;
                Isemri.kayitSil();

                MessageBox.Show(isemrino + " nolu isemri silindi");
                
			}
            catch (Exception ex)
            {
                MessageBox.Show(ex.Message);
            }
            finally
            {
                Marshal.ReleaseComObject(Isemri);
                Marshal.ReleaseComObject(sirket);
                kernel.FreeNetsisLibrary();
                Marshal.ReleaseComObject(kernel);
            }

            Kernel kernel = new Kernel();
            Sirket sirket = default(Sirket);
            RecetedenIsemri tmpReceteden = default(RecetedenIsemri);

            try
            {
                 sirket = kernel.yeniSirket(TVTTipi.vtMSSQL,
                                                "vt adi",
                                                "vt kull adi",
                                                "vt kull sifre",
                                                "netsis kull adi",
                                                "netsis sifre",
                                                0);

                tmpReceteden = kernel.yeniRecetedenIsemri(sirket);

                tmpReceteden.IsEmriNo = "000000000000069";

                tmpReceteden.IsemriSecimListHazirla();
                for (int i = 0; i < tmpReceteden.IsemriSecimList.Count; i++)
                {
                    RecetedenIsemriSecim tmpRecetedenIsemriSecim = tmpReceteden.IsemriSecimList.Get(i);
                    if (tmpRecetedenIsemriSecim.StokKodu == "YARIMAMUL1")
                        tmpRecetedenIsemriSecim.Secim = true;
                    else tmpRecetedenIsemriSecim.Secim = false;
                }
                tmpReceteden.IsemriSecimListtenIsemirleriniOlustur();
            }
            catch (Exception ex)
            {
                MessageBox.Show("Hata: " + ex.Message);
            }
            finally
            {
                Marshal.ReleaseComObject(tmpReceteden);
                Marshal.ReleaseComObject(sirket);
                kernel.FreeNetsisLibrary();
                Marshal.ReleaseComObject(kernel);
            }

Sub IsEmriKaydet()
	Dim Kernel As New NetOpenX50.Kernel
	Dim Sirket As NetOpenX50.Sirket
	Dim Isemri As NetOpenX50.Isemri
	Set Sirket = kernel.yeniSirket(vtMSSQL, "vt adı", "vt kull adı", "vt kull sifre", "netsis kull adı", "netsis kull sifre", netsis sube)

	Set Isemri = Kernel.yeniIsEmri(Sirket)
	Isemri.IsEmriNo = "X00000000000018"
	Isemri.Tarih = "2015-01-01"
	Isemri.StokKodu = "M1"
	Isemri.Miktar = 100
	Isemri.SiparisNo = "A00000000001162"  	'Müşteri sipariş no
	Isemri.SipKont = 2                    	'Müşteri sipariş sıra no
	Isemri.TeslimTarihi = "2015-01-02"
	Isemri.kayitYeni
	Set Isemri = Nothing
	Set Sirket = Nothing
	Call Kernel.FreeNetsisLibrary
	Set Kernel = Nothing
End Sub