Есть БД на visual foxpro. Делаю связь с 1С 8 через "Внешние источники данных".
Перепробовал кучу других драйверов. Но исход один и тот же.
Путь = "C:\Users\Admin\Desktop";
ДатаНачала = Дата("20180220");
ДатаОкончания = ДатаНачала;
ПараметрыСоединения = Новый ПараметрыСоединенияВнешнегоИсточникаДанных;
ПараметрыСоединения.СтрокаСоединения = "Driver={Microsoft Visual FoxPro Driver};
|SourceType=DBF;SourceDB="+Путь+";
|Exclusive=No; Collate=Machine;NULL=NO;DELETED=YES;BACKGROUNDFETCH=NO;";
ВнешниеИсточникиДанных.LSTrade.УстановитьОбщиеПараметрыСоединения(ПараметрыСоединения);
ВнешниеИсточникиДанных.LSTrade.УстановитьСоединение();
Сообщить(ВнешниеИсточникиДанных.LSTrade.ПолучитьСостояние());
Запрос = Новый Запрос;
Запрос.УстановитьПараметр("ДатаНачала", ДатаНачала);
Запрос.УстановитьПараметр("ДатаОкончания", ДатаОкончания);
ЗАпрос.Текст =
"ВЫБРАТЬ
| dvmat.k_mat,
| dvmat.k_skl,
| dvmat.k_op,
| dvmat.k_ana,
| dvmat.dprk,
| dvmat.dpro,
| dvmat.dok,
| dvmat.d_vv,
| dvmat.n_mat,
| dvmat.n_sum,
| dvmat.n_dsum,
| dvmat.schz,
| dvmat.p_time,
| dvmat.kod_isp,
| dvmat.dokvn,
| dvmat.oschz,
| dvmat.n_izg,
| dvmat.n_opt,
| dvmat.n_cenuo,
| dvmat.ndsp,
| dvmat.cenuosec,
| dvmat.ndssec,
| dvmat.n_tn,
| dvmat.nsp,
| dvmat.ndsr,
| dvmat.n_cenu,
| dvmat.k_grmat,
| dvmat.n_matost,
| dvmat.sumndspt,
| dvmat.sumtndsp,
| dvmat.sumndsps,
| dvmat.n_sumu,
| dvmat.k_cmat,
| dvmat.n_matcor,
| dvmat.k_cont,
| dvmat.lgrmat,
| dvmat.gschz,
| dvmat.norder,
| dvmat.d_godn,
| dvmat.k_cgrmat,
| dvmat.k_act,
| dvmat.n_nommat,
| dvmat.n_nomprc,
| dvmat.d_cert,
| dvmat.k_excont,
| dvmat.n_discsum,
| dvmat.lusenom,
| dvmat.lusesec,
| dvmat.luseopt,
| dvmat.discsup,
| dvmat.k_ugrtov,
| dvmat.n_trc,
| dvmat.lusetrc,
| dvmat.luseestub,
| dvmat.ltrcsup,
| dvmat.cert,
| dvmat.ggr,
| dvmat.lusectn,
| dvmat.centndsp,
| dvmat.n_wndsr,
| dvmat.k_exskl,
| dvmat.n_omat,
| dvmat.n_otn,
| dvmat.nnu,
| dvmat.n_ocenu,
| dvmat.n_osumu,
| dvmat.n_exmat,
| dvmat.n_exizg,
| dvmat.luseex,
| dvmat.n_curcenu,
| dvmat.lusecur
|ИЗ
| ВнешнийИсточникДанных.LSTrade.Таблица.dvmat КАК dvmat
|ГДЕ
| dvmat.d_vv МЕЖДУ &ДатаНачала И &ДатаОкончания";
Результат = Запрос.Выполнить();
ВнешниеИсточникиДанных.LSTrade.РазорватьСоединение();
Сообщить(ВнешниеИсточникиДанных.LSTrade.ПолучитьСостояние());
Показать