Notice: Undefined offset: 2 in /home2/icentarb/public_html/icentar/classes/class.permissions.php on line 735
Dim rs2 Dim db As Database Set Tekst = New Stream ''Ovde je to što pitaš Open "C:\Prodaja\" & Me.BROIZD & " Racun.xml" For Output As 2 'Tekst.Open 'Tekst.Position = 0 'Tekst.Charset = "IBM852" Print #2, "IBM852" Print #2, "" & vbCrLf Print #2, "" & vbCrLf Set db = CurrentDb() Set rs2 = db.OpenRecordset("SELECT * FROM qryIZLAZMP WHERE BROULIZ='" & Me.BROIZD & "'", dbOpenDynaset) Do While Not rs2.EOF Print #2, "<" & "Item Description" & "=" & """" & rs2!TvojNaziv & """" & " " & "Quantity" & "=" & """" & rs2!TvojaKolicina & """" & " " & "Price" & "=" & """" & rs2!TvojaCijena & """" & " " & "VatInfo" & "=" & """" & rs2!TvojPorez(PDV = 2, AkoNijePDV = 1) & """" & " " & "Department" & "=" & """" & rs2!TvojeOdjeljenje & """" & " " & "UnitName" & "=" & """" & rs2!TvojaJedinicaMjere & """" & " " & "Discount" & "=" & """" & rs2!TvojPopust & """" & " " & "/>" & vbCrLf rs2.MoveNext Loop rs2.Close Print #2, "" & vbCrLf Print #2, "" & vbCrLf Print #2, "" & vbCrLf Print #2, "" & vbCrLf Tekst.WriteText "" & v