Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / Caché Новый топик    Ответить
Топик располагается на нескольких страницах: 1 2 3      [все]
 Помогите новичку, проблема с базой  [new]
Gants
Member

Откуда:
Сообщений: 14
Имеется база на Cache 2011, размером 114 гб, когда я её подключаю к проекту данных ни каких нет, как нить можно восстановить??
18 авг 15, 07:41    [18031744]     Ответить | Цитировать Сообщить модератору
 Re: Помогите новичку, проблема с базой  [new]
krvsa
Member

Откуда: г Волжский
Сообщений: 12679
Gants
когда я её подключаю к проекту данных ни каких нет

На основании чего сделаны такие выводы?

Какая программка на той БД установлена? Может тут есть разработчики этой программы... Они могут дать более точные рекомендации.
18 авг 15, 08:24    [18031830]     Ответить | Цитировать Сообщить модератору
 Re: Помогите новичку, проблема с базой  [new]
О-О-О
Member

Откуда: Нижний Новгород
Сообщений: 132
Gants,

1-Проверьте содержимое через ГЛОБАЛЫ
2-при установке - новую БД нужно будет откомпилировать
3-Нужно не просто скопировать БД, а создать область, создать папку с БД и саму БД, а уже потом отключить КАШЕ и воткнуть взамен пустышки новую (требуемую БД)
4-не факт, что БД с каше 2011 будет работать на КАШЕ 2015.
У меня при переходе с версии на версию постоянно перестаёт работать часть программ
Блее того, при переходе с 2013 на 2014 - софт полностью отказался работать.


Корече, сперва делаем пункт 3, затем пункт 1, затем пункт 2.
И будьте готовы к пункту №4.
18 авг 15, 20:06    [18035972]     Ответить | Цитировать Сообщить модератору
 Re: Помогите новичку, проблема с базой  [new]
Gants
Member

Откуда:
Сообщений: 14
всем спасибо с проблемой разобрался, но появился другой вопрос почему могут постоянно слетать индексы???
19 авг 15, 15:27    [18040308]     Ответить | Цитировать Сообщить модератору
 Re: Помогите новичку, проблема с базой  [new]
Gants
Member

Откуда:
Сообщений: 14
пардон за не русский язык))) постоянно слетают индыксы... хотел написать
19 авг 15, 15:28    [18040320]     Ответить | Цитировать Сообщить модератору
 Re: Помогите новичку, проблема с базой  [new]
Alexey Maslov
Member

Откуда: СПб
Сообщений: 1343
К сожалению, уже не первый такой незнакомец, который ничего о себе не рассказывает, с автором имеющегося у него софта общаться не хочет.
Думайте сами, коллеги, помогать таким или нет.
19 авг 15, 16:31    [18040935]     Ответить | Цитировать Сообщить модератору
 Re: Помогите новичку, проблема с базой  [new]
Gants
Member

Откуда:
Сообщений: 14
Alexey Maslov,

проблема в том что тех поддержка закончилась, а новый договор заключать денег нет... поэтому и мучаюсь... так бы не написал..
19 авг 15, 16:53    [18041075]     Ответить | Цитировать Сообщить модератору
 Re: Помогите новичку, проблема с базой  [new]
krvsa
Member

Откуда: г Волжский
Сообщений: 12679
Gants
пардон за не русский язык))) постоянно слетают индыксы... хотел написать

В качестве ликбеза...
https://ru.wikipedia.org/wiki/Индекс_(базы_данных)
19 авг 15, 16:54    [18041086]     Ответить | Цитировать Сообщить модератору
 Re: Помогите новичку, проблема с базой  [new]
krvsa
Member

Откуда: г Волжский
Сообщений: 12679
Gants
почему могут постоянно слетать индексы???

Для начала нужно прокомментировать твой термин "слетать"? Поскольку в моем понимании летать (и пр.варианты) они точно не умеют...

Потом нужно таки разобраться с типом хранения твоих данных...
Данные в классах?
Или таки доморощенное хранение?

И опять напомню свой вопрос про ПО которое ты эксплуатируешь... Какая задачка у тебя? Кто разработчик?
19 авг 15, 16:58    [18041122]     Ответить | Цитировать Сообщить модератору
 Re: Помогите новичку, проблема с базой  [new]
Gants
Member

Откуда:
Сообщений: 14
krvsa,

сбиваются, тойсть к одной записи выводятся записиси которые не имеют к ней отношения..
Разработчик "Индустрия делового программного обеспечения"
19 авг 15, 17:08    [18041200]     Ответить | Цитировать Сообщить модератору
 Re: Помогите новичку, проблема с базой  [new]
MyNoName
Guest
Gants,
А какая область если не секрет
19 авг 15, 17:41    [18041453]     Ответить | Цитировать Сообщить модератору
 Re: Помогите новичку, проблема с базой  [new]
Gants
Member

Откуда:
Сообщений: 14
MyNoName,
RG
19 авг 15, 17:47    [18041498]     Ответить | Цитировать Сообщить модератору
 Re: Помогите новичку, проблема с базой  [new]
