Внешняя печатная форма не выводит сумму по колонке

25.07.2012, 10:15. **Показов** 1901. **Ответов** 2

Студворк — интернет-сервис помощи студентам

Есть печатная форма м-11 нужно вывести сумму по колонке почему то не выводит подскажите плиз в чем проблема

Таб.ВывестиСекцию("Подвал");

1C
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
//******************************************************************************
// КодСубсчета()
//
// Возвращаемое значение:
//  Строка - код субсчета, на котором учитываются списываеме МПЗ;
//
Функция КодСубсчета(Д)
                                             
    Код = "";
    
    Если Д.Материал.Вид() = "Материалы" Тогда
        Код = Д.Материал.СубСчет10;
        
    ИначеЕсли Д.Материал.Вид() = "Номенклатура" Тогда
        Если Д.Материал.ТипНоменклатуры = Перечисление.ТипыНоменклатуры.Продукция Тогда
            Код = "43";
            
        Иначе // полуфабрикат
            Код = "21";
        КонецЕсли;
    КонецЕсли;
    
    Возврат Код;
    
КонецФункции // КодСубсчета()
 
//_____________________________________________________________________________
    
Процедура Печать(Д, Устройство=0, КолвоКопий=1) 
    
    перем сум1;
    Таб = СоздатьОбъект("Таблица");
    Таб.ИсходнаяТаблица("М-11");
    
    ПодразделениеПолучатель = "";
    Если Д.ВидПеремещения = 0 Тогда
        КорСчет = Д.СчетЗатрат.Код;
        Для СчетчикЦикла = 1 По Д.СчетЗатрат.КоличествоСубконто() Цикл 
            Субконто = Д.ПолучитьАтрибут("Субконто" + СчетчикЦикла);
            Если Субконто.Вид() = "Подразделения" Тогда
                ПодразделениеПолучатель = Субконто;
                Прервать;
            КонецЕсли;
        КонецЦикла;
    Иначе
        ПодразделениеПолучатель = Д.МестоХраненияПриемник;
    КонецЕсли;                 
    ПодразделениеОтправитель = Д.МестоХранения;
    
    
    сум1=0; // мое
    
 
    Если Д.Проведен() = 0 Тогда
        НомерПовторяемойСтроки = 16;
        ТекстПредупреждения = "Для непроведенного документа графы ""Цена"" и ""Сумма"" не заполняются.";
        Таб.ВывестиСекцию("Предупреждение");
        Таб.ВывестиСекцию("Шапка");
        
        Д.ВыбратьСтроки();
        Пока Д.ПолучитьСтроку() = 1 Цикл
            Субсчет = КодСубсчета(Д);
            Если Д.Материал.Выбран() = 1 Тогда
                МатЦенность = Д.Материал;
                Код = Д.Материал.Код;
                ЕдиницаИзмерения = Д.Материал.ЕдиницаИзмерения;
                ЕдиницаИзмеренияКод = Д.Материал.ЕдиницаИзмерения.Код;
                МатериалСумма = 0;
                МатериалЦенаБезНДС = 0;
                    сум1=сум1+МатериалСумма;// мое
            КонецЕсли;
            Таб.ВывестиСекцию("Строка");
            Состояние("Выведено строк: " + Д.НомерСтроки);
        КонецЦикла;
        
    ИначеЕсли Д.Модифицированность() = 1 Тогда
        Предупреждение("Для печати документ необходимо перепровести.");
        Возврат;
        
    Иначе
        НомерПовторяемойСтроки = 15;
        Таб.ВывестиСекцию("Шапка");
 
        Д.ВыбратьСтроки();
        Пока Д.ПолучитьСтроку() = 1 Цикл
            Если Д.Материал.Выбран() = 1 Тогда
                Субсчет = КодСубсчета(Д);
                МатЦенность = Д.Материал;
                Код = Д.Материал.Код;
                ЕдиницаИзмерения = Д.Материал.ЕдиницаИзмерения;
                ЕдиницаИзмеренияКод = Д.Материал.ЕдиницаИзмерения.Код;
                МатериалСумма = Д.Сумма;
                МатериалЦенаБезНДС = Д.Сумма / Д.КоличествоОтпущено; 
                    сум1=сум1+МатериалСумма;// мое
            КонецЕсли;
            Таб.ВывестиСекцию("Строка");
            Состояние("Выведено строк: " + Д.НомерСтроки);
        КонецЦикла;
    КонецЕсли;
 
    Таб.ВывестиСекцию("Подвал");
    Таб.ПовторятьПриПечатиСтроки(НомерПовторяемойСтроки, НомерПовторяемойСтроки);
    
    
    Если Устройство = 0 Тогда
        Таб.Опции(0, 0, ?(Д.Проведен() = 0, 1, 0), 0, "ОпцииПечатиМ11", "ОкноМ11");   
        Таб.ОбластьПечати(?(Д.Проведен() = 0, 2, 1), 2,,);
        Таб.ТолькоПросмотр(1);
        Таб.Показать("Требование-накладная (форма №М-11)");
    Иначе     
        Таб.КоличествоЭкземпляров(КолвоКопий);
        Таб.Напечатать(0);
    КонецЕсли;
