Вверх ↑
Этот топик читают: Гость
Ответов: 7
Рейтинг: 0
#1: 2018-10-22 12:47:15 ЛС | профиль | цитата
Доброго времени суток всем.
Сам врач функциональной диагностики, в программировании не соображаю, поэтому сильно не ругайте.
Пытаюсь создать себе программку для работы с заключениями по проводимым мной исследованиям.
При использовании DocumentTemplate и вставке текста необходим исходный шаблон получаемого документа, но один и тот же вид исследования содержит разное количество данных (есть патология или нет) и соответственно шаблон документа в виде исходной картинки не может быть применен (если только для "шапки" исследования).
При попытке вставить туда таблицу ситуация та-же. (вот если бы в разных строках таблицы менялись размеры ячеек, то можно было и таблицей обойтись).
При создании html шаблона та-же ситуация, не знаю как сделать так, чтобы при выборе какой то фразы она печаталась, а если не выбирать - то нет, при этом размер самого распечатываемого документа так же изменялся.

Add(ChildFormEx,2120500,616,63)
{
@Hint=#15:Исходные данные|
link(исходные данные,13606316:doEvent1,[(720,69)(720,237)])
}
BEGIN_SDK
Add(EditMultiEx,13712982,42,21)
{
WorkCount=#11:doShowModal|
EventCount=#15:исходные данные|
VarCount=#3:BSA|
Width=1161
Height=480
link(doShowModal,10212291:doShowModal,[(73,27)(73,62)])
link(BSA,10183803:Result,[(48,480)(314,480)])
}
Add(Label,983465,168,35)
{
Left=10
Top=20
Width=85
Caption="ФИО пациента:"
}
Add(Label,6148359,175,49)
{
Left=10
Top=45
Width=85
Caption="Дата рождения:"
}
Add(Label,9042239,182,63)
{
Left=275
Top=45
Caption="Возраст:"
}
Add(Label,13687630,189,77)
{
Left=10
Top=70
Width=30
Caption="Пол:"
}
Add(Label,12816990,196,91)
{
Left=10
Top=90
Width=110
Caption="Дата исследования:"
}
Add(Edit,505214,252,35)
{
Left=96
Top=15
Width=185
Name="Фамилия"
Text=""
link(onChange,13983404:doText,[])
}
Add(Edit,12696030,426,210)
{
Left=325
Top=40
Width=70
Name="Возраст"
Text=""
link(onChange,2932772:doText,[])
}
Add(Edit,8988694,249,74)
{
Left=285
Top=15
Width=185
Name="Имя"
Text=""
link(onChange,13190683:doText,[(291,80)(291,83)])
}
Add(Edit,15776932,249,116)
{
Left=475
Top=15
Width=185
Name="Отчество"
Text=""
link(onChange,3556875:doText,[(298,122)(298,125)])
}
Add(Button,12938203,42,126)
{
Left=270
Top=260
Width=75
Caption="Закрыть"
link(onClick,10030411:doEvent1,[(76,132)(76,83)])
}
Add(PC_Text,13983404,294,35)
{
ItemName="Фамилия"
Document="parent.Main"
link(onText,4404946:doEvent1,[(334,41)(334,27)])
link(Text,505214:Text,[(300,23)(279,23)(279,79)(258,79)])
}
Add(PC_Text,3556875,301,119)
{
ItemName="Отчество"
Document="parent.Main"
link(onText,4404946:doEvent3,[(338,125)(338,41)])
link(Text,15776932:Text,[(307,107)(281,107)(281,160)(255,160)])
}
Add(PC_Text,13190683,294,77)
{
ItemName="Имя"
Document="parent.Main"
link(onText,4404946:doEvent2,[(334,83)(334,34)])
link(Text,8988694:Text,[(300,65)(278,65)(278,118)(255,118)])
}
Add(PC_Text,2932772,483,210)
{
ItemName="Возраст"
Document="parent.Main"
link(onText,4562116:doEvent3,[(831,216)(831,41)])
link(Text,12696030:Text,[(489,198)(461,198)(461,254)(432,254)])
}
Add(PC_Text,4727057,427,84)
{
ItemName="Пол"
Document="parent.Main"
link(onText,4562116:doEvent4,[(803,90)(803,48)])
link(Text,14874005:String,[(433,72)(409,72)(409,134)(384,134)])
}
Add(PC_Text,1707941,532,147)
{
ItemName="Дата исследования"
Document="parent.Main"
FontApply=0
Font=[Times New Roman,20,1,0,204]
link(onText,4562116:doEvent5,[(856,153)(856,55)])
}
Add(DatePicker,6470222,420,147)
{
Left=120
Top=90
Width=115
Height=21
Point(DateTime)
Point(CurrentDateInt)
link(onChange,7993735:doConvert,[])
}
Add(Timer,1861084,371,147)
{
AutoStop=1
link(onTimer,6470222:doSetDate,[])
}
Add(DateConvertor,7993735,476,147)
{
Mode=9
Format=""d" MMMM yyyy"
Point(Result)
Point(Data)
link(onResult,1707941:doText,[])
link(Data,6470222:DateTime,[(482,135)(454,135)(454,191)(426,191)])
}
Add(PC_Text,9406866,567,28)
{
ItemName="Дата рождения"
Document="parent.Main"
FontApply=0
Font=[Times New Roman,20,1,0,204]
link(onText,4562116:doEvent2,[])
}
Add(DatePicker,14571365,448,28)
{
Left=95
Top=40
Width=130
Height=21
Point(DateTime)
Point(DateInt)
link(onChange,12861213:doConvert,[])
}
Add(DateConvertor,12861213,518,28)
{
Mode=9
Format=""d" MMMM yyyy"
Point(Result)
Point(Data)
link(onResult,9406866:doText,[])
link(Data,14571365:DateTime,[(524,16)(489,16)(489,72)(454,72)])
}
Add(MainForm,10212291,105,28)
{
Width=673
Height=321
Visible=1
Caption="Паспортные данные"
BorderStyle=1
Position=1
Point(doShowModal)
}
Add(ComboBox,14874005,371,77)
{
Left=40
Top=65
Width=125
Height=21
Strings=#7:Мужской|7:Женский|
Text=""
DataType=1
Point(Text)
link(onClick,4727057:doText,[])
}
Add(MathParse,6360888,364,210)
{
MathStr="(%1 - %2) div 355"
Point(reCalc)
link(onResult,12696030:doText,[])
link(X1,6470222:CurrentDateInt,[(370,194)(433,194)])
link(X2,14571365:DateInt,[(377,135)(461,135)])
}
Add(PC_TableSetCell,2566488,560,273)
{
ItemName="Аппарат"
Document="parent.Main"
link(onText,4562116:doEvent6,[(870,279)(870,62)])
link(Text,2977541:Text,[(566,261)(486,261)(486,317)(405,317)])
}
Add(PC_TableRow,2096294,490,273)
{
ItemName="Аппарат"
Document="parent.Main"
link(onAddRow,2566488:doText,[])
}
Add(ComboBox,15274431,329,266)
{
Left=145
Top=135
Width=230
Height=21
Strings=#12:Medison EKO7|22:"Vivid-7 dimension" GE|16:"Vivid-7 Pro" GE|19:"Vivid-3 expert" GE|20:"Sequoia 512" Simens|
Text=""
DataType=1
link(onClick,15994928:doWork2,[])
}
Add(Button,9554217,441,280)
{
Left=545
Top=135
Caption="Очистить"
Data=Integer(-1)
link(onClick,2096294:doRemoveRow,[])
}
Add(Edit,2977541,399,273)
{
Left=385
Top=135
Width=150
Text=""
link(onChange,2096294:doAddRow,[])
}
Add(Label,6393447,201,105)
{
Left=10
Top=135
Width=125
Height=27
Caption="Название УЗ сканера:"
}
Add(Label,6503065,112,133)
{
Left=10
Top=213
Width=28
Height=17
Caption="Рост"
}
Add(Label,10311958,165,137)
{
Left=124
Top=213
Width=28
Height=17
Caption="Вес"
}
Add(Label,2701931,109,179)
{
Left=227
Top=213
Width=27
Height=17
Caption="САД"
}
Add(Label,12929900,166,180)
{
Left=358
Top=213
Width=29
Height=17
Caption="ДАД"
}
Add(Label,6589548,179,193)
{
Left=307
Top=213
Width=51
Height=17
Caption="мм.рт.ст."
}
Add(Label,35071,124,194)
{
Left=445
Top=213
Width=51
Height=17
Caption="мм.рт.ст."
}
Add(Edit,14720609,245,322)
{
Left=41
Top=213
Width=45
Name="Рост"
Text=""
Point(onSetFocus)
link(onChange,1900976:doText,[])
}
Add(Label,5328709,124,145)
{
Left=96
Top=213
Width=18
Height=17
Caption="см"
}
Add(Label,12659117,180,145)
{
Left=199
Top=213
Width=19
Height=20
Caption="кг"
}
Add(Edit,5258101,249,382)
{
Left=152
Top=213
Width=42
Name="Вес"
Text=""
Point(onKillFocus)
link(onChange,8105969:doText,[(308,388)(308,384)])
}
Add(Edit,3385652,802,81)
{
Left=254
Top=213
Width=41
Name="САД"
Text=""
Point(onSetFocus)
link(onChange,11014044:doText,[(861,87)(861,90)])
}
Add(Edit,8029715,802,151)
{
Left=395
Top=213
Width=47
Name="ДАД"
Text=""
Point(onKillFocus)
link(onChange,95730:doText,[(868,157)(868,153)])
}
Add(Edit,1834783,914,193)
{
Left=540
Top=85
Width=75
Visible=1
Name="АДср"
Text=""
link(onChange,12378531:doText,[(952,199)(952,202)])
}
Add(Edit,10939722,361,424)
{
Left=541
Top=58
Width=75
Visible=1
Name="BSA"
Text=""
link(onChange,9852582:doText,[(403,430)(403,433)])
}
Add(Button,1519139,242,258)
{
Left=224
Top=167
Width=61
Caption="Добавить"
Data=Integer(-1)
link(onClick,15949114:doWork1,[(280,264)(280,258)])
}
Add(ChildForm,15949114,287,252)
{
link(onEvent1,15994928:doWork1,[(375,258)])
}
BEGIN_SDK
Add(EditMulti,12736807,21,21)
{
EventCount=1
WorkCount=1
VarCount=1
link(doWork1,1041039:doShowModal,[(28,27)(28,139)])
link(Var1,6573253:Text,[(27,147)(90,147)])
}
Add(MainForm,1041039,35,105)
{
Left=35
Top=105
Visible=1
Point(doShowModal)
}
Add(Edit,6573253,84,42)
{
Left=80
Top=30
Width=215
Text=""
link(onEnter,12736807:onEvent1,[(218,55)(218,27)])
}
Add(Button,7961982,175,112)
{
Left=140
Top=105
Width=65
Height=25
Caption="Закрыть"
link(onClick,1041039:doClose,[(219,118)(219,125)(23,125)(23,132)])
}
END_SDK
Add(HubEx,15994928,371,273)
{
link(onEvent,2977541:doText,[])
}
Add(Label,12898111,109,235)
{
Left=496
Top=213
Width=26
Height=17
Caption="ЧСС"
}
Add(Label,13780880,116,242)
{
Left=576
Top=213
Height=17
Caption="уд.в мин."
}
Add(Edit,5109496,991,102)
{
Left=522
Top=213
Width=45
Name="ЧСС"
Text=""
link(onChange,12060568:doText,[(1033,108)(1033,104)])
}
Add(PC_Text,95730,875,147)
{
ItemName="ДАД"
Document="parent.Main"
link(onText,2750302:doEvent2,[(923,153)(923,83)])
link(Text,8029715:Text,[(881,135)(859,135)(859,195)(808,195)])
}
Add(PC_Text,11014044,868,84)
{
ItemName="САД"
Document="parent.Main"
link(onText,2750302:doEvent1,[(919,90)(919,76)])
link(Text,3385652:Text,[(874,72)(852,72)(852,125)(808,125)])
}
Add(PC_Text,8105969,315,378)
{
ItemName="Вес"
Document="parent.Main"
link(onText,8550322:doEvent2,[(369,384)(369,335)])
link(Text,5258101:Text,[(321,366)(299,366)(299,426)(255,426)])
}
Add(PC_Text,1900976,329,322)
{
ItemName="Рост"
Document="parent.Main"
link(onText,8550322:doEvent1,[])
link(Text,14720609:Text,[(335,310)(290,310)(290,366)(251,366)])
}
Add(MathParse,10183803,308,427)
{
MathStr="((0.007184*(%1^0.725)*(%2^0.425))*100 div 1)/100"
link(onResult,10939722:doText,[(350,433)(350,430)])
link(X1,1900976:CurrentText,[(314,391)(335,391)])
link(X2,8105969:CurrentText,[])
}
Add(PC_Text,9852582,413,427)
{
ItemName="BSA"
Document="parent.Main"
link(onText,8550322:doEvent3,[(457,433)(457,387)(380,387)(380,342)])
link(Text,10939722:Text,[(419,415)(393,415)(393,468)(367,468)])
}
Add(PC_Text,12060568,1043,98)
{
ItemName="ЧСС"
Document="parent.Main"
link(onText,4562116:doEvent9,[(1111,104)(1111,83)])
}
Add(PC_Text,12378531,959,196)
{
ItemName="АДср"
Document="parent.Main"
link(onText,2750302:doEvent3,[(997,202)(997,153)(930,153)(930,90)])
}
Add(MathParse,845671,868,224)
{
MathStr="((%2 + (%1 - %2) / 3) * 10 div 1)/10"
link(onResult,1834783:doText,[(907,230)(907,199)])
link(X1,11014044:CurrentText,[])
link(X2,95730:CurrentText,[])
}
Add(Hub,4404946,343,21)
{
InCount=3
OutCount=1
link(onEvent1,4562116:doEvent1,[])
}
Add(Hub,2750302,938,70)
{
InCount=3
OutCount=1
link(onEvent1,4562116:doEvent8,[])
}
Add(Hub,8550322,392,322)
{
InCount=3
OutCount=1
link(onEvent1,4562116:doEvent7,[(777,328)(777,69)])
}
Add(Hub,10030411,77,77)
{
OutCount=4
link(onEvent1,10212291:doClose,[(98,83)(98,55)])
link(onEvent2,6360888:doCalc,[(207,90)(207,216)])
link(onEvent3,10183803:doCalc,[(199,97)(199,433)])
link(onEvent4,845671:doCalc,[(479,104)(479,230)])
}
Add(Hub,4562116,1162,21)
{
InCount=9
OutCount=1
link(onEvent1,13712982:исходные данные,[])
}
END_SDK
Add(Button,10837180,567,63)
{
Left=5
Top=10
Width=125
Height=25
Font=[MS Sans Serif,8,1,0,1]
Caption="Исходные данные"
link(onClick,2120500:doShowModal,[])
}
Add(MainForm,7665066,126,98)
{
Width=1061
Height=769
Name="ЭхоКГ"
}
Add(DocumentTemplate,3905573,868,315)
{
Name="Main"
link(Bitmap,14117540:Var2,[])
}
BEGIN_SDK
Add(Print_Text,14004140,144,105)
{
Name="Фамилия"
X=147
Y=108
Width=190
Height=25
Font=[Times New Roman,12,5,0,204]
Vertical=2
Horizontal=0
}
Add(Print_Text,11875304,166,189)
{
Name="Дата исследования"
X=169
Y=192
Width=155
Height=25
Font=[Times New Roman,12,5,0,204]
Vertical=2
Horizontal=0
}
Add(Print_Text,9054152,333,105)
{
Name="Имя"
X=336
Y=108
Width=162
Height=25
Font=[Times New Roman,12,5,0,204]
Vertical=2
Horizontal=0
}
Add(Print_Text,8164525,144,133)
{
Name="Дата рождения"
X=147
Y=136
Width=155
Height=25
Font=[Times New Roman,12,5,0,204]
Vertical=2
Horizontal=0
}
Add(Print_Text,11605179,494,105)
{
Name="Отчество"
X=497
Y=108
Width=148
Height=25
Font=[Times New Roman,12,5,0,204]
Vertical=2
Horizontal=0
}
Add(Print_Text,16345308,70,161)
{
Name="Пол"
X=73
Y=164
Width=99
Height=25
Font=[Times New Roman,12,5,0,204]
Horizontal=0
}
Add(Print_Table,1540500,525,63)
{
Name="Аппарат"
X=528
Y=66
Width=204
Columns=#6:Сканер|
RowHeight=25
TableTrans=0
TBorderStyle=5
TBorderSize=0
TBorderColor=-16777211
Visible=1
CellFont=[Times New Roman,12,1,0,204]
CBorderStyle=5
}
Add(Print_Text,3313631,70,14)
{
X=73
Y=17
Width=631
Height=46
Text="Эхокардиография с допплеррографией \r\nи оценккой центральной гемодинамики"
Font=[Times New Roman,14,1,0,204]
}
Add(Print_Text,11872998,17,105)
{
X=20
Y=108
Width=125
Height=25
Text="ФИО пациента:"
Font=[Times New Roman,12,1,0,204]
}
Add(Print_Text,11538102,17,133)
{
X=20
Y=136
Width=125
Height=25
Text="Дата рождения:"
Font=[Times New Roman,12,1,0,204]
}
Add(Print_Text,16515827,17,161)
{
X=20
Y=164
Width=50
Height=25
Text="Пол:"
Font=[Times New Roman,12,1,0,204]
}
Add(Print_Text,11865329,17,189)
{
X=20
Y=192
Width=150
Height=25
Text="Дата исследования:"
Font=[Times New Roman,12,1,0,204]
}
Add(Print_Text,14786185,350,133)
{
X=353
Y=136
Width=71
Height=25
Text="Возраст:"
Font=[Times New Roman,12,1,0,204]
}
Add(Print_Text,1656388,462,133)
{
X=465
Y=136
Width=36
Height=25
Text="лет."
Font=[Times New Roman,12,1,0,204]
Horizontal=0
}
Add(Print_Text,2927552,129,63)
{
X=132
Y=66
Width=388
Height=25
Text="Исследование проведено на ультразвуковом сканере"
Font=[Times New Roman,12,1,0,204]
}
Add(Print_Text,13152160,17,217)
{
X=20
Y=220
Width=50
Height=25
Text="Рост:"
Font=[Times New Roman,12,1,0,204]
}
Add(Print_Text,16604580,108,217)
{
X=111
Y=220
Width=29
Height=25
Text="см."
Font=[Times New Roman,12,1,0,204]
}
Add(Print_Text,14850617,171,217)
{
X=174
Y=220
Width=43
Height=25
Text="Вес:"
Font=[Times New Roman,12,1,0,204]
}
Add(Print_Text,7211449,255,217)
{
X=258
Y=220
Width=29
Height=25
Text="кг."
Font=[Times New Roman,12,1,0,204]
}
Add(Print_Text,6933019,304,217)
{
X=307
Y=220
Width=43
Height=25
Text="BSA"
Font=[Times New Roman,12,1,0,204]
}
Add(Print_Text,8321657,388,217)
{
X=391
Y=220
Width=43
Height=25
Text="кв.м."
Font=[Times New Roman,12,1,0,204]
}
Add(Print_Text,5301395,17,245)
{
X=20
Y=248
Width=50
Height=25
Text="САД"
Font=[Times New Roman,12,1,0,204]
}
Add(Print_Text,9789543,486,217)
{
X=489
Y=220
Width=50
Height=25
Text="ЧСС"
Font=[Times New Roman,12,1,0,204]
}
Add(Print_Text,11643442,577,217)
{
X=580
Y=220
Width=78
Height=25
Text="уд.в мин."
Font=[Times New Roman,12,1,0,204]
}
Add(Print_Text,590939,108,245)
{
X=111
Y=248
Width=71
Height=25
Text="мм.рт.ст."
Font=[Times New Roman,12,1,0,204]
}
Add(Print_Text,9315630,206,245)
{
X=209
Y=248
Width=50
Height=25
Text="ДАД"
Font=[Times New Roman,12,1,0,204]
}
Add(Print_Text,13872993,297,245)
{
X=300
Y=248
Width=71
Height=25
Text="мм.рт.ст."
Font=[Times New Roman,12,1,0,204]
}
Add(Print_Text,13447361,402,245)
{
X=405
Y=248
Width=50
Height=25
Text="АДср"
Font=[Times New Roman,12,1,0,204]
}
Add(Print_Text,5066647,507,245)
{
X=510
Y=248
Width=71
Height=25
Text="мм.рт.ст."
Font=[Times New Roman,12,1,0,204]
}
Add(Print_Text,15380872,67,217)
{
Name="Рост"
X=70
Y=220
Width=36
Height=25
Font=[Times New Roman,12,5,0,204]
Vertical=2
Horizontal=0
}
Add(Print_Text,11440657,214,217)
{
Name="Вес"
X=217
Y=220
Width=36
Height=25
Font=[Times New Roman,12,5,0,204]
Vertical=2
Horizontal=0
}
Add(Print_Text,14423780,347,217)
{
Name="BSA"
X=350
Y=220
Width=36
Height=25
Font=[Times New Roman,12,5,0,204]
Vertical=2
Horizontal=0
}
Add(Print_Text,3991992,536,217)
{
Name="ЧСС"
X=539
Y=220
Width=36
Height=25
Font=[Times New Roman,12,5,0,204]
Vertical=2
Horizontal=0
}
Add(Print_Text,7863644,67,245)
{
Name="САД"
X=70
Y=248
Width=36
Height=25
Font=[Times New Roman,12,5,0,204]
Vertical=2
Horizontal=0
}
Add(Print_Text,670501,256,245)
{
Name="ДАД"
X=259
Y=248
Width=36
Height=25
Font=[Times New Roman,12,5,0,204]
Vertical=2
Horizontal=0
}
Add(Print_Text,13896184,453,245)
{
Name="АДср"
X=456
Y=248
Width=50
Height=25
Font=[Times New Roman,12,5,0,204]
Vertical=2
Horizontal=0
}
Add(Print_Text,15181194,425,133)
{
Name="Возраст"
X=428
Y=136
Width=36
Height=25
Font=[Times New Roman,12,5,0,204]
Vertical=2
Horizontal=0
}
Add(Print_Table,11847948,14,280)
{
Name="maintabl"
X=17
Y=283
Width=813
Height=88
Columns=#7:0|147|0|6:1|28|0|6:2|42|0|6:3|63|0|6:4|49|0|7:5|189|0|6:6|56|0|6:7|42|0|6:8|35|0|6:9|98|0|7:10|70|0|0:|
RowHeight=20
TableTrans=0
Visible=1
CellFont=[MS Sans Serif,10,0,0,1]
Left=2
}
END_SDK
Add(PaintBox,5594051,868,231)
{
Left=150
Width=895
Height=730
Align=3
Color=16777215
Layout="horz"
WidthScale=100
HeightScale=100
ClearBeforeDraw=0
link(onBeforeDraw,3905573:doDraw,[(919,237)(919,293)(856,293)(856,321)])
}
Add(VBoxLayout,10551583,182,98)
{
Name="horz"
Space=3
Padding=100
}
Add(ChildForm,136782,1099,343)
{
link(Data1,14117540:Var1,[(1105,299)])
}
BEGIN_SDK
Add(EditMulti,10104953,21,21)
{
WorkCount=1
DataCount=1
Width=489
Height=228
link(doWork1,14545961:doShowModal,[(53,27)(53,146)])
}
Add(MainForm,14545961,84,105)
{
Left=35
Top=105
Visible=1
Point(doVisible)
Point(doShowModal)
}
Add(Button,8789902,210,84)
{
Left=55
Top=131
Width=162
Height=30
Font=[MS Sans Serif,8,1,0,1]
Caption="Printer setting"
link(onClick,9274203:doSettings,[(265,90)(265,118)])
}
Add(Button,210527,210,126)
{
Left=55
Top=161
Width=162
Height=30
Font=[MS Sans Serif,10,1,0,1]
Caption="Print"
link(onClick,9274203:doPrintDlg,[(268,132)(268,125)])
}
Add(Printer,9274203,280,105)
{
Point(doSettings)
Point(CurDPIY)
Point(doPrintDlg)
link(onPrint,12245691:doDraw,[])
}
Add(Img_Bmp,12245691,406,105)
{
X=10
Y=10
DrawSource=2
Point(doDrawSource)
link(Bitmap,9274203:Context,[(412,86)(322,86)(322,148)(286,148)])
link(SourceBitmap,10104953:Data1,[(419,63)(27,63)])
}
END_SDK
Add(GetDataEx,14117540,868,294)
{
link(Data,5594051:Bitmap,[])
}
Add(Button,11192611,1050,343)
{
Left=10
Top=680
Width=120
Height=25
Font=[MS Sans Serif,10,1,0,1]
Caption="Печать"
link(onClick,136782:doWork1,[])
}
Add(Button,12350464,564,235)
{
Left=5
Top=45
Width=125
Height=25
Font=[MS Sans Serif,8,1,0,1]
Caption="Левое предсердие"
link(onClick,5029926:doShowModal,[(603,241)(603,244)])
}
Add(Button,14364272,501,186)
{
Left=5
Top=70
Width=125
Height=30
Font=[MS Sans Serif,8,1,0,1]
Caption="Правое предсердие"
}
Add(Button,10638566,494,179)
{
Left=5
Top=100
Width=125
Height=25
Font=[MS Sans Serif,8,1,0,1]
Caption="МПП"
}
Add(Button,11841673,487,172)
{
Left=5
Top=125
Width=125
Height=25
Font=[MS Sans Serif,8,1,0,1]
Caption="Правый желудочек"
}
Add(Button,11588444,480,165)
{
Left=5
Top=150
Width=125
Height=25
Font=[MS Sans Serif,8,1,0,1]
Caption="МЖП"
}
Add(Button,9686192,474,159)
{
Left=5
Top=175
Width=125
Height=25
Font=[MS Sans Serif,8,1,0,1]
Caption="Левый желудочек"
}
Add(Button,3732312,467,152)
{
Left=5
Top=200
Width=125
Height=25
Font=[MS Sans Serif,8,1,0,1]
Caption="Нижняя стенка"
}
Add(Button,12856497,460,145)
{
Left=5
Top=225
Width=125
Height=30
Font=[MS Sans Serif,8,1,0,1]
Caption="Локальная\r\nсократимость"
}
Add(Button,10351570,453,138)
{
Left=5
Top=255
Width=125
Height=25
Font=[MS Sans Serif,8,1,0,1]
Caption="Аорта"
}
Add(Button,8040810,446,131)
{
Left=5
Top=280
Width=125
Height=30
Font=[MS Sans Serif,8,1,0,1]
Caption="Аортальный\r\nклапан"
}
Add(Button,14120743,439,124)
{
Left=5
Top=310
Width=125
Height=30
Font=[MS Sans Serif,8,1,0,1]
Caption="Митральный\r\nклапан"
}
Add(Button,3259567,432,117)
{
Left=5
Top=340
Width=125
Height=30
Font=[MS Sans Serif,8,1,0,1]
Caption="Трикуспидальный\r\nклапан"
}
Add(Button,5665915,425,110)
{
Left=5
Top=370
Width=125
Height=25
Font=[MS Sans Serif,8,1,0,1]
Caption="НПВ"
}
Add(Button,9922601,418,103)
{
Left=5
Top=395
Width=125
Height=25
Font=[MS Sans Serif,8,1,0,1]
Caption="Легочная артерия"
}
Add(Button,16239121,411,96)
{
Left=5
Top=420
Width=125
Height=25
Font=[MS Sans Serif,8,1,0,1]
Caption="Клапан ЛА"
}
Add(Button,12837169,404,89)
{
Left=5
Top=445
Width=125
Height=25
Font=[MS Sans Serif,8,1,0,1]
Caption="Легочный поток"
}
Add(Button,7571637,397,82)
{
Left=5
Top=470
Width=125
Height=25
Font=[MS Sans Serif,8,1,0,1]
Caption="НДФ ЛЖ"
}
Add(Button,4415929,390,75)
{
Left=5
Top=495
Width=125
Height=25
Font=[MS Sans Serif,8,1,0,1]
Caption="НДВ ПЖ"
}
Add(Button,14831634,383,68)
{
Left=5
Top=545
Width=125
Height=30
Font=[MS Sans Serif,8,1,0,1]
Caption="Дополнительные\r\nкомментарии"
}
Add(Button,5406242,376,61)
{
Left=5
Top=580
Width=125
Height=25
Font=[MS Sans Serif,8,1,0,1]
Caption="Заключение"
}
Add(ChildFormEx,5029926,616,238)
{
@Hint=#16:Левое предсердие|
link(ЛП 2-х,13606316:doEvent2,[])
link(BSA,2120500:BSA,[])
}
BEGIN_SDK
Add(EditMultiEx,14780041,35,0)
{
WorkCount=#11:doShowModal|
EventCount=#6:ЛП 2-х|6:ЛП 4-х|16:Описание размера|11:Комментарии|
DataCount=#3:BSA|
Width=1161
Height=585
link(doShowModal,2603114:doShowModal,[(73,6)(73,62)])
}
Add(Label,15624515,245,70)
{
Left=285
Top=16
Width=23
Height=17
Caption="мм."
}
Add(Label,1783835,203,28)
{
Left=10
Top=140
Width=77
Height=17
Caption="Комментарии:"
}
Add(Button,7540065,56,112)
{
Left=295
Top=275
Width=75
Caption="Закрыть"
link(onClick,2603114:doClose,[(100,118)(100,55)])
}
Add(MainForm,2603114,105,28)
{
Width=703
Height=338
Visible=1
Caption="Левое предсердие"
BorderStyle=1
Position=1
Point(doShowModal)
}
Add(PC_TableSetCell,10632305,826,133)
{
ItemName="maintabl"
Document="parent.Main"
link(onText,1058380:doSetStyle,[])
link(Text,14095109:Item,[(832,121)(776,121)(776,156)(720,156)])
}
Add(PC_TableRow,3437858,770,133)
{
ItemName="maintabl"
Document="parent.Main"
link(onAddRow,10632305:doText,[])
}
Add(Label,8242828,161,70)
{
Left=175
Top=16
Width=46
Height=17
Caption="мм, 4-х"
}
Add(Memo,1157746,875,217)
{
Left=10
Top=70
Width=660
Height=35
Name="Описание размера ЛП текст"
ScrollBars=2
}
Add(Memo,130327,158,375)
{
Left=10
Top=165
Width=660
Height=75
Name="Комментарии ЛП текст"
ScrollBars=2
}
Add(Label,6538822,203,70)
{
Left=317
Top=16
Width=47
Height=17
Caption="КДО ЛП"
}
Add(Label,9423663,165,27)
{
Left=405
Top=16
Width=84
Height=17
Caption="мл, Индекс ЛП"
}
Add(Label,11685779,287,28)
{
Left=535
Top=16
Width=122
Height=17
Caption="мл/кв.м (Норма 18-25)"
}
Add(ComboBox,2230180,826,210)
{
Left=10
Top=45
Width=200
Height=21
Name="Описание размера ЛП"
Strings=#12:не расширено|9:расширено|23:незначительно расширено|18:умеренно расширено|21:значительно расширено|
Text=""
DataType=1
link(onClick,1157746:doAdd,[])
}
Add(ComboBox,15445902,109,375)
{
Left=85
Top=140
Width=585
Height=21
Name="Комментарии ЛП"
Strings=#46:устья легочных вен лоцируются в типичном месте|61:устья правых легочных вен в типичном месте не визуализируются|150:разделено мебраной на две части:задневерхнюю, принимающую легочные вены, и передненижнюю, сообщающуюся с ушком левого предсердия и митральным клапаном|
Text=""
link(onChange,130327:doAdd,[])
}
Add(Button,16684074,483,133)
{
Left=445
Top=260
Width=60
Caption="Добавить"
link(onClick,14940181:doEvent1,[])
}
Add(PC_TableSetCell,1008348,651,273)
{
ItemName="maintabl"
Document="parent.Main"
Col=1
link(Text,6640010:Item,[(657,261)(633,261)(633,317)(608,317)])
link(Row,15302633:Var1,[(671,219)])
}
Add(PC_TableSetCell,1746006,777,280)
{
ItemName="maintabl"
Document="parent.Main"
Col=3
link(Text,5143920:Item,[(783,268)(762,268)(762,324)(741,324)])
link(Row,8560377:Var2,[])
}
Add(PC_TableSetCell,7482923,931,280)
{
ItemName="maintabl"
Document="parent.Main"
Col=5
link(Text,10025059:Item,[(937,268)(916,268)(916,324)(895,324)])
link(Row,8560377:Var3,[(951,250)])
}
Add(Memo,8765271,588,210)
{
Left=115
Top=10
Height=20
Name="ЛП 2-х"
}
Add(Label,13441885,245,28)
{
Left=15
Top=15
Width=100
Caption="Левое предсердие"
}
Add(Memo,1710749,721,210)
{
Left=220
Top=10
Width=65
Height=20
}
Add(Hub,14940181,539,133)
{
OutCount=12
link(onEvent1,14095109:doEnum,[(633,139)(633,118)])
link(onEvent2,6640010:doEnum,[(577,146)(577,279)])
link(onEvent3,5143920:doEnum,[(644,153)(644,286)])
link(onEvent4,10025059:doEnum,[(721,160)(721,286)])
link(onEvent5,1208463:doEnum,[(798,167)(798,314)])
link(onEvent6,135427:doEnum,[(805,174)(805,433)])
link(onEvent7,6004115:doEnum,[(647,181)(647,503)])
link(onEvent12,14780041:ЛП 2-х,[(875,216)(875,6)])
}
Add(ArrayEnum,6640010,602,273)
{
link(onItem,1008348:doText,[])
link(Array,8765271:Array,[])
}
Add(ArrayEnum,5143920,735,280)
{
link(onItem,1746006:doText,[])
link(Array,1710749:Array,[])
}
Add(ArrayEnum,10025059,889,280)
{
link(onItem,7482923:doText,[])
link(Array,1157746:Array,[])
}
Add(ArrayEnum,14095109,714,112)
{
link(onItem,3437858:doAddRow,[(758,118)(758,139)])
link(Array,6515824:Array,[])
}
Add(StrList,6515824,700,49)
{
Strings=#16:Левое предсердие|
}
Add(PC_TableCellStyle,1058380,917,133)
{
ItemName="maintabl"
Document="parent.Main"
FontApply=0
Font=[MS Sans Serif,12,1,0,1]
}
Add(ArrayEnum,1208463,1043,308)
{
link(onItem,6713559:doText,[])
link(Array,589987:Array,[])
}
Add(StrList,589987,1029,252)
{
Strings=#3:мм.|
}
Add(PC_TableSetCell,6713559,1106,308)
{
ItemName="maintabl"
Document="parent.Main"
Col=2
link(Text,1208463:Item,[(1112,296)(1080,296)(1080,352)(1049,352)])
}
Add(ArrayEnum,135427,1057,427)
{
link(onItem,7845586:doText,[])
link(Array,6614415:Array,[])
}
Add(StrList,6614415,1043,371)
{
Strings=#3:мм.|
}
Add(PC_TableSetCell,7845586,1120,427)
{
ItemName="maintabl"
Document="parent.Main"
Col=4
link(Text,135427:Item,[(1126,415)(1094,415)(1094,471)(1063,471)])
}
Add(GetDataEx,14162354,770,210)
{
link(Data,3437858:Row,[])
}
Add(GetDataEx,8560377,791,245)
{
link(Data,14162354:Var3,[(797,215)])
}
Add(Button,11516880,483,175)
{
Left=520
Top=260
Caption="Очистить"
Data=Integer(-1)
link(onClick,3437858:doRemoveRow,[(643,181)(643,146)])
}
Add(Memo,16393196,245,322)
{
Left=360
Top=10
Width=45
Height=20
Name="КДО ЛП"
}
Add(Memo,10760396,427,399)
{
Left=490
Top=10
Width=45
Height=20
Name="Индекс ЛП"
}
Add(PC_TableSetCell,16723550,308,399)
{
ItemName="maintabl"
Document="parent.Main"
Col=7
link(Text,2139198:Item,[(314,387)(290,387)(290,443)(265,443)])
}
Add(ArrayEnum,2139198,259,399)
{
link(onItem,16723550:doText,[])
link(Array,16393196:Array,[])
}
Add(GetDataEx
карма: 0

0
vip
#1.1контекстная реклама от партнеров
Ответов: 16884
Рейтинг: 1239
#2: 2018-10-22 20:38:33 ЛС | профиль | цитата
По-моему до печати ещё далеко.
Может лучше кого-то попросить сделать программу ?
Это что ?


Add(MainForm,2953706,35,175)
{
Width=436
Height=214
}
Add(DatePicker,14571365,175,175)
{
Left=95
Top=40
Width=130
Height=21
Point(DateTime)
Point(DateInt)
}
Add(DatePicker,6470222,105,175)
{
Left=120
Top=90
Width=115
Height=21
Point(DateTime)
Point(CurrentDateInt)
}
Add(MathParse,6360888,112,231)
{
MathStr="(%1 - %2) div 355"
Point(reCalc)
link(onResult,12696030:doText,[])
link(X1,6470222:CurrentDateInt,[])
link(X2,14571365:DateInt,[(125,219)(188,219)])
}
Add(Edit,12696030,174,231)
{
Left=325
Top=40
Width=70
Name="Возраст"
Text=""
}
Add(Button,4626669,35,231)
{
Left=45
Top=130
link(onClick,6360888:doCalc,[])
}
Add(Label,6148359,175,140)
{
Left=10
Top=45
Width=85
Caption="Дата рождения:"
}
Add(Label,12816990,105,140)
{
Left=10
Top=90
Width=110
Caption="Дата исследования:"
}
Add(Label,9042239,224,231)
{
Left=275
Top=45
Caption="Возраст:"
}

карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 7
Рейтинг: 0
#3: 2018-10-23 11:44:49 ЛС | профиль | цитата
Ну у меня есть готовый шаблон в excele, но в нем работать очень не удобно.
"Это что ?" - Рассчитываю возраст в годах.
А насчет попросить сделать - просил у разных программистов, никто заниматься этим не хочет. Да и на основе созданного шаблона будут делаться другие, т.к. исследований провожу много и на каждое исследование нужно свое заключение.
Мне бы указали направление куда копать дальше для создания динамического шаблона.
Спасибо.
карма: 0

0
Ответов: 16884
Рейтинг: 1239
#4: 2018-10-23 11:56:17 ЛС | профиль | цитата
Basilio писал(а):
"Это что ?" - Рассчитываю возраст в годах.
Basilio писал(а):
MathStr="(%1 - %2) div 355"
Это по какому летоисчислению ?
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 7
Рейтинг: 0
#5: 2018-10-23 13:27:29 ЛС | профиль | цитата
А, понял. Не ту цифру ткнул.
А насчет динамического шаблона можно подсказать?
карма: 0

0
Ответов: 16884
Рейтинг: 1239
#6: 2018-10-23 13:50:02 ЛС | профиль | цитата
Basilio писал(а):
А насчет динамического шаблона можно подсказать?
Tad писал(а):
По-моему до печати ещё далеко.

1. Более точно (%1 - %2) div 365.25
2. А если это 6-ти месячный ребёнок? По Вашей формуле у него Возраст=0 ? Абсурд.
3. Один и тот-же человек может повторно пройти функциональную диагностику ?
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 7
Рейтинг: 0
#7: 2018-10-23 14:08:47 ЛС | профиль | цитата
0 лет - это не абсурд, абсурд то, что в аппаратах так и пишется 0 лет.
Да, один и тот же человек может пройти исследования, но если Вы намекаете на базу данных, то она есть в специальных мед.программах. Туда просто прикрепляется либо файл обследования в pdf, либо картинка.
карма: 0

0
Ответов: 8886
Рейтинг: 823
#8: 2018-10-23 15:36:12 ЛС | профиль | цитата
Basilio писал(а):
есть готовый шаблон в excel

Ну и выложите его сюда, будут понятнее ваши хотелки. (И из HiAsm-а вполне можно заполнить и управлять Excel)
карма: 19

0
Ответов: 7
Рейтинг: 0
#9: 2018-10-23 17:35:47 ЛС | профиль | цитата
Спасибо, я понял. Разве по тому, что я выложил не понятно что я хочу добиться?
Вопрос стоит в том, можно ли сделать изменяемый шаблон? И если можно, то в какую сторону "копать"?
карма: 0

0
Разработчик
Ответов: 26061
Рейтинг: 2120
#10: 2018-10-23 18:29:49 ЛС | профиль | цитата
Basilio писал(а):
Вопрос стоит в том, можно ли сделать изменяемый шаблон?

Изменяемый "как"? Если таблица, то размер строки изменить не получится никак, размер ячеек распространяется только на всю таблицу, построчное изменение высоты не предусмотрено.
Не совсем понятно, что конкретно надо? Выложенная схема некорректна, она читается с ошибками, это раз. Второе, из описания я понял, что Вам надо вывести другой шаблон. Никто не мешает создать несколько разных шаблонов и выводить их по-необходимости. Размер конкретных элементов можно менять, внимательно посмотрите все связанные компоненты и найдите контроллер габаритов, он может управлять размером конкретного элемента. Крайне желательно иметь последнюю версию комплекса компонентов DocumentTemplate.
карма: 22

0
Ответов: 16884
Рейтинг: 1239
#11: 2018-10-23 18:45:57 ЛС | профиль | цитата
А по-моему, самый оптимальный вариант HTML.
Basilio писал(а):
Разве по тому, что я выложил не понятно что я хочу добиться?
Совершенно непонятно.

Редактировалось 1 раз(а), последний 2018-10-23 18:50:26
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 7
Рейтинг: 0
#12: 2018-10-23 19:01:37 ЛС | профиль | цитата
Возможно я не правильно объясняю, а точнее не теми словами, но извините, как я уже говорил не программист.
Суть такая: есть некий набор меняющихся данных (как текстовых, так и числовых плюс вычисления). Эти данные должны располагаться на странице или двух в определенных местах.
Если в DocumentTemplate вставлять текст, то как я понял он вставляется в исходно заданные места. И если допустим там текста не будет, то при печати будет просто незанятое пространство.
Мне же нужно сделать так, чтобы при печати этих пропущенных строк не было.
Если ставить одну таблицу, то этого можно добиться не вписывая или не выбирая какие то данные, но таблица имеет определенную ширину колонок на каждой строке, куда не всегда влезает вся нужная фраза.
если использовать несколько таблиц, все равно будут оставаться свободные (незаполненные строки).
Вот насчет HTML хотел узнать. Был как то пример с заполнением пропуска, но там исходный документ не менялся и переменные данные были в определенном месте. У меня же он должен меняться, т.к. не у всех при исследованиях одно и тоже находится. Если можно глянуть пример с изменяемой HTML страницей буду рад и попытаюсь на этом примере сделать то, что мне необходимо.
Как то так.
карма: 0

0
Ответов: 16884
Рейтинг: 1239
#13: 2018-10-23 19:46:48 ЛС | профиль | цитата
Basilio писал(а):
Возможно я не правильно объясняю, а точнее не теми словами, но извините, как я уже говорил не программист.
При чём здесь "не программист" ?
Как понять
Basilio писал(а):
Эти данные должны располагаться на странице или двух в определенных местах.
и
Basilio писал(а):
И если допустим там текста не будет, то при печати будет просто незанятое пространство.
Мне же нужно сделать так, чтобы при печати этих пропущенных строк не было.


Вот набрал в
Google
Шаблоны документов врача функциональной диагностики
Результатов: примерно 165 000 (0,50 сек.)


И о графе Возраст
Из инструкции Минздрава РФ писал(а):
Регистрация исследований, выполняемых в отделении (кабинете) функциональной диагностики
Может Вы из другой страны ?

Редактировалось 5 раз(а), последний 2018-10-23 21:57:04
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 7
Рейтинг: 0
#14: 2018-10-24 07:56:07 ЛС | профиль | цитата
Спасибо. Если все такие "умные", что же медицина у нас в стране в большой ...опе? Как я писал ранее, никто из программистов заниматься не хочет. Не Вы первые отправляете в гугл.
Тему можно закрыть.
карма: 0

0
Ответов: 8886
Рейтинг: 823
#15: 2018-10-24 11:50:47 ЛС | профиль | цитата
Basilio, обидчивый вы наш, понять ваши трудности по вашим выкладкам здесь совсем не просто. (К примеру, я не понял почти ничего, кроме необходимости регулирования размера ячейки от объёма текста.)
Ведь мы не знаем того, что вам кажется само-собой разумеющимся, а тех программ, которыми вы пользуетесь и хотите дополнить, у нас нет под руками

Редактировалось 1 раз(а), последний 2018-10-24 11:51:20
карма: 19

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