>TYPE   	D
>NAME   	ccard.d
>CODE   	ccard.cod
>BY     	@(#)$Author: Hg $
>DATE   	@(#)$Date: 08-05-21 14:57 $
>VERSION	@(#)$Revision: 4 $
>ID     	25000

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

>TEXTINFO ROWS 29 SIZE 901
#id    value    flags    text
IDL_100  100  -  Okänt tillstånd (%1)
IDL_101  101  -  FEL
IDL_102  102  -  Felnr=%1
IDL_103  103  -  Behöver mer information
IDL_104  104  -  Klar
IDL_105  105  -  Referensnr=%1
IDL_106  106  -  Konto eller Kredit måste fyllas i
IDL_107  107  -  Försäljningbeloppet kan inte vara blankt
IDL_108  108  -  Fältet 'Extra' kan inte vara negativt
IDL_109  109  -  Ändra försäljningspriset till rätt belopp och 'nolla' ut extra
IDL_110  110  -  Var vänlig ange 'Kortnummer'
IDL_111  111  -  Var vänlig ange 'Giltig till'
IDL_112  112  -  Var vänlig markera 'Manuell inmatning' sedan 'Kortnummer' och 'Giltig till'
IDL_113  113  -  Var vänlig ange 'Kortnummer'
IDL_114  114  -  Var vänlig ange 'Giltig till'
IDL_115  115  -  Var vänlig markera 'Kund glömt sin PIN-kod'
IDL_116  116  -  'Kontrollkod' är blank
IDL_117  117  -  Vill du chansa på att kortet är OK
IDL_118  118  -  Fel antal argument
IDL_119  119  -  Initererar kontakt...
IDL_120  120  -  Kontakt finns
IDL_121  121  -  Ange extrabelopp
IDL_122  122  -  Ange total summa som ska dras från kortet
IDL_123  123  -  Ej möjligt att returnera mer än returbelopp
IDL_124  124  -  Extra uttag ej möjligt
IDL_125  125  -  'Extra uttag skall göras i fältet "Extra"
IDL_126  126  -  Ange månad (2 siffror) samt år (2 siffror)
IDL_127  127  -  Månad skall vara mellan '01' och '12'
IDL_128  128  -  Fältet 'Totalt' kan inte vara blankt eller noll


>STACK ROWS 500 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 2 SIZE 100
#id type	text
1   0	0xff0000
2   1	pattern


>APPEVENTS ROWS 0
#id Eventname	ParamList


>WINDOW ROWS 1
#id       x     y    cy    cx sp1	sp2	Bitmap	font	size	caption
5511     10    10   220   190 SB	-	-	"-"	  0	"Betalkort"

>FORM MAIN ROWS 5 SIZE 79 "100 Main"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
TB    55    6    6  116  174 -	P	-	tab1	-	"Betalning,Konto/Kredit,PIN-kod,Kontroll"
B3    12  128   78   15   50 -	TP	-	pbOk	-	"ok.bmp,&Verkställ"
B3  2035  128  130   15   50 -	TP	-	pbCancel	-	"cancel.bmp,&Avbryt"
T     91  152   10   42  164 -	pWZ	CBF9	txMessage	-	""
FR    92  148    6   50  172 -	pWZ	-	-	-	""

>FORMFILES MAIN ROWS 0
#Id	sp
>FORM tab1 ROWS 4 SIZE 4 "tab1"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
WW    70   12    2  102  168 -	P	-	win1	-	""
WW    82   12    2  102  168 -	P	-	win2	-	""
WW    86   12    2  102  168 -	P	-	win3	-	""
WW    88   12    2  102  168 -	P	-	win4	-	""

>FORMFILES tab1 ROWS 0
#Id	sp
>FORM win1 ROWS 11 SIZE 90 "Cardinfo"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
D     72    6   72   13   90 f12.2	PU	-	edRealSum	-	""
D     74   22   72   13   90 f12.2	PU	-	edExtra	-	""
D     76   36   72   13   90 f12.2	P	-	edTotal	-	""
D     79   70   72   13   90 A42	P*	-	edCardNumber	-	""
D     81   84   72   13   90 H4	P	-	edGoodThru	-	""
XB    77   56    4   10   76 -	P	-	xbManualInput	-	"Manuell inmatning"
T     73   22    6   11   64 -	p	-	-	-	"Extra:"
T     78   70    4   11   64 -	p	-	txCardNumber	-	"Kortnummer:"
T     71    6    6   11   64 -	p	-	-	-	"Försäljningsbelopp:"
T     80   84    4   11   64 -	p	-	txGoodThru	-	"Giltig till (MMÅÅ):"
T     75   36    6   11   64 -	p	-	-	-	"Totalt:"

>FORMFILES win1 ROWS 0
#Id	sp
>FORM win2 ROWS 4 SIZE 97 "AccountCredit"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
RB    84   14   16   10   50 -	RP	-	rbAccount	-	"Konto"
RB    85   14  100   10   50 -	RP	-	rbCredit	-	"Kredit"
T     93   30    8   62  148 -	p	-	txAccountInfo	-	"Fråga kund om pengar skall dras från Konto eller Kredit. Tryck sedan på Verkställ."
GB    83    6    8   20  150 -	p	-	-	-	""

>FORMFILES win2 ROWS 0
#Id	sp
>FORM win3 ROWS 2 SIZE 95 "PINCode"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
XB    87    6    6   10   94 -	P	-	xbNoPinCode	-	"Kund glömt sin PIN-kod"
T     94   26    8   66  146 -	p	-	txPINInfo	-	"Om kunden glömt sin PIN-kod, kryssa i ovan ruta och tryck på Verkställ."

>FORMFILES win3 ROWS 0
#Id	sp
>FORM win4 ROWS 3 SIZE 98 "ControlCode"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
T     89    8    6   11   60 -	p	-	-	-	"Kontrollkod:"
D     90    6   70   13   90 A6	P	-	EdControlCode	-	""
T     95   24    8   74  154 -	p	-	txControlInfo	-	"Ring inlösare och ange sedan Kontrollkoden i fältet ovan. Tryck sedan på Verkställ."

>FORMFILES win4 ROWS 0
#Id	sp
>SOURCE
