[Logo] Форум ПАРУС
Выгрузка в Россельхозбанк  XML
Индекс форума » 7.хх Зарплата и Кадры
Автор Сообщение
TANKA
Новичок

Зарегистрирован: 08.11.2012 17:14:27
Сообщений: 125
Оффлайн

Добрый день!
Большая просьба поделиться выгрузкой в Россельхозбанк, если таковая у кого-нибудь имеется!
DANILENKO_M_A
Новичок

Зарегистрирован: 15.11.2012 11:02:45
Сообщений: 5
Оффлайн

+1
SAFRONOV_YU_I
Новичок

Зарегистрирован: 20.01.2014 13:32:09
Сообщений: 9
Оффлайн

Или как вставить ИНН в стандартный отчет Выгрузка перечислений в Банк в UserForms, пробовал так
Дата date(ZTRANSF.YEAR,ZTRANSF.MONTH,1)
Dimension __pReciver(1,1)__pTaskList(9,2)
__pReceiver(1,1) = "ИНН"
__pReceiver(2,1) = "ПРЗ"
__pReceiver(3,1) = "ФАМ"
__pReceiver(4,1) = "ИМЯ"
__pReceiver(5,1) = "ОТЧ"
__pReceiver(6,1) = "ДТП"
__pReceiver(7,1) = "ДСР"
__pReceiver(8,1) = "ДНМ"
__pReceiver(9,1) = "ДРД"
__pReceiver(10,1) = "ПОЛ"
__pTaskLIst = ""
__pTaskLIst(1,1) = "ФАМ"
__pTaskLIst(2,1) = "ИМЯ"
__pTaskLIst(3,1) = "ОТЧ"
__pTaskLIst(4,1) = "ДТН"
__pTaskLIst(5,1) = "ДСР"
__pTaskLIst(6,1) = "ДНМ"
__pTaskLIst(7,1) = "ДДВ"
__pTaskLIst(8,1) = "ДВД"
__pTaskLIst(9,1) = "ИНН"
__pDocData = ""
__pSumma = 0
Банк allt(Org.Name)
Номер nStr
ThisForm.ThisFormData.ContragentPrint(FORMPRINT.ORGTO_RN,@__pTaskList)
__pDocData = alltrim(__pTaskLIst(4,2))+ iif(!empty(__pTaskLIst(4,2)),", ","") + alltrim(__pTaskLIst(5,2))+ iif(!empty(__pTaskLIst(5,2)),", ","") + alltrim(__pTaskLIst(6,2))+iif(!empty(__pTaskLIst(6,2)),",","")
__pDocData = substr( __pDocData,1,rat(",",__pDocData)-1)+iif(!empty(__pTaskLIst(7,2)) or !empty(__pTaskLIst(8,2)),", выдан ","")+ alltrim(__pTaskLIst(8,2))+iif(!empty(__pTaskLIst(8,2)) and !empty(__pTaskLIst(7,2)),", ","")
ФИО rtrim(__pTaskLIst(1,2))+ " " + rtrim(__pTaskLIst(2,2))+ " " + rtrim( __pTaskLIst(3,2))
Документ __pDocData+iif(!empty(__pTaskLIst(7,2)),transform(__pTaskLIst(7,2)),"")
Лицевой_счет ThisForm.ThisFormData.BankRecvPrint(FORMPRINT.ORGTO_RN+FORMPRINT.BANKTO_RN,"БРС")
Сумма FORMPRINT.SUM
__pSumma = __pSumma + FORMPRINT.SUM
ИНН left(__Reciver(1,2),12)
Пишет Ошибка формата файла
Делаю из Перечислений-Печать настраиваемых форм
[Email]
SAFRONOV_YU_I
Новичок

Зарегистрирован: 20.01.2014 13:32:09
Сообщений: 9
Оффлайн

