sashaoli, обычно Ценник печатают из БД товара на складе.  Добавил Дату Add(MainForm,6358390,126,140)
{
Width=836
Height=469
link(onCreate,951801:doOpen,[])
}
Add(WebBrowser,3468261,245,196)
{
Left=85
Top=10
Width=730
Height=415
Point(doFromText)
Point(doPreview)
}
Add(Button,8840981,126,224)
{
Left=15
Top=10
Caption="Отчет"
link(onClick,5178164:doQuery,[])
}
Add(DS_SQLite,951801,182,154)
{
Name="baaaseee"
FileName=":memory:"
link(onOpen,683309:doExec,[])
}
Add(DSC_Query,5178164,182,224)
{
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>\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>'||tovar||'</td>\r\n <td align="center">'||unit||'</td>\r\n <td align="right">'||kol||'</td>\r\n <td align="right">'||cena||'</td>\r\n <td align="right">'||(kol*cena)||'</td>\r\n</tr>',' ')||\r\n'<tr><td> </td><td> </td><td> </td><td> </td><td> </td></tr>\r\n <tr>\r\n <td>Всего наименований</td>\r\n <td> </td>\r\n <td align="right">'||Count(tovar)||'</td>\r\n <td> </td>\r\n <td align="right">'||(sum(kol*cena))||'</td>\r\n</tr>\r\n</table>\r\n</body>\r\n</html>'\r\nFROM price;"
DSManager="baaaseee"
link(onQuery,3468261:doFromText,[])
}
Add(DSC_Exec,683309,245,154)
{
SQL="BEGIN TRANSACTION;\r\nCREATE TABLE IF NOT EXISTS price(id INTEGER PRIMARY KEY AUTOINCREMENT, tovar TEXT, unit TEXT,kol FLOAT, cena FLOAT);\r\nINSERT INTO price VALUES(NULL,'ситро','бут.',10,20);\r\nINSERT INTO price VALUES(NULL,'колбаса','кг.',15,2.25);\r\nINSERT INTO price VALUES(NULL,'огурец соленый','кГ.',5,150);\r\nINSERT INTO price VALUES(NULL,'водка (неплохая)','бут.',10,100);\r\nINSERT INTO price VALUES(NULL,'водка (хорошая)','бут.',10,123);\r\nINSERT INTO price VALUES(NULL,'водка (очень хорошая)','бут.',25,150);\r\nINSERT INTO price VALUES(NULL,'хлеб','буханка',30,50);\r\nCOMMIT;"
DSManager="baaaseee"
}
Add(Button,14629197,126,259)
{
Left=15
Top=35
link(onClick,3468261:doPreview,[(230,265)(230,237)])
}
и так вроде нагляднее 
|
Поиск
Друзья
Администрация