AccessTr.neT
SGK e-bildirge için VB.Net ile XML dosya oluşturmak - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Visual Basic .NET (https://accesstr.net/forum-visual-basic-net.html)
+--- Forum: Visual Basic .NET Soruları ve Cevapları (https://accesstr.net/forum-visual-basic-net-sorulari-ve-cevaplari.html)
+--- Konu Başlığı: SGK e-bildirge için VB.Net ile XML dosya oluşturmak (/konu-sgk-e-bildirge-icin-vb-net-ile-xml-dosya-olusturmak.html)

Sayfalar: 1 2

SGK e-bildirge için VB.Net ile XML dosya oluşturmak - umutakkaya - 18/10/2016

SGK e-bildirge için Excel den XML dosya oluşturmak yerine VB.Net ile  datagrdiview kullanarak  SGK için  XML şablonu oluşturmak istiyorum
Ben aşağıdaki kodlarla deneme yapıyorum ama eksiklikler var. Bu eksiklikleri Orjinal olan ve SGK aktarımı yapılan bir xml örneği üzerinde aşağıdaki resimlerde gösterdim. Resimler olması gereken dosya örneğidir. Benim kodlar ile oluşan dosya görüntüsünü de en son resime yükledim.
Kod:
Dim saveFileDialog As New SaveFileDialog()
       saveFileDialog.Filter = "XML-File | *.xml"
       saveFileDialog.FileName = DateTime.Now.ToString("dd-MMMM-yyyy") + "-MusteriXML"
       If saveFileDialog.ShowDialog() = DialogResult.OK Then
           dosyaadi = saveFileDialog.FileName


           Dim xtw As New Xml.XmlTextWriter(dosyaadi, System.Text.Encoding.GetEncoding("iSO-8859-9"))
           xtw.WriteStartDocument()       '//Start ederek xml’i arka planda açıyoruz.açıyoruz derken yazma işlemıne hazır vazıyette tutuyoruz
           xtw.Formatting = Formatting.Indented
           xtw.IndentChar = ChrW(9) 'TAB TUŞU


           xtw.WriteStartElement("AYLIKBILDIRGELER") '// Root’u belırlıyoruz.Yani Kök Elemanı(kök Elemanı olmaz ise XML çalışma esnasında hata vermektedır.)
           xtw.WriteStartElement("ISYERI ISYERISICIL") 'Root’un içerisine Attribute yanı value ’mizi eklıyoruz.
           xtw.WriteAttributeString("", "sicilno")
           xtw.WriteAttributeString("", "adasd")
           xtw.WriteEndElement() 'KAPATTIK

           xtw.WriteStartElement("BORDRO DONEMAY") 'Root’un içerisine Attribute yanı value ’mizi eklıyoruz.
           xtw.WriteAttributeString("" & "", "5")
           xtw.WriteAttributeString("DONEMYIL", "2013")
           xtw.WriteAttributeString("BELGEMAHIYET", "A")
           xtw.WriteEndElement() 'KAPAT

           xtw.WriteStartElement("BILDIRGELER") '3 =======
           xtw.WriteAttributeString("BELGETURU", "13")
           xtw.WriteAttributeString("DONEMYIL", "2013")
           xtw.WriteAttributeString("KANUN", "00000")


           xtw.WriteStartElement("SIGORTALILAR") '// Root’u belırlıyoruz.Yani Kök Elemanı(kök Elemanı olmaz ise XML çalışma esnasında hata vermektedır.)
           xtw.WriteStartElement("SIGORTALILAR") 'ana root
           xtw.WriteAttributeString("SIRA", "1")
           xtw.WriteAttributeString("SIGORTALISICIL", "480119971050")
           xtw.WriteAttributeString("TCKNO", "49996666666")
           xtw.WriteEndElement() 'KAPAT

           xtw.WriteEndElement() 'KAPAT
           xtw.WriteEndElement() 'KAPAT
           xtw.WriteEndElement() 'KAPAT

           xtw.WriteEndDocument()
           xtw.Close()

       End If


Cvp: SGK e-bildirge için VB.Net ile XML dosya oluşturmak - umutakkaya - 18/10/2016

aşağıdaki örnek olması gereken xml dosyasının resmi.[Resim: do.php?imgf=147677738879721.jpg]

Cvp: SGK e-bildirge için VB.Net ile XML dosya oluşturmak - umutakkaya - 18/10/2016

(18/10/2016, 10:56)umutakkaya yazdı: aşağıdaki örnek not defteri olarak kaydedilen ve olması gereken xml dosyasını kopyalayıp excele yapıştırıldığında Excel görüntüsü.[Resim: do.php?imgf=147677749188811.jpg]


Cvp: SGK e-bildirge için VB.Net ile XML dosya oluşturmak - umutakkaya - 18/10/2016

[Resim: do.php?imgf=147677891271381.jpg]
[Resim: do.php?imgf=147677891284652.jpg]

Cvp: SGK e-bildirge için VB.Net ile XML dosya oluşturmak - alpeki99 - 19/10/2016

Kaç sütun olduğunun bir önemi olmaması gerek isterse 10 adet sekme olsun. SGK yorumlayıcısı sadece düğümleri okuyacaktır. Eğer bir hata var ve sebebini arıyorsanız <Sigortalılar> alt düşümünde <Sigortalı ... > olacağına <Sigortalılar ... > yazmışsınız.

Cvp: SGK e-bildirge için VB.Net ile XML dosya oluşturmak - umutakkaya - 19/10/2016

(19/10/2016, 09:22)alpeki99 yazdı: Kaç sütun olduğunun bir önemi olmaması gerek isterse 10 adet sekme olsun. SGK yorumlayıcısı sadece düğümleri okuyacaktır. Eğer bir hata var ve sebebini arıyorsanız <Sigortalılar> alt düşümünde <Sigortalı ... > olacağına <Sigortalılar ... > yazmışsınız.

Anladım dediğinizi .Yalnız sorun şu.  notpad deki oluşturduğum sgk bilgilerine ait verileri ctrl+a ile tümünü seçip bir Excel dosyasına yapıştırınca Yukarıdaki 3 numaralı resimdeki şekilde yerleşmesi gerekmiyor mu? Bu dediğim 3 numaralı resim orjinal olan ve nodpad de oluşmuş bir sgk xml yapıştırılmış halidir. Benim oluşturduğum nodpade copy yapıştır olan Excel görünümü de resim 4 tekidir. Bu 4 ncü resimde olması gerekeni üzerinde de oklar ile belirtip açıklama yazdım.