Centar za edukaciju-BiH

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"