Доброго времени суток господа. У меня 1с 7.70.027 Торговля и Склад для Украины 7.70.048 и я написал такую вот обработку:

Процедура СозРасходки()
    // Создаем новый документ "Расходная накладная"
    Накладная = СоздатьОбъект("Документ.РасходнаяНакладная"); 
    Накладная.Новый();
    ДатаДок = РабочаяДата(Контекст, "Запись");    
    Файл = СоздатьОбъект("Текст");
    Файл.Открыть("C:\inetpub\ftproot\Kontakt\ExpenseInvoice_24-10-2024_17-29-19.txt");
    
    // Чтение данных из первых строк файла
    НаименованиеСклада = СокрЛП(Сред(Файл.ПолучитьСтроку(1), Найти(Файл.ПолучитьСтроку(1), ":") + 1));
    НаименованиеФирмы = СокрЛП(Сред(Файл.ПолучитьСтроку(2), Найти(Файл.ПолучитьСтроку(2), ":") + 1));
    НаименованиеКонтрагента = СокрЛП(Сред(Файл.ПолучитьСтроку(3), Найти(Файл.ПолучитьСтроку(3), ":") + 1));

    // Поиск фирмы по наименованию из файла
    спрФирма = СоздатьОбъект("Справочник.Фирмы");
    спрФирма.НайтиПоНаименованию(НаименованиеФирмы);
    Если спрФирма.Код <> 0 Тогда
        Накладная.Фирма = спрФирма.ТекущийЭлемент();
    Иначе
        Сообщить("Фирма не найдена: " + НаименованиеФирмы);
    КонецЕсли;

    // Поиск контрагента по наименованию из файла
    спрКонтрагент = СоздатьОбъект("Справочник.Контрагенты");
    спрКонтрагент.НайтиПоНаименованию(НаименованиеКонтрагента);
    Если спрКонтрагент.Код <> 0 Тогда
        Накладная.Контрагент = спрКонтрагент.ТекущийЭлемент();
    Иначе
        Сообщить("Контрагент не найден: " + НаименованиеКонтрагента);
    КонецЕсли;

    // Получаем место хранения по наименованию из файла
    спрСклад = СоздатьОбъект("Справочник.МестаХранения");
    спрСклад.НайтиПоНаименованию(НаименованиеСклада);
    Если спрСклад.Код <> 0 Тогда
        Накладная.Склад = спрСклад.ТекущийЭлемент();
    Иначе
        Сообщить("Склад не найден: " + НаименованиеСклада);
    КонецЕсли;

   // Чтение строк файла
    ЧтениеПродолжается = 1;  // Инициализация флага продолжения чтения
    ТекущаяСтрока = "";

    Пока ЧтениеПродолжается = 1 Цикл
        // Читаем строку из файла
        СтатусЧтения = Файл.ПолучитьСтроку(ТекущаяСтрока);

        // Проверяем, были ли строки в файле
        Если СтатусЧтения = 0 Тогда
            ЧтениеПродолжается = 0; // Если строк больше нет, выходим из цикла
        ИначеЕсли ТекущаяСтрока = "" Тогда
            Продолжить; // Пропускаем пустые строки
        Иначе
            // Обработка строки с артикулом
            Если Лев(ТекущаяСтрока, 8) = "Артикул:" Тогда
                Артикул = СокрЛП(Сред(ТекущаяСтрока, 9));

                // Читаем строку с количеством
                СтрокаКоличество = "";
                Файл.ПрочитатьСтроку(СтрокаКоличество);
                Если Лев(СтрокаКоличество, 10) = "Количество:" Тогда
                    Количество = Число(СокрЛП(Сред(СтрокаКоличество, 11)));

                    // Добавление строки в табличную часть
                    СтрокаТЧ = Накладная.Товары.Добавить();
                    СтрокаТЧ.Артикул = Артикул;
                    СтрокаТЧ.Количество = Количество;
                КонецЕсли;
            КонецЕсли;
        КонецЕсли;
    КонецЦикла;

    // Записываем документ
    Накладная.Записать();
    Сообщить("Расходная накладная успешно создана!");
