Private Sub XML_Click()

If IsNull(DLookup("BROULIZ", "STAVKEMP1", "BROULIZ='" & Me.BROIZD & "'")) Then

MsgBox "Ne postoje podaci za ispis,niste unijeli artikle za prodaju!", vbExclamation, "Obavijest"

Exit Sub

End If

'DEFINISANJE PROMENLJIVIH

'...........................

Dim rs2

Dim db As Database

Set Tekst = New Stream

Tekst.Open

Tekst.Position = 0

Tekst.Charset = "IBM852"

Tekst.WriteText "<?xml version=""1.0"" encoding=""IBM852""?>" & vbCrLf

Tekst.WriteText "<TremolFpServer Command=""Receipt"" Description=""*** RAUN ***"">" & vbCrLf

 

Set db = CurrentDb()

Set rs2 = db.OpenRecordset("SELECT * FROM qryIZLAZMP WHERE BROULIZ='" & Me.BROIZD & "'", dbOpenDynaset)

    Do While Not rs2.EOF

 

 Tekst.WriteText "<" & "Item Description" & "=" & """" & rs2!ArtNaz & """" & " " & "Quantity" & "=" & """" & rs2!KOLICINASAD & """" & " " & "Price" & "=" & """" & rs2!Cijena & """" & " " & "VatInfo" & "=" & """" & rs2!ArtGPorez & """" & " " & "Department=""1"" " & "UnitName" & "=" & """" & rs2!SIFJED & """" & " " & "/>" & vbCrLf

 

rs2.MoveNext

 

    Loop

   

      rs2.Close

      Tekst.WriteText "<Payment Type=""Virman"" Amount=""0""/>" & vbCrLf

      Tekst.WriteText "<Payment Type=""Gotovina"" " & "Amount" & "=" & """" & Me.Sveukupno & """" & " " & "/>" & vbCrLf

      'Tekst.WriteText "<AdditionalLine Message=""Hvala na posjeti""/>" & vbCrLf

      Tekst.WriteText "<AdditionalLine Message=" & """" & DLookup("PodRac2", "tblPod") & """" & " " & "/>" & vbCrLf

      Tekst.WriteText "<AdditionalLine Message=" & """" & Me.BROIZD & """" & " " & "/>" & vbCrLf

   Tekst.WriteText "</" & "TremolFpServer" & ">" & vbCrLf

      'Tekst.WriteText "<TremolFpServer>" & vbCrLf

 

   

    Set db = Nothing

Tekst.SaveToFile "C:\Prodaja\Miro.xml", adSaveCreateOverWrite

 Tekst.Close

End Sub