привет всем

не получается получить документ из операции чего я там не того делаю

   спрБанка = СоздатьОбъект("Справочник.БанковскиеСчета");
ДатаКон  = Дата_;
Если Счет_62 = 1 Тогда
   
Счет_62_ = СчетПоКоду("62");
Иначе
   Счет_62_ = "";
КонецЕсли;
   Если Счет_76 = 1 Тогда
       Счет_76_ = СчетПоКоду("76");
   Иначе
       Счет_76_ = "";
   КонецЕсли;
   счет = Счет_62_ + Счет_76_;
   //*******************************************
   ТаблЗн = СоздатьОбъект("ТаблицаЗначений");
   ТаблЗн.НоваяКолонка("Наименование", "Справочник.Контрагент");
   ТаблЗн.НоваяКолонка("УНП");
   ТаблЗн.НоваяКолонка("РачетныйСчет");
   ТаблЗн.НоваяКолонка("СуммаОбщая", "Число", 19);
   ТаблЗн.НоваяКолонка("ЗуммаПросроченная", "Число", 19);
   Таб = СоздатьОбъект("Таблица");
   Таб.ВывестиСекцию("Шапка");
   //*******************************************
Ит_1 = СоздатьОбъект("БухгалтерскиеИтоги");
Ит_2 = СоздатьОбъект("БухгалтерскиеИтоги");
Ит_1.ИспользоватьСубконто(ВидыСубконто.Контрагенты);
Ит_1.ВыполнитьЗапрос(,ДатаКон,счет,,,,"Операция");
   //*******************************************
Ит_1.ВыбратьСубконто(1);
Пока Ит_1.ПолучитьСубконто(1) = 1 Цикл
   РачетныйСчет = "";
   СуммаОбщая   = "";
   //*******************************************
   Если Ит_1.СКД() <> 0 Тогда    
    спрБанка.ИспользоватьВладельца(Ит_1.Субконто(1).ТекущийЭлемент());
    Контрагент            = Ит_1.Субконто(1);
    УНП                   = Ит_1.Субконто(1).УНН;
    спрБанка.ВыбратьЭлементы();
    Пока спрБанка.ПолучитьЭлемент() = 1 Цикл
       Если Число(спрБанка.Код) = 1 Тогда
    РачетныйСчет          = спрБанка.Наименование + ": р/с №" + СокрЛП(спрБанка.НомерСчета);//спрБанка.НомерСчета;//найти по контрагенту;
Иначе
   РачетныйСчет = "";
КонецЕсли;
КонецЦикла;
    СуммаОбщая            = Ит_1.СКД();
    СуммаПросроченная = "";
       ЧислоДней = Ит_1.Операция.Документ.ДнейТребования;
       ДатаПроводкиДокумента = Ит_1.Операция.Документ.ДатаДок;
       СуммаДат = ДатаПроводкиДокумента + ЧислоДней;
       Если СуммаДат > Дата_ Тогда
       Ит_2.ИспользоватьСубконто(ВидыСубконто.Контрагенты,Ит_1.Субконто(1).ТекущийЭлемент());    
       Ит_2.ВыполнитьЗапрос(ДатаПроводкиДокумента,ДатаПроводкиДокумента,счет,,,,"Операция");
       Ит_2.ВыбратьСубконто(1);
       Пока Ит_2.ПолучитьСубконто(1) = 1 Цикл
           Если Ит_2.Операция.Документ.НомерДок = Ит_1.Операция.Документ.НомерДок Тогда
    СуммаПросроченная     = Ит_2.Операция.Документ.Итог("Сумма");
Иначе
   СуммаПросроченная    = "-";
КонецЕсли;
КонецЦикла;
КонецЕсли;
    Таб.ВывестиСекцию("Строка");
КонецЕсли;
КонецЦикла;

интересуют имено эти строки
документа в них нет хотя в оборотке есть
        ЧислоДней = Ит_1.Операция.Документ.ДнейТребования;
        ДатаПроводкиДокумента = Ит_1.Операция.Документ.ДатаДок;

Ничего не понял. Периоды не выбираются. Запрос на конец периода, а не за период. Откуда докам взяться?

