Помощь - Поиск - Пользователи - Календарь
Полная версия этой страницы: Помогите разобратся с ошибкой
Украинский 1С форум: всё про 1С 8.3, 1С 8.2, 1С 8.1, 1С 8.0, 1С 7.7 > Программисту > Программирование в 1С Предприятие 8.1 (8.0)
sia_1980
{ВнешняяОбработка.ВнешняяОбработка1(2944,47)}: Ожидается символ ')'
Процедура ЗаполнитьРеквизитыСтроки(спДанные,Ст<<?>> ')'[], НомСтр, НомНачКол, ФорматНомСтр = "Ч(0)4")

Процедура ЗаполнитьРеквизитыСтроки(спДанные,Ст[], НомСтр, НомНачКол, ФорматНомСтр = "Ч(0)4")
    
    
    Для Н=НомНачКол По 12 Цикл
        
        Если Н = 1 Тогда
            Окончание = "D";  
            Н1 = 2;
        ИначеЕсли (Н =2) или (Н = 3) или (Н = 5) Тогда
            Окончание = "S";    
            Н1 = Н + 1;
            Если Н = 5 Тогда
                Н1 = 5;
            КонецЕсли;
        ИначеЕсли (Н =12) Тогда
            Окончание = "";    
            Н1 = 4;
        Иначе
            Окончание = "";
            Если Н = 4 Тогда
                Н1 = 5
            Иначе
                Н1 = Н;
            КонецЕсли;
        КонецЕсли;
        
        Значение = Ст[Н];
        
        спДанные.ДобавитьЗначение(Значение,  "R" + Формат(НомСтр, ФорматНомСтр) + "G" + Н1 + Окончание);
    
    КонецЦикла;
    
КонецПроцедуры


что надо исправить ?
logist
Ну в ошибке ж написано в чем проблема.
Вероятно так:
Процедура ЗаполнитьРеквизитыСтроки(спДанные,Ст, НомСтр, НомНачКол, ФорматНомСтр = "Ч(0)4")
sia_1980
в результате выдало

{ВнешняяОбработка.ВнешняяОбработка1(3477,10)}: Ожидается символ ';'
Перем Ст<<?>>[12];
{ВнешняяОбработка.ВнешняяОбработка1(3477,11)}: Неопознанный оператор
Перем Ст[<<?>>12];
{ВнешняяОбработка.ВнешняяОбработка1(3477,11)}: Неопознанный оператор
Перем Ст[<<?>>12];


роцедура СформироватьПриложение2011(спДанные = "")
    Перем Ст[12];  
    

    ТаблТМЦ = СоздатьОбъект("ТаблицаЗначений");
    стрДокумент.ВыгрузитьТабличнуюЧасть(ТаблТМЦ);
    КодНДС = СокрЛП(стрДокумент.ВидНДС.Код);
    ТаблТМЦ.ВыбратьСтроки();      
    Ном = 1;  
    
    Итог9 = 0; Итог10 = 0; Итог11 = 0;
    
    Пока ТаблТМЦ.ПолучитьСтроку() > 0 Цикл
        Ст[1] = ДатаОтчета;
        Ст[2] = ТаблТМЦ.Причина;
        Ст[3] = ТаблТМЦ.ТМЦ.ПолнНаименование;
        Ст[12] = СокрЛП(СтрЗаменить(ТаблТМЦ.КодУКТВЭД,".",""));
        Ст[4] = ?(ТаблТМЦ.ТМЦ.Вид()="ТМЦ",ТаблТМЦ.Ед,ТаблТМЦ.ТМЦ.БазЕдиница);
        Для Н = 5 По 11 Цикл
            Ст[Н] = 0;
        КонецЦикла;                    
        
        Если ТаблТМЦ.ИзмКво<>0 Тогда
            Ст[5] = ТаблТМЦ.ИзмКво;
            Ст[6] = ТаблТМЦ.ЦенаБезНДС*ТаблТМЦ.Коэффициент;
        Иначе
            Ст[7] = ТаблТМЦ.ИзмЦеныБезНДС*ТаблТМЦ.Коэффициент;
            Ст[8] = ТаблТМЦ.Кво;
        КонецЕсли;  
        ИзмСуммыБезНДС = ТаблТМЦ.ИзмСуммыБезНДС;
        Если КодНДС = "НДС20" Тогда
            Ст[9]  = ИзмСуммыБезНДС;
            Итог9 = Итог9 + ИзмСуммыБезНДС;
        ИначеЕсли КодНДС = "НДС0" Тогда
            Ст[10] = ИзмСуммыБезНДС;
            Итог10 = Итог10 + ИзмСуммыБезНДС;
        ИначеЕсли КодНДС = "БезНДС" Тогда
            Ст[11] = ИзмСуммыБезНДС;
            Итог11 = Итог11 + ИзмСуммыБезНДС;
        КонецЕсли;
        
        ЗаполнитьСтрокуПриложения(спДанные, Ст, Ном, 1, 12);
        Ном = Ном + 1;
    КонецЦикла;
    
    Ст[9] = Итог9;
    Ст[10] = Итог10;
    Ст[11] = Итог11;
    
    ЗаполнитьСтрокуПриложения(спДанные, Ст, 1, 9, 12, "Ч(0)2");      
    
    Итог12 = стрДокумент.Итог("ИзмНДС");
    
    Ст[9] = Итог12;
    
    ЗаполнитьСтрокуПриложения(спДанные, Ст, 2, 9, 9, "Ч(0)2");      

