Реклама на этом месте
Форум 1С
Форум 1С
Программистам. Бухгалтерам. Администраторам. Пользователям
Задай вопрос - получи решение проблемы. Без троллинга и флуда.
25 Май 2018, 13:54
МультиВход
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Не получили письмо с кодом активации?
 
collapse

Автор Тема: Выгружаю справочники из dbf в 1с!!!Где моя ошибка???  (Прочитано 3445 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Оффлайн Лейсан

  • ***
  • Сообщений: 142
  • РЕПУТАЦИЯ: 0
  • Регистрация: 2011-05-12
  • Сайт: 
  • Профессия: Ученик 1С
ДБФ = Новый ("XBase");
      ДБФ.ОткрытьФайл(ПутьКФайлу);
      //Проверка на наличие записей
   Если ДБФ.КоличествоЗаписей() = 0 Тогда
      Сообщить("Файл данных пуст");
      ДБФ.ЗакрытьФайл();
      Возврат
   КонецЕсли;

   Пока ДБФ.Следующая()  Цикл
      Спр= Справочники.Контрагенты.СоздатьСправочник();      
      Спр.Новый();
      Спр.Наименование = СокрЛП(ДБФ.NAME);
      Спр.ИНН = СокрЛП(ДБФ.INN);
      Спр.КПП = СокрЛП(ДБФ.KPP);
      Спр.БанковскийСчет = СокрЛП(ДБФ.COUNT);
      Спр.КодГал = СокрЛП(ДБФ.KOD);
      Спр.Записать();
       ДБФ.Следующая();
   Иначе
      Спр= Справочники.Контрагенты.СоздатьСправочник();      
      Спр.Новый();
      Спр.Наименование = СокрЛП(ДБФ.NAME);
      Спр.ИНН = СокрЛП(ДБФ.INN);
      Спр.КПП = СокрЛП(ДБФ.KPP);
      Спр.БанковскийСчет = СокрЛП(ДБФ.COUNT);
      Спр.КодГал = СокрЛП(ДБФ.KOD);
      Спр.Записать();
       ДБФ.Следующая();
   КонецЦикла;   
   КонецЕсли;   


Оффлайн sergejK74

  • *****
  • Сообщений: 1093
  • РЕПУТАЦИЯ: 458
  • КПД: 42%
  • Всегда готов помочь!
  • Регистрация: 2011-07-08
  • Сайт: 
  • Профессия: Ученик 1С
Приблизительно в этих местах.

ДБФ = Новый ("XBase");
      ДБФ.ОткрытьФайл(ПутьКФайлу);
      //Проверка на наличие записей
   Если ДБФ.КоличествоЗаписей() = 0 Тогда
      Сообщить("Файл данных пуст");
      ДБФ.ЗакрытьФайл();
      Возврат
   КонецЕсли;

   Пока ДБФ.Следующая()  Цикл
      Спр= Справочники.Контрагенты.СоздатьСправочник();     
      Спр.Новый();

      Спр.Наименование = СокрЛП(ДБФ.NAME);
      Спр.ИНН = СокрЛП(ДБФ.INN);
      Спр.КПП = СокрЛП(ДБФ.KPP);
      Спр.БанковскийСчет = СокрЛП(ДБФ.COUNT);
      Спр.КодГал = СокрЛП(ДБФ.KOD);
      Спр.Записать();
       ДБФ.Следующая();
   Иначе
     Спр= Справочники.Контрагенты.СоздатьСправочник();     
      Спр.Новый();
      Спр.Наименование = СокрЛП(ДБФ.NAME);
      Спр.ИНН = СокрЛП(ДБФ.INN);
      Спр.КПП = СокрЛП(ДБФ.KPP);
      Спр.БанковскийСчет = СокрЛП(ДБФ.COUNT);
      Спр.КодГал = СокрЛП(ДБФ.KOD);
      Спр.Записать();
      ДБФ.Следующая();

   КонецЦикла;   
   КонецЕсли;   
Кнопочка Спасибо - слева!

Оффлайн Лейсан

  • ***
  • Сообщений: 142
  • РЕПУТАЦИЯ: 0
  • Регистрация: 2011-05-12
  • Сайт: 
  • Профессия: Ученик 1С
Подскажите пожалуйста,как исправить эти ошибки...

Оффлайн Лейсан

  • ***
  • Сообщений: 142
  • РЕПУТАЦИЯ: 0
  • Регистрация: 2011-05-12
  • Сайт: 
  • Профессия: Ученик 1С
Спр= Справочники.Контрагенты.СоздатьСправочник();     
Спр.Новый();
как можно это исправить??

Оффлайн sergejK74

  • *****
  • Сообщений: 1093
  • РЕПУТАЦИЯ: 458
  • КПД: 42%
  • Всегда готов помочь!
  • Регистрация: 2011-07-08
  • Сайт: 
  • Профессия: Ученик 1С
Спр= Справочники.Контрагенты.СоздатьЭлемент();    
ДБФ = Новый XBase;
Кнопочка Спасибо - слева!

Оффлайн Лейсан

  • ***
  • Сообщений: 142
  • РЕПУТАЦИЯ: 0
  • Регистрация: 2011-05-12
  • Сайт: 
  • Профессия: Ученик 1С
ДБФ.Первая();
      Спр = Справочники.Контрагенты;
        НовыйКонтрагент = Спр.СоздатьЭлемент();
      НовыйКонтрагент.Наименование = СокрЛП(ДБФ.NAME);
      НовыйКонтрагент.ИНН = СокрЛП(ДБФ.INN);
      НовыйКонтрагент.КПП = СокрЛП(ДБФ.KPP);
      НовыйКонтрагент.Записать();
       Пока  ДБФ.Следующая()  Цикл
      Спр = Справочники.Контрагенты;
        НовыйКонтрагент = Спр.СоздатьЭлемент();
      НовыйКонтрагент.Наименование = СокрЛП(ДБФ.NAME);
      НовыйКонтрагент.ИНН = СокрЛП(ДБФ.INN);
      НовыйКонтрагент.КПП = СокрЛП(ДБФ.KPP);
      НовыйКонтрагент.Записать();
         НовыйКонтрагент.Следующая();

   КонецЦикла;   

выгрузила справочник))спасибо))


