Simonov San

69
Рейтинг

simgo83



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

  •   Был(а) на сайте: вчера в 04:49

Друзья
  • raslscorpio raslscorpio
  • Дмитрий Малышев
  • Евгений Комиссаров
  • Сергей
  • Андрей Волин
Подписчики 5
Группы

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

Рейтинг 69

Анализ изменения материальной стоимости продукции на основании материала из "Поступление товаров и услуг" или "Заказ поставщику" для УПП 1.3
+2 –

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

Внешняя печатная форма для документов "Заказ поставщику" и "Поступление товаров и услуг" для УПП 1.3 , подключается по кнопке "Зарегистрировать", после чего доступна в меню печати документов. Отчет показывает на сколько изменится материальная составляющая продукции при закупке тех или иных материалов. Работает на основании спецификаций вне зависимости от уровня вложенности. Тестировал на релизе УПП 1.3.137.1.

1 стартмани

01.04.2020    32682    1    simgo83    0       

2

ТОРГ-12 с выбором организации для КА 2.4
+2 –

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

Внешняя печатная форма ТОРГ-12 для документа реализации с возможностью выбора организации перед выводом на печать. Тестировалось на КА 2.4.

1 стартмани

02.03.2019    4934    5    simgo83    0       

2

ABC-анализ номенклатуры по валовой прибыли с остатком на последнюю дату отчета
+4 –

Отчеты и формы Бизнес-аналитик Платформа 1С v8.3 1С:Управление торговлей 10 Управленческий учет Windows Абонемент ($m) Внешний отчет (ert,erf) Оптовая торговля

Отчет предназначен для ABC анализа валовой прибыли, которую приносит номенклатура, с добавлением колонок продаж и остатков.

1 стартмани

31.01.2016    9092    39    simgo83    1       

4

Защита удаленного рабочего стола от подбора пароля server 2008
+20 –

Инструменты и обработки Системный администратор Россия Windows Абонемент ($m) Архив с данными Информационная безопасность

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

1 стартмани

14.12.2011    25818    22    simgo83    19       

20

Привязка конфигурации к диску
+41 –

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

Простой способ определить по id HDD, используют ли твою работу на постороннем компьютере

1 стартмани

13.04.2010    20676    229    simgo83    39       

41
Смотреть все

Комментарии

Dev › Восстановить дополнительные реквизиты. › #15 03.11.23 15:53
Обновлял УНФ 1.6 на 3.0, все доп. реквизиты пропали (зачеркнулись), оказалось что при обновлении задублировались элементы справочника "Наборы дополнительных реквизитов и сведений"
Dev › Копирование присоединенных файлов объекта › #19 22.01.23 18:13
Для БСП 3.1.7.190

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

        КонецЕсли;
   КонецЦикла;


Где "ВыборкаДетальныеЗаписи.ФайлКартинки" ссылка на присоединенный файл
О жизни › Пьеса личных местоимений › #10 24.11.22 13:17
(6) Пример
Dev › Вертикальная группировка колонок в СКД › #8 21.09.22 6:25
(5) В купе с вариантом (2) в модуле отчета вставить код

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

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

Функция ОбъединятьЯчейки(ТабДок, индСтр, индКол)
    Ячейка = ТабДок.Область(индСтр, индКол);
    ЯчейкаСлед = ТабДок.Область(индСтр, индКол+1);
    Если ПустаяСтрока(Ячейка.Текст) Тогда
        Возврат ложь
    ИначеЕсли
        Ячейка.Текст = ЯчейкаСлед.Текст
            И Ячейка.Верх = Ячейка.Низ И ЯчейкаСлед.Верх = ЯчейкаСлед.Низ Тогда
        Возврат Истина;
    Иначе
        Возврат ложь
    КонецЕсли;
КонецФункции

