Paren777
14.08.2013, 10:18
При формировании печатной формы "Приложение к акту ИНВ-17" возникает ошибка: "Ошибка при вызове метода контекста (Выполнить): {(1, 1)}: Ожидается выражение "ВЫБРАТЬ"
Сделал остановку при ошибке выдает вот, что "Ошибка времени выполнения: {ВнешняяОбработка.ВнешняяФ орма_СправкаИНВ17.МодульОбъ екта(326)}: Ошибка при вызове метода контеста (Выполнить) в модуле ВнешняяОбработка.ВнешняяФ� �рма_СправкаИНВ17.МодульОбъ� �кта. строка 329.
Вот в этой строке останавливается выполнение программы:
"ТЗЗадолженности = Запрос.Выполнить().Выгрузит ь();"
Весь код:
"Функция РасшифроватьЗадолженность (Контрагент, СчетРасчетов, Шапка, Дебетовая = Истина)
Запрос = Новый Запрос;
Если Дебетовая Тогда
ТекстОстатка = "СуммаОстатокДт";
Иначе
ТекстОстатка = "СуммаОстатокКт";
КонецЕсли;
Если СчетРасчетов.ВидыСубконто. Количество() = 3 Тогда
Запрос.Текст = "ВЫБРАТЬ
| ХозрасчетныйОстатки.Субко� �то1 КАК Контрагент,
| ХозрасчетныйОстатки.Субко� �то2 КАК Договор,
| ХозрасчетныйОстатки.Субко� �то3 КАК ДокументРасчетов,
| ХозрасчетныйОстатки." + ТекстОстатка + " КАК СуммаОстаток,
| ХозрасчетныйОстатки.Сумма� �статок КАК СуммаОстатокАП
|ИЗ
| РегистрБухгалтерии.Хозрас� �етный.Остатки(
| &ДатаЗадолженности,
| Счет В ИЕРАРХИИ (&Счет),
| ,
| Организация = &Организация
| И Субконто1 = &Контрагент) КАК ХозрасчетныйОстатки";
ИначеЕсли СчетРасчетов.ВидыСубконто. Количество() = 2 Тогда
Запрос.Текст = "ВЫБРАТЬ
| ХозрасчетныйОстатки.Субко� �то1 КАК Контрагент,
| ХозрасчетныйОстатки.Субко� �то2 КАК Договор,
| ХозрасчетныйОстатки.Субко� �то2 КАК ДокументРасчетов,
| ХозрасчетныйОстатки." + ТекстОстатка + " КАК СуммаОстаток,
| ХозрасчетныйОстатки.Сумма� �статок КАК СуммаОстатокАП
|ИЗ
| РегистрБухгалтерии.Хозрас� �етный.Остатки(
| &ДатаЗадолженности,
| Счет В ИЕРАРХИИ (&Счет),
| ,
| Организация = &Организация
| И Субконто1 = &Контрагент) КАК ХозрасчетныйОстатки";
КонецЕсли;
Запрос.УстановитьПараметр("Контрагент", Контрагент);
Запрос.УстановитьПараметр("Организация", Шапка.Организация);
Запрос.УстановитьПараметр("Счет", СчетРасчетов);
Запрос.УстановитьПараметр("ДатаЗадолженности", КонецДня(Шапка.Дата));
ТЗЗадолженности = Запрос.Выполнить().Выгрузит ь();
Возврат ТЗЗадолженности;
КонецФункции"
Сделал остановку при ошибке выдает вот, что "Ошибка времени выполнения: {ВнешняяОбработка.ВнешняяФ орма_СправкаИНВ17.МодульОбъ екта(326)}: Ошибка при вызове метода контеста (Выполнить) в модуле ВнешняяОбработка.ВнешняяФ� �рма_СправкаИНВ17.МодульОбъ� �кта. строка 329.
Вот в этой строке останавливается выполнение программы:
"ТЗЗадолженности = Запрос.Выполнить().Выгрузит ь();"
Весь код:
"Функция РасшифроватьЗадолженность (Контрагент, СчетРасчетов, Шапка, Дебетовая = Истина)
Запрос = Новый Запрос;
Если Дебетовая Тогда
ТекстОстатка = "СуммаОстатокДт";
Иначе
ТекстОстатка = "СуммаОстатокКт";
КонецЕсли;
Если СчетРасчетов.ВидыСубконто. Количество() = 3 Тогда
Запрос.Текст = "ВЫБРАТЬ
| ХозрасчетныйОстатки.Субко� �то1 КАК Контрагент,
| ХозрасчетныйОстатки.Субко� �то2 КАК Договор,
| ХозрасчетныйОстатки.Субко� �то3 КАК ДокументРасчетов,
| ХозрасчетныйОстатки." + ТекстОстатка + " КАК СуммаОстаток,
| ХозрасчетныйОстатки.Сумма� �статок КАК СуммаОстатокАП
|ИЗ
| РегистрБухгалтерии.Хозрас� �етный.Остатки(
| &ДатаЗадолженности,
| Счет В ИЕРАРХИИ (&Счет),
| ,
| Организация = &Организация
| И Субконто1 = &Контрагент) КАК ХозрасчетныйОстатки";
ИначеЕсли СчетРасчетов.ВидыСубконто. Количество() = 2 Тогда
Запрос.Текст = "ВЫБРАТЬ
| ХозрасчетныйОстатки.Субко� �то1 КАК Контрагент,
| ХозрасчетныйОстатки.Субко� �то2 КАК Договор,
| ХозрасчетныйОстатки.Субко� �то2 КАК ДокументРасчетов,
| ХозрасчетныйОстатки." + ТекстОстатка + " КАК СуммаОстаток,
| ХозрасчетныйОстатки.Сумма� �статок КАК СуммаОстатокАП
|ИЗ
| РегистрБухгалтерии.Хозрас� �етный.Остатки(
| &ДатаЗадолженности,
| Счет В ИЕРАРХИИ (&Счет),
| ,
| Организация = &Организация
| И Субконто1 = &Контрагент) КАК ХозрасчетныйОстатки";
КонецЕсли;
Запрос.УстановитьПараметр("Контрагент", Контрагент);
Запрос.УстановитьПараметр("Организация", Шапка.Организация);
Запрос.УстановитьПараметр("Счет", СчетРасчетов);
Запрос.УстановитьПараметр("ДатаЗадолженности", КонецДня(Шапка.Дата));
ТЗЗадолженности = Запрос.Выполнить().Выгрузит ь();
Возврат ТЗЗадолженности;
КонецФункции"