Dim tekst As Stream
Dim rst, rstUs, rstUstanova, rstSanMedMat, rstAtribut As Recordset
Dim fld, fldUs, fldUstanova, fldSanMedMat, fldAtribut As Field
Dim Ime As String
Dim int_Fak, int_Ust, int_Osig, int_Usl, int_Atr As Integer


Dim SQLUstanova As String
Dim SQLOsiguranik As String
Dim SQLUsluga As String
Dim SQLAtribut As String
Dim SQLSanMedMat As String

'Definisemo naziv xml dokumenta
Ime = "El_Faktura_" & Format(Date, "dd_mm_yyyy")

'Ovde treba



Set tekst = New Stream
tekst.Open
tekst.Position = 0
tekst.Charset = "UTF-8"

'Ovde pocinjemo

tekst.WriteText "<?xml version=""1.0"" encoding=""UTF-8""?>" & vbCrLf
tekst.WriteText "<Faktura>" & vbCrLf
tekst.WriteText "" & vbCrLf

Dim g As Integer
g = Me.ID_Fakture.Value

'Formira upit na bazi uslova sa forme

SQLUstanova = "select * from Ustanova where ID_Fakture=" & g


Set rstUstanova = CurrentDb.OpenRecordset(SQLUstanova)

Do Until rstUstanova.EOF
tekst.WriteText "<Ustanova>" & vbCrLf

For Each fldUstanova In rstUstanova.Fields
Dim f As String
f = fldUstanova.Name
If f = "ID_Fakture" Then
int_Fak = rstUstanova(fldUstanova.Name)
Else
If f = "ID_Ustanove" Then
Else

tekst.WriteText "<" & fldUstanova.Name & ">" & rstUstanova(fldUstanova.Name) & "<" & fldUstanova.Name & "/>" & vbCrLf
End If
End If

Next
tekst.WriteText "</Ustanova>" & vbCrLf
rstUstanova.MoveNext
Loop



'Pocetak taga Osiguranik


'Formira se upit sqlOsiguranik

SQLOsiguranik = "Select * from Osiguranik where ID_Fakture=" & g


Set rst = CurrentDb.OpenRecordset(SQLOsiguranik)

Do Until rst.EOF
tekst.WriteText "<Osiguranik>" & vbCrLf

'Definise upis za svako polje

For Each fld In rst.Fields
Dim s As String
s = fld.Name

If s = "ID_Fakture" Then
'Ne radi nista
int_Fak = rst(fld.Name)

Else
If s = "ID_Osiguranika" Then
int_Osig = rst(fld.Name)

Else

'Definise upit za Usluge

SQLUsluga = "SELECT * FROM usluga where Usluga.id_Osiguranika=" & int_Osig

tekst.WriteText "<" & fld.Name & ">" & rst(fld.Name) & "<" & fld.Name & "/>" & vbCrLf
End If
End If
Next

Set rstUs = CurrentDb.OpenRecordset(SQLUsluga)
Do Until rstUs.EOF
tekst.WriteText "<Usluga>" & vbCrLf

For Each fldUs In rstUs.Fields
Dim usl As String
usl = fldUs.Name

If usl = "ID_Osiguranika" Then
'Ne radi nista
Else

If usl = "ID_Usluge" Then
int_Usl = rstUs(fldUs.Name)

Else

'Definise upit za SanMedMat i za atribut

SQLSanMedMat = "Select * from SanMedMat where ID_Usluge=" & int_Usl
SQLAtribut = "Select * from Usluga_atribut where ID_Usluge=" & int_Usl

tekst.WriteText "<" & fldUs.Name & ">" & rstUs(fldUs.Name) & "<" & fldUs.Name & "/>" & vbCrLf
End If
End If
Next

Set rstSanMedMat = CurrentDb.OpenRecordset(SQLSanMedMat)
Do Until rstSanMedMat.EOF
tekst.WriteText "<SanMedMat>" & vbCrLf

For Each fldSanMedMat In rstSanMedMat.Fields
Dim smm As String
smm = fldSanMedMat.Name

If smm = "ID_Usluge" Or smm = "ID_sanmedmat" Then
'Ne radi nista
Else

tekst.WriteText "<" & fldSanMedMat.Name & ">" & rstSanMedMat(fldSanMedMat.Name) & "<" & fldSanMedMat.Name & "/>" & vbCrLf
End If
Next

tekst.WriteText "</SanMedMat>" & vbCrLf
rstSanMedMat.MoveNext
Loop

'Sad ubacamo Atribut
'**************************************************************************************************************************

Set rstAtribut = CurrentDb.OpenRecordset(SQLAtribut)
Do Until rstAtribut.EOF
tekst.WriteText "<Usluga_atribut>" & vbCrLf

For Each fldAtribut In rstAtribut.Fields
Dim atr As String
atr = fldAtribut.Name

If atr = "ID_Usluge" Or atr = "ID_Atributa" Then
'Ne radi nista
Else

tekst.WriteText "<" & fldAtribut.Name & ">" & rstAtribut(fldAtribut.Name) & "<" & fldAtribut.Name & "/>" & vbCrLf
End If
Next

tekst.WriteText "</Usluga_atribut>" & vbCrLf
rstAtribut.MoveNext
Loop

tekst.WriteText "</Usluga>" & vbCrLf
rstUs.MoveNext
Loop
rst.MoveNext
tekst.WriteText "</Osiguranik>" & vbCrLf

Loop


tekst.WriteText "</Faktura>"
tekst.SaveToFile "C:\" & Ime & ".xml", adSaveCreateOverWrite
tekst.Close
rst.Close
rstUs.Close
rstUstanova.Close
rstSanMedMat.Close
rstAtribut.Close