           (go
             (while true
               (let [row (<! chan-init-row)]
-                (om/update! app :id (:id row))
+                (when-let [id (:id row)]
+                  (om/update! app :id id))
                 (fill-app-fn row)))))
 
         (when chan-save

                                    (when clear-selections-fn
                                      (clear-selections-fn))
                                    (om/transact! app :tr-selected not)
                                    1)}
             (app-to-tds-seq-fn app) ))))


                  ;; если указан то сохранять в сеть
                  (ixnet/get-data
                   uri-save
                   (let [a (app-to-row-fn)]
                     (if-let [id (@app :id)]
                       (assoc a :id id)
                       a))
                   (fn [result]
                     (when post-save-fn (post-save-fn result))))
                  ;; иначе альтернитиваная функция
