>TYPE   	D
>NAME   	asptid.d
>CODE   	asptid.cod
>BY     	@(#)$Author: Patrik $
>DATE   	@(#)$Date: 09-05-26 14:54 $
>VERSION	@(#)$Revision: 13 $
>ID     	26085

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

>TEXTINFO ROWS 0 SIZE 0
#id    value    flags    text


>STACK ROWS 200 SIZE 5000

>FONT ROWS 10
#id Hgt Wth Esc Ori Wgt Ita  Ul Sth Chs Opr Clp Qua Pch Name
1    -9   0   0   0 700   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    -9   0   0   0 700   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   0xe5d0b9   	""


>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   140   245 S	-	-	"-"	  0	"PBS - Web Edition"

>FORM MAIN ROWS 21 SIZE 170 "100 Main"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
TB    35   35    5  265  519 -	P	-	tab1	-	"Rapportering tid,Rapportering kostnad"
T   5083    5    5   12   75 -	p	F7	-	-	"Tidrapportering"
T   5084    5  189   12   35 -	p	F7	-	-	"Vecka:"
FU  5086   20    7    2  500 -	p	-	-	-	""
FU    51  333    7    2  500 -	p	-	-	-	""
CB  5080    5  221   50  155 -	p	-	cbWeeks	-	""
WW  5151  311   14   23  474 -	P	-	win8	-	""
WW  5153  311   14   23  474 -	HP	-	win9	-	""
T   5157    5   80   12  107 -	p	F7	txSignature	-	""
WW  5265  311   14   23  474 -	HP	-	win12	-	""
B3  5287   24  396   15   50 -	QP	-	pbTraceOn	-	"alert.gif,Starta inspelning"
B3  5289   24  396   15   50 -	QHP	-	pbTraceOff	-	"alert.gif,Stoppa inspelning"
CB 27002    5  386   50   90 -	P	-	cbModel	-	""
D  27014   27  464    4    8 -	P	-	-	-	""
D  27011   27  466    6    8 -	P	-	-	-	""
D  27012   26  464    7    6 -	P	-	-	-	""
D  27015   29  466    6    9 -	P	-	-	-	""
PB 27016   24  463    6    8 -	P	-	pbEvent2	-	"FrameCmd"
PB 27010   26  462    5    7 -	P	-	pbEvent	-	"FrameCmd"
PB  1125   26  467    9    4 -	P	-	pbFrameCmd2	-	"FrameCmd"
PB  1124   31  467    7    5 -	P	-	pbFrameCmd	-	"FrameCmd"

>FORM tab1 ROWS 2 SIZE 2 "tab1"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
WW    36   12    2  321  500 -	P	-	win1	-	""
WW    55   12    2  315  500 -	HP	-	win3	-	""

>FORMFILES tab1 ROWS 0
#Id	sp
>FORM win1 ROWS 7 SIZE 50 "Tidrapportering"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
TB    37  135    0  150  480 -	P	-	tab2	-	"Tidrapport,Tidsaldo/Godkänn"
WW  5045    0    2  129  515 -	P	-	win5	-	""
WW  5047    0    2  110  500 -	P	-	win6	-	""
RB  5095  115  373   10   50 -	P	-	rbWeekView	-	"Veckovy"
RB  5097  115  423   10   50 -	P	-	rbReportView	-	"Rapportvy"
WW  5156  106    2   25  329 -	P	-	win11	-	""
T   1088  127  134   11  177 -	p	-	-	-	""

>FORMFILES win1 ROWS 0
#Id	sp
>FORM tab2 ROWS 2 SIZE 2 "tab2"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
WW    38   12    4  115  472 -	P	-	win2	-	""
WW  5105   13    0  150  505 -	P	-	win7	-	""

>FORMFILES tab2 ROWS 0
#Id	sp
>FORM win2 ROWS 40 SIZE 229 "Rapport"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
CB  5089    9    4   50   82 -	P	-	cbDate	-	""
D     24    9  110   12   27 -	p	-	edFromTime	#30103	""
D     26    9  146   12   27 -	p	-	edToTime	#30107	""
CB  5292    9  224   50   98 -	p	-	cbAbsence	-	""
D     28   32    4   12   88 -	PU	-	edOrder	#30110	""
CB  5092   32  110   50  100 -	p	-	cbOrder	-	""
D   5079   32  224   12  105 -	Dp	-	edAddress	#3027	""
D   5078   32  328   12  105 -	Dp	-	edProjectName	#3081	""
D   5134   55    4   12   88 -	PU	-	edTimeCode	#30111	""
CB    44   55  110   50  100 -	p	-	cbTimeCode	-	""
CB  5171   55  224   12  202 -	Dp	-	cbRow	-	""
D     46   78    4   12  220 -	P	-	edTranstext	#30121	""
CB  5299   78  224   50  140 -	p	-	cbSalaryArt	-	""
D     48  101    4   11   60 -	P	-	edHours	#30131	""
D   5293  102  110   15   60 -	p	-	edDebHours	-	""
B3  5165   31   82   13   13 -	QPF	-	pbSeekOrder	-	"seek.bmp"
B3  5166   53   82   13   13 -	QPF	-	pbSeekTimeCode	-	"seek.bmp"
D   5039    6  456    6    8 -	p	-	edSelectedCell	-	""
T   5242   25    4   11   60 -	p	F1	-	-	"Ordernr"
T   5244    2    4   11   60 -	p	F1	-	-	"Datum"
T   5245   48    4   11   60 -	p	F1	-	-	"Tidkod"
T   5246   71    4   11   60 -	p	F1	-	-	"Transaktionstext"
T   5247   94    4   11   60 -	p	F1	-	-	"Antal"
T   5249    2  110   11   27 -	p	F1	-	-	"Från kl"
T   5251    2  146   11   27 -	p	F1	-	-	"Till kl"
T   5252   25  110   11   60 -	p	F1	-	-	"Ordernr snabbval"
T   5254   48  224   11   60 -	p	F1	-	-	"Orderrader"
T   5255   25  224   11   60 -	p	F1	-	-	"Kund"
T   5256   25  328   11   60 -	p	F1	-	-	"Projekt"
T   5257   48  110   11   60 -	p	F1	-	-	"Tidkod snabbval"
BM  5276    7  434   11   13 -	Qp	-	-	-	"wweek.bmp"
T   5291    8  402   11   31 -	p	-	-	-	"Kalender"
T     25   10  138   11    5 -	p	-	-	-	"--"
WW  5154   98  185   14  198 -	HP	-	win10	-	""
T   5294   95  110   11   60 -	p	F1	txDebHours	-	"Debiterbara timmar"
T   5295    2  224   11   60 -	p	F1	-	-	"Frånvaro"
PB  5038   18  451   13   17 -	Hp	-	pbTable	-	""
T   5300   71  224   11   60 -	p	F1	txSalaryArt	-	"Löneart"
BM 27006   34   88   20   20 -	Qp	-	pbSeekOrderDisabled	-	"seek.bmp"
BM 27008   55   88   20   20 -	Qp	-	pbSeekTimeCodeDisabled	-	"seek.bmp"

>FORMFILES win2 ROWS 0
#Id	sp
>FORM win3 ROWS 3 SIZE 10 "Kostnader"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
GR    56    3    2  120  470 -	P	-	lcCost	-	""
TB  5023  135    0  123  480 -	p	-	tab3	-	"Kostnad"
WW  5270  111    3   25  329 -	P	-	win13	-	""

>FORMFILES win3 ROWS 0
#Id	sp
>FORM lcCost ROWS 11 SIZE 74 ""
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
T   5011    2    1   11   32 -	Hph	-	-	#10631	"Datum"
T   5012    2   33   11   34 -	Hp	-	-	#10610	"Ordernr"
T   5013    2   67   11   24 -	Hp	-	-	#10612	"Radnr"
T   5014    2   91   11   44 -	Hp	-	-	#10605	"Artikelkod"
T   5015    2  135   11  100 -	Hp	-	-	#10621	"Benämning"
T   5016    2  235   11   30 -	Hp	-	-	#10645	"Löneart"
T   5017    2  265   11   24 -	RHp	-	-	#10641	"Antal"
T   5018    2  289   11   44 -	RHp	-	-	#10651	"Kostnad"
T   5019    2  333   11   44 -	RHp	-	-	#10653	"Deb.bart"
T   5021    2  377   11    0 -	Hp	-	-	#847	""
T   5022    2  377   11    0 -	Hp	-	-	#10691	""

>FORMFILES lcCost ROWS 0
#Id	sp
>FORM tab3 ROWS 1 SIZE 1 "tab3"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
WW  5024   13    2  115  480 -	P	-	win4	-	""

>FORMFILES tab3 ROWS 0
#Id	sp
>FORM win4 ROWS 28 SIZE 178 "Rapport"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
CB  5232    8    6   50   82 -	p	-	cbDateCost	-	""
D   5233   31    6   13   88 -	PU	-	edOrderCost	#10610	""
CB  5258   31  112   50  100 -	p	-	cbOrderCost	-	""
D   5285   31  226   13  105 -	Dp	-	edAddressCost	#3027	""
D   5286   31  330   13  105 -	Dp	-	edProjectNameCost	#3081	""
D   5032   54    6   13   88 -	PU	-	edArtCost	#10605	""
CB  5260   54  112   50  100 -	p	-	cbArtCost	-	""
CB  5262   54  226   13  202 -	p	-	cbRowCost	-	""
D   5034   77    6   13  220 -	P	-	edTranstextCost	#10621	""
D   5235  100    6   13   60 -	PU	-	edQuant	#10641	""
D   5036  101  112   13   60 -	p	-	edCost	#10651	""
D   5264  101  226   13   60 -	p	-	edDebit	#10653	""
T   5027   24    6   11   27 -	p	F1	-	-	"Ordernr"
B3  5236   52   84   13   13 -	QpF	-	pbSeekArtCost	-	"seek.bmp"
T   5029   47    6   11   29 -	p	F1	-	-	"Artikelkod"
T   5031   70    6   11   38 -	p	F1	-	-	"Transaktionstext"
T   5035   93  112   11   30 -	p	F1	-	-	"Kostnad:"
T   5033   93    6   11   21 -	p	F1	-	-	"Antal"
T   5269   93  226   11   41 -	p	F1	-	-	"Debiteras:"
BM  5278    6  436   11   13 -	Qp	-	-	-	"wweek.bmp"
T   5279   24  112   11   60 -	p	F1	-	-	"Ordernr snabbval"
T   5280   47  112   11   60 -	p	F1	-	-	"Artikelkod snabbval"
T   5281   47  226   11   60 -	p	F1	-	-	"Orderrader"
T   5283   24  226   11   60 -	p	F1	-	-	"Kund"
T   5284   24  330   11   60 -	p	F1	-	-	"Projekt"
B3  5234   29   84   13   13 -	QpF	-	pbSeekOrderCost	-	"seek.bmp"
T   5025    1    6   11   33 -	p	F1	-	-	"Datum"
T   5290    7  404   11   60 -	p	-	-	-	"Kalender"

>FORMFILES win4 ROWS 0
#Id	sp
>FORM win5 ROWS 1 SIZE 1 "Rapportvy"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
GR  5050    3    0  124  470 -	P	-	lcReport	-	""

>FORMFILES win5 ROWS 0
#Id	sp
>FORM win6 ROWS 1 SIZE 5 "Veckovy"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
T     41    3    0   11  414 -	p	-	txTable	-	"Text"

>FORMFILES win6 ROWS 0
#Id	sp
>FORM aa ROWS 0 SIZE 0 ""
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label

>FORMFILES aa ROWS 0
#Id	sp
>FORM lcReport ROWS 7 SIZE 55 ""
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
T   5058    1    1   11   35 -	Hp	-	-	#30102	"Datum"
T   5051    1   37   11   40 -	Hp	-	-	#30110	"Ordernr"
T   5052    1   77   11   60 -	Hp	-	-	#30111	"Artikelkod"
T   5053    1  137   11   22 -	Hp	-	-	#30112	"Rad"
T   5059    1  159   11  130 -	Hp	-	-	#30121	"Trans.text"
T   5060    1  289   11   40 -	RHp	-	-	#30131	"Antal"
T   5061    1  329   11   40 -	RHp	-	-	#30133	"Deb.bart"

>FORMFILES lcReport ROWS 4
#Id	sp
301	r
10	r
30	r
34	r
>FORM win7 ROWS 1 SIZE 1 "Saldo"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
GR 27000    4    3  130  469 -	P	-	lcBalance	-	""

>FORMFILES win7 ROWS 0
#Id	sp
>FORM lcBalance ROWS 11 SIZE 44 ""
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
T   5107    1    1   11   68 -	Hp	-	-	#17702	""
T   5108    1   69   11   30 -	RHp	-	-	#17754	"Insaldo"
T   5109    1   99   11   22 -	RHp	-	-	#17703	"Må"
T   5110    1  121   11   22 -	RHp	-	-	#17704	"Ti"
T   5111    1  143   11   22 -	RHp	-	-	#17705	"On"
T   5112    1  165   11   22 -	RHp	-	-	#17706	"To"
T   5113    1  187   11   22 -	RHp	-	-	#17707	"Fr"
T   5114    1  209   11   22 -	RHp	-	-	#17708	"Lö"
T   5115    1  231   11   22 -	RHp	-	-	#17709	"Sö"
T   5116    1  253   11   30 -	RHp	-	-	#17751	"Summa"
T   5117    1  283   11   30 -	RHp	-	-	#17752	"Utsaldo"

>FORMFILES lcBalance ROWS 0
#Id	sp
>FORM win8 ROWS 5 SIZE 96 "Tidpanel"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
B3    52    2    5   15   50 -	QP	-	pbSave	-	"Save.bmp,Spara"
B3    54    2   65   15   50 -	QP	-	pbDelete	-	"delete.bmp,Ta bort"
B3    53    2  125   15   50 -	QP	-	pbNew	-	"new.bmp,Ny"
B3  5100    2  345   15   50 -	QP	-	pbApproveTab	-	"accept.gif,Avsluta och Godkänn ..."
B3 27004    4  193   15   50 -	QHP	-	pbAddon	-	"new.bmp,Tillägg"

>FORMFILES win8 ROWS 0
#Id	sp
>FORM win9 ROWS 5 SIZE 59 "Godkännpanel"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
T   5143    5  239   11   45 -	p	-	txApproveTo	-	"Klar till datum:"
CB  5141    3  291   50   90 -	P	-	cbApproveDate	-	""
B3  5142    2  393   15   50 -	QDP	-	pbApprove	-	"oktid.gif, Verkställ"
CB  5160    3   65   50   81 -	P	-	cbPrintFormat	#851	""
B3  5159    2  159   15   50 -	QDP	-	pbPrint	-	"print.gif,Skriv ut"

>FORMFILES win9 ROWS 0
#Id	sp
>FORM win10 ROWS 3 SIZE 58 "Multitransaktion"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
B3  5139    0  138   15   50 -	Qpq	-	pbNext	-	"lcright.bmp,Nästa"
B3  5138    0   67   15   50 -	Qp	-	pbPrevious	-	"lcleft.bmp,Föregående"
T   5155    2    3   11   57 -	p	-	-	-	"Välj transaktion:"

>FORMFILES win10 ROWS 0
#Id	sp
>FORM win11 ROWS 3 SIZE 24 "Kvitto"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
T   5137   10   23   11  239 -	p	-	txReceipt	-	""
BM  5144    9    8   15   15 -	Qp	-	pError	-	"alert.gif"
BM  5145   10    7   15   15 -	Qp	-	pOK	-	"check_ok.bmp"

>FORMFILES win11 ROWS 0
#Id	sp
>FORM win12 ROWS 3 SIZE 45 "Kostnadpanel"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
B3  5266    2    5   15   50 -	QP	-	pbSaveCost	-	"save.bmp,Spara"
B3  5268    2   65   15   50 -	QP	-	pbDeleteCost	-	"delete.bmp,Ta bort"
B3  5267    2  125   15   50 -	QP	-	pbNewCost	-	"new.bmp,Ny"

>FORMFILES win12 ROWS 0
#Id	sp
>FORM win13 ROWS 3 SIZE 24 "Kvitto"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
BM  5272   10    9   15   15 -	Qp	-	pOKCost	-	"check_ok.bmp"
T   5273   10   23   11  239 -	p	-	txReceiptCost	-	""
BM  5274    9    9   15   15 -	Qp	-	pErrorCost	-	"alert.gif"

>FORMFILES win13 ROWS 0
#Id	sp
>SOURCE
