Имя: Пароль:
1C
1С v8
Макет ТОРГ 12
0 mi4asib
 
03.04.12
13:25
1. 100% (1)
2. сходить в холодный душ 0% (0)
3. утро вечера мудрее 0% (0)
Всего мнений: 1

в колонке "Сумма без учета НДС, руб. коп." пишет Сумму с НДС
как поправить в макете это дело, хотя стоит <СуммаБезНДС>
1 vicof
 
03.04.12
13:26
а в документе что стоит?
2 Галахад
 
гуру
03.04.12
13:27
А код посмотреть?
3 Cube
 
03.04.12
13:28
А может позвать специалиста? :)

4 vicof
 
03.04.12
13:29
4. прострелить коленку?)
5 Alexor
 
03.04.12
13:30
А НДС-то есть?
6 mi4asib
 
03.04.12
13:30
Для каждого строч из Товары Цикл
       инд = инд+1;
       Стр.Параметры.Номер                       = строч.НомерСтроки;
       Стр.Параметры.ТоварНаименование           = строч.Номенклатура.ПолноеНаименование;
       Стр.Параметры.ТоварКод                    = Строч.Номенклатура.Код;
       
       Стр.Параметры.БазоваяЕдиницаНаименование  = строч.Номенклатура.ЕдиницаИзмерения.Наименование;
       Стр.Параметры.БазоваяЕдиницаКодПоОКЕИ     = строч.Номенклатура.ЕдиницаИзмерения.Код;
       Стр.Параметры.Количество                  = строч.Количество;
       Стр.Параметры.Цена                        = строч.Цена;
       Стр.Параметры.СуммаБезНДС                 = строч.Сумма;
       Стр.Параметры.СтавкаНДС                   = Строч.НДС;
       Стр.Параметры.СуммаНДС                    = строч.СуммаНДС;
       Стр.Параметры.СуммаСНДС                   = строч.СуммаВсего;
       Стр.Параметры.Номенклатура                = строч.Номенклатура;
       
       ИтогКоличествоПоСтранице = ИтогКоличествоПоСтранице+строч.Количество;
       ИтогСуммыПоСтранице      = ИтогСуммыПоСтранице+строч.Сумма;
       ИтогНДСПоСтранице        = ИтогНДСПоСтранице + строч.СуммаНДС;
       ИтогСуммыСНДСПоСтранице  = ИтогСуммыСНДСПоСтранице+строч.СуммаВсего;
7 vicof
 
03.04.12
13:31
(6) "Для каждого строч из Товары Цикл"
уже видно кривой нетиповой код)
8 mi4asib
 
03.04.12
13:34
Стр.Параметры.СуммаБезНДС                 = строч.Сумма;
заменить на
Стр.Параметры.СуммаБезНДС                 = строч.СуммаБезНДС;
9 mi4asib
 
03.04.12
13:53
чото не могу сообразить, лан завтра утром затащу его )
10 Homer
 
03.04.12
14:15
а где проверка на "в том числе " или "Сверху"?
11 mi4asib
 
