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

Хранилище

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

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



История благодарностей участнику ignsv ::: Спасибо сказали: 60 раз
Дата поста: В теме: За сообщение: Спасибо сказали:
12.12.12, 16:20 Вопрос на конфигурирование №2
Мой вариант:
1. Изменяем спр. Личные контакты и спр КонтактныеЛица Добавляем Реквизиты, выводим на форму:
НапоминатьОПодарке - булево
КоличествоДнейДоПодарка - число 2,0
ОтветственныйЗаПодарок – спр.Пользователи

2.
МодульФормы (для двух справочников):
Процедура ДоступностьДанныхНапоминанияОДнеРождения()
    Если ДатаРождения = '00010101000000' Тогда    
        ЭлементыФормы.НапоминатьОДнеРождения.Доступность      = Ложь;
        ЭлементыФормы.КоличествоДнейДоНапоминания.Доступность = Ложь;
        ЭлементыФормы.НадписьДней.Доступность                 = Ложь;
    //УТСПЕЦИАЛИСТ +
        ЭлементыФормы.НапоминатьОПодарке.Доступность           = Ложь;      
        ЭлементыФормы.КоличествоДнейДоНапоминания1.Доступность = Ложь;
        ЭлементыФормы.ОтветственныйЗаПодарок.Доступность       = Ложь;
        //УТСпециалист -
    Иначе        
        ЭлементыФормы.НапоминатьОДнеРождения.Доступность      = Истина;
        ЭлементыФормы.КоличествоДнейДоНапоминания.Доступность = НапоминатьОДнеРождения;
        ЭлементыФормы.НадписьДней.Доступность                 = НапоминатьОДнеРождения;
        
    //УТСПЕЦИАЛИСТ +
        ЭлементыФормы.НапоминатьОПодарке.Доступность           = Истина;      
        ЭлементыФормы.КоличествоДнейДоНапоминания1.Доступность = НапоминатьОПодарке;
        ЭлементыФормы.ОтветственныйЗаПодарок.Доступность       = НапоминатьОПодарке;
        //УТСпециалист -
    КонецЕсли;
КонецПроцедуры // ДоступностьДанныхНапоминанияОДнеРождения()

