While Not rst.EOF
   
        temp = Trim(rst("TYPDOK"))
        Dim xFactory
        Set xFactory = Application.PropertyAp("HFactory")
        Dim xBIORec As Object
        Set xBIORec = xFactory.NewObject("BIORec")
        Dim nError
        nError = xBIORec.SetField("typDk", "" + temp)
       
        con2.Open
        sqlcmd2 = "SELECT *  FROM [terminal].[dbo].[POSITIONS] where IDDOK=" & rst("ID")
        rst2.Open sqlcmd2, con2
        While Not rst2.EOF

        nError = xBIORec.BeginSection("Pozycja dokumentu")
        temp = Trim(rst2("KOD"))
        nError = xBIORec.SetField("kod", "" + temp)
        temp = Trim(rst2("LP"))
        nError = xBIORec.SetField("lp", "" + temp)
        temp = Trim(rst2("ILOSC"))
        nError = xBIORec.SetField("ilosc", "" + temp)
        nError = xBIORec.EndSection()
   
        rst2.MoveNext
        Wend
       
        rst2.Close
        con2.Execute "UPDATE [terminal].[dbo].[DOK] SET wystawiony=1 where id=" & rst("id") & ""
        rst.MoveNext
        nError = xBIORec.BeginSection("rejestr")
        nError = xBIORec.SetField("kod", "KASA")
        nError = xBIORec.EndSection()
        Dim xFunkcja
        Set xFunkcja = xFactory.NewObject("BFunkcja")
        Dim idDok As Long
       
        idDok = xFunkcja.ImportSp(xBIORec)
     
        xFunkcja.WystawDokument(idDok)