BaseKH kh
kh.Open()
kh.SetKey ("id")
kh.SetKeySeg("id", 0)

kh.SetField("kod", "Kod")
kh.SetField("nazwa", "Nazwa")
kh.SetField("miejscowosc", "Miasto")
kh.SetField("ulica", "Ulica")
kh.SetField("kodpocz", "00-000")
kh.SetField("dom", "8")
kh.SetField("lokal", "")
kh.SetField("nip", "123-678-23-45")

err = kh.InsRec()

BaseKH kh
int err

kh.SetKey ("id")
kh.SetField("id", 0)
err = kh.InsRec()
kh.Clear()

kh.SetField("kod", "Kod")
kh.SetField("nazwa", "Nazwa")
kh.SetField("miejscowosc", "Miasto")
kh.SetField("ulica", "Ulica")
kh.SetField("kodpocz", "00-000")
kh.SetField("dom", "8")
kh.SetField("lokal", "")
kh.SetField("nip", "123-678-23-45")
err = kh.PutRec()
err = kh.DoUpdate()