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