Программная проверка счета на "групповой" Как известно делать проводки по счетам-группам нельзя. Однако жизнь течет и после введения бухгалтером очередного нового счета какой либо старый, который ранее не являлся счетом-группы, теперь становится групповым. И соответственно все проводки на этот счет становятся ошибочными. Для предупреждения подобной ситуации целесообразно перед записью данных по счетам имеет смысл всегда проверять счета на предмет группы. Один из возможных вариантов такой проверки привожу ниже:
Код 1C v 8.3
Процедура ПриЗаписи(Отказ, РежимЗаписи)
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| Хозрасчетный.Код КАК Код,
| Хозрасчетный.Родитель.Код КАК РодительКод
|ИЗ
|ПланСчетов.Хозрасчетный КАК Хозрасчетный
|ГДЕ
|Хозрасчетный.Родитель В (&СчетДт,СчетКт)";
СчетДт = ЭтотОбъект[0].СчетДт;
СчетКт = ЭтотОбъект[0].СчетКт;
Запрос.УстановитьПараметр("СчетДт", СчетДт);
Запрос.УстановитьПараметр("СчетКт", СчетКт);
РезультатЗапроса = Запрос.Выполнить();
Если НЕ РезультатЗапроса.Пустой() Тогда
ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
Если СтрНайти(ВыборкаДетальныеЗаписи.Код, ".") Тогда
Отказ = Истина;
Сообщить("Некорретный номер счета - " + ВыборкаДетальныеЗаписи.РодительКод);
КонецЕсли;
КонецЦикла;
КонецЕсли;
КонецПроцедуры
Категория:
Регистры бухгалтерии Как сделать чтобы при редактировании в ячейке появлялся калькулятор? Необходимо чтобы в режиме 1С Предприятия при редактировании ячейки табличного документа по
являлся калькулятор для ввода чисел:
Для это в свойствах ячейки необходимо указать:
- Снять защиту
- Галка Содержит значение
- Указать тип значения, укажите длину и точность числа
Категория:
Табличный документ Как сделать чтобы при удалении строки в табличном поле, появлялся вопрос? Необходимо чтобы в табличной части при попытке удалить строку, возникал вопрос "Вы уверены?"
Код 1C v 8.х // в событии Перед Удалением табличной части боавляем процедуру
Процедура ТабЧастьПередУдалением(Элемент, Отказ)
Режим = РежимДиалогаВопрос.ДаНет;
Ответ = Вопрос("ВЫ УВЕРЕНЫ???"+Символы.ПС+"Хотите УДАЛИТЬ строку "+Строка(Элемент.ТекущиеДанные.Физлицо)+"?", Режим, 0);
Если НЕ Ответ = КодВозвратаДиалога.Да Тогда
Отказ = Истина;
КонецЕсли;
КонецПроцедуры
Категория:
Документы