krav serko

110
Рейтинг

serko8547



  •   Регистрация: 23.06.2010 (13 лет назад)

  •   Был(а) на сайте: сегодня в 11:43

Друзья
  • Леван Иремадзе
  • Дмитрий Чешуин
  • Дмитрий Малышев
  • Евгений Комиссаров
  • Дима Петрученя
  • Евгений _
  • Андрей Волин
Подписчики 7

Группы

Профессиональный разработчик

Рейтинг 110

Перенос номенклатуры в любую конфигурацию

Статья Программист Платформа 1С v8.3 Конфигурации 1cv8 Бесплатно (free) Нет файла Перенос данных 1C

Разбор кода по переносу номенклатуры (и любых других иерархических справочников).

04.07.2022    1474    serko8547    0       

3

Сравнение реквизитов двух объектов (УФ)

Инструменты и обработки Программист Платформа 1С v8.3 Управляемые формы Конфигурации 1cv8 Абонемент ($m) Внешняя обработка (ert,epf) Инструментарий разработчика

Сравнивает реквизиты двух однотипных объектов (например, 2 расходные накладные, 2 типа цен), подсвечивает различия.

1 стартмани

01.04.2022    3803    12    serko8547    11       

8

Простой менеджер звонков, с учетом расписания мастера

Отчеты и формы Пользователь Платформа 1С v8.3 Бытовые услуги, сервис Управленческий учет Абонемент ($m) Архив с данными Управление взаимоотношениями с клиентами (CRM) Управление услугами и сервисом

Менеджер звонков, подходящий для совершения множества как холодных звонков новым клиентам, так и для принятия звонков. Рассчитан на массажные салоны, парикмахерские, салоны красоты, фотографы, сауны, спа-салоны и любые другие услуги, где используются мастера, с расписанием, или предоставляемые услуги с почасовой оплатой мастера / помещения / аренды.

1 стартмани

04.03.2020    8219    serko8547    3       

4

Массовый перенос номенклатуры в выбранную папку

Инструменты и обработки Для всех Платформа 1С v8.3 Конфигурации 1cv8 Абонемент ($m) Внешняя обработка (ert,epf) Логистика, склад и ТМЦ

Простая и удобная обработка для массового выбора и переноса номенклатуры в выбранную папку. (Для программиста - на 5 минут работы, а бухгалтеру поможет сэкономить часы времени)

1 стартмани

23.08.2014    11009    30    serko8547    8       

4

Перенос Расходных накладных из ТиС (Украина), в УТП (Украина)

Инструменты и обработки Для всех Платформа 1С v8.3 1С:Управление торговлей 10 Украина Windows Абонемент ($m) Внешняя обработка (ert,epf) Перенос данных 1C

Обработка для переноса из 1с 7.7 Торговля и склад в УТП. Запускается только из 1с8, все настройки (Кроме даты переноса) сохраняются, попутно создается (Если не найден по ИНН, ОКПО, наименованию) Контрагент, договор контрагента, номенклатура. Так же обработка может проводить или не проводить созданный документ.

1 стартмани

04.12.2013    9259    1    serko8547    1       

1

Перенос данных из ТИС в УТП Украина

Инструменты и обработки Системный администратор Программист Бухгалтер 1С:Торговля и склад 7.7 Украина Управленческий учет Windows Абонемент ($m) Архив с данными Загрузка и выгрузка в Excel Перенос данных 1C

Перенос остатков из ТиС (Торговля и Склад Украина) 7.7 в УТП 8.2 Украина. Делается двумя обработками через Эксель. Все взаиморасчеты формируются БЕЗ НДС!!!

1 стартмани

07.03.2013    17123    23    serko8547    2       

4

Комментарии

ОбменКД 3.0 загрузка правил конвертации#5 31.01.24 16:46
(1)
Цитата
Добрый день.
В КД 3.0 Пытаюсь загрузить правила конвертации, все делаю по справке:
Выгружаю файлы через обработку Выгрузка правил синхронизации, сохраняю общий модуль, ...но при загрузке выдает ошибку

