Новости для бухгалтера, бухучет, налогообложение, отчетность, ФСБУ, прослеживаемость и маркировка, 1С:Бухгалтерия

Вход или Регистрация

Показывать по 10 20 40 сообщений
Новая тема Ответить
Письмо в техподдержку 1С
[Прочее]

1с 7.7 Бухгалтерия Подскажите как заполнить значениями таблицу Печатной формы?

Leonardo2009
читатель
офлайн
Дата регистрации: 13.04.2009
Сообщений: 100
Пост №1
 
12.08.2009 14:59

"Сделал отчет "Возврат товаров", все данные получены, но встал вопрос каким методом их заполнить в таблицу.<br><br>вот код отчета:<br>Процедура Выполнить()<br> <br> Док=СоздатьОбъект("Документ.РасходнаяНакладная");<br> Док.ВыбратьДокументы(Дата1,Дата2);<br> <br> Таб=СоздатьОбъект("Таблица");<br> Таб.ИсходнаяТаблица("""");            <br> Таб.ВывестиСекцию("Шапка");<br> <br> Пока Док.ПолучитьДокумент()=1 Цикл<br> Если Док.ВозвратГП=1 Тогда<br> ДатаПер=Док.ПолучитьАтрибут("ДатаДок");<br> НомерДока=Док.ПолучитьАтрибут("НомерДок");<br> Контр=Док.ПолучитьАтрибут("Контрагент");<br> Док.ВыбратьСтроки();<br> Если Док.КоличествоСтрок()>0 Тогда<br> Пока Док.ПолучитьСтроку()=1 Цикл <br> <br> Тов=Док.ПолучитьАтрибут("Товар");<br> Км=Док.ПолучитьАтрибут("Количество"); <br> К=Км*(-1); <br> Таб.ВывестиСекцию("Строка|Строка1");<br> <br> КонецЦикла;<br> КонецЕсли;<br> КонецЕсли;<br> <br> <br> КонецЦикла;<br> // Таб.ВывестиСекцию("Подвал");<br> Таб.ТолькоПросмотр(1); <br> Таб.Опции(0,0,0,0);<br> Таб.Показать("""");<br> <br>КонецПроцедуры<br><br>таблица должна иметь следующий вид.<br>       | товар | товар | товар | товар | товар<br>контрагент число число ... ... ...<br>контрагент ... ... ... ... ...<br>контрагент ... ... ... ... ...<br><br>Если кто знает подскажите, оч. буду благодарен."

Prikum
активный пользователь
офлайн
Дата регистрации: 18.02.2002
Сообщений: 20952
Пост №2
 
12.08.2009 15:26

Трудности то в чем?

Leonardo2009
читатель
офлайн
Дата регистрации: 13.04.2009
Сообщений: 100
Пост №3
 
12.08.2009 16:29

