Форум казахстанского налогоплательщика

Сижу очищаю жёсткий диск от накопившегося хлама. Ковыряясь в старых обработках нашёл одну, которая покажется интересной разработчикам 1С.
Преамбула:
Сидели мы как-то в компании, выпивали. И ко мне обратилась знакомая бухгалтер с просьбой: не мог бы я подумать на тему того, чтобы сделать процесс внесения п/п в систему Банк-клиент из 1С - автоматическим. Тогда, будучи под хмельком, я отшутился. Несколько позже я заинтересовался этой проблемой, поковырявшись с часок с 1С я нашел там обработку для банка ТуранАлем (2006 год), однако мой бухгалтер обслуживался в ЦеснаБанке, и формат выдаваемый этой обработкой не подходил для клиентской версии банка Цесна.
Я тогда обратился к своей знакомой с просьбой посмотреть эту программу. Досконально её изучив, обнаружил в этой системе форматы всех импортируемых документов, типы и длины импортируемых полей. Дальше было дело техники, потребовалось 20 минут, чтобы написать обработку при помощи которой легко и не принуждённо можно вносить платежные поручения в программу Банк-клиент.
Обработка настолько мала, что могу привести её текст тут

Код: Выделить всё

//*******************************************
Функция ДополнитьПробелами(стрВыгрузки,ДлинаСтроки,ДобавлятьСПереди=0)
   стрВыгрузки=СокрЛП(стрВыгрузки);
   Результ="";
   Если СтрДлина(стрВыгрузки) > ДлинаСтроки Тогда
       Результ=Лев(стрВыгрузки,ДлинаСтроки);
   Иначе
        стрПробел="";
       Для ИндексПробела = 1 По ДлинаСтроки-СтрДлина(стрВыгрузки) Цикл
           стрПробел=стрПробел+" ";
       КонецЦикла;
         Результ=?(ДобавлятьСПереди = 0,стрВыгрузки+стрПробел,стрПробел+стрВыгрузки);
   КонецЕсли;   
    Возврат Результ;
КонецФункции

//*******************************************
Процедура Сформировать() 
   Перем ИмяФайла,ИмяКаталога;
   ИмяКаталога="F:\Мои документы";
   ИмяФайла = глПредставлениеДокумента(ПлатежноеПоручение);
    ФС.ВыбратьФайл(1,ИмяФайла,ИмяКаталога,"Выберите файл для выгрузки платежки","Текст (*.txt) |*.txt");
   СтрокаВыгрузки=Строка(ДатаГод(ПлатежноеПоручение.ДатаДок))+?(СтрДлина(СокрЛП(Строка(                  ДатаМесяц(ПлатежноеПоручение.ДатаДок))))=1,"0"+СокрЛП(Строка(ДатаМесяц(               ПлатежноеПоручение.ДатаДок))),СокрЛП(Строка(ДатаМесяц(
               ПлатежноеПоручение.ДатаДок))))+?(СтрДлина(СокрЛП(Строка(ДатаЧисло(               ПлатежноеПоручение.ДатаДок))))=1,"0"+СокрЛП(Строка(ДатаЧисло(               ПлатежноеПоручение.ДатаДок))),СокрЛП(Строка(ДатаЧисло(               ПлатежноеПоручение.ДатаДок))))+
