>TYPE   	D
>NAME   	120.d
>CODE   	120.cod
>BY     	@(#)$Author: Annhe $
>DATE   	@(#)$Date: 06-01-20 14:49 $
>VERSION	@(#)$Revision: 13 $
>ID     	1051

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

>TEXTINFO ROWS 88 SIZE 2015
#id    value    flags    text
IDL_100  100  -  %1 saknas
IDL_101  101  -  Endast tillåtet vid nyregistrering
IDL_102  102  -  Reserverat för acontorader
IDL_103  103  -  Radnr 0 ej tillåtet
IDL_104  104  -  Radnumret finns redan
IDL_105  105  -  Avvikande momskod
IDL_106  106  -  Artikeln saknas. Nyregistrera
IDL_107  107  -  Spara rad
IDL_108  108  -  Antal måste anges
IDL_109  109  -  Datum måste anges
IDL_110  110  -  Kosnad måste anges
IDL_111  111  -  Avvikande momskod
IDL_112  112  -  Kunde inte finna orderrad
IDL_113  113  -  Ska artikeln ha en statistikkod
IDL_114  114  -  Pristyp saknas
IDL_115  115  -  Fel vid uppdatering av orderhuvud
IDL_116  116  -  Textrad
IDL_117  117  -  Kan inte behandlas i denna rutin
IDL_118  118  -  Inget att rapportera
IDL_119  119  -  Signatur måste fyllas i
IDL_120  120  -  Datum måste fyllas i
IDL_121  121  -  Ordernummer måste fyllas i
IDL_122  122  -  Ej tillåtet vid direktuppdatering av projekt
IDL_123  123  -  Signaturen saknas
IDL_124  124  -  Journalfel
IDL_125  125  -  Lagerförd artikel ej tillgänglig vid tidrapport
IDL_126  126  -  Rapportering påbörjad
IDL_127  127  -  Radera rad %1
IDL_128  128  -  Makulera rapportering
IDL_129  129  -  Avvikande betalningsvillkor. Samlingsfakturera
IDL_130  130  -  Ej bankdag
IDL_131  131  -  Ej kundadress
IDL_132  132  -  Klar att fakturera
IDL_133  133  -  Inget att skriva
IDL_134  134  -  Inget att rapportera
IDL_135  135  -  F6:Nästa rad
IDL_136  136  -  Slut på orderrader
IDL_137  137  -  Samma antal måste anges i serienummer och lagerplatser
IDL_138  138  -  Tidrapporter saknas
IDL_139  139  -  F3:Visa order
IDL_140  140  -  F3:Nyregistrera order
IDL_141  141  -  Artikelkoden saknas i projektet
IDL_142  142  -  Artikel måste anges
IDL_143  143  -  Antal måste anges
IDL_144  144  -  Tidrapporter ej efterbehandlade
IDL_145  145  -  Makulera rapportering
IDL_146  146  -  Signatur måste fyllas i
IDL_147  147  -  Datum måste fyllas i
IDL_148  148  -  Ordernummer måste fyllas i
IDL_149  149  -  Antal måste fyllas i
IDL_150  150  -  Pristyp saknas
IDL_151  151  -  Statistikkod måste fyllas i
IDL_152  152  -  Pristyp måste fyllas i
IDL_153  153  -  Nettovikt måste fyllas i
IDL_154  154  -  Antalet får inte vara noll
IDL_155  155  -  Artikelkod kan bara vara %1 tecken
IDL_156  156  -  Rapportering blir icke debiterbar. Raden måste ändras till debiterbar först!
IDL_157  157  -  Budget %1:
IDL_158  158  -  Rapporterat %1:
IDL_159  159  -  120 Rapportering
IDL_160  160  -  120 Tidrapportering
IDL_161  161  -  120 Efterbehandla tidrapport
IDL_162  162  -  120 Kundfaktura
IDL_163  163  -  120 Ändra projektstatus
IDL_164  164  -  120 Skriv tidrapport
IDL_165  165  -  &1.Radegn
IDL_166  166  -  ,&2.Intrastat
IDL_167  167  -  120 Tidrapportering
IDL_168  168  -  Tidrapport&journal
IDL_169  169  -  Efter&b. tidrapport
IDL_170  170  -  Kommentar
IDL_171  171  -  F5: Ändra
IDL_172  172  -  F3: Nyreg order
IDL_173  173  -  Artikelkoden saknas i projektet
IDL_174  174  -  Tidrapporter ej efterbehandlade
IDL_175  175  -  F3: Visa order
IDL_176  176  -  statistikkod
IDL_177  177  -  nettovikt
IDL_178  178  -  annan kvantitet
IDL_179  179  -  Kund
IDL_180  180  -  Radnummer
IDL_181  181  -  F6:  Auto, nästa artikel
IDL_182  182  -  Endast tillåtet vid nyregistrering
IDL_183  183  -  Reserverat för acontorader
IDL_184  184  -  Registrerad som kontraktsrad, ingen rapportering tillåts på samma rad
IDL_185  185  -  ,&3.Intrastat
IDL_186  186  -  &1.Radegn,&2.Beräkning
IDL_187  187  -  Radnummer %1 saknas i projekt


>STACK ROWS 100 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 8
#id color	comment
1   0xff0000   	""
2   0xff       	""
3   0xff00ff   	""
4   0xffffff   	""
5   0xc0c0c0   	""
6   0x80       	""
7   0x808080   	""
8   0x0        	""


>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 3
#id Eventname	ParamList
1083	GetDepObj	(str sDep,str sObj)
1084	SelectReporting	()
1091	NewProjectRow	(str sOrder, str sRow)


>WINDOW ROWS 1
#id       x     y    cy    cx sp1	sp2	Bitmap	font	size	caption
5511     10    10   390   500 SBL	-	-	"-"	  0	"120 Rapportering"

>FORM MAIN ROWS 6 SIZE 22 "100 Main"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
WW  2034   24    4   35  420 -	P	-	win5	-	""
WW  2021   62    2  300  420 -	PWZ	-	win2	-	""
WW  2042   62    2  300  422 -	PWZ	-	win6	-	""
WW  2043   98  424   74   72 -	Pz	-	win7	-	""
WW   621    4    4   18  494 -	PZ	-	win1	-	""
B3     2  338  426   15   70 -	xTPwz	-	pbClose	-	"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  492 -	pZ	-	-	-	""

>FORM win2 ROWS 4 SIZE 19 "Tidsrapport"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
WW  2119  274    4   18  279 -	Pw	-	win10	-	""
WW  2022    0    0   32  374 -	P	-	win3	-	""
GR  2032   36    4   70  412 -	PWZ	-	lcTable	-	""
TB  2163  108    4  164  416 -	PZ	-	tab2	-	"Tidrapportering"

>FORMFILES win2 ROWS 0
#Id	sp
>FORM win3 ROWS 8 SIZE 39 "TopInfo"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
D   2024   16   34   13  130 -	pO	-	-	#3081	""
D   2025    2  226   13   70 -	pO	-	-	#8331	""
D   2026   16  226   13   70 -	pO	-	-	#8591	""
T   2029    4  176   11   48 -	p	-	-	-	"Ack. tid"
T   2030   17  176   11   48 -	p	-	-	-	"Ersättning"
T   2265   17    4   11   30 -	p	-	-	-	"Projekt:"
D   2266    2   34   13  130 -	PO	-	-	#2021	""
T   2267    4    4   11   30 -	p	-	-	-	"Kund:"

>FORMFILES win3 ROWS 0
#Id	sp
>FORM win5 ROWS 6 SIZE 178 "Comando"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
B3  2036    2    0   15   90 -	TPM	-	pbRepPerOrder	-	"Nothing.bmp, Rapp&ortera per order"
B3  2035    2   92   15   90 -	TPM	-	pbTimeRep	-	"timerep.bmp, T&idrapport"
B3  2041    2  184   15   90 -	TPM	-	pbWriteTimeRep	-	"print.bmp, Skriv ti&drapport"
B3  2037    2  276   15   90 -	TPM	-	pbFinishTreat	-	"timeok.bmp, Efter&b. tidrapport"
B3  2039   19    0   15   90 -	TPM	-	pbCustInv	-	"Nothing.bmp, &Kundfaktura"
B3  2040   19   92   15   90 -	TPM	-	pbChangeProjStat	-	"edit.bmp, Ä&ndra projektstatus"

>FORM win6 ROWS 1 SIZE 9 "PerOrder"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
L   2090   54  114   11   60 -	p	-	-	-	"120_O.di"

>FORMFILES win6 ROWS 0
#Id	sp
>FORM win7 ROWS 2 SIZE 38 "Operations"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
B3  2045    2    2   15   70 -	TP	-	pbDiary	-	"Bok.bmp, Da&gbok"
B3  2264   20    2   15   70 -	THP	-	pbActivity	-	"new.bmp,Ny aktivitet"

>FORMFILES win7 ROWS 0
#Id	sp
>FORM tab2 ROWS 1 SIZE 1 "tab2"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
WW  2164   12    2  150  405 -	P	-	win15	-	""

>FORMFILES tab2 ROWS 0
#Id	sp
>FORM win15 ROWS 2 SIZE 8 "win15"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
WW  2069    1    4  122  216 -	P	-	win9	-	""
TB  2047    4  224  144  177 -	PB	-	tab1	-	"Radegn"

>FORM tab1 ROWS 2 SIZE 2 "tab1"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
WW  2048   14    2  128  172 -	P	-	win8	-	""
WW  2222   14    2  124  172 -	HP	-	win18	-	""

>FORM win8 ROWS 17 SIZE 101 "Radegn"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
D   2097    2   50   13   30 -	P	-	edRowNr	#3403	""
XB  2112   17    2   13   57 -	P	-	xbDebit	#3671	"Debiterbart:"
XB  2113   16   66   13   68 -	P	-	xbReadyToInv	#3485	"Klar att fakturera:"
D   2100   32   50   13   60 -	PU	-	edAccount	#3596	""
D   2101   46   50   13   60 -	PU	-	edObj	#3599	""
D   2102   60   50   13   60 -	PU	-	edDep	#3598	""
WW  2204   74    0   50  166 -	P	-	win17	-	""
WW  2148   74    0   52  166 -	P	-	win13	-	""
WW  2188   74    0   52  166 -	P	-	win16	-	""
WW  2153   74    0   52  166 -	P	-	win14	-	""
T   2109   34    4   11   44 -	p	-	txAccount	-	"Konto:"
T   2106    4    4   11   44 -	p	-	txRowNr	-	"Radnr:"
T   2114   48    4   11   44 -	p	-	txObj	-	"Objekt:"
T   2115   62    4   11   44 -	p	-	txDep	-	"Avdelning:"
B3  2116   33  112   13   15 -	xTpfF	-	pbAccount	-	"Seek.bmp"
B3  2117   47  112   13   15 -	xTpfF	-	pbObj	-	"seek.bmp"
B3  2118   62  112   13   15 -	xTpfF	-	pbDep	-	"seek.bmp"

>FORM win9 ROWS 2 SIZE 2 "win9"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
WW  2123    3    6   42  202 -	P	-	win11	-	""
WW  2134   45    6   60  212 -	P	-	win12	-	""

>FORM win10 ROWS 3 SIZE 58 "win10"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
B3  2160    2    2   15   62 -	TP	-	pbSaveRow	-	"save.bmp,S&para rad"
B3  2161    2   67   15   62 -	TP	-	pbNewRow	-	"new.bmp,N&y rad"
B3  2162    2  130   15   62 -	TP	-	pbMakRow	-	"del.bmp,&Makulera rad"

>FORMFILES win10 ROWS 0
#Id	sp
>FORM win11 ROWS 11 SIZE 70 "win11"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
D   2251    0   44   13   34 -	PU	-	edSign	#8825	""
DP  2127   14   44   13   90 D8	P	-	dpDate	#8711	""
D   2129   28   44   13   90 -	PU	-	edOrder	#8130	""
B3  2132   28  144   13    9 -	xTpfF	-	pbOrderNext	-	"arrowr.bmp"
B3  2131   28  154   13   15 -	xTpfF	-	pbOrder	-	"seek.bmp"
T   2126   16    0   11   42 -	p	-	txDate	-	"Datum:"
T   2128   30    0   11   42 -	p	-	txOrder	-	"Ordernr:"
T   2124    2    0   11   42 -	p	-	txSign	-	"Signatur:"
B3  2130   28  136   13    9 -	xTpfF	-	pbOrderPrev	-	"arrowl.bmp"
D   2252    0   81   13   70 -	pO	-	edSignInfo	-	""
B3  2254    0  153   13   15 -	xTpfF	-	pbSign	-	"seek.bmp"

>FORMFILES win11 ROWS 0
#Id	sp
>FORM win12 ROWS 13 SIZE 87 "win12"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
D   2136    0   44   13   90 A20	PU	-	edArtCode	#10605	""
CE  2142   14   44   50   54 -	Pc	-	cbWageArt	#10645	""
CE  2140   14  142   50   68 -	Pc$	-	cbActivCode	#10675	""
D   2145   28   44   13   90 -	P$	-	edName	#10621	""
D   2147   42   44   13   90 -	P	-	edQuant	#10641	""
B3  2137    0  134   13    9 -	xTpfF	-	pbArtCodePrev	-	"arrowl.bmp"
T   2141   16  100   11   40 -	p	-	txActivCode	-	"Verksamhet:"
T   2135    2    0   11   42 -	p	-	txArtCode	-	"Artikelkod:"
T   2143   16    0   11   42 -	p	-	txWageArt	-	"Löneart:"
T   2144   30    0   11   42 -	p	-	txName	-	"Benämning:"
B3  2138    0  142   13    9 -	xTpfF	-	pbArtCodeNext	-	"arrowr.bmp"
T   2146   44    0   11   42 -	p	-	txQuant	-	"Antal:"
B3  2139    0  152   13   15 -	xTpfF	-	pbArtCode	-	"seek.bmp"

>FORMFILES win12 ROWS 0
#Id	sp
>FORM win13 ROWS 5 SIZE 37 "TimeWin"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
T   2149    4    2   11   42 -	p	-	txCalcPrice	-	"Kalkylpris:"
D   2150    2   50   13   60 p	P	-	edCalcPrice	#3554	""
T   2151   18    2   11   40 -	p	-	txNormPrice	-	"Normalpris:"
D   2152   16   50   13   60 p	P	-	edNormPrice	#3551	"Normalpris"
WW  2242   28    0   24  164 -	P	-	win20	-	""

>FORMFILES win13 ROWS 0
#Id	sp
>FORM win14 ROWS 6 SIZE 35 "ElseWin"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
D   2154    0   50   13   60 -	pO	-	edNPrice	#3551	""
D   2155   14   50   13   60 -	P	-	edCost	#10651	""
D   2156   28   50   13   60 -	P	-	edDebitPrice	#10653	""
T   2157    0    0   11   44 -	p	-	-	-	"Normalpris:"
T   2158   14    0   11   44 -	p	-	-	-	"Kostnad:"
T   2159   27    0   11   44 -	p	-	-	-	"Debiteras:"

>FORMFILES win14 ROWS 0
#Id	sp
>FORM lcTable ROWS 10 SIZE 78 ""
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
T   2255    1    1   11   47 -	Hph	-	-	#10610	"Ordernr"
T   2256    1   48   11   28 -	Hph	-	-	#10612	"Rad"
T   2257    1   76   11   29 -	Hp	-	-	#10691	"Sign."
T   2258    1  105   11   29 -	Hph	-	-	#10645	"Löneart"
T   2259    1  135   11   70 -	Hp	-	-	#10605	"Artikelkod"
T   2260    1  205   11   80 -	Hph	-	-	#10621	"Benämning"
T   2261    1  285   11   39 -	RHph	-	-	#10641	"Antal"
T   2262    1  324   11   30 -	Hp	-	-	#10631	"Datum"
T   2263    1  354   11   46 -	RHph	-	-	#10653	"Belopp"
T   2268    1  400   11    0 -	Hp	-	-	#10671	"Debiterbart"

>FORMFILES lcTable ROWS 1
#Id	sp
106	r
>FORM win16 ROWS 7 SIZE 41 "win16"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
D   2189    2   50   13   60 -	P	-	edBuyPrice	#3554	""
T   2190    4    4   11   39 -	p	-	-	-	"Inköpspris:"
D   2191   17   50   13   60 -	P	-	edNormalPrice	#3585	""
T   2192   17    4   11   40 -	p	-	-	-	"Normalpris:"
T   2194    4  112   11   38 -	p	-	txSEK1	-	"SEK"
T   2195   18  112   11   38 -	p	-	txVal	#3163	"Valutakod"
WW  2237   28    2   24  164 -	P	-	win19	-	""

>FORMFILES win16 ROWS 0
#Id	sp
>FORM win17 ROWS 9 SIZE 47 "win17"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
D   2205    0   50   13   60 -	P	-	edV2Norm	#3551	""
T   2206    2    4   11   43 -	p	-	-	-	"Normalpris:"
D   2207   14   50   13   60 -	P	-	edV2Cost	#10651	""
T   2208   16    4   11   43 -	p	-	-	-	"Kostnad:"
D   2209   28   50   13   60 -	P	-	edV2Deb	#10653	""
T   2210   30    4   11   43 -	p	-	-	-	"Debiteras:"
T   2211    0  114   11   20 -	p	-	txSEK2	-	"SEK"
T   2212   15  114   11   20 -	p	-	txSEK3	-	"SEK"
T   2213   29  114   11   20 -	p	-	txSEK4	-	"SEK"

>FORMFILES win17 ROWS 0
#Id	sp
>FORM win18 ROWS 12 SIZE 89 "Intrastat"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
CE  2223    2   72  208   90 -	Pc	-	cbTransactioncode	#3466	""
CE  2224   16   72  178   90 -	Pc	-	cbStatisticsCode	#3465	""
CB  2225   30   72  160   90 -	P	-	cbPriceType	#3467	""
D   2226   44   72   13   60 -	P	-	edNetWeight	#3468	""
T   2228    4    4   11   56 -	p	-	txTransactioncode	-	"Transaktionskod:"
T   2229   18    4   11   54 -	p	-	txStatisticsCode	-	"Statistikkod:"
T   2230   32    4   11   54 -	p	-	txPricetype	-	"Pristyp:"
T   2231   46    4   11   54 -	p	-	txNetWeight	-	"Nettovikt:"
T   2232   60    4   11   54 -	p	-	txOtherQuantity	-	"Annan kvantitet:"
T   2233   46  136   11   30 -	p	-	txNetWeightPerUnit	-	"per enh"
T   2234   60  136   11   30 -	p	-	txOtherQPerUnit	-	"per enh"
D   2236   58   72   13   60 -	P	-	edOtherQuantity	#3469	""

>FORM win19 ROWS 4 SIZE 33 "win19"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
T   2238    1    2   11   46 -	p	-	-	-	"Personpris  in:"
T   2239    0   48   11   60 -	p	-	-	#1951	"Kostnad"
T   2240   12   36   11   10 -	p	-	-	-	"ut:"
T   2241   12   48   11   60 -	p	-	-	#1953	"Pris"

>FORM win20 ROWS 4 SIZE 33 "win20"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
T   2243    1    2   11   46 -	p	-	-	-	"Personpris  in:"
T   2244   13   38   11   10 -	p	-	-	-	"ut:"
T   2247    0   50   11   60 -	p	-	-	#1951	"Kostnad"
T   2250   13   50   11   60 -	p	-	-	#1953	"Pris"

>SOURCE
