Notice: Undefined offset: 2 in /home2/icentarb/public_html/icentar/classes/class.permissions.php on line 735
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 = "UTF-8" Tekst.WriteText "" & vbCrLf Tekst.WriteText "" & 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"" " & " " & "DSC" & "=" & """" & rs2!ArtNaz & """" & " " & "PRC" & "=" & """" & rs2!Cijena & """" & " " & "AMN" & "=" & """" & rs2!KOLICINASAD & """" & " " & "/>" & vbCrLf rs2.MoveNext Loop rs2.Close Tekst.WriteText "" & vbCrLf 'Tekst.WriteText "" & vbCrLf 'Tekst.WriteText "" & vbCrLf 'Tekst.WriteText "" & vbCrLf 'Tekst.WriteText "" & vbCrLf 'Tekst.WriteText "" & vbCrLf Tekst.WriteText "" & vbCrLf 'Tekst.WriteText "" & vbCrLf Set db = Nothing Tekst.SaveToFile "C:\HCP\TO_FP\RCP_" & Me.BROIZD & ".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 "