Расчет Итога по Сумме

Новая тема

marikkil

читатель

Регистрация: 19.02.2015

Сообщений: 39

23.02.2015

16:03

Здравсвтвуйте, столкнулся с такой проблемой: мне нужно по колонке СУММА вывести ИТОГ . Это нужно сделать в макете кнопка печати
Вот код :

Код
Процедура ПоставщикОбработкаВыбора(Элемент, ВыбранноеЗначение, СтандартнаяОбработка)       если не ВыбранноеЗначение.Поставщик тогда             сообщить("Выбранный контрагент не является поставщиком");             ВыбранноеЗначение="";       конецесли;               КонецПроцедуры Процедура СкладОбработкаВыбора(Элемент, ВыбранноеЗначение, СтандартнаяОбработка)       если ВыбранноеЗначение.видсклада = Перечисления.ВидыСклада.Розничный тогда             сообщить("В документе можно выбрать только оптовый вид склада" );             ВыбранноеЗначение= "";             конецесли;               КонецПроцедуры             //Разработать документ "Продажа товара":реквезиты(организация,контрагент,склад,ТипЦены,кладовщик),ТаблЧасть_                               //Товары,(Номенклатура,ЕдИзм,Кол-во,цена,сумма),ТЧ_Услуги(номенклатура,едизм,кол-во,цена,сумма);                               //Для документа создатьформу,ТаблЧасти разлелить по вкладкам,                               //      в документе возможно выбрать только покупателя,ТипЦен любой кроме закупочных.                                      Процедура ТоварыНоменклатураОбработкаВыбора(Элемент, ВыбранноеЗначение, СтандартнаяОбработка)                                если ВыбранноеЗначение.ВидНоменклатуры=Перечисления.ВидыНоменклатуры.Услуга тогда                                       сообщить("Нельзя выбирать услуги");                    ВыбранноеЗначение="";              иначе                    ЕдИзм=Выбранноезначение.ЕдиницаИзмерения;              ЭлементыФормы.Товары.ТекущаяСтрока.ЕдИзм = ЕдИзм;                                                 конецесли;              КонецПроцедуры Процедура КоличествоЦенаПриИзмененииТовары(Элемент) РаботаСДокументами.РасчетСуммыТЧДокумента(типзнч(ЭтотОбъект),ЭлементыФормы.Товары.ТекущаяСтрока);        конецпроцедуры Процедура ПечатьТекстовыйДокумент(Кнопка)       ТекстДок= новый ТекстовыйДокумент;              Заголовок = "Приходная накладная №" + ЭтотОбъект.Номер + " от " + формат(ЭтотОбъект.Дата,"ДФ=yyyy-MM-dd");       ТекстДок.ДобавитьСтроку(Заголовок);       ТекстДок.ДобавитьСтроку("");       ТекстДок.ДобавитьСтроку("Организация:"+ ЭтотОбъект.Организация);       ТекстДок.ДобавитьСтроку("Поставщик:" + ЭтотОбъект.Поставщик);       ТекстДок.ДобавитьСтроку(" ");       ТекстДок.ДобавитьСтроку("Товар\|Ед.Изм\|Количество\|Цена\|Сумма");       для каждого стр из ЭтотОбъект.Товары цикл ТекстДок.ДобавитьСтроку(строка(стр.Номенклатура)+ "\|" + Строка(стр.ЕдИзм) + "\|" + стр.Количество + "\|" + стр.ЦенаЗаШт +                         "\|" + стр.Сумма);                   конеццикла;       ТекстДок.ДобавитьСтроку(" ");       ТекстДок.ДобавитьСтроку("Сдал______________");             ТекстДок.ДобавитьСтроку("Принял______________");       ТекстДок.ТолькоПросмотр=Истина; ТекстДок.Показать();                           КонецПроцедуры Процедура ПечатьПриходнаяНакладная(Кнопка)       ТабДок=новый ТабличныйДокумент;       Макет= ЭтотОбъект.ПолучитьМакет("МакетПриходнаяНакладная");       // Получаем и заполняем область заголовок       ОбластьЗаголовок= Макет.ПолучитьОбласть("Заголовок");       ОбластьЗаголовок.Параметры.НомерДок= ЭтотОбъект.Номер;       ОбластьЗаголовок.Параметры.ДатаДок= лев(ЭтотОбъект.Дата,10); ОбластьЗаголовок.Параметры.Организация= ЭтотОбъект.Организация;        ТабДок.Вывести(ОбластьЗаголовок);        ТабДок.Показать(ОбластьЗаголовок);               // Получаем и заполняем шапку таблицы              ОбластьШапка=Макет.ПолучитьОбласть("Шапка");               ТабДок.Вывести(ОбластьШапка);               // Получаем и заполняем область строки                     ОбластьСтроки=Макет.ПолучитьОбласть("Строки");              для каждого стр из ЭтотОбъект.Товары цикл                                                         ОбластьСтроки.Параметры.НомерСтр=стр.НомерСтроки; ОбластьСтроки.Параметры.Номенклатура=стр.Номенклатура; ОбластьСтроки.Параметры.едизм=стр.ЕдИзм; ОбластьСтроки.Параметры.Кол=стр.Количество; ОбластьСтроки.Параметры.Цена=стр.ЦенаЗаШт; ОбластьСтроки.Параметры.сумма=стр.Сумма; ТабДок.Вывести(ОбластьСтроки); Табдок.Показать(); конеццикла;                          Областьподвал=Макет.ПолучитьОбласть("Подвал");              Табдок.Вывести(ОбластьПодвал);       ТабДок.ТолькоПросмотр=Истина;       табдок.ОтображатьСетку=ложь;       табдок.ОтображатьЗаголовки=ложь;       табдок.ОриентацияСтраницы=ОриентацияСтраницы.Ландшафт;       Табдок.Показать();                                КонецПроцедуры Процедура КоманднаяПанель1ЗаполнитьВсеми(Кнопка)                      если ЭтотОбъект.Товары.Количество()>0 тогда              ответ=Вопрос("Табличная часть уже содержит товары,очистить?",РежимДиалогаВопрос.ДаНет);                   если ответ=КодВозвратаДиалога.да тогда                         ЭтотОбъект.Товары.Очистить();                         иначе возврат;                   конецесли;             конецесли;       отбор=новый структура("ВидНоменклатуры");              отбор.вставить("ВидНоменклатуры",Перечисления.ВидыНоменклатуры.Товар);             ВыборкаНоменклатуры=Справочники.Номенклатура.Выбрать(,,Отбор);       пока ВыборкаНоменклатуры.Следующий() цикл                    новстр=ЭтотОбъект.Товары.Добавить();              новстр.Номенклатура=ВыборкаНоменклатуры.Ссылка;                         новстр.ЕдИзм=ВыборкаНоменклатуры.ЕдиницаИзмерения;                                                    конеццикла;               КонецПроцедуры Процедура КоманднаяПанель1ЗаполнениеЦен(Кнопка) ЗакупочнаяЦена=Справочники.ТипыЦен.НайтиПоКоду("000000001");       Отбор= новый структура("Номенклатура,ЕдИзм,ТипЦены"); Отбор.Вставить("ТипЦены",ЗакупочнаяЦена); для каждого стр из ЭтотОбъект.Товары цикл отбор.Вставить("ТипЦены",ЗакупочнаяЦена);       Отбор.Вставить("Номенклатура",стр.Номенклатура); отбор.Вставить("ЕдИзм",стр.ЕдИзм);       ВыборЦены=РегистрыСведений.ЦеныНоменклатуры.ПолучитьПоследнее(ТекущаяДата(),Отбор);       стр.ЦенаЗаШт=ВыборЦены.цена; РаботаСДокументами.РасчетСуммыТЧДокумента(Типзнч(ЭтотОбъект),стр); конеццикла;               КонецПроцедуры //Процедру для подставления ед изм и для расчета суммы

Код

Процедура ПоставщикОбработкаВыбора(Элемент, ВыбранноеЗначение, СтандартнаяОбработка)
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;если не ВыбранноеЗначение.Поставщик тогда
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;сообщить("Выбранный контрагент не является поставщиком");  
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;ВыбранноеЗначение="";
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;конецесли;
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
КонецПроцедуры

Процедура СкладОбработкаВыбора(Элемент, ВыбранноеЗначение, СтандартнаяОбработка)
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;если ВыбранноеЗначение.видсклада = Перечисления.ВидыСклада.Розничный тогда
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;сообщить("В документе можно выбрать только оптовый вид склада" );
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;ВыбранноеЗначение= "";
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;конецесли;
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
КонецПроцедуры

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;//Разработать документ "Продажа товара":реквезиты(организация,контрагент,склад,ТипЦены,кладовщик),ТаблЧасть_
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;//Товары,(Номенклатура,ЕдИзм,Кол-во,цена,сумма),ТЧ_Услуги(номенклатура,едизм,кол-во,цена,сумма);
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;//Для документа создатьформу,ТаблЧасти разлелить по вкладкам,
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;//&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;в документе возможно выбрать только покупателя,ТипЦен любой кроме закупочных.
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
Процедура ТоварыНоменклатураОбработкаВыбора(Элемент, ВыбранноеЗначение, СтандартнаяОбработка)
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;если ВыбранноеЗначение.ВидНоменклатуры=Перечисления.ВидыНоменклатуры.Услуга тогда
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;  сообщить("Нельзя выбирать услуги");
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;  ВыбранноеЗначение="";
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;  иначе 
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;  ЕдИзм=Выбранноезначение.ЕдиницаИзмерения;
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;ЭлементыФормы.Товары.ТекущаяСтрока.ЕдИзм = ЕдИзм;

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;конецесли;
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
КонецПроцедуры



