(06/08/2016, 07:37)ozanakkaya yazdı:Kodu denedim ama olmadı .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.
SGK e-bildirge için XML dosya oluşturma
Konuyu Okuyanlar: 1 Ziyaretçi