AnryMc @ Сегодня, 14:35
, Доброго дня! В 1с 8 нічого не змінював. А ось в 1с:7.7, яка і досі в нас працює на підприємстві, багато чого доробляли але все під забаганки нашоїх бухгалтерії (нові документи, зміна проводок і таке інше).
Отказ = Истина; Оповещение = Новый ОписаниеОповещения("ПослеОтветаПользователя", ЭтотОбъект); ТекстВопроса = НСтр("ru = 'Для выполнения этой операции необходимо записать документ. Записать?'"); ПоказатьВопрос(Оповещение, ТекстВопроса, РежимДиалогаВопрос.ДаНет);
Функция глПолучитьЦвет(Красный = 0,Зеленый = 0,Синий = 0) Экспорт // функция для формирования значения цвета из составляющих (RGB) Возврат Макс(0,Синий)*65536+Макс(0,Зеленый)*256+Макс(0,Красный); КонецФункции
4andriy @ Сегодня, 9:05
, Доброго дня, в журналі документів розфарбована ТЧ за ознакою "КонтрольДокументів", якщо контролюємо контрагента:
//========================================== Функция ПроверитьВид() Если ПустоеЗначение(ТекущийДокумент) = 0 Тогда //Если ТекущийДокумент.ЗапретРедактирования = 1 Тогда // Возврат "BRUSH["+глПолучитьЦвет(204,204,204)+"]"; //серый фон Если ((ТекущийДокумент.Контрагент.КонтрольДокументов = 1) И (ТекущийДокумент.Проверен = 1)) Тогда Возврат "FONT["+глПолучитьЦвет(0,0,0)+"] BRUSH["+глПолучитьЦвет(255,255,255)+"]"; //белый фон ИначеЕсли ((ТекущийДокумент.Контрагент.КонтрольДокументов = 1) И (ТекущийДокумент.Проверен = 0)) Тогда Возврат "FONT["+глПолучитьЦвет(0,0,0)+"] BRUSH["+глПолучитьЦвет(255, 222, 179)+"]"; //красный фон КонецЕсли; КонецЕсли; Возврат ""; КонецФункции
АвтоВремяНачалоДня(); Синтаксис: АвтоВремяНачалоДня() Назначение: Установить режим записи времени на начало дня для новых документов. Замечание: Для новых документов в модуле формы доступно использование методов установки признака автоформирования времени документа и собственно установки времени. Если эти методы использованы, то диалог запроса времени не вызывается и игнорируются пользовательские установки в параметрах системы.
url_2l @ Сегодня, 13:14
, Доброго дня! Є такий приклад в моїй конфігурації. В документі списання на виробництво - при зміні реквизиту "підрозділ у шапці документу, заповнюємо підрозділ в рядках документу
текОтвет = Вопрос("У документі змінено реквізит підрозділу. Заповнити підрозділ по рядкам документу?","Да+Нет"); Если текОтвет = "Да" Тогда ВыбратьСтроки(); Пока ПолучитьСтроку()=1 Цикл СтрУчасток = Подразделение; КонецЦикла; КонецЕсли;
//або ось так: якщо заповнено реквізит "разрешил" в документі "заказ", то ставимо "да" для "готов к получению" Если ПустоеЗначение(Разрешил)=0 Тогда ГотовКПолучению = Перечисление.ДаНет.Да; Иначе ГотовКПолучению = Перечисление.ДаНет.Нет; КонецЕсли;
1С Предприятие 8.3, 1С Предприятие 8.2, 1С Предприятие 8.1, 1С Предприятие 8.0, 1С Предприятие 7.7, Литература 1С, Общие вопросы по администрированию 1С, Методическая поддержка 1С - всё в одном месте: на Украинском 1С форуме!