Предыдущая тема :: Следующая тема |
Автор |
Сообщение |
romnik Старожил
Зарегистрирован: 17.03.2005 Сообщения: 141 Откуда: Рассказово
|
Добавлено: Ср 30 Мар 2005 12:29 Заголовок сообщения: Про 1С |
|
|
Народ, кто здесь на форуме в 1C чуть-чуть соображает? Помощь нужна в написании одной простенькой обработки. |
|
Вернуться к началу |
|
|
BES_com Абориген
Зарегистрирован: 13.11.2004 Сообщения: 627 Откуда: Местный
|
Добавлено: Ср 30 Мар 2005 16:09 Заголовок сообщения: |
|
|
forum.mista.ru там много спецов, но с глупыми вопросами лучше не суваться к ним - обласкают. |
|
Вернуться к началу |
|
|
romnik Старожил
Зарегистрирован: 17.03.2005 Сообщения: 141 Откуда: Рассказово
|
Добавлено: Чт 31 Мар 2005 07:00 Заголовок сообщения: |
|
|
Я вообще то типа к тебе и обращался(проскакивала инфа что ты с 1С занимаешся). А вопрос у меня как раз и глупый: как из строчной части документа вывести данные в DBF таблицу?Вот
пример кода который нужно доработать:
Процедура Выгрузить_в_DBF()
ДБФ=СоздатьОбъект("XBase");
ДБФ.ДобавитьПоле("NPD","S",6,0);
ДБФ.ДобавитьИндекс("NPD","NPD",0,1,"");
ДБФ.СоздатьФайл(КаталогВременныхФайлов()+"1cv7.dbf",КаталогВременныхФайлов()+"1cv7.cdx");
Выбратьстроки();
Пока Выбратьстроки()=1 Цикл
СТР=КоличествоСтрок()-1;
Пока СТР>0 Цикл
ДБФ.Добавить();
ДБФ.NPD=нпд;
ДБФ.Записать();
СТР=СТР-1;
КонецЦикла;
КонецЦикла;
ДБФ.ЗакрытьФайл();
КонецПроцедуры
Мне нужно чтобы реквизит табличной части "нпд" записывался в таблицу. Строк в табличной части несколько. Так вот вопрос как организовать перебор табличной части дока с записью в DBF ? |
|
Вернуться к началу |
|
|
Гость
|
Добавлено: Чт 31 Мар 2005 09:02 Заголовок сообщения: |
|
|
Если файл ДБФ создается нормально, то:
Выбратьстроки();
Пока Выбратьстроки()=1 Цикл
ДБФ.Добавить();
ДБФ.NPD=нпд;
ДБФ.Записать();
КонецЦикла; |
|
Вернуться к началу |
|
|
BES_com Абориген
Зарегистрирован: 13.11.2004 Сообщения: 627 Откуда: Местный
|
Добавлено: Чт 31 Мар 2005 09:04 Заголовок сообщения: |
|
|
Забыл подписаться. |
|
Вернуться к началу |
|
|
romnik Старожил
Зарегистрирован: 17.03.2005 Сообщения: 141 Откуда: Рассказово
|
Добавлено: Чт 31 Мар 2005 09:51 Заголовок сообщения: |
|
|
не не работает. Цикл не завершается остановить можно только по ESC
DBF появляется но строчки все пустые. Где закавыка? |
|
Вернуться к началу |
|
|
romnik Старожил
Зарегистрирован: 17.03.2005 Сообщения: 141 Откуда: Рассказово
|
Добавлено: Ср 13 Апр 2005 06:58 Заголовок сообщения: |
|
|
Можт кому интересно:
Нужно было написать
Выбратьстроки();
Пока Получитьстроку()>0 Цикл
ДБФ.Добавить();
ДБФ.NPD=нпд;
ДБФ.Записать();
КонецЦикла;
Сразу и не догадался, что ВыбратьСтроки и ПолучитьСтроку это две большие разницы... |
|
Вернуться к началу |
|
|
|