КонецПроцедуры
logist
Ну блин. В ошибке все написано. Хотя если учесть первое сообщение, то вероятно там исправление могло быть неверным. Проблему надо смотреть в комплексе, а не тупо дергать каждую ошибку методом тыка.
5_kopeek
Цитата(logist @ 18.01.12, 0:33) необходимо зарегистрироваться для просмотра ссылки
Ну блин. В ошибке все написано.

А формальным параметром может быть массив? Безразмерный?
logist
А что такое "Перем Ст[12]; "? Почему не Ст = Новый Массив(12);
Это вообще код от восьмерки??
sia_1980
Цитата(logist @ 18.01.12, 1:04) необходимо зарегистрироваться для просмотра ссылки
А что такое "Перем Ст[12]; "? Почему не Ст = Новый Массив(12);
Это вообще код от восьмерки??


код от внешней обработки 77 для выгрузки НН в медок пробую перевести для УТ8,1 и завтра крайний срок
logist
Цитата(sia_1980 @ 18.01.12, 1:16) необходимо зарегистрироваться для просмотра ссылки
код от внешней обработки 77 для выгрузки НН в медок пробую перевести для УТ8,1 и завтра крайний срок


А сразу об этом сказать самоуверенность не позволяет?
Код от 7.7 так просто не подходит для 8.1, то шо вы делаете - это занятие фигней, надо переписывать код под 8-ку, а не исправлять ошибки
sia_1980
Цитата(logist @ 18.01.12, 1:22) необходимо зарегистрироваться для просмотра ссылки
А сразу об этом сказать самоуверенность не позволяет?
Код от 7.7 так просто не подходит для 8.1, то шо вы делаете - это занятие фигней, надо переписывать код под 8-ку, а не исправлять ошибки


Значит я попал и прийдется ехать 32542270.gif

но что можно сделать ?
Ardi
Цитата(sia_1980 @ 18.01.12, 2:26) необходимо зарегистрироваться для просмотра ссылки
но что можно сделать ?

В Бобруйск можно полететь, поплыть, попрыгать. Можно до Бобруйска скользить.
необходимо зарегистрироваться для просмотра ссылки
logist
Цитата(sia_1980 @ 18.01.12, 1:26) необходимо зарегистрироваться для просмотра ссылки
Значит я попал и прийдется ехать 32542270.gif

но что можно сделать ?

Даже не знаю что и посоветовать, поезд в Бобруйск ушел 50 минут назад, следующий аж в четверг...

p.s. адаптируйте код, мне думается там не так уж сложно.
sia_1980
Цитата(Ardi @ 18.01.12, 1:36) необходимо зарегистрироваться для просмотра ссылки
В Бобруйск можно полететь, поплыть, попрыгать. Можно до Бобруйска скользить.
необходимо зарегистрироваться для просмотра ссылки


оно то да но хочется сделать обработку
Ardi
Цитата(sia_1980 @ 18.01.12, 2:40) необходимо зарегистрироваться для просмотра ссылки
оно то да но хочется сделать обработку

Я думаю что никто не будет запрещать её делать и безработному.
Для просмотра полной версии этой страницы, пожалуйста, пройдите по ссылке.