Пошаговый перебор массива

Форумы Помощь по пакетуПошаговый перебор массива ← Ctrl1Ctrl →

Этот топик читают: Гость

Ответов: 188

Рейтинг: 2

#1: 2019-01-15 00:25:02 ЛС | профиль | цитата

Уже часа четыре ломаю голову.вот примерная схема


Add(MainForm,2953706,14,168)
{
 Width=1152
 Height=788
 Point(onClose)
 link(onCreate,12969259:doOpen,[])
 link(onClose,12969259:doClose,[])
}
Add(DSC_Query,14826240,420,112)
{
 SQL="pragma table_info(price);"
 DSManager="global"
 link(onQuery,15991961:doEvent1,[(474,118)(474,111)])
}
Add(StringTableMT,14295986,623,35)
{
 Left=325
 Top=5
 Width=335
 Height=180
 Columns=#1:1|1:2|1:3|1:4|1:5|1:6|1:7|1:8|1:9|2:10|
 StrDelimiter="\9"
 IconsCheck=[]
 MiscIcons=[]
 Icons=[]
 Point(doMT_Add)
 Point(Strings)
}
Add(Hub,15991961,497,105)
{
 link(onEvent1,14295986:doMT_Add,[(567,111)(567,62)])
}
Add(Button,8993294,434,189)
{
 Left=245
 Top=10
 link(onClick,5179062:doEnum,[(499,195)(499,174)])
}
Add(Button,3418651,343,112)
{
 Left=10
 Top=5
 Caption="Загрузить прагма"
 link(onClick,14826240:doQuery,[])
}
Add(DS_SQLite,12969259,161,182)
{
 Name="global"
 FileName=".\global.db"
 WaitClose=0
}
Add(MultiStrPart,4868892,651,168)
{
 Char="\9"
 Count=4
 link(onSplit,155138:doEvent1,[(728,174)(728,423)(590,423)(590,293)])
}
Add(Edit,6578738,658,231)
{
 Left=160
 Top=95
 link(Str,4868892:Part2,[])
}
Add(Edit,4092359,672,294)
{
 Left=160
 Top=130
 link(Str,4868892:Part3,[(678,247)(671,247)])
}
Add(Edit,10232678,672,371)
{
 Left=160
 Top=160
 Width=70
 Height=25
 link(Str,4868892:Part4,[])
}
Add(Hub,155138,602,287)
{
 OutCount=4
 link(onEvent2,6578738:doText,[(637,300)(637,237)])
 link(onEvent3,4092359:doText,[(644,307)(644,300)])
 link(onEvent4,10232678:doText,[(644,314)(644,377)])
}
Add(MT_MTArrayEnum,5179062,532,168)
{
 link(onItem,4868892:doSplit,[])
 link(Array,14295986:Strings,[(538,118)(643,118)])
}

у меня 2 вопроса!
1. Какими элементами можно заменить MTTabl в этой связке?
2. Как сделать пошаговый перебор массива?
мне нужно чтоб был выбран первый элемент, над ним будет проводится работа, по завершение работы над этим элементом выбираем другой и так пока все не закончатся!

а вообще это нужно чтобы в таблице базы данных почти к каждой ячейки было прибавлено определенное число.

карма: 0

Google vip	#1.1контекстная реклама от партнеров

Ответов: 16884

Рейтинг: 1239

#2: 2019-01-15 11:43:26 ЛС | профиль | цитата

zhorik5 писал(а):

вообще это нужно чтобы в таблице базы данных почти к каждой ячейки было прибавлено определенное число.

Какой таблице ?
PRICE ?

вот примерная схема

