>TYPE   	D
>NAME   	prisrc25.d
>CODE   	prisrc25.cod
>BY     	@(#)$Author: Christer $
>DATE   	@(#)$Date: 08-09-26 11:01 $
>VERSION	@(#)$Revision: 3 $
>ID     	19533

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

>TEXTINFO ROWS 8 SIZE 247
#id    value    flags    text
IDL_101  101  -  Bara icke-överförda priser
IDL_102  102  -  736 Prisarbetsregisterstudio - %1
IDL_103  103  -  Finns inget inläsningshuvud för inläsning nummer %1
IDL_104  104  -  Prispost %1 kunde inte hittas
IDL_105  105  -  Radera %1
IDL_106  106  -  Överför poster till Pyramid
IDL_107  107  -  %1 prisposter överförda
IDL_108  108  -  Kvarlämnade poster gick inte att överföra


>STACK ROWS 2000 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 "Arial"
2   -11   0   0   0 400   0  0   0   0   0   0   0   0 "Arial"
3   -11   0   0   0 400   1  0   0   0   0   0   0   0 "Arial"
4   -11   0   0   0 700   0  0   0   0   0   0   0   0 "Arial"
5   -13   0   0   0 400   0  0   0   0   0   0   0   0 "Arial"
6   -13   0   0   0 400   1  0   0   0   0   0   0   0 "Arial"
7   -13   0   0   0 700   0  0   0   0   0   0   0   0 "Arial"
8   -16   0   0   0 400   0  0   0   0   0   0   0   0 "Arial"
9   -19   0   0   0 400   0  0   0   0   0   0   0   0 "Arial"


>COLOR ROWS 16
#id color	comment
1   0x0        	""
2   0x808080   	""
3   0x80       	""
4   0x8080     	""
5   0x8000     	""
6   0x808000   	""
7   0x800000   	""
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   308   475 SB	-	-	"-"	  0	"Avtalsprisarbetsregisterstudio"

>FORM MAIN ROWS 13 SIZE 134 "100 Main"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
TB    11   20    2  260  410 -	PWZ	-	tab1	-	"Standard"
PB   476   90  418   15   55 -	P	-	pbSearch	-	"&Sök nu"
PB     3  106  418   15   55 -	P	-	pbAbortSearch	-	"Avbr&yt sök"
PB    19  250  418   15   55 -	Pw	-	pbOk	-	"&Ok"
PB     2  266  418   15   55 -	Pw	-	pbAbort	-	"Av&bryt"
AV   201   32  418   48   52 -	Hpz	-	aviSearch	-	"studio.avi"
BM   409   32  418   50   54 -	Qpz	-	bmSearch	-	"studio.bmp"
B3   513  123  418   15   55 -	QP	-	pbTransfer	-	"copy.bmp,&Överför"
B3   516  152  419   15   50 -	QPf	-	pbDel	-	"delrow.bmp,&Ta bort"
GB   517  142  415   27   58 -	p	-	-	-	"Urval:"
WW   472    0    2   20  470 -	PZ	-	win2	-	""
B3   521  180  418   15   50 -	QPf	-	pbDelete	-	"del.bmp,Radera"
GB   518  171  415   29   58 -	p	-	-	-	"Register:"

>FORM tab1 ROWS 3 SIZE 9 "tab1"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
WW    21   12    4  106  404 -	PZ	-	win1	-	""
GR    17  136    4  120  402 -	PWZ	-	lcResult	-	""
T    474  120    4   13  402 -	pZ	C9D6F9	txLabel	-	"Priser"

>FORMFILES tab1 ROWS 0
#Id	sp
>FORM win1 ROWS 1 SIZE 11 "Criteries"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
L    418   21   30   11   60 -	p	-	-	-	"srccrit.di"

>FORMFILES win1 ROWS 0
#Id	sp
>FORM lcResult ROWS 7 SIZE 67 ""
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
T    524    1    1   11    0 -	Hp	-	-	#25311	"Pris-id"
T    525    1    1   11   35 -	Hp	-	-	#25306	"Artikelkod"
T    526    1   36   11   70 -	Hp	-	-	#25321	"Pris exkl moms"
T    527    1  106   11   70 -	Hp	-	-	#25322	"Pris inkl moms"
T    528    1  176   11   35 -	Hp	-	-	#25306	"Kodfält"
T    529    1  211   11   35 -	Hp	-	-	#25323	"Pristyp"
T    530    1  247   11   75 -	Hp	-	-	#25324	"%"

>FORMFILES lcResult ROWS 1
#Id	sp
253	r
>FORM win2 ROWS 1 SIZE 12 "win2"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
L    473    6   94   11   60 -	p	-	-	-	"toolmenu.di"

>FORMFILES win2 ROWS 0
#Id	sp
>SOURCE
