Процедура ПриОткрытии()
    СпрФирма = СоздатьОбъект("Справочник.Фирмы");

    СпрФирма.НайтиПоКоду("0");
    Фирма = СпрФирма.ТекущийЭлемент();
    Фирма2 = "ООО"МИРАНТИС"";
    
    Если Фирма.Наименование = Фирма2 Тогда
        Вода = "0000004696";
        Сигареты = "0000003931";
        Масла = "КВ-00856";
    Иначе      
        Вода = "6612";
        Сигареты = "6155";
        Масла = "0";  
    КонецЕсли;
КонецПроцедуры

Фирма2 = "ТОВ"<<?>>МІРАНТІС"";
{C:\USERS\KRASKO\DESKTOP\МОИ ОБРАБОТКИ\ВЫГРУЗКАБИОЛА2.ERT(339)}: Ожидается ключевое слово 'КонецПроцедуры' ('EndProcedure')

Если без строки     Фирма2 = "ООО"МИРАНТИС"";  то все гуд...

Фирма2 = "ООО"<<?>>МИРАНТИС"";

с кем не бывает

(1) кавычку в строковом литерале принято экранировать кавычкой

(0) ковычки надо экранировать ковычками

Тоесть если название фирмы  ООО"МИРАНТИС"
Тогда как будет парвильно ?

"ООО""МИРАНТИС"""

"ООО ""Рога и Копыта"""

вообще, правильно так не делать

ну а в целом, весь код - в топку

Спасибо !

В коде делать привязку к конкретным кодам, конкретным наименованиям не профессионально (это, если вежливо выразится. А вообще за такое руки поотбивать. Так программировать попросту НЕЛЬЗЯ !)

Для таких вещей как минимум константы есть (хотя бы они).


Условие:

Если Фирма.Наименование = Фирма2 Тогда
...
КонецЕсли;

Сработает НЕкорректно.

Нужно такое:
Если сокрЛП(Фирма.Наименование) = Фирма2 Тогда
...
КонецЕсли;

Уж лучше тогда код фирмы проверять или ОКПО. если обротобка отчет разовый. а по нормальному константы завести. или в фирме реквизиты вода сигареты масло.

если через полгода бухи решат ООО убрать или заменить на Общество с ограниченой ответственностью буш репу чесать и вспоминать, а чеж оброботка столбко накосячила

(13) Спасибо за советы, я к Вам прислушаюсь