Add(MainForm,13172333,399,119)
{
 Width=797
 Height=558
 Position=1
 Point(onClose)
 link(onCreate,12969259:doOpen,[])
 link(onClose,12969259:doClose,[])
}
Add(DSC_Query,14826240,567,133)
{
 SQL="pragma table_info(price);"
 DSManager="global"
 link(onQuery,14295986:doMT_Add,[])
 link(onColumns,14295986:doMT_AddCols,[])
}
Add(StringTableMT,14295986,630,112)
{
 Left=325
 Top=5
 Width=430
 Height=140
 MT_ColDelimiter="="
 IconsCheck=[]
 MiscIcons=[]
 Icons=[]
 Point(doMT_Add)
 Point(Strings)
 Point(doMT_AddCols)
 Point(doSelect)
 Point(onSelect)
 link(onSelect,4868892:doSplit,[(676,125)(676,188)(625,188)(625,209)])
}
Add(Button,8993294,448,168)
{
 Left=15
 Top=10
 link(onClick,8943236:doNext,[])
}
Add(DS_SQLite,12969259,448,133)
{
 Name="global"
 FileName="c:\HiAsm_AltBuild\Projects\zhorik5\zhor2\global.db"
 WaitClose=0
 link(onOpen,14305104:doEvent1,[])
}
Add(MultiStrPart,4868892,637,203)
{
 link(onSplit,4830960:doString,[])
 link(Str,14295986:Select,[])
}
Add(CounterEx,8943236,567,168)
{
 Min=4
 Max=0
 Default=4
 Point(doMax)
 link(onNext,14295986:doSelect,[(625,174)(625,153)])
}
Add(Hub,14305104,490,133)
{
 link(onEvent1,14826240:doQuery,[])
 link(onEvent2,4337327:doData,[(514,146)(514,181)])
}
Add(DoData,4337327,525,175)
{
 link(onEventData,8943236:doMax,[])
 link(Data,14295986:Count,[(531,169)(636,169)])
}
Add(StringTableMT,7562364,819,189)
{
 Left=10
 Top=160
 Width=750
 Height=340
 MT_ColDelimiter="="
 ClearAll=0
 Redaction=0
 IconsCheck=[]
 MiscIcons=[]
 Icons=[]
 Point(doMT_Add)
 Point(doMT_AddCols)
}
Add(DSC_Query,1553985,763,210)
{
 DSManager="global"
 link(onQuery,7562364:doMT_Add,[])
 link(onColumns,7562364:doMT_AddCols,[])
}
Add(FormatStr,4830960,693,203)
{
 DataCount=1
 Mask="SELECT nomer, vid_rabot, model,roznica,partner, %1 from price;"
 link(onFString,5968253:doEvent1,[])
 link(Str1,4868892:Part2,[(699,191)(675,191)(675,247)(650,247)])
}
Add(Hub,5968253,735,203)
{
 link(onEvent1,7562364:doClear,[(781,209)(781,202)])
 link(onEvent2,1553985:doQuery,[])
}

Редактировалось 3 раз(а), последний 2019-01-15 12:03:37

карма: 25

Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!

Ответов: 188

Рейтинг: 2

#3: 2019-01-15 14:23:51 ЛС | профиль | цитата

в принципе можно такое решение использовать. я думаю его адаптирую. но хотелось бы уйти от МТтаблиц(как и чем ее заменить чтоб делалось примерно тоже самое) или просто сделать ей визибл ОФФ.

карма: 0

Ответов: 16884

Рейтинг: 1239

#4: 2019-01-15 15:05:24 ЛС | профиль | цитата

zhorik5,


Add(MainForm,13172333,105,98)
{
 Width=797
 Height=558
 Position=1
 Point(onClose)
 link(onCreate,12969259:doOpen,[])
 link(onClose,12969259:doClose,[])
}
Add(DSC_Query,14826240,231,112)
{
 SQL="pragma table_info(price);"
 DSManager="global"
 link(onQuery,5925111:doStr,[])
 link(onColumns,6193653:doClear,[])
}
Add(Button,8993294,154,168)
{
 Left=15
 Top=10
 link(onClick,8943236:doNext,[])
}
Add(DS_SQLite,12969259,154,112)
{
 Name="global"
 FileName="c:\HiAsm_AltBuild\Projects\zhorik5\zhor2\global.db"
 WaitClose=0
 link(onOpen,14305104:doEvent1,[])
}
Add(MultiStrPart,4868892,399,119)
{
 link(onSplit,4830960:doString,[])
}
Add(CounterEx,8943236,273,168)
{
 Min=4
 Max=0
 Default=4
 Point(doMax)
 link(onNext,6193653:doGetString,[(313,174)(313,146)])
}
Add(Hub,14305104,196,112)
{
 link(onEvent1,14826240:doQuery,[])
 link(onEvent2,4337327:doData,[(220,125)(220,181)])
}
Add(DoData,4337327,231,175)
{
 link(onEventData,8943236:doMax,[])
 link(Data,6193653:Count,[(237,163)(363,163)])
}
Add(StringTableMT,7562364,581,105)
{
 Left=10
 Top=160
 Width=750
 Height=340
 MT_ColDelimiter="="
 ClearAll=0
 Redaction=0
 IconsCheck=[]
 MiscIcons=[]
 Icons=[]
 Point(doMT_Add)
 Point(doMT_AddCols)
}
Add(DSC_Query,1553985,525,126)
{
 DSManager="global"
 link(onQuery,7562364:doMT_Add,[])
 link(onColumns,7562364:doMT_AddCols,[])
}
Add(FormatStr,4830960,455,119)
{
 DataCount=1
 Mask="SELECT nomer, vid_rabot, model,roznica,partner, %1 from price;"
 link(onFString,5968253:doEvent1,[])
 link(Str1,4868892:Part2,[(461,107)(437,107)(437,163)(412,163)])
}
Add(Hub,5968253,497,119)
{
 link(onEvent1,7562364:doClear,[(543,125)(543,118)])
 link(onEvent2,1553985:doQuery,[])
}
Add(StrList,6193653,350,112)
{
 Point(doGetString)
 Point(onGetString)
 link(onGetString,4868892:doSplit,[])
}
Add(MT_String,5925111,301,112)
{
 link(onResult,6193653:doAdd,[])
}

