+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: E-fatura , E-arşiv İçin (/konu-e-fatura-e-arsiv-icin.html)
Cvp: E-fatura , E-arşiv İçin - uMits - 03/01/2020
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.
Cvp: E-fatura , E-arşiv İçin - Yandemir - 04/01/2020
Merhaba uMits "SOAP" ile Web Servisler aracılığıyla yapılıyor, bende şu anda onu araştırıyorum.
Cvp: E-fatura , E-arşiv İçin - uMits - 04/01/2020
(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.
Cvp: E-fatura , E-arşiv İçin - Yandemir - 05/01/2020
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 SubCvp: E-fatura , E-arşiv İçin - ates2014 - 05/01/2020
Sayın yandemir hocam bir örnek yapabilirmisiniz...
Cvp: E-fatura , E-arşiv İçin - ates2014 - 08/01/2020
Merhaba, hocalardan ses seda çıkmadı, bu konuda çalışma yapan varmı acaba?