7.7 Ведомость по контрагентам

Тема в разделе "Отчеты и обработки для "1С:Предприятие 7.7"", создана пользователем mazza, 18 янв 2011.

  1. TopicStarter Overlay
    mazza
    Offline

    mazza Опытный в 1С

    Регистрация:
    4 фев 2009
    Сообщения:
    138
    Симпатии:
    0
    Баллы:
    26
    Привет всем
    Конфигурация ТиС 9.2 В отчете Ведомость по контрагентам в печатной форме нужно добавить, чтобы в строке Поступление ТМЦ (купля продажа) было видно на какой склад было это поступление. Подскажите, как это можно реализовать?
  2. Бухгалтерский угодник
    Offline

    Бухгалтерский угодник Администраторы Команда форума Администратор

    Регистрация:
    29 дек 2008
    Сообщения:
    21.520
    Симпатии:
    407
    Баллы:
    104
    Приведен кусок кода с дополнением...
    КудЫ вставить - догадайся сам, а то совсем просто будет))))
    Код:
    Если (НазваниеГруппировки = "Договор") и (Ном < НомерГруппировкиПоКонтрагенту) Тогда
    ПечТекстСтроки = ""+СокрП(ТекРасшифровка.Владелец.Наименование)+"; "+ПечТекстСтроки;
    ИначеЕсли НазваниеГруппировки = "Документ" Тогда
    ПечТекстСтроки = ""+глПредставлениеДокумента(ПечТекстСтроки)+
    " (" + СокрЛП(глИнформацияПоДокументуВЖурнале(ПечТекстСтроки)) + ")"+ //а вот это добавили
    ?(ПечТекстСтроки.Вид()<>"ПоступлениеТМЦ","",ПечТекстСтроки.Склад);
    ИначеЕсли НазваниеГруппировки = "КредДокумент" Тогда
    ПечТекстСтроки = глПредставлениеДокумента(ПечТекстСтроки)+
    " (" + СокрЛП(глИнформацияПоДокументуВЖурнале(ПечТекстСтроки)) + ")";
    КонецЕсли;
    
    Если НазваниеГруппировки = "Документ" Тогда
    ПечатьСтрокиДокумента(Запрос,Ном,НазваниеСекции,ПечТекстСтроки,ТекРасшифровка,ТекОст,ТекОстВ);
    Иначе
    ПечатьСтроки(Запрос,Ном,НазваниеСекции,ПечТекстСтроки,ТекРасшифровка);
    КонецЕсли;
    
    
    
    

Поделиться этой страницей