Notice: Undefined offset: 2 in /home2/icentarb/public_html/icentar/classes/class.permissions.php on line 735
Dim Rs1 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 'Tekst.WriteText "<" & "PaketniUvozObrazaca" & ">" & vbCrLf Tekst.WriteText "<" & "PodaciOPoslodavcu" & ">" & vbCrLf Tekst.WriteText "" & "" & DLookup("FirMB", "tblFirma") & "" & "" & vbCrLf Tekst.WriteText "" & "" & DLookup("FirNaziv", "tblFirma") & "" & "" & vbCrLf Tekst.WriteText "" & "" & "" & DLookup("CountOfSifra", "QryBrojDjelUkupno") & "" & "" & vbCrLf Tekst.WriteText "" & "" & Me.DatumIsplate & "" & "" & vbCrLf Tekst.WriteText "" & vbCrLf Set DB = CurrentDb() Set Rs1 = DB.OpenRecordset("Select distinct sifra FROM qry1022XML", dbOpenDynaset) 'Set Rs1 = Db.OpenRecordset("Select * FROM qry1022XML") Do While Not Rs1.EOF Tekst.WriteText "<" & "Obrazac1022" & ">" & vbCrLf Tekst.WriteText "<" & "Dio1PodaciOPoslodavcuIPoreznomObvezniku" & ">" & vbCrLf Tekst.WriteText "" & "" & DLookup("FirMB", "1qry", "Sifra='" & Rs1!Sifra & "'") & "" & "" & vbCrLf Tekst.WriteText "" & "" & DLookup("FirNaziv", "1qry", "Sifra='" & Rs1!Sifra & "'") & "" & "" & vbCrLf Tekst.WriteText "" & "" & DLookup("FirAdresa", "1qry", "Sifra='" & Rs1!Sifra & "'") & "" & "" & vbCrLf Tekst.WriteText "" & "" & DLookup("Jmbg", "1qry", "Sifra='" & Rs1!Sifra & "'") & "" & "" & vbCrLf Tekst.WriteText "" & "" & DLookup("IMEPREZIME", "1qry", "Sifra='" & Rs1!Sifra & "'") & "" & "" & vbCrLf Tekst.WriteText "" & "" & DLookup("Adresa", "1qry", "Sifra='" & Rs1!Sifra & "'") & "" & "" & vbCrLf Tekst.WriteText "" & "" & Me.Text10 & "" & "" & vbCrLf Tekst.WriteText "" & vbCrLf Tekst.WriteText "<" & "Dio2PodaciOPrihodimaDoprinosimaIPorezu" & ">" & vbCrLf Set DB = CurrentDb() Set Rs2 = DB.OpenRecordset("SELECT * FROM qryIspisGIP1022XML WHERE sifra='" & Rs1!Sifra & "' order by Mjesec") Do While Not Rs2.EOF Tekst.WriteText "<" & "PodaciOPrihodimaDoprinosimaIPorezu" & ">" & vbCrLf Tekst.WriteText "" & "" & Rs2!Mjesec & "" & "" & vbCrLf Tekst.WriteText "" & "" & Rs2!IsplataZaMjesecIGodinu & "" & "" & vbCrLf Tekst.WriteText "" & "" & Rs2!VrstaIsplate & "" & "" & vbCrLf Tekst.WriteText "" & "" & Rs2!IznosPrihodaUNovcuSAD & "" & "" & vbCrLf Tekst.WriteText "" & "" & Rs2!IznosPrihodaUSTVSAD & "" & "" & vbCrLf Tekst.WriteText "" & "" & Rs2!BrutoPlacaSAD & "" & "" & vbCrLf Tekst.WriteText "" & "" & Rs2!IznosZaPenzijskoInvalidskoOsiguranjeSAD & "" & "" & vbCrLf Tekst.WriteText "" & "" & Rs2!IznosZaZdravstvenoOsiguranjeSAD & "" & "" & vbCrLf Tekst.WriteText "" & "" & Rs2!IznosZaOsiguranjeOdNezaposlenostiSAD & "" & "" & vbCrLf Tekst.WriteText "" & "" & Rs2!UkupniDoprinosiSAD & "" & "" & vbCrLf Tekst.WriteText "" & "" & Rs2!PlacaBezDoprinosaSAD & "" & "" & vbCrLf Tekst.WriteText "" & "" & Rs2!FaktorLicnihOdbitakaPremaPoreznojKarticiSAD & "" & "" & vbCrLf Tekst.WriteText "" & "" & Rs2!IznosLicnogOdbitkaSAD & "" & "" & vbCrLf Tekst.WriteText "" & "" & Rs2!OsnovicaPorezaSAD & "" & "" & vbCrLf Tekst.WriteText "" & "" & Rs2!IznosUplacenogPorezaSAD & "" & "" & vbCrLf Tekst.WriteText "" & "" & Rs2!NetoPlacaSAD & "" & "" & vbCrLf Tekst.WriteText "" & "" & Rs2!DatumUplate & "" & "" & vbCrLf Tekst.WriteText "" & vbCrLf Rs2.MoveNext Loop Rs2.Close Tekst.WriteText "<" & "Ukupno" & ">" & vbCrLf Tekst.WriteText "" & "" & DLookup("IznosPrihodaUNovcuSAD", "qryIspisGIP1022UKUPNOXML", "sifra='" & Rs1!Sifra & "'") & "" & "" & vbCrLf Tekst.WriteText "" & "" & DLookup("IznosPrihodaUSTVSAD", "qryIspisGIP1022UKUPNOXML", "sifra='" & Rs1!Sifra & "'") & "" & "" & vbCrLf Tekst.WriteText "" & "" & DLookup("BrutoPlacaSAD", "qryIspisGIP1022UKUPNOXML", "sifra='" & Rs1!Sifra & "'") & "" & "" & vbCrLf Tekst.WriteText "" & "" & DLookup("IznosZaPenzijskoInvalidskoOsiguranjeSAD", "qryIspisGIP1022UKUPNOXML", "sifra='" & Rs1!Sifra & "'") & "" & "" & vbCrLf Tekst.WriteText "" & "" & DLookup("IznosZaZdravstvenoOsiguranjeSAD", "qryIspisGIP1022UKUPNOXML", "sifra='" & Rs1!Sifra & "'") & "" & "" & vbCrLf Tekst.WriteText "" & "" & DLookup("IznosZaOsiguranjeOdNezaposlenostiSAD", "qryIspisGIP1022UKUPNOXML", "sifra='" & Rs1!Sifra & "'") & "" & "" & vbCrLf Tekst.WriteText "" & "" & DLookup("UkupniDoprinosiSAD", "qryIspisGIP1022UKUPNOXML", "sifra='" & Rs1!Sifra & "'") & "" & "" & vbCrLf Tekst.WriteText "" & "" & DLookup("PlacaBezDoprinosaSAD", "qryIspisGIP1022UKUPNOXML", "sifra='" & Rs1!Sifra & "'") & "" & "" & vbCrLf Tekst.WriteText "" & "" & DLookup("IznosLicnogOdbitkaSAD", "qryIspisGIP1022UKUPNOXML", "sifra='" & Rs1!Sifra & "'") & "" & "" & vbCrLf Tekst.WriteText "" & "" & DLookup("OsnovicaPorezaSAD", "qryIspisGIP1022UKUPNOXML", "sifra='" & Rs1!Sifra & "'") & "" & "" & vbCrLf Tekst.WriteText "" & "" & DLookup("IznosUplacenogPorezaSAD", "qryIspisGIP1022UKUPNOXML", "sifra='" & Rs1!Sifra & "'") & "" & "" & vbCrLf Tekst.WriteText "" & "" & DLookup("NetoPlacaSAD", "qryIspisGIP1022UKUPNOXML", "sifra='" & Rs1!Sifra & "'") & "" & "" & vbCrLf Tekst.WriteText "" & vbCrLf Tekst.WriteText "" & vbCrLf Tekst.WriteText "<" & "Dio3IzjavaPoslodavcaIsplatioca" & ">" & vbCrLf Tekst.WriteText "" & "" & DLookup("FirMB", "tblFirma") & "" & "" & vbCrLf Tekst.WriteText "" & "" & Me.DatumIsplate & "" & "" & vbCrLf Tekst.WriteText "" & "" & DLookup("FirNaziv", "tblFirma") & "" & "" & vbCrLf Tekst.WriteText "" & vbCrLf Tekst.WriteText "<" & "Dokument" & ">" & vbCrLf Tekst.WriteText "" & "" & "Novi" & "" & "" & vbCrLf Tekst.WriteText "" & vbCrLf Tekst.WriteText "" & vbCrLf Rs1.MoveNext Loop 'Tekst.WriteText "" & vbCrLf Rs1.Close Tekst.WriteText "