я начинающий но что типа того уже делал  а щас чегото заклинило помогите плиз

я конечно прошу прощения а что если на конец периода запрос формировать доки не выбираются??

1. Ит_1.ВыполнитьЗапрос(,ДатаКон,счет,,,,"Операция");
Данная строка смысла не имеет - не хватает конечной даты.
2. Для выборки операций надо Ит.ВыбратьПериоды()

+5 Т.е. начальной даты
(4) нет

странно я делал и так но не чего не выходит
Ит_1.ВыполнитьЗапрос(НачМесяца(ДатаКон),ДатаКон,счет,,,,"Операция");
но эфект от этого ни какой

ты бы сначала порядок с форматировнаием навел, сложно читать текст

я так понимаю что ИТ1 не спозиционирована ни на какой записи в момент получения поля документ

Ит_1 = СоздатьОбъект("БухгалтерскиеИтоги");
Ит_2 = СоздатьОбъект("БухгалтерскиеИтоги");
Ит_1.ИспользоватьСубконто(ВидыСубконто.Контрагенты);
Ит_1.ВыполнитьЗапрос(,ДатаКон,счет,,,,"Операция");
   //*******************************************
   Ит_1.ВыбратьПериоды();
   Пока Ит_1.ПолучитьПериод() = 1 Цикл
       
Ит_1.ВыбратьСубконто(1);
то есть так нужно делать?

Ит_1.ВыбратьСубконто(2); попробуй заменить

(11) шутишь?

(10) правильно ?

(12) возможно с бухитогами мало работал

+ (14) возможно, с бухитогами мало работал

вообще нет работал достаточно но с выборкой доков работал пару раз и тоже достаточно долго делал

я только 3тий мес работаю с 1с

начирикал такую вещь вообще перестало все формироваться
Ит_1 = СоздатьОбъект("БухгалтерскиеИтоги");
Ит_2 = СоздатьОбъект("БухгалтерскиеИтоги");
Ит_1.ИспользоватьСубконто(ВидыСубконто.Контрагенты);
Ит_1.ВыполнитьЗапрос(,ДатаКон,счет,,,,"Операция");
   //*******************************************
   Ит_1.ВыбратьПериоды();
   Пока Ит_1.ПолучитьПериод() = 1 Цикл
Ит_1.ВыбратьСубконто(1);
Пока Ит_1.ПолучитьСубконто(1) = 1 Цикл

да я понимаю что в моем запросе можно и так
Ит_1.ВыбратьСубконто();
Пока Ит_1.ПолучитьСубконто() = 1 Цикл
но я думаю что это не мешает
или я не прав?

всеравно на 62 и 76 счетах одно субконто "Контрагенты" и все

наверно мне кто то в кофе тормозной житкости подли

ладненько буду сам бороться спасибо всем

Нет начальной даты в
Ит_1.ВыполнитьЗапрос(Где начдата!!!,ДатаКон,счет,,,,"Операция");

Ит_1.ВыполнитьЗапрос(НачМесяца(ДатаКон),ДатаКон,счет,,,,"Операция");
   //*******************************************
   
Ит_1.ВыбратьСубконто(1);
Пока Ит_1.ПолучитьСубконто(1) = 1 Цикл
   Ит_1.ВыбратьПериоды();
   Пока Ит_1.ПолучитьПериод() = 1 Цикл
   РачетныйСчет = "";
   СуммаОбщая   = "";
но при этом в отладчике Ит_1.ВыбратьПериоды() = 0

Ит_1.ВыполнитьЗапрос(НачМесяца(ДатаКон),ДатаКон,счет,,,,"Операция");
может не опрерацию нужно писать а Месяц ?

(23) смотри (24)

автор, может воспользуешься конструктором бух.итогов в конфигураторе? и поправишь получившийся отчёт уже своими данными

ну так интереснее же самому добиться да вы мне поможете я пойму как формировать а если в конструкторе то что я с него возму

блин ну помогите люди

в конструкторе чушь какаято получилась

Давай ты хоть суть расскажешь - чего надобно-то?

Исходя из твоего алгоритма, достаточно:

