>TYPE   	D
>NAME   	calcdepo.d
>CODE   	calcdepo.cod
>BY     	@(#)$Author: Henrik $
>DATE   	@(#)$Date: 08-05-02 16:10 $
>VERSION	@(#)$Revision: 11 $
>ID     	10569

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

>TEXTINFO ROWS 4 SIZE 220
#id    value    flags    text
IDL_100  100  -  Hanpenningen måste vara mellan 0% och 100%
IDL_101  101  -  Att betala får inte understiga kvitto, övrigt.
IDL_103  103  -  En handpenningsartikel som är kopplad till en momskod är raderad
IDL_104  104  -  En momskod som är kopplad till en handpenningsartikel är raderad


>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   220   425 S	-	-	"-"	  0	"Handpenning"

>FORM MAIN ROWS 4 SIZE 32 "100 Main"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
WW    54  116    6   78  414 -	Pw	-	win1	-	""
B3    21  202  314   15   50 -	TPwz	-	pbOK	-	"ok.bmp,&OK"
B3     2  202  368   15   50 -	xTPwz	-	-	-	"cancel.bmp,&Avbryt"
GR    41   22    6   88  414 -	PWZ	-	lcDeposit	-	""

>FORM lcDeposit ROWS 10 SIZE 94 ""
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
T     42    1    1   11    0 -	Hp	-	-	#25741	"Handp.art.kod"
T     44    1    1   11   15 -	Hp	-	-	#25743	"MK"
T     45    1   17   11   28 -	RHp	-	-	#25744	"Moms%"
T     43    1   45   11  100 -	Hp	-	-	#25742	"Benämning"
T     46    1  145   11   42 -	RHp	-	-	#25745	"Totalt värde"
T     47    1  187   11   42 -	RHp	-	-	#25746	"Innest. hp"
T     48    1  229   11   42 -	RHp	-	-	#25747	"Levererat"
T     49    1  271   11   45 -	RHp	-	-	#25748	"Återst. värde"
D     50    1  316   13   42 -	RHP	-	edHandPAmount	#25749	"Ny hp"
D     51    1  358   13   42 -	RHP	-	edHandPProc	#25750	"Ny hp%"

>FORMFILES lcDeposit ROWS 0
#Id	sp
>FORM win1 ROWS 20 SIZE 187 "win1"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
D     55    0  101   13   60 -	RpO	-	edTotalsum	#8582	""
T     56    0    2   11   60 -	p	-	-	-	"Totalt ordervärde:"
T     57   16    2   11   96 -	p	-	-	-	"Innestående handpenning :  -"
D     58   16  101   13   60 -	RpO	-	edEarlierDeposit	#8572	""
T     59   32    2   11   80 -	p	-	-	-	"Levererat:"
T     60   32   92   11    6 -	p	-	-	-	"-"
D     61   32  101   13   60 -	RpO	-	edDelivered	#8591	""
T     62   48   74    6   88 -	p	-	-	-	"======================"
T     63   60    0   11   80 -	p	-	-	-	"Återstående ordervärde:"
D     64   58  101   13   60 -	RpO	-	edOrderSum	#8583	""
T     65   16  250   11   60 -	p	-	-	-	"Ny handpenning:"
D     66   16  316   13   60 -	RP	-	edDeposit	#8581	""
D     67   16  380   13   26 -	RP	-	edDepositPercent	#8771	""
T     68   18  406   11    6 -	p	-	-	-	"%"
T     69   32  250   11   50 -	p	-	-	-	"Kvitto, övrigt:"
D     70   32  316   13   60 -	RpO	-	edReceiptSum	#8584	""
T     71   48  288    6   90 -	p	-	-	-	"======================"
T     72   58  250   11   44 -	p	-	-	-	"Att betala:"
D     73   58  316   13   60 -	RP	-	edTotal	#8585	""
T     74   32  308   11    6 -	p	-	-	-	"+"

>FORMFILES win1 ROWS 0
#Id	sp
>SOURCE
