>TYPE   	D
>NAME   	955.d
>CODE   	955.cod
>BY     	@(#)$Author: Anna $
>DATE   	@(#)$Date: 09-07-31 14:11 $
>VERSION	@(#)$Revision: 5 $
>ID     	20002

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

>TEXTINFO ROWS 35 SIZE 548
#id    value    flags    text
IDL_100  100  -  Koden finns redan
IDL_101  101  -  Kod måste anges
IDL_102  102  -  Layout måste anges
IDL_103  103  -  Nivå måste anges
IDL_104  104  -  Startkonto saknas
IDL_105  105  -  Radtyp måste anges
IDL_106  106  -  Startkonto måste anges
IDL_107  107  -  Slutkonto måste anges
IDL_108  108  -  Felaktigt intervall
IDL_109  109  -  Makulera rad %1
IDL_110  110  -  Radera %1 %2
IDL_111  111  -  Rapportkoden saknas
IDL_112  112  -  Radnumret finns redan
IDL_113  113  -  Ange rapportkod att kopiera till
IDL_114  114  -  Kopiera
IDL_115  115  -  Konton
IDL_116  116  -  Delrubrik
IDL_117  117  -  Delsumma
IDL_118  118  -  Grupptotal
IDL_119  119  -  Klasstotal
IDL_120  120  -  Ackumulering
IDL_121  121  -  Ny sida
IDL_122  122  -  Förhandsgranska
IDL_123  123  -  Konto
IDL_124  124  -  %1
IDL_125  125  -  %1
IDL_126  126  -  Kombination
IDL_127  127  -  Format
IDL_128  128  -  Namn
IDL_129  129  -  Rapportkod:
IDL_130  130  -  Läser rapportrader
IDL_131  131  -  Ny rapportkod:
IDL_132  132  -  KodnamnetTEMPRA är förbehållet Pyramids temporär rapport
IDL_133  133  -  Funktionen är spärrad av rutin 956.
IDL_134  134  -  %1:


>STACK ROWS 100 SIZE 5000

>FONT ROWS 12
#id Hgt Wth Esc Ori Wgt Ita  Ul Sth Chs Opr Clp Qua Pch Name
1   -21   0   0   0 400   0  0   0   0   0   0   0   0 "MS Sans Serif"
2   -17   0   0   0 400   1  1   0   0   0   0   0   0 "Times Rmn"
3   -21   0   0   0 400   0  0   0   0   0   0   0   0 "President"
4    -9   0   0   0 400   0  0   0   0   0   0   0   0 "Arial"
5   -11   0   0   0 400   0  0   0   0   0   0   0   0 "Arial"
6   -11   0   0   0 400   1  0   0   0   0   0   0   0 "Arial"
7   -11   0   0   0 700   0  0   0   0   0   0   0   0 "Arial"
8   -13   0   0   0 400   0  0   0   0   0   0   0   0 "Arial"
9   -13   0   0   0 400   1  0   0   0   0   0   0   0 "Arial"
A   -13   0   0   0 700   0  0   0   0   0   0   0   0 "Arial"
B   -16   0   0   0 400   0  0   0   0   0   0   0   0 "Arial"
C   -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	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	"955 Skapa specialrapport"

>FORM MAIN ROWS 7 SIZE 45 "100 Main"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
WW   611    2    2   18  514 -	P	-	win1	-	""
WW    12   22    4   16  348 -	P	-	win2	-	""
WW    13   40    4   16   84 -	P	-	win3	-	""
TB    18   58    4  266  428 -	P	-	tab1	-	"Rappor&t ,Rapportrad&er"
WW  1001   68  436   80   80 -	P	-	win6	-	""
B3     2  308  440   15   76 -	TP	-	-	-	"exit.bmp,St&äng"
WW  4308   40   88   16  330 -	P	-	win10	-	""

>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  4071    0    0   15  512 -	pZ	-	-	-	""

>FORM win2 ROWS 4 SIZE 87 "Command"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
B3  1002    0    0   15   70 -	TPM	-	pbNew	-	"new.bmp,&Ny rapport"
B3  1003    0   72   15   70 -	TPM	-	pbChange	-	"edit.bmp,Än&dra rapport"
B3  1004    0  144   15   70 -	TPM	-	pbCopy	-	"copy.bmp,&Kopiera rapport"
B3  1005    0  216   15   70 -	TPM	-	pbPrint	-	"print.bmp,Skr&iv"

>FORM win3 ROWS 2 SIZE 15 "TopInfo"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
D   4306    2   48   13   32 -	pO	-	-	#24901	""
T   4307    2    2   13   46 -	p	-	-	-	"Bokföringsår:"

>FORM tab1 ROWS 2 SIZE 2 "tab1"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
WW  4080   13    2  250  422 -	P	-	win4	-	""
WW  4084   12    2  252  422 -	P	-	win8	-	""

>FORM win6 ROWS 4 SIZE 85 "win6"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
B3  1007   20    2   15   76 -	QP	-	pbDelete	-	"del.bmp,Radera rapp&ort"
B3  1008   38    2   15   76 -	TP	-	pbList	-	"print.bmp,&Lista rapport"
B3  4454   56    2   15   76 -	TP	-	pbAbort	-	"noprint.bmp,Av&bryt"
B3  4467    2    2   15   76 -	TP	-	pbSave	-	"save.bmp,&Spara"

>FORMFILES win6 ROWS 0
#Id	sp
>FORM win4 ROWS 2 SIZE 16 "Head"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
GR  4081    2    4  110  414 -	P	-	lcTableHead	-	""
TB  4082  115    4  132  414 -	P	-	tab2	-	"Rapport huvud "

>FORM tab2 ROWS 1 SIZE 1 "tab2"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
WW  4083   13    2  116  410 -	P	-	win7	-	""

>FORM win7 ROWS 6 SIZE 41 "Headtab"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
TB  4389    8  230  102  170 -	PB	-	tab4	-	"Egenskaper"
WW  4465   10   56   14   46 -	P	-	win15	-	""
D   4468   10  150   13   42 A6	HPU	-	edCopyFrom	-	""
WW  4457   24    6   90  213 -	P	-	win14	-	""
T   4380   12    7   11   46 -	p	-	txCode	-	"Rapportkod:"
T   4469   12  106   11   44 -	Hp	-	txCopyFrom	-	"Kopieras från:"

>FORM win8 ROWS 5 SIZE 66 "Rows"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
GR  4085    2    4  110  414 -	P	-	lcTableRows	-	""
TB  4086  114    4  118  414 -	P	-	tab3	-	"Rader "
B3  4379  234    4   15   65 -	TP	-	pbSaveRow	-	"save.bmp,S&para rad"
B3  4405  234   72   15   65 -	TP	-	pbNewRow	-	"new.bmp,N&y rad"
B3  4406  234  140   15   65 -	QP	-	pbDeleteRow	-	"del.bmp,&Makulera rad"

>FORM tab3 ROWS 1 SIZE 1 "tab3"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
WW  4087   14    2  102  410 -	P	-	win9	-	""

>FORM win9 ROWS 6 SIZE 33 "Rowtab"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
TB  4398    4  274   94  124 -	PB	-	tab5	-	"Egenskaper"
D   4378    2   52   13   30 -	P	-	edRow	#26103	""
CB  4376   16   52  110   90 -	P	-	cbType	-	""
T   4375   18    6   11   46 -	p	-	-	-	"Radtyp:"
T   4377    4    6   11   46 -	p	-	-	-	"Radnummer:"
WW  4419   30    4   72  246 -	P	-	win13	-	""

>FORM lcTableHead ROWS 8 SIZE 59 ""
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
T   4345    0    1   11   40 -	Hp	-	-	#26001	"Kod"
T   4346    1   44   11   85 -	Hp	-	-	#26011	"Beteckning"
T   4347    1  129   10   42 -	Hp	-	-	#26005	"Format"
T   4348    0  171   11   72 -	Hp	-	-	#8125	"Layout"
T   4349    0  242   11   50 -	Hp	-	-	#8828	"Nivå"
T   4350    0  292   11   40 -	CHpL	-	-	#26017	"Nollkonton"
T   4351    0  332   11   40 -	CHpL	-	-	#26016	"Budget"
T   4352    0  372   11   40 -	Hp	-	-	#26019	"Valuta"

>FORMFILES lcTableHead ROWS 0
#Id	sp
>FORM lcTableRows ROWS 9 SIZE 62 ""
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
T   4265    0    1   11   24 -	Hp	-	-	#26103	"Rad"
T   4266    0   25   11   48 -	Hp	-	-	#8834	"Radtyp"
T   4267    0   73   11  110 -	Hp	-	-	#26131	"Text"
T   4268    0  183   11   44 -	Hp	-	-	#8831	"Konton"
T   4269    0  227   11   40 -	Hp	-	-	#8832	"Objekt"
T   4270    0  267   11   40 -	Hp	-	-	#8833	"Avd"
T   4271    0  307   11   24 -	Hp	-	-	#26151	"Faktor"
T   4272    0  331   11   38 -	CHpL	-	-	#861	"Skriv ensk"
T   4273    0  369   11   32 -	CHpL	-	-	#862	"Nollställ"

>FORMFILES lcTableRows ROWS 0
#Id	sp
>FORM win10 ROWS 4 SIZE 26 "TopInfo2"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
D   4309    2   50   13   40 -	pUO	-	-	#26001	""
T   4310    2    2   11   46 -	p	-	-	-	"Rapportkod:"
D   4311    2  158   13  110 -	pO	-	-	#26011	""
T   4312    2  102   11   54 -	p	-	-	-	"Beteckning:"

>FORM tab4 ROWS 1 SIZE 1 "tab4"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
WW  4391   14    2   86  166 -	P	-	win11	-	""

>FORM win11 ROWS 6 SIZE 49 "win11"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
CB  4393    8   64   50   90 -	P	-	cbLevel	-	""
XB  4394   22    6   13   68 -	P	-	xbZeroAccount	#26017	"Nollkonton:"
XB  4395   36    6   13   68 -	P	-	xbBudget	#26016	"Budgetjämförelse:"
CE  4397   50   66  142   90 -	Pc	-	cbCurrency	#26019	""
T   4396   52    8   11   56 -	p	-	-	-	"Valutakod:"
T   4392    9    8   11   56 -	p	-	-	-	"Nivå:"

>FORM tab5 ROWS 1 SIZE 1 "tab5"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
WW  4399   14    2   76  120 -	P	-	win12	-	""

>FORM win12 ROWS 4 SIZE 73 "win12"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
XB  4400    6   12   10   86 -	P	-	xbSeparate	#861	"Skriv enskilda rader"
XB  4401   16   12   10   86 -	P	-	xbMainAccounts	#871	"Huvudkonton"
XB  4402   26   12   10   86 -	P	-	xbDivideFactor	#863	"Division med faktor"
XB  4404   36   12   10   86 -	P	-	xbEmptySum	#862	"Nollställ summering"

>FORM win13 ROWS 34 SIZE 240 "win13"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
D   4449    0   48   13   42 -	PU	-	edFromAccount	#26111	""
D   4450    1  132   13   42 -	PU	-	edToAccount	#26113	""
D   4435   14   48   13   42 -	PU	-	edFromObject	#26119	""
D   4439   15  132   13   42 -	PU	-	edToObject	#26121	""
D   4432   28   48   13   42 -	PU	-	edFromDepartment	#26115	""
D   4424   30  132   12   42 -	PU	-	edToDepartment	#26117	""
D   4423   42   48   13   42 f8.4	P	-	edFactor	#26151	""
D   4420   56   48   13  192 -	P	-	edText	#26131	""
T   4428   30  128   11    4 -	p	-	-	-	"-"
B3  4429   28  112   13   15 -	STpF	-	pbFromDepartment	-	"seek.bmp"
B3  4430   28  102   13    9 -	SxTpfF	-	pbNextDepFrom	-	"arrowr.bmp"
B3  4431   28   92   13    9 -	SxTpfF	-	pbPrevDepFrom	-	"arrowl.bmp"
B3  4425   28  176   13    9 -	SxTpfF	-	pbPrevDepTo	-	"arrowl.bmp"
T   4433   30    2   11   46 -	p	-	txDim2	-	"Avdelning:"
T   4434   16    2   11   46 -	p	-	txDim1	-	"Objekt:"
T   4422   44    2   11   46 -	p	-	-	-	"Faktor:"
B3  4436   14   92   13    9 -	SxTpfF	-	pbPrevObjFrom	-	"arrowl.bmp"
B3  4437   14  102   13    9 -	SxTpfF	-	pbNextObjFrom	-	"arrowr.bmp"
B3  4438   14  112   13   15 -	STpF	-	pbFromObject	-	"seek.bmp"
B3  4426   28  186   13    9 -	SxTpfF	-	pbNextDepTo	-	"arrowr.bmp"
B3  4440   14  176   13    9 -	SxTpfF	-	pbPrevObjTo	-	"arrowl.bmp"
B3  4441   14  186   13    9 -	SxTpfF	-	pbNextObjTo	-	"arrowr.bmp"
B3  4442   14  196   13   15 -	STpF	-	pbToObject	-	"seek.bmp"
T   4443   16  128   11    4 -	p	-	-	-	"-"
T   4444    2    2   11   46 -	p	-	-	-	"Konto:"
T   4445    2  128   11    4 -	p	-	-	-	"-"
B3  4446    0  112   13   15 -	STpF	-	pbFromAccount	-	"seek.bmp"
B3  4447    0  102   13    9 -	SxTpfF	-	pbNextAccFrom	-	"arrowr.bmp"
B3  4448    0   92   13    9 -	SxTpfF	-	pbPrevAccFrom	-	"arrowl.bmp"
B3  4427   28  196   13   15 -	STpF	-	pbToDepartment	-	"seek.bmp"
T   4421   58    2   11   46 -	p	-	-	-	"Text:"
B3  4451    0  176   13    9 -	SxTpfF	-	pbPrevAccTo	-	"arrowl.bmp"
B3  4452    0  186   13    9 -	SxQpfF	-	pbNextAccTo	-	"arrowr.bmp"
B3  4453    0  196   13   15 -	STpF	-	pbToAccount	-	"seek.bmp"

>FORM win14 ROWS 8 SIZE 86 "Layout"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
CE  4463    0   52  132  136 -	Pc	-	cbLayout	#26005	""
D   4461   14   52   13  134 -	P	-	edName	#26011	""
XB  4470   29    0   10  152 -	HP	-	xbRenumber	-	"Numrera om raderna i intervall om 10"
RB  4459   50   60   10   50 -	RHP	-	rbSortObject	-	"Objekt"
RB  4460   60   60   10   50 -	RHP	-	rbSortDepartment	-	"Avdelning"
GB  4458   39   52   36   80 -	Hp	-	gbSort	-	"Sortering"
T   4462   16    1   11   50 -	p	-	txName	-	"Beteckning:"
T   4464    2    1   11   50 -	p	-	txLayout	-	"Layout:"

>FORMFILES win14 ROWS 0
#Id	sp
>FORM win15 ROWS 1 SIZE 1 "edCode"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
D   4466    0    2   13   42 -	PU	-	edCode	#26001	""

>SOURCE
