21231312 Vasiliy

22
Рейтинг

Vasvas05



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

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

Друзья
  • Андрей Овсянкин
  • Дмитрий Малышев
  • Евгений Комиссаров
  • Сергей
  • Юлия Исакова
Подписчики 8

Рейтинг 22

[Обработка заполнения] Перерасчет стоимости ОС в документе Принятие ОС к учету с видом Объект строительства

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

Когда требуется перерассчитать стоимость объекта строительства, введенного в эксплуатацию, не заходя в документ, можно воспользоваться данной обработкой. Обработка тестировалась на Бухгалтерии предприятия, версия 3.0.66.60, но подойдет на и на другие версии

1 стартмани

14.04.2019    5804    1    Vasvas05    0       

1

Справка 2-НДФЛ для передачи в ИФНС и для сотрудников с 2019 года

Отчеты и формы Бухгалтер Платформа 1С v8.3 Сложные периодические расчеты 1С:Зарплата и Управление Персоналом 2.5 Бухгалтерский учет НДФЛ Абонемент ($m) Архив с данными Зарплата

Внешняя печатная форма справки 2-НДФЛ с 2019 года по Приказу ФНС России от 02.10.2018 № ММВ-7-11/566@ для конфигурации ЗУП 2.5. Проверялось на конфигурации Зарплата и Управление персоналом 2.5.130.2

1 стартмани

07.02.2019    7924    13    Vasvas05    33       

0

Проверка билетов на сайте ФИФА на чемпионат мира 2018

Отчеты и формы Для всех Управляемые формы Развлечения, искусство, спорт Абонемент ($m) Внешняя обработка (ert,epf) Сайты и интернет-магазины

Увидел на сайте https://tjournal.ru/72929-kak-ya-kupil-bilety-na-chm-2018-i-ne-umer как можно получить количество свободных билетов на сайте. Решил все перенести на язык 1С )) Платформа 1С 8.3.6 и выше.

1 стартмани

29.06.2018    10433    6    Vasvas05    6       

8

[Обмен Данными] Правила обмена между 1С:Бухгалтерия Предприятия 3.0 (3.0.48.19, 3.0.52.40, 3.0.61.47, 3.0.64.54, 3.0.66.70, 3.0.67.54, 3.0.68.61, 3.0.71.89, 3.0.74.63, 3.0.75.58) для переноса в другую базу БП 3.0

Инструменты и обработки Программист Платформа 1С v8.3 Бухгалтерский учет 1С:Бухгалтерия 3.0 Бухгалтерский учет Абонемент ($m) Архив с данными Перенос данных 1C

Правила обмена , написанные на КД для переноса из одной базы Бухгалтерия предприятия, редакция 3.0 (3.0.48.19, 3.0.52.40, 3.0.61.47, 3.0.64.54, 3.0.66.70, 3.0.67.54,3.0.68.61,3.0.71.89) , в другую. Когда все организации ведутся в одной базе и метод выделения организации через РИБ не подходит или является более трудозатратен правила подойдут. Допускается работа в других версиях при несложном редактировании. UPD Добавлены для 3.0.52.40 UPD 04.09.2018: Добавлены для 3.0.61.47 UPD 27.09.2018: Добавлены для 3.0.64.54 UPD 21.12.2018: Добавлены для 3.0.66.70 UPD 29.12.2018: Добавлены для 3.0.67.54 UPD 28.02.2019: Добавлены для 3.0.68.61 UPD 15.08.2019: Добавлены для 3.0.71.89 UPD 15.12.2019: Добавлены для 3.0.74.63 UPD 15.01.2020: Добавлены для 3.0.75.58

10 стартмани

13.09.2017    21976    145    Vasvas05    36       

11

Комментарии

DevСкрываем линию поиска#4 18.04.24 16:29
включение старого поиска CTRL+F
Код
Список = Форма.Элементы.Найти("Список");
   Если Список = Неопределено или Найти(Форма.ИмяФормы,"ФормаСписка")=0 Тогда
      Возврат;
   КонецЕсли;
   
   Список.ПоложениеСтрокиПоиска = ПоложениеСтрокиПоиска.Нет;
   
   ДополнениеСтрокаПоиска = Форма.Элементы.Найти("ДополнениеСтрокаПоиска");
   Если НЕ ДополнениеСтрокаПоиска = Неопределено Тогда
      ДополнениеСтрокаПоиска.Видимость = Ложь;
   КонецЕсли;
   

