>TYPE   	D
>NAME   	212.d
>CODE   	212.cod
>BY     	@(#)$Author: Helene $
>DATE   	@(#)$Date: 06-06-19 13:25 $
>VERSION	@(#)$Revision: 3 $
>ID     	2007

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

>TEXTINFO ROWS 58 SIZE 1298
#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_104  104  -  Objekt
IDL_105  105  -  Avdelning
IDL_106  106  -  Kan ej hämta rad
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  -  Måste vara mindre än %1
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_136  136  -  Spara kontering
IDL_138  138  -  Fasta rader får ej röras
IDL_139  139  -  Selektera rad först
IDL_140  140  -  Reskontra upptaget av%1 i rutin %2
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   66  435  104   86 -	Pz	-	win2	-	""
WW   124    0    8   16  512 -	PZ	-	win8	-	""
TB    13   62    6  255  426 -	PWZ	-	tab1	-	"Fakt&ura,Kont&ering"
B3     2  300  439   15   70 -	xTPwz	-	pbClose	-	"exit.bmp,St&äng"
D  24076   45  161   13   60 -	pOz	-	edBalance	#8581	""
T  24077   47  123   11   36 -	pz	-	txBalance	-	"Balans:"
D  24240   46   56   13   60 -	PO	-	edInvNoInfo	-	""
T  24241   47   10   11   40 -	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    6    0   15   84 -	TP	-	pbSave	-	"save.bmp, &Slutför"
B3    27   22    0   15   84 -	TP	-	pbCancAccount	-	"del.bmp, Maku&lera kontering"
B3    28   38    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    8  238  415 -	PWZ	-	win3	-	""
WW  4072   14    8  238  415 -	PWZ	-	win9	-	""

>FORMFILES tab1 ROWS 0
#Id	sp
>FORM win3 ROWS 2 SIZE 2 "Customer"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
WW 24230    2   10   14  274 -	P	-	win18	-	""
WW 24086   18   10  210  396 -	PZ	-	win12	-	""

>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	-	-	-	""

>FORM win9 ROWS 5 SIZE 45 "Kontering"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
GR  4073    5    4   78  410 -	PWZ	-	lcTable	-	""
TB  4074   84    4  126  410 -	PZw	-	tab3	-	"Kont.rader"
PB  4077  214    5   14   70 -	Pw	-	pbSaveRow	-	"S&para rad"
PB  4079  214   78   14   70 -	Pw	-	pbNewRow	-	"N&y rad"
PB  4078  214  149   14   70 -	Pw	-	pbDeleteRow	-	"Ta  &bort rad"

>FORM tab3 ROWS 1 SIZE 1 "tab3"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
WW  4076   14    4  110  400 -	PZ	-	win10	-	""

>FORM win10 ROWS 6 SIZE 42 "Kont.rader"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
D   4098    2   46   13   62 -	PU	-	edArt	#3401	""
WW 24193   16    2   94  250 -	P	-	win17	-	""
B3  4100    2  130   13   15 -	xTpF	-	pbArt	-	"seek.bmp"
T   4080    4    4   11   40 -	p	-	txArt	-	"Artikel:"
B3 24224    2  112   13    9 -	xTpF	-	pbArtPrev	-	"arrowl.bmp"
B3 24225    2  120   13    9 -	xTpF	-	pbArtNext	-	"arrowr.bmp"

>FORM lcTable ROWS 8 SIZE 48 ""
#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  24213    1   71   11   26 -	Hp	-	-	#17604	"Avd"
T  24214    1   97   11   50 -	Hp	-	-	#17611	"Objekt"
T  24215    1  147   11   44 -	Hp	-	-	#17617	"Ordernr"
T  24216    1  191   11   50 -	Hp	-	-	#17619	"Radnr"
T  24217    1  241   11   52 -	Hp	-	-	#17621	"Debet"
T  24218    1  293   11   48 -	Hp	-	-	#17622	"Kredit"

>FORM win12 ROWS 24 SIZE 201 "Head"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
D  24152    0   58   13   60 -	PU	-	edOrder	-	""
XB 24153   14    6   13   61 -	P	-	xbKredit	-	"Kredit:"
CE 24242   14  122   50   66 -	HPc	-	cbStock	#3083	""
D  24154   28   58   13   60 -	PU	-	edInvoice	#8140	""
DP 24155   42   58   13   60 D8	P	-	dpInvDate	#4011	""
CE 24156   56   58  100   60 -	Pc	-	cbPayTerms	#4171	""
DP 24157   70   58   13   60 D8	P	-	dpRecieveDate	#4002	""
D  24158   84   58   13   60 F11.2	P	-	edInvAmount	#4051	""
CE 24159   98   58  100   60 -	Pc	-	cbVatCode	#4093	""
D  24160  112   58   13   60 F11.2	P	-	edVat	#4052	""
TB 24087    2  192  196  198 -	PzB	-	tab4	-	"Ku&nddata,F&örs.vilkor,Kund&info,&Valuta"
B3 24167   28  120   13   15 -	xTpF	-	pbInvoice	-	"seek.bmp"
B3 24166    0  138   13   15 -	xTpF	-	pbOrder	-	"seek.bmp"
B3 24229    0  128   13    9 -	xTpF	-	pbOrderNext	-	"arrowr.bmp"
T  24168   86    8   11   48 -	p	-	txInvAmount	-	"Fakturabelopp:"
T  24162  100    8   11   48 -	p	-	txVatCode	-	"Momskod:"
T  24170  114    8   11   48 -	p	-	txVat	-	"Momsbelopp:"
T  24165   58    8   11   48 -	p	-	txPayTerms	-	"Bet.villkor:"
T  24169   44    8   11   48 -	p	-	txInvDate	-	"Fakt.datum:"
T  24163    2    8   11   48 -	p	-	txOrder	-	"Ordernr:"
T  24161   72    8   11   48 -	p	-	txReceiveDate	-	"Förfallodatum:"
T  24164   30    8   11   48 -	p	-	txInvoice	-	"Fakturanr:"
B3 24228    0  120   13    9 -	xTpF	-	pbOrderPrev	-	"arrowl.bmp"
T  24243   16   86   11   30 -	Hp	-	txStock	-	"Lager:"

>FORM tab4 ROWS 4 SIZE 4 "tab4"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
WW 24088   18    6  172  180 -	P	-	win13	-	""
WW 24108   16   10  172  180 -	P	-	win14	-	""
WW 24125   18   11  172  180 -	P	-	win15	-	""
WW 24175   18   11  172  180 -	P	-	win16	-	""

>FORM win13 ROWS 19 SIZE 111 "Kunddata1"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
D  24095    6   56   13  100 -	DpO	-	edCusName	#2021	""
D  24098   20   56   13  100 -	pO	-	edStreetAdress	#2027	""
D  24097   34   56   13  100 -	pO	-	edStreetZipAdr	#2029	""
D  24096   48   56   13  100 -	pO	-	edDeliveryAdr	#2030	""
D  24106   62   56   13  100 -	pO	-	edDeliveryZipAdr	#2033	""
D  24099   76   56   13  100 -	pO	-	edCountry	#2036	""
D  24101   90   56   13  100 -	pO	-	edPhonenr	#2041	""
D  24103  104   56   13  100 -	pO	-	edRef	#2124	""
D  24105  118   56   13  100 A20	pUO	-	edSearchName	#2022	""
PB 24174  140  107   15   50 -	P	-	pbChangeCustom1	-	"Ändra k&und"
T  24094   78    8   11   46 -	p	-	-	-	"Land:"
T  24100   92    8   11   46 -	p	-	-	-	"Telefon:"
T  24089    8    8   11   46 -	p	-	-	-	"Kund:"
T  24102  106    8   11   46 -	p	-	-	-	"Referens:"
T  24092   36    8   11   46 -	p	-	-	-	"Gatupostadr:"
T  24104  118    8   11   46 -	p	-	-	-	"Söknamn:"
T  24091   50    8   11   46 -	p	-	-	-	"Utd. adress:"
T  24093   22    8   11   46 -	p	-	-	-	"Gatuadress:"
T  24090   64    8   11   46 -	p	-	-	-	"Postadress:"

>FORM win14 ROWS 16 SIZE 93 "Kunddata2"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
D  24113   10   56   13  100 -	DpO	-	edCustomStatus	#2185	""
D  24116   24   56   13  100 -	pO	-	edLangCode	#2038	""
D  24115   38   56   13  100 -	pO	-	edCustomType	#2111	""
D  24114   52   56   13   22 -	pO	-	edTransport	#2173	""
D  24119   52   82   13   88 -	pO	-	edTransSence	#15205	""
D  24117   66   56   13   22 -	pO	-	edDelivTerms	#2172	""
D  24120   66   82   13   88 -	pO	-	edDelivTermsSence	#15105	""
D  24122   80   56   13   22 -	pO	-	edCPayTerms	#2171	""
D  24123   80   82   13   88 -	pO	-	edCPayTermsSence	#15005	""
PB 24109  142  109   15   50 -	P	-	pbChangeCustom2	-	"Ändra k&und"
T  24118   68    8   11   46 -	p	-	-	-	"Lev.villkor:"
T  24111   40    8   11   46 -	p	-	-	-	"Kundtyp:"
T  24121   82    8   11   46 -	p	-	-	-	"Bet.villkor:"
T  24110   26    8   11   46 -	p	-	-	-	"Språkkod:"
T  24112   54    8   11   46 -	p	-	-	-	"Transportsätt:"
T  24124   12    8   11   46 -	p	-	-	-	"Kundstatus:"

>FORM win15 ROWS 13 SIZE 75 "Kunddata3"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
D  24135    6   55   13   66 -	pO	-	edDiscount	#2177	""
D  24136   20   55   13   66 -	pO	-	edCVatCode	#2091	""
D  24127   34   55   13   66 -	pO	-	edPricelist	#2175	""
D  24134   48   55   13   66 -	pO	-	edCAccount	#2192	""
D  24133   62   55   13  118 -	pLO	-	edCustomInfo1	#2121	""
D  24137   76   55   13  118 -	pO	-	edCustomInfo2	#2122	""
PB 24138  140  109   15   50 -	P	-	pbChangeCustom3	-	"Ändra k&und"
T  24130   63    8   11   46 -	p	-	-	-	"Kundinfo1:"
T  24129   23    8   11   46 -	p	-	-	-	"Momskod:"
T  24126   36    8   11   46 -	p	-	-	-	"Prislista:"
T  24128    9    8   11   46 -	p	-	-	-	"Rabatt:"
T  24131   77    8   11   46 -	p	-	-	-	"Kundinfo2:"
T  24132   49    8   11   46 -	p	-	-	-	"Konto:"

>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    9    8   11   46 -	p	-	txCurrency	-	"Valuta:"
T  24180   24    8   11   46 -	p	-	txExchangeRate	-	"Kurs:"
T  24181   38    8   11   46 -	p	-	txCurrAmount	-	"Valutabelopp:"

>FORM win17 ROWS 21 SIZE 109 "win17"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
D  24194    0   44   13  137 -	P$	-	edArtName	#3421	""
D  24195   14   44   13   62 -	P	-	edQuantity	#3631	""
D  24196   14  158   13   60 -	P	-	edRow	#3403	""
D  24197   28   44   13   62 -	PU	-	edAccount	#12010	""
D  24198   42   44   13   62 -	PU	-	edObj	#8611	""
D  24199   42  158   13   60 -	PU	-	edAvd	#8621	""
D  24200   56   44   13   62 f11.2	P	-	edCost	#8573	""
D  24201   70   44   13   62 f11.2	P	-	edRowAmount	#8572	""
D  24222   70  156   13   60 -	P	-	edCurrRowAmount	#8593	""
T  24203   44  124   11   32 -	p	-	txAvd	-	"Avd:"
T  24204   58    2   11   40 -	p	-	txCost	-	"Kostnad:"
T  24205   72    2   11   40 -	p	-	txRowAmount	-	"Belopp:"
T  24206   44    2   11   40 -	p	-	txObj	-	"Obj:"
T  24207   16  124   11   32 -	p	-	txRow	-	"Orderrad:"
T  24208    2    2   11   40 -	p	-	txArtName	-	"Benämning:"
T  24209   16    2   11   40 -	p	-	txQuantity	-	"Antal:"
T  24202   30    2   11   40 -	p	-	txAccount	-	"Konto:"
T  24223   72  124   11   32 -	p	-	txCurrRowAmount	-	"Debiteras:"
B3 24237   42  108   13   15 -	xTpfF	-	pbObj	-	"seek.bmp"
B3 24239   42  220   13   15 -	xTpfF	-	pbAvd	-	"seek.bmp"
B3 24236   28  108   13   15 -	xTpfF	-	pbAccount	-	"seek.bmp"

>FORM win18 ROWS 5 SIZE 41 "win18"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
D  24232    2   58   13   60 -	PU	-	edCustomer	#2001	""
B3 24233    2  120   13    9 -	xTpfF	-	pbCustomerPrev	-	"arrowl.bmp"
B3 24234    2  128   13    9 -	xTpfF	-	pbCustomerNext	-	"arrowr.bmp"
B3 24235    2  138   13   15 -	xTpfF	-	pbCustomer	-	"seek.bmp"
T  24231    4    8   11   48 -	p	-	txCustomer	-	"Kundkod:"

>SOURCE
