>TYPE   	D
>NAME   	sevebetn.d
>CODE   	sevebetn.cod
>BY     	@(#)$Author: Anderst $
>DATE   	@(#)$Date: 06-08-25 10:58 $
>VERSION	@(#)$Revision: 2 $
>ID     	19014

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

>TEXTINFO ROWS 10 SIZE 423
#id    value    flags    text
IDL_103  103  -  Personnummer
IDL_104  104  -  Löpnr med kontroll
IDL_105  105  -  Numerisk kundkod
IDL_106  106  -  Bankkontonummer
IDL_107  107  -  Kontroll av numerisk kundkod. Avvikande poster presenteras.
IDL_108  108  -  Kontroll att bankkontonr finns på kunderna. Avvikande poster presenteras.
IDL_109  109  -  Kontroll att personnummer finns på kunderna. Avvikande poster presenteras.
IDL_110  110  -  Inga avvikande poster hittas i registret.
IDL_111  111  -  Klar med initiering av betalarnummer.
IDL_112  112  -  Betalarnummer är redan valt. Se egenskaper för Autogiro i rutin 791.


>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   300   330 SB	-	-	"-"	  0	"Initiera betalarnummer i företagsregister"

>FORM MAIN ROWS 9 SIZE 422 "100 Main"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
GR    46   65    5   80  315 -	pWZ	-	lcTable	-	""
WW    62  146    5  115  320 -	PZw	-	win1	-	""
B3    45  266  180   15   60 -	TPwz	-	pbOk	-	"ok.bmp,&Ok"
B3    60  266  250   15   60 -	TPwz	-	pbAbort	-	"cancel.bmp,Av&bryt"
T     80    5   10   11  295 -	p	-	-	-	"1. Välj typ av betalarnummer som ska användas i Autogiro."
T     81   20   10   10  295 -	p	-	-	-	"2. Kör diagnos på företagsregistret. Diagnos behövs ej köras då Löpnr med kontroll valts."
T     82   50   10   10  295 -	p	-	-	-	"4. Klicka på Ok och vald typ av betalarnummer sätts i företagsregistret på godkända poster."
T     87   35   10   10  295 -	p	-	-	-	"3. Gör eventuella åtgärder. Avvikande poster kommer ej att uppdateras."
T     97  205   10   11  230 -	p	-	-	-	"i intervallet att få valt sekel. Detta uppdateras sedan i fältet personnummer."

>FORM lcTable ROWS 3 SIZE 25 ""
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
T     83    1    1   11   55 -	Hp	-	-	#2001	"Företagskod"
T     84    1   56   11   35 -	Hp	-	-	#2021	"Företag"
T     85    1   92   11   20 -	Hp	-	-	#2101	"Kund"

>FORMFILES lcTable ROWS 1
#Id	sp
20	r
>FORM win1 ROWS 14 SIZE 397 "win1"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
T     51   10    9   11   55 -	p	-	-	-	"Betalarnummer:"
CB    86   10   70  140   90 -	P	-	cbPaymentnumber	#8011	""
T     88   27    9   10  300 -	p	-	-	-	"Nedan kan väljas om man vill att sekel ska läggas till på personnummer enligt intervall."
T     89   87   10   11   25 -	p	-	txSekel	-	"Sekel:"
D     90   87   40   13   25 H2	P	-	edCentury	-	""
T     92   87   70   11   30 -	p	-	txIntervall	-	"Intervall:"
D     91   87  106   13   20 H2	P	-	edFrom	-	""
T     93   87  130   11   10 -	p	-	-	-	" - "
D     94   87  141   13   20 H2	P	-	edTo	-	""
PB    76   87  230   15   75 -	P	-	pbDiagnos	-	""
T     96   42    9   11  300 -	p	-	-	-	"Om fältet organisationsnr innehåller ett personnummer utan sekel kommer valda poster"
T     98   56    9   11  300 -	p	-	-	-	"i intervallet att få valt sekel. Fältet personnummer kommer sedan att uppdateras."
T    100   71    9   10  302 -	p	-	-	-	"Diagnos/Uppdatering kan köras flera gånger om man önska att uppdatera med  t ex olika sekel."
GB    67    0    5  110  310 -	pZ	-	-	-	"Urval"

>FORMFILES win1 ROWS 0
#Id	sp
>SOURCE
