74
Рейтинг

mirco
Чумерин Сергей

Регистрация: 21.08.2009 (14 лет назад)
Был(а) на сайте: вчера в 08:38

Друзья

Подписчики 3

Дополнительная информация

Группы

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

Партнер IS-WP

Рейтинг 74

Загрузка товаров в весы Штрих-Принт
+3 –

Инструменты и обработки Для всех Оперативный учет 7.7 1С:Торговля и склад 7.7 Windows Абонемент ($m) Внешняя обработка (ert,epf) Весы

Несмотря на распространенность весов Штрих-Принт, обработок по загрузке товаров для типовой ТиС нет. Данная обработка поможет быстро и просто загрузить товары в весы.

1 стартмани

30.09.2014 17554 31 mirco 1

Перенос цен номенклатуры из УТ 10.3 в БП 1.6 (дополнение к типовым механизмам) (обновлено)
+6 –

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

При использовании типового механизма обмена между УТ 10.3 и БП 1.6, в БП переносятся только документы "Переоценка в Рознице". Если же Вам в БП требуются остальные цены номенклатуры (цены поступления, к примеру) - то данная обработка как раз для Вас.

1 стартмани

11.08.2010 12652 105 mirco 5

Мелочи пользователю
+17 –

Инструменты и обработки Для всех Платформа 1С v8.3 1С:Комплексная автоматизация 1.х 1С:Управление торговлей 10 1С:Управление производственным предприятием Бесплатно (free) Внешняя обработка (ert,epf) Логистика, склад и ТМЦ

Набор приятных мелочей для пользователей. Сортировка табличной части документа "Инвентаризация товаров" по артикулу или отклонению.

10.11.2009 14986 170 mirco 8

Обновлено ! Реестр поступления\расхода денежных средств в разрезе ДДС v0.2 + выгрузка в Excel
+48 –

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

Ну вот и обновил + добавил выгрузку в Excel !!!! Условия: 1. холдинг, дочерние организации которого отчитываются перед руководством холдинга о поступлении и расходе денежных средств. 2. отчетность ведется в разрезе статей ДДС. 3. хозяйственные операции в обязательном порядке документированы 4. обязательный бланк (форма) отчетности.

1 стартмани

23.10.2009 27731 306 mirco 38

Смотреть все

Понравилось как Мария рассказывает и как отвечает на вебинаре.
В описание курса стоит добавить напоминание о том что участники сами должны быть заинтересованы.
Прямо в описании курса указать "Внимание, много самостоятельной работы, освободите время в графике."
Хотя это предложение, возможно снизит продажи.
А курс то отличный.

Dev › СКД : как объединить группировки колонок › #1 06.05.20 15:33

Подскажите как объединить группировки в колонках ?
схема - картинка 1
отчет картинка 2

Надо чтобы колонки по месяцам сгруппировались по годам.

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

отчет1.jpg
отчет2.jpg

Dev › Дерево в JSON › #1 30.01.20 16:51

Подскажите что не так делаю. ?
Задача : выбрать иерархический справочник с неопределенной глубиной и засунуть в JSON.

Дерево = ДеревоТерриторий(); // получаю ДеревоЗначений

ДеревоТерриторийJSON = ДеревоТерриторийВJSON(Дерево); - Пытаюсь в json