Обмен[Обмен Данными] Правила обмена между 1С:Бухгалтерия Предприятия 3.0 (3.0.48.19, 3.0.52.40, 3.0.61.47, 3.0.64.54, 3.0.66.70, 3.0.67.54, 3.0.68.61, 3.0.71.89, 3.0.74.63, 3.0.75.58) для переноса в другую базу БП 3.0#34 09.04.24 10:32
(32)можете скинуть метаданные от релиза 3.0.146.24, посмотреть могу чем помочь для правила 3.0.146.24 - 3.0.146.24
Обмен[Обмен Данными] Правила обмена между 1С:Бухгалтерия Предприятия 3.0 (3.0.48.19, 3.0.52.40, 3.0.61.47, 3.0.64.54, 3.0.66.70, 3.0.67.54, 3.0.68.61, 3.0.71.89, 3.0.74.63, 3.0.75.58) для переноса в другую базу БП 3.0#33 09.04.24 10:30
(32) написано ведь для каких версий UPD 15.01.2020: Добавлены для 3.0.75.58, конечно на 146 надо дорабатывать, там куча переименований объектов, из за которых работать не будет
НовостиНовый сервис «Доки»: работа с электронными документами из 1С через веб-интерфейс#4 06.03.24 18:24
(1)это Калуга уходит от 1с ЭДО и сделали то о чем давно все просят - подписание через веб, без 1с.
отдельный продукт более расширенный
ПубликацииРасширяем возможности дополнительных обработок и настраиваем их отладку#1 07.02.24 12:36
+ за столько текста))) и работу с http
А почему просто кнопку программно не добавит на форму?
ПубликацииАнализ использования метаданных в расширениях#7 28.01.24 23:52
Код
//----------
         ОсновнойОбъектМетаданных = Метаданные.НайтиПоПолномуИмени(СтрокаТаблицыМетаданных.ПолноеИмяМетаданных);
         Если ОсновнойОбъектМетаданных = Неопределено Тогда
            СтрокаТаблицыМетаданных.ОбъектДобавленЧерезРасширение = Истина;
         Иначе
            СтрокаТаблицыМетаданных.ОбъектДобавленЧерезРасширение = (ОсновнойОбъектМетаданных.РасширениеКонфигурации();
         КонецЕсли;

правильно будет
Код
//----------
         ОсновнойОбъектМетаданных = Метаданные.НайтиПоПолномуИмени(СтрокаТаблицыМетаданных.ПолноеИмяМетаданных);
         Если ОсновнойОбъектМетаданных = Неопределено Тогда
            СтрокаТаблицыМетаданных.ОбъектДобавленЧерезРасширение = Истина;
         Иначе
            СтрокаТаблицыМетаданных.ОбъектДобавленЧерезРасширение = (ОсновнойОбъектМетаданных.РасширениеКонфигурации()<>Неопределено);
         КонецЕсли;
         //----------
DevВывод имени базы 1С в панель задач (скрипт)#29 26.01.24 14:51
+ красиво сделано
прогнал через chatgpt
Код
import win32gui
import win32process
from psutil import Process
import schedule
import time

IB_PARAM_PREFIXES = ('/IBName', '/S', '/F')

def add_ibname_to_1C_window(hwnd, more) -> None:
    '''
    Если окно является окном 1С,
    то добавляет слева к его названию имя открытой базы.
    :param hwnd: Открытое окно Windows
    '''
    class_name = win32gui.GetClassName(hwnd)
    if 'V8TopLevelFrame' not in class_name:
        return

    window_text = win32gui.GetWindowText(hwnd)
    process_id = win32process.GetWindowThreadProcessId(hwnd)[1]
    process = Process(process_id)
    commandline = process.cmdline()

    ib_name = get_ib_name_from_commandline(commandline)
    if ib_name:
        set_window_text_with_ib_name(hwnd, window_text, ib_name)

def get_ib_name_from_commandline(commandline: list) -> str | None:
    '''
    Ищет имя информационной базы из командной строки 1С.
    :param commandline: Список строк, из которых состоит строка параметров процесса.
    :return:
    '''
    for param_prefix in IB_PARAM_PREFIXES:
        ib_name = find_ib_name_by_prefix(commandline, param_prefix)
        if ib_name:
            return ib_name

def find_ib_name_by_prefix(commandline: list, param_prefix: str) -> str | None:
    iter = (x for x in commandline if x.startswith(param_prefix) and '\\' in x)
    par = next(iter, '')
    if par:
        ib_name = par.split('\\')[-1].strip(' "\'')
        return ib_name

def set_window_text_with_ib_name(hwnd, window_text, ib_name):
    if not window_text.startswith(ib_name):
        win32gui.SetWindowText(hwnd, f'{ib_name} - {window_text}')

def windows_passage() -> None:
    '''
    Проходит по открытым окнам с указанной функцией.
    '''
    win32gui.EnumWindows(add_ibname_to_1C_window, None)

if __name__ == '__main__':
    istest = False
    if istest:
        windows_passage()
        raise SystemExit('Тестовый прогон закончен.')

    schedule.every(2).seconds.do(windows_passage)

    while True:
        schedule.run_pending()
        time.sleep(2)