Skip to main content

AccessTr.neT

Kayıt Ol

 | Facebook ile Bağlan  | Twitter İle Bağlan | Google+ İle Bağlan

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

umutakkaya
umutakkaya
Visual Basic .NET Cevaplanmış Soruları
13
8831

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

#7
umutakkaya
Aktif Üye
umutakkaya
Bul
Aktif Üye
Adı Soyadı:
Konum: Edirne
Ofis Versiyonu: Ofis 2007
Son Oturumu: 06/02/2025,12:45
Yorumları: 198
Konuları: 36
Kayıt Tarihi: 21/12/2011
Teşekkür Puanı: 6
(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
Cevapla
#8
umutakkaya
Aktif Üye
umutakkaya
Bul
Aktif Üye
Adı Soyadı:
Konum: Edirne
Ofis Versiyonu: Ofis 2007
Son Oturumu: 06/02/2025,12:45
Yorumları: 198
Konuları: 36
Kayıt Tarihi: 21/12/2011
Teşekkür Puanı: 6
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.
Son Düzenleme: 12/10/2016, 20:59, Düzenleyen: umutakkaya.
Cevapla
#9
umutakkaya
Aktif Üye
umutakkaya
Bul
Aktif Üye
Adı Soyadı:
Konum: Edirne
Ofis Versiyonu: Ofis 2007
Son Oturumu: 06/02/2025,12:45
Yorumları: 198
Konuları: 36
Kayıt Tarihi: 21/12/2011
Teşekkür Puanı: 6
(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ı .
Cevapla
#10
umutakkaya
Aktif Üye
umutakkaya
Bul
Aktif Üye
Adı Soyadı:
Konum: Edirne
Ofis Versiyonu: Ofis 2007
Son Oturumu: 06/02/2025,12:45
Yorumları: 198
Konuları: 36
Kayıt Tarihi: 21/12/2011
Teşekkür Puanı: 6 
  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.
Son Düzenleme: 12/10/2016, 21:23, Düzenleyen: umutakkaya.
Cevapla
#11
atoz112
Onursal Üye
atoz112
Bul
Onursal Üye
Adı Soyadı:
Yaşı: 55
Konum: İstanbul
Ofis Versiyonu: Ofis 2007
Son Oturumu: 09/12/2017,11:02
Yorumları: 5.716
Konuları: 9
Kayıt Tarihi: 04/08/2009
Teşekkür Puanı: 1.172
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.
Herkes, kendisinin AR-GE'cisidir...


Konulara eklenen Uygulama içeriğine yönelik Tavsiyeler
Alt Form Denetim Değerlerine ulaşma ve Alt Form Güncelleme
Kapatırken Düzenle (Compact On Close) Seçeneğinin İşaretlenmesi Hakkında
Cevapla
#12
umutakkaya
Aktif Üye
umutakkaya
Bul
Aktif Üye
Adı Soyadı:
Konum: Edirne
Ofis Versiyonu: Ofis 2007
Son Oturumu: 06/02/2025,12:45
Yorumları: 198
Konuları: 36
Kayıt Tarihi: 21/12/2011
Teşekkür Puanı: 6
Tamam. Yeni konu açıyorum.Saygılar.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task