| » Статистика |
Онлайн всего: 1 Гостей: 1 Пользователей: 0 |
|
В категории материалов: 20
Показано материалов: 11-20 |
Страницы: « 1 2 |
Сортировать по:
Дате ·
Названию ·
Рейтингу ·
Комментариям ·
Просмотрам
|
Процедура ТабличноеПоле1ПриВыводеСтроки(Элемент, ОформлениеСтроки, ДанныеСтроки)
ЦветПапки = Новый Цвет(255,0,0);
ЦветаОбычнойпапки=ЦветаСтиля.ЦветФонаПоля;
Если Строка(Справочники.Контрагенты.НайтиПоРеквизиту("ИНН",ДанныеСтроки.УНППолучателя)=Справочники.Контрагенты.ПустаяСсылка()) тогда
ОформлениеСтроки.ЦветФона = ЦветПапки;
иначе
ОформлениеСтроки.ЦветФона = ЦветаОбычнойпапки;
Конецесли;
КонецПроцедуры
|
|
Процедура ТабличноеПоле1ДоговорОплатыНачалоВыбора(Элемент, СтандартнаяОбработка)
СтандартнаяОбработка=Ложь; //отменяем стандартную обработку кнопки
Форма=Справочники.ДоговорыКонтрагентов.ПолучитьФормуВыбора(); //Получаем форму
Форма.Отбор.Владелец.Значение=Справочники.Контрагенты.НайтиПоРеквизиту("ИНН","101349324");//Передаем форме значение
Форма.Отбор.Владелец.Использование = Истина;
ВыбранныйЭлемент=Форма.ОткрытьМодально(); //Открываем опдчиненый справочник модально
Если ВыбранныйЭлемент <> Неопределено Тогда
ТекДанные = ЭлементыФормы.ТабличноеПоле1.ТекущиеДанные;
ТекДанные.ДоговорОплаты=ВыбранныйЭлемент.ссылка; //записываем полученую ссылку в поле таблицы
Сообщить( ВыбранныйЭлемент);
КонецЕсли;
КонецПроцедуры
|
Если ЭлементыФормы.Кодировка.Значение="ANSI" Тогда
ЧТ = Новый ЧтениеТекста(ЭлементыФормы.ОткрытьФайл.Значение,КодировкаТекста.ANSI);
КонецЕсли;
Сообщение=Новый СообщениеПользователю;
Строка = ЧТ.ПрочитатьСтроку();
//загружаем из текстового файла в табличную часть формы
Пока Строка <> Неопределено Цикл |
Режим = РежимДиалогаВыбораФайла.ВыборКаталога;
ДиалогОткрытия = Новый ДиалогВыбораФайла(Режим);
ДиалогОткрытия.Каталог = "";
ДиалогОткрытия.МножественныйВыбор = Ложь;
ДиалогОткрытия.Заголовок = "Выберите каталог";
Если ДиалогОткрытия.Выбрать() Тогда
ПутьККаталогу = ДиалогОткрытия.Каталог;
КонецЕсли;
|
|
Процедура ОткрытьФайлОткрытие(Элемент, СтандартнаяОбработка)
//Открываем диалог выбора файла для чтения
ВыборФайла = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие);
ВыборФайла.МножественныйВыбор = Ложь;
ВыборФайла.Заголовок = НСтр("ru = 'Выбор файла'");
ВыборФайла.Фильтр = НСтр("ru = 'Все файлы (*.$$$)|*.$$$'");
Если ВыборФайла.Выбрать() Тогда
ПолноеИмяФайла = ВыборФайла.ПолноеИмяФайла;
ЭлементыФормы.ОткрытьФайл.Значение = ПолноеИмяФайла;
КонецЕсли;
КонецПроцедуры
|
|
Процедура КнопкаВыполнитьНажатие(Кнопка)
ЭлементНоменклатуры=СпрНоменклатура.Ссылка;
Если Не ЭлементНоменклатуры.Пустая() Тогда
ФормаПодчиненныхДоговоров = Справочники.НазначенияИспользования.ПолучитьФормуСписка();
ФормаПодчиненныхДоговоров.ПараметрОтборПоВладельцу = ЭлементНоменклатуры;
ФормаПодчиненныхДоговоров.Открыть();
КонецЕсли;
КонецПроцедуры
|
|
ЭлементыФормы.СпОтрЗатр.Значение=ВыборкаСправочника.Ссылка;
|
|
Попытка ВыбСпецодежда=Выборка.ИнвентарьИХозяйственныеПринадлежности.Получить(0);
СпецодеждаНазначИспользования=ВыбСпецодежда.НазначениеИспользования.ПолучитьОбъект();
ЭлементТабДок.СпосОтрЗатр=СпецодеждаНазначИспользования.СпособОтраженияРасходов.Наименование;
Исключение
ЭлементТабДок.СпосОтрЗатр="Нету";
КонецПопытки;
|
|
Выборка = Документы.ПередачаМатериаловВЭксплуатацию.Выбрать();
Пока Выборка.Следующий() Цикл
Сообщить(Выборка.Номер);
КонецЦикла;
|
|
Распределенная информационная база данных используется в ситуации, когда
различным филиалам или торговым точкам одной организации необходимо
иметь доступ к информации друг друга, но нет возможности вести учет в
одной базе.
В этом случае создается экземпляр основной базы данных,
который наполняется независимо и физически находится в другом месте, но
при необходимости базы могут обменяться новой информацией. |
|
|
|