Здравствуйте. У нас программа 1С УПП 8.2. Я загружаю из DBF файла данные в документ Приходно-кассовый ордер. Подскажите как правильно загрузить данные в табличную часть документа.
ВыбранныйОтветственный = Справочники.Пользователи.НайтиПоНаименованию("Пономаренко");
ВыбраннаяОрганизация = Справочники.Организации.НайтиПоКоду("000000001");
ВыбранныйСчет = Справочники.БанковскиеСчета.НайтиПоКоду("000000007");
ВыбраннаяКасса=Справочники.Кассы.НайтиПоКоду("000000001");
сообщить(" ВыбранныйОтветственный= "+ВыбранныйОтветственный+" ВыбраннаяОрганизация= "+ВыбраннаяОрганизация+" ВыбранныйСчет= "+ВыбранныйСчет );
БД = Новый XBase;
БД.ОткрытьФайл("C:\PKO.DBF");
БД.Первая();
//БД.Перейти(17166);
Пока БД.Следующая() Цикл
// Создать будущий регистратор.
ДатаЗаписи = ТекущаяДата();
Документ = Документы.ПриходныйКассовыйОрдер.СоздатьДокумент();
ВыбранныйКонтрагент = Справочники.Контрагенты.НайтиПоКоду(БД.KONTR);
Документ.Дата = БД.DATA;
Документ.Организация = ВыбраннаяОрганизация;
Документ.Ответственный = ВыбранныйОтветственный;
Документ.Комментарий = "Ввод документов из 1С Комплексной 7.7";
Документ.Касса=ВыбраннаяКасса;
Документ.ОтражатьВБухгалтерскомУчете=1;
Документ.ОтражатьВНалоговомУчете=1;
Документ.ОтражатьВУправленческомУчете=1;
Документ.ОтраженоВОперУчете=1;
Документ.Оплачено=1;
Документ.ПринятоОт=сокрЛП(БД.PRINATO);
Документ.Основание=сокрЛП(БД.OSNOV);
Документ.Контрагент=ВыбранныйКонтрагент;
Документ.СуммаДокумента=БД.SUMMA;
Если БД.NDS="" Тогда
Документ.СтавкаНДС=Перечисления.СтавкиНДС.БезНДС;
иначеЕсли Документ.СтавкаНДС=18 Тогда
Документ.СтавкаНДС=Перечисления.СтавкиНДС.НДС18;
конецесли;
Если сокрЛП(БД.KODOPER)="2111" Тогда
Документ.ВидОперации=Перечисления.ВидыОперацийПКО.ОплатаПокупателя;
ИначеЕсли сокрЛП(БД.KODOPER)="2224" Тогда
Документ.ВидОперации=Перечисления.ВидыОперацийПКО.ПриходДенежныхСредствПрочее;
КонецЕсли;
Если БД.DVIGEN=205 Тогда
ВыбраннаяСтатья=Справочники.СтатьиДвиженияДенежныхСредств.НайтиПоКоду("10101041");
ИначеЕсли БД.DVIGEN=7 Тогда
ВыбраннаяСтатья=Справочники.СтатьиДвиженияДенежныхСредств.НайтиПоКоду("105");
иначе
сообщить("не нашла статью"+БД.DVIGEN);
КонецЕсли;
сообщить(ВыбраннаяСтатья);
Документ.СтатьяДвиженияДенежныхСредств=ВыбраннаяСтатья ;
Документ.СчетОрганизации=ВыбранныйСчет;
Документ.РасшифровкаПлатежа.Добавить();
Если БД.SCHZATR="51" Тогда
Документ.СчетУчетаРасчетовСКонтрагентом=ПланыСчетов.Хозрасчетный.НайтиПоКоду("51");
Документ.СубконтоКт1=ВыбранныйСчет;
Документ.СубконтоКт2=ВыбраннаяСтатья;
//Документ.РасшифровкаПлатежа.СуммаВзаиморасчетов=БД.SUMMA;
иначе
Документ.СчетУчетаРасчетовСКонтрагентом=ПланыСчетов.Хозрасчетный.НайтиПоКоду("60.01");
Документ.СчетУчетаРасчетовСКонтрагентом=ПланыСчетов.Хозрасчетный.НайтиПоКоду("60.01");
Конвертация данных, Обмен, Перенос