Функция ОбработатьЗаголовки(ТабДок)
    ВысотаФ = ТабДок.ФиксацияСверху;
    ШиринаФ = ТабДок.ФиксацияСлева;
    ОбъединяемаяОбласть = Неопределено;
    Для индСтр = -ВысотаФ По -1 Цикл
        Если ТабДок.Область(-индСтр,1).Текст = "" Тогда
            Возврат ТабДок;
        КонецЕсли; 
        НачальнаяКолонка = 0;
        Для индКол=ШиринаФ+1 По ТабДок.ШиринаТаблицы Цикл
            Если ОбъединятьЯчейки(ТабДок, -индСтр, индКол) Тогда
                Если не НачальнаяКолонка Тогда
                    НачальнаяКолонка = индКол;
                КонецЕсли;
            ИначеЕсли НачальнаяКолонка Тогда
                ТекстЗаголовка = ТабДок.Область(-индСтр, индКол).Текст;
                ОбъединяемаяОбласть = ТабДок.Область(-индСтр, НачальнаяКолонка, -индСтр, индКол);
                ОбъединяемаяОбласть.Объединить();
                ОбъединяемаяОбласть.ГоризонтальноеПоложение = ГоризонтальноеПоложение.Центр;
                ОбъединяемаяОбласть.Текст = ТекстЗаголовка;
                НачальнаяКолонка = 0;
            Иначе
                НачальнаяКолонка = 0;
            КонецЕсли;
        КонецЦикла;
    КонецЦикла;
    Возврат ТабДок;
КонецФункции
БУ › Отчет о просроченной задолженности/по интервалам на СКД (УПП, УТ) › #174 13.09.22 17:27
(173)

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

изображение_2022-09-13_212704001.png
Admin › Ограничение на просмотр счетов в стандартных отчетах › #52 05.11.21 22:40
В процедуре ПроверитьУстановленныйОтбор(Отбор,ВидСравнения,Значение)
Необходимо перенести вид сравнения ВидСравненияКомпоновкиДанных.ВИерархии выше, добавить в условие
"Отбор.ВидСравнения = ВидСравненияКомпоновкиДанных.Равно ИЛИ Отбор.ВидСравнения = ВидСравненияКомпоновкиДанных.ВИерархии" так как если отбор передается с ВидСравненияКомпоновкиДанных.ВИерархии, то перебирать его нельзя, выходит исключение.
Admin › Ограничение на просмотр счетов в стандартных отчетах › #51 05.11.21 21:41
В процедуре ОСВПоСчету_АнализСчета_КарточкаСчета(ОтчетОбъект,ИдентификаторОбъекта,НастройкаКомпоновкиДанных,СписокЗапрещенныхСчетов,СКД)
не верно определена переменная ОтборДтНайден, вернее два раза одно и тоже, во втором случае нужно ОтборКтНайден
Код
//Теперь в СКД нам доступны поля отбора СчетДт и СчетКт и по ним возможно устанавливать отбор. Попробуем найти ранее установленные отборы
         ОтборДтНайден = ПоискиУстановкаОтбора(НастройкаКомпоновкиДанных,"СчетДт",ВидСравненияКомпоновкиДанных.НеВСписке,СписокЗапрещенныхСчетов);
         
         ОтборДтНайден = ПоискиУстановкаОтбора(НастройкаКомпоновкиДанных,"СчетКт",ВидСравненияКомпоновкиДанных.НеВСписке,СписокЗапрещенныхСчетов);
Dev › Тонкости настройки Истории данных › #11 02.09.21 10:31
(9) В моем случае у документа был вариант "Использовать" и этого "Источник.ЗаписьИсторииДанных.Отказ = Истина; " не хватило
Сделал так:
Код
ДокументОбъект.ЗаписьИсторииДанных.ОбновлятьИсториюСразуПослеЗаписи =Ложь;
ДокументОбъект.ЗаписьИсторииДанных.Отказ =Истина;    

и стало норм
Публикации › IoT (Internet of Things) в 1С или как подружить 1С с ESP32 при помощи MQTT-брокера › #2 27.06.20 7:53
(1) продолжайте
Публикации › Анализ изменения материальной стоимости продукции на основании материала из "Поступление товаров и услуг" или "Заказ поставщику" для УПП 1.3 › #0 01.04.20 17:10
Внешняя печатная форма для документов "Заказ поставщику" и "Поступление товаров и услуг" для УПП 1.3 , подключается по кнопке "Зарегистрировать", после чего доступна в меню печати документов. Отчет показывает на сколько изменится материальная составляющая продукции при закупке тех или иных материалов. Работает на основании спецификаций вне зависимости от уровня вложенности. Тестировал на релизе УПП 1.3.137.1.