>TYPE   	D
>NAME   	8520.d
>CODE   	8520.cod
>BY     	@(#)$Author: Annab $
>DATE   	@(#)$Date: 06-07-21 16:29 $
>VERSION	@(#)$Revision: 2 $
>ID     	22513

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

>TEXTINFO ROWS 16 SIZE 315
#id    value    flags    text
IDL_100  100  -  Timme
IDL_101  101  -  Dygn
IDL_102  102  -  Vecka
IDL_103  103  -  Månad
IDL_104  104  -  Alla
IDL_105  105  -  Inga poster i önskat intervall
IDL_106  106  -  Spärrad
IDL_107  107  -  Debiterad
IDL_108  108  -  Ej spärrad
IDL_109  109  -  Makulerad
IDL_110  110  -  Fel vid radering av tempfil %1. Ec=%2
IDL_111  111  -  DEL:Ta bort order från urvalet
IDL_112  112  -  DEL:Ta bort bokning från urvalet
IDL_113  113  -  Kan inte radera artikelrad
IDL_114  114  -  Direktutskrift av samlingsfaktura kan ej ske, skrivs istället i rutin 211.
IDL_115  115  -  Ej debiterad


>STACK ROWS 100 SIZE 3000

>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 0
#id Eventname	ParamList


>WINDOW ROWS 1
#id       x     y    cy    cx sp1	sp2	Bitmap	font	size	caption
5511     20    90   354   520 SB	-	-	"-"	  0	"8520 Debiteringsunderlag"

>FORM MAIN ROWS 10 SIZE 75 "Tool"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
WW   621    0    4   16  546 -	PhmZ	-	win4	-	""
WW 24086   18    4   16  424 -	P	-	win6	-	""
TB 24034  222    4   88  454 -	PZ	-	tab1	-	"Kriterier"
B3 24023  312    6   15   50 -	QP	-	pbGetChoice	-	"nothing.bmp,Hämta &urval"
GR 24058   36  273  182  184 -	PW	-	lcRentRow	-	""
GR 24027   36    4  182  264 -	PWZ	-	lcOrder	-	""
GR 24091   36    4  182  264 -	HPWZ	-	lcCancelOrder	-	""
SP 24075   36  270  182    2 -	pW	-	spSplit	-	""
B3 24089   38  463   15   50 -	QP	-	pbExecute	-	"ok.bmp,Verk&ställ"
B3     2  312  463   15   50 -	xTPhwz	-	pbCancel	-	"exit.bmp,St&äng"

>FORMFILES MAIN ROWS 0
#Id	sp
>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  544 -	pZ	-	-	-	""

>FORMFILES win4 ROWS 0
#Id	sp
>FORM lcOrder ROWS 9 SIZE 71 ""
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
XB 24090    2    1   10   32 -	RHPh	-	-	#861	"Manuell"
T  24054    2   33   11   28 -	Hph	-	-	#3003	"Ordernr"
T  24071    2   61   11   68 -	Hp	-	-	#2021	"Kundnamn"
T  24098    0  128   11   40 -	Hp	-	-	#8828	"Status"
T  24077    0  174   11   54 -	RHp	-	-	#8832	"Debiteras"
T  24078   16    0   11   54 -	RHp	-	-	#8833	"Debiteras valuta"
T  24079   14   58   11   45 -	Hp	-	-	#3163	"Valutakod"
T  24065   14   47    0    0 -	HpLh	-	-	#863	""
T  24066   14   47   11    0 -	HpLh	-	-	#864	""

>FORMFILES lcOrder ROWS 2
#Id	sp
30	r
20	r
>FORM tab1 ROWS 1 SIZE 1 "tab1"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
WW 24035   12    2   74  451 -	PZ	-	win5	-	""

>FORMFILES tab1 ROWS 0
#Id	sp
>FORM win5 ROWS 19 SIZE 160 "win5"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
DP 24050    2   74   13   44 D8	P	-	dpDate	#844	""
D  24039   16   74   13   60 A8	PU	-	edFromOrder	#841	""
D  24040   30   74   13   60 A8	PU	-	edToOrder	#849	""
D  24080   44   74   13   60 A10	PU	-	edFromCustomer	#842	""
D  24081   58   74   13   60 A10	PU	-	edToCustomer	#848	""
CE 24045    2  276  152   90 -	Pc	-	cbProjecttype	#851	""
XB 24047   16  203   13   82 -	P	-	xbOnlyReturned	#862	"Endast återlämnade"
CB 24048   31  277  136   90 -	P	-	cbMethod	-	""
T  24041   18    2   11   60 -	p	-	-	-	"Från ordernr:"
B3 24043   16  136   13   15 -	xQpfF	-	pbFromOrder	-	"seek.bmp"
T  24049   32  205   11   52 -	p	-	-	-	"Debitering:"
T  24051    4    2   11   60 -	p	-	-	-	"Debiteringsdatum:"
B3 24044   30  136   13   15 -	xQpfF	-	pbToOrder	-	"seek.bmp"
T  24046    5  205   11   52 -	p	-	-	-	"Projekttyp:"
T  24070   32    2   11   60 -	p	-	-	-	"Till ordernr:"
T  24082   46    2   11   60 -	p	-	-	-	"Från kundkod:"
T  24083   60    2   11   60 -	p	-	-	-	"Till kundkod:"
B3 24084   44  136   13   15 -	xQpfF	-	pbFromCustomer	-	"seek.bmp"
B3 24085   58  136   13   15 -	xQpfF	-	pbToCustomer	-	"seek.bmp"

>FORMFILES win5 ROWS 0
#Id	sp
>FORM lcRentRow ROWS 5 SIZE 43 ""
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
T  24100    2    2   11   25 -	Hph	-	-	#3403	"Radnr"
T  24101    2   27   11   50 -	Hp	-	-	#3401	"Artikelkod"
T  24061    2   77   11   55 -	Hp	-	-	#3421	"Benämning"
T  24076    2  132   11   40 -	RHp	-	-	#8831	"Debiteras"
T  24103    2  172   11   30 -	Hp	-	-	#26505	"Antal"

>FORMFILES lcRentRow ROWS 2
#Id	sp
34	r
246	r
>FORM win6 ROWS 2 SIZE 55 "win6"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
B3 24087    0    0   15   74 -	QPM	-	pbDebit	-	"nothing.bmp,&Debitera"
B3 24088    0   76   15   74 -	QPM	-	pbCancelDebit	-	"nothing.bmp,&Makulera debitering"

>FORMFILES win6 ROWS 0
#Id	sp
>FORM lcCancelOrder ROWS 6 SIZE 61 ""
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
T  24092    2    1   11   35 -	Hph	-	-	#3003	"Ordernr"
T  24094    2   37   11  104 -	Hp	-	-	#2021	"Kundnamn"
T  24099    2  141   11   25 -	Hp	-	-	#8828	"Status"
T  24095    2  166   11   68 -	RHp	-	-	#8832	"Debiteras"
T  24096    2  238   11   52 -	RHp	-	-	#8833	"Debiteras valuta"
T  24097   14    1   11   45 -	Hp	-	-	#3163	"Valutakod"

>FORMFILES lcCancelOrder ROWS 2
#Id	sp
20	r
30	r
>SOURCE