MyNoName
Guest
Gants,
я про регион (как территорию)
19 авг 15, 17:49    [18041515]     Ответить | Цитировать Сообщить модератору
 Re: Помогите новичку, проблема с базой  [new]
Gants
Member

Откуда:
Сообщений: 14
самое интересное что после индексации нескольких полей, база выравнивается и некоторое время работает корректно, а потом опять....
19 авг 15, 17:49    [18041517]     Ответить | Цитировать Сообщить модератору
 Re: Помогите новичку, проблема с базой  [new]
Gants
Member

Откуда:
Сообщений: 14
Gants,

а цель??? вы с орла???
19 авг 15, 17:51    [18041534]     Ответить | Цитировать Сообщить модератору
 Re: Помогите новичку, проблема с базой  [new]
MyNoName
Guest
Gants,
нет. просто знаком с этой базой. На сколько я знаю в разных областях код немного отличался. так сказать кастомизация под нужды региона
19 авг 15, 17:53    [18041555]     Ответить | Цитировать Сообщить модератору
 Re: Помогите новичку, проблема с базой  [new]
Gants
Member

Откуда:
Сообщений: 14
MyNoName,
в этом ПО, у всех всё одинаковое...
ИС Р-2
19 авг 15, 17:55    [18041564]     Ответить | Цитировать Сообщить модератору
 Re: Помогите новичку, проблема с базой  [new]
MyNoName
Guest
Gants,

а... р2... я думал про первый. второй на сколько знаю только админпрактика
19 авг 15, 17:57    [18041577]     Ответить | Цитировать Сообщить модератору
 Re: Помогите новичку, проблема с базой  [new]
Gants
Member

Откуда:
Сообщений: 14
MyNoName,

всё верно...
19 авг 15, 17:58    [18041579]     Ответить | Цитировать Сообщить модератору
 Re: Помогите новичку, проблема с базой  [new]
MyNoName
Guest
Gants,

Если дадите доступ могу посмотреть чем смогу помочь. но на сколько я знаю код р2 закрыт. по крайней мере раньше был
19 авг 15, 18:02    [18041612]     Ответить | Цитировать Сообщить модератору
 Re: Помогите новичку, проблема с базой  [new]
Gants
Member

Откуда:
Сообщений: 14
MyNoName,

Спасибо, вы меня тоже поймите.... доступ а бы кому тоже дать не могу...
19 авг 15, 18:04    [18041623]     Ответить | Цитировать Сообщить модератору
 Re: Помогите новичку, проблема с базой  [new]
П.С.М.
Member

Откуда: Из СССР
Сообщений: 358
Gants,
krvsa
Потом нужно таки разобраться с типом хранения твоих данных...
Данные в классах?
Или таки доморощенное хранение?

Ответьте на вопросы.
19 авг 15, 18:05    [18041633]     Ответить | Цитировать Сообщить модератору
 Re: Помогите новичку, проблема с базой  [new]
Gants
Member

Откуда:
Сообщений: 14
П.С.М.,
в классах
19 авг 15, 18:08    [18041651]     Ответить | Цитировать Сообщить модератору
 Re: Помогите новичку, проблема с базой  [new]
MyNoNAme
Guest
П.С.М.,
обычно хранение

Gants,
Как хотите. вы ведь можете скопировать базу или поставить себе на комп (у вас же рабочая наверняка в ИЕКТС) и проапдейтить персональные данные
19 авг 15, 18:09    [18041664]     Ответить | Цитировать Сообщить модератору
 Re: Помогите новичку, проблема с базой  [new]
MyNoName
Guest
Gants
Да и к чему вам эти заморочки. вас же наверняка в ближайшее время тоже на ФИС-М переведут
19 авг 15, 18:12    [18041683]     Ответить | Цитировать Сообщить модератору
 Re: Помогите новичку, проблема с базой  [new]
Gants
Member

Откуда:
Сообщений: 14
MyNoName,

пока не перешли материалы ты вносить надо же))
а то в сводку попадешь и всё такое...
вообщем если вы знаете структура то в курсе должны быть...
19 авг 15, 18:14    [18041699]     Ответить | Цитировать Сообщить модератору
 Re: Помогите новичку, проблема с базой  [new]
krvsa
Member

Откуда: г Волжский
Сообщений: 12679
Gants
в классах

MyNoNAme
обычно хранение

Нипанятна... :-O

Если таки в классах и индексы при работе не поддерживают целостность это может быть проблемой ИС...
Если хранение доморощеное - чем не повод нагнуть разработчика! Пусть даже поддержка закончилась...
20 авг 15, 08:12    [18043651]     Ответить | Цитировать Сообщить модератору
 Re: Помогите новичку, проблема с базой  [new]
Alexey Maslov
Member

Откуда: СПб
Сообщений: 1343
Такое впечатление, что пишет иностранец, старающийся скрыть этот факт. Только мне этот топик продолжает казаться очень странным?
20 авг 15, 10:06    [18044042]     Ответить | Цитировать Сообщить модератору
 Re: Помогите новичку, проблема с базой  [new]
DAiMor
Member

