Заказы на доработку 1С (сервис удаленной работы)

Хранилище

База знаний
Бесплатные отчеты, обработки, конфигурации, внешние компоненты для 1С Статьи, описание работы, методики по работе с 1С

Здравствуйте, гость ( Войти | Зарегистрироваться )



История благодарностей участнику ed.kharkov ::: Спасибо сказали: 20 раз
Дата поста: В теме: За сообщение: Спасибо сказали:
24.02.20, 11:24 Как включить видимость колонки в табличной части программно
lolmatrix @ Вчера, 18:44 * ,
Добрый день.

Попробуйте так
Элементы["ТоварыЦена"].Видимость = Истина
lolmatrix,
12.07.19, 13:04 Событие отмены в списке значений
Цитата(Gigi @ 12.07.19, 13:59) *
Не совсем так, а по другому. При нажатии кнопку отменить выполнение кода не останавливается и всплывает второй список значений.
И только с нажатием на отмену во втором списке выполнение кода прерывается.



Ну тогда вот так))

Если спЗначений.ОтметитьЭлементы("Выводить") Тогда
        Для Каждого знВыбор Из спЗначений Цикл
            Если знВыбор.Пометка Тогда
                ствВыбрНеВыбрЗначения.Вставить(знВыбор.Значение,Истина);
            Иначе
                ствВыбрНеВыбрЗначения.Вставить(знВыбор.Значение,Ложь);
            КонецЕсли;
        КонецЦикла;
    КонецЕсли;

    ствГоды=Новый Соответствие();
    ствГодыВсе=МесяцГодДата_серв.ОтчетныеГоды_ств();
    спЗначенийГодыВсе = Новый СписокЗначений();
    //---------------------------
    Для Каждого Эл Из ствГодыВсе Цикл
        спЗначенийГодыВсе.Добавить(Эл.Ключ,Строка(Эл.Ключ));
    КонецЦикла;
    спЗначенийГодыВсе.ЗаполнитьПометки(Истина);  
    //---------------------------
    Если спЗначенийГодыВсе.ОтметитьЭлементы("Выводить") Тогда
        Для Каждого знГодыВыбор Из спЗначенийГодыВсе Цикл
            Если знГодыВыбор.Пометка Тогда
                ствГоды.Вставить(знГодыВыбор.Значение,Истина);
            КонецЕсли;
        КонецЦикла;
    Иначе
        Возврат;        
    КонецЕсли;

    Если Вопрос("Создать отчет данных энергосистемы в формате Excel?",РежимДиалогаВопрос.ДаНет,,,"Отчет в формате Эксель")=КодВозвратаДиалога.Нет Тогда Возврат; КонецЕсли;
Gigi,
12.07.19, 12:57 Событие отмены в списке значений
Тогда так

Если спЗначений.ОтметитьЭлементы("Выводить") Тогда
        Для Каждого знВыбор Из спЗначений Цикл
            Если знВыбор.Пометка Тогда
                ствВыбрНеВыбрЗначения.Вставить(знВыбор.Значение,Истина);
            Иначе
                ствВыбрНеВыбрЗначения.Вставить(знВыбор.Значение,Ложь);
            КонецЕсли;
        КонецЦикла;
    Иначе
        Возврат;
    КонецЕсли;

    ствГоды=Новый Соответствие();
    ствГодыВсе=МесяцГодДата_серв.ОтчетныеГоды_ств();
    спЗначенийГодыВсе = Новый СписокЗначений();
    //---------------------------
    Для Каждого Эл Из ствГодыВсе Цикл
        спЗначенийГодыВсе.Добавить(Эл.Ключ,Строка(Эл.Ключ));
    КонецЦикла;
    спЗначенийГодыВсе.ЗаполнитьПометки(Истина);  
    //---------------------------
    Если спЗначенийГодыВсе.ОтметитьЭлементы("Выводить") Тогда
        Для Каждого знГодыВыбор Из спЗначенийГодыВсе Цикл
            Если знГодыВыбор.Пометка Тогда
                ствГоды.Вставить(знГодыВыбор.Значение,Истина);
            КонецЕсли;
        КонецЦикла;
    Иначе
        Возврат;        
    КонецЕсли;

    Если Вопрос("Создать отчет данных энергосистемы в формате Excel?",РежимДиалогаВопрос.ДаНет,,,"Отчет в формате Эксель")=КодВозвратаДиалога.Нет Тогда Возврат; КонецЕсли;
