>TYPE   	D
>NAME   	bonus-u.d
>CODE   	bonus-u.cod
>BY     	@(#)$Author: Jessica $
>DATE   	@(#)$Date: 06-12-19 16:13 $
>VERSION	@(#)$Revision: 4 $
>ID     	29505

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

>TEXTINFO ROWS 8 SIZE 283
#id    value    flags    text
IDL_100  100  -  År måste anges
IDL_101  101  -  Bonus utbetald för %1 kunder
IDL_102  102  -  Ingen bonus att utbetala
IDL_103  103  -  Utbetalning görs för kunder med beräknad bonus för angivet år.
IDL_104  104  -  Bonuscheck skapas om Kassmodulen är installerad.
IDL_105  105  -  Registerad utbetalning kan makuleras.
IDL_106  106  -  Bonus utbetald för en kund
IDL_107  107  -  Radera bonusutbetalningar för år %1?


>STACK ROWS 100 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   245   230 SB	-	-	"-"	  0	"Utbetala bonus"

>FORM MAIN ROWS 8 SIZE 82 "100 Main"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
WW    59   38    2   52  226 -	pZw	-	win2	-	""
WW    49   90    4   77  224 -	PZw	-	win1	-	""
WW    65  167    4   42  224 -	PZw	-	win3	-	""
B3    77  213    4   15   54 -	THDPw	-	pbReprint	-	"print.bmp,Skriv &om"
B3    61  213   60   15   54 -	TPw	-	pbOk	-	"ok.bmp,&Verkställ"
B3    62  213  116   15   54 -	TPw	-	pbCancelPayout	-	"delete.bmp,&Makulera"
B3     2  213  172   15   54 -	xTPwz	-	pbExit	-	"cancel.bmp,Av&bryt"
EM    63    4    4   30  222 -	pOWZ	-	edInfo	-	""

>FORM win1 ROWS 8 SIZE 60 "win1"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
CB    57   12   42  100   48 -	P	-	cbYear	#853	""
CE    54   26   42  150  100 -	Pc	-	cbCustomerType	#851	""
DP    70   56   42   13   54 D8	P	-	dpValid	-	""
T     55   14    6   11   24 -	p	-	-	-	"År:"
T     56   28    6   11   32 -	p	-	-	-	"Kundtyp:"
T     71   58    6   11   34 -	p	-	txValid	-	"Giltigt till:"
GB    51    2    0   42  222 -	pZ	-	-	-	"Utbetala bonus för"
GB    72   46    0   28  222 -	pZ	-	-	-	"Bonuscheck"

>FORMFILES win1 ROWS 0
#Id	sp
>FORM win2 ROWS 5 SIZE 81 "win2"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
XB    58   10    8   10   94 -	Rp	-	xbZeroBonus	-	"Utbetala nollbonus"
XB    76   20    8   10  115 -	Rp	-	xbVouchers	-	"Skapa bonuscheck i PBS"
T     78   34    8   11   87 -	p	-	-	-	"Bonusbelopp avrundas till:"
D     79   32   97   13   39 -	P	-	edBonusRound	#12694	""
GB    60    0    2   51  222 -	pZ	-	-	-	"Egenskaper"

>FORMFILES win2 ROWS 0
#Id	sp
>FORM win3 ROWS 5 SIZE 29 "win3"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
CE    74   10   42  150  100 -	Pc	-	cbFormat	#841	""
CE    68   24   42  150  100 -	Pc	-	cbPrinter	#815	""
T     73   26    6   11   34 -	p	-	-	-	"Skrivare:"
T     75   12    6   11   32 -	p	-	-	-	"Format:"
GB    69    0    0   42  222 -	pZ	-	-	-	"Utskrift"

>FORMFILES win3 ROWS 0
#Id	sp
>SOURCE