Код
Функция ДеревоТерриторийВJSON(Дерево) Экспорт ЗаписьJSON = Новый ЗаписьJSON; ПараметрыЗаписиJSON = Новый ПараметрыЗаписиJSON(,Символы.Таб); ЗаписьJSON.УстановитьСтроку(ПараметрыЗаписиJSON); ЗаписьJSON.ЗаписатьНачалоМассива(); ОбходДереваТерриторий(Дерево.Строки,ЗаписьJSON); ЗаписьJSON.ЗаписатьКонецМассива(); Возврат ЗаписьJSON.Закрыть(); КонецФункции Процедура ОбходДереваТерриторий(СтрокиДерева,ЗаписьJSON) Для каждого СтрокаД Из СтрокиДерева Цикл ЗаписьJSON.ЗаписатьНачалоОбъекта(); ЗаписьJSON.ЗаписатьИмяСвойства("Территория"); ЗаписьJSON.ЗаписатьЗначение(СтрокаД.Территория); ЗаписьJSON.ЗаписатьИмяСвойства("ПредставлениеПоиска"); ЗаписьJSON.ЗаписатьЗначение(СтрокаД.ПредставлениеПоиска); ЗаписьJSON.ЗаписатьИмяСвойства("Идентификатор"); ЗаписьJSON.ЗаписатьЗначение(СтрокаД.Идентификатор); //Строки ЗаписьJSON.ЗаписатьИмяСвойства("Строки"); ЗаписьМассиваПодчиненных(СтрокаД.Строки,ЗаписьJSON); // ТУТ ОШИБКА : Неверный порядок записи json ЗаписьJSON.ЗаписатьКонецОбъекта(); КонецЦикла; КонецПроцедуры Функция ЗаписьМассиваПодчиненных(СтрокиДерева,ЗаписьJSON) Если СтрокиДерева.Количество() Тогда ЗаписьJSON.ЗаписатьНачалоМассива(); Для каждого СтрокаД Из СтрокиДерева Цикл ОбходДереваТерриторий(СтрокаД.Строки,ЗаписьJSON); // реккурсия КонецЦикла; ЗаписьJSON.ЗаписатьКонецМассива(); КонецЕсли; КонецФункции Процедура получения "дерева значений" из справочника Функция ДеревоТерриторий() Экспорт Дерево = Новый ДеревоЗначений; Дерево.Колонки.Добавить("Территория"); Дерево.Колонки.Добавить("ПредставлениеПоиска"); //Дерево.Колонки.Добавить("Наименование"); Дерево.Колонки.Добавить("Идентификатор"); Запрос = Новый Запрос; Запрос.Текст = "ВЫБРАТЬ \| ТСК_Территории.Ссылка КАК Территория, \| ТСК_Территории.ПредставлениеПоиска КАК ПредставлениеПоиска, \| ТСК_Территории.Наименование КАК Наименование \|ИЗ \| Справочник.ТСК_Территории КАК ТСК_Территории \|ГДЕ \| НЕ ТСК_Территории.ЭтоГруппа \|ИТОГИ ПО \| Территория ТОЛЬКО ИЕРАРХИЯ \|АВТОУПОРЯДОЧИВАНИЕ"; РезультатЗапроса = Запрос.Выполнить(); Выборка = РезультатЗапроса.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкамСИерархией); ОбходДереваЗапроса(Выборка,Дерево); Возврат Дерево; КонецФункции //ДеревоТерриторий Процедура ОбходДереваЗапроса(ИерархическаяВыборка,Дерево) Пока ИерархическаяВыборка.Следующий() Цикл НоваяСтрока = Дерево.Строки.Добавить(); НоваяСтрока.Территория = ИерархическаяВыборка.Наименование; НоваяСтрока.ПредставлениеПоиска = ИерархическаяВыборка.ПредставлениеПоиска; НоваяСтрока.Идентификатор = XMLСтрока(ИерархическаяВыборка.Территория); СпособВыборки = ОбходРезультатаЗапроса.ПоГруппировкамСИерархией; Если ИерархическаяВыборка.ТипЗаписи() = ТипЗаписиЗапроса.ИтогПоИерархии Тогда ДочерняяВыборка = ИерархическаяВыборка.Выбрать(СпособВыборки, ИерархическаяВыборка.Группировка()); Иначе ДочерняяВыборка = ИерархическаяВыборка.Выбрать(СпособВыборки); КонецЕсли; ОбходДереваЗапроса(ДочерняяВыборка,НоваяСтрока); КонецЦикла; КонецПроцедуры

Код

