// проверим есть ли в документе записи с кол-вом 0
  if not Fro then begin // если документ открыт не в режиме "Только для чтения"
    if CheckKolZero then begin // если есть позиции с кол=0
      if mrOk = MessageDlg('Удалить позиции с нулевым количеством?', mtConfirmation, mbOkCancel, 0) then begin
        // удалить пустые позиции
        QDel.ParamByName('ndok').AsInteger := Fndok;
        QDel.ParamByName('io'  ).AsString  := Fio;
        for i := 0 to CDS.Count-1 do begin
          if CDS.ReadIntegerFN(i, 'BTOV_KOL') = 0 then begin
            idtov := CDS.ReadIntegerFN(i, 'BTOV_IDTOV');
            QDel.ParamByName('idtov').AsInteger := idtov;
            Open_Query(QDel); // открытие с обработкой исключений и с сообщениями
            QDel.Transaction.Commit;
          end;//if
        end;//for
        F5_refresh;
      end;//if
    end;//if
  end;//if

  if aid = 0 then begin
    //*************************************************************************************
    CDS.ExecSelect(QSel);
    F5_font; // раскрасим шрифт по признаку вхождения в наборы товаров и выставим Bold по условиям с партиями
    CDV.Sync;
    CDV.RowRestorePosition; // поставим фокус на сохраненную строку или на первую если ничего не было сохранено
    // поставим фокус на тот же товар что был до обновления. Это обход проблем в случае клиентской сортировки
    if save_id <> 0 then begin
      if CDS.FindInteger(save_id, 'btov_idtov', iRow) then begin
        CDV.RowSelect(iRow);
      end;//if
    end;//if
    //*************************************************************************************
  end else begin
    //*************************************************************************************
    CDS.ExecSelectRefresh(QSel, arow);
    F5_font(arow); // раскрасим шрифт по признаку вхождения в наборы товаров и выставим Bold по условиям с партиями
    VTree.Invalidate;
    //*************************************************************************************
  end;//if

  // обработаем ситуацию когда набор товаров выбранный для выделения - пропал. Скинем в 0
  if Item_GoodMark1.Caption = '' then begin CFG.LT_GoodsMark_ID_LTA1 := 0; Item_GoodMark1.Caption := nosel; end;
  if Item_GoodMark2.Caption = '' then begin CFG.LT_GoodsMark_ID_LTA2 := 0; Item_GoodMark2.Caption := nosel; end;
  if Item_GoodMark3.Caption = '' then begin CFG.LT_GoodsMark_ID_LTA3 := 0; Item_GoodMark3.Caption := nosel; end;
  if Item_GoodMark4.Caption = '' then begin CFG.LT_GoodsMark_ID_LTA4 := 0; Item_GoodMark4.Caption := nosel; end;
  if Item_GoodMark5.Caption = '' then begin CFG.LT_GoodsMark_ID_LTA5 := 0; Item_GoodMark5.Caption := nosel; end;
  if Item_GoodMark6.Caption = '' then begin CFG.LT_GoodsMark_ID_LTA6 := 0; Item_GoodMark6.Caption := nosel; end;
  //