'DEFINISANJE PROMENLJIVIH '........................... Dim rs2 Dim db As Database Set Tekst = New Stream Tekst.Open Tekst.Position = 0 Tekst.Charset = "UTF-8" Tekst.WriteText "" & vbCrLf Tekst.WriteText "" & vbCrLf Set db = CurrentDb() Set rs2 = db.OpenRecordset("SELECT * FROM qryProba WHERE Broj='" & Me.Broj & "'", dbOpenDynaset) Do While Not rs2.EOF Tekst.WriteText "<" & "DATA BCR" & "=" & """" & rs2!SIFART & """" & " " & "VAT" & "=" & """" & rs2!ArtGPorez & """" & " " & "MES" & "=" & """" & rs2!MES & """" & " " & "DEP=""1"" " & " " & "DSC" & "=" & """" & rs2!ArtNaz & """" & " " & "PRC" & "=" & """" & rs2!Cijena & """" & " " & "AMN" & "=" & """" & rs2!KOLICINASAD & """" & " " & "/>" & vbCrLf rs2.MoveNext Loop rs2.Close Tekst.WriteText "" & vbCrLf Tekst.WriteText "" & vbCrLf Set db = Nothing Tekst.SaveToFile "C:\HCP\TO_FP\RCP_" & Me.BrojRac & ".XML", adSaveCreateOverWrite Tekst.Close Dim rs4 Dim db4 As Database Set Tekst4 = New Stream Tekst4.Open Tekst4.Position = 0 Tekst4.Charset = "UTF-8" Tekst4.WriteText "" & vbCrLf 'Set db4 = Nothing Tekst4.SaveToFile "C:\HCP\TO_FP\CMD.OK", adSaveCreateOverWrite Tekst4.Close ProvjeraP (Me.Broj)