Ит_1= СоздатьОбъект("БухгалтерскиеИтоги");
Ит_1.ИспользоватьПланСчетов(ОсновнойПланСчетов());
Ит_1.ВыполнитьЗапрос(НачМесяца(ДатаКон),ДатаКон,счет,,, 1, "Операция", "С");
Ит_1.ВыбратьПериоды();
   Пока Ит_1.ПолучитьПериод() = 1 Цикл
   РачетныйСчет = "";
   СуммаОбщая   = "";
   //*******************************************

   Если Ит_1.СКД() <> 0 Тогда    
    спрБанка.ИспользоватьВладельца(Ит_1.Субконто(1).ТекущийЭлемент());
    Контрагент            = Ит_1.Субконто(1);
    УНП                   = Ит_1.Субконто(1).УНН;
    спрБанка.ВыбратьЭлементы();
    Пока спрБанка.ПолучитьЭлемент() = 1 Цикл
        Если Число(спрБанка.Код) = 1 Тогда
    РачетныйСчет          = спрБанка.Наименование + ": р/с №" + СокрЛП(спрБанка.НомерСчета);//спрБанка.НомерСчета;//найти по контрагенту;

Иначе
   РачетныйСчет = "";
КонецЕсли;
КонецЦикла;
    СуммаОбщая            = Ит_1.СКД();
    СуммаПросроченная = "";
        ЧислоДней = Ит_1.Операция.Документ.ДнейТребования;
        ДатаПроводкиДокумента = Ит_1.Операция.Документ.ДатаДок;
        СуммаДат = ДатаПроводкиДокумента + ЧислоДней;
        Если СуммаДат > Дата_ Тогда
        Ит_2.ИспользоватьСубконто(ВидыСубконто.Контрагенты,Ит_1.Субконто(1).ТекущийЭлемент());    
        Ит_2.ВыполнитьЗапрос(ДатаПроводкиДокумента,ДатаПроводкиДокумента,счет,,,,"Операция");
        Ит_2.ВыбратьСубконто(1);
        Пока Ит_2.ПолучитьСубконто(1) = 1 Цикл
            Если Ит_2.Операция.Документ.НомерДок = Ит_1.Операция.Документ.НомерДок Тогда
    СуммаПросроченная     = Ит_2.Операция.Документ.Итог("Сумма");
Иначе
   СуммаПросроченная    = "-";
КонецЕсли;
КонецЦикла;
КонецЕсли;
    Таб.ВывестиСекцию("Строка");
КонецЕсли;
КонецЦикла;

но что-то мне подсказывает, что ты неправильный алгоритм избрал

хотя я задачи не знаю точной

клиенту нужен отчет о дебиторской задолжности  он должен формироваться по счета "62,76 , СКД это сумма задолжности но мне нужно указать еще и сумму просроченной задолжности  каким оброзам на форме документа расход товара есть реквизит ДнейТребования в нем указывается сколько дней доется клиенту для погошения задолжности
я решил  сделать так получить значение реквизита ДнейТребования + занчения даты документа = дата и если эта дата > даты запроса тогда вывести сумму задолжности

к (32)
Если Ит_1.СКД() <> 0 Тогда    
    спрБанка.ИспользоватьВладельца(Ит_1.Субконто(1).ТекущийЭлемент());
    Контрагент            = Ит_1.Субконто(1);
    УНП                   = Ит_1.Субконто(1).УНН;
    спрБанка.ВыбратьЭлементы();
    Пока спрБанка.ПолучитьЭлемент() = 1 Цикл
        Если Число(спрБанка.Код) = 1 Тогда
    РачетныйСчет          = спрБанка.Наименование + ": р/с №" + СокрЛП(спрБанка.НомерСчета);//спрБанка.НомерСчета;//найти по контрагенту;


Иначе
   РачетныйСчет = "";
КонецЕсли;
КонецЦикла;

заменить на

