#1: Нужна помощь по "Клиент-банк" Author: VIDEOSCAN, Location: Крутских Виталий ВладимировичPosted: 25 Aug 2005 10:02 — Здравствуйте!!!
Вопрос мой в первую очередь адресован службе поддержки, но буду очень признателен, если кто то поделится опытом.
Никак не могу найти способ нумеровать строки в выходном файле с платежками. Среди доступных объектов с данными такого, к сожалению, нет. В объектах и функциях внутренного VBS мне также не удалось обнаружить нумерацию строк. Теоретически предполагаю, что можно организовать на VBS цикл типа a=a+1, но вот только сразу вопрос. Непонятно на что цикл можно опереть, я имею ввиду его границы, щаг и тп. В VBS для создания проводок по складу все чётко и очевидно:
DocStock.DocStockDoc.MoveFirst
For nStock=0 To DocStock.DocStockDoc.NumStock-1
-//-
DocStock.DocStockDoc.MoveNext
Next
Подскажите пожалуйста, что можно придумать. Надеюсь кто-нибудь подобное уже делал, так как описание формата файла платёжек мне прислали из департамента финансов г. Москвы.
#2: Author: ВАЛЕРИ БОНДАРЧУК, Location: БОНДАРЧУК ВАЛЕРИЙ ИВАНОВИЧPosted: 30 Aug 2005 17:08 — Добрый день всем.
Как я понял необходимо ставить нумерацию строк, по порядку
например
:1
:2
и т.д.
Так как, количество строк платежки стандартизировано, то и поля импорта стандартизированы и включать счетчик некчему.
Надо описание строки добавить значение кавычках
т.е "01"+PayDoc.NumDoc
Подробнее смотрите ниже.
Попадаем в 1 шаг мастера настройки данных. Многие банки используют шаблон файла в формате 1С бухгалтерии в txt. – формате. Настроим его в этом примере.
Условие : некоторые стандарты формата поддерживают разбиение назначение платежа в несколько строк . В предлагаемом варианте клиент – банка IBank2 фирмы БИФИТ г. Москва, назначение платежа одна строка. Этого варианта и будем придерживаться.
СекцияДокумент=Платежное поручение
Номер=73
Дата=10.03.2005
Сумма=285
ПлательщикСчет=40802810600000000018
ПлательщикИНН=165800026706
ПлательщикКПП=0
Плательщик=ИНН 165800026706\0 Индивидуальный Предприниматель Бондарчук Валерий Иванович
Плательщик1=Индивидуальный Предприниматель Бондарчук Валерий Иванович
ПлательщикРасчСчет=40802810600000000018
ПлательщикБанк1=Филиал ОАО "АКИБАНК"
ПлательщикБИК=049205916
ПлательщикКорсчет=30101810300000000916
ПолучательСчет=40702810662260101579
ПолучательИНН=1658028053
ПолучательКПП=165801001
Получатель=ООО "Телесет"
Получатель1=ООО "Телесет"
ПолучательРасчСчет=40702810662260101579
ПолучательБанк1=ОСБ "Банк Татарстан" №8610
ПолучательБИК=049205603
ПолучательКорсчет=30101810600000000603
ВидПлатежа=Электронно
ВидОплаты=01
СрокПлатежа=10.03.2005
Очередность=6
СтатусСоставителя=
ПоказательКБК=
ОКАТО=
ПоказательОснования=
ПоказательПериода=
ПоказательНомера=
ПоказательДаты=
ПоказательТипа=
НазначениеПлатежа=Оплата за технику согласно сч700 от 01.03.05 в т.ч.: НДС 18% - 43,47 руб.
КонецДокумента
КонецФайла
Итак, существует шапка файла – 11 первых строк,
Обновляемая часть со строки СекцияДокумент до КонецДокумента.
И окончание файла в строке КонецФайла.
Приступим к Настройке
Формат файла выбираем текст
Поле укажите наименование Выбираем Новая настройка экспорта.
Поле укажите размещение файла импорта / экспорта
Пием например c:\implat.txt или другую директорию, которую просит система Клиент – Банк, в нашем случае IBank2 фирмы БИФИТ будет настраиваться от расположения нашего файла на диске.
Нажимаем клавишу Вперед
Шаг второй
Выбираем с разделителями.
Количество строк
Ограничитель текста
Кодировка Windows
Разделитель полей Перевод строки
Формат даты dd.mm.yyyy
Десятичный разделитель ,
Разделитель даты . (точка)
Разделитель времени :
Нажимаем клавишу Вперед
Шаг третий
Укажите структуру файла, так как формат текстовый, для ускорения написания
Имя поля равно номеру по порядку и все типы данных Текст
Получилось 36 строк
Нажимаем клавишу Вперед
Шаг четвертый
Укажите соответствие полей
Так как программируем в VBA, то текст заключаем в двойные кавычки
Поле источник, Поле получатель, Алгоритм
1 “СекцияДокумент=Платежное поручение”
Номер документа 2 "Номер="+PayDoc.NumDoc
Дата документа 3 "Дата="+PayDoc.DateDoc
Сумма документа 4 "Сумма="+trim((format(PayDoc.SummaDoc,"######.00"))) Определяем формат вывода и подавляем пробелы командой trim
Если после экспорта, разделитель оказывается запятой. То необходимо поправить региональные настройки Windows. Панель управления \ Языки и региональные стандарты Разделитель дробной и целой части поставить точку.
Рас.счет плательщика 5 "ПлательщикСчет="+PayDoc.EstimatedNumPlatelshik
Наименование плательщика полное 8 это поле повторяет нижнее не знаю почему, но на всякий случай заносим в текст свой ИНН
"Плательщик=ИНН 165800026706\0 "+PayDoc.NamePlatelshikFull
Наименование плательщика полное 9 "Плательщик1="+PayDoc.NamePlatelshikFull
Наименование банка Плательщика 11 "ПлательщикБанк1="+PayDoc.NameBankPlatelshik
БИК (МФО) банка плательщика 12
"ПлательщикБИК="+PayDoc.BIKBankPlatelshik
Корр/счет банка плательщика 13
"ПлательщикКорсчет="+PayDoc.CorrNumBankPlatelshik
Расчетный счет получателя 14
"ПолучательСчет="+PayDoc.EstimatedNumPoluchatelya
ПлательщикКорсчет=30101810300000000916
ИНН получателя 15
"ПолучательИНН="+PayDoc.INNPoluchatelya
КПП получателя 16
"ПолучательКПП="+PayDoc.CodeKPPPoluchatelya
Наименование получателя полное 17
"Получатель="+PayDoc.NamePoluchatelyaFull
Наименование получателя полное 18
"Получатель1="+PayDoc.NamePoluchatelyaFull
Расчетный счет получателя 19
"ПолучательРасчСчет="+PayDoc.EstimatedNumPoluchatelya
Наименование банка получателя 20
"ПолучательБанк1="+PayDoc.NameBankPoluchatelya
БИК (МФО) банка получателя 21
"ПолучательБИК="+PayDoc.BIKBankPoluchatelya
Корр/счет банка получателя 22
"ПолучательКорсчет="+PayDoc.CorrNumBankPoluchatelya
23
"ВидПлатежа=Электронно"
24
"ВидОплаты=01"
Дата документа 25
"СрокПлатежа="+PayDoc.DateDoc
Очередность платежа 26
"Очередность="+PayDoc.Ocherednost
Статус налогоплательщика 27
"СтатусСоставителя="+PayDoc.StatusNP
Код бюджетной классификации 28
"ПоказательКБК= "+PayDoc.KBK
ОКАТО получателя 29
"ОКАТО="+PayDoc.OKATOPoluchatelya
Показатель основания платежа 30
"ПоказательОснования="+PayDoc.POP
Показатель налогового периода 31
"ПоказательПериода="+PayDoc.PNP
Показатель номера документа 32
"ПоказательНомера="+PayDoc.PND
Показатель даты документа 33
"ПоказательДаты="+PayDoc.PDD
Показатель типа платежа 34
"ПоказательТипа="+PayDoc.PTP
Назначение платежа 35
"НазначениеПлатежа="+PayDoc.Content
36
"КонецДокумента"
Нажимаем клавишу Вперед
Шаг пятый.
Документ системы П/П
Нажимаем клавишу Вперед
Шаг шестой.
Вид операции системы Оплата партнерам с расчетного счета
Нажимаем клавишу Вперед
Шаг седьмой
Задайте текст верхнего колонтитула
Искренне Ваш, Валери де Бондарчук и БЭСТ-Компания г. Казань
#3: Author: VIDEOSCAN, Location: Крутских Виталий ВладимировичPosted: 01 Sep 2005 11:40 — Добрый день, Валерий. Спасибо конешно, за ответ. Но боюсь мне это не подходит. Мне нужно ставить порядковый номер платежки в файле. Вариант "01"+PayDoc.NumDoc для этого не годится.
#4: Author: ВАЛЕРИ БОНДАРЧУК, Location: БОНДАРЧУК ВАЛЕРИЙ ИВАНОВИЧPosted: 02 Sep 2005 09:50 — Добрый день всем.
Выход вижу в написании внешней программы обработки файла экспорта платежек.
Искренне с Вами, Бондарчук Валерий.
