Имя: Пароль:
1C
 
Как вытащить ссылку из табличной части
0 Nemirov
 
06.05.20
12:56
Не могу вытащить ссылку из табличной части ОтчетОРозничныхПродажах.товары.Субконто.Ссылка 1с Бухгалтерия

Запрос = Новый Запрос;
    Запрос.Текст =
    
    "ВЫБРАТЬ Различные
    |    ОтчетОРозничныхПродажах.Ссылка,
    |    ОтчетОРозничныхПродажах.Дата,
    |    ВЫБОР
    |        КОГДА ПриходныйКассовыйОрдер.Ссылка ЕСТЬ NULL
    |            ТОГДА ИСТИНА
    |        ИНАЧЕ ЛОЖЬ
    |    КОНЕЦ КАК ПроведенныеПКО
    |ИЗ
    |    Документ.ОтчетОРозничныхПродажах КАК ОтчетОРозничныхПродажах
    |        ЛЕВОЕ СОЕДИНЕНИЕ Документ.ПриходныйКассовыйОрдер КАК ПриходныйКассовыйОрдер
    |        ПО (ПриходныйКассовыйОрдер.ДокументОснование = ОтчетОРозничныхПродажах.Ссылка)
    |ГДЕ
    |    ОтчетОРозничныхПродажах.Дата МЕЖДУ &ДатаНачала И &ДатаОкончания";
    
    Запрос.УстановитьПараметр("ДатаНачала", ДатаНачала);
    Запрос.УстановитьПараметр("ДатаОкончания", ДатаОкончания);
    РезультатЗапроса = Запрос.Выполнить();
    
    ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
    
    Пока ВыборкаДетальныеЗаписи.Следующий() Цикл            
        ЕстьПКО = Документы.ПриходныйКассовыйОрдер.НайтиПоРеквизиту("ДокументОснование", ВыборкаДетальныеЗаписи.Ссылка);
        Если НЕ ВыборкаДетальныеЗаписи.ПроведенныеПКО Тогда
            Если ЭлементыФормы.БезПерезаписиДокумента.Значение = Ложь Тогда
                СуществующийДокумент = ЕстьПКО.ПолучитьОбъект();
                Если ЕстьПКО.ПометкаУдаления = Истина Тогда
                    Сообщить(" " + СуществующийДокумент + " " + "Помечен на удаление");
                    Продолжить;
                Иначе
                    СуществующийДокумент.Заполнить(ВыборкаДетальныеЗаписи.ссылка);
                    СуществующийДокумент.Дата =  ВыборкаДетальныеЗаписи.Дата;
                //    СуществующийДокумент.ПринятоОт = ВыборкаДетальныеЗаписи.Субконто;
                    СуществующийДокумент.Записать(РежимЗаписиДокумента.Проведение);
                    Сообщить("" +СуществующийДокумент + " " + "Переписан",);
                КонецЕсли;
            Иначе
                Сообщить("Пропускаем существующие");
            КонецЕсли;
            Продолжить;
        КонецЕсли;
        
        Док = Документы.ПриходныйКассовыйОрдер.СоздатьДокумент();
        Док.Заполнить(ВыборкаДетальныеЗаписи.ссылка);
        Док.Дата =   ВыборкаДетальныеЗаписи.Дата;
        Попытка
            Док.Записать(РежимЗаписиДокумента.Проведение);
            Сообщить("" + Док.ЭтотОбъект + " " + "создан");
        Исключение        
            Сообщить("" + ОписаниеОшибки() );
        КонецПопытки;
        
    КонецЦикла;
    Возврат;
1 Гипервизор
 
06.05.20
12:59
Запроса к табличной части не вижу.
2 withoutname
 
06.05.20
13:30
(0)

"ВЫБРАТЬ
|    ОтчетОРозничныхПродажахТовары.Ссылка,
|    ОтчетОРозничныхПродажахТовары.Ссылка.Дата,
|    ВЫБОР
|        КОГДА ПриходныйКассовыйОрдер.Ссылка ЕСТЬ NULL
|            ТОГДА ИСТИНА
|        ИНАЧЕ ЛОЖЬ
|    КОНЕЦ КАК ПроведенныеПКО,
|    ОтчетОРозничныхПродажахТовары.СубконтоБУ
|ИЗ
|    Документ.ОтчетОРозничныхПродажах.Товары КАК ОтчетОРозничныхПродажахТовары
|        ЛЕВОЕ СОЕДИНЕНИЕ Документ.ПриходныйКассовыйОрдер КАК ПриходныйКассовыйОрдер
|        ПО ОтчетОРозничныхПродажахТовары.Ссылка = ПриходныйКассовыйОрдер.ДокументОснование
|ГДЕ
|    ОтчетОРозничныхПродажахТовары.Ссылка.Дата МЕЖДУ &НачДата И &КонДата
3 RomaH
 
naïve
06.05.20
14:24
(2) и?
4 Nemirov
 
06.05.20
14:35
Благодарю(2)