карма: 25

Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!

Ответов: 188

Рейтинг: 2

#5: 2019-01-15 15:19:05 ЛС | профиль | цитата

Tad, Спасибо! Поколдую с примерами посмотрим что выйдет.

карма: 0

Ответов: 16884

Рейтинг: 1239

#6: 2019-01-15 17:05:37 ЛС | профиль | цитата

zhorik5 писал(а):

Tad, Спасибо! Поколдую с примерами посмотрим что выйдет.

Лучше поколдуй с прайслистом. Как должен выглядеть прайслист, я тебе показывал.
Не верится, что в "Колхозе Донецкое" нужно знание цен на "Частичный ремонт","Ремонт","Заправку" 98 моделей картриджей и особенно, что "Гарантия" стоит 0 руб. 00 коп.
Чем отличается "Частичный ремонт" от просто "Ремонт" даже спросить не решаюсь.
Боюсь уши лапши не выдержат.
Вы заключаете "Договор на обслуживание картриджей" ну и укажи их модели и цены.
ИМХО.

карма: 25

Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!

Ответов: 188

Рейтинг: 2

#7: 2019-01-15 17:41:11 ЛС | профиль | цитата

Эта программа используется исключительно для расчета зп сотрудникам. Ну и как справочная информация сколько и что и когда выполнено!
прошлую проблему с прайсом я устранил. а сейчас получается нужно изменить цены на все картриджи по всем клиентам а там где цена "0" должна и остаться "0" частичный ремонт не используется почти введеная функция которую так и не приспособил!

--- Добавлено в 2019-01-15 17:42:59

грубо говоря к ячейке с условием Заправка прибавить 20р. а к ячейке с условием ремонт прибавить 50р.

--- Добавлено в 2019-01-15 17:43:25

и так по всем столбцам!

--- Добавлено в 2019-01-15 17:46:18

Tad писал(а):

Вы заключаете "Договор на обслуживание картриджей" ну и укажи их модели и цены.

говоришь ты правильно, но зачастую договор на одно а приносят другое главное чтоб в финале цыфра сошлась

Редактировалось 3 раз(а), последний 2019-01-15 17:46:18

карма: 0

Ответов: 8888

Рейтинг: 823

#8: 2019-01-15 18:22:59 ЛС | профиль | цитата

zhorik5 писал(а):

зачастую договор на одно а

приходит девочка с пониженной социальной ответственностью

карма: 19

Ответов: 16884

Рейтинг: 1239

#9: 2019-01-15 19:37:27 ЛС | профиль | цитата

zhorik5 писал(а):

грубо говоря к ячейке с условием Заправка прибавить 20р. а к ячейке с условием ремонт прибавить 50р.

И к Roznica и Partner тоже ?
Так это вообще делается элементарно.

как-то так

