>TYPE   	D
>NAME   	415.d
>CODE   	415.cod
>BY     	@(#)$Author: Hakan $
>DATE   	@(#)$Date: 06-11-09 10:36 $
>VERSION	@(#)$Revision: 6 $
>ID     	56

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

>TEXTINFO ROWS 23 SIZE 490
#id    value    flags    text
IDL_100  100  -  Antal måste anges
IDL_101  101  -  Leveransvecka måste anges
IDL_102  102  -  Makulera rad
IDL_103  103  -  Spara rad
IDL_104  104  -  Kan inte hitta orderrad
IDL_105  105  -  Ordernummer finns redan
IDL_106  106  -  Ordernummer måste börja med en bokstav
IDL_107  107  -  Kund saknas
IDL_108  108  -  Kund måste anges
IDL_109  109  -  Makulera HELA ordern
IDL_110  110  -  F3:Sök grundartikel
IDL_111  111  -  F3:Ändra variant
IDL_112  112  -  Kan ej behandlas i denna rutin
IDL_113  113  -  Pristyp måste anges
IDL_114  114  -  Nettovikt måste anges
IDL_115  115  -  Annan kvantitet måste anges
IDL_116  116  -  F3: Ny kund
IDL_117  117  -  Ordern får inte ändras
IDL_118  118  -  Lager måste anges
IDL_119  119  -  Behörighet saknas för M-säljare
IDL_120  120  -  Artikelkod %1 saknas
IDL_121  121  -  Registrerad med kundkod %1
IDL_122  122  -  640 Snabborder


>STACK ROWS 100 SIZE 5000

>FONT ROWS 12
#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   -11   0   0   0 700   0  0   0   0   0   0   0   0 "Verdana"
B   -11   0   0   0 400   1  0   0   0   0   0   0   0 "Verdana"
C   -21   0   0   0 700   0  0   0   0   0   0   0   0 "Verdana"


>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	tegel.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   354   520 SBL	-	-	"-"	  0	"M-säljare"

>FORM MAIN ROWS 8 SIZE 43 "100 Main"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
WW  2021   22    4   20  448 -	P	-	win2	-	""
WW   621    4    4   16  510 -	PZ	-	win1	-	""
WW  2307   44    4   48  433 -	PZ	-	win4	-	""
TB  2317  202    6  108  436 -	PZw	-	tab1	-	"Ar&tikelrad,Te&xtrad"
WW  2353  310    6   18  410 -	Pw	-	win9	-	""
WW  2357   98  444  208   76 -	Pz	-	win10	-	""
GR  2316   98    4  100  436 -	PWZ	-	lcTable	-	""
B3     2  310  444   15   75 -	xQPwz	-	pbExit	-	"exit.bmp,St&äng"

>FORM win1 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  2020    0    0   15  510 -	pZ	-	-	-	""

>FORM win2 ROWS 3 SIZE 53 "Command"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
B3  2024    2    4   15   70 -	TPM	-	pbOrder	-	"new.bmp,&Ny order"
B3  2025    2   76   15   70 -	TPM	-	pbOffer	-	"new.bmp,Ny &offert"
B3  2027    2  148   15   70 -	TPM	-	pbChange	-	"edit.bmp,Än&dra"

>FORM win4 ROWS 20 SIZE 135 "Huvud"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
D   2308    4   46   13   60 -	PU	-	edCustomer	#2001	""
D   2310   18   46   13  164 -	P	-	edCustomerName	#2021	""
D   2312   32   46   13   48 -	PU	-	edOrder	-	""
DP  2314   32  170   13   42 W5	Pa	-	-	#3126	""
B3  2378    4  106   13    9 -	SxTpfF	-	pbPrevCustomer	-	"arrowl.bmp"
B3  2379    4  114   13    9 -	SxTpfF	-	pbNextCustomer	-	"arrowr.bmp"
B3  2380    4  122   13   15 -	SxTpfF	-	pbCustomer	-	"seek.bmp"
B3  2381   18  212   13    9 -	SxTpfF	-	pbPrevName	-	"arrowl.bmp"
B3  2382   18  220   13    9 -	SxTpfF	-	pbNextName	-	"arrowr.bmp"
B3  2383   18  228   13   15 -	SxTpfF	-	pbCustomerName	-	"seek.bmp"
B3  2384   32   94   13    9 -	SxTpfF	-	pbPrevOrder	-	"arrowl.bmp"
B3  2385   32  102   13    9 -	SxTpfF	-	pbNextOrder	-	"arrowr.bmp"
B3  2386   32  110   13   15 -	SxTpfF	-	pbOrderSearch	-	"seek.bmp"
T   2309    6    4   11   32 -	p	-	-	-	"Kundkod:"
T   2311   20    4   11   32 -	p	-	-	-	"Kund:"
T   2313   34    4   11   32 -	p	-	-	-	"Ordernr:"
T   2315   34  132   11   38 -	p	-	-	-	"Lev.vecka:"
WW  3081    4  246   42  182 -	PZ	-	win13	-	""
WW  3093    4  246   42  182 -	HP	-	win14	-	""
FR  3060    2    2   46  428 -	pZ	-	-	-	""

>FORM win13 ROWS 4 SIZE 20 "Huvudinfo"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
D   3085    0   60   13   60 -	RpO	-	-	#3211	""
T   3086    2    4   11   48 -	p	-	-	-	"Summa:"
D   3087   14   60   13   60 -	RpO	-	-	#8583	""
T   3088   16    4   11   48 -	p	-	-	-	"Inkl moms:"

>FORM tab1 ROWS 2 SIZE 2 "tab1"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
WW  2318   12    2   92  430 -	PZ	-	win5	-	""
WW  2319   12    0   92  430 -	PZ	-	win6	-	""

>FORMFILES tab1 ROWS 0
#Id	sp
>FORM win5 ROWS 22 SIZE 155 "Artikel"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
TB  2339    2  226   88  196 -	PZB	-	tab2	-	"&1.Radegn,&2.Info,&3.Intrastat"
D   2321    2   46   13  110 A20	PU	-	edArtR	#3401	""
D   2326   16   46   13  142 -	p$	-	edArtNameR	#3421	""
D   2328   30   46   13   56 -	p	-	edNormPrice	#3551	""
D   2330   44   46   13   56 -	P	-	edQuantity	#3541	""
D   2332   44  146   13   58 f.3	P	-	edDiscount	#3553	""
D   2334   58   46   13   56 -	P	-	edAmount	#3552	""
D   2336   58  146   13   58 1	pO	-	edAmountIncl	#3556	""
DP  2338   72   46   13   56 W5	pa	-	dpWeekOfDelivery	#3513	""
B3  2322    2  158   13    9 -	SxTpfF	-	pbPrevArt	-	"arrowl.bmp"
T   2329   46    4   11   38 -	p	-	-	-	"Antal:"
B3  2323    2  166   13    9 -	SxTpfF	-	pbNextArt	-	"arrowr.bmp"
T   2331   46  112   11   34 -	p	-	-	-	"Rabatt %:"
B3  2324    2  174   13   15 -	SxTpfF	-	pbArt	-	"seek.bmp"
T   2333   60    4   11   38 -	p	-	-	-	"Belopp:"
T   2325   18    4   11   38 -	p	-	-	-	"Benämning:"
T   2335   60  112   11   34 -	p	-	txAmountIncl	-	"Inkl:"
T   2320    4    4   11   38 -	p	-	-	-	"Artikelkod:"
T   2337   74    4   11   38 -	p	-	txWeekOfDeliveryR	-	"Lev.vecka:"
T   2327   32    4   11   38 -	p	-	-	-	"Normalpris:"
DP  3107   72  146   13   58 W5	pa	-	-	#3514	""
T   3108   74  112   11   34 -	p	-	-	-	"Bekr.:"

>FORMFILES win5 ROWS 0
#Id	sp
>FORM win6 ROWS 16 SIZE 198 "Text"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
RB  2360   18   12   10   86 -	RP	-	rbAllFormsR	-	"Alla"
RB  2361   28   12   10   86 -	RP	-	rbMarkedFormsR	-	"Markerade blanketter"
XB  2366    8  114   10   70 -	Rp	-	xbFormR1	-	"Faktura"
XB  2367   18  114   10   70 -	Rp	-	xbFormR2	-	"Ordererkännande"
XB  2368   28  114   10   70 -	Rp	-	xbFormR3	-	"Arbetsorder"
XB  2369   38  114   10   70 -	Rp	-	xbFormR4	-	"Offert"
XB  2363    8  212   10   70 -	Rp	-	xbFormR5	-	"Fraktsedel"
XB  2364   18  212   10   70 -	Rp	-	xbFormR6	-	"Plocklista"
XB  2365   28  212   10   70 -	Rp	-	xbFormR7	-	"Pack-/Följesedel"
GB  2362    0    2   56  306 -	p	-	-	-	"Blanketter"
D   2371   60   48   13   36 -	P	-	edTextRowNum	#3403	""
XB  2372   58  128   13  160 -	P	-	xbFixedText	#3437	"Fast text (ej kopplad till föregående artikelrad):"
D   2374   74   48   13  246 SA70	P$	-	edText	#3434	""
T   2373   75    6   10   36 -	p	-	-	-	"Fri text:"
B3  2375   74  296   13   15 -	xTpfF	-	pbText	-	"seek.bmp"
T   2370   63    6   10   36 -	p	-	-	-	"Radnr:"

>FORM tab2 ROWS 3 SIZE 3 "tab2"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
WW  2340   14    2   70  188 -	PZ	-	win7	-	""
WW  2341   14    2   70  188 -	PZ	-	win8	-	""
WW  3047   14    2   70  192 -	HPZ	-	win12	-	""

>FORM win7 ROWS 1 SIZE 1 "Inforad"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
BM  3083    0    0   20   20 -	Tp	-	bmPreviewRow	-	""

>FORM win8 ROWS 13 SIZE 59 "Radegn"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
D   2342    2   42   13   28 -	P	-	edRowNr	#3403	""
CE  3105   16   42   50   56 -	Pc	-	cbStockRow	#3475	""
XB  2344    2   98   13   44 -	P	-	xbDebCheck	#3481	"Deb.bart:"
D   2346   30   42   13   56 -	pO	-	edSaldo	-	""
D   2350   44   42   13   56 -	pO	-	edDisp	-	""
D   2348   30  134   13   52 -	pO	-	edRes	-	""
D   2352   44  134   13   52 -	pO	-	edOrdered	-	""
T   2349   46    4   11   34 -	p	-	-	-	"Disp.:"
T   2345   32    4   11   34 -	p	-	-	-	"Saldo:"
T   2351   46  100   11   25 -	p	-	-	-	"Beställt:"
T   2347   32  100   11   25 -	p	-	-	-	"Res:"
T   2343    4    4   11   34 -	p	-	txRowNr	-	"Radnr:"
T   3106   18    4   11   34 -	p	-	txStockRow	-	"Lager:"

>FORM win9 ROWS 4 SIZE 80 "Knappar"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
B3  2354    2    2   15   62 -	TP	-	pbSaveRow	-	"save.bmp,S&para rad"
B3  2355    2   68   15   62 -	TP	-	pbNewRow	-	"new.bmp,N&y rad"
B3  2356    2  134   15   62 -	TP	-	pbDeleteRow	-	"del.bmp,&Makulera rad"
B3  3100    2  200   15   62 -	TP	-	pbOrderrow	-	"partrow.bmp,Ord&errad"

>FORM win10 ROWS 11 SIZE 246 "Operation"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
B3  2358    0    0   15   75 -	TP	-	pbSave	-	"save.bmp,&Spara"
B3  2359   18    0   15   75 -	TP	-	pbDelete	-	"del.bmp,Ma&kulera order"
B3  2376   36    0   15   75 -	QP	-	pbGetTemplate	-	"templ.bmp,Hämta mal&l/offert"
B3  3030   54    0   15   75 -	QP	-	pbOrderhead	-	"headrow.bmp,Orderh&uvud"
B3  2377   72    0   15   75 -	QP	-	pbSetart	-	"setart.bmp,Setart&ikel"
B3  3084   90    0   15   75 -	QP	-	pbOrdertext	-	"padclose.bmp,Ordertext"
B3  3075  108    0   15   75 -	QP	-	pbCalc	-	"calc.bmp,Ka&lkylering"
B3  3101  130    0   15   75 -	QHP	-	pbActivity	-	"new.bmp,Ny aktivitet"
B3  3102  148    0   15   75 -	QP	-	pbOpenActivities	-	"open.bmp,Aktiviteter"
B3  3103  170    0   15   75 -	QP	-	pbPrintOerk	-	"print.bmp,Ordererkännande"
B3  3104  188    0   15   75 -	QP	-	pbPrintOffe	-	"print.bmp,Offert"

>FORMFILES win10 ROWS 0
#Id	sp
>FORM lcTable ROWS 7 SIZE 48 ""
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
T   3068    1    1   11   17 -	Hph	-	-	#3403	"Rad"
T   3069    1   19   11   44 -	Hp	-	-	#3401	"Artikelkod"
T   3070    1   63   11  154 -	Hp	-	-	#3421	"Benämning"
T   3071    1  217   11   50 -	RHp	-	-	#3531	"Order"
T   3072    1  267   11   50 -	RHp	-	-	#3533	"Lev"
T   3073    1  317   11   25 -	Hp	-	-	#3553	"Rab %"
T   3074    1  342   11   54 -	RHp	-	-	#8591	"Belopp"

>FORMFILES lcTable ROWS 2
#Id	sp
34	r
10	r
>FORM win12 ROWS 12 SIZE 89 "Intrastat"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
CE  3048    0   68  208   90 -	Pc	-	cbTransactioncode	#3466	""
T   3049    2    4   11   60 -	p	-	txTransactioncode	-	"Transaktionskod:"
T   3050   16    4   11   60 -	p	-	txStatisticsCode	-	"Statistikkod:"
CE  3051   14   68  178   90 -	Pc	-	cbStatisticsCode	#3465	""
T   3052   30    4   11   60 -	p	-	txPricetype	-	"Pristyp:"
CB  3053   28   68  160   90 -	P	-	cbPricetype	-	""
T   3054   44    4   11   60 -	p	-	txNetWeight	-	"Nettovikt:"
D   3055   42   68   13   60 -	P	-	edNetWeight	#3468	""
T   3056   58    4   11   60 -	p	-	txOtherQuantity	-	"Annan kvantitet:"
D   3057   56   68   13   60 -	P	-	edOtherQuantity	#3469	""
T   3058   44  132   11   30 -	p	-	txNetWeightPerUnit	-	"per enh"
T   3059   58  132   11   30 -	p	-	-	-	"per enh"

>FORM win14 ROWS 6 SIZE 40 "Huvudinfo valuta"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
D   3094    0   60   13   60 -	RpO	-	-	#3165	""
T   3095    2    4   11   48 -	p	-	-	-	"Valutakurs:"
D   3096   14   60   13   60 -	RpO	-	-	#3213	""
T   3097   16    4   11   48 -	p	-	-	-	"Summa valuta:"
D   3098   28   60   13   60 -	RpO	-	-	#3211	""
T   3099   31    4   11   53 -	p	-	txSumSEK	-	"Summa SEK:"

>SOURCE
