Xml Dosyası düzenleme ve yine xml formatında kaydetme

[Haluk]

Erdem Bey; benim revize dosyayı GİB'in programıyla deneyebildiniz mi? (Son 40 No'lu mesajda eklediğiniz XML dosyası benim Excel'den ürettiğiniz dosya mı? )

Veya sizdekinde "Ülke" kısmına nümerik değerler girin.... (Örnek olarak hepsine "052")

.

 

[Erdem Akdemir]

Haluk bey ,

Eklediğim XML'i beyanname programından manuel oluşturdum.
En son eklediğiniz dosyadan oluşan XML'de düzgün oluşmadı.
Kodlarınızı inceleyemedim, yarın bende bakabilirim.

 

[Haluk]

Peki, iyi akşamlar.

.

 

[Haluk]

Erdem Bey;

Dosyadaki "VK No" veya "TC Kimlik No" alanlarından hangisi doldurulmuşsa, XML dosyasına o verinin alınmasına yönelik bir revizyon yaptım. Zeki Beyin 8. mesajını tekrar görünce bu revizyonu yapmak iyi olur diye düşündüm.

Revize dosyaya yine 18. mesajdan erişebilirsiniz.

Aklıma takılan diğer bir konu ise; 1. mesajda verilen örnek XML dosyasıyle, sizin 40. mesajda verdiğiniz örnek XML dosyasında farklar var. Sizinkinde "Gönderen" kısmı yok, diğerinde var. Bu bölümlerin alt bölümleri de (Child Nodes) birbirinden farklı. Sizinkinde; Vergi No, Soyadı, Alan Kodu, Tel No var. Diğerinde ise bunlara ilaveten; E-Posta, Tic. Sicil No var. Bunlar isteğe göre mi yazılıyor, anlamadım doğrusu.... Bu yüzden de bir sıkıntı olabilir belki, emin değilim...

.

 

[veyselemre]

Haluk Bey Merhaba, başlığı açılışından itibaren takip ediyorum, şimdiye kadar müdahale etmek istemedim, 10 yıla yakın kendi yaptığım excel dosyasından ebeyan hazırlayıp, ilgileri ETA, ETASQL programlarından gerekli bilgilerin birçoğunu alma, beyanname formlarına yazdırma, paketleyip, siteye giriş + gönderme, konrot ettirme, onaylattırma, pdfleri indirip, pdfleri önlü arkalı, veya bir sayfada iki sayfa olmak üzere bir çok işlemi çok pratik ve hızlı bir şekilde tek bir dosyasından yapıyordum, her gün üzerine gerekli olanları eklediğimden biraz derme çatma idi, ama zirve programı alındıktan kendi verilerinden beyannamelerin büyük bir kısmını aldığı için daha pratik olarak bu işlemleri yaptığından dosyayı kullanmaya gerek kalmadı.

XML konusu çok zevkli bir uğraş olduğu için şimdiye kadar müdahale etmek istemedim, sonuçta tecrübe kazanılıyor, ama beyanname işi biraz sıkıntılı hiç girmenize gerek yok çünkü atıyorum 40 çeşit beyanname var ve sürekli beyanname formatları değişiyor, dışardan takip etmek imkansız gibi işin içinde olmak gerekiyor. Örneğin yazdığınız örnekte vergi nolarını 10 haneli olmalıydı, o yüzden ebyn programında göstermiyordur.

Neyse lafı uzatmaya gerek yok ben bu işten kimsenin para kazanacağına inanmıyorum en azından ben hiç bir kuruş kazanamadım.

Dosyaya gelince

    objRoot.setAttribute "xmlns:xsi", "http://www.w3.org/2001/XMLSchema-instance"

tek tırnaklar kalkacak,

Hazırlanan beyannameyi kontrol için Referanslardan "Microsoft XML, v6,0" eklemek gerekiyor create yöntemiyle çalışmıyor, ekte eklediğim
XSD dosyalarını da beyannamenin olduğu dizine kopyalayın,

xml dosyasını kayıt ettikten sonra

xDoc.Save (xml_filename)
MsgBox ValidateFile(xml_filename)

ekleyip,

