Notice: Undefined offset: 2 in /home2/icentarb/public_html/icentar/classes/class.permissions.php on line 735
Private Sub XML_Click() 'DEFINISANJE PROMENLJIVIH '........................... Dim rs2 As DAO.Recordset Dim db As DAO.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 Dim NazivA As String NazivA = rs2!ArtNaz NazivA = Naziv_Art(NazivA) If (DLookup("IspisF", "serials") = "Kataloski") Then If (rs2!DS_VALUEBroj > 0) Then Tekst.WriteText "<" & "DATA BCR" & "=" & """" & rs2!FSIFRA & """" & " " & "VAT" & "=" & """" & rs2!ArtGPorez & """" & " " & "MES" & "=" & """" & rs2!MES & """" & " " & "DEP=""1"" " & " " & "DSC" & "=" & """" & NazivA & """" & " " & "PRC" & "=" & """" & rs2!Cijena & """" & " " & "AMN" & "=" & """" & rs2!KOLICINASAD & """" & " " & "DS_VALUE" & "=" & """" & rs2!DS_VALUEFiskal & """" & " " & "DISCOUNT=""True"" " & "/>" & vbCrLf Else Tekst.WriteText "<" & "DATA BCR" & "=" & """" & rs2!FSIFRA & """" & " " & "VAT" & "=" & """" & rs2!ArtGPorez & """" & " " & "MES" & "=" & """" & rs2!MES & """" & " " & "DEP=""1"" " & " " & "DSC" & "=" & """" & NazivA & """" & " " & "PRC" & "=" & """" & rs2!Cijena & """" & " " & "AMN" & "=" & """" & rs2!KOLICINASAD & """" & " " & "/>" & vbCrLf End If Else If (rs2!DS_VALUEBroj > 0) Then Tekst.WriteText "<" & "DATA BCR" & "=" & """" & rs2!SIFART & """" & " " & "VAT" & "=" & """" & rs2!ArtGPorez & """" & " " & "MES" & "=" & """" & rs2!MES & """" & " " & "DEP=""1"" " & " " & "DSC" & "=" & """" & NazivA & """" & " " & "PRC" & "=" & """" & rs2!Cijena & """" & " " & "AMN" & "=" & """" & rs2!KOLICINASAD & """" & " " & "DS_VALUE" & "=" & """" & rs2!DS_VALUEFiskal & """" & " " & "DISCOUNT=""True"" " & "/>" & vbCrLf Else Tekst.WriteText "<" & "DATA BCR" & "=" & """" & rs2!SIFART & """" & " " & "VAT" & "=" & """" & rs2!ArtGPorez & """" & " " & "MES" & "=" & """" & rs2!MES & """" & " " & "DEP=""1"" " & " " & "DSC" & "=" & """" & NazivA & """" & " " & "PRC" & "=" & """" & rs2!Cijena & """" & " " & "AMN" & "=" & """" & rs2!KOLICINASAD & """" & " " & "/>" & vbCrLf End If End If 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 As DAO.Recordset Dim db4 As DAO.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 DoCmd.SetWarnings False DoCmd.RunSQL "UPDATE GLSTAVKEMP1 SET FiskalniIspis='" & "D" & "' WHERE BROULIZ='" & Me.BROIZD & "'" DoCmd.SetWarnings True 'ProvjeraP (Me