 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> </td><td> </td><td> </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
|
Поиск
Друзья
Администрация