Soru E-Arşiv Fatura kesimi

[htsumer]

Merhaba,
Daha önceleri web sitesinden sorgu yoluyla işlem yapılıyordu. Benim sorumda bununla ilgili
E-Arşiv sisteminden fatura kesmek manuel olarak yapıyoruz. Kesilecek fatura çok olunca bu işkence oluyor.
Excelden e-arşiv sistemine girip, hücredeki değerlere göre e-arşiv fatura kesilmesi yapılabilirmi? Onay kısmı sorun değil manuell olacak çünkü sms onaylı çalışıyor. Onu manuel yapmak zor değil.

Excelden kullanıcı ad ve şifre ile e-arşiv sistemine giriş olacak yada açık sayfaya entegre de olabilir. Daha sonra excelde yazılı bilgileri e-arşiv faturasına kaydedecek.

Sistemin arayüzü bu şekilde

 

[Erdem Akdemir]

Ücreti karşılığında yapılabilir.

 

[vatansever027]

merhaba ben biraz ugraşıp excelde yapmaya çalıştım. herşey tamam çok güzel çalışıyor fakat tek sıkıntı her faturayı kaydettikten sonra bütün İd değerler değişiyor. Örneğin tarih kutusu id adı "date-gen__1026" bir sonraki faturada "date-gen__1234" oluyor. bu sefer yaptıgım kodlama çalışmıyor. bunun bir çözümü varmıdır. her fatura kaydettikten sonra Tarih giriş kutusunun id sinin nasıl öğrenebilirim.

 

[vatansever027]

Sub aktar()
On Error Resume Next
Dim bcinsi As String
With WebBrowser1
Do While .Busy: Loop
Do While .ReadyState <> 4: Loop
With .Document.All
If CheckBox2.Value = True Then .gen__1030.Value = "OZELMATRAH" Else .gen__1030.Value = "SATIS"
If TextBox8.Value = "Adet" Then bcinsi = "C62"
If TextBox8.Value = "Grm" Then bcinsi = "GRM"
If TextBox8.Value = "Gün" Then bcinsi = "DAY"
'WebBrowser1.Document.all("gen__1030").Focus
WebBrowser1.Document.All("gen__1030").FireEvent ("onchange")
WebBrowser1.Document.All("date-gen__1026").Value = Format((DTPicker1.Value), "dd") & "/" & Format((DTPicker1.Value), "mm") & "/" & Format((DTPicker1.Value), "yyyy") 'tarih
.gen__1033.Value = TextBox2.Value 'tc no
.gen__1034.Value = TextBox1.Value 'unvan
.gen__1042.Value = TextBox3.Value 'ülke
.gen__1043.Value = TextBox4.Value 'adres
'1 satır Bilgileri
.gen__1089.Click 'satır ekle
.gen__1146.Value = TextBox6.Value 'mal ve hizmet
.gen__1147.Value = Label23.Caption 'miktar
.gen__1148.Value = bcinsi 'birim Cinsi
.gen__1149.Value = Label5.Caption 'BİRİM TUTARI
WebBrowser1.Document.All("gen__1149").FireEvent ("onchange")
.gen__1156.Value = TextBox10.Value 'KDV ORANI
WebBrowser1.Document.All("gen__1156").FireEvent ("onchange")
If CheckBox2.Value = False Then GoTo satir2
'2.satır Bilgileri
Application.Wait (Now() + TimeValue("00:00:01"))
.gen__1089.Click 'satır ekle
.gen__1164.Value = TextBox6.Value & " İŞÇİLİK" 'mal ve hizmet
.gen__1165.Value = Label23.Caption 'miktar
.gen__1166.Value = bcinsi '2 SATIR birim Cinsi
.gen__1167.Value = Format(Label26.Caption / 1.18, "##,#0.0000 ") 'BİRİM TUTARI
WebBrowser1.Document.All("gen__1167").FireEvent ("onchange")
.gen__1174.Value = "18" 'KDV ORANI
WebBrowser1.Document.All("gen__1174").FireEvent ("onchange")
If ComboBox2.Value = "ALTIN" Then .gen__1160.Value = "805" Else .gen__1160.Value = "808" 'özel matrah nedeni
.gen__1161.Value = Format(Label23.Caption * Label5.Caption, "##,#0.0000 ") 'Özel matrah tutarı
satir2:
If CheckBox1.Value = True Then .gen__1105.Value = "YALNIZ: " & TextBox11.Value & " KREDİ KARTI İLE TAHSİL EDİLMİŞTİR." Else .gen__1105.Value = "YALNIZ: " & TextBox11.Value
End With
End With
Label22.Caption = TextBox1.Value & " aktarıldı..."
End Sub

 

[vatansever027]

excelden veri aktardıgımız id numaraları sabit olmadıgı için düzenli çalışmıyor. bunun bir çözümü varmı acaba.

kolay gelsin

 

[htsumer]

İd noyu her sorgulama öncesi tespit edip zla sayfasının biryerine alıp ordan yeni id alarak çözüm olabilir mantıkta
Tabi bunu yapmak lazım kodlarla

 

[vatansever027]

İd noyu her sorgulama öncesi tespit edip zla sayfasının biryerine alıp ordan yeni id alarak çözüm olabilir mantıkta
Tabi bunu yapmak lazım kodlarla

değişen id noyu alamıyorum sıkıntı orda. yardımcı olabilirmisiniz.

birde veri girişinde bütün id'ler değişken oluyor yani sayfaya her tıkladıgınızda bütün id'ler değişiyor. sabit oranlarda değişiyor.
mesala tarhi kutusu İd no: gen__1026 ise vergi no kutusu 14 fazlasıyla gen__1040 oluyor. bu hep böyle tarih: gen__2550 ise tc no id: gen__2564 oluyor.

sorgulama öncesi tarih kutsunun id numarsını alabilrsem sonrasını halledebilirim. yardımlarınızı bekliyorum.

 

[htsumer]

değişen id noyu alamıyorum sıkıntı orda. yardımcı olabilirmisiniz.
sorgulama öncesi tarih kutsunun id numarsını alsam sonrasını halledebilirim.

Onu ben yapamam, ama mantığı öyle olmalı önce İD sorgulayacak excel sayfasına alacak ondan sonra o İD ile sorgu yapıp textlere verileri alacak..

 

[vatansever027]

Onu ben yapamam, ama mantığı öyle olmalı önce İD sorgulayacak excel sayfasına alacak ondan sonra o İD ile sorgu yapıp textlere verileri alacak..

aynen tamda böyle olması gerekiyor. yardımcı olabilecek birisi varmı.