![]() |
![]() |
![]() |
|
Макет ТОРГ 12 | ☑ | |||||||||
---|---|---|---|---|---|---|---|---|---|---|---|
0
mi4asib
03.04.12
✎
13:25
|
в колонке "Сумма без учета НДС, руб. коп." пишет Сумму с НДС
как поправить в макете это дело, хотя стоит <СуммаБезНДС> |
||||||||||
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
|
да :)
|
Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |