Ограничение редактирования в MTStrTb только определёнными столбцами. И вычисление суммы при изменении количества или цены..
Add(MainForm,15443588,70,77)
{
Width=757
Height=356
link(onCreate,3682515:doConvert,[])
}
Add(MTStrTbl,15391708,63,154)
{
Width=741
Height=317
Align=5
Font=[Consolas,12,0,0,204]
Name="tabs"
Redaction=0
Point(onDblClick)
Point(Handle)
Point(onBeforeLineChange)
Point(onLineChange)
link(onBeforeLineChange,13940794:doValue,[])
link(onLineChange,2526260:doEvent1,[(109,202)(109,342)])
}
Add(MST_Load,571213,168,84)
{
MSTControl="tabs"
link(onLoadFromStream,2351068:doColAction,[])
}
Add(StreamConvertor,3682515,119,91)
{
Mode=7
Point(Data)
link(onResult,571213:doLoadFromStream,[])
link(Data,4308012:Text,[])
}
Add(WinEnum,11821637,245,168)
{
Point(onEnumChildWindows)
Point(doEnumChildWindows)
Point(ParentHandle)
link(onEnumChildWindows,10525174:doCompare,[])
link(ParentHandle,15391708:Handle,[(258,159)(132,159)(132,215)(97,215)])
}
Add(MT_MultiMem,12747369,343,182)
{
From=1
Count=1
link(onData,11447871:doNext,[])
}
Add(If_else,10525174,294,182)
{
Op1=String(obj_EDIT)
link(onTrue,12747369:doValue,[])
}
Add(DeferredEvent,103913,196,189)
{
Point(Data)
link(onDeferredEvent,11821637:doEnumChildWindows,[])
}
Add(WinTools,10447454,525,189)
{
Point(doEnable)
link(Handle,12747369:Value1,[(531,180)(503,180)(503,222)(349,222)])
}
Add(Hub,3852020,483,182)
{
link(onEvent1,10447454:doEnable,[(508,188)(508,223)])
link(onEvent2,10447454:doVisible,[])
}
Add(CounterEx,11447871,392,182)
{
Max=5
Default=-1
link(onNext,11843360:doSet,[])
}
Add(MultiSetParam,11843360,441,182)
{
Parameters=#1:0|1:0|1:1|1:0|1:1|1:0|
Count=1
link(onSet1,3852020:doEvent1,[])
}
Add(StrList,4308012,119,35)
{
Strings=#42:Item;Description;Quantity;Unit;Price;Value|63:13930;Double-action Quickstart II rem. L=740mm;1;PC;98,66;98,66|53:13100201;Spray gun for udder washer;20;PC;17,77;355,4|49:13246007;COMBI-cock ш51 mm cpl.;10;PC;63,43;634,3|51:25643301;Milk hose ш 24/14 x 2750;32;PC;9,76;312,32|56:14291;Service no.1 RDS MAX double box;1;PC;250,51;250,51|54:24144638;Spiral spring for tube filter;3;PC;43,2;129,6|40:22121763;V-belt spz 1087;4;PC;5,91;23,64|61:MH0015;Repair kit non-rotating cylinder ш40mm;8;PC;14,3;114,4|48:GS9835;Revision set SAC Unipuls;4;PC;13,97;55,88|52:22121735;El-motor 3,0kw 3x400v 1400;1;PC;186,4;186,4|55:23544122;Carbon disc ш44,7/38,3x5,8mm;10;PC;16,92;169,2|55:23544122;Carbon disc ш44,7/38,3x5,8mm;10;PC;16,92;169,2|54:23544122;Carbon disc ш44,7/38,3x5,8mm;2;PC;16,92;33,84|0:|
Point(doSave)
Point(EndIdx)
}
Add(MST_ColAction,2351068,217,91)
{
Action=9
Index=-2
MSTControl="tabs"
}
Add(Memory,13940794,147,189)
{
Point(Data)
link(onData,103913:doDeferredEvent,[])
link(Data,15391708:Index,[(153,180)(139,180)(139,222)(76,222)])
}
Add(MST_Matrix,3257474,315,336)
{
X=5
MSTControl="tabs"
}
Add(MatrixRW,4102110,315,392)
{
X=5
link(Matrix,3257474:Matrix,[])
link(Y,13940794:Value,[(342,383)(153,383)])
}
Add(MathParse,13647872,266,399)
{
DataCount=1
MathStr="%1[2] * %1[4]"
link(onResult,4102110:doWrite,[])
link(X1,3015629:Array,[])
}
Add(MT_Array,3015629,266,336)
{
}
Add(Hub,2526260,224,336)
{
link(onEvent1,3015629:doLoad,[])
link(onEvent2,13647872:doCalc,[(256,349)(256,405)])
}



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