string errKh
dispatch xKontrahent = xFactory.NewObject("BKontrahent")

errKh = xKontrahent.Edit()

xKontrahent.UstawKod("AlaMaKota")
xKontrahent.nazwa = "AlaMaKota Sp. z o.o."

errKh = xKontrahent.Save()

if errKh then
  xKontrahent.Undo()
endif

while dokErr
   
   dokumId = GetLineId()
   sDokumId = using "%l",dokumId
   dk.setkey("id")
   dk.setkeyseg("id",dokumId)
   errDk= dk.GetRec(EQ)

   
   if !errDk then

   skhkod = dk.Getfield("khkod")
   skhnazwa = dk.Getfield("khnazwa")
   skhadres = dk.Getfield("khadres")
   skhdom = dk.Getfield("khdom")
   skhlokal = dk.Getfield("khlokal")
   skhmiasto = dk.Getfield("khmiasto")
   skhkodpocz = dk.Getfield("khkodpocz")
   skhnip = dk.Getfield("khnip")

//   message skhnip
   
   IF !SprawdzKh(mid(skhnazwa,1,40),skhnip) then       
      dodaj_kh(skhnazwa,skhadres,skhdom,skhlokal,skhmiasto,skhkodpocz, skhnip)
   else
      if skhnip != "" then
         KodKhDokument = PoprawNIP(skhnip)
      else
         KodKhDokument = mid(skhnazwa,1,40)
      endif
   endif

//   if dk.dk.Getfield("subtypi") == 86 then

   ior.clear()
   ior.SetField("id", sDokumId)
   //ior.SetField("bufor","1")
    //message KodKhDokument

      ior.SetField("KhKod", KodKhDokument)
         
      Errorek = EditSp(ior)
      if Errorek then
         message using "%l",errorek
      //   message "err"
      else
         print using "%s %l","Edytowano dok o id=",dokumId
         print lf
      endif
   
   else
      message "błąd otwarcia dokumentu"
   endif

   dokErr = SetTaggedPos ( NX)

wend
message "wykonano poprawnie"
NoOutput()

//-----------------------------------------------------------------------------------
string sub dodaj_kh(string khnazwa,string khadres,string khdom,string khlokal,string khmiasto,string khkodpocz, string khnip)
//-----------------------------------------------------------------------------------


   basekh kh
//   kh.setkey("nip")
//   kh.setkeyseg("nip", PoprawNIP(num))

//   kh.getrec(EQ)
//   if !kh.getrec(EQ) then
//      message "pusty NIP"
//      exit
//   else
      kh.setfield("id", 0)
      kh.setfield("flag", 0)
      kh.setfield("subtypi", 0)
      kh.setfield("typi", 0)
      kh.setfield("znaczniki", 0)
      kh.setfield("rodzaj", 3100)
      kh.setfield("katalog", 2100)
      kh.setfield("info", "0")
      kh.setfield("osoba", "")
      if khnip != "" then
         kh.setfield("kod", PoprawNIP(khnip) )
         kh.setfield("nazwa", khnazwa )
         KodKhDokument = PoprawNIP(khnip)
      else
         kh.setfield("kod", mid(khnazwa,1,40))
         kh.setfield("nazwa", khnazwa)
         KodKhDokument = mid(khnazwa,1,40)
      endif
      kh.setfield("miejscowosc", khmiasto)
      kh.setfield("ulica", khadres)
      kh.setfield("dom", khdom)
      kh.setfield("lokal",khlokal)
      kh.setfield("kodpocz", khkodpocz)
      kh.setfield("regon", "")
      kh.setfield("pesel", "")
      kh.setfield("nip", khnip)
      kh.setfield("statusUE", 0)
      kh.setfield("idkraju", 5801)
      kh.setfield("tel1", "")
      kh.setfield("tel2", "")
      kh.setfield("fax", "")
      //kh.setfield("email", GetSubElem("Seller","email", plik))
      kh.setfield("naglowek", "")
      kh.setfield("nazwisko", "")
      kh.setfield("imie", "")
      kh.setfield("idfk", 0)
      kh.setfield("idfk2", 0)
      kh.setfield("bnazwa", "")
      kh.setfield("bkonto", "")
      kh.setfield("grupaceni", 255)
      kh.setfield("upust", 0)
      kh.setfield("limiti", 0)
      kh.setfield("limitkwota", 0)
      kh.setfield("limitwaluta", "")
      kh.setfield("plattypi", 255)
      kh.setfield("plattermin", 0)
      kh.setfield("stanpl", 0)
      kh.setfield("stannl", 0)
      kh.setfield("khfk", "")
      kh.setfield("rejon", "")
      kh.setfield("formaplatn", 0)
      kh.setfield("typks", "Krajowy")
      kh.setfield("negoc", "0")
      kh.setfield("www", "")
      kh.setfield("wprowadzil", "")
      kh.setfield("datawpr", "")
      kh.setfield("zmodyfikowal", "")
      kh.setfield("datamod", "")
      kh.setfield("poledod1", "")
      kh.setfield("poledod2", "")
      kh.setfield("poledod3", "")
      kh.setfield("poledod4", "")
      kh.setfield("poledod5", "")
      kh.setfield("poledod6", "")
      kh.setfield("poledod7", "")
      kh.setfield("poledod8", "")
      kh.setfield("osfiz", 0)
      kh.setfield("zapas", "")
      kh.setfield("subtyp", "0")
      kh.setfield("typ", "0")
      kh.setfield("znacznik", "0")
      kh.setfield("grupacen","255")
      kh.setfield("plattyp","255")
      kh.setfield("limit", "0")

      kh.insrec()

//message KodKhDokument + " 2"
//   endif
endsub