|
v7: Выгрузка ТЗ на печатную форму. | ☑ | ||
---|---|---|---|---|
0
Neros
26.03.13
✎
13:59
|
Добрый день. подскажите как вывести Тз на Печатную форму.
такой код: НалогНакл=СоздатьОбъект("Документ.НалоговаяНакладная"); ТаблРасходНакл=СоздатьОбъект("ТаблицаЗначений"); НалогНакл.ВыгрузитьТабличнуюЧасть(ТаблРасходНакл); РасНакл=СоздатьОбъект("Документ.РасходнаяНакладная"); РасНакл.ВыбратьДокументы(ДатаНачала,ДатаКонца); Пока РасНакл.ПолучитьДокумент()=1 Цикл Если (РасНакл.типучета=1) и (РасНакл.Проведен()=1) и (РасНакл.Контрагент=Контрагент) Тогда РасНакл.ВыбратьСтроки(); Пока РасНакл.ПолучитьСтроку()>0 Цикл ТаблРасходНакл.НоваяСтрока(); ТаблРасходНакл.Товар=РасНакл.Товар; ТаблРасходНакл.Единица=РасНакл.Единица; ТаблРасходНакл.Количество=РасНакл.Количество; ТаблРасходНакл.Коэффициент=РасНакл.Коэффициент; ТаблРасходНакл.ЦенаБезНДС=РасНакл.ЦенаБезНДС; ТаблРасходНакл.СуммаСкидки=РасНакл.СуммаСкидки; ТаблРасходНакл.СуммаСНДС=РасНакл.СуммаСНДС; ТаблРасходНакл.СуммаБезНДС=РасНакл.СуммаБезНДС; ТаблРасходНакл.СуммаБезСкидки=РасНакл.СуммаБезСкидки; КонецЦикла; КонецЕсли; КонецЦикла; РасНаклШ=Создатьобъект("Документ.РасходнаяНакладнаяШ"); РасНаклШ.ВыбратьДокументы(ДатаНачала,ДатаКонца); Пока РасНаклШ.ПолучитьДокумент()=1 Цикл Если (РасНаклШ.типучета=1) и (РасНаклШ.Проведен()=1)и(РасНаклШ.Контрагент=Контрагент) Тогда РасНаклШ.ВыбратьСтроки(); Пока РасНаклШ.ПолучитьСтроку()>0 Цикл ТаблРасходНакл.НоваяСтрока(); ТаблРасходНакл.Товар=РасНаклШ.Товар; ТаблРасходНакл.Единица=РасНаклШ.Единица; ТаблРасходНакл.Количество=РасНаклШ.Количество; ТаблРасходНакл.Коэффициент=РасНаклШ.Коэффициент; ТаблРасходНакл.ЦенаБезНДС=РасНаклШ.ЦенаБезНДС; ТаблРасходНакл.СуммаСкидки=РасНаклШ.СуммаСкидки; ТаблРасходНакл.СуммаСНДС=РасНаклШ.СуммаСНДС; ТаблРасходНакл.СуммаБезНДС=РасНаклШ.СуммаБезНДС; ТаблРасходНакл.СуммаБезСкидки=РасНаклШ.СуммаБезСкидки; КонецЦикла; КонецЕсли; КонецЦикла; ТаблРасходНакл.Свернуть("Товар,Единица,Коэффициент,ЦенаБезНДС","Количество,СуммаСкидки,СуммаСНДС,СуммаБезНДС,СуммаБезСкидки"); |
|||
1
1Сергей
26.03.13
✎
14:00
|
ТаблРасходНакл.ВывестиНаПечатнуюФорму();
|
4 |
||
2
КВ-5
26.03.13
✎
14:02
|
Рекомендую, классная вещь. http://infostart.ru/public/14794/
|
|||
3
Wobland
26.03.13
✎
14:05
|
РезультатИтоги.ВыбратьСтроки();
Пока РезультатИтоги.ПолучитьСтроку()=1 Цикл КонечныйОстаток=НачальныйОстаток+Приход-Расход; ТабДок.ВывестиСекцию("Строка"); КонецЦикла; КонецЕсли; ТабДок.Показать(); |
4 |
||
4
Neros
26.03.13
✎
14:17
|
Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |