Модераторы: stron
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Не получается изменить наименование контрагента, 1С 
:(
    Опции темы
inkognitum
Дата 11.8.2006, 07:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 125
Регистрация: 11.8.2006
Где: г. Набережные Чел ны

Репутация: нет
Всего: 1
Привет, мастера!
Я начинающий программист на 1С конфигуратор.
Сижу буквально пару дней так что прошу прощения за глупые вопросы!
5 лет просидел на VB, С++, так что трудно вьехать в этот специфический язык!

Я написал обычный обработчик газваний фирм, задача заключалась в том чтобы перенести ОПФ в конец названия фирмы и убрать кавычки!
ООО "ProLog" получаем : ProLog ООО

вот... за алгоритмом проблем не встало все раскидал как надо без проблем... но поменять наименования контрагента я не могу smile

Выдает такую ошибку: Изменино Наименование! Может быть нарушена последовательность выборки.

кому интересно вот исходник этой процедуры!
Код

Процедура Вывод() 
              Перем Временная;  // временная строка
              Перем ОПФ;        // организацона правовая форма                
              Перем ВсеВозОПФ[10]; 
              Перем ВсеВозОПФДоп[10];
              Перем индекс;
              перем индекс2;
              ВсеВозОПФ[1] = "ОАО";ВсеВозОПФ[2] = "ООО";
              ВсеВозОПФ[3] = "ЗАО";ВсеВозОПФ[4] = "";
              
              ВсеВозОПФДоп[1] = " ПФ ";ВсеВозОПФДоп[2] = " ПСФ ";
              ВсеВозОПФДоп[3] = " НПП ";ВсеВозОПФДоп[4] = "";
              ЮрЛицо = СоздатьОбъект("Справочник.Контрагенты");
              ЮрЛицо.ВыбратьЭлементы(); 
              //эл = ЮрЛицо.ТекущийЭлемент();
              индекс = 1; 
              индекс2 = 1;
              Пока ЮрЛицо.ПолучитьЭлемент() > 0 Цикл    
                эл = ЮрЛицо.ТекущийЭлемент();
                Пока ВсеВозОПФ[индекс] <> "" Цикл  
            
                    Если (Найти(ЮрЛицо.Наименование, ВсеВозОПФ[индекс])>0) И (Найти(ЮрЛицо.Наименование, " " + ВсеВозОПФ[индекс])=0) Тогда
                        Временная = СтрЗаменить(ЮрЛицо.Наименование, Симв(34), Симв(32));
                        Временная = СтрЗаменить(Временная, "  ", Симв(32));
                        ОПФ = "";
                        Пока ВсеВозОПФДоп[индекс2]<>"" Цикл
                            Если (Найти(Временная, ВсеВозОПФ[индекс] + ВсеВозОПФДоп[индекс2])>0) Тогда
                             ОПФ = ВсеВозОПФ[индекс] + ВсеВозОПФДоп[индекс2];
                            КонецЕсли;
                            индекс2=индекс2+1;
                        КонецЦикла;
                        
                        Если (ОПФ = "") Тогда
                            ОПФ = ВсеВозОПФ[индекс];
                    КонецЕсли;
                        Временная = СтрЗаменить(Временная, ОПФ, "");
                        Временная = Временная +  " " + ОПФ;               
                        
                        Временная = СтрЗаменить(Временная, "  ", Симв(32));
                        Временная = СокрЛП(Временная);
                        Сообщить (Временная, ".");   
                        
ВОт ТУТ ОШИБКА!!!>>>>>>>>>>>>>>>>>>>>>>>>>>>>    ЮрЛицо.Наименование = Временная;
                        
                        индекс2 = 1;
                    КонецЕсли;
                    индекс=индекс+1;                 
                КонецЦикла;        
                индекс = 1;   
                
            КонецЦикла;  
            Сообщить ("Выполнил!", ".");
КонецПроцедуры


Кто подскажет что надо сделать чтобы Сменить наименование???
 smile  smile 
Заранее спасибо!
--------------------
"Убить всех людей!" (с) Bender
PM MAIL ICQ Skype   Вверх
Hidrag
Дата 11.8.2006, 09:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 877
Регистрация: 9.4.2005
Где: JDK

Репутация: 1
Всего: 25
Напиши текст ошибки!

Судя по коду это 1с семерка, и после ЮрЛицо.Наименование = Временная; должно быть что то типа ЮрЛицо.Записть(); (сохранить, обновить...)


--------------------
user posted image
PM WWW ICQ   Вверх
Zero
Дата 11.8.2006, 13:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2169
Регистрация: 23.10.2004
Где: Россия, г. Рязань

Репутация: 15
Всего: 24
Цитата(Hidrag @  11.8.2006,  10:59 Найти цитируемый пост)
Напиши текст ошибки!

Hidrag, ты проглядел: smile 
Цитата(inkognitum @  11.8.2006,  08:15 Найти цитируемый пост)
Выдает такую ошибку: Изменино Наименование! Может быть нарушена последовательность выборки.


inkognitum, попробуй за место строки
Код

ЮрЛицо.Наименование = Временная;

Написать вот так:
Код

ЮрЛицо1 = СоздатьОбъект("Справочник.Контрагенты");
Если ЮрЛицо1.НайтиЭлемент(ЮрЛицо.ТекущийЭлемент())=1 Тогда
     ЮрЛицо1.Наименование = Временная;
     ЮрЛицо1.Записать();
КонецЕсли;
PM MAIL ICQ   Вверх
Dr.Drunk
Дата 11.10.2006, 16:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 179
Регистрация: 12.1.2004
Где: Волжский

Репутация: нет
Всего: нет
inkognitum, 
Цитата(inkognitum @  11.8.2006,  07:15 Найти цитируемый пост)
эл = ЮрЛицо.ТекущийЭлемент();

Если присваиваешь Переменной, так дальше с ней и работай...
Код

 Эл.Наименование = Временная;


Поэтому и ошибка, ты в выборке наименование элемента меняешь...
Потом записать не забудь smile

Это сообщение отредактировал(а) Dr.Drunk - 11.10.2006, 16:17
--------------------
_Theory_ is when you know everything but nothning works._Practice_ is when everything works but no one knows why._IN THIS PLACE_ we're combining theory and practice -nothing works and no one knows why!
PM MAIL WWW ICQ   Вверх
Pelmen
Дата 30.10.2006, 13:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 36
Регистрация: 21.11.2005

Репутация: 1
Всего: 1
прикольный бред в ответах
особенно последний smile 
конечно сохранить не мешает, но ошибка в том что в выборке порядок наименований, на это и ругается
необходимо использовать перед выборкой:
ПорядокКодов();
PM MAIL   Вверх
Zero
Дата 31.10.2006, 08:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2169
Регистрация: 23.10.2004
Где: Россия, г. Рязань

Репутация: 15
Всего: 24
Однако ты прав, так было бы правильнее.
PM MAIL ICQ   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "1C: Предприятие, SAP, ERP и учётные системы"
stron

Запрещается!

1. Обсуждение крэков, кейгенов и других подобных программ

Пробуйте искать сами или обращайтесь в приват к участникам форума.

Темы с подобными вещами будут немедленно удаляться, а нарушители - получать предупреждения.

Также запрещается обсуждение проблем работы этих программ (что куда вписать, куда что скопировать и т.п...)

2. Давать ссылки на взломанные продукты

  • Пожалуйста, пользуйтесь поиском перед тем, как задать вопрос - возможно ответ уже есть на форуме.
  • Название темы должно отражать её суть
  • Действия модераторов можно обсудить здесь

С уважением, stron, Pegas.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | 1C: Предприятие, SAP, ERP и учётные системы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0633 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.