нужно загрузить DBF файлы в зарплату
13.05.2004
15:16
#1
есть три DBF и вот их нужно загрузить DBF файлы в зарплату
слышал есть разные способы прогу написать спомощью EFD или ERT файлов, вот.
слышал есть разные способы прогу написать спомощью EFD или ERT файлов, вот.
13.05.2004
17:35
#2
"В файлах вида *.ert хранятся внешние обработки. В файлах вида *.efd хранятся названия внешних обработок, которые вводятся из меню "Сервис - Дополнительные возможности" в пользовательском режиме работы "1С:Предприятие".
Загрузку данных из файлов формата *.dbf можно реализовать во внешней обработке с помощью агрегатного типа данных XBase встроенного языка:
ДБФ=СоздатьОбъект("XBase");
ИмяФайла="""";
ИмяПути="""";
ФС.ВыбратьФайл(0,ИмяФайла,ИмяПути,,"*.*",,);
ПутьДБ=ИмяПути+ИмяФайла;
ДБФ.ОткрытьФайл(ПутьДБ);
Если ДБФ.Открыта()=1 Тогда
Предупреждение("База открыта");
ДБФ.Первая();
ФИО = ДБФ.FIO; // Подразумевается, что поле FIO имеется в открытой БД
Предупреждение("Первым в " + ПутьДБ + " упомянут т." + ФИО);
Иначе
Предупреждение("НЕ смогли открыть Базу!");
КонецЕсли;"
Загрузку данных из файлов формата *.dbf можно реализовать во внешней обработке с помощью агрегатного типа данных XBase встроенного языка:
ДБФ=СоздатьОбъект("XBase");
ИмяФайла="""";
ИмяПути="""";
ФС.ВыбратьФайл(0,ИмяФайла,ИмяПути,,"*.*",,);
ПутьДБ=ИмяПути+ИмяФайла;
ДБФ.ОткрытьФайл(ПутьДБ);
Если ДБФ.Открыта()=1 Тогда
Предупреждение("База открыта");
ДБФ.Первая();
ФИО = ДБФ.FIO; // Подразумевается, что поле FIO имеется в открытой БД
Предупреждение("Первым в " + ПутьДБ + " упомянут т." + ФИО);
Иначе
Предупреждение("НЕ смогли открыть Базу!");
КонецЕсли;"
Читают тему
(гостей: 1)