всех приветствую в этот понедельник неприятный, господа, требуется помощь(хелп), необходимо, что бы при открытии формы, все поля были заполнены(это я сделал, но видимо криво), но кажется и этого мало программе, так как при заполнении вручную одного поля(к примеру), выводит еще несколько полей(то есть срабатывает условие, если значение заполнено, то...), вот как выглядит сейчас, все поля заполнены программно в КД 2.1.:
Но необходимо, что бы было так (в этой же форме, я вручную перезаполнил 1 поле, к слову, заполнение любого одного поля показывает еще несколько полей):
Код обработчика Приход.Касс.Орд(После загрузки):
Объект.ВидОперации = Перечисления.ВидыОперацийПКО.ОплатаПокупателя;
Объект.Контрагент = Справочники.Контрагенты.РозничныйПокупатель;
Объект.СчетКасса = ПланыСчетов.Хозрасчетный.ЕПС_60331;
Объект.ВалютаДокумента = Константы.ВалютаРегламентированногоУчета.Получить();
а вот правила:
Тот самый ДокументОснование:
Если нужен код правила ОтчетОРозничныхПродажах(после выгрузки):
Запрос = Новый Запрос();
Запрос.Текст = ("ВЫБРАТЬ
| ОтчетОРозничныхПродажах.Ссылка КАК Ссылка,
| ОтчетОРозничныхПродажах.СуммаДокумента КАК СуммаДокумента,
| ОтчетОРозничныхПродажах.Организация КАК Организация,
| ОтчетОРозничныхПродажах.Дата КАК Дата,
| ОтчетОРозничныхПродажах.Номер КАК Номер,
| ОтчетОРозничныхПродажах.Ответственный КАК Ответственный
|ПОМЕСТИТЬ ВТШапкаОПК
|ИЗ
| Документ.ОтчетОРозничныхПродажах КАК ОтчетОРозничныхПродажах
|ГДЕ
| ОтчетОРозничныхПродажах.Ссылка = &Ссылка
|;
|
|////////////////////////////////////////////////////////////////////////////////
|ВЫБРАТЬ
| ВТШапкаОПК.Организация КАК Организация,
| ВТШапкаОПК.Дата КАК Дата,
| ВТШапкаОПК.Ответственный КАК Ответственный,
| ОтчетОРозничныхПродажахОплатаПлатежнымиКартами.Ссылка КАК Ссылка,
| ОтчетОРозничныхПродажахОплатаПлатежнымиКартами.ВидОплаты КАК ВидОплаты,
| ОтчетОРозничныхПродажахОплатаПлатежнымиКартами.Сумма КАК Сумма,
| ВТШапкаОПК.Номер КАК Номер
|ПОМЕСТИТЬ ВТОплатыПоКарте
|ИЗ
| Документ.ОтчетОРозничныхПродажах.ОплатаПлатежнымиКартами КАК ОтчетОРозничныхПродажахОплатаПлатежнымиКартами
| ВНУТРЕННЕЕ СОЕДИНЕНИЕ ВТШапкаОПК КАК ВТШапкаОПК
| ПО ОтчетОРозничныхПродажахОплатаПлатежнымиКартами.Ссылка = ВТШапкаОПК.Ссылка
|ГДЕ
| ОтчетОРозничныхПродажахОплатаПлатежнымиКартами.Ссылка = &Ссылка
|
|СГРУППИРОВАТЬ ПО
| ВТШапкаОПК.Дата,
| ВТШапкаОПК.Организация,
| ВТШапкаОПК.Ответственный,
| ОтчетОРозничныхПродажахОплатаПлатежнымиКартами.Ссылка,
| ОтчетОРозничныхПродажахОплатаПлатежнымиКартами.ВидОплаты,
| ОтчетОРозничныхПродажахОплатаПлатежнымиКартами.Сумма,
| ВТШапкаОПК.Номер
|;
|
|////////////////////////////////////////////////////////////////////////////////
|ВЫБРАТЬ
| ВТШапкаОПК.Ссылка КАК Ссылка,
| ВТШапкаОПК.Организация КАК Организация,
| ВТШапкаОПК.Дата КАК Дата,
| ВТШапкаОПК.Ответственный КАК Ответственный,
| ВТШапкаОПК.СуммаДокумента КАК Сумма,
| ВТШапкаОПК.Номер КАК Номер
|ИЗ
| ВТШапкаОПК КАК ВТШапкаОПК
|ГДЕ
| ВТШапкаОПК.Ссылка = &Ссылка
|
|СГРУППИРОВАТЬ ПО
| ВТШапкаОПК.Дата,
| ВТШапкаОПК.Номер,
| ВТШапкаОПК.Ссылка,
| ВТШапкаОПК.Организация,
| ВТШапкаОПК.Ответственный,
| ВТШапкаОПК.СуммаДокумента
|
|ОБЪЕДИНИТЬ ВСЕ
|
|ВЫБРАТЬ
| ВТОплатыПоКарте.Ссылка,
| ВТОплатыПоКарте.Организация,
| ВТОплатыПоКарте.Дата,
| ВТОплатыПоКарте.Ответственный,
| -ВТОплатыПоКарте.Сумма,
| ВТОплатыПоКарте.Номер
|ИЗ
| ВТОплатыПоКарте КАК ВТОплатыПоКарте
|ГДЕ
| ВТОплатыПоКарте.Ссылка = &Ссылка
|
|СГРУППИРОВАТЬ ПО
| ВТОплатыПоКарте.Дата,
| ВТОплатыПоКарте.Ссылка.Номер,
| ВТОплатыПоКарте.Организация,
| ВТОплатыПоКарте.Ответственный,
| -ВТОплатыПоКарте.Сумма,
| ВТОплатыПоКарте.Ссылка,
| ВТОплатыПоКарте.Номер");
Запрос.УстановитьПараметр("Ссылка", Источник);
МассивРезультатов = Запрос.ВыполнитьПакетСПромежуточнымиДанными();
ВыборкаШапка = МассивРезультатов[0].Выбрать();
ВыборкаОПК = МассивРезультатов[1].Выбрать();
ВыборкаПКО = МассивРезультатов[2].Выбрать();
Хранилище = 0;
Пока ВыборкаОПК.Следующий() Цикл
ВыгрузитьПоПравилу(ВыборкаОПК, , , , "ОплатаПлатежнойКартой");
КонецЦикла;
Пока ВыборкаПКО.Следующий() Цикл
Если НЕ ВыборкаПКО.Сумма = NULL Тогда
СтруктураПКО = Новый Структура;
СтруктураПКО.Вставить("Дата", ВыборкаПКО.Ссылка.Дата);
СтруктураПКО.Вставить("Номер", ВыборкаПКО.Ссылка.Номер);
СтруктураПКО.Вставить("Сумма", ВыборкаПКО.Сумма);
Хранилище = Хранилище + ВыборкаПКО.Сумма;
СтруктураПКО.Вставить("СуммаДокумента", Хранилище);
СтруктураПКО.Вставить("Ответственный", ВыборкаПКО.Ответственный);
СтруктураПКО.Вставить("Организация", ВыборкаПКО.Организация);
СтруктураПКО.Вставить("Комментарий", ВыборкаПКО.Ссылка.Комментарий);
СтруктураПКО.Вставить("ДокументОснование", ВыборкаПКО.Ссылка);
ВыгрузитьПоПравилу(СтруктураПКО, , , , "ПриходныйКассовыйОрдер");
Иначе
КонецЕсли;
КонецЦикла;
Простой
Средний
