AccessTr.neT

SGK e-bildirge için Excel den XML dosya oluşturmak yerine  datagrdiview kullanarak aynı SGK XML şablonu oluşturmayı deneyen varmı ?
Ben aşağıdaki kodlarla deneme yapıyorum ama istediğim görüntü oluşmadı.

Kullanılan kod;


Yukarıdaki kodlar ile  Xml görüntüsü şu şekilde oluşuyor


Fakat benim istediğim xml dosyaı aşağıdaki gibi olması gerekmektedir;

Deneme yaptığım kodlar aşağıda

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        Dim xtw As New XmlTextWriter("yeni.xml", System.Text.Encoding.GetEncoding("iSO-8859-9"))



        xtw.Formatting = Formatting.Indented

        xtw.WriteStartDocument() 'XML belgesine versiyon bilgisi yazılıyor.





        xtw.WriteStartElement("AYLIKBILDIRGELER") 'ana root  

        

        xtw.WriteStartElement("ISYERI ISYERISICIL") '1 ======= 

        xtw.WriteAttributeString("", "144563245879512365485")

        xtw.WriteAttributeString("KONTROLNO", "16")

 

        xtw.WriteStartElement("BORDRO DONEMAY") '2 ======= 

        xtw.WriteAttributeString("", "5")

        xtw.WriteAttributeString("DONEMYIL", "2013")

        xtw.WriteAttributeString("BELGEMAHIYET", "A")

       



        xtw.WriteStartElement("BILDIRGELER") '3 ======= 

        xtw.WriteAttributeString("BELGETURU", "13")

        xtw.WriteAttributeString("DONEMYIL", "2013")

        xtw.WriteAttributeString("KANUN", "00000")

        xtw.WriteEndElement() 'KAPAT





       



        xtw.WriteStartElement("SIGORTALILAR") 'ana root

        xtw.WriteAttributeString("SIRA", "1")

        xtw.WriteAttributeString("SIGORTALISICIL", "480119971050")

        xtw.WriteAttributeString("TCKNO", "49996666666")







        xtw.WriteEndElement() 'KAPAT

        xtw.WriteEndDocument()

        xtw.Close()







    End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        Dim xtw As New XmlTextWriter("yeni.xml", System.Text.Encoding.GetEncoding("iSO-8859-9"))



        xtw.Formatting = Formatting.Indented

        xtw.WriteStartDocument() 'XML belgesine versiyon bilgisi yazılıyor.





        xtw.WriteStartElement("AYLIKBILDIRGELER") 'ana root  

        

        xtw.WriteStartElement("ISYERI ISYERISICIL") '1 ======= 

        xtw.WriteAttributeString("", "144563245879512365485")

        xtw.WriteAttributeString("KONTROLNO", "16")

 

        xtw.WriteStartElement("BORDRO DONEMAY") '2 ======= 

        xtw.WriteAttributeString("", "5")

        xtw.WriteAttributeString("DONEMYIL", "2013")

        xtw.WriteAttributeString("BELGEMAHIYET", "A")

       



        xtw.WriteStartElement("BILDIRGELER") '3 ======= 

        xtw.WriteAttributeString("BELGETURU", "13")

        xtw.WriteAttributeString("KANUN", "00000")

        

        xtw.WriteStartElement("SIGORTALILAR") 'ana root

        xtw.WriteAttributeString("SIRA", "1")

        xtw.WriteAttributeString("SIGORTALISICIL", "480119971050")

        xtw.WriteAttributeString("AD", "ALİYE")

	xtw.WriteAttributeString("SOYAD", "SAFİ")

	xtw.WriteAttributeString("PEK", "1942.74")

	xtw.WriteAttributeString("GUN", "30")

	xtw.WriteEndElement() 



	xtw.WriteEndElement() 'KAPAT



        xtw.WriteEndElement() 'KAPAT

        xtw.WriteEndDocument()

        xtw.Close()

Üstteki kodu deneyip bilgi veriniz.

Lütfen olumlu/olumsuz bildirimde bulununuz.

Sayın umutakkaya;

Konu takibiniz açısından hatırlatma olarak.
Sorunuz ile ilgili son durum nedir ? Şüphesiz sayın ozanakkaya'nın paylaşımları ve/veya kendi çalışmalarınız doğrultusunda çözüme ulaşmış olabilirsiniz.
Konuyla ilgili bilgilendirir misiniz ?

Saygılar.
İyi çalışmalar.

Konu;

gerek paylaşılan bilgiler neticesinde çözüme kavuşturuldu düşüncesi ile ve gerekse de
konu sahibinin zaman zarfında ayrıntılı geri dönüş bildirimleri olmaması nedeni ile,
(gerektiğinde konu sahibinin geri bildirim hakkı saklı kalmak üzere)

Cevaplanmış Sorular kategorisi içerisine taşınmıştır.

Bilgilerinize