Gigi,
12.07.19, 11:43 Событие отмены в списке значений
А если попробовать так?

//-----------------------------------------------
    Если спЗначений.ОтметитьЭлементы("Выводить") Тогда
        Для Каждого знВыбор Из спЗначений Цикл
            Если знВыбор.Пометка Тогда
                ствВыбрНеВыбрЗначения.Вставить(знВыбор.Значение,Истина);
            Иначе
                ствВыбрНеВыбрЗначения.Вставить(знВыбор.Значение,Ложь);
            КонецЕсли;
        КонецЦикла;

        Если Вопрос("Создать отчет данных энергосистемы в формате Excel?",РежимДиалогаВопрос.ДаНет,,,"Отчет в формате Эксель")=КодВозвратаДиалога.Нет Тогда Возврат; КонецЕсли;
    КонецЕсли;
//==========================
Gigi,
17.09.18, 13:52 Программно открыть или скрыть подсистему
Gigi @ Сегодня, 14:42 * ,
Функциональные опции подойдут для других подсистем.
Рабочий стол - это обязательный элемент интерфейса.
Gigi,
17.09.18, 13:26 Программно открыть или скрыть подсистему
Gigi @ Сегодня, 14:19 * ,
Для общей команды
ПерейтиПоНавигационнойСсылке("e1cib/navigationpoint/ИмяПодсистемы/ОбщаяКоманда.ИмяКоманды")
Gigi,
17.09.18, 12:54 Программно открыть или скрыть подсистему
Gigi @ Сегодня, 13:33 * ,
1. КомерческийУчет - это что? Список документов?

2. Что подразумевается под "скрыть"? Убрать видимость или сделать активной другую подсистему?

Gigi @ Сегодня, 13:46 * ,
ПерейтиПоНавигационнойСсылке("e1cib/navigationpoint/ИмяПодсистемы/Справочник.ИмяСправочника.Команда.ОткрытьСписок")


ПерейтиПоНавигационнойСсылке("e1cib/navigationpoint/ИмяПодсистемы.РазделПодсистемы/Документ.ИмяДокумента.Команда.ОткрытьСписок")
Gigi,
07.09.18, 16:06 Как отобразить при наличии 2х регистраторов второй.
eror2008 @ Сегодня, 16:32 * ,
За скрин отчета спасибо. Кажется я понял....
Попробуйте сделать группировки в виртуальных таблицах не по полю Объект, а по полю Контрагент.
И соединения соответственно тоже...
eror2008,
07.09.18, 15:38 Как отобразить при наличии 2х регистраторов второй.
eror2008 @ Сегодня, 16:12 * ,
Попробуйте вот так

ВЫБРАТЬ
    Договора.Объект КАК Объект,
    МАКСИМУМ(Договора.Период) КАК Период,
    МАКСИМУМ(Договора.Договор.Дата) КАК ДоговорДата
ПОМЕСТИТЬ ТаблицаДоговоров
ИЗ
    РегистрСведений.Договора КАК Договора
ГДЕ
    Договора.Активность = ИСТИНА
    И Договора.Регистратор ССЫЛКА Документ.Договор            

СГРУППИРОВАТЬ ПО
    Договора.Объект
;

////////////////////////////////////////////////////////////////////////////////
ВЫБРАТЬ
    Договора.Объект КАК Объект,
    МАКСИМУМ(Договора.Период) КАК Период,
    МАКСИМУМ(Договора.Договор.Дата) КАК ДоговорДата