Function ValidateFile(strFile)

    Dim x As New DOMDocument60
    x.async = False
    x.validateOnParse = True
    x.resolveExternals = True
    x.Load strFile

    If x.parseError.ErrorCode <> 0 Then
        ValidateFile = "Validation failed on " & strFile & vbCrLf & _
                       "=====================" & vbCrLf & _
                       "Reason: " & x.parseError.reason & vbCrLf & _
                       "Source: " & x.parseError.srcText & vbCrLf & _
                       "Line: " & x.parseError.Line & vbCrLf
    Else
        ValidateFile = "XML dosyası hazırlandı:" & vbCrLf & vbCrLf & strFile
    End If
    Set x = Nothing

End Function

dosyadaki hataları görebilirsiniz.

 

[Haluk]

Merhaba Veysel Bey;

Benim buradaki amacım bu dosyayı VD'nin gereksinimlerine uygun olacak şekilde geliştirip ticari olarak satmak değil, çünkü söz konusu muhasebe teknikleri benim meslek ve ilgi alanımdan uzak konular. Ben sadece kendi mesleğimle ilgili veya ilgimi çeken konularda hazırladığım dosyaları ücret karşılığında veriyorum çünkü, bu dosyaların içeriğinden eminim.

Bu konu başlığına ilgi duymamın sebebi ise; Excel'deki verilerden XML dosyası hazırlamak ama bunu yaparken, print/put-read gibi konvansiyonel I/O metodları yerine, XML'e özgün kendi fonksiyonlarını kullanmak ve bunları burada paylaşarak konuya ilgi duyanlar için "açık kaynak" oluşturmaktı.

Dosyadaki kodları herhalde görmüşünüzdür....... XML dosyasını oluşturma, dosyanın Properties, Attributes, Nodes, ChildNodes, Append, Set, Get .... gibi muhtelif özelliklerini ve metodlarını kullanarak hazırlanan dosyada, işin XML yönünden başarılı olduğunu düşünüyorum.

Diğer yandan; yukarıdaki mesajınızda bahsettiğiniz "tırnak kaldırma" düzeltmesini yapmadan, sizin vermiş olduğunuz "ValidateFile" fonksiyonunu 18. mesajdaki Revize dosyaya uygulayarak çalıştırdım ve herhangi bir hata mesajı almadım. Zaten o kodda "setAttribute" fonksiyonuna gönderilen 2 adet parametrenin, kodda olduğu gibi "tırnak" işaretleri arasında ve virgülle ayrılarak o fonksiyona gönderilmesi gerekiyor. Bu tamamen söz konusu XML fonksiyonunun VBA'de kullanımıyla ilgili bir konu.

Anladığım kadarıyla; bu oluşturulan XML dosyası ile VD'nin web tabanlı bir programına data girişi yapılıyor ve sonrasında bir takım kontrol, onay vb işlemler yapılıyor..... ya da bunun gibi bir şeyler, bilemiyorum. Açıkçası, benim için konu burada sonuçlanmış durumda zira; gördüğüm kadarıyla üretilen XML bir şekilde sisteme girildiğinde eksik de olsa bazı sonuçlar çıkıyor. Demek ki; XML dosyasını hazırlarken VD'nin programına yönelik bazı verilerin formatı, belki dosyanın bir property veya attribute özelliğinin revize edilmesi gerekebilir...... Eğer benim ilgi veya uğraş alanı bir konum olsa, 4X4'lük bir dosya hazırlardım ama, işin muhasebe/beyanname tekniğini bilmiyorum.

Sonuç olarak; konuyu başlatan kişinin 1. mesajında yazmış olduğu yarım satır uzunluğundaki bir mesaj ve örnek XML dosyasından başka gerekli herhangi bir done verilmemesine rağmen Erdem Beyin ve Zeki Beyin bazı katkılarıyla kafa-göz yarıp, durumun bu mertebeye gelmesi bile bence güzel oldu.

Selam ve sevgiler,

.

 

[veyselemre]

Merhaba Haluk Bey,

Sonuç olarak; konuyu başlatan kişinin 1. mesajında yazmış olduğu yarım satır uzunluğundaki bir mesaj ve örnek XML dosyasından başka gerekli herhangi bir done verilmemesine rağmen Erdem Beyin bazı katkılarıyla kafa-göz yarıp, durumun bu mertebeye gelmesi bile bence güzel oldu.

