Имя: Пароль:
1C
1C 7.7
v7: Как правильно создать индексный файл?
0 fredrf
 
02.09.13
10:28
Всем привет. Не могу получить значение ключа,после создания индексного файла... вот код

//Открываю дбф файл для создания индексного cdx                                        Файл.ОткрытьФайл("D:\1\новые\игорьБД\001_03_05_2013\bd\KzAccnt\DT10121.DBF",,0);  
                                            Файл.Добавитьиндекс("IDLS","SP10119",0,0,"");
                                            Файл.СоздатьИндексныйФайл("D:\1\новые\игорьБД\001_03_05_2013\bd\KzAccnt\DT10121.CDX");
                                            Файл.ЗакрытьФайл();
                                            
                                            //открываю оба файла
                                            Файл.ОткрытьФайл("D:\1\новые\игорьБД\001_03_05_2013\bd\KzAccnt\DT10121.DBF","D:\1\новые\игорьБД\001_03_05_2013\bd\KzAccnt\DT10121.CDX",1);
                                            назв="";                              
                                                              
                                            
                                            //получаю в сообщении имена индексов, в данном случае одного
                                            Для н=1 По Файл.КоличествоИндексов() Цикл
                                                
                                                Файл.ОписаниеИндекса(н,назв,,,,);
                                                сообщить(назв);                   // "IDLS"
                                                
                                            КонецЦикла;    
                                                        
                                            // вот так вот запись не находиться
                                            Файл.ТекущийИндекс("IDLS"); // или так   Файл.ТекущийИндекс("назв");
                                            Если Файл.Найти("7S",0)=1 Тогда  сообщить("Запись найдена!"); КонецЕсли;            
                                            
                                                  
                                            //и так  тоже ключ пустой
                                            Файл.Первая();    кол=0;
                                                    Пока Файл.ВКонце()=0 Цикл  
                                                        
                                                        сообщить(Файл.Ключ.SP10119);  
                                                                
                                                        
                                                        кол=кол+1;        если кол=10 тогда прервать; конецесли;  
                                                                
                                                    Файл.Следующая();
                                                    КонецЦикла;    
                                            Файл.ЗакрытьФайл();
Проблемы невозможно решaть нa том же уровне компетентности, нa котором они возникaют. Альберт Эйнштейн