>TYPE   	D
>NAME   	120.d
>CODE   	120.cod
>BY     	@(#)$Author: Peter $
>DATE   	@(#)$Date: 07-10-25 14:03 $
>VERSION	@(#)$Revision: 10 $
>ID     	1051

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

>TEXTINFO ROWS 89 SIZE 2054
#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,&2.Orderkonto
IDL_166  166  -  ,&3.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  -  ,&4.Intrastat
IDL_186  186  -  &1.Radegn,&2.Beräkning,&3.Orderkonto
IDL_187  187  -  Radnummer %1 saknas i projekt
IDL_188  188  -  Tidartikel


>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 9
#id Eventname	ParamList
1083	GetDepObj	(str sDep,str sObj)
1084	SelectReporting	()
1091	NewProjectRow	(str sOrder, str sRow)
1101	TempSerialODeliveryCreate	()
1102	TempSerialOdeliveryUpdateTemp	()
1103	TempSerialODeliveryUpdateSer	()
1115	TempLplODeliveryCreate	()
1116	TempLplODeliveryWriteLpl	(int iWorkLu)
1117	TempLplODeliveryUpdateTemp	(int iWorkLu)


>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  346  424   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  285    4   16  279 -	Pw	-	win10	-	""
WW  2022    0    0   32  374 -	P	-	win3	-	""
TB  2163  117    4  164  416 -	PZ	-	tab2	-	"Tidrapportering"
GR  2032   35    4   80  412 -	PWZ	-	lcTable	-	""

>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   18  176   11   48 -	p	-	-	-	"Ersättning"
T   2265   18    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  148  413 -	P	-	win15	-	""

>FORMFILES tab2 ROWS 0
#Id	sp
>FORM win15 ROWS 2 SIZE 19 "win15"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
WW  2069    2    1  122  197 -	P	-	win9	-	""
TB  2047    3  199  144  212 -	PB	-	tab1	-	"Radegn,Orderkonto"

>FORMFILES win15 ROWS 0
#Id	sp
>FORM tab1 ROWS 3 SIZE 3 "tab1"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
WW  2048   16    2  128  210 -	P	-	win8	-	""
WW  2222   16    1  124  210 -	HP	-	win18	-	""
WW  2275   15    2  128  208 -	P	-	win21	-	""

>FORMFILES tab1 ROWS 0
#Id	sp
>FORM win8 ROWS 9 SIZE 73 "Radegn"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
D   2097    5   56   12   34 -	P	-	edRowNr	#3403	""
XB  2112   17    4   13   86 -	P	-	xbDebit	#3671	"Debiterbart:"
XB  2113   30    4   13   86 -	P	-	xbReadyToInv	#3485	"Klar att fakturera:"
XB  2269   45    4   10   86 -	P	-	xbShowTrans	-	"Visa trans. på faktura:"
WW  2204   74    1   50  166 -	P	-	win17	-	""
WW  2153   74    0   52  166 -	P	-	win14	-	""
WW  2188   74    0   52  166 -	P	-	win16	-	""
T   2106    5    4   11   46 -	p	-	txRowNr	-	"Radnummer:"
WW  2148   74    0   52  166 -	P	-	win13	-	""

>FORMFILES win8 ROWS 0
#Id	sp
>FORM win9 ROWS 2 SIZE 2 "win9"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
WW  2123    3    2   42  196 -	P	-	win11	-	""
WW  2134   45    2   75  193 -	P	-	win12	-	""

>FORMFILES win9 ROWS 0
#Id	sp
>FORM win10 ROWS 4 SIZE 78 "win10"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
B3  2160    0    2   15   62 -	TP	-	pbSaveRow	-	"save.bmp,S&para rad"
B3  2161    0   66   15   62 -	TP	-	pbNewRow	-	"new.bmp,N&y rad"
B3  2162    0  130   15   62 -	TP	-	pbMakRow	-	"del.bmp,&Makulera rad"
B3  2277    0  194   15   62 -	THDP	-	pbDimensionsX	-	"dim.bmp,Kontopalett"

>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    1  155   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  110 A25	PU	-	edArtCode	#10605	""
CE  2142   14   44  158   54 -	Pc	-	cbWageArt	#10645	""
CE  2140   28   44  144   68 -	Pc$	-	cbActivCode	#10675	""
D   2145   43   44   13   90 -	P$	-	edName	#10621	""
D   2147   56   44   13   90 -	P	-	edQuant	#10641	""
B3  2137    2  157   13    9 -	xTpfF	-	pbArtCodePrev	-	"arrowl.bmp"
T   2141   30    0   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   44    0   11   42 -	p	-	txName	-	"Benämning:"
B3  2138    2  167   13    9 -	xTpfF	-	pbArtCodeNext	-	"arrowr.bmp"
T   2146   57    0   11   42 -	p	-	txQuant	-	"Antal:"
B3  2139    2  177   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    3    4   11   46 -	p	-	txCalcPrice	-	"Kalkylpris:"
D   2150    3   56   13   60 p	P	-	edCalcPrice	#3554	""
T   2151   18    4   11   46 -	p	-	txNormPrice	-	"Normalpris:"
D   2152   17   56   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    1   56   13   60 -	pO	-	edNPrice	#3551	""
D   2155   15   56   13   60 -	P	-	edCost	#10651	""
D   2156   29   56   13   60 -	P	-	edDebitPrice	#10653	""
T   2157    2    4   11   46 -	p	-	-	-	"Normalpris:"
T   2158   16    4   11   46 -	p	-	-	-	"Kostnad:"
T   2159   30    4   11   46 -	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    3   56   13   60 -	P	-	edBuyPrice	#3554	""
T   2190    3    4   11   39 -	p	-	-	-	"Inköpspris:"
D   2191   17   56   13   60 -	P	-	edNormalPrice	#3585	""
T   2192   18    4   11   40 -	p	-	-	-	"Normalpris:"
T   2194    3  119   11   38 -	p	-	txSEK1	-	"SEK"
T   2195   18  119   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    1   56   13   60 -	P	-	edV2Norm	#3551	""
T   2206    2    4   11   46 -	p	-	-	-	"Normalpris:"
D   2207   15   56   13   60 -	P	-	edV2Cost	#10651	""
T   2208   16    4   11   46 -	p	-	-	-	"Kostnad:"
D   2209   29   56   13   60 -	P	-	edV2Deb	#10653	""
T   2210   30    4   11   46 -	p	-	-	-	"Debiteras:"
T   2211    2  120   11   20 -	p	-	txSEK2	-	"SEK"
T   2212   16  120   11   20 -	p	-	txSEK3	-	"SEK"
T   2213   29  120   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	""

>FORMFILES win18 ROWS 0
#Id	sp
>FORM win19 ROWS 4 SIZE 33 "win19"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
T   2238    0    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    2    4   11   46 -	p	-	-	-	"Personpris  in:"
T   2244   13   40   11   10 -	p	-	-	-	"ut:"
T   2247    1   56   11   60 -	p	-	-	#1951	"Kostnad"
T   2250   13   56   11   60 -	p	-	-	#1953	"Pris"

>FORM win21 ROWS 1 SIZE 12 "win21"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
L   2276   12   14   11   60 -	p	-	-	-	"dimtab34.di"

>FORMFILES win21 ROWS 0
#Id	sp
>SOURCE