Add(MainForm,13172333,84,84)
{
 Width=797
 Height=374
 Position=1
 Point(onClose)
 link(onCreate,12969259:doOpen,[])
 link(onClose,12969259:doClose,[])
}
Add(Button,8993294,175,154)
{
 Left=690
 Top=10
 Width=75
 Font=[MS Sans Serif,8,1,0,1]
 Caption="UPDATE"
 link(onClick,7667942:doEvent1,[])
}
Add(DS_SQLite,12969259,133,98)
{
 Name="global"
 FileName="c:\HiAsm_AltBuild\Projects\zhorik5\zhor2\global.db"
 WaitClose=0
 link(onOpen,13179759:doEvent1,[])
}
Add(StrList,6193653,350,105)
{
 Point(doGetString)
 Point(onGetString)
 link(onGetString,2479743:doSplit,[])
}
Add(For,1910295,259,168)
{
 Start=3
 link(onEvent,6193653:doGetString,[(321,174)(321,139)])
 link(onStop,6418945:doDelete,[])
 link(End,6193653:Count,[(272,152)(363,152)])
}
Add(MultiStrData,2479743,399,112)
{
 Char=","
 From=1
 Count=1
 link(onPart1,4324985:doString,[])
}
Add(FormatStr,4324985,448,112)
{
 Mask="%1=%1+%2,"
 link(onFString,5706406:doStrCat,[])
 link(Str2,8571458:EditText,[])
}
Add(StrCat,5706406,497,112)
{
 Point(doClear)
 link(Str1,13425065:Var1,[(503,100)(493,100)(493,150)])
}
Add(Delete,6418945,497,175)
{
 Count=1
 Direction=1
 link(onDelete,8361769:doString,[])
 link(Str,13425065:Var2,[])
}
Add(FormatStr,8361769,546,175)
{
 Mask="UPDATE price SET %1 WHERE vid_rabor="%2" ;"
 link(onFString,15791570:doEvent1,[])
 link(Str2,238159:EditText,[(559,89)(293,89)])
}
Add(MT_String,688585,273,105)
{
 Delimeter=","
 link(onResult,6193653:doAdd,[])
}
Add(DSC_Query,351101,217,105)
{
 SQL="pragma table_info(price);"
 DSManager="global"
 link(onQuery,688585:doStr,[])
 link(onColumns,6193653:doClear,[])
}
Add(Memo,3009810,644,175)
{
 Left=20
 Top=40
 Width=750
 Height=280
}
Add(GetDataEx,13425065,497,145)
{
 link(Data,5706406:Result,[])
}
Add(ComboBox,238159,273,49)
{
 Left=115
 Top=10
 Width=155
 Height=21
 ReadOnly=0
 Point(EditText)
}
Add(DSC_Query,12791313,224,49)
{
 SQL="SELECT naimenovanie FROM vid_rabot;"
 DSManager="global"
 link(onQuery,238159:doAdd,[])
 link(onColumns,238159:doClear,[])
}
Add(Hub,13179759,175,98)
{
 link(onEvent1,12791313:doQuery,[(207,104)(207,55)])
 link(onEvent2,351101:doQuery,[])
}
Add(ComboBox,8571458,441,49)
{
 Left=400
 Top=10
 Height=21
 Strings=#1:0|2:20|2:50|
 ReadOnly=0
 Point(EditText)
}
Add(Label,13674496,140,49)
{
 Left=25
 Top=15
 Width=90
 Height=17
 Font=[MS Sans Serif,8,1,16711680,1]
 Caption="Вид работ"
 AutoSize=1
 Alignment=1
}
Add(Label,4569099,399,49)
{
 Left=330
 Top=15
 Width=63
 Height=17
 Font=[MS Sans Serif,8,1,16711680,1]
 Caption="Сумма"
 AutoSize=1
 Alignment=1
}
Add(Hub,7667942,217,154)
{
 OutCount=3
 link(onEvent1,5706406:doClear,[(485,160)(485,125)])
 link(onEvent2,3009810:doClear,[(627,167)(627,188)])
 link(onEvent3,1910295:doFor,[])
}
Add(DSC_Exec,3397730,644,217)
{
 DSManager="global"
}
Add(Hub,15791570,588,175)
{
 link(onEvent1,3009810:doAdd,[])
 link(onEvent2,3397730:doExec,[(618,188)(618,223)])
}

Редактировалось 1 раз(а), последний 2019-01-15 21:30:17

карма: 25

Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!

Ответов: 188

Рейтинг: 2