Теги:
 

При открытии обр-ки в "Предприятии" есть ошибка, а в "Отладке" нет

Автор proofetРаздел Конфигурирование, программирование в "1С - Предприятие 8"

Ответов: 2
Просмотров: 5086
Последний ответ 21 Сен 2011, 17:35
от proofet
ошибка "Невозможно обработать параметр "ПрофильПолномочийПользователя""

Автор lindeluРаздел Конфигурирование, программирование в "1С - Предприятие 8"

Ответов: 5
Просмотров: 6804
Последний ответ 06 Июн 2012, 09:15
от lindelu
Синтаксическая ошибка "В" Номенклатура.Ссылка = <<?>> В ИЕРАРХИИ(&Ссылка)

Автор maskitoРаздел Конфигурирование, программирование в "1С - Предприятие 8"

Ответов: 4
Просмотров: 4862
Последний ответ 28 Апр 2014, 15:53
от maskito
При создании нового документа "Заявка на кассовый расход" Ошибка "Значение 9 поля "номер" не уникально

Автор ppkmliteРаздел Конфигурирование, программирование в "1С - Предприятие 8"

Ответов: 14
Просмотров: 10309
Последний ответ 22 Ноя 2014, 04:50
от cska-fanat-kz
Ошибка при загрузке данных через (Обработка "Выгрузка и загрузка данных XML")

Автор Сергей_87Раздел Конфигурирование, программирование в "1С - Предприятие 8"

Ответов: 1
Просмотров: 9309
Последний ответ 26 Апр 2012, 23:08
от Dethmontt

* Живое общение

Не устроил ответ?

Зарегистрируйся и задай свой вопрос. Живое общение приносит результат намного быстрее.


Зарегистрироваться

* Реклама

* Поиск

* Последние задачи на разработку (фриланс)

* Реклама

* Последние вакансии

* Топ 10 авторов за месяц

Геннадий ОбьГЭС Геннадий ОбьГЭС
171 Сообщений
alex0402
74 Сообщений
oleg-x
67 Сообщений
AIFrame AIFrame
60 Сообщений
buketov.av buketov.av
47 Сообщений
wise wise
40 Сообщений
ilyay ilyay
39 Сообщений
Анюта17
33 Сообщений
KOI8-R
32 Сообщений
Alter
31 Сообщений

* Кто онлайн

  • Точка Гостей: 687
  • Точка Скрытых: 0
  • Точка Пользователей: 16
  • Точка Сейчас на форуме:

* Облако тэгов

* Форум 1С с мобильного

* Инструменты

* Дополнительно

Поиск

 
SimplePortal 2.3.5 © 2008-2012, SimplePortal