КонецПроцедуры

Суть вопроса просьба помощи. конечная цель процедуры работать автономно и постоянно искать файл и создавать на его основе документ в зависимости от названия документа. На данный момент я застопорился в двух моментах: первый если контрагент прописан в подкаталоге он не находится для вставки. Вторая не выходит для документа вытянуть данные об товаре. Если кому поможет вставлю пример как выглядит файл на основе которого заполняется документ. Буду благодарен любой помощи.

Пример документа:

Склад: "склад"                                                  
Фирма: "название фопа"      
Контрагент: "контрагент"                                             

Товары:                                                                    
Артикул: 3    
Количество: 1
                                             
Артикул: 11782
Количество: 2

и т.д.(по количеству товара)

Управление производственным предприятием для Украины", редакция 1.3 (1.3.82.1)

При розрахунку індексації для тих робітників що були прийняті пілся підвищення окладу індексація нараховується. Тому що в регистрі "Коєффициенты повышени окладов" в такому випадку нема запису про підвищення. А підвищення вираховується з індексації. В САП вони мають нормативні підвищення по "должностям", але в 1С підвищення враховується по робітникам персонально. Тобто по логиці не повинна нараховуватися індексація. Але нараховується. Як в 1С вирішити таку проблему, чи може і по правильному таким робітникам нараховується?

Уточню, що по цій посаді індексації бути не повинно, тому що було підвищення всім на цій посаді. А людина що прийшла після підвищення має індексацію нарахованою, тому що в регистрі немає по ній запису про підвищення. ТАка логіка є помилковою. Як вийти з ситуації.

Добрий день. При завантаженні з файлу елементи довідника створюються програмно по найменування. Щоб уникнути дублювання я виконую пошук по найменуванню, якщо находжу то не створюю, але що робити з двомовнісью? Наприклад, є найменування на укр мові і таке ж саме на рос мові і у мене створюються два елементи хоча повенен створитися один.

конфигурация 7.7
как можно сделать текстовые кнопки как в 8 на форме? ато можно нажимать только обычные кнопки, а хотелось бы сдедеть так:

Кнопка

Добрий день. В ситемі виникли мінусові залишки по товару. Підкажіть, як їх виправити?

Доброго дня. Допоможіть, будь ласка, було випадково відмінено проведення по операції "закриття місяця" та "визначення фінансових результатів" за попередній період. Чи є можливість відмінити дані дії, щоб не проводити заново, тому як є побоювання змін у попередньому періоді??

Добрий день, у нас ІТС сплачені. Але від учора (05.11.24) вискакує вікно "Перевірка в центрі ліцензування не пройдена"
Чи може хто вже таке здолав?

