Notice: Undefined offset: 2 in /home2/icentarb/public_html/icentar/classes/class.permissions.php on line 735
Private Sub XML_Click() 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 = "IBM852" 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 "<" & "Item Description" & "=" & """" & rs2!ArtNaz & """" & " " & "Quantity" & "=" & """" & rs2!KOLICINASAD & """" & " " & "Price" & "=" & """" & rs2!Cijena & """" & " " & "VatInfo" & "=" & """" & rs2!ArtGPorez & """" & " " & "Department=""1"" " & "UnitName" & "=" & """" & rs2!SIFJED & """" & " " & "/>" & 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.Wri