>TYPE   	D
>NAME   	3921.d
>CODE   	3921.cod
>BY     	@(#)$Author: Jessica $
>DATE   	@(#)$Date: 07-05-30 9:03 $
>VERSION	@(#)$Revision: 3 $
>ID     	12073

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

>TEXTINFO ROWS 1 SIZE 10
#id    value    flags    text
IDL_100  100  -  Kommentar


>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 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   325   460 SBL	-	-	"-"	  0	"3921 Avstäm Internetbetalningar"

>FORM MAIN ROWS 4 SIZE 39 "100 Main"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
WW  4078   18    4   85  454 -	PZ	-	winSelection	-	""
WW   621    0    4   16  308 -	PhmZ	-	win1	-	""
TB  4072  108    4  168  450 -	PWZ	-	tab1	-	"&Internetbetalningar"
B3     2  280  404   15   50 -	TPz	-	-	-	"exit.bmp,St&äng"

>FORMFILES MAIN ROWS 1
#Id	sp
30	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 -	SRTHpfF	-	pbTool	-	""
B3  2001    0    0   13   15 -	SRTHpfF	-	pbTool	-	""
B3  2002    0    0   13   15 -	SRTHpfF	-	pbTool	-	""
B3  2003    0    0   13   15 -	SRTHpfF	-	pbTool	-	""
B3  2004    0    0   13   15 -	SRTHpfF	-	pbTool	-	""
B3  2005    0    0   13   15 -	SRTHpfF	-	pbTool	-	""
B3  2006    0    0   13   15 -	SRTHpfF	-	pbTool	-	""
B3  2007    0    0   13   15 -	SRTHpfF	-	pbTool	-	""
B3  2008    0    0   13   15 -	SRTHpfF	-	pbTool	-	""
B3  2009    0    0   13   15 -	SRTHpfF	-	pbTool	-	""
B3  2010    0    0   13   15 -	SRTHpfF	-	pbTool	-	""
B3  2011    0    0   13   15 -	SRTHpfF	-	pbTool	-	""
B3  2012    0    0   13   15 -	SRTHpfF	-	pbTool	-	""
B3  2013    0    0   13   15 -	SRTHpfF	-	pbTool	-	""
B3  2014    0    0   13   15 -	SRTHpfF	-	pbTool	-	""
FU  4071    0    0   15  307 -	pZ	-	-	-	""

>FORMFILES win1 ROWS 0
#Id	sp
>FORM tab1 ROWS 1 SIZE 1 "tab1"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
WW  4073   13    2  152  445 -	PWZ	-	win2	-	""

>FORMFILES tab1 ROWS 0
#Id	sp
>FORM win2 ROWS 5 SIZE 94 "Betalningar"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
GR  4089    6    3  145  368 -	PWZ	-	lcTable	-	""
B3  4228   66  376   15   68 -	QP	-	pbMarkAll	-	"markon.bmp,Markera alla"
B3  4229   83  376   15   68 -	QP	-	pbUnmarkAll	-	"markoff.bmp,Avmarkera alla"
B3  4230    6  376   15   68 -	QP	-	pbExecute	-	"listok.bmp,Avstäm alla"
B3  4231   23  376   15   68 -	QP	-	pbCancel	-	"listdeny.bmp,Ångra"

>FORMFILES win2 ROWS 0
#Id	sp
>FORM winSelection ROWS 29 SIZE 284 "Urval"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
D   4129   11   66   13   60 A8	PU	-	edFromID	#841	""
D   4130   25   66   13   60 A8	PU	-	edToID	#849	""
DP  4083   39   66   13   46 D8	P	-	dpFromDate	#844	""
DP  4085   53   66   14   46 D8	P	-	dpToDate	#846	""
CE  4218   67   66   50   80 -	Pc	-	cbSelection	#836	""
D   4107   11  196   13   60 A8	PU	-	edFromOrder	#842	""
D   4110   25  196   13   60 A8	PU	-	edToOrder	#848	""
RB  4211   49  220   10   62 -	RP	-	rbStatusA	-	"Avstämda"
RB  4212   60  220   10   66 -	RP	-	rbStatusEj	-	"Ej avstämda"
RB  4213   70  220   10   50 -	RP	-	rbAllStatus	-	"Alla"
GB  4207   41  214   41   75 -	p	-	-	-	"Status"
RB  4208   49  296   10   62 -	RP	-	rbTypeK	-	"Kortbetalningar"
RB  4209   60  296   10   66 -	RP	-	rbTypeB	-	"Bankbetalningar"
RB  4210   70  296   10   50 -	RP	-	rbAllTypes	-	"Alla"
GB  4206   41  290   41   73 -	p	-	-	-	"Betalningstyp"
B3  4121   23  378   15   68 -	QPz	-	pbResetLc	-	"nothing.bmp,Töm urvalet"
T   4134   27    7   11   57 -	p	-	-	-	"Till betalningsid:"
T   4133   13    7   11   58 -	p	-	-	-	"Från betalningsid:"
T   4084   54    7   11   59 -	p	-	txToDate	-	"Till bet.datum:"
B3  4132   25  128   13   15 -	xTpF	-	pbToID	-	"seek.bmp"
B3  4131   11  128   13   15 -	xTpF	-	pbFromID	-	"seek.bmp"
T   4082   41    7   11   59 -	p	-	txFromDate	-	"Från bet.datum:"
B3  4111   25  258   13   15 -	xTpF	-	pbToOrder	-	"seek.bmp"
B3  4108   11  258   13   15 -	xTpF	-	pbFromOrder	-	"seek.bmp"
B3  4079    6  378   15   68 -	QPz	-	pbOk	-	"ok.bmp,Hä&mta"
T   4219   69    7   11   59 -	p	-	-	-	"Sparat urval:"
T   4109   27  150   11   42 -	p	-	-	-	"Till ordernr:"
T   4106   13  150   11   42 -	p	-	-	-	"Från ordernr:"
GB  4122    1    3   84  363 -	p	-	-	-	"Urval:"

>FORMFILES winSelection ROWS 0
#Id	sp
>FORM lcOrder ROWS 8 SIZE 75 ""
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
XB  4119  128   10   10   20 -	HP	-	-	#861	""
T   4194  128   30   11   30 -	Hp	-	-	#34001	"BetalningsID"
T   4195  128   60   11   55 -	Hp	-	-	#34003	"Ordernummer"
T   4196  128  115   11   55 -	Hp	-	-	#34004	"Företagskod"
T   4197  128  171   11   55 -	Hp	-	-	#34010	"Nettobelopp"
T   4198  128  226   11   50 -	Hp	-	-	#34012	"Momsbelopp"
T   4199  128  276   11   60 -	Hp	-	-	#34011	"Bruttobelopp"
BM  4193  128  336   20   30 -	QHp	-	-	#12862	""

>FORMFILES lcOrder ROWS 1
#Id	sp
34000	r
>FORM lcTable ROWS 9 SIZE 82 ""
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
XB  4214    1    1   10   20 -	HP	-	-	#861	""
T   4217    1   21   11   50 -	Hph	-	-	#34001	"Betalningsid"
T   4220    1   71   11   55 -	Hp	-	-	#34003	"Ordernummer"
T   4221    1  126   11   55 -	Hp	-	-	#34004	"Företagskod"
T   4223    1  182   11   70 -	Hp	-	-	#34020	"Betalad"
T   4226    1  252   11   50 -	Hp	-	-	#34030	"Avstämd datum"
T   4225    1  302   11   30 -	Hp	-	-	#34032	"Avstämd sign"
BM  4216    1  332   20   20 -	QHp	-	-	#12861	""
T   4227   13    1   11    0 -	HpL	-	-	#34032	"Avstämd"

>FORMFILES lcTable ROWS 2
#Id	sp
34000	r
40	r
>SOURCE
