>TYPE   	D
>NAME   	237work.d
>CODE   	237work.cod
>BY     	@(#)$Author: Anderst $
>DATE   	@(#)$Date: 07-02-21 9:17 $
>VERSION	@(#)$Revision: 5 $
>ID     	19008

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

>TEXTINFO ROWS 32 SIZE 1168
#id    value    flags    text
IDL_100  100  -  R&esultat
IDL_101  101  -  Det gick inte att hitta posten i arbetsregistret.
IDL_102  102  -  Radera post
IDL_103  103  -  Egenskaper för %1 saknas.
IDL_104  104  -  Det gick inte att ladda arbetsregistret.
IDL_105  105  -  Arbetsregister ej laddat.
IDL_106  106  -  Ladda arbetsregister
IDL_107  107  -  Visa inlästa poster som inte är behandlade
IDL_108  108  -  Visa felaktiga poster
IDL_109  109  -  Visa behandlade poster, klara för överföring
IDL_110  110  -  Visa överförda poster
IDL_111  111  -  Visa spärrade poster
IDL_112  112  -  Överför färdigbehandlade, felfria poster från arbetsregister till Pyramid
IDL_113  113  -  Kontrollera rättade poster
IDL_114  114  -  Raderar laddat arbetsregister
IDL_115  115  -  Öppnar dialog för korrigering av felaktiga poster
IDL_116  116  -  Auto-inbetalning - Arbetsregister
IDL_117  117  -  Meddelande
IDL_118  118  -  Radera arbetsregister %1
IDL_119  119  -  Arbetsregister %1 Inläst: %2  %3
IDL_120  120  -  Tryck Enter för att korrigera eller klicka på betalarnummer.
IDL_121  121  -  Egenskaper för bet.villkor måste anges för medgivanden.
IDL_122  122  -  Tryck F8 för att söka i kundstudion
IDL_123  123  -  Av&markera alla
IDL_124  124  -  Tryck Enter för att korrigera eller klicka på fakturanr, datum eller belopp.
IDL_125  125  -  Tryck F8 för att söka i reskontran.
IDL_126  126  -  Felkod från Bankgirot eller Plusgirot kan inte korrigeras.
IDL_127  127  -  Posten är överförd och kan inte korrigeras.
IDL_128  128  -  Inga poster att överföra. Radera arbetsregister
IDL_129  129  -  Obehandlade poster överförs inte men blir behandlade efter överföring.
IDL_130  130  -  &Markera alla
IDL_131  131  -  Filnamn för bildfil saknas


>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 2
#id Eventname	ParamList
1036	ImpoAfterHeadRegPUIPH	()
1037	ImpoAfterRowRegPUIPK	()


>WINDOW ROWS 1
#id       x     y    cy    cx sp1	sp2	Bitmap	font	size	caption
5511     10    10   336   500 SB	-	-	"-"	  0	"237 Arbetsregister"

>FORM MAIN ROWS 7 SIZE 55 "100 Main"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
WW  2021    0    4   16  498 -	PZ	-	win2	-	""
T   2025   24    8   10   48 -	p	-	-	-	"Arbetsregister:"
CB  2022   22   56  150   66 -	P	-	cbWorkReg	-	""
B3  2633   22  122   13   15 -	SxQpfF	-	pbReload	-	"reload.bmp"
WW  2419   15  144   30  350 -	P	-	win13	-	""
TB  2026   40    4  269  434 -	PWZ	-	tab1	-	"Tab&1,Tab&2,Tab&3,Tab&4"
WW  2023   50  441  262   54 -	PWz	-	win3	-	""

>FORMFILES MAIN ROWS 1
#Id	sp
113	r
>FORM win2 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  2020    0    0   15  490 -	pZ	-	-	-	""

>FORMFILES win2 ROWS 0
#Id	sp
>FORM win2 ROWS 0 SIZE 0 "win3"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label

>FORM win3 ROWS 5 SIZE 97 "win3"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
B3  2024    2    1   15   50 -	TP	-	pbTransfer	-	"read.bmp,&Överför"
B3  2711   22    1   15   50 -	QP	-	pbProcess	-	"process.bmp,&Behandla"
B3  2589   42    1   15   50 -	QP	-	pbDelete	-	"delete.bmp,Ra&dera"
B3  2597   62    1   15   50 -	QHP	-	pbCorrect	-	"regnew.bmp,&Korrigera"
B3     2  244    2   15   50 -	QPw	-	-	-	"exit.bmp,St&äng"

>FORMFILES win3 ROWS 0
#Id	sp
>FORM tab1 ROWS 1 SIZE 1 "tab1"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
WW  2041   12    2  254  426 -	PWZ	-	win4	-	""

>FORMFILES tab1 ROWS 0
#Id	sp
>FORM win4 ROWS 5 SIZE 5 "Klara rader"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
WW  2045    0    0  200  426 -	PWZ	-	win8	-	""
GR  2327  223    0   32  422 -	PZw	-	lcWarnings	-	""
WW  2412  210    4   12  422 -	PZw	D3	win12	-	""
WW  2807    3    4  200  422 -	P	-	win20	-	""
WW  2812    3    0  206  420 -	P	-	win21	-	""

>FORMFILES win4 ROWS 0
#Id	sp
>FORM win8 ROWS 2 SIZE 2 "Inbetalningar"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
WW  2462    2    2   12  422 -	PZ	D6	win19	-	""
GR  2064   18    0  175  422 -	PWZ	-	lcInbetalningar	-	""

>FORMFILES win8 ROWS 0
#Id	sp
>FORM lcInbetalningar ROWS 12 SIZE 75 ""
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
T   2581    1    1   11    0 -	Hp	-	-	#11301	"Löpnr"
BM  2868   13    1   20   25 -	QHp	-	-	#836	""
BM  2869   13   26   20   25 -	QHp	-	-	#835	""
D   2789    1    1   13   45 -	HPUh	-	edInvNo	#8140	"Fakt.nr"
T   2786    1   46   11   60 -	Hp	-	-	#11333	"Referens"
T   2784    1  106   11   55 -	Hp	-	-	#11305	"Företagskod"
T   2785    1  161   11   40 -	Hp	-	-	#11323	"Gironr"
D   2790    1  201   13   42 6H	HP	-	edPayDate	#11315	"Datum"
D   2799    1  243   13   62 -	RHP	-	edCurrAmount	#11389	"Valutabelopp"
D   2791    1  305   13   52 p	RHP	-	edAmount	#11353	"Belopp"
T   2787    1  357   11   56 -	Hp	-	-	#11335	"Fel"
BM  2588    1  413   20   25 -	QHph	-	-	#821	""

>FORMFILES lcInbetalningar ROWS 1
#Id	sp
113	r
>FORM clInArt ROWS 5 SIZE 48 ""
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
T   2262    1    1   11    0 -	Hp	-	-	#12402	"L÷pnummer"
T   2263    1    1   11    0 -	Hp	-	-	#12404	"Radnr"
T   2264    1    1   11  154 -	Hp	-	-	#12401	"Artikelkod"
T   2265    1  155   11   60 -	Hp	-	-	#12441	"Budget antal"
XB  2266    1  215   11   40 -	HP	-	-	#861	"Överför"

>FORMFILES clInArt ROWS 0
#Id	sp
>FORM lcWarnings ROWS 5 SIZE 68 ""
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
T   2553    1    0   11    0 -	Hp	-	-	#23252	"L÷pnummer huvud"
T   2554    1    0   11    0 -	Hp	-	-	#23253	"Löpnummer rad"
T   2555    1    0   11  312 -	Hph	-	-	#23259	"Meddelande"
T   2556    1  311   11   52 -	Hph	-	-	#23255	"Felaktigt värde"
T   2557    1  363   11   52 -	Hph	-	-	#23256	"Rätt värde"

>FORMFILES lcWarnings ROWS 0
#Id	sp
>FORM win12 ROWS 3 SIZE 19 "Varningshuvud"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
T   2413    0    2   11   60 -	p	C9D3F8	-	-	"Varningar"
T   2414    2   78   11   22 -	p	C9D3	-	-	"Antal:"
T   2415    2  102   11   36 -	p	C9D3	txENumber4	-	"0"

>FORMFILES win12 ROWS 0
#Id	sp
>FORM win13 ROWS 11 SIZE 104 "Visa poster"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
BM  2624    9    4   12   14 -	Tp	-	-	-	"yellow.bmp"
XB  2618    9   19   10   56 -	RP	-	xbShowUnb	-	"Obehandlade"
BM  2625    9   76   12   14 -	Tp	-	-	-	"red.bmp"
XB  2421    9   94   10   42 -	RP	-	xbShowError	-	"Felaktiga"
BM  2626    9  144   12   14 -	Tp	-	-	-	"green.bmp"
XB  2420    9  159   10   56 -	RP	-	xbShowProcessed	-	"Behandlade"
BM  2623    9  219   12   14 -	Tp	-	-	-	"ok.bmp"
XB  2504    9  234   10   46 -	RP	-	xbShowCorrected	-	"Överförda"
XB  2793    9  295   10   44 -	RP	-	xbShowStopped	-	"Spärrade"
BM  2794    9  280   12   14 -	Tp	-	-	-	"cancel.bmp"
GB  2511    0    0   25  345 -	p	-	-	-	"Visa"

>FORMFILES win13 ROWS 0
#Id	sp
>FORM win19 ROWS 12 SIZE 78 "win19"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
T   2464    2    2   11   24 -	p	C9D6	-	-	"Inlästa:"
T   2465    2   28   11   30 -	p	C9D6	txIHeadRead	-	"0"
T   2466    2  140   11   32 -	p	C9D6	-	-	"Felaktiga:"
T   2467    2  174   11   30 -	p	C9D6	txIHeadError	-	"0"
T   2468    2  282   11   34 -	p	C9D6	-	-	"Överförda:"
T   2469    2  318   11   30 -	p	C9D6	txIHeadCorrect	-	"0"
T   2600    2   60   11   46 -	p	C9D6	-	-	"Obehandlade:"
T   2601    2  108   11   30 -	p	C9D6	txIHeadUnCorr	-	"0"
T   2648    2  206   11   41 -	p	C9D6	-	-	"Behandlade:"
T   2649    2  250   11   30 -	p	C9D6	txIHeadProcessed	-	"0"
T   2797    2  350   11   32 -	p	C9D6	-	-	"Spärrade:"
T   2798    2  384   11   30 -	p	C9D6	txIStopped	-	"0"

>FORMFILES win19 ROWS 0
#Id	sp
>FORM win20 ROWS 3 SIZE 18 "E-medgivanden"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
GR  2808   19    0  156  422 -	PWZ	-	lcEmedgivanden	-	""
WW  2837    2    2   12  422 -	P	-	win23	-	""
PB  2866  179  356   15   54 -	Pwz	-	pbAll	-	"Av&markera alla"

>FORMFILES win20 ROWS 0
#Id	sp
>FORM lcMedgivanden ROWS 3 SIZE 30 ""
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
T   2809    1    1   11   25 -	Hp	-	-	#11301	"Löpnr"
T   2810    1   26   11   65 -	Hp	-	-	#11325	"Personnummer"
T   2811    1   91   11   30 -	Hp	-	-	#11353	"Max-belopp"

>FORMFILES lcMedgivanden ROWS 1
#Id	sp
113	r
>FORM win21 ROWS 2 SIZE 2 "Medgivandeavisering"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
GR  2813   15    0  184  420 -	PWZ	-	lcAvisering	-	""
WW  2836    2    2   12  422 -	P	-	win22	-	""

>FORMFILES win21 ROWS 0
#Id	sp
>FORM lcAvisering ROWS 6 SIZE 39 ""
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
T   2828    1    1   11   45 -	Hp	-	-	#11327	"Datum"
D   2822    1   46   13   45 -	RHP	-	edPaymentnr	#11374	"Betalarnr"
T   2819    1   91   11   65 -	RHp	-	-	#11325	"Pers/Org- nummer"
T   2826    1  157   11   75 -	Hp	-	-	#11335	"Fel"
BM  2824    1  232   20   25 -	QHp	-	-	#821	""
T   2867    1  257   11    0 -	Hph	-	-	#11301	""

>FORMFILES lcAvisering ROWS 1
#Id	sp
113	r
>FORM lcEmedgivanden ROWS 8 SIZE 55 ""
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
XB  2864    1    1   10   45 -	RHPh	-	-	#10091	"Godkänn"
T   2829    1   46   11   45 -	Hp	-	-	#11327	"Datum"
D   2831    1   91   13   45 -	RHP	-	edEPaymentnr	#11374	"Betalarnr"
T   2832    1  137   13   65 -	RHp	-	-	#11333	"Unikt ID"
T   2833    1  202   13   65 -	RHp	-	-	#11325	"Pers/Org-nummer"
T   2834    1  267   13   75 -	Hp	-	-	#11335	"Fel"
BM  2835    1  343   20   40 -	QHp	-	-	#821	""
T   2865    1  383   10    0 -	Hph	-	-	#11301	""

>FORMFILES lcEmedgivanden ROWS 1
#Id	sp
113	r
>FORM win22 ROWS 12 SIZE 78 "win22"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
T   2838    2    2   11   26 -	p	C9D6	-	-	"Inlästa:"
T   2839    2   28   11   32 -	p	C9D6	txAHeadRead	-	"0"
T   2842    2  140   11   34 -	p	C9D6	-	-	"Felaktiga:"
T   2843    2  174   11   32 -	p	C9D6	txAHeadError	-	"0"
T   2846    2  282   11   36 -	p	C9D6	-	-	"Överförda:"
T   2847    2  318   11   32 -	p	C9D6	txAHeadCorrect	-	"0"
T   2840    2   60   11   48 -	p	C9D6	-	-	"Obehandlade:"
T   2841    2  108   11   32 -	p	C9D6	txAHeadUnCorr	-	"0"
T   2844    2  206   11   44 -	p	C9D6	-	-	"Behandlade:"
T   2845    2  250   11   32 -	p	C9D6	txAHeadProcessed	-	"0"
T   2848    2  350   11   34 -	p	C9D6	-	-	"Spärrade:"
T   2849    2  384   11   32 -	p	C9D6	txAStopped	-	"0"

>FORMFILES win22 ROWS 0
#Id	sp
>FORM win23 ROWS 12 SIZE 78 "win23"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
T   2850    2    2   11   26 -	p	C9D6	-	-	"Inlästa:"
T   2851    2   28   11   32 -	p	C9D6	txEHeadRead	-	"0"
T   2854    2  140   11   34 -	p	C9D6	-	-	"Felaktiga:"
T   2855    2  174   11   32 -	p	C9D6	txEHeadError	-	"0"
T   2858    2  282   11   36 -	p	C9D6	-	-	"Överförda:"
T   2859    2  318   11   32 -	p	C9D6	txEHeadCorrect	-	"0"
T   2852    2   60   11   48 -	p	C9D6	-	-	"Obehandlade:"
T   2853    2  108   11   32 -	p	C9D6	txEHeadUnCorr	-	"0"
T   2856    2  206   11   44 -	p	C9D6	-	-	"Behandlade:"
T   2857    2  250   11   32 -	p	C9D6	txEHeadProcessed	-	"0"
T   2860    2  350   11   34 -	p	C9D6	-	-	"Spärrade:"
T   2861    2  384   11   32 -	p	C9D6	txEStopped	-	"0"

>FORMFILES win23 ROWS 0
#Id	sp
>SOURCE