Функция ДеревоТерриторийВJSON(Дерево) Экспорт
   
   ЗаписьJSON = Новый ЗаписьJSON;
   
   ПараметрыЗаписиJSON = Новый ПараметрыЗаписиJSON(,Символы.Таб);
   
   ЗаписьJSON.УстановитьСтроку(ПараметрыЗаписиJSON);   
   
   ЗаписьJSON.ЗаписатьНачалоМассива();
   
   ОбходДереваТерриторий(Дерево.Строки,ЗаписьJSON);
   
   ЗаписьJSON.ЗаписатьКонецМассива();
   
   Возврат  ЗаписьJSON.Закрыть();
   
КонецФункции


Процедура ОбходДереваТерриторий(СтрокиДерева,ЗаписьJSON)   
   
   
   Для каждого СтрокаД  Из СтрокиДерева Цикл
      
      ЗаписьJSON.ЗаписатьНачалоОбъекта();
      ЗаписьJSON.ЗаписатьИмяСвойства("Территория");
      ЗаписьJSON.ЗаписатьЗначение(СтрокаД.Территория);
      ЗаписьJSON.ЗаписатьИмяСвойства("ПредставлениеПоиска");
      ЗаписьJSON.ЗаписатьЗначение(СтрокаД.ПредставлениеПоиска);
      ЗаписьJSON.ЗаписатьИмяСвойства("Идентификатор");
      ЗаписьJSON.ЗаписатьЗначение(СтрокаД.Идентификатор); 
            
      //Строки
      ЗаписьJSON.ЗаписатьИмяСвойства("Строки");       
      ЗаписьМассиваПодчиненных(СтрокаД.Строки,ЗаписьJSON); // ТУТ ОШИБКА : Неверный порядок записи json
                  
      
      ЗаписьJSON.ЗаписатьКонецОбъекта();
      
   КонецЦикла; 
   
   
   
КонецПроцедуры

Функция ЗаписьМассиваПодчиненных(СтрокиДерева,ЗаписьJSON)
   
   Если СтрокиДерева.Количество() Тогда
      
      
      ЗаписьJSON.ЗаписатьНачалоМассива();
      
      Для каждого СтрокаД  Из СтрокиДерева Цикл       
         
         ОбходДереваТерриторий(СтрокаД.Строки,ЗаписьJSON); // реккурсия
         
      КонецЦикла;
      
      ЗаписьJSON.ЗаписатьКонецМассива();
      
   КонецЕсли;
   
КонецФункции



Процедура получения "дерева значений" из справочника


Функция ДеревоТерриторий() Экспорт
   
   Дерево = Новый ДеревоЗначений;
   Дерево.Колонки.Добавить("Территория");
   Дерево.Колонки.Добавить("ПредставлениеПоиска");
   //Дерево.Колонки.Добавить("Наименование");
   Дерево.Колонки.Добавить("Идентификатор");
   
   
   Запрос = Новый Запрос;
   Запрос.Текст = 
   "ВЫБРАТЬ
   |   ТСК_Территории.Ссылка КАК Территория,
   |   ТСК_Территории.ПредставлениеПоиска КАК ПредставлениеПоиска,
   |   ТСК_Территории.Наименование КАК Наименование
   |ИЗ
   |   Справочник.ТСК_Территории КАК ТСК_Территории
   |ГДЕ
   |   НЕ ТСК_Территории.ЭтоГруппа
   |ИТОГИ ПО
   |   Территория ТОЛЬКО ИЕРАРХИЯ
   |АВТОУПОРЯДОЧИВАНИЕ";
   
   РезультатЗапроса = Запрос.Выполнить();
   
   Выборка =  РезультатЗапроса.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкамСИерархией);
   
   ОбходДереваЗапроса(Выборка,Дерево);
   
   Возврат  Дерево;
   
КонецФункции //ДеревоТерриторий



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

Dev › ОкончаниеВводаТекста - странности. › #10 24.01.20 11:59

У меня тип поля строка,
ОбновлениеТекстаРедактирования = При изменении значения

