vallahi bu konuda yardımcı olursan süper olur . şuan gündemde efatura var
önceden kağıda yazdırıyorduk şimdi sisteme girmek gerekiyor dediğin gibi java ile Access birleştirilip yapılabilir mi acaba harika olur.
E-fatura , E-arşiv İçin
Merhaba uMits "SOAP" ile Web Servisler aracılığıyla yapılıyor, bende şu anda onu araştırıyorum.
Ulaştırma Bakanlığı için örnek kod
servis adı ve XML yapısı değişiyor tabiki ama mantık budur.
Bu arada direk Gib yazmanıza izin veriyormu bilmiyorum?? özel entegratörler bu yöntemi kullanarak verileri alıp işliyorlar Gib'e.
servis adı ve XML yapısı değişiyor tabiki ama mantık budur.
Bu arada direk Gib yazmanıza izin veriyormu bilmiyorum?? özel entegratörler bu yöntemi kullanarak verileri alıp işliyorlar Gib'e.
Kod:
Private Sub Komut2_Click()
Dim XMLHttp As New MSXML2.XMLHttp
Dim s As String
Dim url As String
Dim user As String
Dim pass As String
Dim servis As String
url = "https://servis.turkiye.gov.tr/services/g2g/kdgm/test/uetdsesya?wsdl"
user = "999999"
pass = "999999testtest"
servis = "aracMuayeneSorgula"
s = ""
s = s & "<soapenv:Envelope xmlns:soapenv=""http://schemas.xmlsoap.org/soap/envelope/"" xmlns:uet=""http://uetds.unetws.udhb.gov.tr/"">"
s = s & " <soapenv:Header/>"
s = s & " <soapenv:Body>"
s = s & " <uet:" & servis & ">"
s = s & " <wsuser>"
s = s & " <kullaniciAdi>" & user & "</kullaniciAdi>"
s = s & " <sifre>" & pass & "</sifre>"
s = s & " </wsuser>"
s = s & " <plaka>34TEST123</plaka>"
s = s & " </uet:" & servis & ">"
s = s & " </soapenv:Body>"
s = s & "</soapenv:Envelope>"
XMLHttp.Open "POST", url, False
XMLHttp.Send s
MsgBox XMLHttp.responseText
Debug.Print XMLHttp.responseText
End Sub
Son Düzenleme: 05/01/2020, 00:14, Düzenleyen: Yandemir.
(Sebep: Eksik cümle tamamlaması)
Sayın yandemir hocam bir örnek yapabilirmisiniz...
Merhaba, hocalardan ses seda çıkmadı, bu konuda çalışma yapan varmı acaba?
Konuyu Okuyanlar: 1 Ziyaretçi