Имя: Пароль:
1C
1C 7.7
v7: кладр
,
0 marishka36
 
09.08.11
13:24
Подскажите, загружен последний кладр (июньский) в 1С:Бухгалтерию 7.7. Выбираем Красноярский край, Шарыповский район, нас.пункт Дубинино рп (именно рп, не село), при выборе рп Дубинино, возвращаемся в форму ввода адреса и смотрим, что нас.пункт пуст. Что за косяк? никто не сталкивался? И как его исправить?
1 zak555
 
09.08.11
13:24
переидексировать ?
2 zak555
 
09.08.11
13:25
последний кладр от 04.08.2011

http://www.gnivc.ru/Document.aspx?id=1571
3 SaM58
 
09.08.11
13:45
может формат классификатора не тот выбрали при загрузке
4 marishka36
 
09.08.11
13:47
(1) загружала в чистую базу, переиндексация проходила.то же самое.
(2) - сейчас попробую загрузить новый, но не думаю, что там исправили.
(3) - формат выбрала 2003.все верно
5 marishka36
 
09.08.11
13:52
загрузка классификатора от 4.08.11 тоже не помогла.ставишь галку "Показывать только значимые адреса до 2003г." - Дубинино рп вообще в списке нет. Хотя такой населенный пункт существует сейчас точно
6 kittystark
 
09.08.11
17:55
возьми кладр с ИТС
где-то пробегала такая тема с рецептом лечения, что у ИТС-ного длина каких-то полей 12 символов (если мне не изменяет склероз), а у вытяннутого с сайта ГНИ - 16, поэтому и возникает косяк
7 andrewks
 
09.08.11
18:01
(4) 3. посмотри, правильный ли стоит формат не при загрузке, а ПРИ ВЫБОРЕ АДРЕСА
8 Fram
 
09.08.11
18:03
(7) а причем здесь формат если у нее проблема только с одним нас пунктом
9 andrewks
 
09.08.11
18:05
(8) где это видно?
10 Fram
 
09.08.11
18:11
(8) есть надежда что ТС не полная ...
11 Fram
 
09.08.11
18:11
(10) -> (9)
12 andrewks
 
09.08.11
18:16
(10) а для этого и не надо быть полной...
элементарно: заводится новый юзер, начинаешь вводить адрес - по умолчанию стоит формат 2002 года, где и наблюдается упоминаемая проблема. занавес.
13 marishka36
 
09.08.11
18:55
кладр брала и с ИТС и не с ИТС (загружала и из файлов и "Загрузить с диска ИТС".нифига."посмотри, правильный ли стоит формат не при загрузке, а ПРИ ВЫБОРЕ АДРЕСА" - а при выборе адреса где его смотреть? это 7ка, там все на одной форме происходит."ТС не полная" - это что? попробуйте кто-нибудь у себя, не у меня одной же такое наверное...
14 andrewks
 
09.08.11
19:00
ну ёксель-шмоксель, какие вы ленивые...

http://savepic.net/1803051.png

обрати внимание на радио в самом верху: надо выставить формат 2003 года
15 zak555
 
09.08.11
19:54
(6) что за гон ?
16 poligraf
 
09.08.11
19:56
(13) не у тебя одной. Чего-то подобное видел в комплексной с год назад.
Где-то была проблема в коде, очищались поля.
А может я тогда и не знал про формат 2003 года.
Но правил в коде.
17 Хряк
 
09.08.11
19:57
>загрузка классификатора от 4.08.11 тоже не помогла.ставишь галку "Показывать только значимые адреса до 2003г." - Дубинино рп вообще в списке нет. Хотя такой населенный пункт существует сейчас точно


ты ничё с этим не сделаешь, нет значит нет
18 zak555
 
09.08.11
19:58
(16) ужас

надо сначала методом тыка всё делать

а вообще можно было все dbf положить в kladr папку, если это не зик
и переиндексировать
19 poligraf
 
09.08.11
19:59
(18) Даже не спорю. Я уже не помню, чего с кладр в 7.7 делать:)
20 v4442
 