ДополнитьПробелами(ПлатежноеПоручение.БанковскийСчет.БанкОрганизации.Код,9)+            ДополнитьПробелами(ПлатежноеПоручение.БанковскийСчет.Номер,9)+  ДополнитьПробелами(ПлатежноеПоручение.Контрагент.ПолноеНаименование,150)+
ПлатежноеПоручение.Контрагент.РНН+ДополнитьПробелами(
ПлатежноеПоручение.РасчетныйСчетКонтрагента.Банк.Код,9)+
ДополнитьПробелами(ПлатежноеПоручение.РасчетныйСчетКонтрагента.Банк.Наименование,100)+
ДополнитьПробелами(ПлатежноеПоручение.РасчетныйСчетКонтрагента.НомерСчета,9)+
ДополнитьПробелами(Строка(ПлатежноеПоручение.Сумма),15,1)+
ДополнитьПробелами(ПлатежноеПоручение.Содержание,250)+
?(ПустоеЗначение(ПлатежноеПоручение.КодНазначенияПлатежа)=0,
ПлатежноеПоручение.КодНазначенияПлатежа.Код,ДополнитьПробелами("",3))+
?(ПустоеЗначение(ПлатежноеПоручение.КодБюджетнойКласификации)=0,
ПлатежноеПоручение.КодБюджетнойКласификации.Код,ДополнитьПробелами("",6))+
ДополнитьПробелами(ПлатежноеПоручение.Организация.Руководитель.Получить(
ПлатежноеПоручение.ДатаДок).Наименование,35)+ДополнитьПробелами(
ПлатежноеПоручение.Организация.ГлавныйБухгалтер.Получить(
ПлатежноеПоручение.ДатаДок).Наименование,35)+ДополнитьПробелами(Строка(
ПлатежноеПоручение.СтавкаНДС.Ставка),6,1)+ДополнитьПробелами(Строка(
ПлатежноеПоручение.Организация.КБЕ),2)+ДополнитьПробелами(Строка(
ПлатежноеПоручение.Контрагент.КБЕ),2)+"1"+ДополнитьПробелами(Формат(
               ПлатежноеПоручение.СуммаНДС,"Ч015,2"),15,1);
   ФайлВыгрузки = СоздатьОбъект("Текст");
   ФайлВыгрузки.ДобавитьСтроку(СтрокаВыгрузки);
   ФайлВыгрузки.Записать(ИмяКаталога+ИмяФайла);
   Предупреждение("Готово!!!");
   Если ОткрыватьФайлПослеВыгрузки = 1 Тогда
        ЗапуститьПриложение(ИмяКаталога+ИмяФайла);
   КонецЕсли;
КонецПроцедуры

Gosti писал(а):сделать процесс внесения п/п в систему Банк-клиент из 1С - автоматическим

Поправлю немного. Обработки, как в примере, производят процесс экспорта платёжного поручения из 1С в какой-либо промежуточный файл. Файл этот затем импортируется в банк-клиент. Такой вот механизм получается. Можно также выгружать сразу несколько платежек в один файл, но не все банк-клиенты имеют возможность загружать платежки списком.

Gosti писал(а):Дальше было дело техники, потребовалось 20 минут, чтобы написать обработку при помощи которой легко и не принуждённо можно вносить платежные поручения в программу Банк-клиент.

Платежки дело хорошее. Но бухам больше нужно чтоп поступившие выписки разносились в 1С.
А платежки они и сами не спеша вобьют в банк-клиент.. Еще и дважды перепроверят при этом.

RADUS писал(а):А платежки они и сами не спеша вобьют в банк-клиент.. Еще и дважды перепроверят при этом.

Проблема стояла именно в сокращении времени на внесение данных в систему Банк-Клиент, которая была успешно решена.

Поправлю немного. Обработки, как в примере, производят процесс экспорта платёжного поручения из 1С в какой-либо промежуточный файл.

Разумеется, можно в принципе было сделать и прямое внесение данных в ПО Банк-Клиент, но использование хуков посчитал невыгодным решением в силу дороговизны исполнения и отсутствия времени на выполнение этой задачи.

Странно Сколько работаю с 1С, у бухгалтеров на первом месте всегда стоял импорт выписок в 1С, с платежками как раз наоборот. Из многочисленных клиентов, может человек 5 используют экспорт платежного поручения...

Читай внимательно первый пост Дело было по - пьяни

Извините.а разве существует такая возможность,из Банк-Клиенты,выписки импортировать в 1С,я не понела?

Оксаночкаа писал(а):Извините.а разве существует такая возможность,из Банк-Клиенты,выписки импортировать в 1С,я не понела?

Конечно существует. На сегодня в типовых конфигурациях от 1С предусмотрена возможность двухстороннего обмена с системами банк-клиент банков БТА (БанкТуранАлем) и Народный Банк Казахстана. Для остальных банков существуют ПЛАТНЫЕ услуги специалистов, дорабатывающих программу 1С для обмена с банк-клиентом.

Обалдеть! мне установили 1С 8,и я немногов шоке от нее,там выписки банка на каждое движение надо заводить отдельный документ. я в цесна банке обслуживаюсь. а если не секрет то какие еще фозможности есть м/у 1с и БК.кроме пенсионный и соц отчислений.

RADUS писал(а):А платежки они и сами не спеша вобьют в банк-клиент..

Fyodor писал(а):с платежками как раз наоборот.

У меня есть компания, в которой в день до 30 платёжек проходит исходящих. Для них этот вопрос был очень актуален.

shurik_kz писал(а):

RADUS писал(а):А платежки они и сами не спеша вобьют в банк-клиент..

Fyodor писал(а):с платежками как раз наоборот.

У меня есть компания, в которой в день до 30 платёжек проходит исходящих. Для них этот вопрос был очень актуален.

Ну так именно такие компании и используют экспорт, а вот среднему бизнесу в большинстве своем неактуально