Отправлено: 09.03.04 02:08. Заголовок: ФОРМУЛЫ

как загнать значения словарей в основную таблицу???

----------begin --------------

@Q:=SL(номер_словаря,поле_базы)
поле_базы:=@Q

---------end--------------------

и все гвозди.

 Отправлено: 12.03.04 00:50. Заголовок: Re: ФОРМУЛЫ

neo пишет:

цитата

---

и все гвозди

---

тормоза однако с ней

 Отправлено: 15.03.04 02:17. Заголовок: Re: ФОРМУЛЫ

Pashka пишет:

цитата

---

тормоза однако с ней

---

К сожалению с ней всегда тормоза.
советую при замене более двух полей использовать одну формулу с рядом операций типа
@Q:=SL(номер_словаря1,поле_базы1)
поле_базы1:=@Q
@Q:=SL(номер_словаря2,поле_базы2)
поле_базы2:=@Q
@Q:=SL(номер_словаря3,поле_базы3)
поле_базы3:=@Q
быстрее скорректировать несколько операций в одном блоке, чем выполнять отдельную формулу для каждого поля.
(проверено на практике)

 Отправлено: 16.03.04 23:25. Заголовок: Re: ФОРМУЛЫ

Формула, формирующая адрес из разных полей (улица дом корпус квартира) при разных вариантах.
База организации (ОР) поле ОР25-город (кодированное) ,26-улица,99-район,27-номер дома,28-корпус,29 квартира,
32-нестандартный (кривой) адрес, типа «улица Орлова угловой дом. Когда заполнено это поле-все остальные поля при печати- игнорируются.
@B:=SL(15,ОР25);@CC:=SL(17,ОР26);@RN:=SL(16,ОР99);
@D:=ОР27;@E:=ОР28;@F:=ОР29;@G:=ОР32;
@UL:=LEN(@CC);@DOM:=LEN(@D);
@KOR:=LEN(@E);@KV:=LEN(@F);@DOP:=LEN(ОР32);
@START:=(@B‹‹»,»);
IF(@DOM›0 & @KOR›0 & @KV›0) THEN(
@RET:=(@START‹‹@CC‹‹» д.»‹‹@D‹‹»/»‹‹@E‹‹» »‹‹«к.»‹‹@F));
IF(@DOM›0 & @KOR=0 & @KV›0) THEN(
@RET:=(@START‹‹@CC‹‹» д.» ‹‹@D‹‹» »‹‹«к.»‹‹@F));
IF(@DOM›0 & @KOR›0 &@KV=0) THEN(
@RET:=(@START‹‹@CC ‹‹» д.»‹‹@D‹‹»/»‹‹@E));
IF(@DOM›0 &@KOR=0 & @KV=0) THEN(
@RET:=(@START ‹‹@CC ‹‹» д.» ‹‹ @D));
IF(@DOM=0 &@KOR=0 & @KV=0 &@UL›0)
THEN (@RET:=@CC);
IF (@DOP›0) THEN(@RET:=ОР32)

(с)Glissando

 Отправлено: 16.03.04 23:49. Заголовок: Re: ФОРМУЛЫ

пример установки связи между базами с помощью формул



Это пример кода реальной формулы по перекидыванию данных.

************************************
/*
Описание переменных
@f() - Фамилия имя отчество
@d - Дата рождения
@God_r - Год рождения
@fot - Фотография1; @foto - Фотографии
*/

@f:=»»;@f1:=»»;@f2:=»»;@d:=»»;
@fot:=»»;@foto:=»»; /* обнуление переменных на каждом шаге - на каждой
записе. */

if (LC24) Then(@i:=1;@ii:=1) /*проверка наличия фото */

/* Пошло присвоение переменным */
@Lico_old:=@SYSNOMER;


@f:=LC1;
@f1:=LC2;
@f2:=LC3;
@d:=LC4;
/* ********************************* */
/* Операция над информацией */
@info:=NEW(LC43_ИН);
USERECORD(ИН{@info},
ИН2:=12; /* Код */
ИН3:=@temp1;
ИН4:=1000; /* Код */
ИН5:=1; /* Код */
/* ****************************** */
/* Операции над Лицом */
@lico:=new(ИН100_ЛЦ);
USERECORD(ЛЦ{@lico},
ЛЦ1:=@f;
ЛЦ2:=@f1;
ЛЦ3:=@f2;
ЛЦ4:=@d;

LOOP(ЛЦ200_ИН,
LOOP(ИН203_LC,
LINKROOT(LC44_ИН);

WHILE(GETTEXT(LC24(@i)))
DO (
@fot:=GETFILE(LC24(@i));
@i:=@i+1;
Loop(LC43_ИН,
Loop(ИН100_ЛЦ,
SETFILE(ЛЦ6(-1),@fot)
)
)

);

)
)

LINKROOT(ЛЦ201_ИН)

/* ******************* */
/* Операции над связями лица */
@sv:=NEW(ЛЦ100_СВ);
USERECORD(СВ{@sv},
СВ2:=«АДР4»;
СВ3:=«Адрес жительства »‹‹@f‹‹» »‹‹@f1‹‹» »‹‹@f2;
LINKROOT(СВ103_ИН)

/* *************************** */
/* Операции над адресом */
@adres:=NEW(СВ100_АД) ;
USERECORD(АД{@adres},
АД13:=@adr
АД200_ИН:=INSERTVAL(АД200_ИН,-1,@info)
LINKROOT(АД201_ИН)

)
)
)

/* установка «корневой записи для информации */
ИН201_ЛЦ:=INSERTVAL(ИН201_ЛЦ,-1,@lico)
ИН201_АД:=INSERTVAL(ИН201_АД,-1,@adres);
ИН201_СВ:=INSERTVAL(ИН201_СВ,-1,@sv) ;
ИН201_LC:=INSERTVAL(ИН201_LC,-1,@Lico_old)


)
TRACEVAR(»»,»»);


/* *********** END ******************* */


(C)Leo

 Отправлено: 24.03.04 00:03. Заголовок: Re: ФОРМУЛЫ

работающая формула записи уведомлений о необходимости информирования при появлении дополнительных данных. В принципе можно поставить проверку и на ошибочно введенные значения и выдавать их потом в файл.

************BEGIN********************
if(АД14)
then(
@str:=«Необходимо проинформировать о поступлении ДОПОЛНИТЕЛЬНОЙ ИНФОРМАЦИИ на: »
@strr:=АД12‹‹» »‹‹АД6‹‹» »‹‹АД7‹‹» »‹‹АД5‹‹» »‹‹АД1‹‹» »‹‹АД2‹‹» »‹‹АД4;
@strrr:=@SYSNOMER;
@st:=@str‹‹@strr‹‹» Сис.номер-»‹‹@strrr;
INPUT(@st,0);

/*Добавление информации о сделанном предупреждении*/
@T:=АД14;
АД14:=@T‹‹» Предупреждение выдано-»‹‹@USERNAME‹‹» »‹‹@CURRENTDATE‹‹» в: »‹‹@CURRENTTIME
INPUT(@T,0)

/*Добавление в ФАЙЛ информации о необходимости уведомления ИНИЦИАТОРА*/
@msg1:=char(13)‹‹char(10)‹‹@BANKNAME‹‹» * »‹‹@BASENAME‹‹»(»‹‹@BASEMNEMOCODE‹‹»)»‹‹«Сис.номер -»‹‹@SYSNOMER‹‹CHAR(13 )‹‹CHAR(10);
@msg2:=»****************************************** ***********»‹‹char(13) ‹‹char(10);
@msg3:=«Объект-»‹‹@BASENAME‹‹»(»‹‹@strr‹‹») »‹‹char(13)‹‹char(10);
@msg4:=@T‹‹char(13)‹‹char(10);
@msg:=@msg1‹‹@msg2‹‹@msg3‹‹@msg4‹‹»*************** ********************** *»‹‹char(13)‹‹char(10);

@ff:=CONVERT(@CURRENTDATE,».»,»»);
@file:=«C:\CRO_MSG\msg_»‹‹@ff‹‹».txt»;
MAKEFOLDER(«C:\CRO_MSG\»);
APPENDFILE(@file,@msg))

****************END*********************

(С)Leo

 Отправлено: 24.03.04 00:10. Заголовок: Re: ФОРМУЛЫ

Исправления «Пи» в лексовских файлах при переходе с Cronos-DOS версии на С+ версию

-------------------BEGIN-------------------------- ---------
@a:=TRIM(‹поле с текстом›),
@b:=CONVERT(@a,»-»‹‹CHAR(10)‹‹CHAR(13),» »);
@c:=CONVERT(@b,CHAR(10)‹‹CHAR(13),» »);
‹поле с текстом›:=@c;

--------------------------END--------------------- -----------

В принципе, она работает только для текстовых полей, но если необходимая инфа содержится в полях типа «файл», то первую строчку необходимо заменить на следующую:
@a:=GETTEXT(‹поле типа Файл›).


(C)VAS

 Отправлено: 27.03.04 22:00. Заголовок: Re: ФОРМУЛЫ

А как имея две базы в кроносе с ключевыми полями сделать между ними связи

 Отправлено: 04.04.04 02:03. Заголовок: Re: ФОРМУЛЫ

подсчет количество записей базы с помощью формул

Необходимо использовать операторы:
COUNT();
RECORDSCOUNT();
VALCOUNT();
@NOFSELECT

 Отправлено: 15.09.04 20:20. Заголовок: Re: ФОРМУЛЫ

много полезного тут
собственно оффорум

 Отправлено: 30.09.04 15:54. Заголовок: Re: ФОРМУЛЫ

Столкнулся с траблой по переносу файлов из кроноса в крос
на форуме кроноса вычитал формулку, очень полезной оказалась,
спасибо Лео