ПОМЕСТИТЬ ТаблицаДопСоглашений
ИЗ
    РегистрСведений.Договора КАК Договора
ГДЕ
    Договора.Активность = ИСТИНА
    И Договора.Регистратор ССЫЛКА Документ.ДополнительноеСоглашение            

СГРУППИРОВАТЬ ПО
    Договора.Объект
;

////////////////////////////////////////////////////////////////////////////////
ВЫБРАТЬ
    Договора.Объект,
    Договора.Период,
    ДопСоглашения.Объект КАК ОбъектСДопСоглашением
ПОМЕСТИТЬ ТаблицаДоговоровБезДопСоглашений
ИЗ
    ТаблицаДоговоров КАК Договора
    ЛЕВОЕ СОЕДИНЕНИЕ ТаблицаДопСоглашений КАК ДопСоглашения
    ПО Договора.Объект = ДопСоглашения.Объект
ГДЕ
    ВЫБОР КОГДА ДопСоглашения.Объект ЕСТЬ NULL
        ТОГДА ИСТИНА
        ИНАЧЕ ЛОЖЬ
    КОНЕЦ

;

////////////////////////////////////////////////////////////////////////////////
ВЫБРАТЬ
    Договора.Объект КАК Объект,
    Договора.Период КАК Период
ПОМЕСТИТЬ Договорчики
ИЗ
    ТаблицаДоговоровБезДопСоглашений КАК Договора

ОБЪЕДИНИТЬ ВСЕ

ВЫБРАТЬ
    ТаблицаДопСоглашений.Объект,
    ТаблицаДопСоглашений.Период
ИЗ
    ТаблицаДопСоглашений КАК ТаблицаДопСоглашений

;

////////////////////////////////////////////////////////////////////////////////
ВЫБРАТЬ
    Договора.Объект КАК Объект,
    Договора.Объект.ПлощадьОбщая КАК ОбъектПлощадьОбщая,
    СУММА(Договора.СуммаПолнаяUSD) КАК СтоимостьОбъекта,
    Договора.Объект.Комплекс КАК Комплекс,
    Договора.Объект.Секция КАК Секция,
    Договора.Объект.Этаж КАК Этаж,
    СУММА(Договора.Договор.СуммаПервогоВзноса) КАК СуммаПервогоВзноса,
    Договора.Договор.Контрагенты КАК Контрагент
ИЗ
    Договорчики КАК Договорчики
        ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.Договора КАК Договора
        ПО Договора.Период = Договорчики.Период
            И Договора.Объект = Договорчики.Объект
ГДЕ
    Договора.Договор.Дата >= &НачалоПериода
    И Договора.Договор.Дата <= &КонецПериода
    И ВЫБОР
            КОГДА Договора.Регистратор ССЫЛКА Документ.Договор
                ТОГДА ИСТИНА
            КОГДА Договора.Регистратор ССЫЛКА Документ.ДополнительноеСоглашение
                ТОГДА ИСТИНА
            ИНАЧЕ ЛОЖЬ
        КОНЕЦ

СГРУППИРОВАТЬ ПО
    Договора.Объект,
    Договора.Объект.Комплекс,
    Договора.Объект.Секция,
    Договора.Объект.Этаж,
    Договора.Договор.Контрагенты,
    Договора.Объект.ПлощадьОбщая
eror2008,
07.09.18, 15:04 Как отобразить при наличии 2х регистраторов второй.
eror2008 @ Сегодня, 15:59 * ,
Замените внутреннее соединение на левое. Просмотрел.

ВЫБРАТЬ
    Договора.Объект КАК Объект,
    МАКСИМУМ(Договора.Период) КАК Период,
    МАКСИМУМ(Договора.Договор.Дата) КАК ДоговорДата
ПОМЕСТИТЬ Договорчики
ИЗ
    РегистрСведений.Договора КАК Договора
