>TYPE   	D
>NAME   	reg10cal.d
>CODE   	reg10cal.cod
>BY     	@(#)$Author: Mickea $
>DATE   	@(#)$Date: 06-10-31 11:33 $
>VERSION	@(#)$Revision: 4 $
>ID     	7105

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

>TEXTINFO ROWS 2 SIZE 60
#id    value    flags    text
IDL_100  100  -  Blankt = dagskurs används
IDL_101  101  -  Ingen prisförändring kommer göras


>STACK ROWS 100 SIZE 5000

>FONT ROWS 12
#id Hgt Wth Esc Ori Wgt Ita  Ul Sth Chs Opr Clp Qua Pch Name
1   -21   0   0   0 400   0  0   0   0   0   0   0   0 "MS Sans Serif"
2   -17   0   0   0 400   1  1   0   0   0   0   0   0 "Times Rmn"
3   -21   0   0   0 400   0  0   0   0   0   0   0   0 "President"
4    -9   0   0   0 400   0  0   0   0   0   0   0   0 "Arial"
5   -11   0   0   0 400   0  0   0   0   0   0   0   0 "Arial"
6   -11   0   0   0 400   1  0   0   0   0   0   0   0 "Arial"
7   -11   0   0   0 700   0  0   0   0   0   0   0   0 "Arial"
8   -13   0   0   0 400   0  0   0   0   0   0   0   0 "Arial"
9   -13   0   0   0 400   1  0   0   0   0   0   0   0 "Arial"
A   -13   0   0   0 700   0  0   0   0   0   0   0   0 "Arial"
B   -16   0   0   0 400   0  0   0   0   0   0   0   0 "Arial"
C   -19   0   0   0 400   0  0   0   0   0   0   0   0 "Arial"


>COLOR ROWS 8
#id color	comment
1   0xff0000   	""
2   0xff       	""
3   0xff00ff   	""
4   0xffffff   	""
5   0xc0c0c0   	""
6   0x80       	""
7   0x808080   	""
8   0x0        	""


>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   160   240 SB	-	-	"-"	  0	"Beräkna artikelpris"

>FORM MAIN ROWS 14 SIZE 94 "100 Main"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
WW    17    9   11   50  104 -	P	-	win1	-	""
WW    25    9  118   41   88 -	P	-	win2	-	""
CE    12   64   80   50   90 -	Pc	-	cbRate	#5735	""
D     31   78   80   13   60 -	P	-	edBPrice	#5753	""
D     29   92   80   13   60 -	P	-	edDiscount	#5752	""
D     15  106   80   13   60 -	P	-	edPrice	#5751	""
B3    23  129  120   15   50 -	TP	-	pbOk	-	"ok.bmp,&Ok"
B3     2  129  176   15   50 -	TP	-	-	-	"cancel.bmp,Av&bryt"
T     32   80   10   11   68 -	p	-	-	-	"Grossistpris/Baspris:"
T     16  108   10   11   68 -	p	-	-	-	"Inköpspris:"
T     13   66   10   11   68 -	p	-	txRate	-	"Kurs:"
T     30   94   10   11   68 -	p	-	-	-	"Inköpsrabatt %:"
D     14   64  170   13   38 -	pO	-	edCurrency	#5707	""
GB    11    2    4  124  222 -	p	-	-	-	""

>FORM win1 ROWS 5 SIZE 73 "win1"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
RB    19   14   12   10   71 -	RP	-	rbPrice1	-	"Ändra baspris"
RB    33   24   12   10   71 -	RP	-	rbPrice2	-	"Ändra rabatt"
RB    36   34   12   10   71 -	RP	-	rbPrice3	-	"Ändra inköpspris"
GB    18    1    2   46   97 -	p	-	-	-	"Artikelpris"
RB    35   66   20   10   85 -	RP	-	-	-	"Ändra inköpspris"

>FORMFILES win1 ROWS 0
#Id	sp
>FORM win2 ROWS 3 SIZE 49 "win2"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
RB    27   14   10   10   70 -	RP	-	rbChange1	-	"Ändra grundpris"
RB    28   24   10   10   70 -	RP	-	rbChange2	-	"Ändra påslag/TG"
GB    26    1    2   38   82 -	p	-	-	-	"Försäljningspris"

>FORMFILES win2 ROWS 0
#Id	sp
>SOURCE