09.08.11
20:01
обработка "лечение кладра"
21 v4442
 
09.08.11
20:06
Процедура Подобрать()
   
   ФайлКПоУм = "" + КаталогИБ() + "ExtDB\Kladr.dbf";
   Если ФС.СуществуетФайл(файлКПоУм) = 1 Тогда
       ФайлК = ФайлКПоУм;
   Иначе
       Предупреждение("Файл " + ФайлКПоУм + " не найден");
   КонецЕсли;
   
КонецПроцедуры


Процедура ПриНачалеВыбораЗначения(Ид, Фл)
   
   Если Ид = "ФайлК" Тогда
       
       ИмяФайла = "Kladr.dbf";
       КаталогФайла = "";
       
       Если ФС.ВыбратьФайл(0, ИмяФайла, КаталогФайла, "Выберите файл Kladr.dbf", "DBF|*.dbf", "Kladr.dbf", 60) = 1 Тогда
           ФайлК = КаталогФайла + ИмяФайла;
       КонецЕсли;
       
   КонецЕсли;    
   
КонецПроцедуры



Процедура Лечить()
   
   Если ФС.СуществуетФайл(ФайлК) = 0 Тогда
       Предупреждение("Выбранный файл не существует");
       Возврат;
   КонецЕсли;
   
   ФайлТ = Лев(ФайлК, СтрДлина(ФайлК)-4) + "tmp" + Прав(ФайлК, 4);
   
   Из = СоздатьОбъект("XBase");
   Из.ОткрытьФайл(ФайлК, , 0);
   Если Из.Открыта() = 0 Тогда
       Предупреждение("Не могу открыть файл " + ФайлК);
       Возврат;
   КонецЕсли;
   
   В = СоздатьОбъект("XBase");
   В.ДобавитьПоле("NAME","S",40,0);
   В.ДобавитьПоле("SOCR","S",10,0);
   В.ДобавитьПоле("CODE","S",11,0);
   В.ДобавитьПоле("INDEX","S",6,0);
   В.ДобавитьПоле("GNINMB","S",4,0);
   В.ДобавитьПоле("UNO","S",4,0);
   В.ДобавитьПоле("OCATD","S",11,0);
   В.ДобавитьПоле("STATUS","S",1,0);
   
   В.СоздатьФайл(ФайлТ,);
   В.ЗакрытьФайл();
   В.ОткрытьФайл(ФайлТ, ,0);
   
   Если В.Открыта() = 0 Тогда
       Предупреждение("Не могу открыть файл " + ФайлТ);
       Возврат;
   КонецЕсли;
   
   ВсегоЗаписей = Из.КоличествоЗаписей();
   Из.Первая();
   НомерЗаписи = 0;
   Пока Из.Следующая() = 1 Цикл
       
       В.Добавить();
       В.УстановитьЗначениеПоля("NAME",    Из.NAME);
       В.УстановитьЗначениеПоля("SOCR",    Из.SOCR);
       В.УстановитьЗначениеПоля("CODE",    Лев(Из.CODE, 11));
       В.УстановитьЗначениеПоля("INDEX",    Из.INDEX);
       В.УстановитьЗначениеПоля("GNINMB",    Из.GNINMB);
       В.УстановитьЗначениеПоля("UNO",    Из.UNO);
       В.УстановитьЗначениеПоля("OCATD",    Из.OCATD);
       В.УстановитьЗначениеПоля("STATUS",    Из.STATUS);
       В.Записать();
       
       НомерЗаписи = НомерЗаписи + 1;
       Если НомерЗаписи % 100 = 0 Тогда
           Состояние("Обработано " + НомерЗаписи + " записей из " + ВсегоЗаписей);
       КонецЕсли;
       
   КонецЦикла;
   
   Из.ЗакрытьФайл();
   В.ЗакрытьФайл();
   
   ФС.УдалитьФайл(ФайлК);
   ФС.ПереименоватьФайл(ФайлТ, ФайлК, 0);
   
   ФайлИндекса = Лев(ФайлК, СтрДлина(ФайлК) - 4) + "1.cdx";
   Если ФС.СуществуетФайл(ФайлИндекса) = 1 Тогда
       ФС.УдалитьФайл(ФайлИндекса);
   КонецЕсли;
   
   Предупреждение("Обработка завершена");
   
