Notice: Undefined offset: 2 in /home2/icentarb/public_html/icentar/classes/class.permissions.php on line 735
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) = " ' Temp = "" End If