Зоффманов Zoeh

31
Рейтинг

zoeh



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

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

Друзья
  • Дмитрий Малышев
  • Дмитрий Кучма
  • Евгений Комиссаров
  • Антон
  • Андрей Волин
  • ce ce
  • Александр Дунин
  • Rodin Erik
Подписчики 14

Рейтинг 31

Маркировка обуви + ФЗ-54. Доработка ТиС 7.7, бюджетное решение

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

Конфигурация позволяет продавать обувь в соответствии с новыми законами, причем сохранена возможность работы как со старыми штрих кодами, так и с новыми. Т.е., сканируя DataMatrix, программа извлекает EAN13 и позволяет осуществлять подбор товаров по EAN13. Конфигурация на базе Торговля и Склад 7.7.8.7. В архиве только свои модули, и инструкция по обновлению.

7 стартмани

14.02.2020    8420    10    zoeh    10       

4

Перевод 1С: 7.7 Торговля и склад 9.2 и 8.7 на НДС 20% (+Бухгалтерский учет, редакция 4.5)

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

Для Торговля и склад 8.7 - 9.2 перевод всех пользователей и номенклатуры на ставку НДС 20% с возможностью фильтрации (т.е. либо вся продукция, либо только вместо НДС 18% - НДС 20%). Версия для бух учета сама создает ставку.

1 стартмани

09.01.2019    12746    7    zoeh    2       

2

Внешняя печатная форма для любого типа документа в пересчете на любой тип цен

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

Внешняя печатная форма для УТ 10.3. Позволяет печатать в пересчете на любой тип цен из любого документа, где есть табличная часть. Перед первым запуском предлагает выбрать и запомнить выбранный тип.

1 стартмани

03.01.2019    4458    5    zoeh    0       

2

Транспортная накладная для 1С: Предприниматель 7.7 (ТН/ТТН) от 30.12.2011 № 1208

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

Внешняя печатная форма для конфигурации 1С 7.7 Предприниматель. Содержит в себе ТРАНСПОРТНУЮ НАКЛАДНУЮ для 1С Предприниматель 7.7 (ТН/ТТН) от 30.12.2011 № 1208 и ТТН старого образца 1997 г.

2 стартмани

12.11.2018    13568    5    zoeh    0       

1

Поддержка Онлайн ККМ АТОЛ. Доработка ТиС 7.7 (Бюджетное решение) v 1.0

Инструменты и обработки Системный администратор Оперативный учет 7.7 1С:Торговля и склад 7.7 Россия Управленческий учет Абонемент ($m) Архив с данными Кассовые операции ККМ

Релиз ТиС 7.70.987. Комплекс позволяет быстро и бюджетно подключить клиенту печать чеков на технике АТОЛ: АТОЛ 30Ф, АТОЛ 55Ф, АТОЛ 22Ф, АТОЛ 52Ф, АТОЛ 11Ф, АТОЛ 90Ф.

1 стартмани

09.07.2018    16774    18    zoeh    9       

4

Загрузка цены товаров по артикулу товара из xls файла

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

Загрузит из xls цены, если файл содержит артикулы товара, соответствующие артикулам 1С. Для использования подцепите любой xls файл, нажмите кнопки 1 и потом 2. Первоначальная настройка: нужно выставить типы цен. И если вы согласны на запись, проставить галочки.

1 стартмани

21.09.2017    14957    9    zoeh    4       

1

Свертка ТиС 9.2 7.7 ole Действительно клевая и простая + Создание новой базы без документов с сохранением всех справочников

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

Берем 2 базы старую и новую, новая это точная копия старой, только с подчищенными файлами d*.dbf, r*.dbf Запускаем в старой обработку, ждем 15 минут и радуемся! Только не забудьте в новой провести ручками документы (операции - проведение документов) Сворачивает остатки по фирмам и складам в усредненной себестоимости(считает по принципу отчета остатки ТМЦ), делает вводы остатков в базе к которой коннектимся И сворачивает всю дебиторскую и кредиторскую задолженность по Фирмам без детализации кредДокумент. Обновление от 12.02.13 появилась возможность сворачивать дебиторку в разрезе кред документа+переносит долги по комиссионерам. Не знаю как вам, а на мой взгляд более простого и работоспособного я тут просто не нашел!!!

1 стартмани

02.01.2013    23513    179    zoeh    8       

10

Комментарии

DevДебиторская задолженность в УТ 10.4 как в 7.7 подскажите по какому регистру строить запросы#3 25.04.24 18:32
(2) отчет по срокам задолженности дает полную кашу


нашел как работает внешний

ДебиторскаяЗадолженностьПоСрокамДолгаВнеЗависимостиОтДокумен­товРасчета

