На сколько я понял, так надо :
code_18860.txt
Подбить одновременно ОБЩИЙ ИТОГ - сам думай (хотя там и думать-то нечего).
------------ Дoбавленo в 18.08:
user_asm писал(а): Можно как то реализовать через Excel-файлы? можно, но там тоже думать прийдется. (А думать ты совсем не хочешь  )
------------ Дoбавленo в 18.34:
А правильнее так:
Add(MainForm,7423308,77,154) { Width=749 Height=472 link(onCreate,524209:doEnum,[]) } Add(StringTable,2937595,203,168) { Width=741 Height=205 Align=2 FileName="base.txt" Columns=#9:Пункт=100|10:Работы=300|14:Количество=100|13:Стоимость=200| Grid=0 link(onClick,8857643:doAdd,[]) } Add(StringTable,8857643,273,168) { Top=205 Width=741 Height=195 Align=2 Columns=#9:Пункт=100|10:Работы=300|14:Количество=100|13:Стоимость=100|9:Сумма=100| Grid=0 Point(onBeforeLineChange) Point(onLineChange) Point(Matrix) link(Str,2937595:Select,[(279,156)(250,156)(250,218)(216,218)]) link(onBeforeLineChange,11728440:doValue,[]) link(onLineChange,13643092:doRead,[(415,188)(415,363)(257,363)(257,307)]) } Add(StrList,3781076,133,105) { Strings=#21:10;Ознакомление;1;100|15:11;Расчет;1;200|17:12;Сличение;1;300|20:13;Составление;1;400| } Add(ArrayEnum,524209,147,168) { link(onItem,2937595:doAdd,[]) link(Array,3781076:Array,[]) } Add(MatrixRW,8775606,287,245) { X=3 link(onRead,3064903:doValue,[]) link(Matrix,9355003:Var2,[]) } Add(MatrixRW,13643092,273,301) { X=2 link(onRead,7481812:doOperation,[]) link(Matrix,9355003:Var1,[(279,236)]) } Add(GetDataEx,9355003,287,231) { link(Data,8857643:Matrix,[]) } Add(Math,7481812,343,301) { OpType=2 link(onResult,16463700:doWrite,[]) link(Op2,3064903:Value,[]) } Add(Memory,3064903,350,245) { } Add(MatrixRW,16463700,462,294) { X=4 link(Matrix,9355003:Var3,[(468,236)]) link(Y,11728440:Value,[]) } Add(Memory,11728440,483,175) { link(onData,8775606:doRead,[(522,181)(522,219)(261,219)(261,251)]) }
|