Откуда: Brno, Czech Republic
Сообщений: 2268
Alexey Maslov
Такое впечатление, что пишет иностранец, старающийся скрыть этот факт. Только мне этот топик продолжает казаться очень странным?
Судя по IP он из России. По моему этот человек просто не знаком с разработкой на Cache, поэтому и разговор выглядит странным. Продолжать его смысла особого нет, знаний и понимания его все равно не хватит, для того чтобы понять что там происходит. Тут нужно только обращаться к разработчику.
20 авг 15, 10:16    [18044103]     Ответить | Цитировать Сообщить модератору
 Re: Помогите новичку, проблема с базой  [new]
leyra
Member

Откуда:
Сообщений: 1
Проблема, описанная пользователем Gants, связана с некорректными действия администратора информационной системы, а именно удалением всех глобалов через портал управления системой.
При помощи сотрудников службы поддержки компании была восстановлена часть данных, часть информации, ввиду отсутствия резервных копий, была потеряна и восстановлению не подлежит. Данный факт является причиной нарушения ссылочной целостности базы данных.
По причине отсутствия у данного клиента оплаченной услуги по предоставлению технической поддержки, дальнейшие действия по восстановлению данных были прекращены.
20 авг 15, 11:26    [18044609]     Ответить | Цитировать Сообщить модератору
 Re: Помогите новичку, проблема с базой  [new]
krvsa
Member

Откуда: г Волжский
Сообщений: 12679
leyra
Проблема, описанная пользователем Gants, связана с некорректными действия администратора информационной системы, а именно удалением всех глобалов через портал управления системой.
При помощи сотрудников службы поддержки компании была восстановлена часть данных, часть информации, ввиду отсутствия резервных копий, была потеряна и восстановлению не подлежит. Данный факт является причиной нарушения ссылочной целостности базы данных.
По причине отсутствия у данного клиента оплаченной услуги по предоставлению технической поддержки, дальнейшие действия по восстановлению данных были прекращены.

На кол его!
20 авг 15, 14:43    [18046096]     Ответить | Цитировать Сообщить модератору
 Re: Помогите новичку, проблема с базой  [new]
Gants
Member

Откуда:
Сообщений: 14
krvsa,

да вам бы лишь бы на кол кого ни будь...
СПАСИБО ВСЕМ! ЗАПУСТИЛИ БЕЗ ВАС!
21 авг 15, 10:42    [18050052]     Ответить | Цитировать Сообщить модератору
 Re: Помогите новичку, проблема с базой  [new]
krvsa
Member

Откуда: г Волжский
Сообщений: 12679
Gants
да вам бы лишь бы на кол кого ни будь...

- Я кровожадный?
- Кровожадный...
- Я беспощадный?
- Беспощадный...
- Я злой разбойник Бармалей!
(с)

Gants
СПАСИБО ВСЕМ! ЗАПУСТИЛИ БЕЗ ВАС!

Заходи еще! Поможем, чем сможем...
21 авг 15, 11:57    [18050607]     Ответить | Цитировать Сообщить модератору
 Re: Помогите новичку, проблема с базой  [new]
ну я
Member

Откуда: Stalingrad
Сообщений: 1080
krvsa
Gants
да вам бы лишь бы на кол кого ни будь...

- Я кровожадный?
- Кровожадный...
- Я беспощадный?
- Беспощадный...
- Я злой разбойник Бармалей!
(с)

Gants
СПАСИБО ВСЕМ! ЗАПУСТИЛИ БЕЗ ВАС!

Заходи еще! Поможем, чем сможем...


Беспощадная помощь ))))
21 авг 15, 13:15    [18051147]     Ответить | Цитировать Сообщить модератору
Между сообщениями интервал более 1 года.
 Re: Помогите новичку, проблема с базой  [new]
Ермалай
Member

Откуда: Бишкек
Сообщений: 14
Приветствую всех! Извиняюсь не нашел темы специальной для этого. Была одна "помощь новичкам" но ее закрыли уже.
Проблема такая: у меня идет цикл который перебирает ветки и затем записывает в глобал
S I=I+1,^RPL2(I)=5_"\"_"Рейсов"_"\"_T1(1) G F91+1
Проблема в том что запись идет вот так
а должна записать по горизонтали и с разделителем косой

К сообщению приложен файл. Размер - 14Kb
9 фев 17, 06:54    [20195247]     Ответить | Цитировать Сообщить модератору
 Re: Помогите новичку, проблема с базой  [new]
Ермалай
Member

Откуда: Бишкек
Сообщений: 14


К сообщению приложен файл. Размер - 21Kb
9 фев 17, 06:55    [20195249]     Ответить | Цитировать Сообщить модератору
 Re: Помогите новичку, проблема с базой  [new]
Блок А.Н.
Member

Откуда: Новосибирск
Сообщений: 3394
Ермалай,

вы бы кусок кода побольше привели, потому что из вашего мало что понятно, кроме того, что это Каше 4.* и вы используете GOTO
В вашем случае разные узлы получаются, потому что тут
S I=I+1,^RPL2(I)
у вас меняется индекс глобала, в который вы записываете.
9 фев 17, 08:58    [20195449]     Ответить | Цитировать Сообщить модератору
 Re: Помогите новичку, проблема с базой  [new]
Ермалай
Member

Откуда: Бишкек
Сообщений: 14
Сорри вот код

F9() K ^RPL5 S I=0 F J=1:1:12 {S T(J)=0}
S VN="",GD=0
S GD=$O(^REPORT(8,GD)) G F91:GD="" S MES=0 ;G F91:GD="" S MES=0 ;Q:GD="" S MES=0
S MES=$O(^REPORT(8,GD,MES)) G F9+2:MES="" S CR=0
S CR=$O(^REPORT(8,GD,MES,CR)) G F9+3:CR="" S REG=0 S CRR=$S(CR=1:1,CR=2:1,CR=3:3,CR="K":"K")
S REG=$O(^REPORT(8,GD,MES,CR,REG)) G F9+4:REG="" S VN=0
S VN=$O(^REPORT(8,GD,MES,CR,REG,VN)) G F9+5:VN="" S NR=0
S NR=$O(^REPORT(8,GD,MES,CR,REG,VN,NR)) G F9+6:NR="" S AP=0
S AP=$O(^REPORT(8,GD,MES,CR,REG,VN,NR,AP)) G F9+7:AP="" S TIP=0
S TIP=$O(^REPORT(8,GD,MES,CR,REG,VN,NR,AP,TIP)) G F9+8:TIP="" S NN=0 F J=1:1:12 {S T1(J)=0}
S NN=$O(^REPORT(8,GD,MES,CR,REG,VN,NR,AP,TIP,NN)) G F9I:NN="" S T=$G(^REPORT(8,GD,MES,CR,REG,VN,NR,AP,TIP,NN)) F J=1:1:12 {S T(J)=$P(T,"/",J),T1(J)=T1(J)+T(J)} G F9+10
F9I S I=I+1,Z(GD,CRR,VN,I)=T1(3)_"\"_T1(4)_"\"_T1(7)_"\"_VN G F9+9