Процедура КоличествоЦенаПриИзмененииТовары(Элемент)
РаботаСДокументами.РасчетСуммыТЧДокумента(типзнч(ЭтотОбъект),ЭлементыФормы.Товары.ТекущаяСтрока);
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
конецпроцедуры

Процедура ПечатьТекстовыйДокумент(Кнопка)

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;ТекстДок= новый ТекстовыйДокумент;
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Заголовок = "Приходная накладная №" + ЭтотОбъект.Номер + " от "  + формат(ЭтотОбъект.Дата,"ДФ=yyyy-MM-dd");&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
    ТекстДок.ДобавитьСтроку(Заголовок);
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;ТекстДок.ДобавитьСтроку("");
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;ТекстДок.ДобавитьСтроку("Организация:"+ ЭтотОбъект.Организация);
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;ТекстДок.ДобавитьСтроку("Поставщик:" + ЭтотОбъект.Поставщик);
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;ТекстДок.ДобавитьСтроку(" ");
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;ТекстДок.ДобавитьСтроку("Товар|Ед.Изм|Количество|Цена|Сумма");
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;для каждого стр из ЭтотОбъект.Товары цикл
    ТекстДок.ДобавитьСтроку(строка(стр.Номенклатура)+ "|" + Строка(стр.ЕдИзм) + "|" +  стр.Количество + "|"  + стр.ЦенаЗаШт + 
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"|" + стр.Сумма);
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;конеццикла;
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;ТекстДок.ДобавитьСтроку(" ");
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;ТекстДок.ДобавитьСтроку("Сдал______________");&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;ТекстДок.ДобавитьСтроку("Принял______________");&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
    ТекстДок.ТолькоПросмотр=Истина;
   ТекстДок.Показать();
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
КонецПроцедуры

Процедура ПечатьПриходнаяНакладная(Кнопка)
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;ТабДок=новый ТабличныйДокумент;
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Макет= ЭтотОбъект.ПолучитьМакет("МакетПриходнаяНакладная");
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;// Получаем  и заполняем область заголовок
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;ОбластьЗаголовок= Макет.ПолучитьОбласть("Заголовок");
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;ОбластьЗаголовок.Параметры.НомерДок= ЭтотОбъект.Номер;
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;ОбластьЗаголовок.Параметры.ДатаДок= лев(ЭтотОбъект.Дата,10);
    ОбластьЗаголовок.Параметры.Организация= ЭтотОбъект.Организация;
   &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ТабДок.Вывести(ОбластьЗаголовок);
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ТабДок.Показать(ОбластьЗаголовок);
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; //  Получаем и заполняем шапку таблицы&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ОбластьШапка=Макет.ПолучитьОбласть("Шапка");
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ТабДок.Вывести(ОбластьШапка);
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; // Получаем и заполняем область строки&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;      ОбластьСтроки=Макет.ПолучитьОбласть("Строки");
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;  для каждого стр из ЭтотОбъект.Товары цикл
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;  
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;ОбластьСтроки.Параметры.НомерСтр=стр.НомерСтроки;
            ОбластьСтроки.Параметры.Номенклатура=стр.Номенклатура;
            ОбластьСтроки.Параметры.едизм=стр.ЕдИзм;
            ОбластьСтроки.Параметры.Кол=стр.Количество;
ОбластьСтроки.Параметры.Цена=стр.ЦенаЗаШт;
ОбластьСтроки.Параметры.сумма=стр.Сумма;


ТабДок.Вывести(ОбластьСтроки);
Табдок.Показать();

конеццикла;
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;  
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Областьподвал=Макет.ПолучитьОбласть("Подвал");
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Табдок.Вывести(ОбластьПодвал);
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;ТабДок.ТолькоПросмотр=Истина;
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;табдок.ОтображатьСетку=ложь;
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;табдок.ОтображатьЗаголовки=ложь;
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;табдок.ОриентацияСтраницы=ОриентацияСтраницы.Ландшафт;
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Табдок.Показать();&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;  
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;  
КонецПроцедуры

