[HMF 2011a] wystawienie dokumentu sprzedaży
Witam,
Od dłuższego czasu próbuje wystawić paragon w VBA jednak utknąłem już całkiem.
Udało mi sie już wystawić dokument do bufora za pośrednictwem BIORec, ale nie wiem jak użyć metody BFunkcji.wystawdokument("idDk=X baza=Y komunikaty=Z AutoDk=V")
O to kod wystawiania dokumentu:
Kod:
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)
Proszę o podpowiedź jak wystawić dokument z bufora, bo funkcja wystawdokument wymaga parametru Y - identyfikator bazy dokumentu, którego niestety zielonego pojęcia nie mam skąd wygrzebać
