>TYPE   	D
>NAME   	reg1960.d
>CODE   	reg1960.cod
>BY     	@(#)$Author: Sture $
>DATE   	@(#)$Date: 07-01-26 10:00 $
>VERSION	@(#)$Revision: 2 $
>ID     	7049

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

>TEXTINFO ROWS 4 SIZE 128
#id    value    flags    text
IDL_100  100  -  Från-datum måste anges
IDL_101  101  -  Till-datum måste anges
IDL_102  102  -  Felaktigt datumintervall
IDL_104  104  -  Egenskap för aktuella kampanjer är inte satt (rutin 791)


>STACK ROWS 1000 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	0xc0c0c0
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     20    90   222   304 SBL	-	-	"-"	  0	"715 Priskampanjer"

>FORM MAIN ROWS 7 SIZE 71 "100 Main"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
WW   621    0    4   16  296 -	PhmZ	-	win4	-	""
TB   124   88    4   90  296 -	PZ	-	tab1	-	"Kampanj"
B3    12  180    4   15   50 -	xTP	-	pbSave	-	"save.bmp,&Spara"
B3  2210  180   60   15   50 -	xTPh	-	pbNew	-	"new.bmp,&Ny"
B3   137  180  114   15   50 -	xTPh	-	pbDelete	-	"del.bmp,&Ta bort"
B3     2  180  250   15   50 -	xTPhwz	-	pbCancel	-	"exit.bmp,St&äng"
GR   101   16    4   68  296 -	pWZ	-	lcTable	-	""

>FORMFILES MAIN ROWS 1
#Id	sp
1960	-
>FORM tab1 ROWS 3 SIZE 3 "623 - tab1"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
WW   627   12    4   20  288 -	Ph	-	win5	-	""
WW  2263   38    2   48  292 -	P	-	win6	-	""
FR   630   34    4    1  288 -	pZ	-	-	-	""

>FORMFILES tab1 ROWS 12
#Id	sp
210	r
173	r
172	r
103	r
168	r
192	r
199	r
30	r
12	r
10	r
212	r
213	r
>FORM win4 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 -	STHpfF	-	pbTool	-	""
B3  2001    0    0   13   15 -	STHpfF	-	pbTool	-	""
B3  2002    0    0   13   15 -	STHpfF	-	pbTool	-	""
B3  2003    0    0   13   15 -	STHpfF	-	pbTool	-	""
B3  2004    0    0   13   15 -	STHpfF	-	pbTool	-	""
B3  2005    0    0   13   15 -	STHpfF	-	pbTool	-	""
B3  2006    0    0   13   15 -	STHpfF	-	pbTool	-	""
B3  2007    0    0   13   15 -	STHpfF	-	pbTool	-	""
B3  2008    0    0   13   15 -	STHpfF	-	pbTool	-	""
B3  2009    0    0   13   15 -	STHpfF	-	pbTool	-	""
B3  2010    0    0   13   15 -	STHpfF	-	pbTool	-	""
B3  2011    0    0   13   15 -	STHpfF	-	pbTool	-	""
B3  2012    0    0   13   15 -	STHpfF	-	pbTool	-	""
B3  2013    0    0   13   15 -	STHpfF	-	pbTool	-	""
B3  2014    0    0   13   15 -	STHpfF	-	pbTool	-	""
FU  4071    0    0   15  296 -	pZ	-	-	-	""

>FORMFILES win4 ROWS 0
#Id	sp
>FORM win5 ROWS 4 SIZE 25 "head"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
D    103    6   48   13   50 -	PU	-	edCode	#1961	""
D    108    6  156   13  120 -	P	-	edName	#1963	""
T    110    8    2   11   44 -	p	-	-	-	"Kampanjkod:"
T    111    8  114   11   42 -	p	-	-	-	"Benämning:"

>FORMFILES win5 ROWS 0
#Id	sp
>FORM lcTable ROWS 5 SIZE 49 ""
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
T   2259    1    1   11   50 -	Hph	-	-	#1961	"Kampanjkod"
T   2260    1   51   11   84 -	Hp	-	-	#1963	"Benämning"
T   2261    1  135   11   42 -	Hp	-	-	#1967	"Från  datum"
T   2262    1  177   11   42 -	Hp	-	-	#1968	"Till datum"
T  24011    1  219   11   66 -	Hp	-	-	#1977	"Info"

>FORMFILES lcTable ROWS 1
#Id	sp
1960	r
>FORM lcFormat ROWS 3 SIZE 32 ""
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
T   2256    1    1   11   43 -	Hp	-	-	#1981	"Kampanjkod"
T   2257    1   43   11   35 -	Hp	-	-	#1983	"Artikelkod"
T   2258    1   78   11   29 -	Hp	-	-	#1985	"Prislista"

>FORMFILES lcFormat ROWS 1
#Id	sp
19250	r
>FORM win6 ROWS 6 SIZE 33 "win6"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
DP 24003    2   50   13   44 D8	P	-	dpFromDate	#1967	""
DP 24004   16   50   13   44 D8	P	-	dpToDate	#1968	""
D   2264   30   50   13  114 -	P	-	edINFO	#1977	""
T   2265   32    4   11   42 -	p	-	-	-	"Info:"
T   2267    4    4   11   42 -	p	-	-	-	"Från datum:"
T  24010   18    4   11   42 -	p	-	-	-	"Till datum:"

>FORMFILES win6 ROWS 0
#Id	sp
>SOURCE
