       dpok = open("kpok")
       for i = 1 to size(dpok)
          getlast(dpok)
          delete(dpok)
       next
       d = open("60")
       ds = open("s60")
       dp = open("spsub")
       putkey(ds,2)
       for i = 1 to size(ds)
          if i = 1 then getfirst(ds)
          if i != 1 then getnext(ds)
          kodrm = 'Раб.место'.ds
          nprov = 'N_проводки'.ds
          if trim('Db_счета'.ds) != "60" then goto 100
          kredit = trim('Kr_счета'.ds)
          dat = 'Дата'.ds
          doc = 'Документ'.ds
          sum = 'Сумма'.ds
          rem Дебет 60 счета, проверим сальдо
          sub = 'Db_расчеты'.ds
          if Find(d,1,1,sub) != 0 then goto 100
          if 'KrS_конец'.d = 0.0 then goto 200
          rem Кредитовое сальдо субсчета больше 0.0 - делаем запись в книгу
          proc_nds = 'Проц.НДС'.d
          data_doc = 'Дата_док.'.d
          data_post = 'Дата_пост.'.d
          data_opr = 'Дата_опр.'.d
          nazv = 'Название'.d
          inn = ""
          kod_okonh = ""
          kod_okpo = ""
          kod = 'Код'.d
          if Find(dp,1,1,kod) != 0 then goto 300 rem не нашли в списке предп 
          nazv = 'Название'.dp
          inn = 'ИННП'.dp
          kod_okonh = 'Код_ОКОНХП'.dp
          kod_okpo = 'Код_ОКПОП'.dp
300       clearbuf(dpok)
          'Дата'.dpok = data_doc          
          'Номер_док.'.dpok = 'Документ'.ds          
          'Дата_пост.'.dpok = data_post          
          if kredit != "61" then 'Дата_опл.'.dpok = dat          
          'Дата_опр.'.dpok = data_opr         
          'Название'.dpok = nazv          
          'ИННП'.dpok = inn          
          'Код_ОКОНХП'.dpok = kod_okonh          
          'Код_ОКПОП'.dpok = kod_okpo          
          'Всего'.dpok = sum 
          if proc_nds != 20.0 then goto 400         
          'Сумма_20'.dpok = sum
          'НДС_20'.dpok = (sum / 120) * 20          
          goto 600
400       if proc_nds = 0.0 then goto 500
          'Сумма_10'.dpok = sum
          'НДС_10'.dpok = (sum / (100+proc_nds)) * proc_nds           
          goto 600 
500       'Сумма'.dpok = sum           
600       insert(dpok)
          print "1"
          goto 100 rem проводку обработали и уходим на конец цикла
200       rem Кредитовое сальдо субсчета = 0.0
          if FindGe(ds,4,4,"60",sub,"","") != 0 then goto 1200 rem нет кредита и сальдо закрылось
          if trim('Kr_счета'.ds) != "60" | trim(sub) != trim('Kr_расчеты'.ds) then goto 1200
          rem Кредитовую проводку нашли, проверим на 61 счет
          if trim('Db_счета'.ds) = "61" then goto 1000 rem ??????
          rem Закрыто не 61 счетом - запись в книгу
1200      proc_nds = 'Проц.НДС'.d
          docum = 'Документ'.d
          data_doc = 'Дата_док.'.d
          data_post = 'Дата_пост.'.d
          data_opr = 'Дата_опр.'.d
          nazv = 'Название'.d
          inn = ""
          kod_okonh = ""
          kod_okpo = ""
          kod = 'Код'.d
          if Find(dp,1,1,kod) != 0 then goto 700 rem не нашли в списке предп 
          nazv = 'Название'.dp
          inn = 'ИННП'.dp
          kod_okonh = 'Код_ОКОНХП'.dp
          kod_okpo = 'Код_ОКПОП'.dp
700       clearbuf(dpok)
          'Дата'.dpok = data_doc          
          if kredit != "61" then 'Номер_док.'.dpok = doc
          if kredit = "61" then 'Номер_док.'.dpoc = docum          
          'Дата_пост.'.dpok = data_post          
          if kredit != "61" then 'Дата_опл.'.dpok = dat          
          'Дата_опр.'.dpok = data_opr         
          'Название'.dpok = nazv          
          'ИННП'.dpok = inn          
          'Код_ОКОНХП'.dpok = kod_okonh          
          'Код_ОКПОП'.dpok = kod_okpo          
          'Всего'.dpok = sum 
          if proc_nds != 20.0 then goto 800         
          'Сумма_20'.dpok = sum
          'НДС_20'.dpok = (sum / 120) * 20          
          goto 910
800       if proc_nds = 0.0 then goto 900
          'Сумма_10'.dpok = sum
          'НДС_10'.dpok = (sum / (100+proc_nds)) * proc_nds           
          goto 910 
900       'Сумма'.dpok = sum           
910       insert(dpok)
1000      
          putkey(ds,2)
          for j = 1 to i
             if j = 1 then getfirst(ds)
             if j != 1 then getnext(ds)
          next
          print nprov,'N_проводки'.ds
100   next
1100  close(dpok)
      close(d)
      close(ds)
      close(dp)
      end