Имя: Пароль:
JOB
Работа
v7: Вывести реестр не проведенных документов с фильтром по контрагентам
,
0 Slider754337
 
08.10.12
15:22
Нужно вывести в таблицу на печать, все не проведенные документы, по определенным контрагентам, за период дат! Плиз Хелп я только начал изучать 1С!
1 Птах
 
08.10.12
15:23
Сделай фильтр по непроведенным, затем правой кнопкой по списку документов и вывести список.
2 Птах
 
08.10.12
15:23
Это если тебе надо вывести именно _список документов_.
3 Эльниньо
 
08.10.12
15:24
Начни с покупки СП у ДенисЧа.
4 mikecool
 
08.10.12
15:24
Пилз - в качестве благодарности три литра пилзнера?
5 Slider754337
 
08.10.12
15:24
Мне нужно это в виде внешней обработки(Отчета)
6 Heckfy
 
08.10.12
15:24
(1) В семерке вывести список.....
7 chief accountant
 
08.10.12
15:25
(5) пользуйся типовыми обработками, там всё реализовано
8 Mikeware
 
08.10.12
15:26
(5)"Сделай!"©
9 Slider754337
 
08.10.12
15:27
Сервис -> обработка документов -> и там есть , но там нету содержания платежного поручения и основной счет
10 Slider754337
 
08.10.12
15:27
я бы сделал
11 Slider754337
 
08.10.12
15:27
))
12 Slider754337
 
08.10.12
15:27
наверное если бы знал как то я бы не просил помочь, я же написал что только начал учить её
13 chief accountant
 
08.10.12
15:28
(12) Docprint.ert юзай
14 aka AMIGO
 
08.10.12
15:29
(5)Файл/Новый/Внешний отчет, а в нем конструктор/макет отчета
15 Heckfy
 
08.10.12
15:29
ОФФ: (12)  учи лучше восьмерку.
16 Slider754337
 
08.10.12
15:30
Docprint у меня такого нету фаила, на работе семерка
17 Птах
 
08.10.12
15:31
(6) А, проглядел :)
18 chief accountant
 
08.10.12
15:31
(16) на ИТСе есть
19 DJ Anthon
 
08.10.12
15:32
(0) Тема должна отражать суть сообщения. Не допускаются темы типа "Подскажите", "1С", "help", "есть вопрос", "не получается", темы большими буквами, заголовки с кучей восклицательных/вопросительных знаков.
20 DJ Anthon
 
08.10.12
15:32
21 Slider754337
 
08.10.12
15:33
Понял уже , в следующий раз не буду так писать!
22 andrewalexk
 
08.10.12
15:36
:) если "плиз хелп" то пиши что уже сделал и что неясно
а если "плиз ду" то пиши цену вопроса
23 Slider754337
 
08.10.12
15:41
В общем все почти готово, не могу добавить в стандартную обработку, которая находится в сервис -> обработка документов -> там выбираю документы платежное поручение, даты , не проведенные и контрагента. А добавить не могу чтобы вместе с тем что выводится необходимо выводить еще и основной счет!
24 Drac0
 
08.10.12
15:43
(23)Добавь один столбец в макете и пропиши, чтобы в него притягивался основной счет.
25 Slider754337
 
08.10.12
15:45
вот тут как раз и проблема ))) я не знаю как !
26 Drac0
 
08.10.12
15:46
(25)А в чем именно проблема? Конфигуратор открывал?
27 Slider754337
 
08.10.12
15:47
да я просто только начал учить этот 1С
ВотВЧемПроблема
28 Azverin
 
08.10.12
15:49
(27) надо затратить время и освоить азы недельку-другую, милок)
29 Drac0
 
08.10.12
15:49
(27) Т.е. "первый раз в глаза вижу". Называйте вещи своими именами.
30 Slider754337
 
08.10.12
15:51
ну в виде конфигуратор то да можно и так сказать, небольшие озы только и усе пока что, я только начал учить его, вчера!
31 DJ Anthon
 
08.10.12
15:57
озы бгггг
32 DJ Anthon
 
08.10.12
15:58
оз бяки вуду глыгуль
33 Slider754337
 
05.11.12
16:38
//*******************************************
Процедура Сформировать()

   Док = СоздатьОбъект("Документ");
   ВыбрКонтрагент = СоздатьОбъект("Справочник.Контрагенты");    
   Таб = СоздатьОбъект("Таблица");
   ДокПлат = СоздатьОбъект("Документ.ПлатежноеПоручение");
       ВыбрКонтрагент.Выбрать(,ВыбрКонтрагент);
       Док.Выбрать(,,Док);    
   
       Если ВыбрКонтрагент.Выбран() = 1 Тогда
       Док.ВыбратьПоЗначению(Дата1,Дата2,"Контрагент", ВыбрКонтрагент );  
//        Иначе
//        Док.ВыбратьДокументы(Дата1,Дата2);
//        Док.ВыбранныеДокументы(Дата1,Дата2);
           
           Пока Док.ПолучитьДокумент() = 1  Цикл
               Если Док.Проведен() = 0 Тогда
                   Сообщить(Док.Содержание + " " + Док.Договор + " " + Док.СчетКонтрагента + " " +Док.Сумма);
               КонецЕсли;
           КонецЦикла;
       КонецЕсли;    
       
           
КонецПроцедуры
34 Slider754337
 
