Вычислений не много и они простые

Сейчас у меня это делает вот такой монстр. Смотрю на него и плачу.

(defn bay-actions
 "Функция формирующая проводку покупки акций"
 [content-st dat]
 (let [xs (add-dat (parce-cont content-st) dat)]
    (str
      (add-bay-title)
      (add-data-tocen xs)
      (add-active-deb xs)
      (add-passiv-cred xs)
      (add-depo-cred xs)
      (add-trade-saldo xs)
      (add-linespace)
      (add-data-tocen xs)
      (add-cost-broker xs)
      (add-cost-birja xs)
      (add-cost-tax xs)
      (add-depo-saldo))))

1с бери)

Чур меня

1С с консоли - зло

Там даже git нет

Хотя если файловую базу ??? - все равно зло

Если это твой проект, я бы тебе посоветовал на.нитхаб все выложить с примерами данных

я так ничего не понял нихуя

Мне стыдно за этот код .

Приведу в божеский вид выложу.

Спасибо

(add-data-tocen xs)
мои глаза

Ну сорян,

хорошего кода не читал, каюсь

стоит подумать как представить проводку данными, тогда "шаблон проводки" это некий генератор этих данных
что-то типа:
[[:active :papers 200 "AFLT" 90.72]
[:passive :trade :AFLT -200 "AFLT" 90.72]
[:active :dep -18144.0]
[:passive :trade :AFLT]]

и
(for [i 200
       c 90.72
       r -18144.0]
 [[:active :papers i "AFLT" c]
  [:passive :trade :AFLT (- i) "AFLT" c]
  [:active :dep r]
  [:passive :trade :AFLT]])

а дальше concat, merge, map, filter и поехали

Здесь фишка в том что [ 200 "AFLT" 90.72] передаваемые в запросе значения, которые меняются

а вместо -18144.0 в шаблон должна быть прописана формула расчета