>TYPE   	D
>NAME   	SEVEVAPO.d
>CODE   	SEVEVAPO.cod
>BY     	@(#)$Author: Anderst $
>DATE   	@(#)$Date: 05-11-22 18:06 $
>VERSION	@(#)$Revision: 4 $
>ID     	8148

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

>TEXTINFO ROWS 6 SIZE 148
#id    value    flags    text
IDL_100  100  -  Ordernr saknas
IDL_101  101  -  Utför konvertering till %1 %2
IDL_102  102  -  Konvertering misslyckad
IDL_103  103  -  Projektet får ej vara fakturerat tidigare
IDL_104  104  -  Valuta måste anges
IDL_105  105  -  Ange en ny valuta


>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   220   234 SB	-	-	"-"	  0	"Konvertera debiterbart i valuta"

>FORM MAIN ROWS 7 SIZE 256 "100 Main"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
WW    62   76    4  110  228 -	PZw	-	win1	-	""
B3    45  187  104   15   60 -	TPw	-	pbOk	-	"ok.bmp,&Ok"
B3    60  187  170   15   60 -	xTPwz	-	pbAbort	-	"cancel.bmp,Av&bryt"
T    102    8    7   11  219 -	p	-	-	-	"Vid konvertering från blank till valuta:"
T    103   39    7   11  219 -	p	-	-	-	"Vid konvertering mellan valutor:"
T    104   19   31   20  196 -	p	-	-	-	"Ange önskad kurs. Debiterbart beräknas utifrån tidigare belopp i systemvalutan."
T    105   50   31   20  198 -	p	-	-	-	"Ange önskad kurs mot systemvalutan eller crosskurs mot den befintliga."

>FORM win1 ROWS 21 SIZE 119 "win1"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
D     47   10   66   13   50 A8	PU	-	edFrom	-	""
CE    99   67   37  170   56 A4	Pc	-	cbCurrencyNew	#8834	""
XB   111   83    5   10   86 -	P	-	xbCross	-	"Använd crosskurs:"
D     95   67   95   13   57 F8.6	PU	-	edConvRate	-	""
D     97   67  155   13   67 F10.2	DPU	-	edNewAmount	-	""
T     89   43   37   11   53 -	p	-	-	-	"Valuta"
T     90   55    4   11   33 -	p	-	-	-	"Aktuell:"
T     92   43   95   11   57 -	p	-	-	-	"Kurs"
T     93   69    4   11   33 -	p	-	-	-	"Växla till:"
B3    54   10  117   13   15 -	QpF	-	pbFrom	-	"seek.bmp"
D     96   54  155   13   67 F10.2	DPU	-	edAmount	-	""
D     87   54   38   13   54 A8	DPU	-	edCurrency	-	""
T     98   43  154   11   67 -	p	-	txAmount	-	"Debiterbart"
T     51   12    4   11   59 -	p	-	-	-	"Ordernr:"
D    100   24   66   13  153 A8	DPU	-	-	#2021	""
T    101   25    4   11   59 -	p	-	-	-	"Företag:"
D    107   93   96   13   57 F8.6	DPU	-	edNewSysRate	-	""
T    108   94    5   11   87 -	p	-	txNewSysRate	-	"Ny kurs:"
D    109   93  156   13   67 F8.6	DPU	-	edSysAmount	-	""
D     88   54   95   13   57 F8.6	DPU	-	edRate	-	""
GB    67    0    0  110  226 -	pZ	-	-	-	"Kriterier"

>FORMFILES win1 ROWS 0
#Id	sp
>SOURCE
