internet vergi dairesi gçb kontrolü

[mahmyt]

öncelikle herkese merhaba;
yapmak istediğim gümrük çıkış beyannamelerini bu adres ten kontrol etmek istediğim zaman internet vergi dairesi sisteminde şifresiz işlemlerden mükellef dosyası sekmesini tıklayabiliyorum(şifreli işlemler kısmından hepsini getirebilirsin diyebilirsiniz ama bana e ticaret gümrük beyannameleri sekmesi de lazım) ancak daha sonraki
kısımda açılan alt menüde giriş gümrük çıkış beyannameleri butonuna tıklamak istiyorum ama bir türlü



yukarıdaki görüntüye geçememekteyim.
Kaldığım ekran aşağıdaki gibidir.


yani bir türlü gümrük çıkış beyannamesine tıklayamıyorum.
123.png deki gibi tescil numarasının geldiği ekran için kodlamada düzeltme yapabilir misiniz?
şimdiden çok teşekkür ederim.

 

[EmrExcel16]

Merhaba, kod içindeki If giris.ID = "H78df76c714538-793866d49eeb4f" Then bu kısmı If giris.ID = "H354212df1b758-793866d49eeb4f" Then bu şekilde değiştirip denermisiniz.

 

[mahmyt]

üstad merhaba sizin dediğiniz yer sürekli değişiyor sizden sonra baktım bu seferde id olarak
H85eec1dec8f11-793866d49eeb4f bu ifadeyi veriyor

 

[EmrExcel16]

Ozaman bizde ID değeriyle yapmayız, şu şekilde deneyin buton ismi yazan yeri internet sitesinin kod sayfasındaki gibi yazın, şuan pc başında değilim deneyemiyorum.

Set Link = IE.document.getElementsByTagName("a")
For Each l In Link
    If l.innerText = "buton ismi" Then
        l.Click
        Exit For
    End If
Next

 

[mahmyt]

hayırlı geceler. üstad olmadı yine kod aşağıdaki gibidir.
kod innerText kısmını atlıyor. ekrana sorgulama ekranı gelmemektedir.


Sub baglan()

Dim URL As String
Dim HTML_Body As Object
Dim IE As Object

sat = ActiveWindow.RangeSelection.Row
If Sayfa1.Cells(sat, "e") = "" Then
MsgBox "hatalı satir sectiniz.."
Exit Sub
End If


URL = "https://intvrg.gib.gov.tr/intvrg_side/main.jsp?token=d1078f5e3dc646b78d5d4e5842f21e97feb48d366bc7617458b6679dec12675154a01fccc42292bb04d926bc259dbc75e39dd8e202535fd70a7098396c74a6f7"
Set IE = CreateObject("InternetExplorer.Application")
With IE
.navigate URL
.Visible = True
Do While IE.readyState <> READYSTATE_COMPLETE: DoEvents: Loop
Application.Wait (Now + TimeValue("0:00:01"))

IE.document.all.Item("gen__1163").Click


Set link = IE.document.getElementsByTagName("a")
For Each l In link
If l.innerText = "Gümrük Çıkış Beyannameleri" Then
l.Click
Exit For
End If

Next l

IE.document.all.Item("gen__1207").Value = Cells(sat, "e")
IE.document.forms(0).submit

End With


Set IE = Nothing
Set HTML_Body = Nothing
MsgBox ("Bitti ")
End Sub

 

[EmrExcel16]

Merhaba , şimdi denedim , aslında atlamıyor innerText değerlerini sorguluyor ama benim excelin vba kısmının türkçe karakterler ile sorunu olduğu için bende de çalışmadı tahminimce aynı sorun sizde de olabilir, Aşağıdaki şekilde sorun olmamaktadır bu şekilde deneyin.