Birkaç yıldır siteye bazı sıkıntılarımdan dolayı girmiyordum, bir müddettir tekrar girmeye başladım. Bu site sayesinde bir çok şey öğrendim ki; bunların başında sizden öğrendiklerim en başta geliyor, sitede birçok emek veren arkadaş, kendisini geliştirmiş arkadaşımız var, fakat takip ettiklerim arasında aklımda kalan kişilerin en başında siz ve Zeki Bey varsınız. Sorular, sorunlar çözülüyor fakat hep aynı şeyler dönüyor, araştırıp yeni şeyler ekleyen, tertipli, düzenli kod yazan arkadaş sayısı çok fazla değil yada bana öyle geliyor.

Bu çalışmada da aşama aşama çok güzel sonuçlar çıktı ortaya, konu dipsiz (mali format açısından dikkat edilmesi gereken bir çok şey var/cezai yaptırımları çok yüksek bir konu) bir kuyu olduğu için baştan beri yazmadım, fakat yazılımsal olarak siz son noktaya getirdikten sonra, XSD dosyalarının nasıl çalıştığının da gösterilmesi için ufak bir giriş yaptım. Kusuruma bakmazsınız inşallah..

Saygılar sunarım.

 

[Haluk]

Eyvallah Veysel Bey, saygı bizden...

Selamlar,

.

 

[Haluk]

Veysel Bey, bu arada sizin 47 No'lu mesajınız ekindeki daha önce hazırlamış olduğum Excel dosyasını çalıştırdım, sizin fonksiyonla ilgili hata mesajları geldi. Ancak; 46 No'lu mesajımda da bahsettiğim gibi 18 No'lu mesaja eklemiş olduğum "Revize" dosyada hata vermiyor. Ama, oluşturulan XML dosyasını ben manuel olarak Excel'e import ettiğimde bir sonuç alamadım. Yine de bir şeyler eksik herhalde bilemiyorum....

Bahsettiğiniz "VN" uzunluğu, "vkNo" uzunluğu vb. verileri olması gereken formatta girilirse sonuç ne olur bilemiyorum...

.

 

[Haluk]

......
...
..
Demek ki; XML dosyasını hazırlarken VD'nin programına yönelik bazı verilerin formatı, belki dosyanın bir property veya attribute özelliğinin revize edilmesi gerekebilir...... Eğer benim ilgi veya uğraş alanı bir konum olsa, 4X4'lük bir dosya hazırlardım ama, işin muhasebe/beyanname tekniğini bilmiyorum.
.....
...
..
.

Evet, yukarıdaki alıntıda da belirttiğim gibi sıkıntılardan bir tanesi, property/attribute meselesi.... Sanıyorum "Schema" dosyasını tanımlamakta bir sıkıntı var. Ya da; XML dosyasını hazırlamak için kullandığım Excel tablosundaki şablon eksik veya yanlış. Çünkü Veysel beyin eklediği "FORMBA_6.xsd" dosyasındaki XML haritasında "ymm", "darMukellefTemsilcisi" ... vb başka bölümler de var. Bunlar olmadan XML dosyasını oluşturunca, söz konusu XSD dosyasını kullanarak Excel'e import etmekte sıkıntı oluyor belki de...

Revize dosyadaki kodlarda aşağıdaki bölümü pasif yapınca, oluşturulan XML dosyası Excel'e "import" edilebiliyor....

'    xDoc.DocumentElement.setAttribute "xsi:noNameSchemaLocation", Range("H5")

Ekran görüntüsü aşağıdadır...

 

[acar6783]

Konuyu başlatan olarak cok gariptir ki bilgilendirme mesajı gelmediği için konuya dahil olamadım.
Ne hikmetse bir türlü de konuya bakmadan bir sürü site inceledim.
Sonuç olarak Şablon kullanmadan BaBs ve KDV1 beyannamesini hazırlayan dosyalarımı elde ettim.
Tabi burada dikkat edilmesi gereken vdairesinin bu beyannameleri sürekli güncellemesi.
Her güncellemede dosyada bir takım değişiklikler yapmak gerekiyor.

Bu tür dosyalar sadece verileri hızlıca Bdp programına aktarmaya yarayan bir program olacak. Paketlemeyi de düşündüm fakat bu da İ.VD yükledikten sonra geri dönüşü olmadığı için cezai bedeller oluşturabilecek durumlara sebep olabilir.
Bu nedenle en güzeli Bdpye cektikten sonra gerekli kontrolleri sağlayıp bdp üzerinden paketleyip İVDsine yükelemek olacaktır.

