HiAsm
HiAsm
Вверх ↑
ФорумыПрочееНужна помощь в создании динамического шаблона документа с последующей печатью ← Ctrl12Ctrl →
Этот топик читают: Гость
Ответов: 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
Ответов: 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
Ответов: 8938
Рейтинг: 824
#8: 2018-10-23 15:36:12 ЛС | профиль | цитата
Basilio писал(а):
есть готовый шаблон в excel

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

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

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

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

0
ФорумыПрочееНужна помощь в создании динамического шаблона документа с последующей печатью ← Ctrl12Ctrl →
Сообщение
...
Прикрепленные файлы
(файлы не залиты)
HiAsm Studio 2003 - 2024
Пользовательское соглашение | support@hiasm.com
Яндекс.Метрика