05.11.12
16:38
Предоплата по сч.№МТФ0000370 от 02.03.2010 за модем, дог.№318 от 02.03.2010г.                                                                                                                                      сч.№МТФ0000370 от 02.03.2010 Основной 13544
Сообщить(Док.Содержание + " " + Док.Договор + " " + Док.СчетКонтрагента + " " +Док.Сумма);
{D:\БАЗА ДАННЫХ ПРИБОЙ\1SBDB\EXTFORMS\NEW.ERT(19)}: Поле агрегатного объекта не обнаружено (Содержание)
35 Slider754337
 
05.11.12
16:38
Help где у меня ошибка , просто их больше непроведенных должно быть
36 Slider754337
 
05.11.12
16:39
ДокПлат = СоздатьОбъект("Документ.ПлатежноеПоручение"); - лишнее забыл закоментить
37 viktor_vv
 
05.11.12
16:46
Ну так там же написано про ошибку

{D:\БАЗА ДАННЫХ ПРИБОЙ\1SBDB\EXTFORMS\NEW.ERT(19)}: Поле агрегатного объекта не обнаружено (Содержание)
38 Slider754337
 
05.11.12
16:47
Поле агрегатного объекта не обнаружено (Содержание) а почему ведь выводит же Предоплата по сч.№МТФ0000370 от 02.03.2010
39 viktor_vv
 
05.11.12
16:47
В выборку попал док у которого нет ревизита "Содержание".
40 viktor_vv
 
05.11.12
16:47
(38) Это он вывел от предыдущего дока.
41 Vladal
 
05.11.12
16:48
В (33) какой-то непонятный код.
Если контрагента выбираешь на форме своей обработки, то не надо его переопределять в коде.

Вот выбрать не проведённые ПлатПоручения:

ДокПлат = СоздатьОбъект("Документ.ПлатежноеПоручение");
ДокПлат.ВыбратьДокументы(ДатаНач, ДатаКон);
Пока ДокПлат.ПолучитьДокумент()=1 Цикл
   Если ДокПлат.Проведен() = 1 Тогда
       Продолжить;
   КонецЕсли;
...
...
КонецЦикла
42 viktor_vv
 
05.11.12
16:49
Оберни в попытку, для поиска

Попытка
                Сообщить(Док.Содержание + " " + Док.Договор + " " + Док.СчетКонтрагента + " " +Док.Сумма);
Исключение
Сообщить("С какого перепуга этот док сюда попал " + Док.ТекущийДокумент());
КонецПопытки

И вот это что за фигня

Док.Выбрать(,,Док);
43 Slider754337
 
05.11.12
16:50
а сейчас попробую, кажется догнал
44 Vladal
 
05.11.12
16:51
(42) Я бы использовал глЕстьРеквизит, если такой нет, написал бы поиск по метаданным.
45 viktor_vv
 
05.11.12
16:53
(44) Это я для отладки предложил. Лучше уж ограничить виды документов. Хотя тоже вид документа проверять не айс.
46 Slider754337
 
05.11.12
16:54
не там просто надо выбрать все не проведенные документы, только по определенным контрагентам и при этом контрагента выбирать из справочника! такое задание ))
47 Vladal
 
05.11.12
16:57
(46) Тогда переформулируй, пожалуйста, свой вопрос, чтобы было понятно - какие контрагенты, куда попадать, что уже сделал - код.
48 Slider754337
 
05.11.12
16:59
с попуткой вроде получилось по крайней мере ошибку не выдает сейчас проверю и скажу
49 sttt
 
05.11.12
17:01
как то так:

   спВыбранныеКонтрагенты = СоздатьОбъект("СписокЗначений");
   Для Инд = 1 По спКонтрагенты.РазмерСписка() Цикл
       Если спКонтрагенты.Пометка(Инд) = 1 Тогда
           спВыбранныеКонтрагенты.ДобавитьЗначение(спКонтрагенты.ПолучитьЗначение(Инд));
       КонецЕсли;
   КонецЦикла;
   
   //Создание объекта типа Запрос
   Запрос = СоздатьОбъект("Запрос");
   ТекстЗапроса =
   "//{{ЗАПРОС(Сформировать)
   |Период с ВыбНачПериода по ВыбКонПериода;
   |ОбрабатыватьДокументы НеПроведенные;
   |Обрабатывать НеПомеченныеНаУдаление;
   |ПлатежноеПоручение = Документ.ПлатежноеПоручение.ТекущийДокумент;
   |Контрагент = Документ.ПлатежноеПоручение.Контрагент;
   |ДатаДок = Документ.ПлатежноеПоручение.ДатаДок;
   |Группировка ДатаДок;
   |Группировка Контрагент без групп;
   |Условие(Контрагент В спВыбранныеКонтрагенты);
   |"//}}ЗАПРОС
   ;
   // Если ошибка в запросе, то выход из процедуры
   Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда
       Возврат;
   КонецЕсли;
50 sttt
 
05.11.12
17:03
спКонтрагенты это списокЗначений на форме и на вкладке дополнительно свойства поставить галку "Список с пометками"
51 viktor_vv
 
05.11.12
17:04
И вот это что за перл :
 ВыбрКонтрагент.Выбрать(,ВыбрКонтрагент);

Там второй параметр форма списка.

(49) Ну вот так резко, человек только с выборкой пытается разобраться :).
52 sttt
 
05.11.12
17:05
(51) ну так стресс тест)))
53 Slider754337
 
05.11.12
17:11
Спасибо большое все получилось!