кому интересен код
за код прошу сильно не пинать , так как только начинаю програмировать
//*******************************************
//Это так, для проверки себя
Процедура ПриОткрытии()
КлиентБанк.НоваяКолонка("VIDOP",,,,"Вид операции");
КлиентБанк.НоваяКолонка("DOC_NO");
КлиентБанк.НоваяКолонка("DATE");
КлиентБанк.НоваяКолонка("ACC_A");
КлиентБанк.НоваяКолонка("ACC_B");
КлиентБанк.НоваяКолонка("SUM");
КлиентБанк.НоваяКолонка("BSUM");
КлиентБанк.НоваяКолонка("KURS");
КлиентБанк.НоваяКолонка("FORC");
КлиентБанк.НоваяКолонка("CURRENCY");
КлиентБанк.НоваяКолонка("FL_DK");
КлиентБанк.НоваяКолонка("R_NAME");
КлиентБанк.НоваяКолонка("R_MFO");
КлиентБанк.НоваяКолонка("COMMENT");
КлиентБанк.НоваяКолонка("R_ZIP");
КлиентБанк.НоваяКолонка("IDOPER");
КлиентБанк.НоваяКолонка("DOC_DATE");
КлиентБанк.НоваяКолонка("FL_LIST");
КлиентБанк.НоваяКолонка("KEY");
КлиентБанк.НоваяКолонка("CHAR_R_ZIP");
КлиентБанк.НоваяКолонка("MFO");
КлиентБанк.НоваяКолонка("NAME");
КонецПроцедуры
/*************************************
Процедура СоздатьОбъектБВ()
ДБФ=СоздатьОбъект("XBase");
ДБФ.КодоваяСтраница(1);
ИмяВыбрфайла = "bank.dbf";
ИмяПути = "";
ФС.ВыбратьФайл (0, ИмяВыбрфайла, ИмяПути, "Открыть","*.dbf|*.dbf", , );
ПутьДБ=ИмяПути + ИмяВыбрфайла;
ДБФ.ОткрытьФайл(ПутьДБ);
Если ДБФ.Открыта() = 0 тогда
// Предупреждение("База открыта", 1);
// Иначе
Предупреждение("Несмотгли открыть базу!", 2);
Сигнал();
Возврат;
КонецЕсли;
КоличествоПлатежей=ДБФ.КоличествоПолей();
//Предупреждение(КоличествоПлатежей);
Предупреждение("Импорт выполнен");
Сигнал();
СЛ=ДБФ.Первая();
Пока ДБФ.вКонце()=0 цикл
КлиентБанк.НоваяСтрока();
КлиентБанк.VIDOP=ДБФ.VIDOP;
КлиентБанк.DOC_NO=ДБФ.DOC_NO;
КлиентБанк.DATE=ДБФ.DATE;
КлиентБанк.ACC_A=ДБФ.ACC_A;
КлиентБанк.ACC_B=ДБФ.ACC_B;
КлиентБанк.SUM=ДБФ.SUM;
КлиентБанк.BSUM=ДБФ.BSUM;
КлиентБанк.KURS=ДБФ.KURS;
КлиентБанк.FORC=ДБФ.FORC;
КлиентБанк.CURRENCY=ДБФ.CURRENCY;
КлиентБанк.FL_DK=ДБФ.FL_DK;
КлиентБанк.R_NAME=ДБФ.R_NAME;
КлиентБанк.R_MFO=ДБФ.R_MFO;
КлиентБанк.COMMENT=ДБФ.COMMENT;
КлиентБанк.R_ZIP=ДБФ.R_ZIP;
КлиентБанк.IDOPER=ДБФ.IDOPER;
КлиентБанк.DOC_DATE=ДБФ.DOC_DATE;
КлиентБанк.FL_LIST=ДБФ.FL_LIST;
КлиентБанк.KEY=ДБФ.KEY;
КлиентБанк.CHAR_R_ZIP=ДБФ.CHAR_R_ZIP;
КлиентБанк.MFO=ДБФ.MFO;
КлиентБанк.NAME=ДБФ.NAME;
ДБФ.Следующая();
КонецЦикла;
ДБФ.ЗакрытьФайл();
//******************************************
Выписка= СоздатьОбъект("Документ.БанковскаяВыписка");
Выписка.Новый();
//Выписка.Примечание="тест";//тестовая проверка заполнение реквизита "Примечание"
КлиентБанк.ВыбратьСтроки();
//*******************Установка значения фирмы
Фирм=СоздатьОбъект("Справочник.Фирмы");
Если Фирм.НайтиПоНаименованию("НазваниеТОВ",0,1)=1 Тогда
Выписка.Фирма=Фирм.ТекущийЭлемент();
КонецЕсли;
//*******************************************
//**********Установка значения расчетный счет
РасС=СоздатьОбъект("Справочник.НашиДенежныеСчета");
Если РасС.НайтиПоНаименованию("БІЗ",0,1)=1 Тогда
Выписка.РСчет=РасС.ТекущийЭлемент();
КонецЕсли;
Если Выписка.РСчет.Выбран()=1 тогда
Выписка.Валюта = Выписка.РСчет.Валюта;
Выписка.СчетУчета = Выписка.РСчет.СчетУчета;
КонецЕсли;
Пока КлиентБанк.ПолучитьСтроку()=1 Цикл
Выписка.НоваяСтрока();
Выписка.НомерДокумента=КлиентБанк.DOC_NO;
Выписка.Содержание=КлиентБанк.COMMENT;
Выписка.Содержание=СтрЗаменить(Выписка.Содержание, "ї","є"); //замена кривых украинских букв на нормальные
Выписка.Содержание=СтрЗаменить(Выписка.Содержание, "ў","і"); //замена кривых украинских букв на нормальные
Выписка.Содержание=СтрЗаменить(Выписка.Содержание, "","ї"); //замена кривых украинских букв на нормальные
Выписка.СуммаСНДС=КлиентБанк.SUM;
Выписка.СуммаПлатежа =КлиентБанк.BSUM;
//***************Задача1*****************
//Установить, в поле банковской выписки, вид движения - поступление/выплата
Если КлиентБанк.FL_DK =0 Тогда
Выписка.ВидДвижения = Перечисление.ВидыДвиженийПоРасчетномуСчету.Поступление;
Выписка.НазначитьТип("ВидПриходаРасхода","Перечисление.ВидыПриходаДенег");
Выписка.ВидПриходаРасхода=Перечисление.ВидыПриходаДенег.ВыручкаОтРеализации
;
ИначеЕсли КлиентБанк.FL_DK =1 тогда
Выписка.ВидДвижения = Перечисление.ВидыДвиженийПоРасчетномуСчету.Списание;
Выписка.НазначитьТип("ВидПриходаРасхода","Перечисление.ВидыРасходаДенег");
Выписка.ВидПриходаРасхода=Перечисление.ВидыРасходаДенег.НаВедениеХозДеятель
ности
;
КонецЕсли;
//***************
КонецЦикла;
Выписка.Записать();
КонецПроцедуры
банковская выписка, журнал проводок 
30.11.10, 16:10
Подождем телепатов 