вот и формулка:

@A:=название;
@B:=GETTEXT(файл);
WRITEFILE(«c:\твой каталог»‹‹@A,@B);
*заменить «название», «файл», «твой каталог»)
и закачать в Крос

и не менее полезная формулка для задачи:

Есть банк Кроноса в котором такие поля:

FF1 (текст) ИВАНОВ - фамилия
FF2 (текст) C:\FOTO\1.jpg - адрес к файлу фото Иванова
FF3 (файл) - должна быть фотография

Как написать формулу, которая берет по адресу фото и помещает ее в поле «файл»?

-----
if(FF2›»»)
Then(@p:=FF2;
if(READFILE(@p))
Then(ADDFILE(FF3(-1),@p);
)
)
------

 Отправлено: 06.10.04 03:13. Заголовок: Re: ФОРМУЛЫ

опять с оффорума...
пишет Digs

-----
Суть: действующие и уволенные. По значению уволен нужно переместить значение в уволенные, установить имеющиеся связи и удалить запись из действующей.

@n1:=@SYSNOMER;
@fio:=ДР26;

if ДР16=«4» then (
if (message(«Переносим в уволенные и удаляем из действующих?»,@yesno)=1) then
(ADDRECORD(УР{0},УР26:=@fio);
LOOP(ДР30_ВТ,
@n2:=@SYSNOMER;

LOOP(ВТ11_ДР,
ДР4:=@n2;
ДР30_ВТ(@n2):=0;
);
);
);
DELETERECORD(ДР{@n1},0);
);
------

DELETERECORD правда не работает, какието проблемы с синтаксисом

 Отправлено: 19.11.04 14:09. Заголовок: Re: ФОРМУЛЫ

Как использовать функцию «Message»

Если переменной присвоить значение функции Message, то в зависимости от флага при нажатии кнопок имеем значения:
0 - no
1 - yes
2 - cancel

Пример
---------

@A := Message («Удалиьб...», @yesno);
if @A=1 then ...то-то и то-то

----------

Из мануала:

MESSAGE(‹текст›,‹флаг_отображения›) - выдача окна с сообщением, при этом ‹флаг_отображения› может принимать следующие значения:
@OKCANCEL - сообщение с кнопками OK и CANCEL
@YESNOCANCEL - сообщение с кнопками YES, NO и CANCEL
@YESNO- сообщение с кнопками YES и NO
также к ‹флаг_отображения› можно прибавлять одно из следующих значений, влияющих на вид информационного значка:
@ICONERROR
@ICONQUESTION
@ICONWARNING

если ‹флаг_отображения› = 0, то выдается сообщение с кнопкой OK.

 Отправлено: 19.11.04 14:19. Заголовок: Re: ФОРМУЛЫ

Алекс!

Вычислить ХЭШ из текстового или файлового поля можно с помощью функции
GETSIGNATURE(‹переменная›) - построить сигнатуру для значенния переменной - уникальный 32-символьный код

а некоторые тут свою математику городили.

 Отправлено: 23.12.04 16:02. Заголовок: Re: ФОРМУЛЫ

ПиплЫ!
а как при помощи формулы удалить запись

 Отправлено: 23.12.04 19:02. Заголовок: Удаление записей

Удаление записей.

DELETERECORD(‹мнемокод_базы{системный_номер}›, ‹связь с текущей записью›) - удалить запись с указанным системным номером. Если ‹связь с текущей записью› = 0, то для текущей записи не проверяется связь с удаляемой записью, что может ускорить процесс удаления.
Но все зависит от того под какой версией работаешь. Эта функция появилась в версии 3.01 (03/09/2003)
Кроме того, нельзя удалить саму текущую запись, удаление возможно только связанных с ней.

 Отправлено: 25.12.04 23:36. Заголовок: Re: ФОРМУЛЫ

sch25

cпасибо

 Отправлено: 29.01.05 03:18. Заголовок: Re: ФОРМУЛЫ

Как с помощью формулы присоединить файл к полю типа «Файл»?

@NAME=«sample»;
@EXT:=«doc»;
@PATH:=«C:\TEMP\»

@FILENAME:=@PATH‹‹@NAME‹‹».»‹‹@EXT;
@CONTAINER:=READFILE(@filename);
SETTEXT(SP32,@CONTAINER);/*загрузка поля содержимым файла*/
SETEXT(SP32,@EXT);/*установка расширения файла*/
SETFILENAME(SP32,@NAM1);/*установка имени файла*/


koral5057 (С)

 Отправлено: 22.09.05 15:17. Заголовок: Re:

Подскажите ктонибудь с помощью каких формул или функций преобразовать дату из формата ГГГГММДД в формат ДД.ММ.ГГГГ

 Отправлено: 27.09.05 19:10. Заголовок: (C)Leo

Прикольно увидеть здесь свои ответы на форуме Кронуса...

 Отправлено: 30.09.05 16:34. Заголовок: Re:

Хоть закопиррайтили и то карашо