12.12.2017, 19:00 [+3 UTC]
в нашей команде: 2 373 чел. | участники онлайн: 18 (рекорд: 21)

:: РЕГИСТРАЦИЯ

:: консультации

:: задать вопрос

:: все разделы

:: правила

:: новости

:: участники

:: доска почёта

:: форум

:: блоги

:: поиск

:: статистика

:: наш журнал

:: наши встречи

:: наша галерея

:: отзывы о нас

:: поддержка

:: руководство

Версия системы:
7.41 (25.02.2017)

Общие новости:
23.02.2017, 09:51

Форум:
12.12.2017, 02:52

Последний вопрос:
12.12.2017, 17:45

Последний ответ:
12.12.2017, 16:34

Последняя рассылка:
12.12.2017, 18:15

Писем в очереди:
0

Мы в соцсетях:

Наша кнопка:

RFpro.ru - здесь вам помогут!

Отзывы о нас:
10.06.2011, 17:23 »
TAIDA
Благодарю! Уже кое что проясняется! [вопрос № 183575, ответ № 267672]
18.01.2010, 12:56 »
Кохан Владимир Иванович
Супер! Все получилось. Большое спасибо. Но как же все сложно оказалось. Оценка 5+ однозначно. [вопрос № 176080, ответ № 258709]
14.12.2010, 11:42 »
Detsle
Спасибо, за решение и разъяснение задачи. [вопрос № 181316, ответ № 264751]

РАЗДЕЛ [неизвестная рассылка]

[администратор рассылки: [неизвестный]]

Лучшие эксперты в этом разделе


Перейти к консультации №:
 

Консультация онлайн # 65405
Раздел: [неизвестная рассылка]
Автор вопроса: Vlad
Отправлена: 03.12.2006, 20:37
Поступило ответов: 2

Здравствуйте Уважаемые эксперты!
Прошу помочь советом. Предприятие занимается производством окон. Каждый раз когда рассчитана конструкция окна в программе СуперОкна, и распечатана калькуляция материалов, бухгалтер в ручную заносит каждую позицию в 1С (на это тратится примерно 1,5 часа минимум). Теперь от меня требуют настроить автоматический перенос материалов из СуперОкон в 1С, благо из СуперОкон можно экспортировать в EXCEl.
Ниже код обработки по импорту материалов из файла Excel, но почему то она переносит только количество, а сами материалы нет. Подскажите пожалуста советом может что-то я пропустил (уже второй день ломаю голову)?
Очень нужно. Спасибо!

Книга=ExcelApp.WorkBooks.Open(ИмяФайла);
Страница=Книга.WorkSheets(1);
ВыбратьСтроки();
УдалитьСтроки();
Стр=1;

СпрМат=СоздатьОбъект("Справочник.Материалы");
Пока ПустоеЗначение(ExcelApp.Cells(стр,1).Value)=0 Цикл
Арт=СокрЛП(ExcelApp.Cells(стр,1).Value);
Кол=Число(СокрЛП(ExcelApp.Cells(стр,2).Value));
Если ПустоеЗначение(Кол)=0 Тогда
Если СпрМат.НайтиПоНаименованию(Арт,0,1)=0 Тогда
Матер=СпрМат.ТекущийЭлемент();
НоваяСтрока();
УстановитьАтрибут("Материал",Матер);
Заявлено=Кол;
Конецесли;
КонецЕсли;
Стр=Стр+1;
КонецЦикла;
ЗагрузитьТабличнуюЧасть(ТЗ);
ExcelApp.Quit();
ExcelApp="";

Состояние: Консультация закрыта

Ответ # 129867 от Зайцев Александр

Здравствуйте, Vlad!
Обратите внимание:
>Если СпрМат.НайтиПоНаименованию(Арт,0,1)=0 Тогда
>Матер=СпрМат.ТекущийЭлемент();
т.е. если материал НЕ найден, тогда вы присваиваете переменной Матер пустой элемент. Вам надо заменить на
Если СпрМат.НайтиПоНаименованию(Арт,0,1)=1 Тогда
...
Для того, чтоб товар находился по наименованию строка в ячейке таблицы из Excel должна полностью совпадать с наименование в 1с, если они отличаются, вам надо соотнести названия, например подчиненным справочником типа Аналоги.
Если что-то непонятно - пишите в личку.


Консультировал: Зайцев Александр
Дата отправки: 04.12.2006, 06:48

Рейтинг ответа:

0

[подробно]

Сообщение
модераторам

Отправлять сообщения
модераторам могут
только участники портала.
ВОЙТИ НА ПОРТАЛ »
регистрация »

Ответ # 129971 от Elric

Здравствуйте, Vlad!

Также обратите внимание, что материал лучше идентифицировать по коду либо по артикулу, а не по наименованию -- это лучший способ избежать ошибки. И если приведенный в Вашем Приложении фрагмент программы загружал в документ только количество (как Вы писали), это означает что с идентификацией материала у Вас действительно проблема (количество загружалось ТОЛЬКО для материалов которые НЕ были идентифицированы в 1С, и я сделал вывод что таких было много).


Консультировал: Elric
Дата отправки: 04.12.2006, 15:33

Рейтинг ответа:

0

[подробно]

Сообщение
модераторам

Отправлять сообщения
модераторам могут
только участники портала.
ВОЙТИ НА ПОРТАЛ »
регистрация »

Возможность оставлять сообщения в мини-форумах консультаций доступна только после входа в систему.
Воспользуйтесь кнопкой входа вверху страницы, если Вы зарегистрированы или пройдите простую процедуру регистрации на Портале.

Яндекс Rambler's Top100

главная страница | поддержка | задать вопрос

Время генерирования страницы: 1.24996 сек.

© 2001-2017, Портал RFPRO.RU, Россия
Авторское право: ООО "Мастер-Эксперт Про"
Калашников О.А.  |  Гладенюк А.Г.
Версия системы: 7.41 от 25.02.2017
Бесплатные консультации онлайн