IBAN Беларусь (прости, господи)

Функция РазобратьСтроку(Стр)
    Стр = СтрЗаменить(Стр,";""",";");
    Стр = СтрЗаменить(Стр,""";",";");
    Стр = """"+СтрЗаменить(Стр,";",""",""");
    сп.УдалитьВсе();
    сп.ИзСтрокиСРазделителями(Стр);
    Возврат Сп; 
КонецФункции 

Процедура Загрузить()
	Если  ПустоеЗначение(ВыбФайл)=1 Тогда
		Сообщить("нет файла");
		Возврат;
	КонецЕсли;

	сп = СоздатьОбъект("СписокЗначений");
	ТЗ=СоздатьОбъект("ТаблицаЗначений");
	ТЗ.НоваяКолонка("КодБанка","строка");
	ТЗ.НоваяКолонка("КодВалюты","строка");
	ТЗ.НоваяКолонка("СчетСтарый","строка");
	ТЗ.НоваяКолонка("BIC","строка");
	ТЗ.НоваяКолонка("СчетIBAN","строка");

	Т=СоздатьОбъект("Текст");
	т.Открыть(ВыбФайл);
	
	Для К = 1 По Т.КоличествоСтрок() Цикл
		Если К > Т.КоличествоСтрок() Тогда Прервать; КонецЕсли;
		Стр = Т.ПолучитьСтроку(К);
		Если ПустоеЗначение(Стр) = 1 Тогда Продолжить; КонецЕсли;
		сп = РазобратьСтроку(Стр);
		КодБанка=СокрЛП(сп.ПолучитьЗначение(1));
		КодВалюты=СокрЛП(сп.ПолучитьЗначение(2));
		СчетСтарый=СокрЛП(сп.ПолучитьЗначение(3));
		BIC=СокрЛП(сп.ПолучитьЗначение(4));
		СчетIBAN=СокрЛП(сп.ПолучитьЗначение(5));
		//ТаблЗнач.УстановитьЗначение(к,"BIC",BIC);
		//ТаблЗнач.УстановитьЗначение(к,"СчетIBAN",СчетIBAN);
		//Сообщить("BIC "+BIC+" СчетIBAN "+СчетIBAN);
		ТЗ.НоваяСтрока();
		ТЗ.КодБанка = Формат(КодБанка,"Ч(0)9.0");
		ТЗ.КодВалюты = КодВалюты;
		ТЗ.СчетСтарый = СчетСтарый;
		ТЗ.BIC = BIC;
		ТЗ.СчетIBAN = СчетIBAN;
		
	КонецЦикла;

	
Процедура Выгрузить()

Т=СоздатьОбъект("Текст");

ТаблЗнач.ВыбратьСтроки();
	Пока ТаблЗнач.ПолучитьСтроку() = 1 Цикл
		Если ТаблЗнач.Пометка=МеткиНет Тогда
			Продолжить;
		КонецЕсли;
		КодБанка=СокрЛП(ТаблЗнач.БанкБик);
		Если СтрДлина(КодБанка)<9 Тогда
			Продолжить;
		КонецЕсли;
		КодВалюты=СокрЛП(ТаблЗнач.Контрагент.ОсновнойДоговор.ВалютаВзаиморасчетов.Код);
		Счет=СокрЛП(ТаблЗнач.ОсновнойСчет);
		Если СтрДлина(Счет)<13 Тогда
			Продолжить;
		КонецЕсли;
		Т.ДобавитьСтроку(""+КодБанка+";"+КодВалюты+";"+Счет+";");
	КонецЦикла;
	Файл="e:\Банки2017\Банки.csv";
    Т.Записать(Файл);
КонецПроцедуры // Выгрузить

Процедура Сформировать()
	ТаблЗнач.Очистить();
	
	СпрВал=СоздатьОбъект("Справочник.Валюты");
	СпрВал.НайтиПоКоду(933);
	БелВалюта=СпрВал.ТекущийЭлемент();
	
	Запрос=СоздатьОбъект("Запрос");
	ТекстЗапроса="
	|Без Итогов;
	|Контрагент = Справочник.Контрагенты.ТекущийЭлемент;
	|ОсновнойСчет= Справочник.Контрагенты.ОсновнойСчет.НомерСчета;
	|Валюта= Справочник.Контрагенты.ОсновнойДоговор.ВалютаВзаиморасчетов.ТекущийЭлемент;
	|БанкБик = Справочник.Контрагенты.ОсновнойСчет.Банк.Код;
	|Условие (Валюта=БелВалюта);
	|Группировка Контрагент Без Групп;
	|Группировка ОсновнойСчет;
	|Группировка БанкБик;
	|";
	
	Если Запрос.Выполнить(ТекстЗапроса)=0 Тогда
		Возврат;
	КонецЕсли;
	
	Запрос.Выгрузить(ТаблЗнач);

	ТаблЗнач.ВставитьКолонку("Пометка",1,"Число",4,0,"Пометка",4);
	ТаблЗнач.Заполнить(МеткаЕсть,,,"Пометка");
	ТаблЗнач.ВыводитьПиктограммы("Пометка",1);
	
	ТаблЗнач.Сортировать("ОсновнойСчет-");
КонецПроцедуры