F91 S I=0,GD=0
S GD=$O(Z(GD)) G END:GD="" S CRR=0 F J=1:1:5 {S T1(J)=0}
S CRR=$O(Z(GD,CRR)) G F91+5:CRR="" S VN=0 S MJD=$S(CRR=1:"в т.ч. Международные",CRR=3:"Внутренние")
S VN=$O(Z(GD,CRR,VN)) G F91+2:VN="" S NN=0 F J=1:1:5 {S T(J)=0} S:VN="O" VVN="ОТПРАВЛЕНО" s:VN="P" VVN="ПРИБЫЛО"
S NN=$O(Z(GD,CRR,VN,NN)) G F91+3:NN="" S T=$G(Z(GD,CRR,VN,NN)) F J=1:1:5 {S T(J)=$P(T,"\",J),T1(J)=T1(J)+T(J)} G F91+4
F I=I+1 S ^RPL2(I)=5_"\"_GD_"\"_T1(1) G F91+1

Необходимо записать в глобал по первому примеру. А получается по второму. Версия каше 5.0.21 Спасибо!
9 фев 17, 11:37    [20196091]     Ответить | Цитировать Сообщить модератору
 Re: Помогите новичку, проблема с базой  [new]
П.С.М.
Member

Откуда: Из СССР
Сообщений: 358
Ермалай,

Вам самому то понятен сей набор символов? Неужели Вам удобно работать с таким кодом?
9 фев 17, 12:51    [20196381]     Ответить | Цитировать Сообщить модератору
 Re: Помогите новичку, проблема с базой  [new]
AlexKB
Member

Откуда: Запорожье
Сообщений: 673
П.С.М.,
Старенький и добренький стиль классического МАМПСа...
аж всплакнулось...
9 фев 17, 13:08    [20196462]     Ответить | Цитировать Сообщить модератору
 Re: Помогите новичку, проблема с базой  [new]
Блок А.Н.
Member

Откуда: Новосибирск
Сообщений: 3394
Ермалай,

Это, конечно, чудо: G F91+4
И две метки с разными названиями, одна F9I, а другая F91.
Прям не уверен, что это человек, а не киборг писал какой-нибудь.
9 фев 17, 13:24    [20196574]     Ответить | Цитировать Сообщить модератору
 Re: Помогите новичку, проблема с базой  [new]
П.С.М.
Member

Откуда: Из СССР
Сообщений: 358
AlexKB
П.С.М.,
Старенький и добренький стиль классического МАМПСа...
аж всплакнулось...

Даже и его можно писать как-то человекочитабельней, дать имена метка, а не использовать хардкодное метка+смещение, не писать кучу команд в одну строку:

+
F9() 
	K ^RPL5 
	S I=0 
	F J=1:1:12 {S T(J)=0}
	S VN=""
	S GD=0
F92	
	S GD=$O(^REPORT(8,GD)) 
	G:GD="" F91 
	S MES=0
F93	
	S MES=$O(^REPORT(8,GD,MES)) 
	G:MES="" F92
	S CR=0
F94	
	S CR=$O(^REPORT(8,GD,MES,CR))
	G:CR="" F93 
	S REG=0 
	S CRR=$S(CR=1:1,CR=2:1,CR=3:3,CR="K":"K")
F95	
	S REG=$O(^REPORT(8,GD,MES,CR,REG)) 
	G:REG="" F94 
	S VN=0
F96	
	S VN=$O(^REPORT(8,GD,MES,CR,REG,VN)) 
	G:VN="" F95
	S NR=0
F97	
	S NR=$O(^REPORT(8,GD,MES,CR,REG,VN,NR)) 
	G:NR="" F96 
	S AP=0
F98	
	S AP=$O(^REPORT(8,GD,MES,CR,REG,VN,NR,AP)) 
	G:AP="" F97 
	S TIP=0
F99	
	S TIP=$O(^REPORT(8,GD,MES,CR,REG,VN,NR,AP,TIP)) 
	G:TIP="" F98 
	S NN=0 
	F J=1:1:12 {S T1(J)=0}
F910	
	S NN=$O(^REPORT(8,GD,MES,CR,REG,VN,NR,AP,TIP,NN)) 
	G:NN="" F9I 
	S T=$G(^REPORT(8,GD,MES,CR,REG,VN,NR,AP,TIP,NN)) 
	F J=1:1:12 {S T(J)=$P(T,"/",J),T1(J)=T1(J)+T(J)} 
	G F910
F9I 
	S I=I+1,Z(GD,CRR,VN,I)=T1(3)_"\"_T1(4)_"\"_T1(7)_"\"_VN 
	G F99

F91 
	S I=0,GD=0
F911	
	S GD=$O(Z(GD)) 
	G:GD="" END 
	S CRR=0 
	F J=1:1:5 {S T1(J)=0}
F912	
	S CRR=$O(Z(GD,CRR)) 
	G:CRR="" F915 
	S VN=0 
	S MJD=$S(CRR=1:"в т.ч. Международные",CRR=3:"Внутренние")
F913	
	S VN=$O(Z(GD,CRR,VN)) 
	G:VN="" F912 
	S NN=0 
	F J=1:1:5 {S T(J)=0} 
	I VN="O" S VVN="ОТПРАВЛЕНО" 
	I VN="P" S VVN="ПРИБЫЛО"
F914	
	S NN=$O(Z(GD,CRR,VN,NN)) 
	G:NN="" F913 
	S T=$G(Z(GD,CRR,VN,NN)) 
	F J=1:1:5 {S T(J)=$P(T,"\",J),T1(J)=T1(J)+T(J)} 
	G F914
F915	
	F I=I+1 S ^RPL2(I)=5_"\"_GD_"\"_T1(1) G F911  ; Тут вообще ГоуТу в из тела цикла. Смысл цикла?
END
 	Q


Да и можно отказаться от GoTo вообще, а переписать иначе с циклами и процедурами.

Хотя, вполне м.б., как заметил Блок А.Н., действительно может код сгенерирован, а в него что то в ручную еще добавляют.
9 фев 17, 13:31    [20196615]     Ответить | Цитировать Сообщить модератору
 Re: Помогите новичку, проблема с базой  [new]
AlexKB
Member

Откуда: Запорожье
Сообщений: 673
Блок А.Н.,
На заре "моего" МАМПСа многие так писали, особенно импортные продукты, взять хотябы VA FileManager (кажись так назывался продукт), да и другие библиотеки так же оформлялись...
Но это в истории и в сладких воспоминаниях...
А что вы хотите, если код писался с ограничениями не более 2КБ на рутину, а запускалось на машинах, где пользователям отводилось оперативки по 4КБ, ну или чуть больше...
9 фев 17, 13:33    [20196625]     Ответить | Цитировать Сообщить модератору
 Re: Помогите новичку, проблема с базой  [new]
П.С.М.
Member

Откуда: Из СССР
Сообщений: 358
Ермалай
...а должна записать по горизонтали и с разделителем косой

Функция $PIECE Вам в помощь. Обратите внимание но использование функции в левой части выражения.
9 фев 17, 13:49    [20196707]     Ответить | Цитировать Сообщить модератору
 Re: Помогите новичку, проблема с базой  [new]
krvsa
Member

Откуда: г Волжский
Сообщений: 12679
Ермалай, будет более продуктивно написать что у тебя есть т.с. в начале... И что хочется получить в итоге...
Потому как писать чего-то в глобал "через разделитель" - не факт, что хорошо. ;)
9 фев 17, 14:31    [20196883]     Ответить | Цитировать Сообщить модератору
 Re: Помогите новичку, проблема с базой  [new]
gluconat_ca
Member

Откуда:
Сообщений: 84
Ермалай,

Для записи в глобал S ^RPL2(I)=5_"\"_GD_"\"_T1(1)
массив T1 формируется так T1(J)=T1(J)+T(J).
Поэтому в T1(1) всегда числа и никаких "\" там быть не может как ни крути циклы.
9 фев 17, 14:44    [20196958]     Ответить | Цитировать Сообщить модератору
 Re: Помогите новичку, проблема с базой  [new]
Alexey Maslov
Member

Откуда: СПб
Сообщений: 1343
AlexKB
На заре "моего" МАМПСа многие так писали...
Познакомился с MUMPS в 1987 - надо же, в этом году 30 лет! По воспоминаниям, тогдашние интерпретаторы языка (о компиляторах речь ещё не шла) более эффективно обрабатывали конструкции
IF cond DO
. line1
. ...
. lineN
ELSE  DO
. line1
. ...
. lineN
, чем их аналоги, реализованные на GOTO, т.к. GOTO был плохо оптимизирован: прекомпилированной таблицы меток не было, и их поиск шёл просмотром текста программы.

Возможно, Алексей, ты начинал раньше, и повидал больше...
9 фев 17, 14:53    [20196998]     Ответить | Цитировать Сообщить модератору
 Re: Помогите новичку, проблема с базой  [new]
МСМ
Member

Откуда: Минск
Сообщений: 6

F91 S I=0,GD=0
S GD=$O(Z(GD)) G END:GD="" S CRR=0 F J=1:1:5 {S T1(J)=0}
S CRR=$O(Z(GD,CRR)) G F91+5:CRR="" S VN=0 S MJD=$S(CRR=1:"в т.ч. Международные",CRR=3:"Внутренние")
S VN=$O(Z(GD,CRR,VN)) G F91+2:VN="" S NN=0 F J=1:1:5 {S T(J)=0} S:VN="O" VVN="ОТПРАВЛЕНО" s:VN="P" VVN="ПРИБЫЛО"
S NN=$O(Z(GD,CRR,VN,NN)) G F91+3:NN="" S T=$G(Z(GD,CRR,VN,NN)) F J=1:1:5 {S T(J)=$P(T,"\",J),T1(J)=T1(J)+T(J)} G F91+4
F I=I+1 S ^RPL2(I)=5_"\"_GD_"\"_T1(1) G F91+1


Ермалай,
У кода (см. выше) не должен быть такой результат:

^RPL2(1)=5\Рейсов\11948
^RPL2(2)=5\Рейсов\12389

^RPL2(10)=5\Рейсов\1538

F I=I+1 S ^RPL2(I)=5_"\"_GD_"\"_T1(1) G F91+1


В строке (см. выше) переменная I меняется при новом значении переменной GD.
9 фев 17, 15:11    [20197090]     Ответить | Цитировать Сообщить модератору
 Re: Помогите новичку, проблема с базой  [new]
experience
Member

Откуда: ngs.ru
Сообщений: 53
Извиняюсь за офтоп.
Кстати с днём (М)-рождения всё сложно, как то 66-67????, а вот с днём стандартизации всё ОК, на мой взгляд, и в этом году 40.
Такое стоит как то по громче отметить!!!
9 фев 17, 15:13    [20197104]     Ответить | Цитировать Сообщить модератору
 Re: Помогите новичку, проблема с базой  [new]
DAiMor
Member

Откуда: Brno, Czech Republic
Сообщений: 2268
experience
Извиняюсь за офтоп.
Кстати с днём (М)-рождения всё сложно, как то 66-67????, а вот с днём стандартизации всё ОК, на мой взгляд, и в этом году 40.
Такое стоит как то по громче отметить!!!
Почему бы и нет, если школу InterSystems в москве все таки организует, и приедут туда те кто так долго работает с M. У меня то в этом году всего то 10 лет работы с Caché, хотя и тоже уже срок.
9 фев 17, 15:18    [20197128]     Ответить | Цитировать Сообщить модератору
 Re: Помогите новичку, проблема с базой  [new]
Блок А.Н.
Member

Откуда: Новосибирск
Сообщений: 3394
Ермалай,

Не понимая, что делает ваша программа и какие исходные данные, сложно что-то рекомендовать.
Но попробуйте

F91	S I=0,GD=0
S GD=$O(Z(GD)) G END:GD="" S CRR=0 F J=1:1:5 {S T1(J)=0}
S CRR=$O(Z(GD,CRR)) G F91+5:CRR="" S VN=0 S MJD=$S(CRR=1:"в т.ч. Международные",CRR=3:"Внутренние")
S VN=$O(Z(GD,CRR,VN)) G F91+2:VN="" S NN=0 F J=1:1:5 {S T(J)=0} S:VN="O" VVN="ОТПРАВЛЕНО" s:VN="P" VVN="ПРИБЫЛО"
S NN=$O(Z(GD,CRR,VN,NN)) G F91+3:NN="" S T=$G(Z(GD,CRR,VN,NN)) F J=1:1:5 {S T(J)=$P(T,"\",J),T1(J)=T1(J)+T(J)} G F91+4
S I=I+1  S ^RPL2(2)=$g(^RPL2(2),5_"\"_GD) _"\"_T1(1)  G F91+1


Хотя эту калечную прогу проще заново написать, чем править. И есть подозрение, что она у вас в том виде уже не работает.
9 фев 17, 16:16    [20197435]     Ответить | Цитировать Сообщить модератору
 Re: Помогите новичку, проблема с базой  [new]
Ермалай
Member

Откуда: Бишкек
Сообщений: 14
Хехеех стока букав и критики! Мне свой код абсолютно понятен и очень удобно мне самому читабельно. Конечно у каждого свой почерк как говорится. По делу там переменная T1(1) постоянно меняется поскольку перебирает ветку значение и возвращает ее. Вопрос был в том как записать в глобал как показано на первом скриншоте по горизонтали с косой разделителем все переменные которые возвращаются. Ну т.е. F i=1:1:10 T1(1),"\",10 ну не знаю что то типа того короче. Я ж говорю что я новичок сильно не пинайте. Тока начинаю изучать каши еще...
10 фев 17, 05:37    [20198897]     Ответить | Цитировать Сообщить модератору
 Re: Помогите новичку, проблема с базой  [new]
Ермалай
Member

Откуда: Бишкек
Сообщений: 14
Блок А.Н.
Ермалай,

Это, конечно, чудо: G F91+4
И две метки с разными названиями, одна F9I, а другая F91.
Прям не уверен, что это человек, а не киборг писал какой-нибудь.

патсталом
10 фев 17, 07:18    [20198944]     Ответить | Цитировать Сообщить модератору
 Re: Помогите новичку, проблема с базой  [new]
krvsa
Member

Откуда: г Волжский
Сообщений: 12679
Ермалай
Мне свой код абсолютно понятен и очень удобно мне самому читабельно.
...
Вопрос был в том как записать в глобал как показано на первом скриншоте

Если программа читабельна и понятна, такие вопросы не возникают.
10 фев 17, 08:24    [20199035]     Ответить | Цитировать Сообщить модератору
 Re: Помогите новичку, проблема с базой  [new]
krvsa
Member

Откуда: г Волжский
Сообщений: 12679
Ермалай
Хехеех стока букав и критики!

Потом люди смотрят такие "шедевры" и хают весь М-язык...
10 фев 17, 08:26    [20199039]     Ответить | Цитировать Сообщить модератору
 Re: Помогите новичку, проблема с базой  [new]
Langobard
Member

Откуда: Новосибирск
Сообщений: 23
Ермалай
Хехеех стока букав и критики! Мне свой код абсолютно понятен и очень удобно мне самому читабельно. Конечно у каждого свой почерк как говорится.

Структурирование кода - это не блажь, а необходимость, которую Вы пока не осознаете.
Это сейчас он для Вас "понятен", а откроете через пару-тройку лет...
Не говоря уж про то, что другие Вас будут матер поминать недобрым словом :-)
10 фев 17, 08:30    [20199051]     Ответить | Цитировать Сообщить модератору
 Re: Помогите новичку, проблема с базой  [new]
Ермалай
Member

Откуда: Бишкек
Сообщений: 14
Что бы там не было, Блок А.Н. благодарю за подсказку! Правда я ее немного переделал но это стало идеей создания другой идеи. ЛОЛ. А вот собственно результат которого я добился. Таблица правда еще больше я ее вырезал

К сообщению приложен файл. Размер - 99Kb
10 фев 17, 08:55    [20199139]     Ответить | Цитировать Сообщить модератору
 Re: Помогите новичку, проблема с базой  [new]
krvsa
Member

Откуда: г Волжский
Сообщений: 12679
Ермалай
А вот собственно результат которого я добился. Таблица

Для создания таблиц не обязательно делать строчки "через разделитель"... ;)
10 фев 17, 09:03    [20199160]     Ответить | Цитировать Сообщить модератору
 Re: Помогите новичку, проблема с базой  [new]
imdb
Member

Откуда: Москва
Сообщений: 103
Ермалай
Я ж говорю что я новичок сильно не пинайте. Тока начинаю изучать каши еще...

Ну тогда стоит открыть документацию и почитать примеры, например:
Averageloop
  SET sum=0
  FOR i=0:1 {
    READ !,"Number: ",num
    QUIT:num=""
    SET sum=sum+num
  }
  SET average=sum/i

или вот такой:
SET x=$ZUTIL(68,42)
  IF x=0 {
    WRITE !,"Initially standard format ",x
    WRITE !,"Standard $JOB format: ",$JOB
    SET y=$ZUTIL(68,42,1)
    WRITE !,"Extended $JOB format: ",$JOB
    SET y=$ZUTIL(68,42,0) ; restore setting
    QUIT
  }
  ELSE {
    WRITE !,"Initially extended format",x
    WRITE !,"Extended $JOB format: ",$JOB
    SET y=$ZUTIL(68,42,0)
    WRITE !,"Standard $JOB format: ",$JOB
    SET y=$ZUTIL(68,42,1) ; restore setting
  QUIT
  }


или вот пример с goto:
SET age=""
READ !,"What is your age? ",age QUIT:age=""
IF age<30 {
  SET loc="Young" }
ELSEIF (age>29)&(age<60) {
  SET loc="Midage" }
ELSEIF age>59 {
  SET loc="Elder" }
ELSE {
  WRITE "data input error"
  QUIT }
GOTO @loc
QUIT
Young
  WRITE !,"You're still young"
  QUIT
Midage
  WRITE !,"You're in your prime"
  QUIT
Elder
  WRITE !,"You have a lifetime of wisdom to impart"
  QUIT


Таким образом, Ваших "шедевров" там не наблюдаем. Так что если Вы новичок, то тем более должны начинать с чтения доков. И заявления "мне свой код абсолютно понятен и очень удобно мне самому читабельно" грозит задержать Вас в статусе новичка надолго. Да и вместо помощи сообщества Вы можете получить - "хехеех стока букав и критики".
10 фев 17, 10:03    [20199374]     Ответить | Цитировать Сообщить модератору
 Re: Помогите новичку, проблема с базой  [new]
Ермалай
Member

Откуда: Бишкек
Сообщений: 14
Все! Учту замечания. Будем развиваться. А скока з/п в среднем у "cache" прогеров в Рашн Федерейшн?
10 фев 17, 10:25    [20199461]     Ответить | Цитировать Сообщить модератору
 Re: Помогите новичку, проблема с базой  [new]
Mammonth
Member

Откуда:
Сообщений: 30
Ермалай
Все! Учту замечания. Будем развиваться. А скока з/п в среднем у "cache" прогеров в Рашн Федерейшн?

Для начала найди вакансию :)
10 фев 17, 10:27    [20199468]     Ответить | Цитировать Сообщить модератору
 Re: Помогите новичку, проблема с базой  [new]
krvsa
Member

Откуда: г Волжский
Сообщений: 12679
У нас вроде есть вакансия на 30т.р...
10 фев 17, 11:11    [20199662]     Ответить | Цитировать Сообщить модератору
 Re: Помогите новичку, проблема с базой  [new]
Mammonth
Member

Откуда:
Сообщений: 30
krvsa
У нас вроде есть вакансия на 30т.р...

у нас вообще нет :( даже таких
10 фев 17, 11:34    [20199761]     Ответить | Цитировать Сообщить модератору
 Re: Помогите новичку, проблема с базой  [new]
krvsa
Member

Откуда: г Волжский
Сообщений: 12679
Mammonth, потому как не всем выпадает такая честь! Работать на М...
10 фев 17, 11:49    [20199824]     Ответить | Цитировать Сообщить модератору
 Re: Помогите новичку, проблема с базой  [new]
П.С.М.
Member

Откуда: Из СССР
Сообщений: 358
Ермалай
А скока з/п в среднем у "cache" прогеров в Рашн Федерейшн?

Mammonth
Для начала найди вакансию :)

:D т.ч. учи еще что-нибудь.
10 фев 17, 11:52    [20199837]     Ответить | Цитировать Сообщить модератору
 Re: Помогите новичку, проблема с базой  [new]
Mammonth
Member

Откуда:
Сообщений: 30
П.С.М.
Ермалай
А скока з/п в среднем у "cache" прогеров в Рашн Федерейшн?

Mammonth
Для начала найди вакансию :)

:D т.ч. учи еще что-нибудь.

Да знаю я и еще что-нибудь, но резюме открывают... опыт работы... "а чотакоекашэ" еще и старый... "нудавайдосвиданья", "мывамперезвоним", и мое любимое: "мывзялиболееподходящего" и вакансию перевешивают.
Но это уже не по теме.
10 фев 17, 12:27    [20199996]     Ответить | Цитировать Сообщить модератору
 Re: Помогите новичку, проблема с базой  [new]
П.С.М.
Member

Откуда: Из СССР
Сообщений: 358
Mammonth,

Наверное, я как-то плохо свой прошлый ответ написал, т.к. я его больше Ермалай адресовал :), в том плане, что б ставку на одно только каше не делал.
10 фев 17, 12:52    [20200129]     Ответить | Цитировать Сообщить модератору
 Re: Помогите новичку, проблема с базой  [new]
Mammonth
Member

Откуда:
Сообщений: 30
П.С.М.
Mammonth,

Наверное, я как-то плохо свой прошлый ответ написал, т.к. я его больше Ермалай адресовал :), в том плане, что б ставку на одно только каше не делал.

это правильно :)
я вообще мультицитирование пытался сделать... но что-то пошло не так и меня намотало на бэкэнд форума
10 фев 17, 13:05    [20200193]     Ответить | Цитировать Сообщить модератору
 Re: Помогите новичку, проблема с базой  [new]
Langobard
Member

Откуда: Новосибирск
Сообщений: 23
Mammonth
Да знаю я и еще что-нибудь, но резюме открывают... опыт работы... "а чотакоекашэ" еще и старый... "нудавайдосвиданья", "мывамперезвоним", и мое любимое: "мывзялиболееподходящего" и вакансию перевешивают.
Но это уже не по теме.

Ой, да не нойте...
Логика у Вас пропала? Или что Вы такого пропустили, работая на Cache'?
10 фев 17, 19:29    [20201744]     Ответить | Цитировать Сообщить модератору
Топик располагается на нескольких страницах: 1 2 3      [все]
Все форумы / Caché Ответить