После этого должен происходить поиск по первой таблице и найденная строка должна заменять 1-ю строку во второй таблице.
Поиск я осилил, но вот как сделать замещение именно той строки куда вводил артикул недогоняю. Причем первый раз ищет, а если попытаться начать поиск второй раз, прога виснет.
Add(MainForm,16540238,35,168)
{
Left=35
Top=105
Width=846
Height=610
Caption="тест"
BorderStyle=1
Position=1
Point(doShowModal)
link(onCreate,7217032:doEvent1,[])
}
Add(MTStrTbl,6189595,182,301)
{
Left=430
Top=120
Width=405
Height=415
Name="prihod"
DoubleBuffered=0
Columns=#1:№|7:Артикул|12:Наименование|
Col=2
Redaction=0
Grid=0
Point(onKeyUp)
Point(onLineChange)
link(onLineChange,5947388:doValue,[])
}
Add(MST_FindText,15642032,357,392)
{
MSTControl="virt"
link(onFindText,13792170:doValue,[])
link(FindText,5947388:Value2,[])
}
Add(MTStrTbl,10521305,511,357)
{
Left=5
Top=120
Width=420
Height=415
Name="virt"
Columns=#1:№|6:Артику|12:Наименование|
Grid=0
}
Add(DoData,3933244,154,238)
{
Data=Integer(1)
link(onEventData,2843156:doWork2,[])
}
Add(Hub,7217032,84,182)
{
link(onEvent1,15650616:doEnum,[])
link(onEvent2,3933244:doData,[(133,195)(133,244)])
}
Add(MT_MultiMem,5947388,350,336)
{
Count=3
link(onData,15642032:doFindNext,[(413,342)(413,379)(345,379)(345,405)])
}
Add(StrList,16569558,147,119)
{
Strings=#74:1;18108;Сушилка для белья "BALCONY" 10м (10317090/100610/0004512/1 Турция)|77:2;18114;Сушилка для белья "MAXI JUNIOR" 18м (10317090/100610/0004512, Турция)|77:3;18116;Сушилка для белья "SEPETLI LUX" 20м (10317090/100610/0004512, Турция)|77:4;18120;Сушилка для белья "AEGEAN STAR" 18м (10317090/100610/0004512, Турция)|120:5;18301;Гладильная доска "CARINO" С удлинителем,с рукавом,с полкой для белья,моноблок. (10317090/100610/0004512, Турция)|108:6;18324;Гладильная доска "JUMBO" моноблок,рукав,удлинитель,полка для белья (10317090/100610/0004512, Турция)|
}
Add(ArrayEnum,15650616,161,182)
{
link(onItem,9295787:doMT,[])
link(Array,16569558:Array,[])
}
Add(MST_RowAction,1804230,308,175)
{
MSTControl="virt"
}
Add(MT_String,9295787,231,175)
{
link(onResult,1804230:doRowAction,[])
}
Add(MST_RowAction,10491391,700,238)
{
MSTControl="prihod"
}
Add(MST_RowAction,6761460,553,441)
{
MSTControl="prihod"
link(onChange,6346017:doOperation,[])
}
Add(FormatStr,9276924,441,448)
{
DataCount=3
Mask="%1;%2;%3"
link(onFString,15904645:doMT,[])
link(Str1,13792170:Value1,[])
link(Str2,13792170:Value2,[])
link(Str3,13792170:Value3,[])
}
Add(MT_MultiMem,13792170,441,392)
{
Count=3
Point(Data)
link(onData,9276924:doString,[(484,398)(484,436)(429,436)(429,454)])
link(Data,15642032:Select,[(447,380)(419,380)(419,435)(363,435)])
}
Add(MT_String,15904645,504,441)
{
link(onResult,6761460:doRowAction,[])
}
Add(Math,6346017,616,441)
{
Op2=1
link(onResult,2843156:doWork3,[(669,447)])
link(Op1,6189595:Count,[(622,429)(596,429)(596,487)(202,487)])
}
Add(HubEx,2843156,665,238)
{
link(onEvent,10491391:doRowAction,[])
}



Поиск
Друзья
Администрация