Процедура КоманднаяПанель1ЗаполнитьВсеми(Кнопка)
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;     если ЭтотОбъект.Товары.Количество()>0 тогда
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    ответ=Вопрос("Табличная часть уже содержит товары,очистить?",РежимДиалогаВопрос.ДаНет);
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;если ответ=КодВозвратаДиалога.да тогда
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;ЭтотОбъект.Товары.Очистить();
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;иначе возврат;
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;конецесли;
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;конецесли;

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;отбор=новый структура("ВидНоменклатуры");
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;отбор.вставить("ВидНоменклатуры",Перечисления.ВидыНоменклатуры.Товар);&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;ВыборкаНоменклатуры=Справочники.Номенклатура.Выбрать(,,Отбор);
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;пока ВыборкаНоменклатуры.Следующий() цикл&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;        новстр=ЭтотОбъект.Товары.Добавить();
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;        новстр.Номенклатура=ВыборкаНоменклатуры.Ссылка;
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;новстр.ЕдИзм=ВыборкаНоменклатуры.ЕдиницаИзмерения;
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;          конеццикла;

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
КонецПроцедуры

Процедура КоманднаяПанель1ЗаполнениеЦен(Кнопка)
ЗакупочнаяЦена=Справочники.ТипыЦен.НайтиПоКоду("000000001");&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
Отбор= новый структура("Номенклатура,ЕдИзм,ТипЦены");
Отбор.Вставить("ТипЦены",ЗакупочнаяЦена);
для каждого стр из ЭтотОбъект.Товары цикл
отбор.Вставить("ТипЦены",ЗакупочнаяЦена);&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
Отбор.Вставить("Номенклатура",стр.Номенклатура);
отбор.Вставить("ЕдИзм",стр.ЕдИзм);&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
ВыборЦены=РегистрыСведений.ЦеныНоменклатуры.ПолучитьПоследнее(ТекущаяДата(),Отбор);&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
стр.ЦенаЗаШт=ВыборЦены.цена;
   РаботаСДокументами.РасчетСуммыТЧДокумента(Типзнч(ЭтотОбъект),стр);
конеццикла;




&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
КонецПроцедуры



//Процедру для подставления ед изм и для расчета суммы

Ответили: пост #2

Prikum

активный пользователь

Регистрация: 18.02.2002

Сообщений: 21078

23.02.2015

22:07

Ответ на пост №1

marikkil, ИтоговаяСумма = ТаблицаЗначений.Итог("КолонкаПоКоторойСчитаемСумму")

Изменение формы собственности - та же организация или разные - как это (правильно) в 1С и в реаале?Перенос данных из ЗУП 2.5 в ЗУП 3.0

(гостей: 1)

Быстрый переход

Новые комментарии

Курьер с дискетой

06 часов назад

2026: поздравление для бухгалтеров от редакции БУХ.1С

С новым годом наступившим! всем успехов и процветания!

Рыжая из бухгалтерии

20 часов назад

Как представлять уведомления о рассчитанных суммах НДФЛ и страховых взносов в 2026 году

А смысл сего действа? Чтоб списывать налог по этому уведомлению ( ндфл же в первую очередь списывают) за счет перечислений на енс для оплаты других налогов ? А если по факту ндфл за какой-то месяц меньше получится, то нужно переподавать такое уведомление , иначе по оплате других налогов пеня начнет капать?

Злобный главбух

21 час назад

С Новым годом! Спасибо вам за ваш полезный сайт, ваш труд, нашу выручалочку! Здоровья вашим семьям и исполнения всех желаний!!!

Любознательный инспектор

1 день назад

Выпущена версия 3.0.13.210 конфигурации «Управление нашей фирмой»

Нужно гвоздь а голову забить тем, кто решил так изменить интерфейс, и руки по плечо отрубить тем, кто это реализовывал!!! У всех пользователей на формах все перекорежилось, на небольших мониторах вообще полный треш. Решить в подборе фильтры и группы расположить в отдельных закладках можно было только под действием сильнодействующих на головной мозг веществ!!! Да и вообще, УНФ скатилась ниже не куда! Одна бонусная система чего стоит: куча ошибок при начислении и списании, еще и с каждым новым релизом становиться их все больше, одни маты только остались для выражения эмоций! Это последний гвоздь в крышку гроба УНФ! Остановите поезд, я сойду...

Герой документооборота

Страховые взносы с зарплаты руководителей с 2026 года в «1С:Зарплате и управлении персоналом 8» ред. 3

А если директор на больничном, а другие сотрудники продолжают работать (на них есть взносы). На директора нужно будет все равно начислять взносы с МРОТ?