Порядковый номер

[lobster]

В таблице имеется поле (тип = код) со значением VIN номера машины например:
WF04XXGBB46R37821
мне нужно написать обработку этого номера, которая буде определять с конца значения VIN'а
седьмой символ по порядку, например при открытии формы.
В данном VIN'е это символ 6, дальше мне нужно уже использовать это значение, т.е. надо
наверное присвоить его переменной. Подскажите пожалуйста, как это сделать.

[Fly]

Цитата:

Сообщение от lobster

В таблице имеется поле (тип = код) со значением VIN номера машины например:
WF04XXGBB46R37821
мне нужно написать обработку этого номера, которая буде определять с конца значения VIN'а
седьмой символ по порядку, например при открытии формы.
В данном VIN'е это символ 6, дальше мне нужно уже использовать это значение, т.е. надо
наверное присвоить его переменной. Подскажите пожалуйста, как это сделать.

Вот такой функцией получаешь свой символ:
COPYSTR("No.", STRLEN("No.") - 6, 1)

На форме делаешь textbox и в свойство SourceExpr вписываешь эту формулу.

UPD: Если тебе надо использовать это значение, то заводишь переменную которая будет являться источником для textbox. Сам расчет по формуле COPYSTR(...)добавь в некую функцию fn_CalcVin. Функцию fn_CalcVin добавь в триггера OnAfterGetRecord и onAfterGetCurrRecord

[Kadawrik]

Если Вам нужно именно с конца седьмой символ взять, то можно воспользоваться функцией:
Имя_Переменной := COPYSTR(VIN,STRLEN(VIN)-6,1)
где VIN - то самое поле с кодом

[Kadawrik]

Цитата:

Сообщение от Fly

Вот такой функцией получаешь свой символ:
COPYSTR("No.", STRLEN("No.") - 6, 1)

Одновременно писАли

[Fly]

Цитата:

Сообщение от Kadawrik

Цитата:

Сообщение от Fly

Вот такой функцией получаешь свой символ:
COPYSTR("No.", STRLEN("No.") - 6, 1)

Одновременно писАли

[lobster]

Ребята, спасибо! Получилось)

[InTacto]

Поставьте проверку на длинну строки( STRLEN("No.") - как раз возвращает длинну) и в SourceExp ф-цию copystr лучше не вставлять, иначе завалится формочка на строке с длинной меньше 6. Ф-ция fn_CalcVin как раз подойдет для всех эксепшенов.