Bensiz olsa da bu konuda görüşleri birleştirip ortaya cıkan dosyalar için sonsuz teşekkürler.

Dosyalarımı bitirdikten sonra burada paylacağım. Çok kişinin işine yarayacağına eminim.

 

[acar6783]

https://yadi.sk/i/KsqWoydz1ydkiQ

Hatasız kayıt

 

[Haluk]

@acar6783 probleminizi çözdüğünüze sevindim, ben daha henüz uğraşıyorum ....

Geldiğim durum itibariyle, eğer kodlarda söz konusu "Schema" dosyasını kullanmadan işlem yapılırsa oluşturulan XML dosyası çalışılan Excel dosyasına aktarılabiliyor. Eğer "Schema" dosyasını kullanmaya çalışırsam bu kez Excel'den "Gerekli white space (görünmez karakter anlamında herhalde) bulunamadı" .... şeklinde bir hata mesajı alıyorum. Neden bahsettiğini anlamaya çalışıyorum ama şimdilik bir çözüm bulamadım. Bir şekilde oluşturulan XML dosyasının artık başında mı, sonunda mı ..... bir yerlerinde bahsettiği karakter veya karakterler neyse artık, onları yerleştirmek lazım galiba
Bunu da XML dosyasını binary olarak açıp da mı yapıcaz yoksa XML kodlamasında yapılabiliyor mu, onu da bilmiyorum artık..... Ya da, çok basit bir "boşluk" karakterini bir yere koymadım.

Dosyanın şu anki halini aşağıya ekledim. Bu sorunu çözebilirsem sanırım ilgili "Schema" dosyasını da kullanarak Excel'e aktarabiliceğim. Ama, görebildiğim kadarıyla benim Excel dosyasındaki veri tablosu ile "Schema" dosyasındaki yapı farklı. Bu "white space" problemini halletsek bile daha sonra neyle karşılacağız, o da belli değil.....


Not: Dosyanın son hali 62No'lu mesajın ekindedir.

.

 

[Ömer BARAN]

Merhaba.

Açılan konuyu başından beri takip ediyorum ve güzel paylaşımlar da oldu ama
bence gelinen noktada en güzel paylaşım, Sayın @acar6783 'ün çözüm paylaşımı sanırım.
Böylece forum da, güzel bir dosya elde etmiş oldu.
.

 

[Haluk]

Dosyaya gelince

    objRoot.setAttribute "xmlns:xsi", "http://www.w3.org/2001/XMLSchema-instance"

tek tırnaklar kalkacak,

Sıkıntı buymuş..... oluşturulan XML dosyasını incelerken fark ettim. İşin trajikomik yanı; Veysel beyin daha önceden bahsettiği "tek tırnaklar kalkacak" ifadesini ben anlamamışım, bana da hayret yani. Ben orada; "çift tırnakları" kullanma, "tek tırnak" kalacak şekilde ' ... ' olarak ayarla demek istediğini sanmıştım. O yüzden bir sürü ahkam kesmiştim bir de.... Teşekkürler @veyselemre size de özür borçluyum.

Dosyanın son durumu ektedir.... (Düzeltilmiş kodlarla XML tablosu Excel sayfasına aktarılıyor ama anladığım kadarıyla "Schema" dosyasını henüz tanıtamadım...)

Not: Dosyanın son hali 62No'lu mesajın ekindedir.

.

 

[Haluk]

Merhaba.

Açılan konuyu başından beri takip ediyorum ve güzel paylaşımlar da oldu ama
bence gelinen noktada en güzel paylaşım, Sayın @acar6783 'ün çözüm paylaşımı sanırım.
Böylece forum da, güzel bir dosya elde etmiş oldu.
.

Belki esas dosyasını "ticari" olarak değerlendirecektir, o yüzden sonucu gösteren bir resim eklemiş olabilir.... bilemiyorum

Ama bildiğim bir şey var, o da; bu işten "ticari" olarak kazanan Hüseyin Bey oldu galiba ...... Çünkü; Perşembe günü konunun açılmasından bu yana an itibariyle yaklaşık 875 defa görüntülenen konuyu açan arkadaş, 1. mesajını yazarak konuyu açtığı sırada "Altın Üye" değildi, ama gördüğüm kadarıyla şimdi olmuş.