Надо сделать выгрузку правил,
(инструкция https://infostart.ru/public/695523/)
Этап 2.
Она и создает тот самый файлик info.xml
УчетЗапрос для динамического списка в расширении#15 12.01.24 16:32
(13) Спасибо тебе добрый человек! Работает! Оооочень помогло!
UpdateCF1С Розница 2.2.11.24 Эмулятор фискального регистратора снят с поддержки#16 08.11.23 15:39
(1)
Эмуляторы: x68--x64 с драйверами:
ККТ, х64 x86 (С драйвером)
драйвер сканера Штрих-кода x86-x64
Эмулятор дисплея покупателя (с драйвером)
Эмулятор Эквайринга (С драйвером)
Электронные весы (С драйвером)
Принтер этикеток (С драйвером)

все работает как на 32 бита так и на 64

пользуйтесь. Искал сам, результаты выкладываю, может помогут кому

Прикрепленные файлы:

EmulatorKKTNative_5_0ДроваНаРозницу.zip
DevПрограммное открытие отчета СКД без формы с передачей параметров#32 13.10.23 16:50
Сделал рабочий код с текущим вариантом отчета:
Проверял работу на УТ 11.4
//Данные не передавал, стояла задача просто открыть отчет с текущим вариантом отчета.

Код

&НаКлиенте
Процедура НеотгруженныеОрдера(Команда)
    КомандаОткрытьВнешнийОтчет("\\192.168.0.3\Отчеты\Другие отчеты\НеотгруженныеОрдера.erf");
КонецПроцедуры


&НаКлиенте
Процедура КомандаОткрытьВнешнийОтчет(Путь)

ОписаниеОповещения = Новый ОписаниеОповещения("ПоместитьФайлВХранилищеЗавершениеОтчет", ЭтотОбъект);
НачатьПомещениеФайла(ОписаниеОповещения, , Путь, Ложь);
КонецПроцедуры

&НаКлиенте
Процедура ПоместитьФайлВХранилищеЗавершениеОтчет(Результат, Адрес, ВыбранноеИмяФайла, ДополнительныеПараметры) Экспорт 
    
РезЗапроса = ПодключитьВнешнийОтчетНаСервереОтчет(Адрес);  
ИмяОтчета = РезЗапроса.ИмяОтчета;
КлючВарианта = РезЗапроса.ВариантОтчета;
ПараметрыОткрытия = Новый Структура("КлючВарианта", КлючВарианта);
Уникальность ="ВнешнийОтчет." + ИмяОтчета;
ОткрытьФорму("ВнешнийОтчет." + ИмяОтчета + ".Форма", ПараметрыОткрытия, Неопределено, Уникальность)

КонецПроцедуры

&НаСервере
Функция ПодключитьВнешнийОтчетНаСервереОтчет(АдресХранилища)

    результат = Новый Структура;
    ИмяОтчета = ВнешниеОтчеты.Подключить(АдресХранилища); 
    ВариантыОтчета =  ХранилищеВариантовОтчетов.ПолучитьСписок("Отчет."+ИмяОтчета); 
    КлючОбъекта = "ВнешнийОтчет."+ИмяОтчета+"/КлючТекущегоВарианта";
    ВариантОтчета = ОбщегоНазначения.ХранилищеСистемныхНастроекЗагрузить(КлючОбъекта, "");
    Мт = ВариантыОтчета.НайтиПоЗначению(ВариантОтчета);
    Если МТ <> Неопределено Тогда
        ВариантОтчета = МТ.Представление;
    КонецЕсли;
    результат.Вставить("ИмяОтчета",ИмяОтчета);
    результат.Вставить("ВариантОтчета",ВариантОтчета);
    
    Возврат Результат;     
КонецФункции    

&НаСервереБезКонтекста
Функция ПолучитьПользовательскиеНастройки(ВнешнийОтчетОбработкаДляОткрытияСсылка);
    
    КомпоновщикНастроек=ДополнительныеОтчетыИОбработкиВызовСерве<wbr>­ра.ОбъектВнешнейОбработки(ВнешнийОтчетОбработкаДляОткрытияСсылка).КомпоновщикНастроек;
    Настройки=КомпоновщикНастроек.ПолучитьНастройки();
    Настройки.ПараметрыДанных.УстановитьЗначениеПараметра("НачПериода",НачалоДня(ТекущаяДата()));
    Настройки.ПараметрыДанных.УстановитьЗначениеПараметра("КонПериода",КонецДня(ТекущаяДата()));
    КомпоновщикНастроек.ЗагрузитьНастройки(Настройки);
    Возврат КомпоновщикНастроек.ПользовательскиеНастройки;
КонецФункции
DevПрограммно получить текущий вариант отчета СКД#13 13.10.23 16:46
В общем, обобщая всё, сделал рабочий код, открывается с сохраненными вариантами настроек
Код

&НаКлиенте
// Путь = "D:\ВашОтчет.erf"
Процедура КомандаОткрытьВнешнийОтчет(Путь)

ОписаниеОповещения = Новый ОписаниеОповещения("ПоместитьФайлВХранилищеЗавершениеОтчет", ЭтотОбъект);
НачатьПомещениеФайла(ОписаниеОповещения, , Путь, Ложь);
КонецПроцедуры

&НаКлиенте
Процедура ПоместитьФайлВХранилищеЗавершениеОтчет(Результат, Адрес, ВыбранноеИмяФайла, ДополнительныеПараметры) Экспорт 
   
РезЗапроса = ПодключитьВнешнийОтчетНаСервереОтчет(Адрес);  
ИмяОтчета = РезЗапроса.ИмяОтчета;
КлючВарианта = РезЗапроса.ВариантОтчета;
ПараметрыОткрытия = Новый Структура("КлючВарианта", КлючВарианта);
Уникальность ="ВнешнийОтчет." + ИмяОтчета;
ОткрытьФорму("ВнешнийОтчет." + ИмяОтчета + ".Форма", ПараметрыОткрытия, Неопределено, Уникальность)

КонецПроцедуры

&НаСервере
Функция ПодключитьВнешнийОтчетНаСервереОтчет(АдресХранилища)

    результат = Новый Структура;
   ИмяОтчета = ВнешниеОтчеты.Подключить(АдресХранилища); 
   ВариантыОтчета =  ХранилищеВариантовОтчетов.ПолучитьСписок("Отчет."+ИмяОтчета); 
   КлючОбъекта = "ВнешнийОтчет."+ИмяОтчета+"/КлючТекущегоВарианта";
   ВариантОтчета = ОбщегоНазначения.ХранилищеСистемныхНастроекЗагрузить(КлючОбъекта, "");
   Мт = ВариантыОтчета.НайтиПоЗначению(ВариантОтчета);
   Если МТ <> Неопределено Тогда
      ВариантОтчета = МТ.Представление;
   КонецЕсли;
   результат.Вставить("ИмяОтчета",ИмяОтчета);
   результат.Вставить("ВариантОтчета",ВариантОтчета);
   
   Возврат Результат;     
КонецФункции    

&НаСервереБезКонтекста
Функция ПолучитьПользовательскиеНастройки(ВнешнийОтчетОбработкаДляОткрытияСсылка);
   
    КомпоновщикНастроек=ДополнительныеОтчетыИОбработкиВызовСервера.ОбъектВнешнейОбработки(ВнешнийОтчетОбработкаДляОткрытияСсылка).КомпоновщикНастроек;
    Настройки=КомпоновщикНастроек.ПолучитьНастройки();
    Настройки.ПараметрыДанных.УстановитьЗначениеПараметра("НачПериода",НачалоДня(ТекущаяДата()));
    Настройки.ПараметрыДанных.УстановитьЗначениеПараметра("КонПериода",КонецДня(ТекущаяДата()));
    КомпоновщикНастроек.ЗагрузитьНастройки(Настройки);
    Возврат КомпоновщикНастроек.ПользовательскиеНастройки;
КонецФункции


DevУстановлен безопасный режим. Выполнение операции запрещено#42 20.06.23 8:10
Если у вас связанно с работой файлов, или внешними подключениями, то должна быть доступна роль "Администратор системы" (не путать с полными правами)

Итого:
1.Конфигуратор: Администринование --> Пользователи - Убрать галку (в самом низу) "Защита от опасных действий"
Там же, у пользователя - кликнуть вкладку "Прочие"
2. Поставить галку "Администратор системы"
3. Поставить галку "Добавление и изменение папок и файлов"
ПубликацииКонтроль отрицательных остатков в конфигурациях: УТ 11.4, КА 2.4, ЕРП 2.4#105 05.05.23 12:22
Администрирование - финансовый учет и контрогинг.

автор, если вы выставляете скриншот, то будьте добры - пропишите путь как выйти на тот скриншот.
Потому что когда надо срочно - пересмотрел 50 сайтов - НИГДЕ НИЧЕГО!!! А нужно срочно!
HighLoadrphost грузит память#26 05.05.23 8:23
(25) Воообще-то это критично. Закрытие месяца, обмен, снятие резервов И очень много других заданий - важны и критичны. так что отключние регламентных заданий - необходимо!

а на сч самого процесса - поставьте на перезапуск раз в сутки.
DevУстановлен безопасный режим. Выполнение операции запрещено#39 25.04.23 12:45
посмотрите роль "Добавление и изменение папок и файлов"
DevУсловное оформление формы документа в расширении 1С УТ#12 07.04.23 9:47
Спасибо автору, разобрался, и выставляю готовое решение:

Код

&НаСервере

Процедура УстановитьУсловноеОформление()

... // чего то там уже есть, Добавляем текст в конце процедуры:


// Красим строчку в карсный цвет если стоит галочка "Нельзя проводить" 
// У вас в программе ее нет, Это галочка добавленная мною. Но как пример кода пойдет.
 
    Элемент = УсловноеОформление.Элементы.Добавить();
    Элемент.Использование = Истина;

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

    ПолеЭлемента = Элемент.Поля.Элементы.Добавить();
    ПолеЭлемента.Использование = Истина; 
    ПолеЭлемента.Поле = Новый ПолеКомпоновкиДанных(Элементы.ТоварыСуммаАвтоматическойСкидки.Имя);


 
 
 // добавляем условие
    ОтборЭлемента = Элемент.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных"));
    ОтборЭлемента.ЛевоеЗначение = Новый ПолеКомпоновкиДанных("Объект.Товары.ЗапретПроведения"); // тут уточняем что с чем сравниваем. 
    ОтборЭлемента.ВидСравнения = ВидСравненияКомпоновкиДанных.Равно;
    ОтборЭлемента.ПравоеЗначение =Истина;
    ОтборЭлемента.Использование = Истина;
// если надо еще одно условие, копируем эти 5 сточек и подставляем нужные условия


 //Указываем цвет    
 Элемент.Оформление.УстановитьЗначениеПараметра("ЦветТекста", Новый Цвет(175, 0, 0)); // темно-красный
 Элемент.Оформление.УстановитьЗначениеПараметра("ЦветФона", Новый Цвет(255, 235, 222)); // светло-розовый

КонецПроцедуры