>TYPE   	D
>NAME   	212.d
>CODE   	212.cod
>BY     	@(#)$Author: Anna $
>DATE   	@(#)$Date: 06-09-22 14:51 $
>VERSION	@(#)$Revision: 4 $
>ID     	2007

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

>TEXTINFO ROWS 55 SIZE 1273
#id    value    flags    text
IDL_100  100  -  Artikeln ej tillgänglig i denna rutin
IDL_101  101  -  Debitfakturas fakturanummer får inte börja med K
IDL_102  102  -  Kreditfakturas fakturanummer får inte börja med F
IDL_103  103  -  Balanserar inte
IDL_107  107  -  Valutakod saknas
IDL_108  108  -  Valutakod måste anges
IDL_109  109  -  Valutakurs måste anges
IDL_110  110  -  Valutabelopp måste anges
IDL_111  111  -  Fakturanummer saknas
IDL_112  112  -  Konto måste anges
IDL_113  113  -  Ej bankdag
IDL_114  114  -  Felaktig Fakturatyp
IDL_115  115  -  Spara aktuell rad?
IDL_116  116  -  Fakturanr %1 skapad
IDL_117  117  -  Makulera rad
IDL_118  118  -  Kundkod
IDL_119  119  -  Fakturabelopp
IDL_120  120  -  Fakturadatum
IDL_121  121  -  Nummer måste ligga inom intervallet %1 till %2
IDL_122  122  -  Kan inte hanteras denna rutin
IDL_123  123  -  Momskod
IDL_124  124  -  Projekt kan ej spärras
IDL_125  125  -  Reskontra ej tillåten för detta betalningsvillkor
IDL_126  126  -  Fakturanr används redan
IDL_127  127  -  Lager
IDL_128  128  -  Betalningsvillkor
IDL_129  129  -  %1 måste anges
IDL_130  130  -  Förfallodatum
IDL_131  131  -  Inga konteringar är skapade
IDL_132  132  -  Fasta rader får ej ändras
IDL_133  133  -  Bokföring ej tillåten enligt egenskaper
IDL_134  134  -  Kan ej hämta rad
IDL_135  135  -  Artikelkod %1 saknas
IDL_136  136  -  Spara kontering
IDL_138  138  -  Fasta rader får ej röras
IDL_139  139  -  Selektera rad först
IDL_141  141  -  Betalning har gjorts
IDL_142  142  -  Redan makulerad
IDL_143  143  -  212 Direktregistrering av faktura  %1 %2
IDL_144  144  -  Inget ordernummer är valt
IDL_145  145  -  Spara underlag
IDL_146  146  -  Kund måste anges
IDL_147  147  -  Belopp är tomt, spara ändå?
IDL_148  148  -  Makulera kontering
IDL_149  149  -  Fakturanr %1 makulerad
IDL_150  150  -  Makulera %1
IDL_151  151  -  Artikelrad saknas
IDL_152  152  -  Debiteras %1
IDL_153  153  -  F3: Ändra kund
IDL_154  154  -  Ordernr anges:Aconto-faktura
IDL_155  155  -  Betalningsvillkor måste anges
IDL_156  156  -  Momskod %1 saknas. Lägg till i rutin 831
IDL_157  157  -  Momskoden har inget acontokonto
IDL_158  158  -  F3:Visa order  F4:Dagbok
IDL_159  159  -  Radnummer %1 används redan


>STACK ROWS 200 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	leget.bmp
5   4	0xff
6   5	0x0


>APPEVENTS ROWS 0
#id Eventname	ParamList


>WINDOW ROWS 1
#id       x     y    cy    cx sp1	sp2	Bitmap	font	size	caption
5511     10    10   350   520 SBL	-	-	"-"	  0	"212 Direktregistrering av faktura"

>FORM MAIN ROWS 9 SIZE 60 "100 Main"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
WW    11   18    6   22  320 -	P	-	xwin1	-	""
WW    12   74  436  100   86 -	Pz	-	win2	-	""
WW   124    2    2   16  512 -	PZ	-	win8	-	""
TB    13   62    6  255  426 -	PWZ	-	tab1	-	"Fakt&ura,Kont&ering"
B3     2  300  436   15   84 -	xTPwz	-	pbClose	-	"exit.bmp,St&äng"
D  24076   46  372   13   60 -	pOz	-	edBalance	#8581	""
T  24077   48  331   11   36 -	pz	-	txBalance	-	"Balans:"
D  24240   46   56   13   80 -	PO	-	edInvNoInfo	-	""
T  24241   48    8   11   46 -	p	-	-	-	"Fakturanr:"

>FORMFILES MAIN ROWS 0
#Id	sp
>FORM xwin1 ROWS 3 SIZE 80 "Command"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
B3  4118    4    2   15   94 -	TPM	-	pbRegInvoice	-	"New.bmp,Re&gistrera"
B3  4121    4   99   15   94 -	TPM	-	pbRegAccount	-	"New.bmp,Registrera / &Kontera"
B3 24075    4  196   15   94 -	TPM	-	pbCancel	-	"Delete.bmp, &Makulera faktura"

>FORM win2 ROWS 3 SIZE 65 "Operations"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
B3    25    0    0   15   84 -	TP	-	pbSave	-	"save.bmp, &Slutför"
B3    27   16    0   15   84 -	TP	-	pbCancAccount	-	"del.bmp, Maku&lera kontering"
B3    28   32    0   15   84 -	TP	-	pbDiary	-	"bok.bmp, &Dagbok"

>FORMFILES win2 ROWS 0
#Id	sp
>FORM tab1 ROWS 2 SIZE 2 "tab1"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
WW    14   14    5  238  415 -	PWZ	-	win3	-	""
WW  4072   14    4  238  415 -	PWZ	-	win9	-	""

>FORMFILES tab1 ROWS 0
#Id	sp
>FORM win3 ROWS 3 SIZE 20 "Customer"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
WW 24230    4    0   13  164 -	P	-	win18	-	""
WW 24086   18    0  210  192 -	PZ	-	win12	-	""
TB 24087    4  197  228  212 -	PzB	-	tab4	-	"Ku&nddata,&Valuta"

>FORMFILES win3 ROWS 0
#Id	sp
>FORM win8 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  498 -	pZ	-	-	-	""

>FORMFILES win8 ROWS 0
#Id	sp
>FORM win9 ROWS 6 SIZE 94 "Kontering"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
GR  4073    4    2   78  410 -	PWZ	-	lcTable	-	""
TB  4074   84    2  133  410 -	PZw	-	tab3	-	"Konteringsrader"
B3  4077  220    5   15   70 -	TPw	-	pbSaveRow	-	"save.bmp,S&para rad"
B3  4079  220   78   15   70 -	TPw	-	pbNewRow	-	"new.bmp,N&y rad"
B3  4078  220  149   15   70 -	TPw	-	pbDeleteRow	-	"del.bmp,Ta &bort rad"
B3 24244  220  222   15   72 -	QHp	-	pbDimensions	-	"dim.bmp,Kontopalett"

>FORMFILES win9 ROWS 0
#Id	sp
>FORM tab3 ROWS 1 SIZE 1 "tab3"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
WW  4076   16    2  115  400 -	PZ	-	win10	-	""

>FORMFILES tab3 ROWS 0
#Id	sp
>FORM win10 ROWS 7 SIZE 55 "Kont.rader"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
D   4098    0   46   13   56 -	PU	-	edArt	#3401	""
WW 24193   14    0  100  202 -	P	-	win17	-	""
B3  4100    0  122   13   15 -	xTpF	-	pbArt	-	"seek.bmp"
T   4080    2    2   11   44 -	p	-	txArt	-	"Artikel:"
B3 24224    0  104   13    9 -	xTpF	-	pbArtPrev	-	"arrowl.bmp"
B3 24225    0  112   13    9 -	xTpF	-	pbArtNext	-	"arrowr.bmp"
TB 24245    0  206  113  210 -	pzB	-	tab5	-	"&1.Kontering"

>FORMFILES win10 ROWS 0
#Id	sp
>FORM lcTable ROWS 8 SIZE 54 ""
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
T  24211    1    1   11   38 -	Hp	-	-	#17615	"Rad"
T  24212    1   39   11   32 -	Hp	-	-	#17601	"Konto"
T  24214    1   71   11   50 -	Hp	-	-	#17611	"Objekt"
T  24213    1  121   11   50 -	Hp	-	-	#17604	"Avdelning"
T  24215    1  171   11   44 -	Hp	-	-	#17617	"Ordernr"
T  24216    1  215   11   50 -	Hp	-	-	#17619	"Radnr"
T  24217    1  265   11   52 -	Hp	-	-	#17621	"Debet"
T  24218    1  317   11   48 -	Hp	-	-	#17622	"Kredit"

>FORMFILES lcTable ROWS 0
#Id	sp
>FORM win12 ROWS 26 SIZE 202 "Head"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
D  24152    0   63   13   60 -	PU	-	edOrder	-	""
XB 24153   14    3   13   69 -	P	-	xbKredit	-	"Kredit:"
CE 24242   14  122   50   66 -	HPc	-	cbStock	#3083	""
D  24277   28   64   13   42 -	PU	-	edInvoiceSerie	#4012	""
D  24154   42   63   13   80 -	PU	-	edInvoice	#8140	""
DP 24155   56   63   13   60 D8	P	-	dpInvDate	#4011	""
CE 24156   70   63  100   60 -	Pc	-	cbPayTerms	#4171	""
DP 24157   84   63   13   60 D8	P	-	dpRecieveDate	#4002	""
D  24158   98   63   13   60 F11.2	P	-	edInvAmount	#4051	""
CE 24159  112   63  100   60 -	Pc	-	cbVatCode	#4093	""
D  24160  126   63   13   60 F11.2	P	-	edVat	#4052	""
B3 24228    0  124   13    9 -	xTpF	-	pbOrderPrev	-	"arrowl.bmp"
B3 24229    0  133   13    9 -	xTpF	-	pbOrderNext	-	"arrowr.bmp"
B3 24166    0  143   13   15 -	xTpF	-	pbOrder	-	"seek.bmp"
T  24243   16   86   11   30 -	Hp	-	txStock	-	"Lager:"
B3 24279   28  108   13   15 -	SxTpfF	-	pbInvoiceSerie	-	"seek.bmp"
B3 24167   42  144   13   15 -	xTpF	-	pbInvoice	-	"seek.bmp"
T  24163    0    4   11   56 -	p	-	txOrder	-	"Ordernummer:"
T  24278   29    3   11   56 -	p	-	-	-	"Fakturanrserie:"
T  24164   43    3   11   56 -	p	-	txInvoice	-	"Fakturanummer:"
T  24169   58    3   11   56 -	p	-	txInvDate	-	"Fakturadatum:"
T  24165   72    4   11   56 -	p	-	txPayTerms	-	"Betalningsvillkor:"
T  24161   86    4   11   56 -	p	-	txReceiveDate	-	"Förfallodatum:"
T  24168   99    3   11   56 -	p	-	txInvAmount	-	"Fakturabelopp:"
T  24162  114    3   11   56 -	p	-	txVatCode	-	"Momskod:"
T  24170  126    3   11   56 -	p	-	txVat	-	"Momsbelopp:"

>FORMFILES win12 ROWS 0
#Id	sp
>FORM tab4 ROWS 2 SIZE 2 "tab4"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
WW 24088   14    2  208  208 -	P	-	win13	-	""
WW 24175   14    2  208  208 -	HP	-	win16	-	""

>FORMFILES tab4 ROWS 0
#Id	sp
>FORM win13 ROWS 1 SIZE 1 "Kunddata"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
BM 24276    2    4   20   20 -	Qp	-	bmPreview	-	""

>FORMFILES win13 ROWS 0
#Id	sp
>FORM win16 ROWS 6 SIZE 31 "Valuta"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
CE 24176    8   58  150   66 -	Pc	-	cbCurrency	#4083	""
CE 24220   22   58  150   66 -	Pc	-	cbExchangeRate	#4085	""
D  24178   36   58   13   66 -	P	-	edCurrAmount	#4087	""
T  24179   10    8   11   46 -	p	-	txCurrency	-	"Valuta:"
T  24180   24    8   11   46 -	p	-	txExchangeRate	-	"Kurs:"
T  24181   38    8   11   46 -	p	-	txCurrAmount	-	"Valutabelopp:"

>FORMFILES win16 ROWS 0
#Id	sp
>FORM win17 ROWS 21 SIZE 118 "win17"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
D  24194    0   46   13  137 -	P$	-	edArtName	#3421	""
D  24195   14   46   13   56 -	P	-	edQuantity	#3631	""
D  24196   28   46   13   56 -	P	-	edRow	#3403	""
D  24197   42   46   13   56 -	PU	-	edAccount	#12010	""
D  24198   56   46   13   56 -	pU	-	edDimR1	#8611	""
D  24199   56  158   13   24 -	pU	-	edDimR2	#8621	""
D  24200   70   46   13   56 f11.2	P	-	edCost	#8573	""
D  24201   84   46   13   56 f11.2	P	-	edRowAmount	#8572	""
D  24222   84  140   13   60 -	P	-	edCurrRowAmount	#8593	""
T  24203   58  120   11   36 -	p	-	txDimR2	-	"Avdelning:"
T  24204   72    2   11   44 -	p	-	txCost	-	"Kostnad:"
T  24205   86    2   11   44 -	p	-	txRowAmount	-	"Belopp:"
T  24206   58    2   11   44 -	p	-	txDimR1	-	"Objekt:"
T  24207   30    2   11   44 -	p	-	txRow	-	"Orderrad:"
T  24208    2    2   11   44 -	p	-	txArtName	-	"Benämning:"
T  24209   16    2   11   44 -	p	-	txQuantity	-	"Antal:"
T  24202   44    2   11   44 -	p	-	txAccount	-	"Konto:"
T  24223   86  104   11   32 -	p	-	txCurrRowAmount	-	"Debiteras:"
B3 24237   56  104   13   15 -	xTpfF	-	pbDimR1	-	"seek.bmp"
B3 24239   56  184   13   15 -	xTpfF	-	pbDimR2	-	"seek.bmp"
B3 24236   42  104   13   15 -	xTpfF	-	pbAccount	-	"seek.bmp"

>FORMFILES win17 ROWS 0
#Id	sp
>FORM win18 ROWS 5 SIZE 41 "win18"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
D  24232    0   63   13   60 -	PU	-	edCustomer	#2001	""
B3 24233    0  124   13    9 -	xTpfF	-	pbCustomerPrev	-	"arrowl.bmp"
B3 24234    0  134   13    9 -	xTpfF	-	pbCustomerNext	-	"arrowr.bmp"
B3 24235    0  144   13   15 -	xTpfF	-	pbCustomer	-	"seek.bmp"
T  24231    1    4   11   55 -	p	-	txCustomer	-	"Kundkod:"

>FORMFILES win18 ROWS 0
#Id	sp
>FORM tab5 ROWS 1 SIZE 1 "tab5"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
WW 24246   14    2   94  192 -	P	-	win19	-	""

>FORMFILES tab5 ROWS 0
#Id	sp
>FORM win19 ROWS 21 SIZE 119 "win19"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
T  24247    4    2   11   46 -	Hp	-	txDimR3	-	"Dim 3:"
D  24248    2   50   13  122 -	HPU	-	edDimR3	#17643	""
B3 24250    2  175   13   15 -	SxTHpfF	-	pbDimR3	-	"seek.bmp"
T  24255   18    2   11   46 -	Hp	-	txDimR4	-	"Dim 4:"
T  24254   32    2   11   46 -	Hp	-	txDimR5	-	"Dim 5:"
T  24253   46    2   11   46 -	Hp	-	txDimR6	-	"Dim 6:"
T  24252   61    2   11   46 -	Hp	-	txDimR7	-	"Dim 7:"
T  24251   60   99   11   44 -	Hp	-	txDimR8	-	"Dim 8:"
T  24256   75    2   11   46 -	Hp	-	txDimR9	-	"Dim 9:"
D  24257   16   50   13  122 -	HPU	-	edDimR4	#17644	""
D  24258   30   50   13  122 -	HPU	-	edDimR5	#17645	""
D  24259   44   50   13  122 -	HPU	-	edDimR6	#17646	""
D  24260   59   50   13   28 -	HPU	-	edDimR7	#17647	""
D  24261   58  144   13   28 -	HPU	-	edDimR8	#17648	""
D  24262   73   50   13   28 -	HPU	-	edDimR9	#17649	""
B3 24269   16  175   13   15 -	SxTHpfF	-	pbDimR4	-	"seek.bmp"
B3 24270   30  175   13   15 -	SxTHpfF	-	pbDimR5	-	"seek.bmp"
B3 24271   44  175   13   15 -	SxTHpfF	-	pbDimR6	-	"seek.bmp"
B3 24272   59   81   13   15 -	SxTHpfF	-	pbDimR7	-	"seek.bmp"
B3 24273   58  175   13   15 -	SxTHpfF	-	pbDimR8	-	"seek.bmp"
B3 24274   73   81   13   15 -	SxTHpfF	-	pbDimR9	-	"seek.bmp"

>FORMFILES win19 ROWS 0
#Id	sp
>SOURCE