#10: 2019-01-16 10:03:41 ЛС | профиль | цитата

Леонид писал(а):

приходит девочка с пониженной социальной ответственностью

Да так и есть.

Tad писал(а):

И к Roznica и Partner тоже ?

Да к полному прайсу, ндс же подняли и цены на расходку выросли.

Tad писал(а):

Так это вообще делается элементарно.

Это когда спишь и видишь, знаешь и умеешь

--- Добавлено в 2019-01-16 10:11:40

Tad, какая может быть максимальная длина запроса

UPDATE price SET roznica=roznica+20,partner=partner+20,chastnoelico=chastnoelico+20,altairsm=altairsm+20,altairug=altairug+20,sbbzh=sbbzh+20,crbzern=crbzern+20,admzernrayona=admzernrayona+20,melkiepartneri=melkiepartneri+20,skvo=skvo+20,admdonskoe=admdonskoe+20,uzhniyVeter=uzhniyVeter+20,konzavod=konzavod+20,donmayak=donmayak+20,stroyservice=stroyservice+20,finotdel=finotdel+20,doverie=doverie+20,zdsalus=zdsalus+20,korona=korona+20,monolitug=monolitug+20,specshkola=specshkola+20,avtodiagnost=avtodiagnost+20,dizstanciya=dizstanciya+20,pegas=pegas+20,skazka=skazka+20,soshborisovka=soshborisovka+20,muzikalka=muzikalka+20,sohdonskaya=sohdonskaya+20,soshnovobataisk=soshnovobataisk+20,soshnovoivanovka=soshnovoivanovka+20,soshrossoshinskaya=soshrossoshinskaya+20,soshvoenved=soshvoenved+20,donskayabiblioteka=donskayabiblioteka+20,dosaaf=dosaaf+20,kolhozdonskoe=kolhozdonskoe+20,agrostehnik=agrostehnik+20,biznesmeridian=biznesmeridian+20,tipografiyazern=tipografiyazern+20,rtpz=rtpz+20,yarovit=yarovit+20,kagalbti=kagalbti+20,mackevich=mackevich+20,adm_novobataisk=adm_novobataisk+20,alfa_oil=alfa_oil+20,pp_zhkh_zernogradskoe=pp_zhkh_zernogradskoe+20,donskaya_soya=donskaya_soya+20,zolotoe_pole=zolotoe_pole+20,sportivnaya_shkola_kagalnik=sportivnaya_shkola_kagalnik+20,agromaks=agromaks+20,ant_donskoi_zernograd=ant_donskoi_zernograd+20,vsr=vsr+20,konzavodskoe_sp=konzavodskoe_sp+20,donskie_agrokultury=donskie_agrokultury+20,flash_anerdzhi=flash_anerdzhi+20,pb_garant=pb_garant+20,profi_konsalting=profi_konsalting+20,pechatnaya_manufaktura=pechatnaya_manufaktura+20 WHERE vid_rabor="Заправка" ;

не получится ли так что есть ограничения и он сделает не всю таблицу. Потому что она же растет.

Редактировалось 2 раз(а), последний 2019-01-16 10:12:56

карма: 0

Ответов: 16884

Рейтинг: 1239

#11: 2019-01-16 10:43:33 ЛС | профиль | цитата

zhorik5 писал(а):

максимальная длина запроса

Maximum Length Of An SQL Statement
The maximum number of bytes in the text of an SQL statement is limited to SQLITE_MAX_SQL_LENGTH which defaults to 1000000. You can redefine this limit to be as large as the smaller of SQLITE_MAX_LENGTH and 1073741824.

Максимальная длина оператора SQL
Максимальное количество байтов в тексте оператора SQL ограничено значением SQLITE_MAX_SQL_LENGTH, которое по умолчанию равно 1000000.

1. Все действия над копией.
Если сделал копию, то
2.В последнем FormatStr исправь

WHERE vid_rabor=

на vid_rabot
Ошибку сделал специально.

карма: 25

Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!

Ответов: 188

Рейтинг: 2

#12: 2019-01-16 12:47:37 ЛС | профиль | цитата

Tad писал(а):

Ошибку сделал специально.

Я это сразу земетил.
малость доработал))

