| agkorepanov | Дата: Понедельник, 24.06.2013, 05:56 | Сообщение # 1 |
 Admin
Группа: Администраторы
Сообщений: 207
Статус: Offline
| //Создаем объект
База = СоздатьОбъект("XBASE");
База.КодоваяСтраница(1); // 1- DOS, 0 — Windows
//Добавляем поля в объект
База.ДобавитьПоле("NOM","C",100,);
База.ДобавитьПоле("KOL","N",14,3);
База.ДобавитьПоле("ED","C",8,);
База.ДобавитьПоле("CENA","N",15,2);
База.ДобавитьПоле("SUMMA","N",15,2);
//Создаем новый файл C:exch.dbf
База.СоздатьФайл("C:\1\file.dbf");
База.ОчиститьФайл();
Док=ВыбИнвентаризацияТМЦ;
Док.выбратьСтроки();
Пока Док.получитьСтроку()=1 Цикл
База.Добавить();
База.УстановитьЗначениеПоля("NOM",Док.Номенклатура.Наименование);
База.УстановитьЗначениеПоля("KOL",Док.Количество);
База.УстановитьЗначениеПоля("ED",Док.Единица.ОКЕИ.Наименование);
База.УстановитьЗначениеПоля("CENA",Док.Цена);
База.УстановитьЗначениеПоля("SUMMA",Док.Сумма);
Сообщить("Выгружен " +Док.ТекущийДокумент());
База.Записать();
КонецЦикла;
|
| |
| |
*/
