>TYPE   	D
>NAME   	pri-calc.d
>CODE   	pri-calc.cod
>BY     	@(#)$Author: Mats $
>DATE   	@(#)$Date: 08-01-28 7:44 $
>VERSION	@(#)$Revision: 2 $
>ID     	19527

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

>TEXTINFO ROWS 8 SIZE 130
#id    value    flags    text
IDL_100  100  -  Priskalkylerar
IDL_101  101  -  Inga artiklar att behandla
IDL_102  102  -  Priskalkylering klar
IDL_103  103  -  Priskalkylering misslyckades
IDL_104  104  -  Nytt påslag-%:
IDL_105  105  -  Påslag %
IDL_106  106  -  Ny TB-%:
IDL_107  107  -  TB %


>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 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   240   380 SBL	-	-	"-"	  0	"735 Priskalkylering"

>FORM MAIN ROWS 5 SIZE 50 "100 Main"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
WW   621    0    4   16  308 -	PhmZ	-	win1	-	""
TB  4072   98   10  114  308 -	P	-	tab1	-	"Prisjustering"
B3  4086  109  324   15   50 -	TPz	-	pbOk	-	"ok.bmp,Verk&ställ"
B3     2  196  323   15   50 -	TP	-	-	-	"exit.bmp,St&äng"
GR  4077   23   10   71  308 -	p	-	lcTable	-	""

>FORM win1 ROWS 23 SIZE 23 "Tool"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
FR  1990    0    0   13    1 -	Hp	-	-	-	""
FR  1991    0    0   13    1 -	Hp	-	-	-	""
FR  1992    0    0   13    1 -	Hp	-	-	-	""
FR  1993    0    0   13    1 -	Hp	-	-	-	""
FR  1994    0    0   13    1 -	Hp	-	-	-	""
FR  1995    0    0   13    1 -	Hp	-	-	-	""
FR  1996    0    0   13    1 -	Hp	-	-	-	""
B3  2000    0    8   13   15 -	SRTHpfF	-	pbTool	-	""
B3  2001    0    0   13   15 -	SRTHpfF	-	pbTool	-	""
B3  2002    0    0   13   15 -	SRTHpfF	-	pbTool	-	""
B3  2003    0    0   13   15 -	SRTHpfF	-	pbTool	-	""
B3  2004    0    0   13   15 -	SRTHpfF	-	pbTool	-	""
B3  2005    0    0   13   15 -	SRTHpfF	-	pbTool	-	""
B3  2006    0    0   13   15 -	SRTHpfF	-	pbTool	-	""
B3  2007    0    0   13   15 -	SRTHpfF	-	pbTool	-	""
B3  2008    0    0   13   15 -	SRTHpfF	-	pbTool	-	""
B3  2009    0    0   13   15 -	SRTHpfF	-	pbTool	-	""
B3  2010    0    0   13   15 -	SRTHpfF	-	pbTool	-	""
B3  2011    0    0   13   15 -	SRTHpfF	-	pbTool	-	""
B3  2012    0    0   13   15 -	SRTHpfF	-	pbTool	-	""
B3  2013    0    0   13   15 -	SRTHpfF	-	pbTool	-	""
B3  2014    0    0   13   15 -	SRTHpfF	-	pbTool	-	""
FU  4071    0    0   15  307 -	pZ	-	-	-	""

>FORMFILES win1 ROWS 0
#Id	sp
>FORM tab1 ROWS 1 SIZE 1 "tab1"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
WW  4073   14    3   96  302 -	P	-	win2	-	""

>FORMFILES tab1 ROWS 0
#Id	sp
>FORM win2 ROWS 9 SIZE 83 "win2"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
XB  4087    3    2   13   76 -	P	-	xbNewBasePrice	-	"Nytt baspris"
T   4088   17    3   11   62 -	p	-	-	-	"Lev.kod:"
D   4089   16   69   13   60 -	PU	-	edSupp	-	""
B3  4090   15  131   13   15 -	xTpfF	-	pbSupp	-	"seek.bmp"
T   4091   31    3   11   62 -	p	-	-	-	"Valuta:"
CE  4092   30   69  200   62 -	Pc	-	cbCurrency	#8601	""
XB  4093   42    2   13   76 -	P	-	xbCalcBasePrice	-	"Beräkna grundpris"
XB  4094   53    2   13   76 -	P	-	xbNewTBPercent	-	"Ny TB-%"
TB  4100    4  149   88  151 -	Pu	-	tab2	-	"Priskalkylering"

>FORMFILES win2 ROWS 0
#Id	sp
>FORM lcTable ROWS 7 SIZE 76 ""
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
T   4079    1    1   11   50 -	Hp	-	-	#1001	"Artikelkod"
T   4080    1   51   11   35 -	RHp	-	-	#1150	"Baspris"
T   4081    1   87   11   45 -	RHp	-	-	#1151	"Inköpsrabatt"
T   4082    1  132   11   40 -	RHp	-	-	#1156	"Inköpspris"
T   4083    1  172   11   40 -	RHp	-	-	#1152	"Kalkylpris"
T   4084    1  212   11   35 -	RHp	-	-	#1153	"Påslag/TB %"
T   4085    1  247   11   40 -	RHp	-	-	#1154	"Grundpris"

>FORMFILES lcTable ROWS 1
#Id	sp
10	r
>FORM tab2 ROWS 1 SIZE 1 "tab2"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
WW  4101   12    2   74  144 -	P	-	win3	-	""

>FORMFILES tab2 ROWS 0
#Id	sp
>FORM win3 ROWS 5 SIZE 51 "win3"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
T   4102    7    2   11   61 -	p	-	txStandardArtType	-	"Standard artikeltyp:"
D   4103    5   66   13   60 -	PU	-	edStandardArtType	#10241	""
T   4104   22    2   11   61 -	p	-	txRoundBasePrice	-	"Avrunda grundpris:"
D   4105   21   66   13   60 F6.2	P	-	edRoundBasePrice	#10213	""
B3  4099    5  127   13   15 -	xTpfF	-	pbStandardArtType	-	"seek.bmp"

>FORMFILES win3 ROWS 0
#Id	sp
>SOURCE
