|
v7: отчет по контрагентам | ☑ | ||
---|---|---|---|---|
0
Тоненький Клиент
22.04.13
✎
10:59
|
ТиС 7.7 ( я с семеркой знаком поверхностно), релиз 938
Как вывести отчет по контактным данным контрагентов (наименование, телефон и т.д.)? на ИС не нашел, в типовых возможностях не вижу хелп! |
|||
1
Naumov
22.04.13
✎
11:00
|
На ИТС refPrint
|
|||
2
блондин1c
22.04.13
✎
11:01
|
обработка пишется 5 минут. есть универсальные готовые на ИТС
|
|||
3
Тоненький Клиент
22.04.13
✎
11:02
|
Наумов, спасибо!
|
|||
4
Злопчинский
22.04.13
✎
16:49
|
(1),(3) не прокатит.
контрагенты - это один справочник. а контактные и другие основноые данные - лежат в спр.стронниеюрлица. |
|||
5
Злопчинский
22.04.13
✎
16:49
|
(2) угу.. как же...
|
|||
6
пипец
22.04.13
✎
17:24
|
//*******************************************
// Процедура генерации запроса Сформировать. // Процедура Сформировать() Перем Запрос, ТекстЗапроса, Таб; //Создание объекта типа Запрос Запрос = СоздатьОбъект("Запрос"); ТекстЗапроса = "//{{ЗАПРОС(Сформировать) |Период с ВыбНачПериода по ВыбКонПериода; |ОбрабатыватьДокументы все; |Контрагенты = Справочник.Контрагенты.ТекущийЭлемент; |Группировка Контрагенты без групп; |"//}}ЗАПРОС ; // Если ошибка в запросе, то выход из процедуры Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда Возврат; КонецЕсли; ТЗ=СоздатьОбъект("ТаблицаЗначений"); Запрос.Выгрузить(ТЗ,0,0); // Подготовка к заполнению выходных форм данными запроса Сч=СоздатьОбъект("Справочник.Контрагенты"); ТЗ.ВыбратьСтроки(); Пока ТЗ.ПолучитьСтроку()>0 Цикл Сч.НайтиЭлемент(ТЗ.Контрагенты); //иделайчохош Если Сч.ЮрФизЛицо.Выбран()="траляляля" тогда Если Сч.ЮрФизЛицо.Вид()="ляляля" тогда Иначе КонецЕсли; КонецЕсли; КонецЦикла; Таб = СоздатьОбъект("Таблица"); Таб.ИсходнаяТаблица("Сформировать"); // Заполнение полей "Заголовок" Таб.ВывестиСекцию("Заголовок"); Состояние("Заполнение выходной таблицы..."); Таб.Опции(0, 0, Таб.ВысотаТаблицы(), 0); Пока Запрос.Группировка(1) = 1 Цикл // Заполнение полей Контрагенты Таб.ВывестиСекцию("Контрагенты"); КонецЦикла; // Вывод заполненной формы Таб.ТолькоПросмотр(1); Таб.Показать("Сформировать", ""); КонецПроцедуры |
|||
7
пипец
22.04.13
✎
17:25
|
Зы написано за 4-ре минуты
|
|||
8
Злопчинский
22.04.13
✎
18:24
|
(7) такую х...ю я тоже напишу за анлогичное время.
А написать нормальный запрос, который выдернет из чужих юрлиц и физиков и склеит его со справочником контрагентов, оставива только сторонних, задействованных в контрагентах и вывестина печать - сил, видимо, не хватило... ;-) |
|||
9
Злопчинский
22.04.13
✎
18:26
|
ну а про то, что в запросе не фильтруются помеченные на удаление, да вдобавок прилеплена документы - это отнесем на огрехи эксремальногого скоростного программирования... а про штатный МФ я вообще молчу...
|
|||
10
Пронькин
23.04.13
✎
06:03
|
(8)+
Как в бородатом анкедоте: Принимают на работу секретаршу: - Сколько знаков в минуту вы можете печатать? - Примерно 100 - А 150? - Могу - А 200 сможете? - Могу, но, знаете, такая фигня получается! :) |
|||
11
Пронькин
23.04.13
✎
06:04
|
+(10)
анкедоте = анекдоте |
|||
12
пипец
23.04.13
✎
09:05
|
(8) перечитал (0) - советую тоже перечитать -
который выдернет из чужих юрлиц и физиков и склеит его со справочником контрагентов, оставива только сторонних, задействованных в контрагентах и вывестина печать и / ну а про то, что в запросе не фильтруются помеченные на удаление, да вдобавок прилеплена документы (с) не увидел вообще ниразу ЗЫ "Это сеятель - я художник , я так вижу (с) О Бендер" (с) 12-ть стульев Ильф и Петров ЗЫЫ фантазии конечно хорошо - почемубы не домыслить отдельно , анализ неработающих контрагентов более полугода с учетом трех последних покупок оного ? :))) |
|||
13
Тоненький Клиент
23.04.13
✎
09:06
|
(12) не-не, я как раз (8) и хотел
так что виват телепатам |
|||
14
пипец
23.04.13
✎
09:17
|
:))) "проблемы ... шерифа не волнуют" (с)
ЗЫ тож анек навеяло - Прибегает парень к врачу и кричит: — Доктор, кастрируйте меня! Врач удивленно: — Зачем вам кастрация? — Делайте быстрее, потом объясню! Ну, сделали ему операцию, парень вышел из- под наркоза, доктор его и спрашивает: — Ну теперь хоть расскажите зачем вам это понадобилось. — Понимаете доктор я собираюсь жениться на еврейке, а у них такой обычай. - Так может вам надо было обрезание сделать? - А я что сказал? (с) |
|||
15
Dolly_EV
23.04.13
✎
14:16
|
(0) вот вменяемая весчь http://infostart.ru/public/16261/files/
правда "анализ неработающих контрагентов более полугода с учетом трех последних покупок оного" не осилит)) |
Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |