Галактика в вопросах и ответах

Добрый день, коллеги!
Кто-нибудь уже столкнулся со следущей проблемой:
в новых версиях "клиентов банков" новые поля платежек (101, 104-110 в нумерации галактики) нужно выводить отдельно.
В галактике это одно поле PLPOR.TAX
Формулы, разбирающие эту строку, явно в 200 символов не уложатся.
Какие предложения?
неужели единственный вариант - жесткий формат строки со значениями полей, разделенными ";" по количеству символов каждого поля, т.е.
1 поле - 4 символа
2 поле - 15 символов и т.д.
и дальше вырезать substr?

Возможно и без кол-ва символов просто разделитель ";"

Максим! А ты смог выцепить КПП получателя? в каком поле оно находится?
И еще 6 строки назначения в списке-то нет?

Для HOPE:

Поля которые отсутствуют в списке задаются по такой методике - выбираешь "Пустое поле" и в колонке формула пишешь, в зависимости от потребностей (можно анализировать, если в платежке пусто, то брать из каталога организаций, поэтому привожу все возможные поля):

Из дополнительной информации к платежке:
КПП плательщика PLPOR.DENOSCH2
КПП получателя PLPOR.DENOSCH3

Из каталога организаций:
КПП плательщика ORGPLAT.KODPLATNDS
КПП получателя ORGPOL.KODPLATNDS

6 строка назначения - это PLPOR.TAX

Вопрос Gege:

есть возможность вырезать поле из списка, разделенного ";" по номеру?
Например строка "11;2222222;333;4444;55555"
Как мне получить:
Поле №1
Поле №2
.......
???

У нас файл экспорта имеет строгий формат: строки длиной 806 символов. Как это настроить для экспорта? Приходится извращаться всяко...
В редакторе формы работает только строка длиной 255 символов. Это как-то лечится?

Возможно ли написать свою функцию по разбору строки с разделителями ";", откомпилить ее в ресурс свой, и потом использовать ее при описании полей экспорта?

var I : Integer;
i := 0;
If Length ( MyStr ) > 0
Do {
If SubStr ( MyStr , i, 1 ) = ';' then ( бла-бла )
)
While ( i < Length ( MyStr ) );

Как-то так...

КПП Плательщика - plpor.denosch2 // 102
КПП Получателя - plpor.denosch3 // 103

поля из 6-го поля "назначение платежа" (101, 104..110) вынимаются так

ФОРМУЛЫ ДЛЯ ПОЛЕЙ 101,104..110
ExtractDelimitedWord(PlPor.Tax,1,';') // 101
ExtractDelimitedWord(PlPor.Tax,2,';') // 104
ExtractDelimitedWord(PlPor.Tax,3,';') // 105
ExtractDelimitedWord(PlPor.Tax,4,';') // 106
ExtractDelimitedWord(PlPor.Tax,5,';') // 107
ExtractDelimitedWord(PlPor.Tax,6,';') // 108
ExtractDelimitedWord(PlPor.Tax,7,';') // 109
ExtractDelimitedWord(PlPor.Tax,8,';') // 110

Эдуард! Ты нас спас!!!!!

Огромное спасибо Edward_K !

Огромное спасибо!!!!!!!Полегчало

Клиент-Банка нет в лицензии, бедные мы
Выгружаю платежку своим фейсом, благо формат текстовки для импорта известен

в фейсе
plpor.tax -
01;1400402;69401363000;ТП;ГД.00.2003;0;09.06.2003;НС

ExtractDelimitedWord(PlPor.Tax,1,';')=''
ExtractDelimitedWord(PlPor.Tax,2,';')=''
ExtractDelimitedWord(PlPor.Tax,3,';')=''
ExtractDelimitedWord(PlPor.Tax,4,';')=''
ExtractDelimitedWord(PlPor.Tax,5,';')=''
ExtractDelimitedWord(PlPor.Tax,6,';')=''
ExtractDelimitedWord(PlPor.Tax,7,';')=''
ExtractDelimitedWord(PlPor.Tax,8,';')=''

Где моя ошибка в ДНК ? ???

Клиент-Банка нет в лицензии, бедные мы
Выгружаю платежку своим фейсом, благо формат текстовки для импорта известен

в фейсе
plpor.tax -
01;1400402;69401363000;ТП;ГД.00.2003;0;09.06.2003;НС

ExtractDelimitedWord(PlPor.Tax,1,';')=''
ExtractDelimitedWord(PlPor.Tax,2,';')=''
ExtractDelimitedWord(PlPor.Tax,3,';')=''
ExtractDelimitedWord(PlPor.Tax,4,';')=''
ExtractDelimitedWord(PlPor.Tax,5,';')=''
ExtractDelimitedWord(PlPor.Tax,6,';')=''
ExtractDelimitedWord(PlPor.Tax,7,';')=''
ExtractDelimitedWord(PlPor.Tax,8,';')=''

Где моя ошибка в ДНК ? ???

Заработало !!!

Подкиньте пожалуйста кто-нить текст выгрузки чтоб я его скомпилил, а то ничего не пойму. Платежки вроде новые приделал, а с выгрузкой пока геморой.

Так клиент-банк у каждого свой, т.е разные форматы. Мы, например, для сбербанка, выкидываем поля в текстовый файл (ARD-отчет) с разделителями, затем обрабатываем в фоксе и импортируем в клиент., поэтому, я считаю нет универсального решения.