{(11, 2)}: Таблица не найдена "РегистрНакопления.ВзаиморасчетыСКонтрагентами.Остатки"
<<?>>РегистрНакопления.ВзаиморасчетыСКонтрагентами.Остатки(&ГраницаОтчета,

я чую он просто берет из договора дни отсрочки и все
DevДебиторская задолженность в УТ 10.4 как в 7.7 подскажите по какому регистру строить запросы#1 25.04.24 17:21
Нужно построить запрос с датой платежа, проанализировал уже все регистры. Не могу сообразить как можно при неидеальном учете отображать долги просроченные/подходящие?
качнул отчет с закрытым кодом
Отчет по дебиторской задолженности, УТ 10, КА 1.1, УПП 1.3
и он вроде как даже что то показывает.
DevПосле обновления Бух на 151.27 глюки отвественного в факсимиле, берет чужую#3 17.04.24 7:12
Кому надо будет я победил это

Код
&После("ДоработатьФаксимильнуюПодписьИПечать")
Процедура т_ДоработатьФаксимильнуюПодписьИПечать(ТабличныйДокумент, ОбъектыПечати, Организация, ДокументПечатнойФормы)
            
   //Добавил 
   Если ТипЗнч(ДокументПечатнойФормы.Ссылка) = Тип("ДокументСсылка.РеализацияТоваровУслуг") Тогда
      ОрганизацияЮридическоеЛицо = ОбщегоНазначенияБПВызовСервераПовтИсп.ЭтоЮрЛицо(Организация);
      СуффиксРисункаФаксимиле = СуффиксРисункаФаксимиле(ОбъектыПечати, ДокументПечатнойФормы);
      
      Если НЕ(ДокументПечатнойФормы.Ссылка.ДоговорКонтрагента.ВыводитьПодписиОтветственныхНашейОрганизацииВУПД) Тогда 
         //Инд = МассивИменПоказателей.Найти("ФаксимилеРуководитель");
         //Если Инд<> Неопределено Тогда
         //   Инд = МассивУдаляемыхИменПоказателей.Найти("ФаксимилеРуководитель");
         //   Если Инд= Неопределено Тогда
         //       МассивУдаляемыхИменПоказателей.Добавить("ФаксимилеРуководитель");
         //   КонецЕсли;
         //КонецЕсли;
         //Инд = МассивИменПоказателей.Найти("ФаксимилеГлавныйБухгалтер");
         //Если Инд<> Неопределено Тогда
         //   Инд = МассивУдаляемыхИменПоказателей.Найти("ФаксимилеГлавныйБухгалтер");
         //   Если Инд= Неопределено Тогда
         //      
         //      МассивУдаляемыхИменПоказателей.Добавить("ФаксимилеГлавныйБухгалтер");
         //   КонецЕсли;
         //КонецЕсли; 
         
         
         
         
         //ОчиститьНесовместимыеФаксимиле(ТабличныйДокумент, СуффиксРисункаФаксимиле,
         //"ФаксимилеРуководитель", "ФаксимилеРуководитель", ОрганизацияЮридическоеЛицо); 
         //
         //ОчиститьНесовместимыеФаксимиле(ТабличныйДокумент, СуффиксРисункаФаксимиле,
         //"ФаксимилеГлавныйБухгалтер", "ФаксимилеГлавныйБухгалтер", ОрганизацияЮридическоеЛицо);
         //
         //   ОчиститьНесовместимыеФаксимиле(ТабличныйДокумент, СуффиксРисункаФаксимиле,
         //"ФаксимилеРуководительСчетФактура", "ФаксимилеРуководительСчетФактура", ОрганизацияЮридическоеЛицо); 
         //
         //ОчиститьНесовместимыеФаксимиле(ТабличныйДокумент, СуффиксРисункаФаксимиле,
         //"ФаксимилеГлавныйБухгалтерСчетФактура", "ФаксимилеГлавныйБухгалтерСчетФактура", ОрганизацияЮридическоеЛицо); 
         
                  //Жо..а
         
         //ДокументПечатнойФормы.Руководитель   //Отвественный за оформление и т.п.
         //ДокументПечатнойФормы.ГлавныйБухгалтер   //Отвественный за оформление и т.п.
         //Рисунки   КоллекцияРисунковТабличногоДокумента   КоллекцияРисунковТабличногоДокумента
         //ФаксимилеГлавныйБухгалтер_Документ_1   РисунокТабличногоДокумента   РисунокТабличногоДокумента
         //ФаксимилеКладовщик_Документ_1   РисунокТабличногоДокумента   РисунокТабличногоДокумента
         //ФаксимилеОтветственныйЗаОформление_Документ_1   РисунокТабличногоДокумента   РисунокТабличногоДокумента
         //ФаксимилеПечать_Документ_1   РисунокТабличногоДокумента   РисунокТабличногоДокумента
         //ФаксимилеРуководитель_Документ_1   РисунокТабличногоДокумента   РисунокТабличногоДокумента
         
         Для Каждого ТекущийФаксимиле Из ТабличныйДокумент.Рисунки Цикл
            //Если СтрНайти(ТекущийФаксимиле.Имя,"Руководитель")>0 Тогда 
            //   Запомнить = ТекущийФаксимиле.Картинка;
            //КонецЕсли;   
            
            Если СтрНайти(ТекущийФаксимиле.Имя,"Кладовщик")>0 Тогда
               ТекущийФаксимиле.Картинка = Новый Картинка(ДвоичныеДанныеФаксимилеФизическогоЛица(ДокументПечатнойФормы.Руководитель),Истина);
               //ТекущийФаксимиле.ЦветЛинии = ЦветаСтиля.ТекстИнформационнойНадписи;
               //Если (ТекущийФаксимиле.Высота<6)  Тогда
                  ТекущийФаксимиле.Высота = 10;
               //КонецЕсли;
               ТекущийФаксимиле.Верх=ТекущийФаксимиле.Верх+1;

               //   ТекущийФаксимиле.Высота=7.32013888888889;
               //   ТекущийФаксимиле.Верх=ТекущийФаксимиле.Верх+2;
               //КонецЕсли;
               //ТекущийФаксимиле.Картинка = Новый Картинка(ПрисоединенныйФайлФаксимилеФизическогоЛица(ДокументПечатнойФормы.Руководитель));
               //ТекущийФаксимиле.Картинка = Запомнить;
            КонецЕсли;  
            
            Если СтрНайти(ТекущийФаксимиле.Имя,"ОтветственныйЗаОформление")>0 Тогда
               ТекущийФаксимиле.Картинка = Новый Картинка(ДвоичныеДанныеФаксимилеФизическогоЛица(ДокументПечатнойФормы.Руководитель),Истина);
               //Если (ТекущийФаксимиле.Высота<6)  Тогда
                  ТекущийФаксимиле.Высота = 10;
                  
               //КонецЕсли;
               ТекущийФаксимиле.Верх=ТекущийФаксимиле.Верх+1;
               //ТекущийФаксимиле.ЦветЛинии = ЦветаСтиля.ТекстИнформационнойНадписи;
               //Если (ТекущийФаксимиле.Высота<6) ИЛИ (ТекущийФаксимиле.Высота>8) Тогда
               //   ТекущийФаксимиле.Высота=7.32013888888889;
               //   ТекущийФаксимиле.Верх=ТекущийФаксимиле.Верх+2;
               //КонецЕсли;
               //ТекущийФаксимиле.Картинка = Новый Картинка(ПрисоединенныйФайлФаксимилеФизическогоЛица(ДокументПечатнойФормы.Руководитель));
               //ТекущийФаксимиле.Картинка = Запомнить;
            КонецЕсли; 
            
         КонецЦикла;
         
         //Жо..а
         
         ОчиститьОбластьФаксимиле(ТабличныйДокумент, ИмяОбластиФаксимилеДокумента("ФаксимилеРуководитель", СуффиксРисункаФаксимиле));
         ОчиститьОбластьФаксимиле(ТабличныйДокумент, ИмяОбластиФаксимилеДокумента("ФаксимилеГлавныйБухгалтер", СуффиксРисункаФаксимиле));
         ОчиститьОбластьФаксимиле(ТабличныйДокумент, ИмяОбластиФаксимилеДокумента("ФаксимилеРуководительСчетФактура", СуффиксРисункаФаксимиле));
         ОчиститьОбластьФаксимиле(ТабличныйДокумент, ИмяОбластиФаксимилеДокумента("ФаксимилеГлавныйБухгалтерСчетФактура", СуффиксРисункаФаксимиле));
         
         //ДвоичныеДанныеФаксимилеФизическогоЛица(ФизическоеЛицо);
         
         
         Попытка
            ФаксимилеКладовщика = ТабличныйДокумент.Рисунки["ФаксимилеКладовщикУПД_"+СуффиксРисункаФаксимиле];
            Если ФаксимилеКладовщика.Высота<6 Тогда
                  ФаксимилеКладовщика.Высота = ФаксимилеКладовщика.Высота=7;
            КонецЕсли;
         Исключение
         КонецПопытки;
      Иначе
         //Инд = МассивУдаляемыхИменПоказателей.Найти("ФаксимилеРуководитель");
         //Если Инд<> Неопределено Тогда
         //   МассивУдаляемыхИменПоказателей.Удалить(Инд);
         //КонецЕсли;
         //Инд = МассивУдаляемыхИменПоказателей.Найти("ФаксимилеГлавныйБухгалтер");
         //Если Инд<> Неопределено Тогда
         //   МассивУдаляемыхИменПоказателей.Удалить(Инд);
         //КонецЕсли;
         
      КонецЕсли;
      
   КонецЕсли;
   //Добавил 
      
         
         
   // Вставить содержимое метода.
КонецПроцедуры
DevПосле обновления Бух на 151.27 глюки отвественного в факсимиле, берет чужую#2 17.04.24 6:05
Ничего не нашел кроме как перерисовывать факсимиле заново

подскажите как теперь вставить на печ форму картинки заново из двоичных данных или из файла

ДоработатьФаксимильнуюПодписьИПечать(
Код
Для Каждого ТекущийФаксимиле Из ТабличныйДокумент.Рисунки Цикл
            сообщить(ТекущийФаксимиле.Имя);
            Если СтрНайти(ТекущийФаксимиле.Имя,"Кладовщик")>0 Тогда
               ТекущийФаксимиле.Картинка = Новый Картинка(ДвоичныеДанныеФаксимилеФизическогоЛица(ДокументПечатнойФормы.Руководитель));
               
            КонецЕсли;
         КонецЦикла;

DevПосле обновления Бух на 151.27 глюки отвественного в факсимиле, берет чужую#1 16.04.24 19:02
весь день изучал алгоритм так и не понял где он добавляет "косые" факсимилье.
процедура
ДобавитьПодписантовДокумента отрабатывает ровно судя по заполненным физ лицам и названиям файлов.
может кто разбирал и даст совет?
Dev&quot;НУЖНО БОЛЬШЕ ЗОЛОТА&quot;.. как построить зикуррат из более 60 сотрудников Бух 3.0#1 16.04.24 13:51
&Вместо("ПорогЗапрета")
Функция ПорогЗапрета()
Возврат 6000

Процедура или функция с указанным именем уже определена (ПорогЗапрета)
Функция <<?>>ПорогЗапрета() (Проверка: Сервер)
DevОшибка при открытии входящей накладной ЕГАИС#3 15.04.24 16:08
Проблему решил, проблема была в сведении об алкогольной продукции, объем стоял
0,0000001 дл
поставил
0,0000000 дл
DevОшибка при открытии входящей накладной ЕГАИС#2 15.04.24 15:58
Вообще на самом деле там каша кашенная,
в журнале один документ, нажимаешь на его движения или связанные документы
и там совершенно другой номер и дата.
DevОшибка при открытии входящей накладной ЕГАИС#1 15.04.24 15:41
Может кто сталкивался уже час сижу бьюсь, в двух разных сеансах пробовал открыть т.е. кэш ни при чем.
Через корректировку данных записывал документ, через унив. отчет проверял что нулей нигде нет.
"Ошибка выполнения запроса",
[],
"",
""
],
[
"Ошибка при выполнении операции над данными:\nMicrosoft SQL Server Native Client 11.0: Обнаружена ошибка: деление на ноль.\nHRESULT=80040E14, SQLSrvr: SQLSTATE=22012, state=1, Severity=10, native=8134, line=1\n",
[],
"",
""
]
],
"stack": [
[
"Документ.ТТНВходящаяЕГАИС.Форма.ФормаДокумента.Форма",
168,
"\u0009ПриСозданииПриЧтенииНаСервере();"
],
[
"Документ.ТТНВходящаяЕГАИС.Форма.ФормаДокумента.Форма",
1085,
"\u0009ОбновитьПредставленияНаФорме();"
],
[
"Документ.ТТНВходящаяЕГАИС.Форма.ФормаДокумента.Форма",
2121,
"\u0009СформироватьТекстДокументаЕГАИС();"
],
[
"Документ.ТТНВходящаяЕГАИС.Форма.ФормаДокумента.Форма",
2149,
"\u0009ТекстДокументаЕГАИС = ИнтеграцияЕГАИСВызовСервера.ТекстДокументаЕГАИС(Объект.Ссылка);"
],
[
"ОбщийМодуль.ИнтеграцияЕГАИСВызовСервера.Модуль",
2356,
"\u0009ОформлениеДокументовПоПриоритетам = ИнтеграцияЕГАИС.ДанныеОформленияДокументовПоПриоритетам(Ссылка);"
],
[
"ОбщийМодуль.ИнтеграцияЕГАИС.Модуль",
2583,
"\u0009\u0009РезультатыЗапросаПередачиВРегистры2и3 = РезультатыЗапросаПередачиВРегистры2и3ПоТТНВходящей(ДокументСсылка);"
],
[
"ОбщийМодуль.ИнтеграцияЕГАИС.Модуль",
2702,
"\u0009Возврат Запрос.ВыполнитьПакет();"