КонецПроцедуры // Печать()
 
 
//******************************************************************************
// ПоКнопкеПечать()
//
// Параметры:
//  Нет
//
// Возвращаемое значение:
//  Нет
//
// Описание:
//
Процедура ПоКнопкеПечать()
    
    Если Док.Выбран() = 0 Тогда
        Предупреждение("Не выбран документ!", 60);
        Возврат;
    КонецЕсли;
    
    Печать(Док);
    
КонецПроцедуры // ПоКнопкеПечать()
 
//******************************************************************************
// Предопределенная процедура
//
Процедура ПриОткрытии()
    
    Если ПустоеЗначение(Форма.Параметр) = 0 Тогда
        
        Докум      = Форма.Параметр.Получить("Контекст");
        Устройство = Форма.Параметр.Получить("Устройство");
        КолвоКопий = Форма.Параметр.Получить("КоличествоКопий");
    
        Печать(Докум, Устройство, КолвоКопий);
        Статусвозврата(0);
        Возврат;
    КонецЕсли;
    
    
КонецПроцедуры // ПриОткрытии()

Добавлено через 30 секунд
не пойму просто в чем дело почему не выводит

Добавлено через 6 минут
т.е. надо сделать чтобы по колонке суммировалась материалсумма

@duk337 · 25.07.2012, 16:43

1C
1
2
3
4
5
6
7
8
сум1=сум1+МатериалСумма;// мое
КонецЕсли;
Таб.ВывестиСекцию("Строка");
Состояние("Выведено строк: " + Д.НомерСтроки);
КонецЦикла;
КонецЕсли;
 
Таб.ВывестиСекцию("Подвал");

Есть версия, что в секции "Подвал" отсутствует вывод "сум1"

25.07.2012, 19:31

спасибо большое за подсказку сделал все хорошо выводит, но интеерсная штука меня поразила что как на 8-ке внешнюю печатную форму хелпы есть как делать а на 7-ке нуна еще постараться найти

Добавлено через 27 минут
я дополнительно просто вывел секцию итого но все равно спасибо за помощь!!!

Новые блоги и статьи Все статьи Все блоги /
Программный контроль заполнения реквизита табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать контроль заполнения реквизита "ПричинаСписания". . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .
Программное заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .	Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем

LED82
	25.07.2012, 19:31
	спасибо большое за подсказку сделал все хорошо выводит, но интеерсная штука меня поразила что как на 8-ке внешнюю печатную форму хелпы есть как делать а на 7-ке нуна еще постараться найти Добавлено через 27 минут я дополнительно просто вывел секцию итого но все равно спасибо за помощь!!!