Function Zapisxml()

Dim Tabele(1 To 2) As String

Dim Putanja As String

Dim XmlFile As String

Dim Temp As String

 

Tabele(1) = "Zahtjev" ?osnovna tabela

Tabele(2) = "Parametar"  ' Pridodata tabela

Putanja = "c:\Tring\xml\" 'Putanja zapisa bez imena filea

XmlFile = "stampatinefiskalnidokument.xml" ' Ime xml fajla

 

Application.ExportXML acExportTable, Tabele(1), Putanja & "sys.dll", , , , acUTF8, , , Tabele(2)

 

Close #1

Close #2

 

Open Putanja & "sys.dll" For Input As 1

Open Putanja & XmlFile For Output As 2

    While Not EOF(1)

    Line Input #1, Temp

        If Left(Temp, 9) = "<dataroot" Then

        '<Zahtjev xmlns:xsi="http://www.w3.org/...instance" xmlns:xsd="http://www.w3.org/...Schema">

       '<Zahtjev xmlns:xsi="http://www.w3.org/...instance" xmlns:xsd="http://www.w3.org/...Schema">

       Temp = "<Zahtjev xmlns:xsi=" & Chr(34) & "http://www.w3.org/...instance" & Chr(34) _

        & " xmlns:xsd=" & Chr(34) & "http://www.w3.org/...Schema" & Chr(34) & ">"

        End If

        If Left(Temp, 11) = "</dataroot>" Then

        Temp = "</Zahtjev>"

        End If

    Print #2, Temp

    Wend

Close #1

Close #2

End Function