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.