sGetTune Как использовать

Программирование на Атлантисе (VIP, FCOM, ARD), FastReport

Модераторы: m0p3e, edward_K, Модераторы

Ответить
korvanakorvana
Местный житель
Сообщения: 429
Зарегистрирован: 24 сен 2008, 11:53

sGetTune Как использовать

Сообщение korvanakorvana »

Ребята привет! Нашла, что sGetTune('myorg') sGetTune('BOSS') намного проще использовать), а где прочитать описание этой процедуры . Вот мне надо ИНН получить моей организации к примеру.
n0where
Местный житель
Сообщения: 499
Зарегистрирован: 30 дек 2010, 08:16

Re: sGetTune Как использовать

Сообщение n0where »

я обычно ищу inc файлы, выдираю от туда нужные функции и в самый верх vip файла прописываю

Код: Выделить всё

function  sGetTune    (string)                           : string;  external 'G_Tune.dll';
function  boGetTune   (string)                           : boolean; external 'G_Tune.dll';
function  cGetTune    (string)                           : char;    external 'G_Tune.dll';
function  wGetTune    (string)                           : word;    external 'G_Tune.dll';
function  lGetTune    (string)                           : LongInt; external 'G_Tune.dll';
function  dGetTune    (string)                           : date;    external 'G_Tune.dll';
function  tGetTune    (string)                           : time;    external 'G_Tune.dll';
function  doGetTune   (string)                           : double;  external 'G_Tune.dll';
function  coGetTune   (string)                           : comp;    external 'G_Tune.dll';
хороший программист — это человек, который переходя улицу с односторонним движением смотрит в обе стороны
korvanakorvana
Местный житель
Сообщения: 429
Зарегистрирован: 24 сен 2008, 11:53

Re: sGetTune Как использовать

Сообщение korvanakorvana »

n0where писал(а):я обычно ищу inc файлы, выдираю от туда нужные функции и в самый верх vip файла прописываю

Код: Выделить всё

function  sGetTune    (string)                           : string;  external 'G_Tune.dll';
function  boGetTune   (string)                           : boolean; external 'G_Tune.dll';
function  cGetTune    (string)                           : char;    external 'G_Tune.dll';
function  wGetTune    (string)                           : word;    external 'G_Tune.dll';
function  lGetTune    (string)                           : LongInt; external 'G_Tune.dll';
function  dGetTune    (string)                           : date;    external 'G_Tune.dll';
function  tGetTune    (string)                           : time;    external 'G_Tune.dll';
function  doGetTune   (string)                           : double;  external 'G_Tune.dll';
function  coGetTune   (string)                           : comp;    external 'G_Tune.dll';
Ну это понятно, но вот от куда берутся имена переменных MYORG, BOSS....

вот мне нужно получить ИНН так я должна прописать Sgettune('INN???')
m0p3e
Местный житель
Сообщения: 1386
Зарегистрирован: 29 мар 2005, 17:49
Откуда: Москва

Re: sGetTune Как использовать

Сообщение m0p3e »

xGetTune() - это функции доступа к настройкам. ИНН вы там не найдете.

Код: Выделить всё

If GetFirst Katorg Where ((coGetTune('MyOrg')==Katorg.nrec))=stOk
  INN := Katorg.UNN;
korvanakorvana
Местный житель
Сообщения: 429
Зарегистрирован: 24 сен 2008, 11:53

Re: sGetTune Как использовать

Сообщение korvanakorvana »

m0p3e писал(а):xGetTune() - это функции доступа к настройкам. ИНН вы там не найдете.

Код: Выделить всё

If GetFirst Katorg Where ((coGetTune('MyOrg')==Katorg.nrec))=stOk
  INN := Katorg.UNN;
Спасибо поняла)
n0where
Местный житель
Сообщения: 499
Зарегистрирован: 30 дек 2010, 08:16

Re: sGetTune Как использовать

Сообщение n0where »

Ну это понятно, но вот от куда берутся имена переменных MYORG, BOSS....
Это настройки.
Заходим в настройки, кликаем по любой и нажимаем Alt+1. Там будет наименование настройки
хороший программист — это человек, который переходя улицу с односторонним движением смотрит в обе стороны
Ответить