ГДЕ
    Договора.Активность = ИСТИНА
    И (Договора.Регистратор ССЫЛКА Документ.Договор
          ИЛИ Договора.Регистратор ССЫЛКА Документ.ДополнительноеСоглашение)
            

СГРУППИРОВАТЬ ПО
    Договора.Объект
;

////////////////////////////////////////////////////////////////////////////////
ВЫБРАТЬ
    Договора.Объект КАК Объект,
    Договора.Объект.ПлощадьОбщая КАК ОбъектПлощадьОбщая,
    СУММА(Договора.СуммаПолнаяUSD) КАК СтоимостьОбъекта,
    Договора.Объект.Комплекс КАК Комплекс,
    Договора.Объект.Секция КАК Секция,
    Договора.Объект.Этаж КАК Этаж,
    СУММА(Договора.Договор.СуммаПервогоВзноса) КАК СуммаПервогоВзноса,
    Договора.Договор.Контрагенты КАК Контрагент
ИЗ
    Договорчики КАК Договорчики
        ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.Договора КАК Договора
        ПО Договора.Период = Договорчики.Период
            И Договора.Объект = Договорчики.Объект
ГДЕ
    Договора.Договор.Дата >= &НачалоПериода
    И Договора.Договор.Дата <= &КонецПериода
    И ВЫБОР
            КОГДА Договора.Регистратор ССЫЛКА Документ.Договор
                ТОГДА ИСТИНА
            КОГДА Договора.Регистратор ССЫЛКА Документ.ДополнительноеСоглашение
                ТОГДА ИСТИНА
            ИНАЧЕ ЛОЖЬ
        КОНЕЦ

СГРУППИРОВАТЬ ПО
    Договора.Объект,
    Договора.Объект.Комплекс,
    Договора.Объект.Секция,
    Договора.Объект.Этаж,
    Договора.Договор.Контрагенты,
    Договора.Объект.ПлощадьОбщая
eror2008,
07.09.18, 14:55 Как отобразить при наличии 2х регистраторов второй.
eror2008 @ Сегодня, 15:49 * ,
Получайте таблицу "Договорчики" вот так

ВЫБРАТЬ
    Договора.Объект КАК Объект,
    МАКСИМУМ(Договора.Период) КАК Период,
    МАКСИМУМ(Договора.Договор.Дата) КАК ДоговорДата
ПОМЕСТИТЬ Договорчики
ИЗ
    РегистрСведений.Договора КАК Договора
ГДЕ
    Договора.Активность = ИСТИНА
    И (Договора.Регистратор ССЫЛКА Документ.Договор
          ИЛИ Договора.Регистратор ССЫЛКА Документ.ДополнительноеСоглашение)
            

СГРУППИРОВАТЬ ПО
    Договора.Объект
eror2008,
07.09.18, 14:42 Как отобразить при наличии 2х регистраторов второй.
eror2008 @ Сегодня, 15:24 * ,
Прошу прощения. Недопонял суть проблемы.

Попробуйте так

ВЫБРАТЬ
    Договора.Объект КАК Объект,
    МАКСИМУМ(Договора.Период) КАК Период,
    МАКСИМУМ(Договора.Договор.Дата) КАК ДоговорДата
ПОМЕСТИТЬ Договорчики
ИЗ
    РегистрСведений.Договора КАК Договора
ГДЕ
    Договора.Активность = ИСТИНА
    И Договора.Регистратор ССЫЛКА Документ.Договор
            

СГРУППИРОВАТЬ ПО
    Договора.Объект
;

////////////////////////////////////////////////////////////////////////////////
ВЫБРАТЬ
    Договора.Объект КАК Объект,
    Договора.Объект.ПлощадьОбщая КАК ОбъектПлощадьОбщая,
    СУММА(Договора.СуммаПолнаяUSD) КАК СтоимостьОбъекта,
    Договора.Объект.Комплекс КАК Комплекс,
    Договора.Объект.Секция КАК Секция,
    Договора.Объект.Этаж КАК Этаж,
    СУММА(Договора.Договор.СуммаПервогоВзноса) КАК СуммаПервогоВзноса,
    Договора.Договор.Контрагенты КАК Контрагент
