ioR.clear()

      IOr.SetField("typ_dokumentu",  sTypDK)
      IOr.SetField("seria",  sSeria)
      IOr.SetField("Rejestr", sRodzaj)

      select case pn.getfield("wyplatai")

      case 0
         IOr.SetField("Rodzaj_platnosci", "wpłata")
      
      case 1 //"KW", "BW"
         IOr.SetField("Rodzaj_platnosci", "wypłata")
      
      endselect


      IOr.SetField("Rozliczona", (using "%d",iRoz) )
      IOr.SetField("Data_platnosci", sData)
      IOr.SetField("Khkod", pn.getfield("khKod"))
      IOr.SetField("opis", sOpis)

      IOr.SetField("kwota", sKwota)
      
      print WystawDokumentPlatnosci(IOr,0);Lf