>TYPE   	D
>NAME   	3110PAY.d
>CODE   	3110PAY.cod
>BY     	@(#)$Author: Henrik $
>DATE   	@(#)$Date: 07-07-27 11:51 $
>VERSION	@(#)$Revision: 13 $
>ID     	10542

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

>TEXTINFO ROWS 29 SIZE 842
#id    value    flags    text
IDL_102  102  -  Kund %1 saknas
IDL_103  103  -  Bet.sätt för fakturering redan använt
IDL_104  104  -  Valutakod %1 saknas
IDL_105  105  -  Nummer saknas
IDL_106  106  -  Redan använd
IDL_107  107  -  Betalningssätt måste anges
IDL_108  108  -  Belopp måste anges
IDL_109  109  -  Radera betalningssätt %1
IDL_110  110  -  Nummer måste anges
IDL_111  111  -  Nummer måste anges
IDL_112  112  -  Belopp i valuta måste anges
IDL_113  113  -  Betalningssätt tillbaka saknas (rutin 3190)
IDL_114  114  -  Kvittera betalningsinformation
IDL_115  115  -  Presentkortet är inte sålt
IDL_116  116  -  Presentkort är makulerat
IDL_117  117  -  Giltighetsdatum är passerat. Fortsätt ändå
IDL_118  118  -  Kortköp makulerad
IDL_119  119  -  Försöker makulera betalkortstransaktion
IDL_120  120  -  Aktiva betalningar finns
IDL_121  121  -  Vill du avbryta betalning av faktura?
IDL_122  122  -  Efterbehandling ej utförd
IDL_123  123  -  Inget att fakturera
IDL_124  124  -  Hittar inte referens (%1) till kortköp
IDL_125  125  -  Förbereder betalkort...
IDL_126  126  -  Inga negativa belopp vid betalning av faktura
IDL_127  127  -  Felaktigt antal inargument till %1
IDL_128  128  -  Betalt belopp större än restvärde!
IDL_130  130  -  Fel vid laddning av kvittoregister. Försök starta betaldelen en gång till.
IDL_131  131  -  Skrivare klar


>STACK ROWS 200 SIZE 5000

>FONT ROWS 10
#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"
A   -25   0   0   0 700   0  0   0   1   3   2   1  49 "Courier New"


>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	0xc0c0c0
2   1	pattern
3   2	tegel.bmp
5   4	0xff
6   5	0x0


>APPEVENTS ROWS 1
#id Eventname	ParamList
1039	SetInvoiceSecondSortLevel	 œ


>WINDOW ROWS 1
#id       x     y    cy    cx sp1	sp2	Bitmap	font	size	caption
5511     20    90   300   480 SBL	-	-	"-"	  0	"Betalning"

>FORM MAIN ROWS 19 SIZE 189 "Tool"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
WW   621    0    6   16  452 -	PhmZ	-	win4	-	""
GR   101   19    5   86  360 -	phWZ	-	lcTable	-	""
TB  2270  108    6  138  360 -	PZ	-	tab1	-	"&Betalning"
B3  4222  250    8   15   66 -	TPhz	-	pbSaveRow	-	"save.bmp,S&para rad"
B3  4221  250   76   15   66 -	xTPhz	-	pbNewRow	-	"new.bmp,N&y rad"
B3  4146  250  144   15   66 -	xTPhz	-	pbDeleteRow	-	"del.bmp,&Makulera rad"
B3  4220  120  372   20   88 -	xTPqhz	F4	pbOk	-	"ok.bmp,&Verkställ"
B3  4335  146  372   20   88 -	xTPqhz	F4	pbInCreditReceipt	-	"Pay.bmp,&Tillgodo"
B3     2  244  372   20   88 -	xTPqhz	F4	pbCancel	-	"exit.bmp,St&äng"
B3 27246  172  372   20   88 -	QPqz	F4	pbCardReport	-	"info.bmp,&Kortrapport"
T   4073   27  374   11   36 -	p	-	-	-	"Säljare:"
D   4078   27  411   13   35 -	pfO	-	edSeller	#25769	""
T   4074   41  374   11   36 -	p	-	-	-	"Kassatyp:"
D   4094   41  411   13   35 -	pfO	-	edPOS	#25763	""
T   4360   55  373   11   36 -	p	-	-	-	"Kassalåda:"
D   4359   55  411   13   35 -	pfO	-	-	#25790	""
T   4075   69  374   11   36 -	p	-	-	-	"Kundkod:"
D   4095   69  411   13   35 -	pfO	-	edCustomerCode	#25761	""
FR 27247   22  370   64   81 -	p	-	-	-	""

>FORM win4 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  450 -	pZ	-	-	-	""

>FORMFILES win4 ROWS 0
#Id	sp
>FORM lcTable ROWS 9 SIZE 70 ""
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
T  27251    1    1   11   20 -	Hp	-	-	#-17401	""
T  27252    1   21   11   70 -	Hp	-	-	#-17405	"Betalningssätt"
T  27253    1   91   11   50 -	RHp	-	-	#-17402	"Belopp SEK"
T  27254    1  141   11   60 -	Hp	-	-	#-17403	"Nummer"
T  27255    1  201   11   20 -	Hp	-	-	#-17404	"Status"
T  27256    1  221   11   50 -	Hp	-	-	#-17407	"Valuta"
T  27257    1  271   11   50 -	RHp	-	-	#-17408	"Belopp"
T  27258    1  321   11   30 -	Hp	-	-	#-17406	"Kurs"
T  27259    1  351   11   35 -	Hp	-	-	#-17410	"Löpnummer"

>FORMFILES lcTable ROWS 0
#Id	sp
>FORM tab1 ROWS 1 SIZE 1 "tab1"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
WW  4111   16    2  120  355 -	P	-	win9	-	""

>FORMFILES tab1 ROWS 0
#Id	sp
>FORM win9 ROWS 12 SIZE 49 "win9"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
GR 27234    2    6   58  198 -	P	-	lcPayment	-	""
D   4341    4  264   13   60 -	P	-	edAmountSEK	#-17402	""
D   4338   18  264   13   60 -	PU	-	edNumber	#-17403	""
CE  4349   32  264  182   90 -	pfc	-	cbCurrCode	#-17407	""
D   4343   46  264   13   60 -	P	-	edAmount	#-17408	""
D   4347   60  264   13   60 -	pO	-	edExchangeRate	#-17406	""
T   4340    6  216   11   46 -	p	-	txAmountSEK	-	"Belopp SEK:"
T   4345   34  216   11   46 -	p	-	txCurrCode	-	"Valuta:"
T   4337   20  216   11   46 -	p	-	txNumber	-	"Nummer:"
T   4348   62  216   11   46 -	p	-	txRate	-	"Kurs:"
T   4342   48  216   11   46 -	p	-	txAmount	-	"Belopp:"
WW 27249   64    6   54  198 -	P	-	win10	-	""

>FORMFILES win9 ROWS 0
#Id	sp
>FORM lcPayment ROWS 2 SIZE 25 ""
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
T  27235    0    0   11   48 -	Hp	-	-	#25701	"Betalningssätt"
T  27236    0   54   11  122 -	Hp	-	-	#25702	"Benämning"

>FORMFILES lcPayment ROWS 1
#Id	sp
257	r
>FORM win10 ROWS 1 SIZE 1 "InfoPage"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
BM 27250    0    0   54  198 -	Tp	-	bmPreviewDisplay	-	""

>FORMFILES win10 ROWS 0
#Id	sp
>SOURCE
