Заказы на доработку 1С (сервис удаленной работы)

Хранилище

База знаний
Неназначенных незавершенных заказов: 7, свеженьких 4
Бесплатные отчеты, обработки, конфигурации, внешние компоненты для 1С Статьи, описание работы, методики по работе с 1С

Здравствуйте, гость ( Войти | Зарегистрироваться )




Свернуть

> Добро пожаловать на наш форум

Здравствуйте уважаемый посетитель. К сожалению вы не были распознаны форумом как зарегистрированный пользователь. Для полноценного использования возможностей нашего форума вам необходимо зарегистрироваться. Если вы уже зарегистрированы на форуме, то вам необходимо пройти авторизацию, используя Ваш логин и пароль.

Логин:   
Пароль:
 

Форум:

Новые темы (за 20 дней):

Последние сообщения:

Наши сервисы:

Дополнительно:

Новости для бухгалтера:

 
Обновление регламентированных отчетов для УТП на 11.02.2025 нужен отчет Об`єдненна звітність ПДФО та ЕСВ за січень 2025 версия не ниже 11.02.164отчет [раздел 1С Управление Торговым Предприятием 8]
Автор Ch2025 — 18.02.25, 12:29 — 4 комментариев
кто знает где найти "Обновление регламентированных отчетов для УТП на 11.02.2025 нужен отчет Об`єдненна звітність ПДФО та ЕСВ за січень 2025 версия не ниже 11.02.164отчет J0500110"
Просмотров: 85, последний комментарий от denis84   
Регламентовані звіти АБТ З ПРОФ(3.5.5) [раздел 1С Бухгалтерия 7.7 для Украины]
Автор Pashaboston — 17.02.25, 17:11 — 1 комментариев
Добрий день, можливо хтось має регламентовані звіти для конфігурації АБТ З ПРОФ(3.5.5), можливо є старі але з вивантаженням в xml.
Просмотров: 77, последний комментарий от CobraS   
Де налаштовується розрадність розрахунку формул в 1С? [раздел Программирование в 1С Предприятие 8.3]
Автор mvo2008 — 12.02.25, 10:21 — 3 комментариев
ПрикладСообщить(2554.25 / 10 / 90); Результат = 2,838055555555555555555555555555555556 ЧОМУ????
Калькулятор видає 2,8380555556...... і це правильно.....
Що можна з цим зробити, округлення не підходить оскільки змінює суму...
Просмотров: 246, последний комментарий от AnryMc   
Як реалізувати журнал ТТН в BAS 8.3, а не з розділу реалізація? [раздел Программирование в 1С Предприятие 8.3]
Автор 4andriy — 10.02.25, 17:49 — 2 комментариев
підкажіть як реалізувати журнал ттн в BAS 8.3, а не з розділу реалізація (бо наразі новий бланк є там)
Просмотров: 203, последний комментарий от Moloko   
ТТН 2025 года для обычных форм [раздел Отчеты / Обработки]
Автор nosulenkodima — 10.02.25, 12:48 — 6 комментариев
Пароль от архива согласно правилам форума
Прикрепленные файлы
Прикрепленный файл  Print_TTN_2025.rar ( 63,26 килобайт ) Кол-во скачиваний: 67
 
Просмотров: 303, последний комментарий от Тираэль   
Условие работает в запросе, но не работает в СКД [раздел Система компоновки данных]
Автор AnryMc — 06.02.25, 9:53 — 10 комментариев
Условие в запросе:
ИЗ
    РегистрБухгалтерии.Хозрасчетный.Обороты(&НачалоПериода, &КонецПериода, Период, , &СубконтоДоговора, , НЕ КорСчет В (&КорСчетаИсключений), ) КАК ХозрасчетныйОбороты
ГДЕ
    ВЫБОР
            КОГДА ХозрасчетныйОбороты.Счет = &Счет6432
                    И ХозрасчетныйОбороты.Субконто1 = ЗНАЧЕНИЕ(Справочник.ДоговорыКонтрагентов.ПустаяСсылка)
                ТОГДА ЛОЖЬ
            ИНАЧЕ ИСТИНА
        КОНЕЦ


Работает в запросе (отчет) и в консоли запросов, но не работает в СКД

?????????????????????????????????
Просмотров: 336, последний комментарий от AnryMc   
Нужен образец банковской віписки для ERP [раздел Программирование в 1С Предприятие 8.3]
Автор Profi_1C77 — 05.02.25, 11:08 — 0 комментариев
Кто может поделится образцом БВ ( XML - файл) для стандартной обработки ( Обработка.КлиентБанк) загрузки БВ для BAS ERP/КУП 2.5/
А то сижу "поля" подбираю по очереди.
Такой заголовок идет
<?xml version="1.0" encoding="Windows-1251"?>
<_1CClientBankExchange xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
    <ВерсияФормата>2.00</ВерсияФормата>
