Доведение до ума обработок "1С-Минск". Обработка загрузки выписки из программы "Клиент-Банк".

	Процедура ББ_ЗагрузитьВыпискуР(Текст,ном)
		НоваяСтр = ТЧЗагрузки.Добавить();
		Стр=Текст.ПолучитьСтроку(ном);
		СчетОрганизации=НайтиРасчетныйСчет(Сред(Стр,17,13),Организация,"974");
		НоваяСтр.СчетОрганизации = СчетОрганизации;
		ДатаВып=Лев(Стр,10);  
		СтДатаДок=ФорматДаты(ДатаВып);
		НоваяСтр.ДатаДок=СтДатаДок;
		НоваяСтр.НомерДок=Сред(Стр,11,6);
		НоваяСтр.ТипОперации=Сред(Стр,83,2);
		НоваяСтр.НазначениеПлатежа=Сред(Стр,139,286);
		Содержание="";
		НоваяСтр.СчетКонтрИзФайла=Сред(Стр,39,13);
		Если Число(Сред(Стр,53,15))>0 тогда
			НоваяСтр.СуммаДебет=Число(Сред(Стр,53,15));
			НоваяСтр.СуммаКредит=0;
		ИначеЕсли Число(Сред(Стр,70,15))>0 тогда	
			НоваяСтр.СуммаКредит=Число(Сред(Стр,70,15)); 
			НоваяСтр.СуммаДебет=0;
		КонецЕсли;	
		НоваяСтр.УННКонтрИзФайла = Сред(Стр,534,9);
		НоваяСтр.ИмяКонтрагентаИзФайла = Сред(Стр,85,36);
		КодБ = Сред(Стр,30,9);
		НоваяСтр.КодБ=КодБ;
		Контр=НайтиКонтрагентаПоИННЛибоПоРС(СокрЛП(НоваяСтр.УННКонтрИзФайла),СокрЛП(НоваяСтр.СчетКонтрИзФайла));
		Если Контр<>Ложь Тогда   //Нашли контрагента по УНН или по РС		
			Если Контр<>"" Тогда
				НоваяСтр.Контрагент=Контр;					
			КонецЕсли; 
		КонецЕсли; 		
	КонецПроцедуры

	Процедура ВыгрузитьПП_БеларусБанк(ПотокВыгрузки,СтрокаСекции)
		ДатаДокумента =Формат(СтрокаСекции.Дата,"ДФ=dd.MM.yyyy");
		Плательщик=ВРЕГ(СокрЛП(Организация.НаименованиеПолное))+" РБ";
		Получатель=ВРЕГ(СокрЛП(СтрокаСекции.Контрагент));
		
		ПотокВыгрузки.ДобавитьСтроку("12"+(СокрЛП(СтрЗаменить(СтрокаСекции.Номер,Символы.НПП,""))));
		ПотокВыгрузки.ДобавитьСтроку("410");
		
		ПотокВыгрузки.ДобавитьСтроку("51BYR");
		Сумм=Формат(СтрокаСекции.СуммаДокумента,"ЧЦ=15; ЧДЦ=2; ЧРД=,; ЧГ=");
		ПотокВыгрузки.ДобавитьСтроку("52"+Сумм);
		ПотокВыгрузки.ДобавитьСтроку("61"+СокрЛП(БанковскийСчет.НомерСчета));
		Банк2=Врег(СокрЛП(СтрЗаменить(СтрокаСекции.КонтрагентБанк,"№","N"))); 
		Банк2=Врег(СокрЛП(СтрЗаменить(Банк2,Символ(171),""""))); 
		Банк2=Врег(СокрЛП(СтрЗаменить(Банк2,Символ(187),""""))); 
		ПотокВыгрузки.ДобавитьСтроку("82"+Банк2);                    
		ПотокВыгрузки.ДобавитьСтроку("81"+СокрЛП(СтрокаСекции.КонтрагентБИКБанка));
		ПотокВыгрузки.ДобавитьСтроку("91"+СокрЛП(Строка(СтрокаСекции.КонтрагентНомерСчета)));
		ПотокВыгрузки.ДобавитьСтроку("92"+СокрЛП(Строка(СтрокаСекции.КонтрагентИНН)));
		Клиент=Получатель;
		ПотокВыгрузки.ДобавитьСтроку("93"+ВРЕГ(Лев(Клиент,120)));
		
		Содержание=СокрЛП(СтрокаСекции.НазначениеПлатежа);
		Содержание=ВРЕГ(СтрЗаменить(Содержание,"/"," "));
		Содержание=стрЗаменить(Содержание,"№","N");
		Содержание=стрЗаменить(Содержание,":"," ");
		Содержание=стрЗаменить(Содержание,Символ(160),"");//заменили пробел в юникоде
		Содержание=стрЗаменить(Содержание,Символ(10)," ");//заменили перевод строки
		ПотокВыгрузки.ДобавитьСтроку("A1"+Лев(Содержание,140)); 
		ПотокВыгрузки.ДобавитьСтроку("A2"+Сред(Содержание,141,96));
		ПотокВыгрузки.ДобавитьСтроку("A4"+СокрЛП(Строка(Формат(СтрокаСекции.ОчередностьПлатежа,"ЧЦ=2"))));
		
		//если счет получателя налоговый, заполнять A5
		Если Лев(СокрЛП(СтрокаСекции.КонтрагентНомерСчета),4)="3602" Тогда //признак "налоговости" счета-получателя
			НазнПлатежа=СокрЛП(СтрокаСекции.НазначениеПлатежа);
			Если СокрЛП(СтрокаСекции.Документ.КодПлатежа)="03511" Тогда         //это ФСЗН, код платежа 03511
				ПотокВыгрузки.ДобавитьСтроку("A5"+СокрЛП(СтрокаСекции.Документ.КодПлатежа));
				ПотокВыгрузки.ДобавитьСтроку("A6");
			ИначеЕсли СокрЛП(СтрокаСекции.Документ.КодПлатежа)<>"" Тогда //это налоги
				ПотокВыгрузки.ДобавитьСтроку("A5"+СокрЛП(СтрокаСекции.Документ.КодПлатежа));
				ПотокВыгрузки.ДобавитьСтроку("A6");
				ПотокВыгрузки.ДобавитьСтроку("A7");  //срок платежа - только для налогов но не очень понятно откуда его брать
			КонецЕсли;
		КонецЕсли;	
		Если СтрокаСекции.Документ.РасходыПоПереводу = 1 Тогда 
			РасХоды="NOD"; //за счет неизвестно кого. см документацию на банковский клиент
		ИначеЕсли СтрокаСекции.Документ.РасходыПоПереводу = 2 Тогда
			РасХоды="OUR"; //за счет плательщика
		ИначеЕсли СтрокаСекции.Документ.РасходыПоПереводу = 3 Тогда
			РасХоды="BEN"; //за счет бенефициара
		Иначе
			РасХоды="SHA"; //за счет обоих двух
		КонецЕсли;
		ПотокВыгрузки.ДобавитьСтроку("B1"+РасХоды);
		ПотокВыгрузки.ДобавитьСтроку("~");
		
		
	КонецПроцедуры