"Процедура Сформировать()<br> <br> Б= СоздатьОбъект("XBase"); <br> Б.ДобавитьПоле("A",2,30,0);<br> Б.ДобавитьПоле("B",2,30,0);<br> Б.ДобавитьПоле("C",2,30,0);<br> Б.ДобавитьПоле("D",2,30,0);<br> Б.ДобавитьПоле("E",2,30,0);<br> Б.ДобавитьПоле("F",2,30,0);<br> Б.ДобавитьПоле("G",2,30,0); <br> Ф = "C:\ОбменСБ\bk"+Дог+НомР; <br> Б.КодоваяСтраница(1);<br> Б.СоздатьФайл(Ф); <br> <br> Если Б.Открыта()= 1 тогда<br> //Заголовок<br> Б. Добавить();<br> Б.A=Банк;<br> Б.Записать(); <br> Б. Добавить();<br> Б.A="К платежному поручению №";<br> Б.B=НомПП;<br> Б.C="от";<br> Б.D=Строка(ДатаПП);<br> Б.Записать(); <br> Б. Добавить();<br> Б.A="Зачисление";<br> Б.B="01";<br> Б.Записать(); <br> Б. Добавить();<br> Б.A="Наименование, ОГРН";<br> Б.B=СокрЛП(Константа.НазваниеОрганизации);//+СокрЛП(Константа.ОГРН);<br> Б.C=РС;<br> Б.Записать(); <br> Б. Добавить();<br> Б.A="По договору";<br> Б.B=Дог;<br> Б.C="от";<br> Б.D=Строка(ДатаДог);<br> Б.Записать(); <br> Б. Добавить();<br> Б.A="№ п/п";<br> Б.B="Номер счета";<br> Б.C="Фамилия";<br> Б.D="Имя";<br> Б.E="Отчество";<br> Б.F="Сумма";<br> Б.G="Примечание";<br> Б.Записать();<br> //Сотрудники<br> Если Ведомость.Выбран()=1 тогда<br> Ведомость.ВыбратьСтроки();<br> Нпп=1; <br> Итого=0.00;<br> Пока Ведомость.ПолучитьСтроку()=1 цикл<br> Б.Добавить();<br> Б.A= Сокрлп(строка(нпп));<br> Б.B=СокрЛП(Ведомость.Сотрудник.НомерЗарплатногоСчета); <br> ФИО=Ведомость.Сотрудник.Наименование;<br> Ф="""";Им="""";О="""";<br> ПолучитьФИОСотрудника(ФИО,Ф,Им,О);<br> Б.C=Ф;<br> Б.D=Им;<br> Б.E=О;<br> Б.F=Формат(Ведомость.Сумма,"Ч15.2");<br> Нпп=Нпп+1;<br> Итого = Итого+Ведомость.Сумма;<br> Б.Записать(); <br> КонецЦикла;<br> //Итого<br> Б.Добавить();<br> Б.B="Итого";<br> Б.F=Формат(Итого,"Ч15.2");<br> б.Записать();<br> КонецЕсли;<br> КонецЕсли; <br> Б.первая();<br> Сообщить(Б.A+"!"+Б.B+"!"+Б.C+"!"+Б.D+"!"+Б.E+"!"+Б.F+"!"+Б.G+"!");<br> <br> Пока б.Следующая()=1 цикл<br> Сообщить(Б.A+"!"+Б.B+"!"+Б.C+"!"+Б.D+"!"+Б.E+"!"+Б.F+"!"+Б.G+"!");<br> КонецЦикла; <br> Б.ЗакрытьФайл(); <br>КонецПроцедуры"