Процедура НомерЛицевогоСчетаАвтоПодбор(Элемент, Текст, ДанныеВыбора, ПараметрыПолученияДанных, Ожидание, СтандартнаяОбработка)

//СтандартнаяОбработка = Ложь; - вот так не выводит "не найдено"

Если Не ПустаяСтрока(Текст) И СтрДлина(Текст) > 5 Тогда

ПараметрыПоиска = Новый Структура;
ПараметрыПоиска.Вставить("НомерЛицевогоСчета",Текст);

ОбновитьСписокЛС(ПараметрыПоиска);

КонецЕсли;

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

Учет › Домашние деньги для Android › #3 16.01.20 13:52

(1)
zenmoney лучше посмотрите - очень хороший сервис + приложение

Финансы › Обновлено ! Реестр поступления\расхода денежных средств в разрезе ДДС v0.2 + выгрузка в Excel › #38 06.12.19 11:58

(37)
Привет. Не могу точно сказать. Я сниму наверно монетизацию и можно скачать и попробовать будет бесплатно. Но это не точно

Dev › Обмен опытом по работе с программой 1С Учет в управляющих компаниях ЖКХ, ТСЖ и ЖСК › #890 28.11.19 14:36

А как обстоят дела с 54-ФЗ и оплатой Физ.Лицом за услуги на расчетный счет ?
Примером такой оплаты являются платежи через онлайн-банк.
При поступлении оплаты на расчетный счет мы должны сформировать и отправить в ОФД чек.
При этом же еще надо указать "Признак способа расчета" - аванс, полный расчет и тд.
Как это реализовано в программе ?
В случае отнесения на аванс сперва отправляем чек "аванс", а при зачете аванса отправляем "полный расчет" ?

Новости › Российский офисный пакет исключили из реестра отечественного ПО за плагиат › #7 28.11.19 11:46

(5)
Плагиа́т — умышленно совершаемое физическим лицом незаконное использование или распоряжение охраняемыми результатами чужого творческого труда, которое сопровождается доведением до других лиц ложных сведений о себе как о действительном авторе.

Мне НЕ кажется что при реализации аналога можно взять оригинал и сказать что это я сам.

Использовать чужое , согласно законам и нормам , нужно только с согласия автора ( или использую правильно лицензию) с указанием того самого автора.
Как пример то же БСП - откройте и посмотрите используемую лицензию. В ней прямо указано что можно а что нет.

"По поводу скопированных кусков" - так там не "куски"...

Новости › Российский офисный пакет исключили из реестра отечественного ПО за плагиат › #4 28.11.19 8:22

(3)
Реестр сам по себе- это копия давно применяемого во всем мире способа помощи развитию своей экономики. Всегда и везде так делалось : ограничиваем что то внешнее чтобы развить внутреннее. И не важно что именно. Комбайны и соковыжималки, телевизоры и ракеты - такой метод применяется везде. Это не плохо, это нормально
Плохо только то что всегда и везде много мошенников. АЛМИ Партнер показал что они одни из них.

74 Рейтинг

mirco Чумерин Сергей

Рейтинг 74

Загрузка товаров в весы Штрих-Принт +3 –

Перенос цен номенклатуры из УТ 10.3 в БП 1.6 (дополнение к типовым механизмам) (обновлено) +6 –

Мелочи пользователю +17 –

Обновлено ! Реестр поступления\расхода денежных средств в разрезе ДДС v0.2 + выгрузка в Excel +48 –

Комментарии

74
Рейтинг

mirco
Чумерин Сергей

Загрузка товаров в весы Штрих-Принт
+3 –

Перенос цен номенклатуры из УТ 10.3 в БП 1.6 (дополнение к типовым механизмам) (обновлено)
+6 –

Мелочи пользователю
+17 –

Обновлено ! Реестр поступления\расхода денежных средств в разрезе ДДС v0.2 + выгрузка в Excel
+48 –