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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Загрузка из DBF, перенос данных из дбф в 1с v8 
:(
    Опции темы
bucdapus
  Дата 23.3.2009, 09:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет



Делаю перенос данных из ДБФ в 1С сделал перенос контрагентов и товара, но вот с документами возникают проблемы.
не могу присвоить номер новому документу из ДБФ. пишет ошибку :

{Форма.ЗагрИзДБФ(233)}: Значение не является значением объектного типа (Номер)
            Приход.Номер = Формат(Строка(БазаДБФ.Number),"ЧГ=0");

где БазаДБФ - это ДБФ файл из которого берутся данные. Приход -   Приход = Документы.ПоступлениеТоваровУслуг;


Кстати тоже самое и с датой!!

PM MAIL   Вверх
Широкий
Дата 23.3.2009, 14:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет



Приход = Документы.ПоступлениеТоваровУслуг.СоздатьДокумент();
PM MAIL   Вверх
bucdapus
Дата 23.3.2009, 14:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет



эта строка у меня есть.
PM MAIL   Вверх
Широкий
Дата 23.3.2009, 14:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет



Запости код
PM MAIL   Вверх
bucdapus
Дата 23.3.2009, 15:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет



                               Приход = Документы.ПоступлениеТоваровУслуг;
        СпрЕдиницы = Справочники.КлассификаторЕдиницИзмерения;
        Приход = Документы.ПоступлениеТоваровУслуг.НайтиПоНомеру(Формат(БазаДБФ.Number/1,"ЧГ=0"));
        
        Если Приход.Пустая() тогда 
          Если БазаДБФ.Line = 1 Тогда
            Приход = Документы.ПоступлениеТоваровУслуг.СоздатьДокумент();
            
            Приход.Номер = Формат(Строка(БазаДБФ.Number),"ЧГ=0");
            Приход.Дата  = БазаДБФ.date;
            Приход.Организация = Справочники.Организации.НайтиПоКоду("000000001");
            Приход.ВалютаДокумента = Справочники.Валюты.НайтиПоКоду("643");
            Приход.Контрагент      = Справочники.Контрагенты.НайтиПоКоду(БазаДБФ.Direct);

PM MAIL   Вверх
Широкий
Дата 23.3.2009, 15:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет



Вот так работает?

Код

      ДокумПриход = Документы.ПоступлениеТоваровУслуг;
      СпрЕдиницы = Справочники.КлассификаторЕдиницИзмерения;
      ПриходСсылка = ДокумПриход.НайтиПоНомеру(Формат(БазаДБФ.Number/1,"ЧГ=0"));
      
      Если Не ЗначениеЗаполнено(ПриходСсылка) тогда 
          Если БазаДБФ.Line=1 Тогда
              ПриходОбъект=ДокумПриход.СоздатьДокумент();
              ПриходОбъект.Номер = Формат(Строка(БазаДБФ.Number),"ЧГ=0");
              ПриходОбъект.Дата  = БазаДБФ.date;
              ПриходОбъект.Организация = Справочники.Организации.НайтиПоКоду("000000001");
              ПриходОбъект.ВалютаДокумента = Справочники.Валюты.НайтиПоКоду("643");
              ПриходОбъект.Контрагент      = Справочники.Контрагенты.НайтиПоКоду(БазаДБФ.Direct);

PM MAIL   Вверх
bucdapus
Дата 23.3.2009, 15:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет



Спасибо вроде бы прокатило
вышла ошибка дальше но ее сам исправить попробую
PM MAIL   Вверх
Широкий
Дата 23.3.2009, 16:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет



В чем ошибка то была хоть понял?
PM MAIL   Вверх
bucdapus
Дата 23.3.2009, 16:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет



вот вообщем накладную я создал и записал с твоей помощью. но теперь похожая ошибка при заполнении таблички товаров:


НоваяСтрока = Приход.Товары.Вствить(БазаДБФ.Line); //на этой строке ошибка
            НоваяСтрока.Номенклатура = Справочники.Номенклатура.НайтиПоКоду(БазаДБФ.Good);
            НоваяСтрока.Количество   = БазаДБФ.Amount;
            НоваяСтрока.ЕдиницаИзмерения = НоваяСтрока.Номенклатура.ВыбратьЭлемент();
            НоваяСтрока.Коэффициент = 1;
            НоваяСтрока.СтавкаНДС = Перечисления.СтавкиНДС.НДС18_118;
            НоваяСтрока.Сумма = БазаДБФ.Sumz;
            НоваяСтрока.СуммаНДС = (БазаДБФ.Sumz*18)/118;
            НоваяСтрока.Цена = (БазаДБФ.Sumz-((БазаДБФ.Sumz*18)/118))/БазаДБФ.Amount;

Добавлено через 44 секунды
Нет ошибку не понял если объяснишь буду благодарен!!!
PM MAIL   Вверх
bucdapus
Дата 24.3.2009, 12:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет



так проблему решил вот таким образом:

НоваяСтрокаОбъект = ПриходОбъект.Товары.Добавить();
                НоваяСтрокаОбъект.Номенклатура = Справочники.Номенклатура.НайтиПоКоду(БазаДБФ.Good);
             НоваяСтрокаОбъект.Количество   = БазаДБФ.Amount;
                НоваяСтрокаОбъект.ЕдиницаИзмерения = НоваяСтрокаОбъект.Номенклатура.БазоваяЕдиницаИзмерения;
                НоваяСтрокаОбъект.Коэффициент = 1;
                НоваяСтрокаОбъект.СтавкаНДС = Перечисления.СтавкиНДС.НДС18_118;
             НоваяСтрокаОбъект.Сумма = БазаДБФ.Sumz;
                НоваяСтрокаОбъект.СуммаНДС = (БазаДБФ.Sumz*18)/118;
                НоваяСтрокаОбъект.Цена = (БазаДБФ.Sumz)/БазаДБФ.Amount;
                ПриходОбъект.Записать();

но есть вопросик 
вот в таком варианте НоваяСтрокаОбъект.Номенклатура = Справочники.Номенклатура.НайтиПоКоду(БазаДБФ.Good);
поиск идет иерархически или нет, т.к мне нада что он искал во всех группах и подгруппах
PM MAIL   Вверх
Широкий
Дата 24.3.2009, 12:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет



Похоже свою ошибку ты так и не догнал..

Цитата(bucdapus @  24.3.2009,  12:27 Найти цитируемый пост)
вот в таком варианте НоваяСтрокаОбъект.Номенклатура = Справочники.Номенклатура.НайтиПоКоду(БазаДБФ.Good);
поиск идет иерархически или нет, т.к мне нада что он искал во всех группах и подгруппах 


СП украли что ли?

Код

СправочникМенеджер.<Имя справочника>.НайтиПоКоду (CatalogManager.<Имя справочника>.FindByCode)
СправочникМенеджер.<Имя справочника> (CatalogManager.<Имя справочника>)
НайтиПоКоду (FindByCode)
Синтаксис:
НайтиПоКоду(<Код>, <Поиск по полному коду>, <Родитель>, <Владелец>) 
Параметры:
<Код> (обязательный)
Тип: Число, Строка. Искомый код.
Строка или число в зависимости от настроек справочника в конфигураторе. 
<Поиск по полному коду> (необязательный)
Тип: Булево. Определяет режим поиска по полному коду. Истина - искомый код следует задавать в виде строки, состоящей из последовательности кодов по уровням справочника, разделенных символом "/".
Значение по умолчанию: Ложь 
<Родитель> (необязательный)
Тип: СправочникСсылка. Родитель, в пределах которого нужно выполнять поиск. Если не указан, то поиск будет проводиться во всем справочнике. 
<Владелец> (необязательный)
Тип: СправочникСсылка. Владелец, в пределах которого нужно выполнять поиск. Если не указан, то поиск будет проводиться во всем справочнике. 
Возвращаемое значение:
Тип: СправочникСсылка.<Имя справочника>, Неопределено. Если не существует ни одного элемента с требуемым кодом, то будет возвращена пустая ссылка.
Если код не задан, то будет возвращено Неопределено. 
Описание:
Осуществляет поиск элемента по его коду. 
Пример:
СтрокаКода = "840";
Валюты = Справочники.Валюты;
НайденнаяСсылка = Валюты.НайтиПоКоду(СтрокаКода);
Если НайденнаяСсылка = Валюты.ПустаяСсылка() Тогда
    Сообщить("Валюты """ + СтрокаКода + """ еще нет");
КонецЕсли;

PM MAIL   Вверх
bucdapus
Дата 24.3.2009, 14:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет



Цитата

СП украли что ли?


 не понял этой фразы?
PM MAIL   Вверх
bucdapus
Дата 25.3.2009, 10:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет



вот появилась проблема но не пойму в чем. в этой строке зеленым цветом

НоваяСтрокаОбъект = ПриходОбъект.Товары.Добавить();
                НоваяСтрокаОбъект.Номенклатура = Справочники.Номенклатура.НайтиПоКоду(БазаДБФ.Good);
             НоваяСтрокаОбъект.Количество   = БазаДБФ.Amount;


отмечено что я в таблице товары заполняю наименование товара но открыв накладную там пусто хотя в справочнике номенклатура такая позиция есть
PM MAIL   Вверх
Широкий
Дата 25.3.2009, 21:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет



СП -   синтаксис помощник (F1)

Насчет твоего кода - хорошо бы вставить проверку , найден ли элемент.. Потом ты уверен что "БазаДБФ.Good" - это точно код элемента а не наименование?

Это сообщение отредактировал(а) Широкий - 25.3.2009, 21:54
PM MAIL   Вверх
bucdapus
Дата 26.3.2009, 09:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет



да насчет БазаДБФ.Good уверен точно
это именнно код элемента
PM MAIL   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "1C: Предприятие, SAP, ERP и учётные системы"
stron

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

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

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

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

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

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

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

С уважением, stron, Pegas.

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


 




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


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

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