(Если хватает времени то можно для справочника.КонтактныеЛицаКонтрагентов форма ФормаВводаНового проделать аналогичные действия (там реквизиты формы)

3. Находим ОбщийМодуль - МодульРегламентныхЗаданий:
    
//////////После всего добавляем
    ////УТ_Специалист +
//ПОДАРКИ
        
        
    Запрос.Текст = "ВЫБРАТЬ РАЗРЕШЕННЫЕ
                   |    Контакты.КонтактноеЛицо КАК КонтактноеЛицо,
                   |    Контакты.КонтактноеЛицо.ОтветственныйЗаПодарок КАК Исполнитель,
                   |    Контакты.КонтактноеЛицо.КоличествоДнейДоПодарка КАК ИнтервалДней,
                   |    Контакты.КонтактноеЛицо.ДатаРождения КАК ДатаРождения,
                   |    Задачи.СрокИсполнения КАК Срок
                   |ИЗ
                   |    Справочник.КонтактныеЛицаКонтрагентов КАК Контакты
                   |        ЛЕВОЕ СОЕДИНЕНИЕ Задача.ЗадачиПользователя КАК Задачи
                   |        ПО (Задачи.Объект = Контакты.КонтактноеЛицо)
                   |            И (Задачи.Оповещение = ИСТИНА)
                   |            И (Задачи.ПамятнаяДата = ИСТИНА)
                   |            И (Задачи.СрокИсполнения > ДОБАВИТЬКДАТЕ(Контакты.КонтактноеЛицо.ДатаРождения, ГОД, РАЗНОСТЬДАТ(Контакты.КонтактноеЛицо.ДатаРождения, ДОБАВИТЬКДАТЕ(&ТекДата, ДЕНЬ, Контакты.КонтактноеЛицо.КоличествоДнейДоПодарка), МЕСЯЦ) / 12 - 1))
                   |ГДЕ
                   |    Контакты.КонтактноеЛицо.НапоминатьОПодарке = ИСТИНА
                   |    И Контакты.КонтактноеЛицо.ДатаРождения <> ДАТАВРЕМЯ(1, 1, 1)
                   |    И Контакты.Владелец ССЫЛКА Справочник.Контрагенты
                   |    И Контакты.Владелец <> ЗНАЧЕНИЕ(Справочник.Контрагенты.ПустаяСсылка)
                   |    И Контакты.КонтактноеЛицо.ОтветственныйЗаПодарок <> ЗНАЧЕНИЕ(Справочник.Пользователи.ПустаяСсылка)
                   |    И (ДОБАВИТЬКДАТЕ(Контакты.КонтактноеЛицо.ДатаРождения, ГОД, ГОД(&ТекДата) - ГОД(Контакты.КонтактноеЛицо.ДатаРождения)) >= &ТекДата
                   |                И ДОБАВИТЬКДАТЕ(ДОБАВИТЬКДАТЕ(Контакты.КонтактноеЛицо.ДатаРождения, ДЕНЬ, -Контакты.КонтактноеЛицо.КоличествоДнейДоПодарка), ГОД, ГОД(&ТекДата) - ГОД(Контакты.КонтактноеЛицо.ДатаРождения)) <= &ТекДата
                   |            ИЛИ ДОБАВИТЬКДАТЕ(Контакты.КонтактноеЛицо.ДатаРождения, ГОД, ГОД(&ТекДата) - ГОД(Контакты.КонтактноеЛицо.ДатаРождения)) >= ДОБАВИТЬКДАТЕ(&ТекДата, ГОД, -1)
                   |                И ДОБАВИТЬКДАТЕ(ДОБАВИТЬКДАТЕ(Контакты.КонтактноеЛицо.ДатаРождения, ДЕНЬ, -Контакты.КонтактноеЛицо.КоличествоДнейДоПодарка), ГОД, ГОД(&ТекДата) - ГОД(Контакты.КонтактноеЛицо.ДатаРождения)) <= ДОБАВИТЬКДАТЕ(&ТекДата, ГОД, -1))
                   |    И Задачи.СрокИсполнения ЕСТЬ NULL
                   |
                   |ОБЪЕДИНИТЬ
                   |
                   |ВЫБРАТЬ
                   |    ЛичныеКонтакты.Ссылка,
                   |    ЛичныеКонтакты.ОтветственныйЗаПодарок,
                   |    ЛичныеКонтакты.КоличествоДнейДоПодарка,
                   |    ЛичныеКонтакты.ДатаРождения,
                   |    Задачи.СрокИсполнения
                   |ИЗ
                   |    Справочник.ЛичныеКонтакты КАК ЛичныеКонтакты
                   |        ЛЕВОЕ СОЕДИНЕНИЕ Задача.ЗадачиПользователя КАК Задачи
                   |        ПО (Задачи.Объект = ЛичныеКонтакты.Ссылка)
                   |            И (Задачи.Оповещение = ИСТИНА)
                   |            И (Задачи.ПамятнаяДата = ИСТИНА)
                   |            И (Задачи.СрокИсполнения > ДОБАВИТЬКДАТЕ(ЛичныеКонтакты.ДатаРождения, ГОД, РАЗНОСТЬДАТ(ЛичныеКонтакты.ДатаРождения, ДОБАВИТЬКДАТЕ(&ТекДата, ДЕНЬ, ЛичныеКонтакты.КоличествоДнейДоПодарка), МЕСЯЦ) / 12 - 1))
                   |ГДЕ
                   |    ЛичныеКонтакты.НапоминатьОПодарке = ИСТИНА
                   |    И ЛичныеКонтакты.ДатаРождения <> ДАТАВРЕМЯ(1, 1, 1)
                   |    И ЛичныеКонтакты.ОтветственныйЗаПодарок <> ЗНАЧЕНИЕ(Справочник.Пользователи.ПустаяСсылка)
                   |    И (ДОБАВИТЬКДАТЕ(ЛичныеКонтакты.ДатаРождения, ГОД, ГОД(&ТекДата) - ГОД(ЛичныеКонтакты.ДатаРождения)) >= &ТекДата
                   |                И ДОБАВИТЬКДАТЕ(ДОБАВИТЬКДАТЕ(ЛичныеКонтакты.ДатаРождения, ДЕНЬ, -ЛичныеКонтакты.КоличествоДнейДоПодарка), ГОД, ГОД(&ТекДата) - ГОД(ЛичныеКонтакты.ДатаРождения)) <= &ТекДата
                   |            ИЛИ ДОБАВИТЬКДАТЕ(ЛичныеКонтакты.ДатаРождения, ГОД, ГОД(&ТекДата) - ГОД(ЛичныеКонтакты.ДатаРождения)) >= ДОБАВИТЬКДАТЕ(&ТекДата, ГОД, -1)
                   |                И ДОБАВИТЬКДАТЕ(ДОБАВИТЬКДАТЕ(ЛичныеКонтакты.ДатаРождения, ДЕНЬ, -ЛичныеКонтакты.КоличествоДнейДоПодарка), ГОД, ГОД(&ТекДата) - ГОД(ЛичныеКонтакты.ДатаРождения)) <= ДОБАВИТЬКДАТЕ(&ТекДата, ГОД, -1))
                   |    И Задачи.СрокИсполнения ЕСТЬ NULL ";

    //УТ Специалист –


Запрос менялся «по аналогии».

Для проверки изменяем расписание регламентного задания ФормированиеПоздравленийСДнемРождения
Ставим каждые 60 сек например.

Из ошибок: идеально сделать пользователя, ответственного за подарки через регистр сведений. (я сдал и без этого, но правильно через регистр сведений)
TipsyKID,
11.12.12, 10:51 Вопрос на ввод данных №2
Вопрос
Автоматизированная компания торгует от имени двух юридических лиц "ООО Опт" и "ООО Розница" (информация по ним должна быть введена в систему). Первое занимается оптовой торговлей, второе розничной. Розничная торговля ведется с розничных складов компании и с нескольких неавтоматизированных торговых точек: "Ларек1" и "Ларек2" (операции заводить по одной неавтоматизированной торговой точке).
Учет ведется в одной базе данных. Все вышеперечисленные операции должны быть введены в систему с учетом того, что данные выгружаются в конфигурацию "Бухгалтерия для Украины".
Задача. Оформить покупку ряда номенклатурных позиций на оптовый склад "ООО Опт".
Передать товар "ООО Розница"
С Розничного склада "ООО Розница" переместить товар на неавтоматизированную торговую точку.
Напрямую закупить дополнительные номенклатурные позиции на неавтоматизированную торговую точку.
Внести данные о продажах, произведенных неавтоматизированной торговой точкой.
Внести данные о продажах непосредственно в "ООО Розница"
Vofka,
11.12.12, 10:28 Вопрос на ввод данных №1
Вопрос

Автоматизированная компания торгует аудио -видео техникой. Складской учет ведется в разрезе серий номенклатурных позиций. Все нижеперечиссленные операции ввести для организации "ООО Мир техники"
Задача. Оформить поступление и продажи номенклатурных позиций в разрезе серий.
Провести ценообразование поступивших товаров.
Оформить выставление товаров на витрину.
Произвести инвентаризацию на складе компании.
В ходе инвентаризации выявились излишки товаров. Несколько номенклатурных позиций при проверке были отнесены к бракованным. Часть товаров была возвращена поставщику, часть была продана с 30% скидкой.

Необходимо документально отобразить данные об инвентаризации в конфигурации
Vofka,
11.12.12, 9:41 Вопрос на конфигурирование №2
Вопрос
В качестве исходной использовать типовую конфигурацию "Управление торговлей для Украины".
Необходимо внести изменения в механизм напоминания о днях рождения.
Как в личных контактах, так и в контактах контрагентов необходимо предусмотреть возможность установки флага "Подарок". В случае если флаг для контакта отмечен, перед наступление дня рождения (заранее за указаное специально для подарка количество дней) должно формироваться дополнительное напоминание сотруднику, ответственному за подготовку подарка. Количество дней до напоминания о дне рождении и подготовке подарке могут различаться.
В разное время обязанности по подготовке подарка могут возлагаться на разных сотрудников. Напоминание должно формироваться на того сотрудника, кто на момент его формирования исполняет данные обязаности.
Vofka,
11.12.12, 9:10 Вопрос по конфигурированию № 1
Вопрос:
В качестве исходной использовать типовую конфигурацию "Управление торговлей для Украины".
Необходимо в докуументе "Поступление товаров, услуг" реализовать возможность получения дополнительной печатной формы: "Оценка потребности". Она должна формироваться при нажатии на "штатную кнопку" "Печать".
Необходимо чтобы возможность формирования этой формы была только у пользователей с определенными на то полномочиями. При этом привязки к определенным ролям быть не должно (создавать новую роль также нельзя).
Печатная форма должна иметь следующий вид:




Форма содержит данные за год (не календарный, а интервал). Правой границей является день, предшествующий дате заводимого документа.
Если отгрузок какого-то наименования было более одной, то информация должна попадать в пункт потребности "постоянная", где указывается средний интервал между отгрузками. Средний интервал определяется как количество дней в году, разделенное на количество документов отгрузки по данному товару.
Если отгрузка была только одна - в графу разовая должна попасть дата отгрузки
TipsyKID, Vofka,
09.10.12, 12:44 УТП справочник Номенклатура отображение Розничной цены (в списке)
Процедура СписокПриПолученииДанных(Элемент, ОформленияСтрок)
    Запрос = Новый Запрос("ВЫБРАТЬ
                          |    ЦеныНоменклатурыСрезПоследних.Номенклатура,
                          |    ЦеныНоменклатурыСрезПоследних.Цена,
                          |    ПРЕДСТАВЛЕНИЕ(ЦеныНоменклатурыСрезПоследних.Валюта) КАК валюта
                          |ИЗ
                          |    РегистрСведений.ЦеныНоменклатуры.СрезПоследних(
                          |            ,
                          |            Номенклатура В (&сНом)
                          |                И ТипЦен = &ТекущийТип) КАК ЦеныНоменклатурыСрезПоследних");

    МассивНоменклатуры = Новый Массив;
    Соответствие = Новый Соответствие;

    Для Каждого Строка из ОформленияСтрок Цикл
        Если НЕ Строка.ДанныеСтроки.Ссылка.ЭтоГруппа Тогда
        МассивНоменклатуры.Добавить(Строка.ДанныеСтроки.Ссылка);
        Соответствие.Вставить(Строка.ДанныеСтроки.Ссылка, Строка);
        КонецЕсли;
    КонецЦикла;

    Запрос.УстановитьПараметр("сНом", МассивНоменклатуры);
    Запрос.УстановитьПараметр("ТекущийТип", Справочники.ТипыЦенНоменклатуры.НайтиПоНаименованию("VIP"));



    Выборка = Запрос.Выполнить().Выбрать();


    Пока Выборка.Следующий() Цикл
        //Колонка цена добавлена в список руками
        Соответствие.Получить(Выборка.Номенклатура.Ссылка).Ячейки.цена.Значение = Строка(Выборка.Цена) + " " +Выборка.валюта;
    КонецЦикла;
КонецПроцедуры


Все норм работает, попробуйте
nazarenko,
29.05.12, 14:48 Печать авансового отета на 1 странице
По идее нужно закомментировать :
ТабДокумент.ВывестиГоризонтальныйРазделительСтраниц()
Softovik,
24.05.12, 11:43 таблица значений
Погуглил и такое слепил : результат как и в цикле
  МенеджерВременныхТаблиц = Новый МенеджерВременныхТаблиц; 
   Запрос = Новый Запрос;
   Запрос.МенеджерВременныхТаблиц = МенеджерВременныхТаблиц;
   Запрос.Текст =
   "ВЫБРАТЬ
   |  ТабТоваров.Номенклатура,
   |  ТабТоваров.Закупка
   |  ПОМЕСТИТЬ ВыбрНоменклатура  
   |  ИЗ &ТабТоваров КАК ТабТоваров";
  
   Запрос.УстановитьПараметр("ТабТоваров", ТЗ1);
   Запрос.Выполнить();
  
   Запрос.Текст =
   "ВЫБРАТЬ
   |  ТабТоваров.Номенклатура,
   |  ТабТоваров.Реализация
   |  ПОМЕСТИТЬ ВыбрНоменклатура1  
   |  ИЗ &ТабТоваров КАК ТабТоваров";
  
   Запрос.УстановитьПараметр("ТабТоваров", ТЗ2);
   Запрос.Выполнить();
  
  
   Запрос.Текст =   "ВЫБРАТЬ
   |    ВыбрНоменклатура.Номенклатура,
   |    ВыбрНоменклатура.Закупка,
   |    ВыбрНоменклатура1.Реализация
   |ИЗ
   |    ВыбрНоменклатура КАК ВыбрНоменклатура
   |        ЛЕВОЕ СОЕДИНЕНИЕ ВыбрНоменклатура1 КАК ВыбрНоменклатура1
   |        ПО ВыбрНоменклатура.Номенклатура = ВыбрНоменклатура1.Номенклатура";
  
  
   ТабТоваров = Запрос.Выполнить().Выгрузить();
   МенеджерВременныхТаблиц.Закрыть();


gorik77,
23.05.12, 12:40 добавление типов цен в документ "поступление товаров услуг"
Цитата(sava1 @ 23.05.12, 13:30) *
тз.Колонки.Добавить("число", Новый ОписаниеТипов("Число",Новый КвалификаторыЧисла(10, 2, ДопустимыйЗнак.Любой)), "1");


о да можно и так.

можно и покороче:

ЗапросТипЦен.Колонки.Добавить("РозничнаяЦена", Новый ОписаниеТипов("Число"));
gorik77,
18.05.12, 12:10 добавление типов цен в документ "поступление товаров услуг"
Запрос = Новый Запрос;
    Запрос.УстановитьПараметр("Док", Док);
    Запрос.УстановитьПараметр("ДатаЦены", Док.Дата);
    
    Запрос.Текст =
    "ВЫБРАТЬ
    |    ПоступлениеТоваровУслугТовары.Ссылка,
    |    ПоступлениеТоваровУслугТовары.Номенклатура,
    |    ЦеныНоменклатурыСрезПоследних.Валюта,
    |    ЦеныНоменклатурыСрезПоследних.Период,
    |    ЦеныНоменклатурыСрезПоследних.ТипЦен,
    |    ЦеныНоменклатурыСрезПоследних.Цена
    |ИЗ
    |    РегистрСведений.ЦеныНоменклатуры.СрезПоследних(&ДатаЦены, ) КАК ЦеныНоменклатурыСрезПоследних
    |        ЛЕВОЕ СОЕДИНЕНИЕ Документ.ПоступлениеТоваровУслуг.Товары КАК ПоступлениеТоваровУслугТовары
    |        ПО (ПоступлениеТоваровУслугТовары.Номенклатура = ЦеныНоменклатурыСрезПоследних.Номенклатура)
    |ГДЕ
    |    ПоступлениеТоваровУслугТовары.Ссылка = &Док";
    
    
    ЗапросТипЦен = Запрос.Выполнить().Выгрузить();


так получает последние актуальные цены на дату документа
gorik77,
07.12.11, 13:26 Получить значение реквизита ДатаБазыИндекса в спр. Сотрудники
пасиб.. уже и я что то тоже получил )))). щас буду вытягивать ..

Все. получил что надо было. всем спасибо за помощь! особенно Домовик`у и Sava1 за коды и наводки )).
Домовик,

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