LaCastet
Silver Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Pazan
Цитата:| довольно интересное, хотелось бы конкретный примерчик созерцать. |
Процедура ПриНачалеВыбораЗначения(ЭлементДиалога,ФлагСтандОбр)
Если ЭлементДиалога = "ВидТоплива" Тогда
ПредыдущееЗначение=ВидТоплива;
Значение=?(ПустоеЗначение(ПредыдущееЗначение)=1, ВыбрТопл,ПредыдущееЗначение);
Если МенюТопл.ВыбратьЗначение(Значение,,,, 2) = 1 Тогда
Если Значение <> ПредыдущееЗначение Тогда
ВидТоплива = Значение;
КонецЕсли;
КонецЕсли;
// ВАЖНО!!! Флаг устанавливается в 0, чтобы закончить // ввод поля ВидТоплива
ФлагСтандОбр = 0;
ИначеЕсли ЭлементДиалога = "Контрагент" Тогда
ПредыдущееЗначение=Контрагент;
Значение=?(ПустоеЗначение(ПредыдущееЗначение)=1, ВыбрКонтр,ПредыдущееЗначение);
Если МенюКонтр.ВыбратьЗначение(Значение,,,, 2) = 1 Тогда
Если Значение <> ПредыдущееЗначение Тогда
Контрагент = Значение;
КонецЕсли;
КонецЕсли;
ФлагСтандОбр = 0;
ИначеЕсли ЭлементДиалога = "ВидТалона" Тогда
// Заполняем меню ВидовТалонов
МенюВидТал.УдалитьВсе();
СпрВидТал.ИспользоватьВладельца(Контрагент);
СпрВидТал.ВыбратьЭлементы();
Пока СпрВидТал.ПолучитьЭлемент()=1 Цикл
МенюВидТал.ДобавитьЗначение(СпрВидТал.ТекущийЭлемент());
КонецЦикла;
ПредыдущееЗначение=ВидТалона;
Значение=?(ПустоеЗначение(ПредыдущееЗначение)=1, ВыбрВидТал,ПредыдущееЗначение);
Если МенюВидТал.ВыбратьЗначение(Значение,,,, 2) = 1 Тогда
Если Значение <> ПредыдущееЗначение Тогда
ВидТалона = Значение;
КонецЕсли;
КонецЕсли;
ФлагСтандОбр = 0;
ИначеЕсли ЭлементДиалога = "СменныйОтчет" Тогда
ПредыдущееЗначение=СменныйОтчет;
Значение=?(ПустоеЗначение(ПредыдущееЗначение)=1, СменныйОтчет,ПредыдущееЗначение);
Если МенюСмОтч.ВыбратьЗначение(Значение,,,, 2) = 1 Тогда
Если Значение <> ПредыдущееЗначение Тогда
СменныйОтчет = Значение;
КонецЕсли;
КонецЕсли;
ФлагСтандОбр = 0;
КонецЕсли;
КонецПроцедуры
Цитата:| Как задать порядок прохождения полей в шапке документа? |
Меню Диалог->Авт.порядок обхода (снимается галочка).
Затем: Меню Диалог->Настройка порядка обхода.
И устанавливаешь нужный порядок: думаю разберёшься.
Цитата:| В проводке нужно документа нужно указать операции с "Дополнительным" планом |
ИспользоватьПланСчетов
Устанавливает план счетов, который будет использован объектом.
Синтаксис:
ИспользоватьПланСчетов(<ПланСчетов>)
Англоязычный синоним:
UseChartOfAccounts
Параметры:
<ПланСчетов>
Значение типа «План Счетов».
Возвращаемое значение:
Значение типа «План Счетов». Текущее значение на момент до исполнения метода.
Описание:
Данный метод выдает и устанавливает для объекта план счетов, который будет использован им в дальнейшем для поиска, выбора, обхода счетов.
Метод ИспользоватьПланСчетов имеет смысл использовать в том случае, если объект создан функцией СоздатьОбъект для работы с разными планами счетов — СоздатьОбъект("Счет"). Если объект был создан для работы с конкретным планом счетов, то все операции поиска и обхода счетов будут ра-ботать только с этим планом счетов.
Пример:
Процедура Сформировать()
Сч = СоздатьОбъект("Счет");
Сч.ИспользоватьПланСчетов(ПланыСчетов.Основной);
Сч.ВыбратьСчета();
Пока Сч.ПолучитьСчет() = 1 Цикл
Сообщить("Счет " + Сч.Код);
КонецЦикла;
КонецПроцедуры
Родитель
----------
Пиво — это еще одно доказательство того, что Господь любит нас и хочет, чтоб мы были счастливы! |
|
