>TYPE   	D
>NAME   	221.d
>CODE   	221.cod
>BY     	@(#)$Author: Johan $
>DATE   	@(#)$Date: 06-08-03 15:48 $
>VERSION	@(#)$Revision: 3 $
>ID     	2011

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

>TEXTINFO ROWS 21 SIZE 417
#id    value    flags    text
IDL_100  100  -  Felaktigt intervall
IDL_101  101  -  Datum måste anges
IDL_102  102  -  Kan ej behandlas i denna rutin
IDL_103  103  -  Fakturanumret saknas
IDL_104  104  -  Färdigbehandlad
IDL_105  105  -  Tvistig faktura
IDL_106  106  -  Reskontraposten upptagen av %1 i rutin %2
IDL_107  107  -  Ej räntefaktura
IDL_108  108  -  Redan avskriven
IDL_109  109  -  Redan betald
IDL_110  110  -  Format måste anges
IDL_111  111  -  Inget att skriva
IDL_112  112  -  Rapport %1 saknas
IDL_113  113  -  Format
IDL_114  114  -  Formatnamn
IDL_115  115  -  Kommentar
IDL_116  116  -  Förhandsgranska
IDL_117  117  -  &Visa
IDL_118  118  -  Anteckningar
IDL_119  119  -  RALIST kunde ej laddas
IDL_120  120  -  Ange flera nummerserier med kommaseparering. Tillåtna wildcards: ?*


>STACK ROWS 1000 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     20   120   220   334 SB	-	-	"-"	  0	"221 Räntefaktura"

>FORM MAIN ROWS 9 SIZE 62 "100 Main"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
WW   621    0    2   16  328 -	pZ	-	win1	-	""
WW 24039   18    4   20  274 -	P	-	win6	-	""
WW 24056   38    4  156  274 -	P	-	win8	-	""
WW 24021   38    4  158  274 -	P	-	win5	-	""
WW 24044   38    4  158  274 -	P	-	win7	-	""
WW 24057   38    4  158  274 -	P	-	win9	-	""
B3  4067   42  280   15   50 -	TPz	-	pbPrint	-	"print.bmp,&Skriv ut"
B3  4405   60  280   15   50 -	TPz	-	pbAbort	-	"noprint.bmp,Av&bryt"
B3     2  178  280   15   50 -	xTPwz	-	pbClose	-	"exit.bmp,St&äng"

>FORMFILES MAIN ROWS 2
#Id	sp
20	r
40	r
>FORM win1 ROWS 23 SIZE 23 "Tool"
#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  326 -	pZ	-	-	-	""

>FORM win5 ROWS 2 SIZE 2 "List"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
WW 24022    0    0  116  274 -	P	-	win2	-	""
WW 24035  123    0   34  274 -	P	-	win4	-	""

>FORM win2 ROWS 15 SIZE 156 "Crit"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
DP 24024   10   70   13   48 D8	P	-	dpDate	#8711	""
D  24025   24   70   13   71 -	PU	-	edStart	#841	""
D  24030   38   70   13   71 A25	PU	-	edEnd	#849	""
D  24113   52   70   13   71 -	PU	-	edProposalSeries	#856	""
XB 24032   83   14   10  114 -	RP	-	xbSelection1	-	"Även nej-flaggade fakturor"
XB 24033   93   14   10  114 -	RP	-	xbSelection2	-	"Endast kunder över minibelopp"
B3 24029   24  143   13   15 -	SxTpF	-	pbStart	-	"seek.bmp"
B3 24031   38  143   13   15 -	SxTpF	-	pbEnd	-	"seek.bmp"
B3 24114   52  143   13   15 -	SxTpF	-	pbProposalSeries	-	"seek.bmp"
T  24026   11    6   10   58 -	p	-	-	-	"Räntefakt.datum:"
T  24027   25    6   11   58 -	p	-	-	-	"Från kundkod:"
T  24028   38    6   11   58 -	p	-	-	-	"Till kundkod:"
T  24115   54    5   11   58 -	p	-	-	-	"Fakturanrserie:"
GB 24034   70    6   38  151 -	p	-	-	-	"Urval"
GB 24023    0    0  114  270 -	p	-	-	-	""

>FORMFILES win2 ROWS 0
#Id	sp
>FORM win4 ROWS 2 SIZE 10 "Printer"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
CE 24037   12    6   83  100 -	Pc	-	cbPrinter	#815	""
GB 24036    0    0   32  270 -	p	-	-	-	"Skrivare"

>FORMFILES win4 ROWS 0
#Id	sp
>FORM win6 ROWS 4 SIZE 124 "Command"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
B3 24040    2    0   15   60 -	TPM	-	pbList	-	"nothing.bmp,&Lista förfallna"
B3 24041    2   62   15   70 -	TPM	-	pbPrintInvoice	-	"nothing.bmp,S&kriv räntefakturor"
B3 24042    2  134   15   62 -	TPM	-	pbChange	-	"nothing.bmp,Än&dra egenskap"
B3 24043    2  198   15   73 -	QPM	-	pbCancel	-	"nothing.bmp,Avskriv rä&ntefaktura"

>FORM win7 ROWS 18 SIZE 152 "Print"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
DP 24046   10   70   13   50 D8	P	-	edRateInvDate	#8711	""
D  24050   25   70   13   71 A25	PU	-	edFromCode	#841	""
D  24051   39   70   13   71 A25	PU	-	edToCode	#849	""
D  24103   52   70   13   71 -	PU	-	edInvoiceSerie	#856	""
CE 24052   88   70  126   90 -	Pc	-	cbForm	#8130	""
D  24105  102   70   13   50 -	PU	-	edInterestInvSerie	#857	""
B3 24053   24  143   13   15 -	SxTpF	-	pbFromCode	-	"seek.bmp"
B3 24054   38  143   13   15 -	SxTpF	-	pbToCode	-	"seek.bmp"
B3 24107   52  143   13   15 -	SxTpF	-	pbInvoiceSerie	-	"seek.bmp"
B3 24111  102  121   13   15 -	SxTpF	-	pbInterestInvSerie	-	"seek.bmp"
T  24045   12    6   11   58 -	p	-	-	-	"Räntefakt.datum:"
T  24047   25    6   11   58 -	p	-	-	-	"Från kundkod:"
T  24048   40    6   11   58 -	p	-	-	-	"Till kundkod:"
T  24104   52    6   11   58 -	p	-	-	-	"Fakturanrserie:"
T  24049   88    6   11   58 -	p	-	-	-	"Blankett:"
T  24106  103    6   11   58 -	p	-	-	-	"Nummerserie:"
GB 24110    0    0   70  270 -	p	-	-	-	""
GB 24109   74    0   44  270 -	p	-	-	-	"Utskrift av räntefaktura"

>FORM win8 ROWS 21 SIZE 171 "Change"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
D  24058    8   64   13   90 -	PU	-	edInvoice	-	""
XB 24060   22    4   13   68 -	P	-	xbBill	#4182	"Räntefaktureras"
XB 24061   36    4   13   68 -	P	-	xbDone	#4183	"Räntefakt klar"
D  24064   50   64   13   60 -	pO	-	-	#4001	""
D  24066   64   64   13  120 -	pO	-	-	#2021	""
D  24068   78   64   13   60 -	pO	-	-	#4002	""
D  24070   92   64   13   60 -	pO	-	-	#4015	""
D  24072  106   64   13   60 -	pO	-	-	#4051	""
D  24074  120   64   13   60 -	pO	-	-	#4053	""
B3 24083  140    2   15   50 -	QPh	-	pbSave	-	"save.bmp,S&para"
T  24069   78    6   11   56 -	p	-	-	-	"Förfallodatum:"
T  24065   51    6   11   56 -	p	-	-	-	"Kundkod:"
T  24071   92    6   11   56 -	p	-	-	-	"Betalningsdatum:"
B3 24063    8  172   13   15 -	xTpF	-	pbInvoice	-	"seek.bmp"
T  24073  107    6   11   56 -	p	-	-	-	"Fakturabelopp:"
T  24067   64    6   11   56 -	p	-	-	-	"Kund:"
T  24075  120    6   11   56 -	p	-	-	-	"Restbelopp:"
T  24059    9    6   11   56 -	p	-	-	-	"Fakturanr:"
B3 24094    8  156   13    9 -	xTpF	-	pbInvoicePrev	-	"arrowl.bmp"
B3 24095    8  164   13    9 -	xTpF	-	pbInvoiceNext	-	"arrowr.bmp"
GB 24078    0    0  138  270 -	p	-	-	-	""

>FORM win9 ROWS 11 SIZE 60 "Cancel"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
D  24085   22   64   13   60 -	pO	-	-	#4001	""
D  24087   36   64   13  110 -	pO	-	-	#2021	""
D  24089   50   64   13   60 -	pO	-	-	#4002	""
D  24091   64   64   13   60 -	pO	-	-	#4051	""
T  24086   23    6   11   54 -	p	-	-	-	"Kundkod:"
T  24088   36    6   11   54 -	p	-	-	-	"Kund:"
T  24090   51    6   11   54 -	p	-	-	-	"Förfallodatum:"
T  24092   65    6   11   54 -	p	-	-	-	"Fakturabelopp:"
PB 24084  140    2   15   50 -	P	-	pbWriteOff	-	"Av&skriv"
WW 24096    8    4   14  206 -	P	-	win10	-	""
GB 24079    0    0  138  270 -	p	-	-	-	""

>FORM win10 ROWS 3 SIZE 21 "win10"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
B3 24097    0  152   13   15 -	xTpfF	-	pbInvoiceNr	-	"seek.bmp"
D  24098    0   60   13   90 -	PU	-	edInvoiceNr	-	""
T  24099    2    2   11   54 -	p	-	-	-	"Fakturanr:"

>SOURCE
