Автоматическое добавление элементов

Вверх ↑

Форумы ПрочееАвтоматическое добавление элементов ← Ctrl1 23Ctrl →

Этот топик читают: Гость

Разработчик

Ответов: 26163

Рейтинг: 2127

#31: 2018-07-03 23:45:52 ЛС | профиль | цитата

Medvedoc писал(а):

Обновил все, но все равно ошибка

Используй архив, который я выложил в предыдущем посте. Скопируй все элементы поверх существующих.

карма: 22

Ответов: 254

Рейтинг: 6

#32: 2018-07-03 23:57:55 ЛС | профиль | цитата

Отлично

все заработало!!!! Огромное спасибо ребята

Все просто чудесно работает.

--- Добавлено в 2018-07-03 23:59:53

Произвести замену значений
выбранной строки?

Единственный ньюанс - если строка не выбрана, то выдает ошибку при нажатии YES

Редактировалось 1 раз(а), последний 2018-07-03 23:59:53

карма: 0

Ответов: 16884

Рейтинг: 1239

#33: 2018-07-04 00:06:04 ЛС | профиль | цитата

Medvedoc,

Tad писал(а):

Сначала вопросы к ТС
1. Medvedoc писал(а):
Мне нужно завязать подобное с использованием Document Template
Для чего?

карма: 25

Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!

Ответов: 254

Рейтинг: 6

#34: 2018-07-04 00:13:31 ЛС | профиль | цитата

Tad писал(а):

Medvedoc,
Tad писал(а):
Сначала вопросы к ТС
1. Medvedoc писал(а):
Мне нужно завязать подобное с использованием Document Template
Для чего?

Через DocumentTemplate внешний вид лучше. Да и результат вычислений планируется выводить на печать.
Теперь буду думать как завязать все дело на базе данных sqlite и осуществить привязку к документу excel - импорт и экспорт

карма: 0

Разработчик

Ответов: 26163

Рейтинг: 2127

#35: 2018-07-04 00:26:06 ЛС | профиль | цитата

Medvedoc писал(а):

Единственный ньюанс - если строка не выбрана, то выдает ошибку при нажатии YES

Исправил

--- Добавлено в 2018-07-04 00:32:40

Medvedoc писал(а):

Теперь буду думать как завязать все дело на базе данных sqlite и осуществить привязку к документу excel - импорт и экспорт

Вот то, что ты хочешь, с тем, что мы тут изобретали, как-то мало совместимо. Заточка всех элементов была под конкретную задачу. Под задачу с базами и екселем заточка нужна уже будет совершенно другая. Чтобы из DocumentTemplat-a получить динамический StringTable нужно очень хорошо постараться.

Редактировалось 2 раз(а), последний 2018-07-04 00:35:20

карма: 22

Ответов: 254

Рейтинг: 6

#36: 2018-07-04 00:35:36 ЛС | профиль | цитата

Думаете через таблицу МТ будет оптимальнее? Просто там внешний вид не получается подстроить, да и как сделать функционал с суммирование и накопительный эффект даже не представляю. Но то, что там базу данных прикрутить проще я точно знаю. Да и с excel завязать проще.

карма: 0

Разработчик

Ответов: 26163

Рейтинг: 2127

#37: 2018-07-04 00:40:01 ЛС | профиль | цитата

Medvedoc писал(а):

да и как сделать функционал с суммирование и накопительный эффект даже не представляю

Для таблицы это мелочи, не говоря уже про базы (Tad не даст соврать). К сожалению, StringTabl-ы, не имеют возможности закрашивания отдельных ячеек, но у MT-таблицы есть возможность получить HTML-код, который можно распечатать через браузер

карма: 22

Ответов: 254

Рейтинг: 6

#38: 2018-07-04 00:41:52 ЛС | профиль | цитата

не знал, что у МТ появилась возможность получить html-код. Давно я hiasm не пользовался

--- Добавлено в 2018-07-04 00:42:58

надо теперь подумать как весь код переписать под таблицу MT с DocumentTemplate

Редактировалось 1 раз(а), последний 2018-07-04 00:42:58

карма: 0

Разработчик

Ответов: 26163

Рейтинг: 2127

#39: 2018-07-04 00:52:28 ЛС | профиль | цитата

Medvedoc писал(а):

не знал, что у МТ появилась возможность получить html-код

