//3,"elkskat.sc","Umieszczanie elementów księgowanych w katalogu","System wynagrodzeń",0,1.0.0,SYSTEM

// OTWIERANIE BAZY GRUP I KSIĘGOWAŃ
   int b = open KatalogFirmy() + "41grupy.dat" for base "GRUPY"
   BaseError( KatalogFirmy() + "41grupy.dat" ,4)

   int k = open KatalogFirmy() + "43kp0391.dat" for base "SCHK_ELEM"
   BaseError( KatalogFirmy() + "43kp0391.dat" ,4)


// SZUKANIE KATALOGU DLA ELEMENTÓW KSIĘGOWANYCH

   SetKey(b, "id_parent")
   SetKeySeg(b, "id_parent", 999)

   int err

   err = GetRec(b, GE )

   while !err && GetField(b, "id_parent") == 999
   
      if GetField(b,"name") == "Księgowane" then goto jestKatalog
   
   err = GetRec(b, NX )
   wend

   error "Nie znaleziono katalogu 'Księgowane' do umieszczenia elementów."

   jestKatalog:
   
   long id_katalogu = GetField(b, "id")

// KASOWANIE ELEMENTÓW PRZYPISANYCH DO KATALOGU

   long id_elementu(1)

   SetKey(b, "id_parent")
   SetKeySeg(b, "id_parent", id_katalogu)

   err = GetRec(b, GE )

   while !err && GetField(b, "id_parent") == id_katalogu
   
         grow id_elementu, 1
         id_elementu(Size(id_elementu)) = GetField(b, "id")

   err = GetRec(b, NX )
   wend

   int i
   for i = 1 to i > Size(id_elementu)
   
      SetKey(b, "id")
      SetKeySeg(b, "id", id_elementu(i))
      err = GetRec(b, EQ)

         if !err then DelRec(b)

   next i

// PRZYPISANIE ELEMENTÓW KSIĘGOWANYCH DO KATALOGU

   err = GetRec(k, FS )

   while !err

      Clear(b)
      InsRec(b)
      SetField(b,"typ", 105)
      SetField(b,"id_parent", id_katalogu)
      SetField(b,"id_join", GetField(k,"id_skladnika"))
      PutRec(b)

   err = GetRec(k, NX )   
   wend