ИЗ
    РегистрСведений.Договора КАК Договора
        ВНУТРЕННЕЕ СОЕДИНЕНИЕ Договорчики КАК Договорчики
        ПО Договора.Период = Договорчики.Период
            И Договора.Объект = Договорчики.Объект
ГДЕ
    Договора.Договор.Дата >= &НачалоПериода
    И Договора.Договор.Дата <= &КонецПериода
    И ВЫБОР
            КОГДА Договора.Регистратор ССЫЛКА Документ.Договор
                ТОГДА ИСТИНА
            КОГДА Договора.Регистратор ССЫЛКА Документ.ДополнительноеСоглашение
                ТОГДА ИСТИНА
            ИНАЧЕ ЛОЖЬ
        КОНЕЦ

СГРУППИРОВАТЬ ПО
    Договора.Объект,
    Договора.Объект.Комплекс,
    Договора.Объект.Секция,
    Договора.Объект.Этаж,
    Договора.Договор.Контрагенты,
    Договора.Объект.ПлощадьОбщая
eror2008,
07.09.18, 14:20 Как отобразить при наличии 2х регистраторов второй.
eror2008 @ Сегодня, 14:54 * ,
ВЫБОР КОГДА ДопДоговор <> ЗНАЧЕНИЕ(Справочник.Договора.ПустаяСсылка) ТОГДА
Договора.Регистратор ССЫЛКА Документ.ДополнительноеСоглашение  
ИНАЧЕ Договора.Регистратор ССЫЛКА Документ.Договор
КОНЕЦ
eror2008,
16.08.18, 12:04 Как на СКД выбрать первых не по документу а по полю
burza @ Сегодня, 11:40 * ,
ВЫБРАТЬ
    ДенежныеСредстваНаличные.Заказ КАК Заказ,
    ДенежныеСредстваНаличные.Регистратор.Ссылка КАК Платеж
ПОМЕСТИТЬ Платежи
ИЗ
    РегистрНакопления.ДенежныеСредстваНаличные КАК ДенежныеСредстваНаличные
ГДЕ
    ДенежныеСредстваНаличные.СтатьяДвиженияДенежныхСредств = &СтатьяДвиженияДенежныхСредств
    И ДенежныеСредстваНаличные.Период >= &Период

ОБЪЕДИНИТЬ

ВЫБРАТЬ
    ДенежныеСредстваКПоступлениюБезналичные.Заказ,
    ДенежныеСредстваКПоступлениюБезналичные.Регистратор.Ссылка
ИЗ
    РегистрНакопления.ДенежныеСредстваКПоступлениюБезналичные КАК ДенежныеСредстваКПоступлениюБезналичные
ГДЕ
    ДенежныеСредстваКПоступлениюБезналичные.Период >= &Период

;

////////////////////////////////////////////////////////////////////////////////

ВЫБРАТЬ    
    Платежи.Заказ,
    МИНИМУМ(Платежи.Платеж) КАК Платеж
ПОМЕСТИТЬ ПервыеПлатежи
ИЗ
    Платежи КАК Платежи
СГРУПИРОВАТЬ ПО
    Платежи.Заказ
    
;

////////////////////////////////////////////////////////////////////////////////

ВЫБРАТЬ
    ПервыеПлатежи.Заказ.Контрагент КАК Контрагент,
    ПервыеПлатежи.Заказ.Номер КАК НомерСчета,
    ПервыеПлатежи.Платеж.Ссылка,
    ПервыеПлатежи.Платеж.Дата КАК Дата,
    ЕСТЬNULL(ДенежныеСредстваНаличные.Сумма, ДенежныеСредстваКПоступлениюБезналичные.Сумма) КАК СуммаПоСчету
