Вверх ↑
Этот топик читают: Гость
Разработчик
Ответов: 26061
Рейтинг: 2120
#31: 2018-07-03 23:45:52 ЛС | профиль | цитата
Medvedoc писал(а):
Обновил все, но все равно ошибка

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

0
Ответов: 254
Рейтинг: 6
#32: 2018-07-03 23:57:55 ЛС | профиль | цитата
Отлично все заработало!!!! Огромное спасибо ребята Все просто чудесно работает.

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

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


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

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

0
Ответов: 16884
Рейтинг: 1239
#33: 2018-07-04 00:06:04 ЛС | профиль | цитата
Medvedoc,
Tad писал(а):
Сначала вопросы к ТС
1. Medvedoc писал(а):
Мне нужно завязать подобное с использованием Document Template
Для чего?

карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 254
Рейтинг: 6
#34: 2018-07-04 00:13:31 ЛС | профиль | цитата
Tad писал(а):
Medvedoc,
Tad писал(а):
Сначала вопросы к ТС
1. Medvedoc писал(а):
Мне нужно завязать подобное с использованием Document Template
Для чего?

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

0
Разработчик
Ответов: 26061
Рейтинг: 2120
#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

0
Ответов: 254
Рейтинг: 6
#36: 2018-07-04 00:35:36 ЛС | профиль | цитата
Думаете через таблицу МТ будет оптимальнее? Просто там внешний вид не получается подстроить, да и как сделать функционал с суммирование и накопительный эффект даже не представляю. Но то, что там базу данных прикрутить проще я точно знаю. Да и с excel завязать проще.
карма: 0

0
Разработчик
Ответов: 26061
Рейтинг: 2120
#37: 2018-07-04 00:40:01 ЛС | профиль | цитата
Medvedoc писал(а):
да и как сделать функционал с суммирование и накопительный эффект даже не представляю

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

0
Ответов: 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

0
Разработчик
Ответов: 26061
Рейтинг: 2120
#39: 2018-07-04 00:52:28 ЛС | профиль | цитата
Medvedoc писал(а):
не знал, что у МТ появилась возможность получить html-код

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

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

0
Ответов: 16884
Рейтинг: 1239
#40: 2018-07-04 18:46:51 ЛС | профиль | цитата
SQLite
vedomoct


Редактировалось 1 раз(а), последний 2018-07-04 18:49:32
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Разработчик
Ответов: 26061
Рейтинг: 2120
#41: 2018-07-04 19:52:51 ЛС | профиль | цитата
Tad писал(а):
SQLite

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

0
Ответов: 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
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 16884
Рейтинг: 1239
#43: 2018-07-07 15:11:55 ЛС | профиль | цитата
Глухо, как в танке.

карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
43
Сообщение
...
Прикрепленные файлы
(файлы не залиты)