Стандартная загрузка выписок из клиент-банка
dot
30.05.2009 - 17:48
|
В типовой загрузке выписок из КБ есть процедура создания ПП исходщего. Вот из нее кусок кода: ОбъектДокумента.УстановитьНовыйНомер(Организация.Префикс); Если Не ОбщегоНазначения.ЕстьНеЦифры(ИсходныеДанные.Номер) Тогда ОкончаниеНомера = Формат(Число(СокрЛП(ИсходныеДанные.Номер)), "ЧГ=0"); ДлинаОкончания = СтрДлина(ОкончаниеНомера); ДлинаНомера = СтрДлина(СокрЛП(ОбъектДокумента.Номер)); Если ДлинаОкончания < 3 Тогда ДлинаОкончания = 3; КонецЕсли; ОбъектДокумента.Номер = Лев(ОбъектДокумента.Номер, ДлинаНомера -ДлинаОкончания) + Формат(Число(ОкончаниеНомера), "ЧЦ=" + ДлинаОкончания + "; ЧВН=; ЧГ=0"); КонецЕсли; Но если у организации больше одного расчетного счета, то может возникнуть ошибка, когда порядковые номера ПП исходящих совпадут. Также по такому алгоритму ищутся уже загруженные ПП исходящие. Как я понимаю, это ошибка в алгоритме. Мне вот интересно, как остальные работают с типовой неправленной БП? |