1С:Підприємство 8.2 (8.2.13.219)
"Бухгалтерія для України", редакція 1.2.
Розробка конфігурації: "ABBYY Ukraine", 2005-2011 (1.2.3.5)
Читаем DBF и записываем в текстовый файл.
Не получается настроить корректную кодировку текстовых полей в TXT файле, которые импортируются из DBF.
Как настроить кодировку чтения DBF?Вот в каком виде выводится информация в TXTфайл:
**********************
ПлательщикСчет=20681097000659
Плательщик=‚I‹…Љ‘,’‡Ћ‚
ПлательщикБанк=I-”ђ.”.ЏЂ’ ЉЃ"Џђ?‚Ђ’ЃЂЌЉ",Њ.I-”ђЂЌЉI‚.
**********************
ПутьDBF = "C:\jbkl_rec.dbf";
ПутьTXT = "C:\CB_to_1C.txt";
Текст = Новый ТекстовыйДокумент;
БД = Новый XBase;
//БД.Кодировка="ANSI";
БД.ОткрытьФайл(ПутьDBF,,);
Текст.ДобавитьСтроку("_1CClientBankExchange");
Текст.ДобавитьСтроку("ВерсияФормата=1.00");
Текст.ДобавитьСтроку("Кодировка=Windows");
Текст.ДобавитьСтроку("Отправитель=Система 'Клієнт-Банк'");
Текст.ДобавитьСтроку("Получатель=Бухгалтерия для Украины (базова), редакция 1.2");
//Текст.ДобавитьСтроку("СекцияРасчСчет");
Текст.ДобавитьСтроку("ДатаНачала=2011-10-01");
Текст.ДобавитьСтроку("ДатаКонца=2011-10-20");
Текст.ДобавитьСтроку("РасчСчет=26001356326024");
Текст.ДобавитьСтроку("КодВалюты=980");
Текст.ДобавитьСтроку("НачальныйОстаток=0");
Пока БД.Следующая() Цикл
Текст.ДобавитьСтроку("СекцияДокумент=Платежное поручение");
Текст.ДобавитьСтроку("ВидДокумента=Платежное поручение");
Текст.ДобавитьСтроку("Номер="+БД.N_D);
Текст.ДобавитьСтроку("Дата="+БД.DATE);
// Текст.ДобавитьСтроку("ДокументИД="+БД.REF);
Текст.ДобавитьСтроку("Сумма="+БД.SUMMA);
Текст.ДобавитьСтроку("КодВалюты=980");
Текст.ДобавитьСтроку("ПлательщикСчет="+БД.COUNT_A);
Текст.ДобавитьСтроку("Плательщик="+БД.NAME_A);
Текст.ДобавитьСтроку("ПлательщикБанк="+БД.BANK_A);
Текст.ДобавитьСтроку("ПлательщикМФО="+БД.MFO_A);
Текст.ДобавитьСтроку("ПлательщикОКПО="+БД.OKPO_A);
Текст.ДобавитьСтроку("ПолучательСчет="+БД.COUNT_B);
Текст.ДобавитьСтроку("Получатель="+БД.NAME_B);
Текст.ДобавитьСтроку("ПолучательБанк="+БД.BANK_B);
Текст.ДобавитьСтроку("ПолучательМФО="+БД.MFO_B);
Текст.ДобавитьСтроку("ПолучательОКПО="+БД.OKPO_B);
Текст.ДобавитьСтроку("НазначениеПлатежа="+БД.N_P);
Текст.ДобавитьСтроку("КонецДокумента");
КонецЦикла;
Текст.ДобавитьСтроку("КонецФайла");
Текст.Записать(ПутьTXT);
БД.ЗакрытьФайл();