#include "dbutil.sci"
#include "fkutil.sci"
#include "wrap.sci"


long    idZlisty, ZrodloDb
int errDo

#define XROWSDATA userObject
   idZlisty   = XROWSDATA.item( 1 ).id

BASEHANDLE bKt, bKth, bD,bDo

   bD = dbOpenDokBase( indeksRoku(), 1, 0 ) // bufor
      bDo = bD
      SetKey( bDo, "id" )
      SetKeySeg( bDo, "id", XROWSDATA.item( 1 ).id )
      errDo = GetRec( bDo, EQ )

         if  dbNrEwToStr_Dok(bDo)==XROWSDATA.item( 1 ).numer Then
               ZrodloDb = 1
         else
               ZrodloDb = 0
         endif

      if ZrodloDb == 0 then
         DbClose(bD)
            bD = dbOpenDokBase( indeksRoku(), ZrodloDb, 0 )
            bDo = bD
      endif
               SetKey( bDo, "id" )
               SetKeySeg( bDo, "id", val(Arg0) )
               errDo = GetRec( bDo, EQ )

           
   if ZrodloDb == 1 Then
      message("Dane pobrane z bufora")
   else
      message("Dane pobrane z ksiąg")
   endif

message(using "%d",GetField( bDo, "id"))