ИЗ
    ПервыеПлатежи КАК ПервыеПлатежи
        ЛЕВОЕ СОЕДИНЕНИЕ РегистрНакопления.ДенежныеСредстваНаличные КАК ДенежныеСредстваНаличные
        ПО ПервыеПлатежи.Заказ = ДенежныеСредстваНаличные.Заказ
            И ПервыеПлатежи.Платеж = ДенежныеСредстваНаличные.Регистратор
        ЛЕВОЕ СОЕДИНЕНИЕ РегистрНакопления.ДенежныеСредстваКПоступлениюБезналичные КАК ДенежныеСредстваКПоступлениюБезналичные
        ПО ПервыеПлатежи.Заказ = ДенежныеСредстваКПоступлениюБезналичные.Заказ
            И ПервыеПлатежи.Платеж = ДенежныеСредстваКПоступлениюБезналичные.Регистратор
burza,
16.08.18, 8:21 Заполнение реквизита документа значением отбора из формы списка документов (1с 8.2.19.106)
andrew76 @ Сегодня, 6:13 * ,
Добрый день.
Установите для реквизита свойство "Заполнять из данных заполнения"
andrew76,
15.08.18, 16:28 Как на СКД выбрать первых не по документу а по полю
burza @ Сегодня, 16:40 * ,
Добрый день.

Попробуйте сгрупировать записи по счету с суммируемым полем
МИНИМУМ(ДенежныеСредстваНаличные.Регистратор)


и

МИНИМУМ(ДенежныеСредстваКПоступлениюБезналичные.Регистратор)
burza,
09.08.18, 14:22 Печать из обработки с учетом фильтрации данных
Constantus @ Сегодня, 13:19 * ,
Добрый день.

Попробуйте так
Для Каждого Стр Из Детально Цикл

    Если Не ЭлементыФормы.Детально.ПроверитьСтроку(Стр) Тогда
         Продолжить;  
    КонецЕсли;
  
    ОбластьМакета.Параметры.Снят = Стр.Снят;
    ОбластьМакета.Параметры.Удален = Стр.Удален;
    ОбластьМакета.Параметры.Дата = Формат(Стр.Дата,    "ДФ='dd.MM.yyyy'");
    ОбластьМакета.Параметры.Номер = Стр.Номер;
*************
    
    ТабДок.Вывести(ОбластьМакета);
КонецЦикла;
Constantus,
03.07.18, 14:38 как передать переменную с клиента на сервер
Petre @ Сегодня, 15:25 * ,
ТекущиеДанные недоступны на сервере.

На сервере можно получить так:

&НаСервере
Процедура СписокЗЧНаименованиеПриИзмененииНаСервере()
    СтрокаТЧ = Объект.СписокЗЧ[Элементы.СписокЗЧ.ТекущаяСтрока];
    
    // . . .

КонецПроцедуры
lolmatrix,
26.06.18, 10:33 При вводе на основании перезаполнить реквизит введенного документа
l2d808 @ Сегодня, 11:12 * ,
Добрый день.

Так может достаточно будет написать вот так

Процедура ОбработкаЗаполнения(ДанныеЗаполнения, ТекстЗаполнения, СтандартнаяОбработка)
        Если ТипЗнч(ДанныеЗаполнения) = Тип("ДокументСсылка.ВведенняВиведенняТранспортногоЗасобуНаПідприємство") Тогда
              Документ = ДанныеЗаполнения;    
              ТранспортнийЗасіб = ДанныеЗаполнения.ТранспортнийЗасіб;
        КонецЕсли;
КонецПроцедуры


В процедура ПослеЗаписи() вобще не нужна в данном случае.
l2d808, Vofka,

RSS Текстовая версия Сейчас: 28.03.24, 19:36
1С Предприятие 8.3, 1С Предприятие 8.2, 1С Предприятие 8.1, 1С Предприятие 8.0, 1С Предприятие 7.7, Литература 1С, Общие вопросы по администрированию 1С, Методическая поддержка 1С - всё в одном месте: на Украинском 1С форуме!