Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
22 ноя 2024, 04:14

Помогите найти ошибку в коде

Автор Ivan3333567, 05 фев 2014, 10:36

0 Пользователей и 1 гость просматривают эту тему.

Ivan3333567

Почему то не правильно заполняет печатную форму в колонке "Колличество", вместо например 4шт, пишет 15

Вот код, помогите пожалуйста:
Строка   = Макет.ПолучитьОбласть("Строка");
ПоследняяСтрока = Макет.ПолучитьОбласть("ПоследняяСтрока");

Для Каждого СтрокаТовар Из ВыборкаСтрокТовары Цикл

НомерСтроки = НомерСтроки + 1;

// Проверим, помещается ли строка с данными и последняя строка (или итоги) на странице.
СтрокаТаблицы = Новый Массив;
СтрокаТаблицы.Добавить(Строка);
Если НЕ (НомерСтроки = ВыборкаСтрокТовары.Количество()) Тогда
СтрокаТаблицы.Добавить(ПоследняяСтрока);
Иначе
СтрокаТаблицы.Добавить(Итого);
КонецЕсли;

Если НЕ ТабДокумент.ПроверитьВывод(СтрокаТаблицы) Тогда

НомерСтраницы = НомерСтраницы + 1;

ТабДокумент.Вывести(ПоследняяСтрока);
ТабДокумент.ВывестиГоризонтальныйРазделительСтраниц();
ЗаголовокТаблицы.Параметры.НомерСтраницы = "Страница " + НомерСтраницы;
ТабДокумент.Вывести(ЗаголовокТаблицы);

КонецЕсли;

СчетДт = СтрокаТовар.СчетДт;
//Поз = Найти(СчетДт, ".");
//СчетДт = ?(Поз>0, Лев(СчетДт, Поз-1), СчетДт);

СчетКт = СтрокаТовар.СчетКт;
//Поз = Найти(СчетКт, ".");
//СчетКт = ?(Поз>0, Лев(СчетКт, Поз-1), СчетКт);

Строка.Параметры.Заполнить(СтрокаТовар);
        Строка.Параметры.ПричинаСписания = СокрЛП(СсылкаНаОбъект.Комментарий);
Строка.Параметры.СчетДт = СчетДт;
Строка.Параметры.СчетКт = СчетКт;

ТабДокумент.Вывести(Строка);

ИтогоКоличество  = ИтогоКоличество + Строка.Параметры.Количество;
ИтогоСуммаПервоначальнойСтоимости = ИтогоСуммаПервоначальнойСтоимости + Строка.Параметры.СуммаПервоначальнойСтоимости;

КонецЦикла;

// Выводим итоги по документу
Итого.Параметры.КоличествоПорядковыхНомеровЗаписейПрописью = ЧислоПрописью(ВыборкаСтрокТовары.Итог("Количество"), ,",,,,,,,,0");
Итого.Параметры.ИтогоСуммаПервоначальнойСтоимости = Формат(ИтогоСуммаПервоначальнойСтоимости, "ЧЦ=15; ЧДЦ=2; ЧРД=.; ЧРГ=' '");
ТабДокумент.Вывести(Итого);

// Проверим, помещается ли подвал
Если НЕ ТабДокумент.ПроверитьВывод(Подвал) Тогда
ТабДокумент.ВывестиГоризонтальныйРазделительСтраниц();
КонецЕсли;

wise

посмотри в отладчике ТЗ "ВыборкаСтрокТовары"
Представьте себе, какая была бы тишина, если бы люди говорили только то, что знают

Теги:

Похожие темы (5)

Рейтинг@Mail.ru

Поиск