Дата1=Дата(2017,01,23); 
	Дата2=Дата(2017,01,23);  
	
	ФООС=СоздатьОбъект("Справочник.Налоги");
	ФООС.НайтиПоНаименованию("оплата ФООС",,1);
	
	Подоходный=СоздатьОбъект("Справочник.Налоги");
	Подоходный.НайтиПоНаименованию("Подоходный налог с физ. лиц",,1); 
	
	НурОтан=СоздатьОбъект("Справочник.ДвижениеДенежныхСредств");
	НурОтан.НайтиПоНаименованию("перечисление членских партийных взносов",,1);
	
	Проф=СоздатьОбъект("Справочник.ДвижениеДенежныхСредств");
	Проф.НайтиПоНаименованию("перечисление профвзносов",,1); 
	
	ОППВ=СоздатьОбъект("Справочник.ДвижениеДенежныхСредств");
	ОППВ.НайтиПоНаименованию("перечисление ОППВ",,1); 
	
	Док=СоздатьОбъект("Документ.Б_БанковскаяВыписка");
	Док.ВыбратьДокументы(Дата1,Дата2);
	
	Пока Док.ПолучитьДокумент()=1 Цикл 
		Если Док.ПометкаУдаления()=1 Тогда
			Продолжить;
		КонецЕсли;
		Если Док.Проведен()=0 Тогда
			Продолжить;
		КонецЕсли;
		
		ИсходящиеДанные =СоздатьОбъект("ТаблицаЗначений"); 
		//реквизиты документа
		ИсходящиеДанные.НоваяКолонка("Номер");
		ИсходящиеДанные.НоваяКолонка("Дата");
		ИсходящиеДанные.НоваяКолонка("ИсточникФинансирования");
		ИсходящиеДанные.НоваяКолонка("Комментарий");
		ИсходящиеДанные.НоваяКолонка("Содержание");
		ИсходящиеДанные.НоваяКолонка("Организация");
		ИсходящиеДанные.НоваяКолонка("СуммаОперации");
		ИсходящиеДанные.НоваяКолонка("Типовой");
		
		Ссылка=Док;
		ДатаДок=Ссылка.ДатаДок; 
		НомерДок=Ссылка.НомерДок;  
		
		ИстФин="";
		
		ИсходящиеДанные.НоваяСтрока();
		ИсходящиеДанные.Номер=НомерДок;
		ИсходящиеДанные.Дата=ДатаДок;  
		РС=Ссылка.РасчетныйСчет;
		//ИсточникиФинансирования_ПоКоду                    
		Если РС.Наименование="KZ976010221000017644" Тогда
			ИстФин="000000001"; //республиканский 
			ИсходящиеДанные.ИсточникФинансирования= ИстФин;
		ИначеЕсли РС.Наименование="KZ536010221000008445" Тогда
			ИстФин="000000002"; //Внебюджет
			ИсходящиеДанные.ИсточникФинансирования=ИстФин;
		КонецЕсли;
		
		ИсходящиеДанные.Содержание="Банковская выписка № "+НомерДок+" от "+НомерДок+" "+РС;
		ИсходящиеДанные.Организация=1;//там синхронизация по бин который и так прописан в поле поиска
		
		
		ИсходящиеДанные.Типовой=СоздатьОбъект("ТаблицаЗначений"); 
		Типовой=ИсходящиеДанные.Типовой; 
		
		Типовой.НоваяКолонка("Период"); 
		Типовой.НоваяКолонка("Организация");
		Типовой.НоваяКолонка("ИсточникФинансирования");
		Типовой.НоваяКолонка("СчетДт");
		Типовой.НоваяКолонка("СчетКт");
		Типовой.НоваяКолонка("ВалютнаяСуммаДт");
		Типовой.НоваяКолонка("ВалютнаяСуммаКт");
	        Типовой.НоваяКолонка("ВалютаДт");
		Типовой.НоваяКолонка("ВалютаКт");
		Типовой.НоваяКолонка("Сумма");
		Типовой.НоваяКолонка("СубконтоДт");
		Типовой.НоваяКолонка("СубконтоКт"); 
		Типовой.НоваяКолонка("Содержание");  //!
			
		
		
		СуммаОперации=0; 
		 ВременноПродолжить=1;
		
		Док.ВыбратьСтроки();
		Пока Док.ПолучитьСтроку()=1 Цикл 
			КоррСчет="";
			ВалютныйКоррСчет=0;
			Сумма=0; 
			СчетКт="";
			
			//собственно сама проводка в 1С 8:
						
			ДвижениеДенежныхСредств="";
			ДвижениеДенежныхСредств=Док.ДвижениеДенежныхСредств;
			
						
			Если Док.ВидДвижения=Перечисление.ВидыДвиженийПоРасчетномуСчету.Поступление Тогда
				Поступление=1
			ИначеЕсли Док.ВидДвижения=Перечисление.ВидыДвиженийПоРасчетномуСчету.Списание Тогда
				Поступление=0; 
			Иначе 
				Сообщить("Не заполнен вид движения по расчетному счету"); 
				Поступление=9;
			КонецЕсли;
			
			КоррСубконтоТЗ=СоздатьОбъект("ТаблицаЗначений");
			КоррСубконтоТЗ.НоваяКолонка("Ключ");
			КоррСубконтоТЗ.НоваяКолонка("Значение");

			//СчетДт Или Кт
			Если Док.КоррСчет=СчетПоКоду("352") Тогда //авансы выданные  1711/1712
				
				//определим корр счет:
				Если ИстФин="000000001"Тогда //респ
					КоррСчет="1711";
				ИначеЕсли ИстФин="000000002" Тогда//внебюд  
					КоррСчет="1712"; 	
				КонецЕсли;
                                //и его валютный признак
				ВалютныйКоррСчет=1;
				//определим значения для выгрузки:
				Контр=Док.Субконто1;
				БИНИИН=Контр.БИНИИН;
                                Если СтрДлина(БИНИИН)>12 Тогда
                                	Сообщить("У контрагента "+Контр+" БИН не соответствует 12 знакам "+БИНИИН);
                                КонецЕсли;
				//выгрузим значения аналитики: 
				КоррСубконтоТЗ.НоваяСтрока();
				КоррСубконтоТЗ.Ключ="Контрагенты";
				КоррСубконтоТЗ.Значение=Док.Субконто1; 
			
				КоррСубконтоТЗ.НоваяСтрока();
				КоррСубконтоТЗ.Ключ="Договоры";
				КоррСубконтоТЗ.Значение=""+БИНИИН;//(по бину будем искать владельца договора)
			
			
			КонецЕсли;
                       
			//заполним типовой
                        Типовой.НоваяСтрока(); 
			Типовой.СубконтоДт=СоздатьОбъект("ТаблицаЗначений"); 
			//Типовой.СубконтоКт=СоздатьОбъект("ТаблицаЗначений");
			
                        Типовой.Период=ДатаДок;
			Типовой.Организация=1;//там синхронизация по бин который и так прописан в поле поиска
			Типовой.ИсточникФинансирования=ИстФин;
 
			//как раз то что я тестирую сейчас:
			Если Поступление=1 Тогда
				Сумма=Док.Приход;
				
                                //Типовой.СубконтоДт.Очистить();
                                
                                Типовой.СубконтоДт.НоваяКолонка("Ключ");
	                        Типовой.СубконтоДт.НоваяКолонка("Значение");

                                
				Типовой.СубконтоДт.НоваяСтрока();
				Типовой.СубконтоДт.Ключ="СтатьиДвиженияДенежныхСредств";
				Типовой.СубконтоДт.Значение= ДвижениеДенежныхСредств.Наименование;
				//синхронизация и создание ДДС по этому одному полю.
			 
				Если ИстФин="000000001"Тогда //республиканский 
					СчетДт="1031";
                                        
                                        Типовой.СубконтоДт.НоваяСтрока();
                                        Типовой.СубконтоДт.Ключ="ДенежныеСредства";
                                        Типовой.СубконтоДт.Значение= "бюджет KZ976010221000017644";//код синхр 
                                        
                                        Типовой.СубконтоДт.НоваяСтрока();
                                        Типовой.СубконтоДт.Ключ="Программы";
                                        Типовой.СубконтоДт.Значение= "АУП прог.КОМУ (226/052/114)";//"000000018";//код синхр 
                                        

				ИначеЕсли ИстФин="000000002" Тогда //внебюджет
			                СчетДт="1032"; 
                                        
                                        Типовой.СубконтоДт.НоваяСтрока();
                                        Типовой.СубконтоДт.Ключ="ДенежныеСредства";
                                        Типовой.СубконтоДт.Значение= "внебюджет KZ536010221000008445";//код синхр 
                                        
                                        Типовой.СубконтоДт.НоваяСтрока();
                                        Типовой.СубконтоДт.Ключ="Программы";
                                        Типовой.СубконтоДт.Значение= "платные услуги (внебюджет)";//"000000007";//код синхр 
                                        
				КонецЕсли;
				
				 Если ВалютныйКоррСчет=1 Тогда
				 	ВалютнаяСуммаДт=Сумма;
				 	ВалютаДт=1;//поиск по коду который уже стоит
				 	ВалютнаяСуммаКт=Сумма;
				 	ВалютаКт=1;//поиск по коду который уже стоит
				 Иначе  //если корр счет не валютный
				 	ВалютнаяСуммаДт=Сумма;
				 	ВалютаДт=1;//поиск по коду который уже стоит
				 	ВалютнаяСуммаКт=0;
				 	ВалютаКт="";
				 КонецЕсли;
				 
				 //загрузим значение аналитики корр счета, которое уже полностью определено ранее:
				 //Типовой.СубконтоКт.Очистить();
				 //КоррСубконтоТЗ.Выгрузить(Типовой.СубконтоКт); 
				 Типовой.СубконтоКт=КоррСубконтоТЗ;
				 
				 тз = Типовой.СубконтоКт;
				 тз.ВыбратьСтроки();
				 Пока тз.ПолучитьСтроку() = 1 Цикл
				     Сообщить(Шаблон("[тз.НомерСтроки]: [тз.Ключ],  [тз.Значение]"));
				 КонецЦикла;
				 
				 
                                 СчетКт=КоррСчет;
				 
			
				 
			КонецЕсли;
                        
                        Сообщить("Дт "+СчетДт+" Кт "+СчетКт);
			Типовой.СчетДт=СчетДт;
			Типовой.СчетКт=СчетКт;
			Типовой.ВалютнаяСуммаДт=ВалютнаяСуммаДт;
			Типовой.ВалютнаяСуммаКт=ВалютнаяСуммаКт;
			Типовой.ВалютаДт=ВалютаДт;
			Типовой.ВалютаКт=ВалютаКт;
			Типовой.Сумма=Сумма;
			Типовой.Содержание=Док.НазначениеПлатежа;
			
			СуммаОперации=СуммаОперации+Сумма;
		КонецЦикла;	
		
		ИсходящиеДанные.СуммаОперации=СуммаОперации;  
		
		ВыгрузитьПоПравилу(Ссылка,,ИсходящиеДанные,,"ОперацияБухБанк26_02_19");
	КонецЦикла;