Просмотров: 116, оставить комментарий   
Потрібен бізнес-аналітик в м. Луцьк [раздел Предложения работы]
Автор Larissa17 — 04.02.25, 21:49 — 3 комментариев
Компанія Staffing Partner шукає бізнес-аналітика,
який допоможе удосконалити та автоматизувати ключові бізнес-процеси в міжнародній компанії, яка вже 20 років створює обладнання для ритейлу, що відповідає європейським стандартам якості.

Локація: Луцьк (релокейт-пакет від компанії!)

Вимоги:
🔹 2-5 років досвіду на аналогічній посаді
🔹 Знання 1С: 8, Dynamics 365, Глибоке розуміння PMBOK
🔹 Основи фінансового, податкового та бухгалтерського обліку
🔹 Досвід роботи з B2B, міжнародними перевезеннями
🔹 Англійська або польська мови на розмовному рівні

💼 Що пропонує компанія?
Конкурентну оплату та кар'єрний розвиток (1000-1300$)
Роботу у стабільній міжнародній компанії
Бронювання працівників

Готові до нового кар’єрного виклику? Пишіть в телеграм: @LarissaSeagull
Просмотров: 148, последний комментарий от AnryMc   
сколько нужно зарезервировать места на сервере под установку BAS которая будет разрастаться на сервере [раздел Администрирование и настройка 1С]
Автор Ch2025 — 02.02.25, 16:53 — 2 комментариев
Как посчитать сколько нужно зарезервировать места на сервере на 5 лет, под BAS КУП которая будет увеличиваться в последствии . Текущих пользователей 19 чел, предприятие многономенклатурное. Business automation software for integrated enterprise management (2.5.9.4)
Просмотров: 286, последний комментарий от AnryMc   
Не выбирается значение в списке (в управляемой форме) [раздел Программирование в 1С Предприятие 8.3]
Автор Ch2025 — 02.02.25, 16:29 — 2 комментариев
Добрый день, как правильно настроить работу
списка значений на управляемой форме Business automation software for integrated enterprise management (2.5.9.4) (https://www.bas-soft.eu/soft/bas-mass/bas-integrated-enterprise-management/)
проблема - список добавлен, но не выбирается в конечном поле - что не так?





как правильно настроить обработку ?
&НаКлиенте
Процедура ПриОткрытии(Отказ, СтандартнаяОбработка)
    
    СписокВыбора  = Новый СписокЗначений;
    СписокВыбора.Добавить(ВидСравнения.Равно);
    СписокВыбора.Добавить(ВидСравнения.НеРавно);
    СписокВыбора.Добавить(ВидСравнения.ВСписке);
    СписокВыбора.Добавить(ВидСравнения.НеВСписке);
    СписокВыбора.Добавить(ВидСравнения.ВИерархии);
    СписокВыбора.Добавить(ВидСравнения.НеВИерархии);
    
Элементы.ВидСравненияКонтрагент.СписокВыбора = СписокВыбора;
Элементы.ВидСравненияКонтрагент.Значение     = ВидСравнения.ВИерархии;
Элементы.ВидСравненияКонтрагентПриИзменении(ВидСравненияКонтрагент);
    
КонецПроцедуры


Ch2025 @ Сегодня, 16:24 * ,
ошибка

Цитата
Поле объекта недоступно для записи (СписокВыбора)
{Обработка.ЗагрузкаДанныхИзБазыСКАРБ.Форма.Форма1.Форма(1926)}:Элементы.ВидСравненияКонтрагент.СписокВыбора = СписокВыбора




что не так ?
помогите пожалуйста
Просмотров: 213, последний комментарий от AnryMc   
Где взять аналог КодыОрганизации из УТП для BAS КУП [раздел Программирование в 1С Предприятие 8.3]
Автор Ch2025 — 02.02.25, 15:46 — 4 комментариев
при переводе модуля с "Управление торговым предприятием для Украины", редакция 1.2. (1.2.71.1)в "Business automation software for integrated enterprise management (2.5.9.4)" не находит переменные

Кто знает чем заменить
КодыОрганизации = РегистрыСведений.КодыОрганизации.ПолучитьПоследнее(,Новый Структура("Организация",Организация));



КодыОрганизации = РегистрыСведений.КодыОрганизации.ПолучитьПоследнее(,Новый Структура("Организация",Организация));
    КодПоЕДРПОУ            = КодыОрганизации.КодПоЕДРПОУ;
    АксОдесса = ?(КодПоЕДРПОУ="40255829",Истина,Ложь);

Заранее спасибо за ответ
Просмотров: 209, последний комментарий от sava1   
Странный ID в дбф справочника ТМЦ (Бухгалтерия). [раздел Программирование в 1С Предприятие 7.7]
Автор igmig65 — 01.02.25, 10:39 — 5 комментариев
1С 7.7. Кто нибудь знает что это такое. В поле ID файла SC148.DBF(ТМЦ) запись " 0р\". Если в самой базе открыть справочник ТМЦ, то там есть группа без кода, без наименования, пустая, без элементов внутри. И если пытаешься ее открыть, то открывается новый элемент справочника, с новым кодом. Пытался его удалить - не удаляет. В поиске ссылок на объекты при добавлении в поле объект, он ничего не добавляет. Попробовал в самом дбф удалить эту запись, теперь при открытии ТМЦ справочник пустой, хотя в дереве есть одна группа, но ее невидно в самом справочнике. Что с этим делать? кто нибудь знает?
Просмотров: 210, последний комментарий от andrew76   
Какой серверныцй процесс отвечает за выдачу клиентских лицензий [раздел Администрирование и настройка 1С]
Автор kihor — 31.01.25, 17:40 — 1 комментариев
Колеги, добрый день!

Как известно, серверный сервис 1С состоит зи процессов: ragent.exe, rmngr.exe и rphost.exe. Вы не напомните, какой из перечисленных процессов отвечает за раздачу клиентских лицензий? У нас програмные клиентские лицензии установлены на сервере и сервер раздает лицензии клиентам.
Просмотров: 147, последний комментарий от Vofka   
СКД сумувати в групу тільки чісла з нижчої групи [раздел Система компоновки данных]
Автор twilight_dream — 29.01.25, 20:09 — 1 комментариев
1С:Предприятие 8.3 (8.3.16.1814)
Привіт!
СКД звіт
Наприклад є групи Підрозділ, Співробітник, ВидРозрахунку, Є ресурси "результат", "граничнаяСумма", "Разница" де "Разница" = граничнаяСумма - результат.
Але в групі Підрозділ в полі "Разница" не потрібно вираховувати по формулі. Треба просто скласти те, що нарахувалось по вкладеній групі "Співробітник"
Просмотров: 168, последний комментарий от sava1   
Когда нужен план счетов [раздел Бухгалтерский учет, налоги, последние изменения законодательства]
Автор caballero — 28.01.25, 16:45 — 14 комментариев
Такой вопрос - есть ли какие то законодательные требования кто должен использовать бухгалтерский план счетов?
я имею ввду коммерческие формы а не какие то госструктуры.
Например обязателен ли учет по плану счетов для плательщиков НДС

Или бухгалтер сам решает использовать план счетов или нет.
к примеру взять одноце с бухгалтерией или без (ну то есть на регистрах или как оно там)

Спасибо
Просмотров: 371, последний комментарий от AnryMc   
Действия на сервере при выходе из программы! Как? [раздел Программирование в 1С Предприятие 8.3]
Автор AnryMc — 28.01.25, 10:01 — 10 комментариев
События "модуля приложения": "ПриЗавершенииРаботыСистемы" и "ПередЗавершениемРаботыСистемы" не разрешают серверные вызовы...

ВОПРОС: можно ли отследить "гарантированный выход" пользователя из программы и в этом случае сделать некоторые действия на сервере.

Под "гарантированным выходом" понимается что пользователь не отменил выход в процедуре "ПередЗавершениемРаботыСистемы"

З.Ы. Понимаю что нужно пользоваться асинхронным вызовом в "ПередЗавершениемРаботыСистемы" но пока не вижу "полной картинки" как это сделать...

Может кто поможет (подскажет) алгоритм или выложит пример...
Просмотров: 241, последний комментарий от AnryMc   
Вивести в табличний документ два макети з різною орієнтацією [раздел Программирование управляемых форм 1С 8.2]
Автор denis84 — 27.01.25, 14:56 — 1 комментариев
Доброго дня! Виникло таке питання. Є форма ТТН (товарно- транспортна накладна) знаходиться вона в одному макеті. Створив за проханням бухгалтерії ще один макет "Сертифікат". Так ось в чому питанні ТТН потрібно вивести з орієнтацією "ландшафт", а сертифікат "портрет і все це в одному табличному документі. Чи можливо таке реалізувати?
Код
Процедура ЗаполнитьТТН2025 (Шапка, ЗапросТовары, ТабДокумент, ПараметрыПечати)
    Документ                              = ПараметрыПечати.Документ;
    МаркаИГосНомерАвтомобиля = ПараметрыПечати.МаркаИГосНомерАвтомобиля;
    ГосНомерПрицепа                 = ПараметрыПечати.ГосНомерПрицепа;
    ПунктПогрузки                     = ПараметрыПечати.ПунктПогрузки;
    ПунктРазгрузки                    = ПараметрыПечати.ПунктРазгрузки;
    Водитель                 = ПараметрыПечати.Водитель;
    Перевозчик             = ПараметрыПечати.Перевозчик;
    ВидПеревозки         = ПараметрыПечати.ВидПеревозки;
    НомерТТН               = ПараметрыПечати.НомерТТН;
    
    // Зададим параметры макета
    ТабДокумент        = Новый ТабличныйДокумент;

    Макет = ПолучитьМакет("ПФ_MXL_ТТН2025");
    
    ТабДокумент.ОриентацияСтраницы      = ОриентацияСтраницы.Ландшафт;
    ТабДокумент.АвтоМасштаб             = Истина;
    ТабДокумент.ПолеСверху              = 0;
    ТабДокумент.ПолеСнизу               = 0;
    ТабДокумент.ПолеСправа              = 5;
    ТабДокумент.ПолеСлева               = 5;
        
    КодЯзыкаПечать = "uk";
    
    // Выводим общие реквизиты шапки
    СведенияОПокупателе       = БухгалтерскийУчетПереопределяемый.СведенияОЮрФизЛице(Шапка.Покупатель,       Шапка.ДатаДокумента,,,КодЯзыкаПечать);
    СведенияОГрузополучателе  = БухгалтерскийУчетПереопределяемый.СведенияОЮрФизЛице(Шапка.Грузополучатель,  Шапка.ДатаДокумента,,,КодЯзыкаПечать);
    СведенияОГрузоотправитель = БухгалтерскийУчетПереопределяемый.СведенияОЮрФизЛице(Шапка.Грузоотправитель, Шапка.ДатаДокумента,,Шапка.БанковскийСчет,КодЯзыкаПечать);
    
    ОбластьМакета = Макет.ПолучитьОбласть("Шапка");
    ОбластьМакета.Параметры.НомерДокумента                = НомерТТН;
    ОбластьМакета.Параметры.ДатаДокумента                 = Формат(Шапка.ДатаДокумента,"Л=uk_UA; ДФ='''""''dd''""'' MMMM yyyy'") +" року";
    ОбластьМакета.Параметры.Грузоотправитель              = Шапка.Грузоотправитель;
    ОбластьМакета.Параметры.Грузополучатель               = Шапка.Грузополучатель;
    ОбластьМакета.Параметры.ГрузоотправительПредставление = ОбщегоНазначенияБПВызовСервера.ОписаниеОрганизации(СведенияОГрузоотправитель, "ПолноеНаименование,ИНН,ФактическийАдрес,Телефоны,НомерСчета,Банк,МФО,КодПоЕДРПОУ,",, КодЯзыкаПечать);
    ОбластьМакета.Параметры.ГрузополучательПредставление  = ОбщегоНазначенияБПВызовСервера.ОписаниеОрганизации(СведенияОГрузополучателе,  "ПолноеНаименование,ИНН,ФактическийАдрес,Телефоны,НомерСчета,Банк,МФО,КодПоЕДРПОУ,",, КодЯзыкаПечать);
    
    ОбластьМакета.Параметры.МаркаИГосНомерАвтомобиля = МаркаИГосНомерАвтомобиля;
    ОбластьМакета.Параметры.ФИОВодителя              = Водитель;
    ОбластьМакета.Параметры.ВидПеревозки              = ВидПеревозки;
    ОбластьМакета.Параметры.ГосНомерПрицепа          = ГосНомерПрицепа;
    
    ОбластьМакета.Параметры.ПунктПогрузки              = ПунктПогрузки;
    ОбластьМакета.Параметры.ПунктРазгрузки             = ПунктРазгрузки;
    
    ОбластьМакета.Параметры.ОрганизацияПеревозчик      = Перевозчик;
    
    Руководители = ОтветственныеЛицаБП.ОтветственныеЛица(Шапка.Руководители, Шапка.ДатаДокумента);
    
    СуммаСНДС   = Окр((ЗапросТовары.Итог("Сумма") + ?(Шапка.СуммаВключаетНДС, 0, ЗапросТовары.Итог("СуммаНДС"))), 2);
    ОбластьМакета.Параметры.ОтпущеноНаСуммуПрописью = ОбщегоНазначенияБПВызовСервера.СформироватьСуммуПрописью(СуммаСНДС, Константы.ВалютаРегламентированногоУчета.Получить(), КодЯзыкаПечать);
    ОбластьМакета.Параметры.СуммаНДС                = ОбщегоНазначенияБПВызовСервера.ФорматСумм(ЗапросТовары.Итог("СуммаНДС"), Константы.ВалютаРегламентированногоУчета.Получить());
    
    Количество                                       = ЗапросТовары.Итог("Количество");
    КоличествоМест                                   = Количество;
    КоличествоМестПрописью                            = ОбщегоНазначенияБПВызовСервера.КоличествоПрописью(КоличествоМест,КодЯзыкаПечать);
    //ОбластьМакета.Параметры.КоличествоМестСловами  = КоличествоМестПрописью;
    
    ТабДокумент.Вывести(ОбластьМакета);
        ТабДокумент.ВывестиГоризонтальныйРазделительСтраниц();
    
    // Выводим заголовок таблицы
    ЗаголовокТаблицы = Макет.ПолучитьОбласть("ЗаголовокТаблицы");
    ТабДокумент.Вывести(ЗаголовокТаблицы);
    
    КоличествоСтрок = ЗапросТовары.Количество();

    // инициализация итогов по странице
    ИтогоКоличествоНаСтранице = 0;
    ИтогоСуммаСНДСНаСтранице  = 0;

    // инициализация итогов по документу
    ИтогоМест       = 0;
    ИтогоКоличество = 0;
    ИтогоСуммаСНДС  = 0;
    Ном             = 1;

    // Выводим многострочную часть документа
    ОбластьМакета = Макет.ПолучитьОбласть("Строка");
    Для Каждого ВыборкаСтрок Из ЗапросТовары Цикл
        Если НЕ ЗначениеЗаполнено(ВыборкаСтрок.Номенклатура) Тогда
            Сообщить(НСтр("ru='В одной из строк не заполнено значение номенклатуры - строка при печати пропущена.';uk='В одному з рядків не заповнене значення номенклатури - рядок під час друку буде пропущений.'"), СтатусСообщения.Важное);
            Продолжить;
        КонецЕсли;
        ОбластьМакета.Параметры.Заполнить(ВыборкаСтрок);
        ОбластьМакета.Параметры.НомерСтроки = Ном;
        ОбластьМакета.Параметры.ТоварНаименование = ВыборкаСтрок.ТоварНаименование;
        //Мест      = ВыборкаСтрок.КоличествоМест;
        Количество  = ВыборкаСтрок.Количество;
        СуммаСНДС   = Окр((ВыборкаСтрок.Сумма + ?(Шапка.СуммаВключаетНДС, 0, ВыборкаСтрок.СуммаНДС)), 2);
        СуммаБезНДС = СуммаСНДС - ВыборкаСтрок.СуммаНДС;
        
        ОбластьМакета.Параметры.Сумма = СуммаСНДС;

        ОбластьМакета.Параметры.Цена = ?(Количество = 0, 0, СуммаБезНДС / Количество);

        ТабДокумент.Вывести(ОбластьМакета);

        // увеличим итоги по дукументу
        ИтогоКоличество = ИтогоКоличество + Количество;
        ИтогоСуммаСНДС  = ИтогоСуммаСНДС  + СуммаСНДС;
        Ном             = Ном + 1;
    КонецЦикла;
    // Выводим итоги по документу в целом
    ОбластьМакета = Макет.ПолучитьОбласть("Всего");
    ОбластьМакета.Параметры.ИтогоКоличество = ИтогоКоличество;
    ОбластьМакета.Параметры.ИтогоСуммаСНДС  = ИтогоСуммаСНДС;

    ТабДокумент.Вывести(ОбластьМакета);

    ОбластьМакета = Макет.ПолучитьОбласть("Подписи");
    
    ДанныеКартинкиПечать  = РаботаСФайламиСлужебныйВызовСервера.ПолучитьДанныеФайлаИДвоичныеДанные(Шапка.ФайлФаксимильнаяПечать);
    ДанныеКартинкиПодпись = РаботаСФайламиСлужебныйВызовСервера.ПолучитьДанныеФайлаИДвоичныеДанные(Шапка.ФайлФаксимильнаяПодпись);
    
    Если Не ДанныеКартинкиПечать = Неопределено Тогда
        ОбластьМакета.Области.Печать.Картинка         = Новый Картинка(ДанныеКартинкиПечать.ДвоичныеДанные);    
    КонецЕсли;
    
    Если Не ДанныеКартинкиПодпись = Неопределено Тогда
        ОбластьМакета.Области.ПодписьСдал.Картинка    = Новый Картинка(ДанныеКартинкиПодпись.ДвоичныеДанные);
    КонецЕсли;
    
    ТабДокумент.Вывести(ОбластьМакета);
    ОбластьМакета = Макет.ПолучитьОбласть("ПогрузочныеОперации");
    ТабДокумент.Вывести(ОбластьМакета);
    
    ТабДокумент.ВывестиГоризонтальныйРазделительСтраниц();
    
    НовыйТабДок= Новый ТабличныйДокумент;

    НовыйТабДок.ОриентацияСтраницы      = ОриентацияСтраницы.Портрет;
    НовыйТабДок.АвтоМасштаб             = Истина;
    НовыйТабДок.ПолеСверху              = 0;
    НовыйТабДок.ПолеСнизу               = 0;
    НовыйТабДок.ПолеСправа              = 5;
    НовыйТабДок.ПолеСлева               = 5;
    
    Макет = ПолучитьМакет("КачественноеУдостоверение");

    ДатаДок    = ОбщегоНазначения.ПолучитьЗначениеРеквизита(Документ, "Дата");
    ДатаУдостоверения = ДатаДок - (3600 * 24);
        
    ОбластьМакета = Макет.ПолучитьОбласть("Шапка");
    ОбластьМакета.Параметры.Номер    = НомерТТН;
    ОбластьМакета.Параметры.ДатаЛок    = Формат(ДатаУдостоверения, "Л=uk_UA; ДЛФ=DD");
    ОбластьМакета.Параметры.Дата    = Формат(ДатаУдостоверения, "ДФ=dd.MM.yyyy");
    
    НовыйТабДок.Вывести(ОбластьМакета);
    
    ОбластьМакета = Макет.ПолучитьОбласть("Таблица");
    ОбластьМакета.Параметры.Оргнаизация        = Шапка.Организация;
    ОбластьМакета.Параметры.Дата            = Формат(ДатаУдостоверения, "ДФ=dd.MM.yyyy");
    ОбластьМакета.Параметры.НомерАвто        = МаркаИГосНомерАвтомобиля;
    ОбластьМакета.Параметры.НомерПрицепа            = ГосНомерПрицепа;
    ОбластьМакета.Параметры.Нетто            = Количество;
    
    ОбластьМакета.Области.Печать.Картинка     = Новый Картинка(ДанныеКартинкиПечать.ДвоичныеДанные);
    ОбластьМакета.Области.Подпись.Картинка    = Новый Картинка(ДанныеКартинкиПодпись.ДвоичныеДанные);
    
    НовыйТабДок.Вывести(ОбластьМакета);
        ТабДокумент.Вывести(НовыйТабДок);
КонецПроцедуры  //ЗаполнитьТТН2025

Функция ПечатьТТН(ПараметрыПечати) Экспорт

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

    Запрос.Текст =
    "ВЫБРАТЬ
    |    РеализацияТоваровУслуг.Ссылка КАК Документ,
    |    РеализацияТоваровУслуг.Номер,
    |    РеализацияТоваровУслуг.Дата КАК ДатаДокумента,
    |    РеализацияТоваровУслуг.Организация,
    |    РеализацияТоваровУслуг.Организация КАК ЮрФизЛицо,
    |    РеализацияТоваровУслуг.Организация КАК Поставщик,
    |    РеализацияТоваровУслуг.Организация КАК Контрагент,
    |    РеализацияТоваровУслуг.Организация КАК Руководители,
    |    ВЫБОР
    |        КОГДА РеализацияТоваровУслуг.Грузополучатель = &ПустойКонтрагент
    |            ТОГДА РеализацияТоваровУслуг.Контрагент
    |        ИНАЧЕ РеализацияТоваровУслуг.Грузополучатель
    |    КОНЕЦ КАК Грузополучатель,
    |    РеализацияТоваровУслуг.Организация КАК Грузоотправитель,
    |    РеализацияТоваровУслуг.БанковскийСчетОрганизации КАК БанковскийСчет,
    |    РеализацияТоваровУслуг.Контрагент КАК Покупатель,
    |    РеализацияТоваровУслуг.Контрагент КАК Плательщик,
    |    ОтветственныеЛица.ФизическоеЛицо КАК ОтветственноеЛицо,
    |    РеализацияТоваровУслуг.ВалютаДокумента,
    |    РеализацияТоваровУслуг.КурсВзаиморасчетов КАК Курс,
    |    РеализацияТоваровУслуг.КратностьВзаиморасчетов КАК Кратность,
    |    РеализацияТоваровУслуг.СуммаВключаетНДС,
    |    РеализацияТоваровУслуг.Получил,
    |    РеализацияТоваровУслуг.ДоверенностьСерия,
    |    РеализацияТоваровУслуг.ДоверенностьНомер,
    |    РеализацияТоваровУслуг.ДоверенностьДата,
    |    ЕСТЬNULL(Организации.ФайлФаксимильнаяПечать, НЕОПРЕДЕЛЕНО) КАК ФайлФаксимильнаяПечать,
    |    ЕСТЬNULL(Организации.ФайлФаксимильнаяПодпись, НЕОПРЕДЕЛЕНО) КАК ФайлФаксимильнаяПодпись
    |ИЗ
    |    Документ.РеализацияТоваровУслуг КАК РеализацияТоваровУслуг
    |        ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.ОтветственныеЛица.СрезПоследних(&ДатаСреза, СтруктурнаяЕдиница = &СтруктурнаяЕдиница) КАК ОтветственныеЛица
    |        ПО (ОтветственныеЛица.СтруктурнаяЕдиница = РеализацияТоваровУслуг.Склад)
    |        ЛЕВОЕ СОЕДИНЕНИЕ Справочник.Организации КАК Организации
    |        ПО РеализацияТоваровУслуг.Организация = Организации.Ссылка
    |ГДЕ
    |    РеализацияТоваровУслуг.Ссылка = &ТекущийДокумент";

    Шапка = Запрос.Выполнить().Выбрать();
    Шапка.Следующий();

    Запрос = Новый Запрос;
    Запрос.УстановитьПараметр("ТекущийДокумент", Документ);

    Если Документ.ВалютаДокумента = Документ.ДоговорКонтрагента.ВалютаВзаиморасчетов Тогда
        // Документ оформлен в валюте взаиморасчетов
        Запрос.УстановитьПараметр("Курс", Документ.КурсВзаиморасчетов);
        Запрос.УстановитьПараметр("Кратность", Документ.КратностьВзаиморасчетов);
    Иначе
        // Документ оформлен в валюте регламентированного учета
        Запрос.УстановитьПараметр("Курс", 1);
        Запрос.УстановитьПараметр("Кратность", 1);
    КонецЕсли;

    Запрос.Текст =
    "ВЫБРАТЬ
    |    ВложенныйЗапрос.Номенклатура                                 КАК Номенклатура,
    |    ВложенныйЗапрос.Номенклатура.НаименованиеПолное              КАК ТоварНаименование,
    |    ВложенныйЗапрос.Номенклатура.Код                             КАК Артикул,
    |    ВложенныйЗапрос.ЕдиницаИзмерения.Представление               КАК БазоваяЕдиницаНаименование,
    |    ВложенныйЗапрос.ЕдиницаИзмерения.Код                          КАК БазоваяЕдиницаКодПоОКЕИ,
    |    ВложенныйЗапрос.ЕдиницаИзмерения                             КАК ЕдиницаИзмерения,
    |    ВложенныйЗапрос.ЕдиницаИзмерения.Представление                КАК ВидУпаковки,
    |    ВложенныйЗапрос.СтавкаНДС           КАК СтавкаНДС,
    |    ВложенныйЗапрос.Цена                КАК Цена,
    |    ВложенныйЗапрос.Количество          КАК Количество,
    |    ВложенныйЗапрос.Сумма               КАК Сумма,
    |    ВложенныйЗапрос.СуммаНДС            КАК СуммаНДС,
    |    ВложенныйЗапрос.НомерСтроки         КАК НомерСтроки,
    |    ВложенныйЗапрос.Метка               КАК Метка
    |ИЗ
    |
    |    (
    |    ВЫБРАТЬ
    |        РеализацияТоваровУслуг.Номенклатура,
    |        РеализацияТоваровУслуг.Коэффициент,
    |        РеализацияТоваровУслуг.ЕдиницаИзмерения,
    |        РеализацияТоваровУслуг.ЕдиницаИзмерения                      КАК ЕдиницаИзмеренияМест,
    |        РеализацияТоваровУслуг.СтавкаНДС,
    |        РеализацияТоваровУслуг.Цена * &Курс / &Кратность             КАК Цена,
    |        СУММА(РеализацияТоваровУслуг.Количество)                     КАК Количество,
    |        СУММА(РеализацияТоваровУслуг.Сумма    * &Курс / &Кратность)  КАК Сумма,
    |        СУММА(РеализацияТоваровУслуг.СуммаНДС * &Курс / &Кратность)  КАК СуммаНДС,
    |        МИНИМУМ(РеализацияТоваровУслуг.НомерСтроки)                  КАК НомерСтроки,
    |        0                                                            КАК Метка
    |    ИЗ
    |        Документ.РеализацияТоваровУслуг.Товары КАК РеализацияТоваровУслуг
    |    ГДЕ
    |        РеализацияТоваровУслуг.Ссылка = &ТекущийДокумент
    |
    |СГРУППИРОВАТЬ ПО
    |        РеализацияТоваровУслуг.Номенклатура,
    |        РеализацияТоваровУслуг.Коэффициент,
    |        РеализацияТоваровУслуг.ЕдиницаИзмерения,
    |        РеализацияТоваровУслуг.СтавкаНДС,
    |        РеализацияТоваровУслуг.Цена
    |
    |    ) КАК ВложенныйЗапрос
    |
    |ОБЪЕДИНИТЬ ВСЕ
    |
    |ВЫБРАТЬ
    |    РеализацияТоваровУслуг.Номенклатура                    КАК Номенклатура,
    |    РеализацияТоваровУслуг.Номенклатура.НаименованиеПолное КАК ТоварНаименование,
    |    РеализацияТоваровУслуг.Номенклатура.Код                  КАК Артикул,
    |    РеализацияТоваровУслуг.Номенклатура.БазоваяЕдиницаИзмерения.Представление               КАК БазоваяЕдиницаНаименование,
    |    РеализацияТоваровУслуг.Номенклатура.БазоваяЕдиницаИзмерения.Код                         КАК БазоваяЕдиницаКодПоОКЕИ,
    |    РеализацияТоваровУслуг.Номенклатура.БазоваяЕдиницаИзмерения                             КАК ЕдиницаИзмерения,
    |    NULL                                                  КАК ВидУпаковки,
    |    ""Без НДС""                                           КАК СтавкаНДС,
    |    РеализацияТоваровУслуг.Цена * &Курс / &Кратность      КАК Цена,
    |    РеализацияТоваровУслуг.Количество                     КАК Количество,
    |    РеализацияТоваровУслуг.Сумма * &Курс / &Кратность     КАК Сумма,
    |    0                                                     КАК СуммаНДС,
    |    РеализацияТоваровУслуг.НомерСтроки                    КАК НомерСтроки,
    |    2                                                     КАК Метка
    |ИЗ
    |    Документ.РеализацияТоваровУслуг.ВозвратнаяТара КАК РеализацияТоваровУслуг
    |
    |ГДЕ
    |    РеализацияТоваровУслуг.Ссылка = &ТекущийДокумент
    |
    |УПОРЯДОЧИТЬ ПО Метка ВОЗР, НомерСтроки ВОЗР
    |
    |";

    ЗапросТовары = Запрос.Выполнить().Выгрузить();

    ТабДокумент = Новый ТабличныйДокумент;
    
    НомерСтрокиНачало = ТабДокумент.ВысотаТаблицы + 1;
    
    Если Шапка.ДатаДокумента > Дата("20250101")Тогда
          ЗаполнитьТТН2025 (Шапка, ЗапросТовары, ТабДокумент,ПараметрыПечати);
    КонецЕсли;
    
    Возврат ТабДокумент;

КонецФункции // ПечатьТТН()
Просмотров: 152, последний комментарий от AnryMc   
Чем заменить из УТП1.2 " глЗначениеПеременной" для BAS КУП [раздел Программирование в 1С Предприятие 8.3]
Автор Ch2025 — 26.01.25, 15:54 — 7 комментариев
Добрый день,

при переводе модуля с "Управление торговым предприятием для Украины", редакция 1.2. (1.2.71.1)в "Business automation software for integrated enterprise management (2.5.9.4)" не находит переменные

Кто знает чем заменить "глЗначениеПеременной("ВалютаРегламентированногоУчета")"?

встречается в коде
Если НЕ ЗначениеЗаполнено(ВалютаРегламентированногоУчета) тогда
        ВалютаРегламентированногоУчета = глЗначениеПеременной("ВалютаРегламентированногоУчета");
    КонецЕсли;

Кто знает чем заменить "глЗначениеПеременной("ЗначенияДополнительныхПравПользователя")"
встречается в коде
Функция ПолучитьЗначениеПраваДляТекущегоПользователя(Право, ЗначениеПоУмолчанию = Неопределено) Экспорт
    
    КэшДополнительныхПрав = глЗначениеПеременной("ЗначенияДополнительныхПравПользователя");
    ЗначениеПрава = КэшДополнительныхПрав[Право];
    Если ЗначениеПрава = Неопределено Тогда
        ЗначениеПрава = ПрочитатьЗначениеПраваДляТекущегоПользователя(Право, ЗначениеПоУмолчанию);
        КэшДополнительныхПрав[Право] = ЗначениеПрава;
        #Если Сервер Тогда
            глЗначениеПеременнойУстановить("ЗначенияДополнительныхПравПользователя", КэшДополнительныхПрав, Истина);
        #КонецЕсли
    КонецЕсли;    
    Возврат ЗначениеПрава;
    
КонецФункции // ПолучитьЗначениеПраваДляТекущегоПользователя()


Заранее спасибо
Просмотров: 257, последний комментарий от Slon747   
Чем заменить из УТП1.2 "ОбработкаПрерыванияПользователя()" для BAS КУП [раздел Программирование в 1С Предприятие 8.3]
Автор Ch2025 — 25.01.25, 21:35 — 3 комментариев
Добрый день,

при переводе модуля с "Управление торговым предприятием для Украины", редакция 1.2. (1.2.71.1)в "Business automation software for integrated enterprise management (2.5.9.4)" не находит переменные

Кто знает чем заменить ОбработкаПрерыванияПользователя()?

встречается в коде
Цитата
Для каждого СтрокаРеализация Из ТаблицаРеализацийКонтрагентДатаСклад Цикл
ОбработкаПрерыванияПользователя();
Запрос = Новый Запрос;
Запрос.Текст =


Для каждого СтрокаПоступление Из ТаблицаПоступленийКонтрагентДатаСклад Цикл
            Склад = Справочники.Склады.ПустаяСсылка();
            ОбработкаПрерыванияПользователя();
            Запрос = Новый Запрос;
            Запрос.Текст =
                "ВЫБРАТЬ

выдаёт ошибку
Цитата
<<?>>ОбработкаПрерыванияПользователя(); (Проверка: Сервер)
{ВнешняяОбработка.ЗагрузкаДанныхИзБазыСКАРБ.МодульОбъекта(654,4)}: Процедура или функция с указанным именем не определена (ОбработкаПрерыванияПользователя)

помогите пожалуйста
Просмотров: 173, последний комментарий от Slon747   
Чем заменить из УТП1.2 "УправлениеВзаиморасчетами" для BAS КУП [раздел Программирование в 1С Предприятие 8.3]
Автор Ch2025 — 25.01.25, 21:03 — 1 комментариев
Добрый день,

при переводе модуля с "Управление торговым предприятием для Украины", редакция 1.2. (1.2.71.1)в "Business automation software for integrated enterprise management (2.5.9.4)" не находит переменные

Кто знает чем заменить "УправлениеВзаиморасчетами"?

встречается в коде

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



выдаёт ошибку

Цитата
{ОбщийМодуль.ОбщийМодуль1.Модуль(212,18)}: Переменная не определена (УправлениеВзаиморасчетами)
СчетаУчета = <<?>>УправлениеВзаиморасчетами.ПолучитьСчетаРасчетовСКонтрагентом(Организация, КонтрагентСсылка, Договор); (Проверка: Сервер)

Помогите пожалуйста
Просмотров: 131, последний комментарий от Slon747   
RSS Текстовая версия Сейчас: 19.02.25, 0:53
1С Предприятие 8.3, 1С Предприятие 8.2, 1С Предприятие 8.1, 1С Предприятие 8.0, 1С Предприятие 7.7, Литература 1С, Общие вопросы по администрированию 1С, Методическая поддержка 1С - всё в одном месте: на Украинском 1С форуме!