vallahi bu konuda yardımcı olursan süper olur . şuan gündemde efatura var
önceden kağıda yazdırıyorduk şimdi sisteme girmek gerekiyor
birleştirilip yapılabilir mi acaba harika olur.
Merhaba uMits "SOAP" ile Web Servisler aracılığıyla yapılıyor, bende şu anda onu araştırıyorum.
(04/01/2020, 00:39)Yandemir yazdı: Merhaba uMits "SOAP" ile Web Servisler aracılığıyla yapılıyor, bende şu anda onu araştırıyorum.
Bulursanız yardım mesajınızı bekliyorum, ilginiz için teşekkür iyi çalışmalar.
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.
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
Sayın yandemir hocam bir örnek yapabilirmisiniz...
Merhaba, hocalardan ses seda çıkmadı, bu konuda çalışma yapan varmı acaba?