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"" standalone=""yes""?>" & vbCrLf

 

Tekst.WriteText "<RECEIPT>" & vbCrLf

Set db = CurrentDb()

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

    Do While Not rs2.EOF

 

 Tekst.WriteText "<" & "DATA BCR" & "=" & """" & rs2!SIFART & """" & " " & "VAT" & "=" & """" & rs2!ArtGPorez & """" & " " & "MES" & "=" & """" & rs2!MES & """" & " " & "DEP=""1"" " & " " & "DESC" & "=" & """" & rs2!ArtNaz & """" & " " & "PRC" & "=" & """" & rs2!Cijena & """" & " " & "AMN" & "=" & """" & rs2!KOLICINASAD & """" & " " & "/>" & vbCrLf

 

rs2.MoveNext

 

    Loop

   

      rs2.Close

     

      Tekst.WriteText "<DATA PAY=""0"" " & "Amount" & "=" & """" & Me.Sveukupno & """" & " " & "/>" & vbCrLf

      Tekst.WriteText "<DATA PAY=""1"" Amount=""0""/>" & vbCrLf

      Tekst.WriteText "<DATA PAY=""2"" Amount=""0""/>" & 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 "</" & "RECEIPT" & ">" & vbCrLf

      'Tekst.WriteText "<TremolFpServer>" & vbCrLf

 

   

    Set db = Nothing

Tekst.SaveToFile "C:\HCP\TO_FP\RCP_104500.XML", adSaveCreateOverWrite

 Tekst.Close

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"" standalone=""yes""?>" & vbCrLf

    Set db = Nothing

Tekst.SaveToFile "C:\HCP\TO_FP\CMD.OK", adSaveCreateOverWrite

 Tekst.Close