Add(MainForm,13172333,126,322)
{
 Width=797
 Height=374
 Visible=1
 Position=1
 Point(onClose)
 Point(doShowModal)
 link(onCreate,13179759:doEvent1,[])
}
Add(Button,8993294,217,392)
{
 Left=690
 Top=10
 Width=75
 Font=[MS Sans Serif,8,1,0,1]
 Caption="UPDATE"
 link(onClick,7667942:doEvent1,[])
}
Add(StrList,6193653,392,343)
{
 Point(doGetString)
 Point(onGetString)
 link(onGetString,2479743:doSplit,[])
}
Add(For,1910295,301,406)
{
 Start=3
 link(onEvent,6193653:doGetString,[(363,412)(363,377)])
 link(onStop,6418945:doDelete,[])
 link(End,6193653:Count,[(314,390)(405,390)])
}
Add(MultiStrData,2479743,441,350)
{
 Char=","
 From=1
 Count=1
 link(onPart1,4324985:doString,[])
}
Add(FormatStr,4324985,490,350)
{
 DataCount=3
 Mask="%1=%1%3%2,"
 link(onFString,5706406:doStrCat,[])
 link(Str2,8571458:EditText,[(503,331)(489,331)])
 link(Str3,16349255:Var1,[(510,296)(524,296)])
}
Add(StrCat,5706406,539,350)
{
 Point(doClear)
 link(Str1,13425065:Var1,[(545,338)(532,338)(532,388)])
}
Add(Delete,6418945,539,413)
{
 Count=1
 Direction=1
 link(onDelete,8361769:doString,[])
 link(Str,13425065:Var2,[])
}
Add(FormatStr,8361769,588,413)
{
 Mask="UPDATE price SET %1 WHERE vid_rabot="%2" ;"
 link(onFString,15791570:doEvent1,[])
 link(Str2,238159:EditText,[(601,327)(335,327)])
}
Add(MT_String,688585,315,343)
{
 Delimeter=","
 link(onResult,6193653:doAdd,[])
}
Add(DSC_Query,351101,259,343)
{
 SQL="pragma table_info(price);"
 DSManager="parent.parent.global"
 link(onQuery,688585:doStr,[])
 link(onColumns,6193653:doClear,[])
}
Add(Memo,3009810,686,413)
{
 Left=20
 Top=40
 Width=750
 Height=280
}
Add(GetDataEx,13425065,539,383)
{
 link(Data,5706406:Result,[])
}
Add(ComboBox,238159,315,287)
{
 Left=115
 Top=10
 Width=155
 Height=21
 ReadOnly=0
 Point(EditText)
}
Add(DSC_Query,12791313,266,287)
{
 SQL="SELECT naimenovanie FROM vid_rabot;"
 DSManager="parent.parent.global"
 link(onQuery,238159:doAdd,[])
 link(onColumns,238159:doClear,[])
}
Add(Hub,13179759,217,336)
{
 link(onEvent1,12791313:doQuery,[(249,342)(249,293)])
 link(onEvent2,351101:doQuery,[])
}
Add(ComboBox,8571458,469,280)
{
 Left=490
 Top=10
 Height=21
 Strings=#1:0|2:20|2:50|
 ReadOnly=0
 Point(EditText)
}
Add(Label,13674496,182,287)
{
 Left=25
 Top=15
 Width=90
 Height=17
 Font=[MS Sans Serif,8,1,16711680,1]
 Caption="Вид работ"
 AutoSize=1
 Alignment=1
}
Add(Label,4569099,427,280)
{
 Left=420
 Top=15
 Width=63
 Height=17
 Font=[MS Sans Serif,8,1,16711680,1]
 Caption="Сумма"
 AutoSize=1
 Alignment=1
}
Add(Hub,7667942,259,392)
{
 OutCount=3
 link(onEvent1,5706406:doClear,[(527,398)(527,363)])
 link(onEvent2,3009810:doClear,[(669,405)(669,426)])
 link(onEvent3,1910295:doFor,[])
}
Add(DSC_Exec,3397730,686,455)
{
 DSManager="parent.parent.global"
 link(onExec,1352640:doMessage,[(751,461)(751,433)])
 link(onError,14134584:doMessage,[(744,468)(744,496)])
}
Add(Hub,15791570,630,413)
{
 link(onEvent1,3009810:doAdd,[])
 link(onEvent2,3397730:doExec,[(660,426)(660,461)])
}
Add(Message,14134584,770,490)
{
}
Add(Message,1352640,784,427)
{
 Message="Запрос выполнен. ожидайте 10 мин. процесс происходит без индикации!"
 Caption="Внимание!"
 Icon=4
}
Add(ComboBox,4804176,462,182)
{
 Left=295
 Top=10
 Width=110
 Height=21
 Strings=#9:Прибавить|6:Отнять|8:Умножить|6:Делить|
 Text="математический оператор"
 Point(Index)
 link(onClick,16349255:doWork1,[(506,195)(506,216)])
}
Add(MultiElement,16349255,518,210)
{
 link(Data1,4804176:Index,[(524,198)(503,198)(503,226)(482,226)])
}
BEGIN_SDK
  Add(EditMulti,406527,21,21)
  {
   WorkCount=1
   DataCount=1
   VarCount=1
   Width=706
   Height=494
   link(doWork1,11370421:doEvent,[(49,27)(49,118)])
   link(Var1,6236579:Var,[(27,393)(321,393)])
  }
  Add(IndexToChanel,11370421,77,112)
  {
   Count=4
   Point(Index)
   link(onEvent1,8489596:doWork1,[])
   link(onEvent2,8489596:doWork2,[])
   link(onEvent3,8489596:doWork3,[])
   link(onEvent4,8489596:doWork4,[])
   link(Index,406527:Data1,[(83,63)(27,63)])
  }
  Add(Memory,12844391,224,49)
  {
   Default=String(+)
  }
  Add(Memory,7395151,322,56)
  {
   Default=String(-)
  }
  Add(Memory,9047176,364,49)
  {
   Default=String(*)
  }
  Add(Memory,11484163,427,119)
  {
   Default=String(/)
  }
  Add(GetIndexData,6236579,315,182)
  {
   Count=4
   link(Data1,12844391:Value,[(321,132)(230,132)])
   link(Data2,7395151:Value,[])
   link(Data3,9047176:Value,[(335,138)(370,138)])
   link(Data4,11484163:Value,[(342,170)(433,170)])
  }
  Add(ChanelToIndex,8489596,133,112)
  {
   Count=4
   link(onIndex,6236579:doIndex,[(198,118)(198,188)])
  }