Доброго времени суток господа. У меня 1с 7.70.027 Торговля и Склад для Украины 7.70.048 и всё же назрел(а точнее накапали на мозг) вопрос может кто сталкивался и это элементарно решается но я увы так и не додумался( Собственно суть: есть чек/приходка/расходка ТЗ в которых имеет вид ШтрихКод-Артикул_Товар. Если пикать Штрих код всё гуд вставляется и артикул и товар и т.д. но вот проблема дальше если шк нет продавцы вводят артикул и он вставляет данные игнорируя столбец ШтрихКод, если и его нет и ищут по названию вводя в столбец товар то при вставке пропускаются столбцы и ШтрихКод и Артикул. Прошу помощи в решении данного вопроса или он вообще нерешаем? Спасибо всем за советы и подсказки

Добрий день.

Після додавання в конфігурацію нового звіту почало з'являтись вікно




Допоможіть, плз, може хто стикався, як це побороти. Наскільки я читав - це платформа, а не конфігурація перевірку робить

Скачал Комплект документации по BAS. Но при открытии он пуст. Как то случайно открылись ссылки, второй раз не хотят. Подскажите пожалуйста, что не так,

Доброго дня.
BAF (8.3.19.1529)
Business Automation Software for small company. PROF (1.6.21.1)

Есть процедура из модуля интеграции Вчаснокасса и Baf

Процедура ВыводЧека(фОбъект) Экспорт    
    Сообщить(Объект.Ответ["info"]["doccode"]);  
    
    Если (фОбъект.Параметры.ВыводЧека = 2 Или фОбъект.Параметры.ВыводЧека = 3) И
           Не (фОбъект.Параметры.ИспользоватьОтправку И (фОбъект.Ответ["info"]["task"] = 1 Или фОбъект.Ответ["info"]["task"] = 2)) Тогда
        Возврат;
    КонецЕсли;
    
    ШиринаЛентыКоэф = фОбъект.Параметры.ШиринаЛенты * 0.95;
    Картинка = Новый Картинка(Base64Значение(СтрЗаменить(фОбъект.Ответ["pf_image"], "data:image/png;base64,", "")));
    
    Файл = Новый Файл(ПолучитьИмяВременногоФайла("png"));
    Картинка.Записать(Файл.ПолноеИмя);
    
    Shell = Новый COMОбъект("Shell.Application");
    Folder = Shell.NameSpace(Файл.Путь);
    Item = Folder.ParseName(Файл.Имя); 
    Детали = Folder.GetDetailsOf(Item, -1);
    Детали = СтрЗаменить(Детали, " ", "");
    Х = Найти(Детали, "x");
    
    ВысотаКартинки = "";
    Сч = Х + 1;
    Пока Истина Цикл
        Если КодСимвола(Детали, Сч) >= 48 И КодСимвола(Детали, Сч) <= 57 Тогда
            ВысотаКартинки = ВысотаКартинки + Сред(Детали, Сч, 1);
            Сч = Сч + 1;
        Иначе
            Прервать;
        КонецЕсли;
    КонецЦикла;
    
    ШиринаКартинки = "";
    Сч = Х - 1;
    Пока Истина Цикл
        Если КодСимвола(Детали, Сч) >= 48 И КодСимвола(Детали, Сч) <= 57 Тогда
            ШиринаКартинки = Сред(Детали, Сч, 1) + ШиринаКартинки;
            Сч = Сч - 1;
        Иначе
            Прервать;
        КонецЕсли;
    КонецЦикла;
    
    УдалитьФайлы(Файл.ПолноеИмя);
    
    ТабДок = Новый ТабличныйДокумент;
    ТабДок.ПолеСверху = 0;
    ТабДок.ПолеСлева = 0;
    ТабДок.ПолеСнизу = 0;
    ТабДок.ПолеСправа = 0;
    ТабДок.АвтоМасштаб = Истина;
    
    Макет = ПолучитьМакетНаСервере("Макет");
    Область = ПолучитьОбластьНаСервере(Макет, "Область");
    Область.ОбластьПечати = Область.Область(1, 1, 1, 1);
    
    Рисунок = Область.Рисунки.PNG;
    Рисунок.Высота = ШиринаЛентыКоэф * ВысотаКартинки / ШиринаКартинки;
    Рисунок.Ширина = ШиринаЛентыКоэф;
    Рисунок.Картинка = Картинка;
    
    ВывестиОбластьНаСервере(ТабДок, Область);
    
    Если фОбъект.Параметры.ВыводЧека = 0 Или фОбъект.Параметры.ИспользоватьОтправку Тогда
        ПараметрыОткрытияФормы = Новый Структура;
        ПараметрыОткрытияФормы.Вставить("Чек", ТабДок);
        Если фОбъект.Параметры.ИспользоватьОтправку И (фОбъект.Ответ["info"]["task"] = 1 Или фОбъект.Ответ["info"]["task"] = 2) Тогда
            ПараметрыОткрытияФормы.Вставить("Отправка", Истина);
            ПараметрыОткрытияФормы.Вставить("ФискальныйНомер", фОбъект.Ответ["info"]["doccode"]);  
            
                //наумов 30.10.2024 передача чека Начало 

            
            
            
                    
            //наумов 30.10.2024 передача чека Конец    
            
            ПараметрыОткрытияФормы.Вставить("Токен", фОбъект.Параметры.Токен);
        Иначе
            ПараметрыОткрытияФормы.Вставить("Отправка", Ложь);    
                
        КонецЕсли;
        ОткрытьФорму("ВнешняяОбработка.ПрограммныйРегистраторКассираВчасноКасаДополнительнаяОбработка.Форма.ФормаЧека", ПараметрыОткрытияФормы, ЭтаФорма);        
    КонецЕсли;
    
    Если фОбъект.Параметры.ВыводЧека = 1 Тогда
        ТабДок.Напечатать();    
            
    КонецЕсли;    
    
КонецПроцедуры

Только в этой процедуре есть запрос Фискального Номера.

ПараметрыОткрытияФормы.Вставить("ФискальныйНомер", фОбъект.Ответ["info"]["doccode"]);

Подскажите можно ли каким то образом получить данный номер.
Хотя бы вывести в сообщении или что то подобное
В дальнейшем нужно данный код передать на форму но с этим думаю разбируся

Добрий день. При проведенні документу Передача товарів між організаціями проводки не формуються. а коли документ відображається в Рег.обліку, то проводки зя'являються. підкажіть на основі чого формуються проводки? мене цікавит механіз формування проводок. Потрібно змінити самі прводки.

Товариство , привіт. Допоможіть розібратися з ліцензуванням мобільної платформи та мобільних додатків, створених для неї. Якщо є різниця в ліцензуванні мобільного клієнта , мобільного клієнта з можливістю роботи оффлайн та автономного мобільного додатку прохання вказати яке ліцензування застосовується в кожному з випадків. Дякую за допомогу

Добрий день. підкажіть. як можна провести округення суми з кратністю до 10 копійок?

1с 7.70.027 Торговля и Склад для Украины 7.70.048. В общем ситуация такова: Есть ТСД на котором самописное ПО которое создаёт txt файл с подписями(файлы приходной/расходной) после чего он отправляется на удалённый сервер где и стоит база. сейчас стоит вопрос в том что пишу обработку которая будет постоянно работать и автоматически создавать приходную/расходную(в зависимости от названия txt файла) как расскидать данные знаю вопрос в другом, у меня просто тупо не создаётся документ хотя база пишет что документ создан. вот код который я написал. в чём может быть проблема? с меня благодарность.

 // Создаем новый документ "Расходная накладная"
    Накладная = СоздатьОбъект("Документ.РасходнаяНакладная"); 
    ДатаДок=РабочаяДата(Контекст,"Запись");


    // Поиск фирмы по наименованию
    спрФирма = СоздатьОбъект("Справочник.Фирмы");
    спрФирма.НайтиПоНаименованию("название фирмы");
    Накладная.Фирма = спрФирма.ТекущийЭлемент();


    // Поиск контрагента по наименованию
    спрКонтрагент = СоздатьОбъект("Справочник.Контрагенты");
    спрКонтрагент.НайтиПоНаименованию("имя контрагента");
    Накладная.Контрагент = спрКонтрагент.ТекущийЭлемент();


    // Поиск склада по наименованию
    спрСклад = СоздатьОбъект("Справочник.МестаХранения");
    спрСклад.НайтиПоНаименованию("имя склада");
    Накладная.Склад = спрСклад.ТекущийЭлемент();


    Сообщить("Расходная накладная успешно создана!");
КонецПроцедуры

Доброго времени суток, уже сломал всю голову в поисках проблемы. У меня 1с 7.70.027 Торговля и Склад для Украины 7.70.048 недавно добавил в базу работе с pos терминалом а также рро по протоколу krypton и после этого через каждый вечер в конце дня мне приходится входить в базу монопольно что бы восстановить после аварийного закрытия хотя ни у кого из сотрудников она не зависает и т.п. то есть спокойно закрывается. Подскажите куда копать, так как просто бестолку трачу время на всё это(

Здравствуйте!

Помогите пожалуйста понять...

Самописный отчёт. Вывожу таблицу значений в табличный документ через макет. Набор областей таков:

Шапка
ШапкаТаблицы
ТекущаяУлица
СтрокаТаблицы


На каждой странице повторяю ШапкаТаблицы. И сразу под шапкой ТекущаяУлица, для того чтобы в каждой строке не выводить улицу, чтобы не повторять в каждой строке одну и ту же улицу. Также ТекущаяУлица выводится когда по списку начинается другая улица. В цикле вывода СтрокаТаблицы при начале каждой итерации обновляю параметр отвечающий за значение параметра в области ТекущаяУлица текущей улицей из списка.


Так вот, проблема в том, что когда через конструкцию

ТабДок.ПовторятьПриПечатиСтроки = ТабДок.Область(4,,5,); // 4 - ШапкаТаблицы, 5 - ТекущаяУлица

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

Как же это обойти ?

Добрий день, маю проблему з вікном підбору. 1С:Підприємство 8.3 (8.3.25.1286)"Управління торговим підприємством для України", редакція 1.2. (1.2.75.1) (http://1c.ua/v8/RegionalSolutions_UA_UTP.php)
Copyright © Molenari OU, 2017-2024. All rights reserved
Наскільки я знаю - в 1С, при відкритті даного вікна, і підлаштовуванні його під себе, воно зберігається автоматично. В моєму випадку, після закриття вікна, і при повторному його відкритті, все збивається. Скріншоти тут:

1) відображення по замовчанню


2) після натискання галочки "показати відбір"


3) після повторного натискання галочки "показати відбір"


