>TYPE   	D
>NAME   	reg36000.d
>CODE   	reg36000.cod
>BY     	@(#)$Author: Sture $
>DATE   	@(#)$Date: 06-12-21 10:25 $
>VERSION	@(#)$Revision: 5 $
>ID     	12083

>FILES ROWS 1
#type id  name        dbtype mode autoload r0 r1 r2 r3 r4 r5 comment
T     195  PYEGN      0      0    1        0  0  0  0  0  0  ¼ô

>TEXTINFO ROWS 17 SIZE 580
#id    value    flags    text
IDL_101  101  -  Kod måste anges
IDL_102  102  -  Radera regel för %1
IDL_103  103  -  Regeln finns redan
IDL_104  104  -  Artikelkod saknas
IDL_105  105  -  Antalsgräns  måste anges
IDL_106  106  -  Orderartikel måste anges
IDL_107  107  -  Artikelkod %1 saknas
IDL_108  108  -  Antal måste anges
IDL_109  109  -  Ej tillåtet att kombinera "Á-pris" och "Rabatt/påslag"
IDL_110  110  -  Ej tillåtet att kombinera "Per påbörjad gräns" och "Billigaste gratis"
IDL_111  111  -  Spara påbörjad regel
IDL_112  112  -  Spara ändrad regel
IDL_113  113  -  %1 måste anges
IDL_114  114  -  Ej tillåtet att kombinera "Per påbörjad gräns" och "Rabatt/påslag"
IDL_115  115  -  Ej tillåtet att kombinera "Ack" och "Rabatt/påslag"
IDL_116  116  -  För Rabatt/påslag måste "En gång per order" anges
IDL_117  117  -  Ange flera artikelkoder med kommaseparering. Tillåtna windcards: ?*


>STACK ROWS 100 SIZE 5000

>FONT ROWS 12
#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"
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   320   420 SBL	-	-	"-"	  0	"Registrera specialregler"

>FORM MAIN ROWS 7 SIZE 73 "100 Main"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
WW  4114    0    2   28  416 -	PZ	-	win4	-	""
GR  4113   30    4   78  414 -	PWZ	-	lcPrice	-	""
TB  4083  110    4  166  414 -	PZw	-	tab2	-	"Regel"
B3  4411  278    4   15   50 -	QPw	-	pbSave	-	"save.bmp,&Spara"
B3  4412  278   58   15   50 -	QPw	-	pbNew	-	"new.bmp,&Ny "
B3  4413  278  112   15   50 -	QPw	-	pbDelete	-	"delete.bmp,&Ta bort"
B3  4414  278  366   15   50 -	QPwz	-	pbExit	-	"exit.bmp,St&äng"

>FORMFILES MAIN ROWS 1
#Id	sp
195	r
>FORM tab2 ROWS 1 SIZE 1 "tab2"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
WW  4124   14    2  150  410 -	PZ	-	win5	-	""

>FORMFILES tab2 ROWS 0
#Id	sp
>FORM win4 ROWS 9 SIZE 23 "Huvud"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
T   4259   12    6   11   36 -	p	-	-	-	"Kampanj:"
D   4260   10   42   13   56 -	pO	-	edHead	-	""
D   4261   10  102   13   98 -	pO	-	edHeadLabel	-	""
D   4264   10  356   13   54 -	pO	-	edCodeType	-	""
T   4385   12  208   11   28 -	p	-	-	-	"Datum:"
DP  4386   10  236   13   50 D8	pO	-	dpFromDate	#1967	""
DP  4387   10  298   13   50 D8	pO	-	dpToDate	#1968	""
FU  4388   16  288    2    8 -	p	-	-	-	""
GB  4415    0    2   28  414 -	pZ	-	-	-	""

>FORMFILES win4 ROWS 0
#Id	sp
>FORM win5 ROWS 9 SIZE 41 "win5"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
WW  4361    0    2   32  186 -	P	-	win20	-	""
WW  4369    0    2   32  184 -	P	-	win21	-	""
CE  4135    4  222  150   90 -	Pc	-	cbCurrency	#36008	""
RB  4460    6  332   10   50 -	RP	-	rbLimitQ	-	"&Antalsgräns"
RB  4461   16  332   10   62 -	RP	-	rbLimitA	-	"&Beloppsgräns"
T   4136    6  194   11   26 -	p	-	txCurrency	-	"Valuta:"
WW  4433   38    0  114  194 -	P	-	win23	-	""
WW  4416   38  196  114  212 -	PZz	-	win22	-	""
FR  4290   34    2    1  406 -	pZ	-	-	-	""

>FORMFILES win5 ROWS 0
#Id	sp
>FORM lcPrice ROWS 9 SIZE 75 ""
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
T   4167    1    1   11   50 -	Hph	-	-	#36006	"Kodfält"
T   4170    1   51   11   24 -	Hph	-	-	#36008	"Valuta"
T   4311    1   75   11    0 -	Hp	-	-	#36003	""
T   4425    1   75   11   55 -	RHp	-	-	#36021	"Antalsgräns"
T   4426    1  131   11   55 -	RHp	-	-	#36023	"Beloppsgräns"
T   4427    1  186   11   40 -	RHp	-	-	#36035	"Pris"
T   4428    1  226   11   40 -	RHp	-	-	#36037	"Rabatt"
T   4429    1  266   11   50 -	Hp	-	-	#36031	"Orderartikel"
T   4430    0  316   11   86 -	Hp	-	-	#36013	"Undantag"

>FORMFILES lcPrice ROWS 1
#Id	sp
36000	r
>FORM win20 ROWS 7 SIZE 49 "Normal"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
T   4362    6    2   11   42 -	p	-	txCode	-	"Kod:"
D   4363    4   48   13   94 -	PU	-	edCode	#36006	""
B3  4364    4  144   13    9 -	SxTpfF	-	pbPrevCode	-	"arrowl.bmp"
B3  4365    4  160   13   15 -	xQpF	-	pbSeekCode	-	"seek.bmp"
B3  4366    4  152   13    9 -	SxTpfF	-	pbNextCode	-	"arrowr.bmp"
T   4367   20    2   11   42 -	p	-	-	-	"Benämning:"
D   4368   18   48   13  134 -	pO	-	edCodeLabel	-	""

>FORMFILES win20 ROWS 1
#Id	sp
195	r
>FORM win21 ROWS 12 SIZE 68 "Combi"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
D   4371    4   42   13   30 -	PU	-	edCode1	-	""
D   4374   18   42   13   30 -	PU	-	edCode2	-	""
D   4377    4  134   13   30 -	PU	-	edCode3	-	""
D   4380   18  134   13   30 -	PU	-	edCode4	-	""
B3  4372    4   74   13   15 -	xQpF	-	pbSeekCode1	-	"seek.bmp"
B3  4375   18   74   13   15 -	xQpF	-	pbSeekCode2	-	"seek.bmp"
B3  4378    4  166   13   15 -	xQpF	-	pbSeekCode3	-	"seek.bmp"
B3  4381   18  166   13   15 -	xQpF	-	pbSeekCode4	-	"seek.bmp"
T   4370    6    2   11   38 -	p	-	txCode1	-	"Kod 1:"
T   4373   20    2   11   38 -	p	-	txCode2	-	"Kod 2:"
T   4376    6   94   11   38 -	p	-	txCode3	-	"Kod 3:"
T   4379   20   94   11   38 -	p	-	txCode4	-	"Kod 4:"

>FORMFILES win21 ROWS 1
#Id	sp
195	r
>FORM win22 ROWS 17 SIZE 145 "win22"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
D   4419    8   96   13   80 -	PU	-	edOrderArt	#36031	""
D   4422   22   96   13  110 -	pOZ	-	edArtLabel	-	""
D   4424   36   96   13  110 -	PZ	-	edOrderlLabel	#36033	""
XB  4452   52   96   10   82 -	RP	-	xbCheapestFree	-	"Billigaste gratis"
D   4453   66   96   13   60 -	P	-	edQuant	#36034	""
XB  4455   68  166   10   30 -	RP	-	xbAcc	-	"Ack"
D   4446   80   96   13   60 -	P	-	edPrice	#36035	""
D   4448   94   96   13   60 -	P	-	edDiscount	#36037	""
B3  4420    8  178   13   15 -	xQpF	-	pbOrderArt	-	"seek.bmp"
T   4447   96    4   11   90 -	p	-	-	-	"Rabatt/påslag på summan:"
T   4445   82    4   11   90 -	p	-	-	-	"Á-pris:"
T   4421   24    4   11   88 -	p	-	-	-	"Artikelbenämning:"
T   4418   10    4   11   88 -	p	-	-	-	"Artikelkod:"
T   4454   68    4   11   90 -	p	-	-	-	"Antal:"
T   4423   38    4   11   90 -	p	-	-	-	"Avvikande benämning:"
T   4459   96  158   11   10 -	p	-	-	-	"%"
GB  4417    0    0  112  212 -	pZ	-	-	-	"Skapa orderrad"

>FORMFILES win22 ROWS 1
#Id	sp
195	r
>FORM win23 ROWS 12 SIZE 159 "win23"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
D   4436   10   68   13   60 -	P	-	edLimitQ	#36021	""
D   4438   24   68   13   60 -	P	-	edLimitA	#36023	""
XB  4439   38   68   10   94 -	RP	-	xbUnitPrice	-	"Belopp avser a-pris"
D   4440   50   68   13  104 -	PUZ	-	edExceptArt	#36013	""
T   4437   26    6   11   58 -	p	-	-	-	"Beloppsgräns:"
T   4435   12    6   11   58 -	p	-	-	-	"Antalsgräns:"
T   4441   52    6   11   60 -	p	-	-	-	"Undantag artiklar:"
B3  4442   50  174   13   15 -	xQpFz	-	pbExceptArt	-	"seek.bmp"
XB  4457   82    8   10  114 -	RP	-	xbOncePerOrder	-	"Endast en gång per order"
XB  4458   92    8   10  114 -	RP	-	xbPerLimit	-	"Per påbörjad gräns"
GB  4434    0    2   68  192 -	p	-	-	-	"Antals-/beloppsgränser"
GB  4456   72    2   40  192 -	p	-	-	-	"Utfallsregler"

>FORMFILES win23 ROWS 1
#Id	sp
195	r
>SOURCE
