Главная
Новый форум
 FAQFAQ   SearchSearch   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Нужна помощь по "Клиент-банк"

 
Post new topic   Reply to topic   printer-friendly view     Forum Index -> БЭСТ-ОФИС (FreeWare)
View previous topic :: View next topic  
Author Message
VIDEOSCAN



Joined: 24 Aug 2005
Posts: 3
Location: Крутских Виталий Владимирович
Occupation: ЗАО НПК
Interests: Москва

PostPosted: 25 Aug 2005 10:02    Post subject: Нужна помощь по "Клиент-банк" Reply with quote

Здравствуйте!!!
Вопрос мой в первую очередь адресован службе поддержки, но буду очень признателен, если кто то поделится опытом.
Никак не могу найти способ нумеровать строки в выходном файле с платежками. Среди доступных объектов с данными такого, к сожалению, нет. В объектах и функциях внутренного VBS мне также не удалось обнаружить нумерацию строк. Теоретически предполагаю, что можно организовать на VBS цикл типа a=a+1, но вот только сразу вопрос. Непонятно на что цикл можно опереть, я имею ввиду его границы, щаг и тп. В VBS для создания проводок по складу все чётко и очевидно:
DocStock.DocStockDoc.MoveFirst
For nStock=0 To DocStock.DocStockDoc.NumStock-1
-//-
DocStock.DocStockDoc.MoveNext
Next

Подскажите пожалуйста, что можно придумать. Надеюсь кто-нибудь подобное уже делал, так как описание формата файла платёжек мне прислали из департамента финансов г. Москвы.
Back to top
View user's profile Send private message Send e-mail MSN Messenger
ВАЛЕРИ БОНДАРЧУК



Joined: 24 Jul 2002
Posts: 20
Location: БОНДАРЧУК ВАЛЕРИЙ ИВАНОВИЧ


PostPosted: 30 Aug 2005 17:08    Post subject: Reply with quote

Добрый день всем.
Как я понял необходимо ставить нумерацию строк, по порядку
например
:1
:2
и т.д.
Так как, количество строк платежки стандартизировано, то и поля импорта стандартизированы и включать счетчик некчему.
Надо описание строки добавить значение кавычках
т.е "01"+PayDoc.NumDoc
Подробнее смотрите ниже.
Попадаем в 1 шаг мастера настройки данных. Многие банки используют шаблон файла в формате 1С бухгалтерии в txt. – формате. Настроим его в этом примере.
Условие : некоторые стандарты формата поддерживают разбиение назначение платежа в несколько строк . В предлагаемом варианте клиент – банка IBank2 фирмы БИФИТ г. Москва, назначение платежа одна строка. Этого варианта и будем придерживаться.

Посмотрим их пример требования.


1CClientBankExchange
ВерсияФормата=1.01
Кодировка=Windows
Отправитель=Бухгалтерский учет, редакция 4.4
Получатель=Бифит
ДатаСоздания=01.02.2005
ВремяСоздания=15.50.40
ДатаНачала=01.02.2005
ДатаКонца=31.12.2005
РасчСчет=40802810600000000018
Документ=Платежное поручение

СекцияДокумент=Платежное поручение
Номер=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

ИНН Плательщика 6 "ПлательщикИНН="+PayDoc.INNPlatelshik

КПП Плательщика 7 "ПлательщикКПП="+PayDoc.CodeKPPPlatelshik

Наименование плательщика полное 8 это поле повторяет нижнее не знаю почему, но на всякий случай заносим в текст свой ИНН
"Плательщик=ИНН 165800026706\0 "+PayDoc.NamePlatelshikFull

Наименование плательщика полное 9 "Плательщик1="+PayDoc.NamePlatelshikFull

РасчСчет Плательщика 10 "ПлательщикРасчСчет="+PayDoc.EstimatedNumPlatelshik

Наименование банка Плательщика 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
"КонецДокумента"

Нажимаем клавишу Вперед
Шаг пятый.
Документ системы П/П

Нажимаем клавишу Вперед
Шаг шестой.
Вид операции системы Оплата партнерам с расчетного счета

Нажимаем клавишу Вперед
Шаг седьмой
Задайте текст верхнего колонтитула

1CClientBankExchange
ВерсияФормата=1.01
Кодировка=Windows
Отправитель=Бухгалтерский учет, редакция 4.4
Получатель=Бифит
ДатаСоздания=01.02.2005
ВремяСоздания=15.50.40
ДатаНачала=01.02.2005
ДатаКонца=31.12.2005
РасчСчет=40802810600000000018
Документ=Платежное поручение

Задайте текст нижнего колонтитула
КонецФайла

Нажимаем кнопку Готово

Искренне Ваш, Валери де Бондарчук и БЭСТ-Компания г. Казань
Back to top
View user's profile Send private message Send e-mail
VIDEOSCAN



Joined: 24 Aug 2005
Posts: 3
Location: Крутских Виталий Владимирович
Occupation: ЗАО НПК
Interests: Москва

PostPosted: 01 Sep 2005 11:40    Post subject: Reply with quote

Добрый день, Валерий. Спасибо конешно, за ответ. Но боюсь мне это не подходит. Мне нужно ставить порядковый номер платежки в файле. Вариант "01"+PayDoc.NumDoc для этого не годится.
Back to top
View user's profile Send private message Send e-mail MSN Messenger
ВАЛЕРИ БОНДАРЧУК



Joined: 24 Jul 2002
Posts: 20
Location: БОНДАРЧУК ВАЛЕРИЙ ИВАНОВИЧ


PostPosted: 02 Sep 2005 09:50    Post subject: Reply with quote

Добрый день всем.
Выход вижу в написании внешней программы обработки файла экспорта платежек.
Искренне с Вами, Бондарчук Валерий.
Back to top
View user's profile Send private message Send e-mail
Display posts from previous:   
Post new topic   Reply to topic   printer-friendly view     Forum Index -> БЭСТ-ОФИС (FreeWare) All times are GMT + 4 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


Powered by phpBB © phpBB Group

Rambler
Rambler's Top100 Рейтинг@Mail.ru