4) як має бути


1С перевстановлювали на сервері - результату ніякого не принесло (

Може хтось стикався з таким, пліз хелп )

Конфігурація ""Управление торговым предприятием для Украины", редакция 1.2. (1.2.62.1)". Працює на платформі 1С:Підприємство 8.3 (8.3.10.2772) x86. База 300 Гб.
Є задача перейти на 13 платформу x86. Чому на 13 - бо це найновіша платформа x86 у якої є готовий RePack. Чому x86 - бо підключають пристрої, ваги і сканери і компонента штрихкодів УТП. а драйверів часто х64 нема.

Ставимо платформу 8.3.13.1690. Пробували декілька разів. Перший раз при запуску бази на цій платформі валилось кучу помилок SDBL: поле не входить в групу - перейшли назад на 10. Через кілька місяців зробили нову спробу. Перейшли - помилок не було, все ок, пропрацювали один день на наступний зранку вносили зміни і оновлювали НЕ динамічно. Оновлення вилитіло з критичною помилкою оновлення і база Вилетіла.

Після того в підприємстві буквально при відкритті кожного журналу документа помилка SDBL: Поле не входить в групу. Чистка кешу не допомагала. В конфігураторі так і лишилася світитися бочечка, що конфігурація не оновлена.

При спробі оновити вилітала інша помилка "Ошибка SDBL: В схеме базы данных нет таблицы с именем Const18076". Перейшли на 10 платформу - всі помилки лишилися. Я навіть пробував вручну в SQL створити таблицю "Const18076" - потім писало про помилку на Const з іншим номером. В результаті відновили базу з резервної копії на 10 платформі і працюєм далі.

Скажіть як перейти на 13 платформу? 13 платформа треба для роботи мобільного клієнта.

Добрый день!
1С:Предприятие 8.3 (8.3.21.1393)
УНФ 1.6 (1.6.11.1) (http://1c.ua/v8/RegionalSolutions_UA_UNF.php)
Copyright © Molenari OU, 2017-2019. All rights reserved.

Подскажите пожалуйста как и где добавить новый реквизит в представление


Нужно вот этот реквизит что бы отображался в представление на скрине выше.