Если Ит_1.СКД() <> 0 Тогда
  Ит_1.Операция.Документ.Контрагент    
    Контрагент            = Ит_1.Операция.Документ.Контрагент;
    спрБанка.ИспользоватьВладельца(Контрагент);
    УНП                   = Контрагент.УНН;
    спрБанка.ВыбратьЭлементы();
    Пока спрБанка.ПолучитьЭлемент() = 1 Цикл
        Если Число(спрБанка.Код) = 1 Тогда
    РачетныйСчет          = спрБанка.Наименование + ": р/с №" + СокрЛП(спрБанка.НомерСчета);//спрБанка.НомерСчета;//найти по контрагенту;


Иначе
   РачетныйСчет = "";
КонецЕсли;
КонецЦикла;

(36) мне нужно не Р/С получить его я получаю
а не получаю я только док и периоды = 0
тоесть в отладчике выбратьпериод() = 0

смотрите
если формировать так то
Процедура Сформировать()
   спрБанка = СоздатьОбъект("Справочник.БанковскиеСчета");
   Если Счет_62 = 1 Тогда
       
       Счет_62_ = СчетПоКоду("62");
   Иначе
       Счет_62_ = "";
   КонецЕсли;
   Если Счет_76 = 1 Тогда
       Счет_76_ = СчетПоКоду("76");
   Иначе
       Счет_76_ = "";
   КонецЕсли;
   счет = Счет_62_ + Счет_76_;
   //*******************************************
   Таб = СоздатьОбъект("Таблица");
   Таб.ВывестиСекцию("Шапка");
   Ит_1 = СоздатьОбъект("БухгалтерскиеИтоги");
   Ит_1.ИспользоватьСубконто(ВидыСубконто.Контрагенты);
   Ит_1.ВыполнитьЗапрос(НачМесяца(Дата_),Дата_,счет,,,,"Месяц");
   Ит_1.ВыбратьСубконто(1);
   Пока Ит_1.ПолучитьСубконто(1) = 1 Цикл
       РачетныйСчет = "";
       СуммаОбщая   = "";
       СуммаПросроченная = "";
       Если Ит_1.СКД() <> 0 Тогда    
           спрБанка.ИспользоватьВладельца(Ит_1.Субконто(1).ТекущийЭлемент());
           Контрагент            = Ит_1.Субконто(1);
           УНП                   = Ит_1.Субконто(1).УНН;
           спрБанка.ВыбратьЭлементы();
           Пока спрБанка.ПолучитьЭлемент() = 1 Цикл
               Если Число(спрБанка.Код) = 1 Тогда
                   РачетныйСчет          = спрБанка.Наименование + ": р/с №" + СокрЛП(спрБанка.НомерСчета); //значения выводятся и правельны
               Иначе
                   РачетныйСчет = "";
               КонецЕсли;
           КонецЦикла;
           СуммаОбщая            = Ит_1.СКД(); //значения тоже выводятся и правильны
           СуммаПросроченная     = Ит_1.Операция; //значение = Операция
           Таб.ВывестиСекцию("Строка");
       КонецЕсли;
   КонецЦикла;
   Таб.ПараметрыСтраницы(2, , , , , , , , , 1);
   Таб.Опции(0, 0, 5, 2, "дебиторская задолжность");
   Таб.ТолькоПросмотр(1);
   Таб.Показать("дебиторская задолжность");
КонецПроцедуры
СуммаПросроченная     = Ит_1.Операция; //значение = Операция
почему
если делать так то значения вообще не выводятся и ошибок нет!
все то же самое за исключением следующих строк
Ит_1.ВыполнитьЗапрос(НачМесяца(Дата_),Дата_,счет,,,,"Месяц");
   Ит_1.ВыбратьПериоды();
   Пока Ит_1.ПолучитьПериод() = 1 Цикл

и при этом в отладчике Ит_1.ВыбратьПериоды() = 0

+(38)
и еще так пробовал
Ит_1.ВыполнитьЗапрос(НачМесяца(Дата_),Дата_,счет,,,,"Операция");
и
(36)
тоже пробовал

в оборотке формировал документы есть

мне может кто нибуть объяснить что я не правильно пишу

мне что ни кто не может помочь?

счет = Счет_62_ + Счет_76_
не взлетит одназначна

и что изза этого не формирует

(44) смотри типовые на предмет бухзапросов

хорошо спасибо

люди кому не лень подрубиться помочь?
TeamViewer 7