Вот так понаглядней будет
Дата date(ZTRANSF.YEAR,ZTRANSF.MONTH,1) Header
Dimension __pReciver(1,1)__pTaskList(9,2) Header
"__pReceiver(1,1) = ""ИНН""" Header
"__pReceiver(2,1) = ""ПРЗ""" Header
"__pReceiver(3,1) = ""ФАМ""" Header
"__pReceiver(4,1) = ""ИМЯ""" Header
"__pReceiver(5,1) = ""ОТЧ""" Header
"__pReceiver(6,1) = ""ДТП""" Header
"__pReceiver(7,1) = ""ДСР""" Header
"__pReceiver(8,1) = ""ДНМ""" Header
"__pReceiver(9,1) = ""ДРД""" Header
"__pReceiver(10,1) = ""ПОЛ""" Header
"__pTaskLIst = """"" Header
"__pTaskLIst(1,1) = ""ФАМ""" Header
"__pTaskLIst(2,1) = ""ИМЯ""" Header
"__pTaskLIst(3,1) = ""ОТЧ""" Header
"__pTaskLIst(4,1) = ""ДТН""" Header
"__pTaskLIst(5,1) = ""ДСР""" Header
"__pTaskLIst(6,1) = ""ДНМ""" Header
"__pTaskLIst(7,1) = ""ДДВ""" Header
"__pTaskLIst(8,1) = ""ДВД""" Header
"__pTaskLIst(9,1) = ""ИНН""" Header
"__pDocData = """"" Header
__pSumma = 0 Header
Банк allt(Org.Name) Header
Номер nStr Spec ThisForm.ThisFormData.ContragentPrint(FORMPRINT.ORGTO_RN,@__pTaskList) Spec
"__pDocData = alltrim(__pTaskLIst(4,2))+ iif(!empty(__pTaskLIst(4,2)),"", "","""") + alltrim(__pTaskLIst(5,2))+ iif(!empty(__pTaskLIst(5,2)),"", "","""") + alltrim(__pTaskLIst(6,2))+iif(!empty(__pTaskLIst(6,2)),"","","""")" Spec
"__pDocData = substr( __pDocData,1,rat("","",__pDocData)-1)+iif(!empty(__pTaskLIst(7,2)) or !empty(__pTaskLIst(8,2)),"", выдан "","""")+ alltrim(__pTaskLIst(8,2))+iif(!empty(__pTaskLIst(8,2)) and !empty(__pTaskLIst(7,2)),"", "","""")" Spec
ФИО "rtrim(__pTaskLIst(1,2))+ "" "" + rtrim(__pTaskLIst(2,2))+ "" "" + rtrim( __pTaskLIst(3,2))" Spec
Документ "__pDocData+iif(!empty(__pTaskLIst(7,2)),transform(__pTaskLIst(7,2)),"""")" Spec
Лицевой_счет "ThisForm.ThisFormData.BankRecvPrint(FORMPRINT.ORGTO_RN+FORMPRINT.BANKTO_RN,""БРС"")" Spec
Сумма FORMPRINT.SUM Spec
__pSumma = __pSumma + FORMPRINT.SUM Spec
ИНН left(__Reciver(1,2),12) Spec
[Email]
NICKM
Пользователь

Зарегистрирован: 06.11.2012 00:12:16
Сообщений: 763
Оффлайн

SAFRONOV_YU_I wrote:ИНН left(__Reciver(1,2),12)


__pReciver

Это сообщение было изменено 1 раз. Последнее изменение было в 24.01.2014 15:54:07

[Email]
SAFRONOV_YU_I
Новичок

Зарегистрирован: 20.01.2014 13:32:09
Сообщений: 9
Оффлайн

Поменял
Все равно пишет "Не известный формат файла", до изменения файла ( без ИНН ) все ОК
[Email]
NICKM
Пользователь

Зарегистрирован: 06.11.2012 00:12:16
Сообщений: 763
Оффлайн

ага, бывает, что вот так просто пересохраняя файл можно нарваться на такой глюк,

попробуйте во внутренний редактор Паруса, пересохраните в Excel 95/95, проверьте наличие объединенных ячеек

Это сообщение было изменено 1 раз. Последнее изменение было в 26.01.2014 09:05:19

[Email]
SAFRONOV_YU_I
Новичок

Зарегистрирован: 20.01.2014 13:32:09
Сообщений: 9
Оффлайн

не помогает, может сбросить файл, только куда, заранее благодарен
[Email]
NICKM
Пользователь

Зарегистрирован: 06.11.2012 00:12:16
Сообщений: 763
Оффлайн

ну прям здесь и прикрепите
[Email]
WELGA
Пользователь

Зарегистрирован: 06.11.2012 13:32:11
Сообщений: 311
От:
Оффлайн

Может подойдет
 Имя файла 2013.ZIP [Disk] Скачать
 Описание Описание отсутствует
 Размер файла 7 Kbytes
 Загружено:  39 раз(а)

[Email]
SAFRONOV_YU_I
Новичок

Зарегистрирован: 20.01.2014 13:32:09
Сообщений: 9
Оффлайн

ИНН тоже не вытаскивает
[Email]
 
Индекс форума » 7.хх Зарплата и Кадры
Перейти: