>TYPE   	D
>NAME   	3110pay.d
>CODE   	3110pay.cod
>BY     	@(#)$Author: Henrik $
>DATE   	@(#)$Date: 07-09-11 11:48 $
>VERSION	@(#)$Revision: 9 $
>ID     	10542

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

>TEXTINFO ROWS 32 SIZE 929
#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/3181)
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_129  129  -  Är beloppet <%1> korrekt?
IDL_130  130  -  Fel vid laddning av kvittoregister. Försök starta betaldelen en gång till.
IDL_131  131  -  Skrivare klar
IDL_132  132  -  Knappen %1 saknas
IDL_133  133  -  Aktuell kund ej ägare till bonuscheck


>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   332   507 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  492 -	PhmZ	-	win4	-	""
TB  2270  108    6  172  402 -	PZ	-	tab1	-	"&Betalning"
GR   101   18    6   86  402 -	phWZ	-	lcTable	-	""
B3  4222  286    8   15   66 -	TPhw	-	pbSaveRow	-	"save.bmp,S&para rad"
B3  4221  286   76   15   66 -	xTPhw	-	pbNewRow	-	"new.bmp,N&y rad"
B3  4146  286  144   15   66 -	xTPhw	-	pbDeleteRow	-	"del.bmp,&Makulera rad"
B3     2  280  414   20   88 -	xTPqhwz	F4	pbCancel	-	"exit.bmp,St&äng"
T   4073   26  420   11   36 -	p	-	-	-	"Säljare:"
D   4078   26  458   13   35 -	pfO	-	edSeller	#25769	""
T   4074   40  420   11   36 -	p	-	-	-	"Kassatyp:"
D   4094   40  458   13   35 -	pfO	-	edPOS	#25763	""
T   4360   54  420   11   36 -	p	-	-	-	"Kassalåda:"
D   4359   54  458   13   35 -	pfO	-	-	#25790	""
T   4075   68  420   11   36 -	p	-	-	-	"Kundkod:"
D   4095   68  458   13   35 -	pfO	-	edCustomerCode	#25761	""
FR 27247   22  416   64   81 -	p	-	-	-	""
B3  4220  120  416   20   88 -	TPqhz	F4	pbOk	-	"ok.bmp,&Verkställ"
B3  4335  146  416   20   88 -	TPqhz	F4	pbInCreditReceipt	-	"Pay.bmp,&Tillgodo"
B3 27246  172  416   20   88 -	QPqz	F4	pbCardReport	-	"info.bmp,&Kortrapport"

>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  490 -	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   14    2  156  396 -	P	-	win9	-	""

>FORMFILES tab1 ROWS 0
#Id	sp
>FORM win9 ROWS 2 SIZE 2 "Betalningsflik"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
WW 27277    0    0  158  188 -	P	-	win12	-	""
WW 27275    0  190  158  208 -	P	-	win11	-	""

>FORMFILES win9 ROWS 0
#Id	sp
>FORM win12 ROWS 12 SIZE 12 "Knappar"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
B3 27260    2    2   20   88 -	QPq8hm	-	pbButt01	-	""
B3 27266    2   98   20   88 -	QPq8hm	-	pbButt13	-	""
B3 27261   28    2   20   88 -	QPq8hm	-	pbButt02	-	""
B3 27267   28   98   20   88 -	QPq8hm	-	pbButt14	-	""
B3 27262   54    2   20   88 -	QPq8hm	-	pbButt03	-	""
B3 27268   54   98   20   88 -	QPq8hm	-	pbButt15	-	""
B3 27263   80    2   20   88 -	QPq8hm	-	pbButt04	-	""
B3 27269   80   98   20   88 -	QPq8hm	-	pbButt16	-	""
B3 27264  106    2   20   88 -	QPq8hm	-	pbButt05	-	""
B3 27272  106   98   20   88 -	QPq8hm	-	pbButt17	-	""
B3 27265  132    2   20   88 -	QPq8hm	-	pbButt06	-	""
B3 27273  132   98   20   88 -	QPq8hm	-	pbButt18	-	""

>FORMFILES win12 ROWS 0
#Id	sp
>FORM win11 ROWS 12 SIZE 68 "Inmatning"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
WW 27249  102    2   54  198 -	P	-	win10	-	""
D   4341   24   56   13   60 -	P	-	edAmountSEK	#-17402	""
D   4338   38   56   13   60 -	PU	-	edNumber	#-17403	""
CE  4349   56   56  182   90 -	pfc	-	cbCurrCode	#-17407	""
D   4343   70   56   13   60 -	P	-	edAmount	#-17408	""
D   4347   84   56   13   60 -	pO	-	edExchangeRate	#-17406	""
T   4337   39    2   11   46 -	p	-	txNumber	-	"Nummer:"
T   4340   24    2   11   46 -	p	-	txAmountSEK	-	"Belopp SEK:"
T   4342   70    2   11   46 -	p	-	txAmount	-	"Belopp:"
T   4345   58    2   11   46 -	p	-	txCurrCode	-	"Valuta:"
T   4348   84    2   11   46 -	p	-	txRate	-	"Kurs:"
T  27274    2    2   14  192 -	p	D9F9	txPayment	-	"Valt betalningssätt"

>FORMFILES win11 ROWS 0
#Id	sp
>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
