Skip to main content

AccessTr.neT


SGK e-bildirge için XML dosya oluşturma

SGK e-bildirge için XML dosya oluşturma

#1
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;
Kod:
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


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

Kod:
<?xml version="1.0" encoding="iso-8859-9"?>
<AYLIKBILDIRGELER>
 <ISYERI ISYERISICIL ="144563245879512365485" KONTROLNO="16">
   <BORDRO DONEMAY ="5" DONEMYIL="2013" BELGEMAHIYET="A">
     <BILDIRGELER BELGETURU="13" DONEMYIL="2013" KANUN="00000" />
     <SIGORTALILAR SIRA="1" SIGORTALISICIL="480119971050" TCKNO="49996666666" />
   </BORDRO DONEMAY>
 </ISYERI ISYERISICIL>
</AYLIKBILDIRGELER>

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

Kod:
<?xml version="1.0" encoding="iSO-8859-9"?>
<AYLIKBILDIRGELER>
<ISYERI ISYERISICIL="144563245879512365485" KONTROLNO="16"/>
<BORDRO DONEMAY="5" DONEMYIL="2013" BELGEMAHIYET="A"/>
<BILDIRGELER BELGETURU="13" KANUN="00000">
<SIGORTALILAR>
<SIGORTALI SIRA="1" SIGORTALISICIL="4801199710503" TCKNO="49996666666" AD="ALİYE" SOYAD="SAFİ" PEK="1942.74" GUN="30" />
<SIGORTALI SIRA="2" SIGORTALISICIL="4801199710503" TCKNO="49999999999" AD="ARZU" SOYAD="CAN " PEK="1942.74" GUN="30" />
<SIGORTALI SIRA="3" SIGORTALISICIL="4801199710503" TCKNO="49999999999" AD="ASLI" SOYAD="YAVUZ" PEK="1942.74" GUN="30" />
</SIGORTALILAR>
</BILDIRGELER>
</AYLIKBILDIRGELER>

Cevapla
#2
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
Son Düzenleme: 03/08/2016, 14:11, Düzenleyen: umutakkaya.
Cevapla
#3
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.
Cevapla
#4
Lütfen olumlu/olumsuz bildirimde bulununuz.
Cevapla
#5
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.
Dünyada Yetirince Anlaşılır Dile Konuşan İnsanlar Var Birazcık da Anlaması İçin Düşünmesi Gerekiyor İnsanların
Cevapla
#6
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
Dünyada Yetirince Anlaşılır Dile Konuşan İnsanlar Var Birazcık da Anlaması İçin Düşünmesi Gerekiyor İnsanların
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task