Dim RS2

Dim Db As Database

Set Tekst = New Stream

Tekst.Open

Tekst.Position = 0

Tekst.Charset = "UTF-8"

Tekst.WriteText "<?xml version=""1.0"" encoding=""UTF-8""?>" & vbCrLf

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

 

Set Db = CurrentDb()

Set RS2 = Db.OpenRecordset("SELECT * FROM qryIZLAZMP", dbOpenDynaset)

    Do While Not RS2.EOF

'Tekst.WriteText "<?xml version=""1.0"" encoding=""UTF-8""?>" & vbCrLf

'Tekst = "<" & "Item" & "Description" & "=" & RS2!ArtNaz & "/>" & vbCrLf

 Tekst.WriteText "<" & "Item Description" & "=" & """" & RS2!ArtNaz & """" & " " & "Quantity" & "=" & """" & RS2!KOLICINA & """" & " " & "Price" & "=" & """" & RS2!PRODCIJ & """" & " " & "VatInfo=""1"" " & "Department=""4"" " & "UnitName" & "=" & """" & RS2!SIFJED & """" & " " & "/>" & vbCrLf

'Tekst.WriteText "<" & "Item" & ">" & "Description" & "=" & RS2!ArtNaz & "/>" & vbCrLf

'Tekst.WriteText "<" & "Item" & ">" & "Description" & "=" & RS2!ArtNaz1 & "/>" & vbCrLf

RS2.MoveNext

 

'Tekst.WriteText "<Payment Type=""Gotovina"" Amount=""100.95""/>" & vbCrLf

'Tekst.WriteText "<AdditionalLine Message=""Linija sa proizvoljnim tekstom 1""/>" & vbCrLf

'Tekst.WriteText "<AdditionalLine Message=""Linija sa proizvoljnim tekstom 2""/>" & vbCrLf

'Tekst.WriteText "</Item Description>" & vbCrLf

 

 

    Loop

   

      RS2.Close

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

      Tekst.WriteText "<Payment Type=""Gotovina"" " & "Amount" & "=" & """" & DSum("[PRODCIJUK]", "QryIZLAZMP") & """" & " " & "/>" & vbCrLf

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

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

      'Tekst.WriteText "<TremolFpServer>" & vbCrLf

 

   

    Set Db = Nothing

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

 Tekst.Close