1С 8.x : Пример загрузки остатков в документ 1С из DBF файла

 ФайлОстатков = Новый XBase;

ФайлОстатков.Кодировка = КодировкаXBase.OEM;

ФайлОстатков.ОткрытьФайл(ПутьКТаблицеОстатков);

ФайлОстатков.Первая();        

Пока Не ФайлОстатков.ВКонце() Цикл

	КодКонтрагента = СокрЛП(ФайлОстатков.ПолучитьЗначениеПоля("ZKPO"));

	Если КодКонтрагента = "" Тогда

		КодКонтрагента = СокрЛП(ФайлОстатков.ПолучитьЗначениеПоля("IDENKOD"));

	КонецЕсли;

	НаименованиеКонтрагента = СокрЛП(СтрЗаменить(ФайлОстатков.ПолучитьЗначениеПоля("NAME"),"?","і"));

	Контрагент = ПолучитьКонтрагента(КодКонтрагента,НаименованиеКонтрагента);

	СимволСчета = СокрЛП(ФайлОстатков.ПолучитьЗначениеПоля("SYMBOL"));

	ОстатокДебет = ФайлОстатков.ПолучитьЗначениеПоля("DB_PP");

	ОстатокКредит = ФайлОстатков.ПолучитьЗначениеПоля("KR_PP");

	

	Документ = Документы.КорректировкаДолга.СоздатьДокумент(); 	

	Документ.Организация = Организация;

	Документ.Дата = "20090630235959";

	Документ.ВидОперации = Перечисления.ВидыОперацийКорректировкаДолга.ВводНачальныхОстатков;

	Если ОстатокДебет > 0 Тогда

		Документ.КонтрагентДебитор = Контрагент;

		Документ.СуммыДолга.Очистить();

		СтрокаСуммыДолга = Документ.СуммыДолга.Добавить();

		СтрокаСуммыДолга.ВидЗадолженности = Перечисления.ВидыЗадолженности.Дебиторская;

		СтрокаСуммыДолга.ДоговорКонтрагента = ПолучитьДоговор(Документ.КонтрагентДебитор);

		Если Лев(СимволСчета,3) = "361" Тогда

			СтрокаСуммыДолга.ТипКонтрагента = Перечисления.СтатусыКонтрагентов.Покупатель;

		Иначе

			СтрокаСуммыДолга.ТипКонтрагента = Перечисления.СтатусыКонтрагентов.Поставщик;

		КонецЕсли;

		СтрокаСуммыДолга.КратностьВзаиморасчетов = 1.00;

		СтрокаСуммыДолга.КурсВзаиморасчетов = 1.00;

		СтрокаСуммыДолга.Сумма = ОстатокДебет;

		СтрокаСуммыДолга.СуммаВзаиморасчетов = ОстатокДебет;

		СтрокаСуммыДолга.СтавкаНДС = Перечисления.СтавкиНДС.НДС20;

		СтрокаСуммыДолга.СчетУчетаРасчетов = ПланыСчетов.Хозрасчетный.НайтиПоКоду(СимволСчета);

	Иначе

		Документ.КонтрагентДебитор = Контрагент;

		Документ.СуммыДолга.Очистить();

		СтрокаСуммыДолга = Документ.СуммыДолга.Добавить();

		СтрокаСуммыДолга.ВидЗадолженности = Перечисления.ВидыЗадолженности.Кредиторская;

		СтрокаСуммыДолга.ДоговорКонтрагента = ПолучитьДоговор(Документ.КонтрагентДебитор);

		Если Лев(СимволСчета,3) = "361" Тогда

			СтрокаСуммыДолга.ТипКонтрагента = Перечисления.СтатусыКонтрагентов.Покупатель;

		Иначе

			СтрокаСуммыДолга.ТипКонтрагента = Перечисления.СтатусыКонтрагентов.Поставщик;

		КонецЕсли;

		СтрокаСуммыДолга.КратностьВзаиморасчетов = 1.00;

		СтрокаСуммыДолга.КурсВзаиморасчетов = 1.00;

		СтрокаСуммыДолга.Сумма = ОстатокКредит;

		СтрокаСуммыДолга.СуммаВзаиморасчетов = ОстатокКредит;

		СтрокаСуммыДолга.СтавкаНДС = Перечисления.СтавкиНДС.НДС20;

		СтрокаСуммыДолга.СчетУчетаРасчетов = ПланыСчетов.Хозрасчетный.НайтиПоКоду(СимволСчета);

	КонецЕсли;

	Документ.ВалютаДокумента = Валюта;

	Документ.СчетДт = ПланыСчетов.Хозрасчетный.Вспомогательный;

	Документ.СчетКт = ПланыСчетов.Хозрасчетный.Вспомогательный;

	Документ.Записать(РежимЗаписиДокумента.Проведение);

	ФайлОстатков.Следующая();

КонецЦикла;

ФайлОстатков.ЗакрытьФайл();