Тудность в том что номенклатуры много, нужно чтобы заполнение таблица было автоматическим, то есть что бы и контрагенты и возвращаемые им товары и их колличество заполнялось автоматически в виде таблицы, а в моем коде выводится простым списком. Возможно нужно использлвать Таблицу Значений или Список значений только я вот не могу сообразить как это сделать(

Prikum
активный пользователь
офлайн
Дата регистрации: 18.02.2002
Сообщений: 20952
Пост №4
 
12.08.2009 16:33

Есть такое дело, как конструктор запросов, в том числе и на 7.7! Попробуйте его!

Leonardo2009
читатель
офлайн
Дата регистрации: 13.04.2009
Сообщений: 100
Пост №5
 
12.08.2009 20:28

"С помощью макета печатных форм получилось=><br>код:<br>Процедура Сформировать_Колонки(Таб, Стр, Док)<br> Таб.ВывестиСекцию(Стр+"|Начало");<br> Док.ВыбратьСтроки();<br> Если Док.КоличествоСтрок()>0 Тогда<br> Пока Док.ПолучитьСтроку()=1 Цикл <br> <br> Тов=Док.ПолучитьАтрибут("Товар");<br> Км=Док.ПолучитьАтрибут("Количество"); <br> К=Км; <br> Таб.ПрисоединитьСекцию(Стр+"|Колонка_1");<br> КонецЦикла;<br> КонецЕсли; <br> Таб.ПрисоединитьСекцию(Стр+"|Конец");<br> КонецПроцедуры<br><br>Процедура Сформировать() <br> Док=СоздатьОбъект("Документ.РасходнаяНакладная");<br> Док.ВыбратьДокументы("01.05.09","31.05.09");<br> Таб = СоздатьОбъект("Таблица");<br> Таб.ИсходнаяТаблица("Сформировать");<br> Таб.ВывестиСекцию("Заголовок");<br> Сформировать_Колонки(Таб, "Шапка",Док);<br> Таб.Опции(0,0,Таб.ВысотаТаблицы(),0);<br> Пока Док.ПолучитьДокумент()=1 Цикл<br> Если Док.ВозвратГП=1 Тогда<br> Дат=Док.ПолучитьАтрибут("ДатаДок");<br> Контр=Док.ПолучитьАтрибут("Контрагент");<br> Таб.ВывестиСекцию("Строка1");<br> Сформировать_Колонки(Таб, "Строка_1",Док);<br> КонецЕсли;<br> КонецЦикла;<br> Сформировать_Колонки(Таб, "Подвал",Док);<br> Таб.ТолькоПросмотр(1);<br> Таб.Показать("Сформировать","""");<br>КонецПроцедуры<br><br>печатается так:<br><br><br>       <br>контрагент1 Номенклатура1 Номенклатура2 <br>                   Кол-во       Кол-во<br>контрагент2 Номенклатура3 Номенклатура4                         <br>                   Кол-во       Кол-во<br>контрагент3 Номенклатура2                                     <br>                   Кол-во<br>контрагент4 Номенклатура4 Номенклатура5 Номенклатура6<br>                   Кол-во       Кол-во       Кол-во<br>контрагент5 ...                                                       <br> ...<br><br><br>но должно быть так:<br><br>             Номенклатура1 Номенклатура2 Номенклатура3 Номенклатура4 Номенклатура5 ...<br>контрагент1       Кол-во      Кол-во<br>контрагент2                   Кол-во                                    Кол-во<br>контрагент3                                                Кол-во<br>контрагент4<br>контрагент5                                                             Кол-во<br> ...<br><br><br>Понимаю конечн, что голову можно сломать, но если кто нибудь разберется большое спасибо.<br>"

zak555 (398843952)
читатель
офлайн
Дата регистрации: 27.03.2008
Сообщений: 4656
Пост №6
 
13.08.2009 10:56

делай запросом!<br><br>пришли скрин макета в конфигураторе - накатаю тебе текст запроса

Leonardo2009
читатель
офлайн
Дата регистрации: 13.04.2009
Сообщений: 100
Пост №7
 
13.08.2009 11:07

Куда тебе прислать???

zak555 (398843952)
читатель
офлайн
Дата регистрации: 27.03.2008
Сообщений: 4656
Пост №8
 
13.08.2009 11:53

> Куда тебе прислать???<br><br>ссуда нельзя ссылку на radikal.ru выложить?<br>

Leonardo2009
читатель
офлайн
Дата регистрации: 13.04.2009
Сообщений: 100
Пост №9
 
13.08.2009 12:05

http://s39.radikal.ru/i085/0908/6b/ce5882fdfede.png

zak555 (398843952)
читатель
офлайн
Дата регистрации: 27.03.2008
Сообщений: 4656
Пост №10
 
13.08.2009 13:39

кстати обычным запрос кажись не так просто...<br><br>а почему ты не хочешь использовать бух запрос? <br>и анализировать 41.1 60.1 ?

Показывать по 10 20 40 сообщений

Читают тему:

Быстрый переход
Для технических специалистов
  • Книга жалоб и предложений по работе сайта
  • Для технических специалистов
  • Представление регламентированной отчетности
  • Говорильня
  • Бухгалтерский учет: обсуждаем проекты нормативных актов и рекомендаций по ведению учета от БМЦ
  • Новый порядок применения ККТ (онлайн кассы с передачей сведений в ФНС)
  • Интернет-конференция: Оформление командировок по новым правилам
  • МАРКИРОВКА
  • ЕГАИС
  • Учет, налогообложение, автоматизация