Загрузка информации в 1С (форматы файлов загрузки)
24.08.2001
12:59
#1
Необходимо переместить некоторый объем информации из некой программы оперативного учета в 1С:Бухгалтерию. Как должны выглядеть данные в TXT-шном файле, чтобы попасть в нужное место в 1С???????
30.08.2001
13:25
#2
Все зависит от того какие данные вы хотите переместить. Думаю лучше использовать не txt-файлы, а dbf. Скорее всего вам понадобится хороший программист, т.к. это не простая задача.
07.09.2001
10:06
#3
"да нет, это не так уж и сложно...вот например, загрузка справочника из текстового файла (пусть код немного корявый, зато работает исправно):<br><br>//////////////////////////////////////////////////// //////////////<br><br>Процедура ЭкспортР()<br><br> Рез=Вопрос("Провести обновление РЕЕСТРА?" + РазделительСтрок + "ПРЕДУПРЕЖДЕНИЕ: это займет несколько минут......",1);<br><br> Если Рез=1 Тогда<br><br> <br><br><br><br> Состояние("Открытие справочника");<br><br>aaaa=0;<br><br>Спр=СоздатьОбъект("Справочник.Номенклатура");<br><br>Текст=СоздатьОбъект("Текст");<br><br>Текст.Открыть("xls.txt");<br><br>Для Ном=2 По Текст.КоличествоСтрок() Цикл <br><br> Стр=Текст.ПолучитьСтроку(Ном);<br><br> Поле=0;<br><br> Пока СтрДлина(Стр)>0 Цикл<br><br> Поле=Поле+1;<br><br> Инд=Найти(Стр,СимволТабуляции);<br><br> Если Инд>0 Тогда <br><br> Стр1=Сред(Стр,1,Инд-1);<br><br> Стр=Сред(Стр,Инд+1);<br><br> Иначе<br><br> Стр1=Сред(Стр,2,(СтрДлина(Стр)-2));<br><br> Стр="""";<br><br> КонецЕсли;<br><br> Если Поле=1 Тогда<br><br> <br><br> Спр.ПорядокКодов();<br><br> Спр.ВыбратьЭлементы();<br><br> aaaa=0;<br><br> Пока Спр.ПолучитьЭлемент()>0 Цикл<br><br> Состояние("Проводится поиск позиции " + Стр1 +" в текущем реестре");<br><br> Если Спр.Код=Стр1 Тогда <br><br> goto ~M1; <br><br> КонецЕсли;<br><br> aaaa=aaaa+1;<br><br> <br><br> КонецЦикла; <br><br> Спр.Новый(); <br><br> Спр.Код=Стр1;<br><br> ИначеЕсли Поле=2 Тогда<br><br> Спр.Наименование=Стр1;<br><br> ИначеЕсли Поле=3 Тогда<br><br> Спр.Наименование=Спр.Наименование + " " + Стр1;<br><br> //Спр.Вид=Стр1;<br><br> ИначеЕсли Поле=4 Тогда<br><br> Спр.Цена=Стр1;<br><br> ИначеЕсли Поле=5 Тогда<br><br> ИначеЕсли Поле=6 Тогда<br><br> Стр="""";<br><br> КонецЕсли;<br><br> ~M1: КонецЦикла;<br><br> <br><br> Состояние("Обрабатывается "+ Ном +" позиция экспортируемого реестра из "+Текст.КоличествоСтрок()); <br><br> Спр.Записать();<br><br> <br><br>КонецЦикла; <br><br><br><br> КонецЕсли;<br><br>КонецПроцедуры "
Прайс-лист:из 1С бухгалтерии версии 6.0 в Microsoft Excel либо Microsoft WordПеренос проводок из "Зарплата и кадры" в "Бюджет"
Читают тему
(гостей: 1)