END_SDK

выбор арифметического оператора)

--- Добавлено в 2019-01-16 12:48:52

А вообще ты прав, по поводу прайса. Буду новую структуру рисовать. Более логичную что-ли.

--- Добавлено в 2019-01-16 12:54:03

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

 Add(ArrayEnum,14276055,266,602){
}

 Add(MT_Enum,2126823,518,602)
{
}

и хотя бы этот

Add(MT_MTArrayEnum,2854284,385,595)
{
}

Редактировалось 5 раз(а), последний 2019-01-16 13:01:34

карма: 0

Ответов: 16884

Рейтинг: 1239

#13: 2019-01-16 15:25:37 ЛС | профиль | цитата

zhorik5 писал(а):

выбор арифметического оператора)
А вообще кучи этих элементов можно было бы избежать если доработать компоненты добавить еще точку с помощью которой переключать на следующий элемент массива и так пока они не закончатся

Если включить мозги,то и кучи нет

Add(ComboBox,4804176,392,119)
{
 Left=295
 Top=10
 Width=110
 Height=21
 Strings=#9:Прибавить|6:Отнять|8:Умножить|6:Делить|
 Text="математический оператор"
 Point(Index)
 link(onClick,14240313:doGetString,[])
}
Add(StrList,14240313,448,98)
{
 Strings=#1:+|1:-|1:*|1:/|
 Point(doGetString)
 Point(onGetString)
 Point(String)
}
Add(FormatStr,4324985,455,287)
{
 DataCount=3
 Mask="%1=%1%3%2,"
 link(Str3,14240313:String,[])
}

Да и с "/" ты в ....

Не 3.75, а 3.
Учи матчасть.

Редактировалось 1 раз(а), последний 2019-01-16 15:30:09

карма: 25

Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!

Ответов: 188

Рейтинг: 2

#14: 2019-01-16 16:43:09 ЛС | профиль | цитата

Tad писал(а):

Если включить мозги,то и кучи нет

это гениально

карма: 0

Форумы Помощь по пакетуПошаговый перебор массива ← Ctrl1Ctrl →


Сообщение ...
Прикрепленные файлы (файлы не залиты)