Witam jest to mój pierwszy post tutaj, więc proszę o wyrozumiałość.
Od jakiegoś juz czasu męczę sie, z BIORec w vba,
Kod:
temp = Trim(rst("TYPDOK"))
Set xRec = xFactory.NewObject("BIORec")
nError = xRec.Clear
nError = xRec.SetField("typDK", " & temp & ")
nError = xRec.BeginSection("DaneKh")
temp = Trim(rst("KODKH"))
nError = xRec.SetField("khkod", " & temp & ")
nError = xRec.EndSection
nError = xRec.BeginSection("rejestr")
temp = rst("REJESTRKOD")
nError = xRec.SetField("kod", " & temp & ")
nError = xRec.EndSection()
nError = xRec.BeginSection("formaPl")
temp = rst("FORMAPLATNOSCI")
nError = xRec.SetField("nazwa", " & temp & ")
nError = xRec.EndSection()
nError = xRec.BeginSection("Pozycja dokumentu")
temp = rst("LP")
nError = xRec.SetField("LP", " temp & ")
temp = rst("KOD")
nError = xRec.SetField("kod", " & temp & ")
temp = rst("ILOSC")
nError = xRec.SetField("ilosc", " & temp & ")
nError = xRec.EndSection
nError = = xFunkcja.ImportSP(xRec)
Powyższy kod tworzy pusty dokument w buforze czy źle wypełniam BIORec ??