.

 

[Ömer BARAN]

.
FORUM kelimesinin anlam ve önemine de uygun bir hareket oldu.

Benim tercihim, bdp ekranında VERİ AL anlamında, veri alanının sağında yer alan OK işaretli düğmeyi kullanıp,
hazırlayacağım basit txt belgedeki verileri bdp programına aktarmak olurdu.

Zira bdp programı sürekli güncellenen/ekleme/çıkartmalar yapılan ve GİB'e beyanname/bildirim gönderilirken de
versiyon kontrolünün olduğu bir program.
.

 

[Haluk]

Dosyanın son durumu ektedir.... (Düzeltilmiş kodlarla XML tablosu Excel sayfasına aktarılıyor ama anladığım kadarıyla "Schema" dosyasını henüz tanıtamadım...)
.

Yukarıda 56 No'lu mesajımda belirttiğim "Schema" dosyasının tanıtılması ve bu doğrultuda hata denetimi yapılabilmesini sonunda gerçekleştirdim.

XSD dosyasının uyarıları doğrultusunda veri girişlerindeki hataları gidermeye çalıştım, en son; "malHizmetBedeli" kısmında "decimal data type" hatası veriyor..

Dosyanın an itibariyle güncel hali ektedir. Artık kalan kısmına da bir ara bakarız ....

************************************************

Edit: İlgili XSD dosyasına göre, "malHizmetBedeli" olarak kuruşsuz olarak değerler giriliyormuş..... Öyle yapınca XML dosyası oluşturuluyor ama Excel'e aktarırken bu sefer de;

Undeclared XSD type : 'genel_type'

hatasıyla karşılaştım. Ne dosyaymış valla....

Excel'deki VBA kodları değil de sanki; "EBYN.xsd" ve/veya "FORMBA_6.xsd" dosyalarında bir sıkıntı var gibi geldi bana.

*************************************************




Not: Dosyanın son hali 62No'lu mesajın ekindedir.

.

 

[Haluk]

Gelinen son durumda alınan hata mesajına sebep olan durumu çözmek üzere fikri olan varsa, sevinirim...

.

 

[acar6783]

Gelinen son durumda alınan hata mesajına sebep olan durumu çözmek üzere fikri olan varsa, sevinirim...

.

#21 nolu mesajda Erdem beyin dosyası bu işi BaBs kısmında halletmiş gibi görünüyor.
Birkaç düzeltmeden sonra çok işlevsel olacağı kesin.Konuyu BaBs için açmıştım fakat ben KDV1 beyannamesini de şablonsuz oluşturan kodları yazmayı bitirdim.
İşin ticari kısmına gelince Hüseyin beyin kazandığı da doğrudur. Bana kazandırdıklarının yanında karşılığı yok tabi. Siteye 10 seneyi aşkın üyeyim.Uzun zamandır Altın üye olacaktım fırsatını bulamadım. Daha doğrusu artık öğrendim pek bakmıyorum sanırım

Buradan çok şey öğrendim, öğrendiklerimle program bile yazdım Ekmeğini de yedim yani İşimde üst seviyelere yükseldim.Kendime şirket programı hariç birsürü excel programları oluşturdum.
Eşime okul servisi takip programı yazdım. Bir ayakkabı firmasına ağ üzerinde çalışan üretim takip programı yazdım.SAtış programı yazdım ...vs

Haluk bey sizin hakkınızı ödeyemem. İnternetten veri alma dosyalarını sizin sayenizde çözmüştüm. Ödeyemem derken birkeresinde ücret talep etmiştiniz ben tıkanınca onu ödemeyip Yabancı sitelerden kodları bulup kendime uyarlamıştım. İşin gerçeği ücret ödemek işin en kolay yolu. Azimli olunca herşey çözülüyor. Excelde akla gelen hiçbir fikrin olumsuz çıkacağını düşünmüyorum . İmkansız biraz zaman alıyor sadece.

Başta Haluk bey ve konu başlığına istinaden paylaşımda bulunan herkese teşekkür ediyorum.


https://www.youtube.com/channel/UCukJb8sA0DHR92QSrz2hfUw?view_as=subscriber