КонецПроцедуры
22 Хряк
 
09.08.11
20:52
стирается в этом месте в обработке ВводАдреса
Процедура ПриНачалеВыбораЗначения(
...
       // установим значения родительских элементов
       Если ТипЗначенияСтр(Параметры.Получить("Родители")) = "СписокЗначений" Тогда
           Для Номер = 1 По Параметры.Получить("Родители").РазмерСписка() Цикл
               Вид = "";
               Список = Параметры.Получить("Родители").ПолучитьЗначение(Номер, Вид);
               //яИзменил добавил условие
//вот здесь для неактуальных (незначимых) объектов список пустой и строка стирается
               Если Список.РазмерСписка()>0 Тогда
                   УстановитьЗначенияОбъекта(Вид, Список.Получить("Код"), Список.Получить("Наименование"), Список.Получить("Индекс"));
               КонецЕсли;
           КонецЦикла;
       КонецЕсли;
23 andrewks
 
09.08.11
20:55
чё только не понапишут ленивые одинэсники, лишь бы галочку лишний раз не нажать...
24 poligraf
 
09.08.11
21:06
(23) день прожит не зря. Узнал про галочку в 7-ке:)
25 Хряк
 
09.08.11
21:15
andrewks, проверь сам, с галкой Дубинино рп ваще отсутствует как класс
26 andrewks
 
09.08.11
21:35
(0) хватит голову морочить, нет такой буквы в этом слове.

http://www.krskstate.ru/krasnoyarskkray/territories/0/doc/1530

только село
27 zak555
 
09.08.11
21:36
бу га га
28 andrewks
 
09.08.11
21:41
зато (!) есть рп Дубинино в составе городского округа Шарыпово
wiki:Дубинино_(Шарыпово)

и, кстати, он в кладре тоже выбирается.

я так понял, это разные населённые пункты
29 andrewks
 
09.08.11
21:45
всё, мне окончательно вынесло мозг.

я один вижу три города Шарыпово на этой карте?
http://www.krskstate.ru/map?p_map=43
30 andrewks
 
09.08.11
22:01
пля, как всё запутано у них там...

мало того, что он (г.Шарыпово) географически состоит из трёх удалённых друг от друга частей, так ещё в состав города входят два посёлка - Горячегорск и Дубинино, причём 1-й находится от города (точнее, ближайшей его части :) в 28 км, второй — в 14 км.


но самое интересное (!)
являясь административным центром Шарыповского района, в состав самого района он не входит! т.к. является городом краевого подчинения.

wiki:Шарыповский_район
wiki:Шарыпово

насчёт конкретно Дубинино - видимо, с. Дубинино ранее входило в состав Шарыповского р-на, а потом было переподчинено г.Шарыпово и статус был изменён на рабочий посёлок


ЗЫ ну вас нафих со своими шарыповыми, без бутылки не разберёшься
31 zak555
 
09.08.11
22:57
я бы забил и вбил через 11 запятых =)
32 pers200590
 
10.08.11
05:23
У меня такая же проблема.Вообщем у меня у администратора- все ок все выбирается. У других пользователей Продавцы.При выборе Улицы. ичищаются поля Регион,Город,Улица.
33 marishka36
 
10.08.11
09:21
andrewks, спасибо большое! Вы оказались правы. рп Дубинино нормально выбирается при выборе не Шарыповского района, а г.Шарыпово
34 kittystark
 
11.08.11
20:25
(15)
http://www.mista.ru/articles1c/kladr.htm
раздел "причина"
35 zak555
 
12.08.11
07:44
(34) год какой ?
Ошибка? Это не ошибка, это системная функция.