Sub baglan()

    Dim URL As String
    Dim HTML_Body As Object
    Dim IE As Object
    
    sat = ActiveWindow.RangeSelection.Row
    If Sayfa1.Cells(sat, "e") = "" Then
        MsgBox "hatalı satir sectiniz.."
        Exit Sub
    End If
    
    URL = "https://intvrg.gib.gov.tr/intvrg_side/main.jsp?token=d1078f5e3dc646b78d5d4e5842f21e97feb48d366bc7617458b6679dec12675154a01fccc42292bb04d926bc259dbc75e39dd8e202535fd70a7098396c74a6f7"
    Set IE = CreateObject("InternetExplorer.Application")
    With IE
        .navigate URL
        .Visible = True
        Do While IE.readyState <> READYSTATE_COMPLETE: DoEvents: Loop
        Application.Wait (Now + TimeValue("0:00:03"))
        IE.document.all.Item("gen__1163").Click
        
        Application.Wait (Now + TimeValue("0:00:03"))
        IE.document.getElementsByTagName("a")(1).Click
        
        IE.document.all("gen__1207").Value = Cells(sat, "e")
        IE.document.forms(0).submit
    End With
    
    Set IE = Nothing
    Set HTML_Body = Nothing
    MsgBox ("Bitti")
    
End Sub

 

[mahmyt]

Öncelikle çok teşekkür ederim.
2 3 tane denedikten sonra aşağıdaki uyarıyı vermektedir.

 

[EmrExcel16]

Benim denemelerimde hata vermemekte , Debug dediğinizde hata nerede acaba ?

 

[mahmyt]

IE.document.all.Item("gen__1163").Click

Bu koda atıyor

 

[EmrExcel16]

Bu kod satırı sonradan eklediğimiz kod satırı değil yani sorun daha oraya gelmeden başlıyor sizde, denemelerinizi art arda yapmadan aralarında minumum 30 sn olacak şekilde deneyin bakalım yine sonuç aynı mı ?

 

[mahmyt]

Sub baglan()

Dim URL As String
Dim HTML_Body As Object
Dim IE As Object

sat = ActiveWindow.RangeSelection.Row
If Sayfa1.Cells(sat, "e") = "" Then
MsgBox "hatalı satir sectiniz.."
Exit Sub
End If

URL = "https://intvrg.gib.gov.tr/intvrg_side/main.jsp?token=d1078f5e3dc646b78d5d4e5842f21e97feb48d366bc7617458b6679dec12675154a01fccc42292bb04d926bc259dbc75e39dd8e202535fd70a7098396c74a6f7"
Set IE = CreateObject("InternetExplorer.Application")
With IE
.navigate URL
.Visible = True
Do While IE.readyState <> READYSTATE_COMPLETE: DoEvents: Loop
Application.Wait (Now + TimeValue("0:00:03"))
IE.document.all.Item("gen__1163").Click

Application.Wait (Now + TimeValue("0:00:01"))
IE.document.getElementsByTagName("a")(4).Click
Application.Wait (Now + TimeValue("0:00:01"))
IE.document.all("gen__1207").Value = Cells(sat, "e")
Application.Wait (Now + TimeValue("0:00:01"))

IE.document.all.Item("gen__1209").Click
Set kapanisTarihi = IE.document.all("gen__1220").Value
kapinisTarihi.Copy
Cells(sat, "f").PasteSpecial
End With

Set IE = Nothing
Set HTML_Body = Nothing

MsgBox ("Bitti")

End Sub

Zamanlamada değişiklik yapınca art arda istediğim kadar sorgulama yapabiliyorum yardımlarınız için teşekkür ederim.

peki aşağıdaki ekranda kapama tarihini
IE.document.all.Item("gen__1209").Click
Set kapanisTarihi = IE.document.all("gen__1220").Value
kapinisTarihi.Copy
Cells(sat, "f").PasteSpecial
End With
bu şekilde excele yazmak istedim ama olmadı.

görüntü en sonda sorgu yaptıktan sonra beyannamenin kapanış tarihini vermektedir.



bu konuda da yardımcı olabilir misiniz.

 

[EmrExcel16]

Sorunun zamanlamayla alakalı olduğu belli idi , çözdüyseniz sorun yok. Diğer sorunuza o ekranı görmeden birşey söyleyemiyorum ama aşağıdaki gibi deneyin , mesaj sizin istediğiniz sonucu döndürüyorsa mesaj satırını silebilirsiniz.

MsgBox IE.document.all("gen__1220").innerText
Cells(sat, "f") = IE.document.all("gen__1220").innerText

 

[mahmyt]

koddan önce zamanlayıcı atınca innerText çalışıyor. Çok teşekkür ederim.

 

[EmrExcel16]

Rica ederim , iyi çalışmalar..