>TYPE   	D
>NAME   	7220.d
>CODE   	7220.cod
>BY     	@(#)$Author: Annhe $
>DATE   	@(#)$Date: 05-10-25 16:27 $
>VERSION	@(#)$Revision: 2 $
>ID     	14034

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

>TEXTINFO ROWS 18 SIZE 559
#id    value    flags    text
IDL_101  101  -  Avskrivningskonton måste anges i rutin 791
IDL_102  102  -  Överavskrivning år: %1
IDL_103  103  -  Verifikatnr: %1
IDL_104  104  -  Överavskrivning kan ej ske - årsskifte redan gjord
IDL_105  105  -  Konto %1 saknas,  se över konton i rutin 791
IDL_106  106  -  Regel finns inte
IDL_107  107  -  Bokföring ej ikryssad, inget verifikat skapas.
IDL_108  108  -  Huvudregeln
IDL_109  109  -  %-sats får ej överstiga 100
IDL_110  110  -  Sista planenliga avskrivning för året måste ske
IDL_111  111  -  Kompletteringsregeln
IDL_112  112  -  Inget belopp att skriva av.
IDL_113  113  -  Överavskrivning redan gjord för detta år
IDL_114  114  -  %1 saknas
IDL_115  115  -  Konto %1 saknas. Kontrollera rutin 960 eller %2
IDL_116  116  -  Perioden ej öppen
IDL_117  117  -  Felaktigt datum
IDL_118  118  -  Utskrift ej gjord, vill du skapa verifikat nu?


>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   235   350 SB	-	-	"-"	  0	"Överavskrivnings kontering"

>FORM MAIN ROWS 4 SIZE 37 "100 Main"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
WW    47   20    0  165  338 -	PZ	-	win1	-	""
WW    46    4    4   16  334 -	PZ	-	win2	-	""
B3    45  190  214   15   60 -	TP	-	pbOk	-	"ok.bmp,&Verkställ"
B3     2  190  278   15   60 -	xTP	-	pbCancel	-	"exit.bmp, St&äng"

>FORM win1 ROWS 29 SIZE 276 "win1"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
CE   104    5   66  100   44 -	Pc	-	cbYear	#24901	""
CB    84   19   66   50   90 -	P	-	cbRule	#28921	""
D     89   35   66   13   44 -	RP	-	edProc	-	""
B3   103   58   96   15   60 -	QP	-	pbCount	-	"calc.bmp,&Beräkna"
D     54   90   66   13  100 -	P	-	edText	#12862	""
B3    81   90  172   15   50 -	QP	-	pbPrint	-	"print.bmp, &Skriv ut"
XB    57  118    4   10   70 -	P	-	xbBook	#863	"Bokföring"
D    109  128   66   13   80 -	pO	-	edBookDate	#28045	""
DP    62  128   66  100   80 D8	P	-	dpVDate	#28045	""
XB   105  130  156   10   86 -	Rp	-	xbClosingPeriod	-	"Bokslutsverifikat:"
D     60  144   66   13  100 -	P	-	edVText	#28072	""
T     58  130    4   11   60 -	p	-	-	-	"Verifikatdatum:"
T     90   35    4   11   60 -	p	-	txProc	-	"Avskrivnings-%:"
T     91   52  160   11  100 -	p	-	-	-	"Överavskrivning:"
T     85   19    4   11   60 -	p	-	txRule	-	"Avskrivningsregel:"
D    101   24  262   13   66 -	RpO	-	edAnskChange	-	""
T     96   10  160   11  100 -	p	-	txRestIB	-	"IB:"
T     97   38  160   11  100 -	p	-	txtotPlan	-	"Planenl.förändring i år:"
T     61  144    4   11   60 -	p	-	-	-	"Verifikattext:"
T     88   66  160   11  100 -	p	-	txRest	-	"Restvärde efter avskrivning"
T     55   90    4   11   58 -	p	-	-	-	"Kvittottext:"
T    102   23  160   11  100 -	p	-	-	-	"Ansk. kontons. förändring i år:"
D     94   10  262   13   66 -	RpO	-	edIB	-	""
D     99   38  262   13   66 -	RpO	-	edPlanChange	-	""
D     87   66  262   13   66 f.2	RpO	-	edNewRest	-	""
T     49    5    4   11   60 -	p	-	-	-	"Bokf.år:"
D     92   52  262   13   66 f.2	RpO	-	edBook	-	""
GB    56  109    0   50  246 -	p	-	-	-	""
GB    66   80    0   30  226 -	p	-	-	-	""

>FORMFILES win1 ROWS 0
#Id	sp
>FORM win2 ROWS 23 SIZE 23 "Tools"
#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  340 -	pZ	-	Tools	-	""

>FORMFILES win2 ROWS 0
#Id	sp
>SOURCE
