Версия для печати темы (https://pro1c.org.ua/index.php?s=8fc0903f2465ff64da987c7e0db6ce3f&showtopic=46572)

Нажмите сюда для просмотра этой темы в обычном формате

Украинский 1С форум: всё про 1С 8.3, 1С 8.2, 1С 8.1, 1С 8.0, 1С 7.7 _ Программирование в 1С Предприятие 8.3 _ как вывести на печать адрес организации?

Автор: Юля 03.07.18, 13:36

Бух.2.0, как в внешнею печатную форму втащить на печать адрес организации?? Где он храниться, так как сведений "КонтактнаяИнформация" в новой редакции нету? спасибо

Автор: Petre 03.07.18, 13:56

Юля @ Today, 13:36 * ,
В табличной части соответствующего объекта. Но и там вас ждет сюрприз. Поэтому пользуйтесь программным интерфейсом БСП.

Автор: Юля 03.07.18, 14:00

Цитата(Petre @ 03.07.18, 14:56) *
В табличной части соответствующего объекта

это я уже увидела, а вот дальше даже не знаю что делать, только начинаю разбираться, а было так все просто в 1.2(((

Автор: Prospero 04.07.18, 8:46

Юля,
http://pro1c.org.ua/redirect.php?https://forum.infostart.ru/forum9/topic38011/ не поможет?

Автор: Юля 04.07.18, 9:40

Prospero @ Сегодня, 9:46 * ,
или я что-то не понимаю:
СведенияОбОрганизации = УправлениеКонтактнойИнформацией.СведенияОЮрФизЛице(СсылкаНаОбъект.Организация, СсылкаНаОбъект.Дата);
Адрес = ФормированиеПечатныхФорм.ОписаниеОрганизации(СведенияОбОрганизации, "ЮридическийАдрес");
Это для бух 2.0
А так адреса хранятся в регистре сведений "КонтактнаяИнформация"

регистра сведений "КонтактнаяИнформация" нету в новой редакции, в том и вся проблема. Или я ошибаюсь, тогда "отредактируйте " меня)))

Автор: andreydv87 04.07.18, 10:04

а так пробовали?

НСтр("ru='Адресс: ';uk='Адреса: '",КодЯзыкаПечать)+ОбщегоНазначенияБПВызовСервера.ОписаниеОрганизации(СведенияОПоставщике,"ЮридическийАдрес",,КодЯзыкаПечать)

Автор: andr_andrey 04.07.18, 10:10

Исчерпывающий ответ уже дан во втором сообщении.

Автор: sava1 04.07.18, 10:20

А просто "скопип...ть" ?

СведенияОГрузоотправитель = БухгалтерскийУчетПереопределяемый.СведенияОЮрФизЛице(Шапка.Грузоотправитель, Шапка.ДатаДокумента);

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

Автор: andr_andrey 04.07.18, 10:31

sava1 @ Сегодня, 11:20 * ,

Цитата(Юля @ 03.07.18, 14:36) *
втащить на печать адрес организации??

Раз не хотят использовать стандартные процедуры, пусть берут
СсылкаНаОбъект.Организация.КонтактнаяИнформация.Представление

П.С. В запросе конечно выберут "Юридична адреса" или "Поштова адреса"

Автор: sava1 04.07.18, 11:37

Цитата(andr_andrey @ 04.07.18, 11:31) *
sava1 @ Сегодня, 11:20 * ,
Цитата(Юля @ 03.07.18, 14:36) *
втащить на печать адрес организации??


А открыть функцию и увидеть
Если ТипЗнч(ЮрФизЛицо) = Тип("СправочникСсылка.Организации") Тогда


Все уже давно придумано.
Слышали про инкапсуляцию (применительно к классам и БД) ?

Автор: Юля 06.07.18, 14:26

Процедура СформироватьНаСервере()
    // Вставить содержимое обработчика.
    
    Для Каждого ТекущаяСтрока Из Организация.КонтактнаяИнформация Цикл
            
    
        
        Если ТекущаяСтрока.Вид.Наименование="Юридична адреса" Тогда
                    
        
            
            ЮрАдр=ТекущаяСтрока.Представление;
            
            
        КонецЕсли;    
        
        Если ТекущаяСтрока.Вид.Наименование="Телефон" Тогда
                    
        
            Телеф=ТекущаяСтрока.Представление;
            
        КонецЕсли;    
        
        
            
    КонецЦикла;    

    
    Сообщить("Юридична адреса: "+ЮрАдр+"; тел.: "+ Телеф);
    
    
КонецПроцедуры


Сделала как то так haha.gif

Украинский 1С форум: всё про 1С 8.3, 1С 8.2, 1С 8.1, 1С 8.0, 1С 7.7
https://pro1c.org.ua