>TYPE   	D
>NAME   	220.d
>CODE   	220.cod
>BY     	@(#)$Author: Anna $
>DATE   	@(#)$Date: 06-01-31 16:36 $
>VERSION	@(#)$Revision: 6 $
>ID     	2047

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

>TEXTINFO ROWS 79 SIZE 1616
#id    value    flags    text
IDL_100  100  -  MAKULERAD
IDL_101  101  -  Buntbeloppet överstiget!
IDL_102  102  -  Fakturanummer
IDL_103  103  -  Tillgodo %1:
IDL_104  104  -  Rest %1:
IDL_105  105  -  Makulera betalning på %1?
IDL_106  106  -  Kreditfaktura
IDL_107  107  -  Felaktigt datum
IDL_108  108  -  Tidigare än fakturadatum
IDL_109  109  -  Ej bankdag
IDL_110  110  -  Valutabyte ej tillåtet
IDL_111  111  -  Valutakonto för %1
IDL_112  112  -  Kreditkonto ej angivet
IDL_113  113  -  Inget att makulera
IDL_114  114  -  Kassarabatt %1:
IDL_115  115  -  Belopp %1:
IDL_116  116  -  %1 måste anges!
IDL_117  117  -  Kassarabattskonto
IDL_118  118  -  Kundkod
IDL_119  119  -  Avgift %1:
IDL_120  120  -  Betald mot debet %1. Makulera debet.
IDL_121  121  -  Kreditfaktura
IDL_122  122  -  Valutan saknas
IDL_123  123  -  Fakturabläddring
IDL_124  124  -  Kundbläddring
IDL_125  125  -  Buntbetalning klar
IDL_126  126  -  Fel betalningssätt för bunten, vill du fortsätta?
IDL_127  127  -  Fel valuta för bunten, vill du fortsätta?
IDL_128  128  -  Bunten finns inte, vill du fortsätta?
IDL_129  129  -  Buntbelopp kvar, avsluta?
IDL_130  130  -  Betald i rutin 320, kan inte makuleras i rutin 220.
IDL_131  131  -  Transaktion saknas för fakturan
IDL_132  132  -  Kreditkonto
IDL_133  133  -  Betalningsdatum
IDL_134  134  -  Betalningssätt
IDL_135  135  -  Konto
IDL_136  136  -  Belopp
IDL_137  137  -  Kurs
IDL_138  138  -  = Kontant
IDL_139  139  -  = Postgiro
IDL_140  140  -  = Bankgiro
IDL_141  141  -  = Kreditnota/Tillgodo
IDL_142  142  -  = Kassarabatt
IDL_143  143  -  = Utjämna faktura
IDL_144  144  -  = Avskriv faktura
IDL_145  145  -  Fakt.nr
IDL_146  146  -  Datum
IDL_147  147  -  Söker kreditfakturor
IDL_148  148  -  Slutfaktura
IDL_149  149  -  Acontofaktura
IDL_150  150  -  Kontraktsfaktura
IDL_151  151  -  Direktreg. faktura
IDL_152  152  -  Räntefaktura
IDL_153  153  -  Tillgodo
IDL_154  154  -  Inlästa fakturor
IDL_155  155  -  Okänt fakturaursprung
IDL_156  156  -  Buntnummer finns inte
IDL_157  157  -  Tillgodo redan utnyttjat
IDL_158  158  -  Ej tillgodopost
IDL_159  159  -  Kreditfaktura ej förfallen
IDL_160  160  -  Överstiger buntbeloppet, fortsätta
IDL_161  161  -  Överstiger restbeloppet
IDL_162  162  -  Belopp överstiger restbelopp
IDL_163  163  -  Justera aktuell bunts belopp
IDL_164  164  -  Skriv ut kreditfaktura
IDL_165  165  -  Visa
IDL_166  166  -  Anteckningar
IDL_167  167  -  Kreditnotor saknas
IDL_168  168  -  Fakturakoden är tom
IDL_169  169  -  Fel startläge
IDL_170  170  -  Senare än dagens datum
IDL_171  171  -  Kreditnota måste anges
IDL_172  172  -  Inget buntnummer
IDL_173  173  -  Kommentar
IDL_174  174  -  Avgiftskontot är ett valutakonto, använd Avgift %1: istället
IDL_175  175  -  Avgiftskontot är inte ett valutakonto, använd Avgift %1: istället
IDL_176  176  -  Avgiftskonto måste anges vid avgift
IDL_177  177  -  Fakturan är med i betalningsuppdrag i Giro
IDL_178  178  -  Valutakonto får inte användas


>STACK ROWS 1000 SIZE 10000

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


>APPEVENTS ROWS 2
#id Eventname	ParamList
1058	SetObjAndDepInBookPayment	(str sObj, str sDep, bool bCreditNote)
1069	AfterGetInvoiceInPayment	(int iCommand)


>WINDOW ROWS 1
#id       x     y    cy    cx sp1	sp2	Bitmap	font	size	caption
5511     20    90   340   500 SB	-	-	"-"	  0	"220 Inbetalning"

>FORM MAIN ROWS 7 SIZE 50 "100 Main"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
WW 24098   18    6   16  412 -	P	-	win5	-	""
WW 24196   36    6   18  380 -	P	-	win6	-	""
WW   621    0    4   16  414 -	PhmZ	-	win4	-	""
GR   101   58    6   68  411 -	pWZ	-	lcTable	-	""
TB 24111  132    8  178  410 -	P	-	tab1	-	"Inbetalning"
B3 24097  144  420   15   56 -	TPw	-	pbOk	-	"ok.bmp,&Verkställ"
B3     2  296  420   15   56 -	xTPw	-	pbExit	-	"exit.bmp,St&äng"

>FORMFILES MAIN ROWS 3
#Id	sp
20	r
40	r
44	r
>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  412 -	pZ	-	-	-	""

>FORM lcTable ROWS 11 SIZE 89 ""
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
T  24444    1    1   11   33 -	Hp	-	-	#4001	"Kundkod"
T  24445    1   35   11   54 -	Hp	-	-	#8125	"Företagsnamn"
T  24446    1   89   11   40 -	Hp	-	-	#8140	"Fakturanr"
T  24447    1  129   11   42 -	Hp	-	-	#8711	"Datum"
T  24448    1  171   11   60 -	Hp	-	-	#8833	"Bet.sätt"
T  24449    1  231   11   42 -	Hp	-	-	#8601	"Konto"
T  24450    1  273   11   26 -	Hp	-	-	#8825	"Val"
T  24451    1  299   11   36 -	RHp	-	-	#883	"Sv belopp"
T  24452    1  335   11   36 -	RHp	-	-	#884	"Utl belopp"
T  24453    1  371   11   28 -	RHp	-	-	#8575	"Rest"
T  24454    1  399   11    0 -	Hp	-	-	#8571	"Belopp"

>FORMFILES lcTable ROWS 1
#Id	sp
44	r
>FORM win5 ROWS 6 SIZE 148 "win5"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
B3 24099    0    0   14   65 -	xTPM	-	pbRegPayment	-	"regnew.bmp,R&eg. betaln."
B3 24100    0   69   14   65 -	xTPM	-	pbAdvance	-	"advance.bmp,För&skott"
B3 24103    0  138   14   65 -	xTPM	-	pbCancelPayment	-	"inval.bmp,&Mak. betaln."
B3 24101    0  207   14   65 -	xTPM	-	pbPayment	-	"pay.bmp,&Utbetala kund"
B3 24102    0  276   14   65 -	xTPM	-	pbDirectPayment	-	"direct.bmp,&Direkt inbetaln."
B3 24104    0  345   14   65 -	xTPM	-	pbAuto	-	"auto.bmp,Au&t. inbetaln."

>FORM win6 ROWS 6 SIZE 32 "win6"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
T  24105    2    0   10   30 -	p	-	-	-	"Postgiro:"
T  24106    2  100   10   34 -	p	-	-	-	"Bankgiro:"
T  24107    2  200   10   36 -	p	-	-	-	"Kontant:"
D  24108    0   34   13   60 -	PO	-	edPost	-	""
D  24109    0  136   13   60 -	PO	-	edBank	-	""
D  24110    0  242   13   60 -	PO	-	edCash	-	""

>FORM tab1 ROWS 1 SIZE 1 "tab1"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
WW 24112   12    2  164  404 -	P	-	win7	-	""

>FORMFILES tab1 ROWS 0
#Id	sp
>FORM win7 ROWS 31 SIZE 272 "win7"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
D  24113    6   60   13   60 -	PU	-	edCustomer	#4001	""
D  24114   20   60   13   60 -	PU	-	edInvNo	#8140	""
DP 24120   33   60   68   62 D8	P	-	dpPayDate	#8711	""
D  24184   47   60   13   60 -	pLO	-	edDueDate	#4002	""
CE 24131   61   60  128   92 A4	pc	-	cbCur	#8825	""
CB 24121   75   60  132   92 A30	P	-	cbPayMode	#8833	""
CE 24237   89   60   92   62 -	PUc	-	cbKrefak	#821	""
D  24122  105   60   13   60 -	pU	-	edAccount	#8601	""
D  24123  118   60   13   60 -	P	-	edAmount	#8571	""
D  24465  132   60   13   60 -	P	-	edChargeAccount	#8606	""
D  24135  146   60   13   60 -	P	-	edCharge	#8561	""
B3 24354    5  122   13    9 -	xTpF	-	pbCPrev	-	"arrowl.bmp"
B3 24355    5  130   13    9 -	xTpF	-	pbCNext	-	"arrowr.bmp"
B3 24125    5  138   13   15 -	SxTpfF	-	pbCustomer	-	"seek.bmp"
B3 24356   19  122   13    9 -	xTpF	-	pbFPrev	-	"arrowl.bmp"
B3 24357   19  130   13    9 -	xTpF	-	pbFNext	-	"arrowr.bmp"
B3 24126   19  138   13   15 -	SxTpF	-	pbInvoice	-	"seek.bmp"
B3 24358  105  122   13   15 -	SxTpfF	-	pbAccount	-	"seek.bmp"
B3 24467  132  122   13   15 -	SxTpfF	-	pbChargeAccount	-	"seek.bmp"
TB 24137    0  168  160  236 -	pu	-	tab2	-	"&Kundresk.,E&genskaper,&Påminnelse,Bu&ntnr.,&Övrigt,Kassara&b."
T  24115    7    8   11   50 -	p	-	-	-	"Kundkod:"
T  24116   21    8   11   50 -	p	-	-	-	"Fakturanr.:"
T  24117   35    8   11   50 -	p	-	-	-	"Betaln.datum:"
T  24130   49    8   11   50 -	p	-	-	-	"Förf.datum:"
T  24132   63    8   11   50 -	p	-	-	-	"Valuta:"
T  24118   77    8   11   50 -	p	-	-	-	"Betaln. sätt:"
T  24236   91    8   11   50 -	p	-	-	-	"Kreditnota:"
T  24119  105    8   11   50 -	p	-	-	-	"Konto:"
T  24124  119    8   11   50 -	p	-	-	-	"Belopp:"
T  24466  134    8   11   50 -	p	-	-	-	"Avgiftskonto:"
T  24136  147    8   11   50 -	p	-	txSweFeeAmount	-	"Avgift:"

>FORMFILES win7 ROWS 0
#Id	sp
>FORM tab2 ROWS 6 SIZE 6 "tab2"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
WW 24138   28    2  129  224 -	HP	-	win8	-	""
WW 24139   28    2  129  224 -	HP	-	win9	-	""
WW 24140   26    4  129  232 -	HP	-	win10	-	""
WW 24179   28    2  129  224 -	HP	-	win11	-	""
WW 24219   28    2  129  224 -	HP	-	win12	-	""
WW 24279   28    2  129  224 -	HP	-	win17	-	""

>FORMFILES tab2 ROWS 0
#Id	sp
>FORM win8 ROWS 6 SIZE 34 "Kundresk"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
T  24154   12    2   10   24 -	p	-	-	-	"Kund:"
D  24155   10   52   13   86 -	PO	-	-	#2021	""
T  24156   26    2   10   40 -	p	-	-	-	"Resk.debet:"
D  24157   24   52   13   50 -	PO	-	-	#2062	""
D  24158   38   52   13   50 -	PO	-	-	#2067	""
T  24159   40    2   10   40 -	p	-	-	-	"Resk.kredit:"

>FORMFILES win8 ROWS 0
#Id	sp
>FORM win9 ROWS 15 SIZE 101 "Egensk"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
D  24166    2   66   13   88 -	P	-	edComment	#4035	""
D  24167   16   66   13   60 -	PU	-	edRef	#4031	""
CE 24168   30   66   50   50 -	Pc	-	cbVAT	#4093	""
D  24169   44   66   13   60 -	pO	-	edAccured	-	""
XB 24218   72    4   13   70 -	P	-	-	#4182	"Räntefaktureras:"
DP 24171   86   66   54   61 D8	P	-	dpInvDate	#4113	""
XB 24172  100    6   13   68 -	P	-	xbDispute	#4071	"Tvist"
XB 24173  114    6   13   68 -	P	-	cbReady	#4183	"Klar:"
T  24163   46    6   10   56 -	p	-	-	-	"Upplupet:"
T  24164   60    6   10   56 -	p	-	-	-	"Ursprung:"
T  24160    4    6   10   56 -	p	-	-	-	"Kommentar:"
T  24161   18    6   10   56 -	p	-	-	-	"Vår ref:"
T  24162   32    6   10   56 -	p	-	-	-	"Momskod:"
T  24165   88    6   10   56 -	p	-	-	-	"Räntefakt datum:"
D  24464   58   66   13   60 -	pO	-	edOrigin	-	""

>FORMFILES win9 ROWS 0
#Id	sp
>FORM win10 ROWS 5 SIZE 37 "Påmin"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
XB 24174   12    6   13   56 -	P	-	-	#4181	"Påminnas"
T  24175   28    6   11   44 -	p	-	-	-	"Påm.avgifter:"
T  24176   42    6   11   40 -	p	-	-	-	"Antal påm.:"
D  24177   26   54   13   60 -	P	-	-	#4161	""
D  24178   40   54   13   60 -	P	-	-	#4152	""

>FORMFILES win10 ROWS 0
#Id	sp
>FORM win11 ROWS 12 SIZE 86 "Bunt"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
CE 24463   18   50  128   60 A10	PUc	-	cbBatch	#8829	""
D  24182   32   50   13   60 -	P	-	edBatchAmount	#8585	""
D  24239   46   50   13   60 -	pfO	-	edBatchRest	-	""
XB 24457   20  122   10   50 -	P	-	xbBatchCash	-	"Kontant"
XB 24458   30  122   10   50 -	P	-	xbBatchPost	-	"Postgiro"
XB 24459   40  122   10   50 -	P	-	xbBatchBank	-	"Bankgiro"
T  24183   34    8   11   38 -	p	-	-	-	"Buntbelopp:"
T  24238   48    8   10   40 -	p	-	-	-	"Återstående:"
CE 24460   68   50  128   92 A4	pc	-	cbBatchCurrency	#8828	""
T  24462   70    8   11   37 -	p	-	-	-	"Valuta:"
T  24181   20    8   10   35 -	p	-	-	-	"Buntnr:"
GB 24461    8  117   56   99 -	p	-	-	-	"Betalningssätt"

>FORMFILES win11 ROWS 0
#Id	sp
>FORM win12 ROWS 17 SIZE 99 "övrigt"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
D  24344   14   32   13   38 -	PU	-	edObj	#8611	""
D  24346   14  110   13   38 -	PU	-	edDep	#8621	""
D  24338   50   32   13   26 -	PU	-	edCreAcc	#8604	""
D  24339   50   78   13   26 -	PU	-	edCreObj	#8612	""
D  24340   50  124   13   26 -	PU	-	edCreDep	#8622	""
WW 24220   72    4   56  166 -	HP	-	win13	-	""
T  24343   40  126    8   34 -	p	-	-	-	"Avdeln."
T  24342   40   80    8   28 -	p	-	-	-	"Objekt"
T  24345   16    8   11   24 -	p	-	-	-	"Objekt:"
T  24341   52    8   11   22 -	p	-	-	-	"Konto:"
T  24347   16   90   11   18 -	p	-	-	-	"Avd.:"
B3 24360   14   72   13   15 -	SxTpfF	-	pbObj	-	"seek.bmp"
B3 24361   14  152   13   15 -	SxTpfF	-	pbDep	-	"seek.bmp"
B3 24362   50   60   13   15 -	SxTpfF	-	pbCreAcc	-	"seek.bmp"
B3 24364   50  106   13   15 -	SxTpfF	-	pbCreObj	-	"seek.bmp"
B3 24365   50  152   13   15 -	SxTpfF	-	pbCreDep	-	"seek.bmp"
GB 24348   32    4   38  166 -	p	-	gbKredit	-	"Kreditkonto"

>FORMFILES win12 ROWS 0
#Id	sp
>FORM win13 ROWS 8 SIZE 37 "Kurs"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
CE 24353    8   60   50   48 -	Pc	-	cbRate	#8551	""
D  24230   22   60   13   46 -	P	-	edSweAmount	#8573	""
D  24455   36   60   13   60 F10.7	P	-	edCurrCharge	#8584	""
T  24231   10    6   11   44 -	p	-	-	-	"Kurs:"
T  24456   38    6   11   49 -	p	-	txCurrCharge	-	"Avgift:"
T  24232   24    6   11   44 -	p	-	txSweCurrAmount	-	"Belopp SEK:"
D  24349   22   60   13   46 -	HP	-	edCurrAmount	#8852	""
GB 24351    1    0   54  166 -	p	-	-	-	"Valuta"

>FORM win17 ROWS 12 SIZE 59 "KassaRab"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
D  24333   36   66   13   48 p12.2	P	-	edDisc	#8572	""
D  24334   36  120   13   36 -	P	-	edDisAcc	#8602	""
D  24335   50   66   13   48 -	pO	-	edRest	#8574	""
D  24337   50  120   13   36 -	pO	-	edRestAcc	#8603	""
D  24442   64   66   13   48 -	P	-	edDiscVAT	#8851	""
D  24443   64  120   13   36 -	pO	-	-	#8605	""
T  24332   24  126   10   24 -	p	-	-	-	"Konto"
T  24326   38    6   11   60 -	p	-	txDisc	-	"Kassarabatt:"
B3 24359   36  158   13   15 -	SxTpfF	-	pbDisAcc	-	"seek.bmp"
T  24438   66    6   11   53 -	p	-	-	-	"Varav moms:"
T  24327   52    6   11   60 -	p	-	txRest	-	"Rest:"
T  24328   24   68   10   28 -	p	-	-	-	"Belopp"

>FORMFILES win17 ROWS 0
#Id	sp
>SOURCE
