Rem Inicijalizacija postavki
strPostavke = "SELECT * FROM tblPostavke"
Set rsp = CurrentDb.OpenRecordset(strPostavke)
Dim VelicinaPapira
Dim PosPrinter
Dim FolderSlika
Dim PrintEXE
Dim Stopa
VelicinaPapira = rsp!Papir
PosPrinter = rsp!Printer
FolderSlika = rsp!FolderSlika
PrintEXE = rsp!PrintEXE
Stopa = rsp!Stopa
Dim strSQLF As String
Dim http As Object
Dim url As String
Dim body As String
Dim response As String
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim artikli As String
Dim NacinPlacanja As String
Dim amount As Double
Dim items As String
Dim i As Integer
' Definisite URL
url = rsp!IPAdresa & ":3566/api/invoices"
' Kreirajte XMLHTTP objekat
Set http = CreateObject("MSXML2.ServerXMLHTTP.6.0")
' Prikupi podatke iz tabele
strSQLF = "SELECT * FROM QIzlaz WHERE QIzlaz.BrojRacuna = " & BrojRacuna
Set rs = CurrentDb.OpenRecordset(strSQLF)
' Inicijalizuj items
items = ""
While Not rs.EOF
' Dodaj podatke za svaki artikl
items = items & "{""name"": """ & rs!OpisArt & """, ""labels"": [""" & Stopa & """], ""totalAmount"": " & (rs!Iznos) & ", ""unitPrice"": " & rs!MPC & ", ""quantity"": " & rs!SumOfKolicina & "},"
amount = amount + rs!Iznos ' Ukupni iznos
rs.MoveNext
Wend
' Ukloni posljednji zarez
If Right(items, 1) = "," Then
items = Left(items, Len(items) - 1)
End If
rs.Close
Set rs = Nothing
Set db = Nothing
If rsp!Papir = 80 Then
' Formatiraj telo zahteva
body = "{""print"": false, ""renderReceiptImage"": true, ""receiptLayout"": ""Slip"", ""receiptImageFormat"": ""Png"", ""receiptSlipWidth"": 400, ""receiptSlipFontSizeNormal"": 23, ""receiptSlipFontSizeLarge"": 27, ""invoiceRequest"": {""invoiceType"": """ & Me.VrstaRN & """, ""transactionType"": ""Sale"", ""payment"": [{""amount"": """ & Me.Uplata & """, ""paymentType"": """ & Me.NP & """}], ""items"": [" & items & "], ""cashier"": """ & Me.Prodavac & """}}"
Else
body = "{""print"": false, ""renderReceiptImage"": true, ""receiptLayout"": ""Slip"", ""receiptImageFormat"": ""Png"", ""receiptSlipWidth"": 300, ""receiptSlipFontSizeNormal"": 20, ""receiptSlipFontSizeLarge"": 23, ""invoiceRequest"": {""invoiceType"": """ & Me.VrstaRN & """, ""transactionType"": ""Sale"", ""payment"": [{""amount"": """ & Me.Uplata & """, ""paymentType"": """ & Me.NP & """}], ""items"": [" & items & "], ""cashier"": """ & Me.Prodavac & """}}"
End If
Rem Debug.Print body
' Otvorite HTTP konekciju
http.Open "POST", url, False
' Dodajte zaglavlja
http.setRequestHeader "Authorization", "Bearer " & rsp!ApiKljuc
http.setRequestHeader "RequestId", "12385"
http.setRequestHeader "Content-Type", "application/json"
rsp.Close
Set rsp = Nothing
' Posaljite zahtjev
http.send body
' Dobijte odgovor
response = http.responseText
Dim strData As String
Dim str As String
Dim strTempPath As String
str = Mid(ExtractBase64String(response), 23)
strTempPath = FolderSlika
Open strTempPath For Binary As #1
Put #1, 1, DecodeBase64(str)
Close #1
' Oslobodite resurse
Set http = Nothing
Dim exePath As String
Dim parameters As String
exePath = PrintEXE
parameters = PosPrinter & "," & FolderSlika
shell exePath & " " & parameters, vbNormalFocus
DoCmd.OpenForm "IspisRacuna"
Portal
iCentar
Statistike
Procitajte pravila
Donacije
Pretrazi
Tim
Registriraj se
Vazni alati
Razno. veze Aktivne teme ... Vijesti (RSS, ...)
Prijavi se
Verzija za stampu
Racunari i oprema
Softver i op. sistemi
Hardver i mreze
Programiranje i baze
Nauka
Tehnika
Dom i porodica
Biznis
Sport i rekreacija
Zabava
Zanimljivosti