Я имел в виду MTStrTbl, а не StringTableMT. StringTableMT это вообще переходный элемент, и она являлась прототипом MTStrTbl.

Редактировалось 2 раз(а), последний 2018-07-04 00:53:44

карма: 22

Ответов: 16884

Рейтинг: 1239

#40: 2018-07-04 18:46:51 ЛС | профиль | цитата

SQLite

vedomoct

Редактировалось 1 раз(а), последний 2018-07-04 18:49:32

карма: 25

Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!

Разработчик

Ответов: 26163

Рейтинг: 2127

#41: 2018-07-04 19:52:51 ЛС | профиль | цитата

Tad писал(а):

SQLite

Осталось к твоим 25-ти элементам приплюсовать генератор печатной формы. Ну нах нужна таблица, если ее нельзя распечатать (КМК ТС думает именно так)

карма: 22

Ответов: 16884

Рейтинг: 1239

#42: 2018-07-04 23:53:02 ЛС | профиль | цитата

28 с печатью.

Add(DatePicker,13199309,406,119)
{
 Left=125
 Top=5
 Width=100
 Height=21
 TabOrder=1
 Point(DateInt)
 Point(doSetFocus)
 link(onChange,10771192:doSetFocus,[(446,125)(446,105)(268,105)(268,188)])
}
Add(MainForm,12413584,84,112)
{
 Width=588
 Height=507
 BorderStyle=1
 Position=1
 Point(onClose)
 link(onCreate,16035837:doOpen,[])
 link(onClose,16035837:doClose,[])
}
Add(Edit,10771192,280,168)
{
 Left=470
 Top=5
 Width=80
 TabOrder=2
 Text="100"
 Point(doSetFocus)
 link(onEnter,6723100:doEvent1,[])
}
Add(FormatStr,1179363,406,182)
{
 Mask="INSERT INTO sod VALUES(%1+1721424.5, %2,(SELECT \r\n case count()\r\n   when 0 then %2 else d2+%2 end  FROM sod  ORDER BY rowid DESC Limit 1));"
 link(onFString,116177:doExec,[])
 link(Str1,13199309:DateInt,[])
}
Add(StringTable,13537352,511,224)
{
 Left=20
 Top=30
 Width=535
 Height=250
 Font=[Courier,12,1,0,204]
 Columns=#12:    Дата=200|17:Приход/Расход=150|15:    Наличие=150|
 Grid=0
 Redaction=1
 Point(doEnsureVisible)
}
Add(MT_String,13625915,455,224)
{
 link(onResult,13537352:doAdd,[])
}
Add(Hub,5662653,357,217)
{
 OutCount=4
 link(onEvent1,13537352:doClear,[(499,223)(499,237)])
 link(onEvent2,8476239:doQuery,[])
 link(onEvent3,3802666:doQuery,[(382,237)(382,265)])
 link(onEvent4,4413542:doQuery,[(377,244)(377,300)])
}
Add(Hub,6723100,329,175)
{
 OutCount=4
 link(onEvent2,1179363:doString,[])
 link(onEvent3,5662653:doEvent1,[(350,195)(350,223)])
 link(onEvent4,8059410:doWork3,[(382,202)])
}
Add(Label,14382104,329,294)
{
 Left=20
 Top=290
 Width=200
 Height=20
 Color=15264511
 Font=[MS Sans Serif,10,1,0,1]
 Ctl3D=0
 WinStyle=2
 Caption="В С Е Г О : "
 AutoSize=1
 Alignment=2
}
Add(Label,14821560,511,301)
{
 Left=220
 Top=290
 Width=150
 Height=20
 Color=15264511
 Font=[Courier,12,1,0,204]
 Ctl3D=0
 WinStyle=2
 Caption=""
 AutoSize=1
}
Add(Label,3168605,553,294)
{
 Left=370
 Top=290
 Width=150
 Height=20
 Color=15264511
 Font=[Courier,12,1,0,204]
 Ctl3D=0
 WinStyle=2
 Caption=""
 AutoSize=1
}
Add(MT_Part,11761687,462,294)
{
 link(onSplit,3168605:doText,[])
 link(onPart,14821560:doText,[])
}
Add(Button,14813289,77,196)
{
 Left=15
 Top=435
 Caption="ПЕЧАТЬ"
 Data=Integer(1)
 link(onClick,16242027:doEvent1,[])
}
Add(Hub,16242027,119,196)
{
 link(onEvent1,4010580:doQuery,[(147,202)(147,181)])
 link(onEvent2,6403172:doWork2,[])
}
Add(DS_SQLite,16035837,140,126)
{
 Name="bd"
 FileName=":memory:"
 link(onOpen,8026425:doExec,[])
}
Add(DSC_Exec,8026425,196,126)
{
 SQL="CREATE TABLE sod(name INTEGER, d1 REAL, d2 REAL);"
 DSManager="bd"
 link(onExec,8059410:doWork2,[])
}
Add(DSC_Exec,116177,455,182)
{
 DSManager="bd"
}
Add(DSC_Query,8476239,406,224)
{
 SQL="SELECT "  "||strftime('%Y-%m-%d',name), SUBSTR("             "||d1,-13),SUBSTR("             "||d2,-13) FROM sod;"
 DSManager="bd"
 link(onQuery,13625915:doStr,[])
}
Add(DSC_Query,3802666,406,259)
{
 SQL="SELECT COUNT()-1 FROM sod;"
 DSManager="bd"
 link(onQuery,13537352:doEnsureVisible,[])
}
Add(DSC_Query,4413542,406,294)
{
 SQL="SELECT SUBSTR("             "||sum(d1),-13),SUBSTR("             "||sum(d2),-13) FROM sod;"
 DSManager="bd"
 link(onQuery,11761687:doSplit,[])
}
Add(DSC_Query,4010580,161,175)
{
 SQL="SELECT '<html><head><title>ВЕДОМОСТЬ</title></head><body>\r\n<h3 align="center">Наличие товара на складе на '|| (date("now"))||'</h3>\r\n<table align="center" border="1" width=100%>\r\n<tr>\r\n<td align="center" style="color: Maroon"><b>Дата</b></td>\r\n<td align="center" style="color: Maroon"><b>Приход</b></td>\r\n<td align="center" style="color: Maroon"><b>Наличие</b></td></tr>'||\r\ngroup_concat('\r\n<tr>\r\n <td align="center">'||strftime('%Y-%m-%d',name)||'</td>\r\n <td align="right">'||d1||'</td>\r\n <td align="right">'||d2||'</td>\r\n</tr>',' ')||\r\n'<tr><td>&nbsp</td><td>&nbsp</td><td>&nbsp</td></tr>\r\n <tr> \r\n  <td align="right">И Т О Г О : </td>  \r\n  <td align="right">'||sum(d1)||'</td>  \r\n  <td align="right">'||(sum(d2))||'</td>\r\n </tr>\r\n</table>\r\n</body>\r\n</html>'\r\nFROM sod;"
 DSManager="bd"
 link(onQuery,3468261:doFromText,[(205,181)(205,202)])
}
Add(Button,9682381,77,231)
{
 Left=80
 Top=435
 Width=80
 Caption="Просмотр"
 link(onClick,3468261:doPreview,[(163,237)(163,223)])
}
Add(Button,14787761,77,266)
{
 Left=165
 Top=435
 Width=80
 Caption="<<<"
 Data=Integer(0)
 link(onClick,6403172:doWork3,[(200,272)])
}
Add(HubEx,6403172,196,203)
{
 link(onEvent,3468261:doVisible,[])
}
Add(HubEx,8059410,378,126)
{
 link(onEvent,13199309:doSetFocus,[])
}
Add(Label,981551,476,119)
{
 Left=70
 Top=6
 Font=[MS Sans Serif,8,1,16711680,1]
 Caption="Дата"
}
Add(Label,9749142,525,119)
{
 Left=390
 Top=6
 Width=75
 Font=[MS Sans Serif,8,1,16711680,1]
 Caption="Количество"
}
Add(WebBrowser,3468261,217,168)
{
 Top=5
 Width=570
 Height=415
 Visible=1
 Point(doFromText)
 Point(doVisible)
 Point(doBringToFront)
 Point(doPreview)
}

Подробнее здесь: http://forum.hiasm.com/topic/66464

Редактировалось 2 раз(а), последний 2018-07-05 07:51:18

карма: 25

Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!

Ответов: 16884

Рейтинг: 1239

#43: 2018-07-07 15:11:55 ЛС | профиль | цитата

Глухо, как в танке.

карма: 25

Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!

Форумы ПрочееАвтоматическое добавление элементов ← Ctrl1 23Ctrl →


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