>TYPE   	D
>NAME   	PSRC10.d
>CODE   	PSRC10.cod
>BY     	@(#)$Author: Hans $
>DATE   	@(#)$Date: 06-12-06 17:11 $
>VERSION	@(#)$Revision: 2 $
>ID     	0

>FILES ROWS 0
#type id  name        dbtype mode autoload r0 r1 r2 r3 r4 r5 comment

>TEXTINFO ROWS 1 SIZE 23
#id    value    flags    text
IDL_100  100  -  Endast aktiva artiklar


>STACK ROWS 100 SIZE 5000

>FONT ROWS 9
#id Hgt Wth Esc Ori Wgt Ita  Ul Sth Chs Opr Clp Qua Pch Name
1    -9   0   0   0 400   0  0   0   0   0   0   0   0 "Verdana"
2   -11   0   0   0 400   0  0   0   0   0   0   0   0 "Verdana"
3   -11   0   0   0 400   1  0   0   0   0   0   0   0 "Verdana"
4   -11   0   0   0 700   0  0   0   0   0   0   0   0 "Verdana"
5   -13   0   0   0 400   0  0   0   0   0   0   0   0 "Verdana"
6   -13   0   0   0 400   1  0   0   0   0   0   0   0 "Verdana"
7   -13   0   0   0 700   0  0   0   0   0   0   0   0 "Verdana"
8   -16   0   0   0 400   0  0   0   0   0   0   0   0 "Verdana"
9   -19   0   0   0 400   0  0   0   0   0   0   0   0 "Verdana"


>COLOR ROWS 16
#id color	comment
1   0x0        	""
2   0x808080   	""
3   0x80       	""
4   0x8080     	""
5   0x8000     	""
6   0x808000   	""
7   0x9d6100   	""
8   0x800080   	""
9   0xffffff   	""
A   0xc0c0c0   	""
B   0xff       	""
C   0xffff     	""
D   0xff00     	""
E   0xffff00   	""
F   0xff0000   	""
G   0xff00ff   	""


>BRUSH ROWS 5 SIZE 100
#id type	text
1   0	0xff0000
2   1	pattern
3   2	tegel.bmp
5   4	0xff
6   5	0x0


>APPEVENTS ROWS 0
#id Eventname	ParamList


>WINDOW ROWS 1
#id       x     y    cy    cx sp1	sp2	Bitmap	font	size	caption
5511     10    10   200   300 S	-	pdatop.bmp	"-"	  0	"Sök artikel"

>FORM MAIN ROWS 2 SIZE 23 "100 Main"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
WW    37    0    2   30  300 -	P	-	win1	-	""
TB    99   30    0  300  300 -	P	-	tab1	-	"Kriterier,Sökresultat"

>FORM win1 ROWS 1 SIZE 10 "win1"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
L     74    4    4   11   60 -	p	-	-	-	"pdatop.di"

>FORMFILES win1 ROWS 0
#Id	sp
>FORM tab1 ROWS 2 SIZE 2 "tab1"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
WW   100   12    2  285  196 -	P	-	win2	-	""
WW   102   12    2  250  296 -	P	-	win3	-	""

>FORMFILES tab1 ROWS 0
#Id	sp
>FORM win2 ROWS 1 SIZE 8 "win2"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
L    103    0    0   11   60 -	p	-	-	-	"psrc.di"

>FORM win3 ROWS 3 SIZE 12 "win3"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
GR   104    0    0  190  200 -	P	-	lcResult	-	""
T    105  192    0   11   50 -	p	-	txCount	-	""
T    106  192   52   11   50 -	p0	-	txMore	-	"Sök nästa"

>FORMFILES win3 ROWS 0
#Id	sp
>FORM lcResult ROWS 7 SIZE 67 ""
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
T    500    1    1   11   60 -	Hph	-	-	#1001	"Artikelkod"
T    501    1   61   11  140 -	Hp	-	-	#1021	"Benämning"
T    502    1  201   11   50 -	Hp	-	-	#1041	"Huvudlev"
T    503    1  261   11   40 -	Hp	-	-	#1011	"Artikeltyp"
T    504    1  301   11   40 -	RHp	-	-	#1132	"Saldo"
T    505    1  341   11   50 -	RHp	-	-	#1154	"Grundpris"
D    470   13  500   13    0 -	HP	-	edComment	#839	"Kommentar"

>SOURCE
