(06/09/2016, 13:02)emir ustaoğlu yazdı: 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

Selamlar. Bu aralar işler yoğun ve ancak şimdi bakabildim. Teşekkürler arkadaşlar cevaplar için. Fakat yine aynı yerde duruyor sorun yani çözülmedi.

(06/08/2016, 07:37)ozanakkaya yazdı:

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.

Kodu denedim ama olmadı .

  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

Üstteki kodlar var en son denememde. Burdaki sorunları Excel ile oluşturulan ve SGK sistemine sorunnsuz aktarılan xml dosyayası ile aynı oluşmadığı için sorun çıkıyor SGKya aktarımda.Şu anda bu foruma Resim ekleyebilirsem xml dosyası üzerinde yanlış olan yerleri belirteceğim. Ama resim eklenmiyor.

Sayın umutakkaya,

Öncelikle;
Konunuzu 03.08.2016 tarihinde açmış olduğunuzu ve sonrasında katılımcılar tarafından yazılan paylaşımlara dair herhangi bir yanıt vermemiş olduğunuzu ve bundan dolayı da konunuzun,Cevaplanmış Sorular Kategorisi’ne taşınmış olduğunu,ancak en son bugüne dair yanıt verdiğinizi ve sorununuzun çözümlenmediğini beyan etmektesiniz.bu nedenle,

Site Kuralları sayfasında yazılı hususları tekrar incelemenizi temenni etmekle birlikte,

Alıntı:2-) Herhangi bir soru(n) için konu açtıysanız verilen cevapları inceleyip en kısa zamanda yapılan yardımın olumlu ya da olumsuz sonucunu bildiriniz.
Bu maddenin sürekli ihlalde uyarı puanı verilecektir.
Uyarı Bitiş Süresi : 4 Ay,
Uyarı Seviyesi +4

İlgili Kuralların 2.maddesinde yazılı husus akabinde,lütfen,açtığınız konuları yakın takipte tutmak sureti ile üzerinden bu gibi hayli zaman geçmesine neden olmamaya gayret ediniz.teşekkürler.

Son olarak;
Konunuz,Cevaplanmış Sorular Kategorisi’ne taşındığından dolayı,bu konuyu bağlantı göstermek sureti ile lütfen YENİ KONU açınız ve içeriğinde hem son gelişmeler nezdinde yaptıklarınızı da dahil ederek ve son halini içeren örnek uygulamanızı da ekleyerek yeni konunuzdan devam ediniz.sadece kod eklememey ve örneğinizi dahil etmeye özen gösteriniz ki çözümler daha geçerli şekilde paylaşılabilsin,katılımcılar tarafından.

Bilginize…iyi çalışmalar,saygılar.

Tamam. Yeni konu açıyorum.Saygılar.