|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 |
ФайлОстатков = Новый 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; СтрокаСуммыДолга.СчетУчетаРасчетов = ПланыСчетов.Хозрасчетный.НайтиПоКоду(СимволСчета); КонецЕсли; Документ.ВалютаДокумента = Валюта; Документ.СчетДт = ПланыСчетов.Хозрасчетный.Вспомогательный; Документ.СчетКт = ПланыСчетов.Хозрасчетный.Вспомогательный; Документ.Записать(РежимЗаписиДокумента.Проведение); ФайлОстатков.Следующая(); КонецЦикла; ФайлОстатков.ЗакрытьФайл(); |
About the Author
