Имя: Пароль:
1C
1C 7.7
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/
правда "анализ неработающих контрагентов более полугода с учетом трех последних покупок оного" не осилит))
AdBlock убивает бесплатный контент. 1Сергей