Опять Отчет :)

[srg]

Ребята, вопрос по отчету, как реализовать вывод ИНН человека, отдельно по одному символу в каждый шейп?!
подскажите плз, есть ли уже где то реализация этого, например в кронусе ?
либо как это замутить?

[srg]

Ребята, сделал, сори за некропост

[Constantine_imported]

Наверное не в шейп, а в текстбокс все-таки? Ну а выдергивать из строки по одному символу вам поможет функция COPYSTR.

[srg]

Цитата:

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

Наверное не в шейп, а в текстбокс все-таки? Ну а выдергивать из строки по одному символу вам поможет функция COPYSTR.

да эт я ошибся, вы правы), там текстбокс был, но я его шейпом называю))

вот
COPYSTR(INN, 1,1)
спасибо что ответили), хоть и успел сделать уже, спасибо что помогаете новичкам !

[srg]

Вообщем проблема, не могу подтянуть должность сотрудника в отчет, не могу понять, в чем же проблема.
в глобале добавил, тип рек, таблица джобтитл, в текст боксе jobtitle.name
и его не выводит, что за..(

[Constantine_imported]

Цитата:

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

Вообщем проблема, не могу подтянуть должность сотрудника в отчет, не могу понять, в чем же проблема.
в глобале добавил, тип рек, таблица джобтитл, в текст боксе jobtitle.name
и его не выводит, что за..(

А вы на запись встаете? Делаете GET или там FINDFIRST? FIND и т.д.?

[srg]

Цитата:

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

Цитата:

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

Вообщем проблема, не могу подтянуть должность сотрудника в отчет, не могу понять, в чем же проблема.
в глобале добавил, тип рек, таблица джобтитл, в текст боксе jobtitle.name
и его не выводит, что за..(

А вы на запись встаете? Делаете GET или там FINDFIRST? FIND и т.д.?

сделал вот так вот..

Цитата:

IF Vend."Employee No."<>'' THEN
BEGIN
IF Employee.GET(Vend."Employee No.") THEN

BEGIN
IF Person.GET(Employee."Person No.") THEN
INN:=Person."VAT Registration No.";
END;

END;

спасибо за советик)

[zuzka]

Цитата:

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

сделал вот так вот..

Цитата:

IF Vend."Employee No."<>'' THEN
BEGIN
IF Employee.GET(Vend."Employee No.") THEN

BEGIN
IF Person.GET(Employee."Person No.") THEN
INN:=Person."VAT Registration No.";
END;

END;

можно оформить получше:

IF Vend."Employee No."<>'' THEN BEGIN
  IF Employee.GET(Vend."Employee No.") THEN BEGIN
    IF Person.GET(Employee."Person No.") THEN
      INN:=Person."VAT Registration No.";
  END;
END;

равнозначно и более читабельно:

IF Vend."Employee No."<>'' THEN
  IF Employee.GET(Vend."Employee No.") THEN
    IF Person.GET(Employee."Person No.") THEN
      INN:=Person."VAT Registration No.";

[romeo]

Цитата:

Ну а выдергивать из строки по одному символу вам поможет функция COPYSTR

Или FORMAT(String[i]), где String текстовая переменная, поле, а i - позиция символа в строке.