03.04.12
14:24
Процедура Печать() Экспорт
   
   табДок = Новый ТабличныйДокумент;
   Макет = ПолучитьМакет("ТОРГ12");
   Шапка = Макет.ПолучитьОбласть("Шапка");
   Шапка.Параметры.ПредставлениеОрганизации     = Организация.ПолноеНаименование+ ", ИНН "+Организация.ИНН+", "+Организация.Индекс+", "+Организация.Адрес+", тел.: "+Организация.Телефон+", "+Организация.БанковскиСчет.Представление;
   Шапка.Параметры.Окуд                         = Организация.ОКУД;
   Шапка.Параметры.ОрганизацияПоОКПО            = Организация.ОКПО;
   Шапка.Параметры.ПредставлениеГрузополучателя = Грузополучатель.ПолноеНаименование+ ", ИНН "+Грузополучатель.ИНН+", "+Грузополучатель.Индекс+", "+Грузополучатель.Адрес+", тел.: "+Грузополучатель.Телефон+", "+Грузополучатель.БанковскиСчет.Представление;
   Шапка.Параметры.ПредставлениеПоставщика      = Грузоотправитель.ПолноеНаименование+ ", ИНН "+Грузоотправитель.ИНН+", "+Грузоотправитель.Индекс+", "+Грузоотправитель.Адрес+", тел.: "+Грузоотправитель.Телефон+", "+Грузоотправитель.БанковскиСчет.Представление;
   Шапка.Параметры.ПредставлениеПлательщика     = Контрагент.ПолноеНаименование+ ", ИНН "+Контрагент.ИНН+", "+Контрагент.Индекс+", "+Контрагент.Адрес+", тел.: "+Контрагент.Телефон+", "+Контрагент.БанковскиСчет.Представление;
   Шапка.Параметры.Основание                    = Договор;
   Шапка.Параметры.НомерДокумента               = Номер;
   Шапка.Параметры.ДатаДокумента                = Формат(Дата,"ДЛФ=Д");
   Шапка.Параметры.ГрузополучательПоОКПО        = Контрагент.ОКПО;
   Шапка.Параметры.ПоставщикПоОКПО              = Организация.ОКПО;
   Шапка.Параметры.ПлательщикПоОКПО             = Контрагент.ОКПО;
   
   ТабДок.Вывести(Шапка);
   НомерСтраницы = 1;
   ЗаголовокТаб = Макет.ПолучитьОбласть("ЗаголовокТаб");
   ЗаголовокТаб.Параметры.НомерСтраницы = "Страница "+НомерСтраницы;
   ТабДок.Вывести(ЗаголовокТаб);
   
   Стр = Макет.ПолучитьОбласть("Строка");
   инд = 0;
   ИтогКоличествоПоСтранице = 0;
   ИтогСуммыПоСтранице      = 0;
   ИтогНДСПоСтранице        = 0;
   ИтогСуммыСНДСПоСтранице  = 0;
   Для каждого строч из Товары Цикл
       инд = инд+1;
       Стр.Параметры.Номер                       = строч.НомерСтроки;
       Стр.Параметры.ТоварНаименование           = строч.Номенклатура.ПолноеНаименование;
       Стр.Параметры.ТоварКод                    = Строч.Номенклатура.Код;
       
       Стр.Параметры.БазоваяЕдиницаНаименование  = строч.Номенклатура.ЕдиницаИзмерения.Наименование;
       Стр.Параметры.БазоваяЕдиницаКодПоОКЕИ     = строч.Номенклатура.ЕдиницаИзмерения.Код;
       Стр.Параметры.Количество                  = строч.Количество;
       Стр.Параметры.Цена                        = строч.Цена;
       Стр.Параметры.СуммаБезНДС                 = строч.Сумма;
       Стр.Параметры.СтавкаНДС                   = Строч.НДС;
       Стр.Параметры.СуммаНДС                    = строч.СуммаНДС;
       Стр.Параметры.СуммаСНДС                   = строч.СуммаВсего;
       Стр.Параметры.Номенклатура                = строч.Номенклатура;
       
       ИтогКоличествоПоСтранице = ИтогКоличествоПоСтранице+строч.Количество;
       ИтогСуммыПоСтранице      = ИтогСуммыПоСтранице+строч.Сумма;
       ИтогНДСПоСтранице        = ИтогНДСПоСтранице + строч.СуммаНДС;
       ИтогСуммыСНДСПоСтранице  = ИтогСуммыСНДСПоСтранице+строч.СуммаВсего;
       
       ТабДок.Вывести(Стр);
       Если инд = 3 Тогда
           
           ИтогоПоСтранице = Макет.ПолучитьОбласть("ИтогоПоСтранице");
           ИтогоПоСтранице.Параметры.ИтогКоличествоПоСтранице = ИтогКоличествоПоСтранице;
           ИтогоПоСтранице.Параметры.ИтогСуммыПоСтранице      = ИтогСуммыПоСтранице;
           ИтогоПоСтранице.Параметры.ИтогНДСПоСтранице        = ИтогНДСПоСтранице;
           ИтогоПоСтранице.Параметры.ИтогСуммыСНДСПоСтранице  = ИтогСуммыСНДСПоСтранице;
           табДок.Вывести(ИтогоПоСтранице);
           
           НомерСтраницы=НомерСтраницы+1;
           инд = 0;
           ИтогКоличествоПоСтранице = 0;
           ИтогСуммыПоСтранице      = 0;
           ИтогНДСПоСтранице        = 0;
           ИтогСуммыСНДСПоСтранице  = 0;
           ТабДок.ВывестиГоризонтальныйРазделительСтраниц();
           ЗаголовокТаб = Макет.ПолучитьОбласть("ЗаголовокТаб");
           ЗаголовокТаб.Параметры.НомерСтраницы = "Страница "+НомерСтраницы;
           ТабДок.Вывести(ЗаголовокТаб);

       КонецЕсли;
   КонецЦикла;
   
   ИтогоПоСтранице = Макет.ПолучитьОбласть("ИтогоПоСтранице");
   ИтогоПоСтранице.Параметры.ИтогКоличествоПоСтранице = ИтогКоличествоПоСтранице;
   ИтогоПоСтранице.Параметры.ИтогСуммыПоСтранице      = ИтогСуммыПоСтранице;
   ИтогоПоСтранице.Параметры.ИтогНДСПоСтранице        = ИтогНДСПоСтранице;
   ИтогоПоСтранице.Параметры.ИтогСуммыСНДСПоСтранице  = ИтогСуммыСНДСПоСтранице;
   табДок.Вывести(ИтогоПоСтранице);
   
   Всего = Макет.ПолучитьОбласть("Всего");
   
   Всего.Параметры.ИтогКоличество = Товары.Итог("Количество");
   Всего.Параметры.ИтогСуммы      = Товары.Итог("Сумма");
   Всего.Параметры.ИтогНДС        = Товары.Итог("СуммаНДС");
   Всего.Параметры.ИтогСуммыСНДС  = Товары.Итог("СуммаВсего");
   
   ТабДок.Вывести(Всего);
   
   Подвал = Макет.ПолучитьОбласть("Подвал");
   Подвал.Параметры.КоличествоПорядковыхНомеровЗаписейПрописью = ЧислоПрописью(Товары.Количество(), ,",,,,,,,,0");
   Подвал.Параметры.СуммаПрописью                              = ОбщийМодуль.СформироватьСуммуПрописью(Товары.Итог("СуммаВсего"));
   
   ТабДок.Вывести(Подвал);

   
   ТабДок.ТолькоПросмотр = Истина;
   ТабДок.ОриентацияСтраницы = ОриентацияСтраницы.Ландшафт;
   ТабДок.ПолеСлева = 0;
   табДок.ПолеСправа = 0;
   табДок.Показать();
   
   
   
КонецПроцедуры

вот полностью код
12 Lelic
 
03.04.12
14:27
Обратите внимание на (10).
13 Маленький Вопросик
 
03.04.12
14:28
14 mi4asib
 
03.04.12
14:29
спасибо друк )
15 Alex S D
 
03.04.12
14:31
(14) неужели и доступ к инфостарту есть?)
16 mi4asib
 
03.04.12
14:36
да :)