SGK e-bildirge için XML dosya oluşturma - umutakkaya - 03/08/2016
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>
Cvp: SGK e-bildirge için XML dosya oluşturma - umutakkaya - 03/08/2016
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
Cvp: SGK e-bildirge için XML dosya oluşturma - ozanakkaya - 06/08/2016
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.
Cvp: SGK e-bildirge için XML dosya oluşturma - ozanakkaya - 17/08/2016
Lütfen olumlu/olumsuz bildirimde bulununuz.
Cvp: SGK e-bildirge için XML dosya oluşturma - emir ustaoğlu - 25/08/2016
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.
Cvp: SGK e-bildirge için XML dosya oluşturma - emir ustaoğlu - 06/09/2016
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
|