>TYPE   	D
>NAME   	rentdeb.d
>CODE   	rentdeb.cod
>BY     	@(#)$Author: Helene $
>DATE   	@(#)$Date: 05-05-25 14:06 $
>VERSION	@(#)$Revision: 3 $
>ID     	22514

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

>TEXTINFO ROWS 16 SIZE 278
#id    value    flags    text
IDL_100  100  -  Antal måste anges
IDL_101  101  -  Avvikande momskod
IDL_102  102  -  Makulera rad
IDL_103  103  -  Spara rad
IDL_104  104  -  Samma antal måste anges i serienummer och lagerplatser
IDL_105  105  -  Kunde inte hitta orderrad
IDL_107  107  -  F3:Debiteringsantal
IDL_108  108  -  Klar att fakturera
IDL_110  110  -  Betalningsvillkor måste anges
IDL_111  111  -  Timme
IDL_112  112  -  Dygn
IDL_113  113  -  Vecka
IDL_114  114  -  Månad
IDL_115  115  -  Rapporterat %1:
IDL_116  116  -  Rapporterat:
IDL_117  117  -  Rapp. inkl moms:


>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 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	"Debitering"

>FORM MAIN ROWS 7 SIZE 42 "100 Main"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
WW   621    4    4   16  510 -	PZ	-	win1	-	""
WW  2307   22    4   34  436 -	PZ	-	win4	-	""
TB  2317  192    6  116  436 -	PZw	-	tab1	-	"Ar&tikelrad,Te&xtrad"
WW  2353  310    6   18  410 -	Pw	-	win9	-	""
WW  2357   62  443  130   74 -	Pz	-	win10	-	""
GR  2316   60    4  124  436 -	PWZ	-	lcTable	-	""
B3     2  310  445   15   70 -	QPwz	-	pbExit	-	"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  510 -	pZ	-	-	-	""

>FORM win4 ROWS 11 SIZE 64 "Huvud"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
D   2310    4   46   13  164 -	pfO	-	edCustomerName	#2021	""
D   2312   18   46   13   48 -	pfUO	-	edOrder	-	""
D   3247   18  248   13   60 -	pO	-	edToPay	-	""
D   3232    4  370   13   60 -	pfO	-	edSum	-	""
D   3233   18  370   13   60 -	pfO	-	edSumSek	-	""
T   2311    6    4   11   42 -	p	-	-	-	"Kund:"
T   2313   20    4   11   42 -	p	-	-	-	"Ordernr:"
T   3236   20  312   11   56 -	p	-	txSumSek	-	"Rapp. inkl. moms:"
T   3235    6  312   11   56 -	p	-	txSum	-	"Rapporterat:"
T   3248   20  212   11   34 -	p	-	-	-	"Att betala:"
FR  3060    2    2   30  431 -	pZ	-	-	-	""

>FORMFILES win4 ROWS 0
#Id	sp
>FORM tab1 ROWS 2 SIZE 2 "tab1"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
WW  2318   12    2  102  430 -	PZ	-	win5	-	""
WW  2319   12    0  102  430 -	PZ	-	win6	-	""

>FORMFILES tab1 ROWS 0
#Id	sp
>FORM win5 ROWS 23 SIZE 152 "Artikel"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
TB  2339    2  226   88  196 -	PZB	-	tab2	-	"&1.Radegn,&2.Bokningsinfo"
D   2321    2   46   13   82 A20	PU	-	edArt	#3401	""
D   2326   16   46   13  142 -	P$	-	edArtName	#3421	""
D   2328   30   46   13   56 -	P	-	edNormPrice	#3551	""
D   2330   44   46   13   56 -	P	-	edQuantity	#3541	""
CE  3201   44  146   50   58 -	Pc	-	cbUnit	#3431	""
D   2332   58   46   13   56 f.3	P	-	edDiscount	#3553	""
D   3225   72   46   13   56 -	P	-	edCost	#3651	""
D   2334   87   46   13   56 -	P	-	edAmount	#3653	""
D   2336   86  146   13   58 1	pO	-	edAmountIncl	-	""
B3  2323    2  136   13    9 -	SxTpfF	-	pbNextArt	-	"arrowr.bmp"
T   2331   60    4   11   38 -	p	-	-	-	"Rabatt %:"
B3  2324    2  144   13   15 -	SxTpfF	-	pbArt	-	"seek.bmp"
T   2333   88    4   11   38 -	p	-	-	-	"Belopp:"
T   2325   18    4   11   38 -	p	-	-	-	"Benämning:"
T   2335   88  112   11   32 -	p	-	txAmountIncl	-	"Inkl:"
T   2320    4    4   11   38 -	p	-	-	-	"Artikelkod:"
T   2327   32    4   11   38 -	p	-	-	-	"Normalpris:"
B3  2322    2  128   13    9 -	SxTpfF	-	pbPrevArt	-	"arrowl.bmp"
T   3202   46  112   11   32 -	p	-	-	-	"Enhet:"
T   2329   46    4   11   38 -	p	-	-	-	"Antal:"
T   3226   74    4   11   38 -	p	-	-	-	"Kostnad:"
T   3241   74  106   11   20 -	p	-	txSEK	-	"SEK"

>FORMFILES win5 ROWS 0
#Id	sp
>FORM win6 ROWS 16 SIZE 198 "Text"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
RB  2360   18   12   10   86 -	RP	-	rbAllForms	-	"Alla"
RB  2361   28   12   10   86 -	RP	-	rbMarkedForms	-	"Markerade blanketter"
XB  2366    8  114   10   70 -	Rp	-	xbForm1	-	"Faktura"
XB  2367   18  114   10   70 -	Rp	-	xbForm2	-	"Ordererkännande"
XB  2368   28  114   10   70 -	Rp	-	xbForm3	-	"Arbetsorder"
XB  2369   38  114   10   70 -	Rp	-	xbForm4	-	"Offert"
XB  2363    8  212   10   70 -	Rp	-	xbForm5	-	"Fraktsedel"
XB  2364   18  212   10   70 -	Rp	-	xbForm6	-	"Plocklista"
XB  2365   28  212   10   70 -	Rp	-	xbForm7	-	"Pack-/Följesedel"
GB  2362    0    2   56  306 -	p	-	-	-	"Blanketter"
D   2371   60   48   13   36 -	P	-	edTextRowNum	#3403	""
XB  2372   58  128   13  160 -	P	-	xbFixedText	#3437	"Fast text (ej kopplad till föregående artikelrad):"
D   2374   74   48   13  246 SA70	P$	-	edText	#3434	""
T   2373   75    6   10   40 -	p	-	-	-	"Fri text:"
B3  2375   74  296   13   15 -	xTpfF	-	pbText	-	"seek.bmp"
T   2370   62    6   10   40 -	p	-	-	-	"Radnr:"

>FORMFILES win6 ROWS 0
#Id	sp
>FORM tab2 ROWS 2 SIZE 2 "tab2"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
WW  2341   14    2   70  192 -	PZ	-	win8	-	""
WW  3192   14    2   70  192 -	P	-	win17	-	""

>FORMFILES tab2 ROWS 0
#Id	sp
>FORM win8 ROWS 20 SIZE 113 "Radegn"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
D   2342    2   42   13   28 -	P	-	edRow	#3403	""
CE  3217   16   42   50   60 -	Pc	-	cbCategory	#3451	""
CE  3180   30   42  178   60 -	Pc	-	cbCalctype	#3455	""
CE  3179   44   42  174   60 -	Pc	-	cbVat	#3595	""
CE  3176   58   42  158   60 -	Pc	-	cbAck	#3591	""
D   3183    2  132   13   44 -	PU	-	edAccount	#3596	""
D   3186   16  132   13   44 -	PU	-	edObject	#3599	""
D   3189   30  132   13   44 -	PU	-	edDepartment	#3598	""
XB  2344   44  104   13   44 -	P	-	xbDeb	#3481	"Deb.bart:"
B3  3187   16  176   13   15 -	SxTpfF	-	pbObject	-	"seek.bmp"
B3  3190   30  176   13   15 -	SxTpfF	-	pbDepartment	-	"seek.bmp"
T   2343    4    4   11   34 -	p	-	txRowNr	-	"Radnr:"
T   3181   32    4   11   34 -	p	-	-	-	"Kalkyltyp:"
T   3178   46    4   11   34 -	p	-	-	-	"Momskod:"
T   3177   60    4   11   34 -	p	-	-	-	"Ack.rader:"
T   3182    4  106   11   24 -	p	-	-	-	"Konto:"
T   3185   18  106   11   23 -	p	-	txObject	-	"Objekt:"
T   3188   32  106   11   23 -	p	-	txDepartment	-	"Avd:"
B3  3184    2  176   13   15 -	SxTpfF	-	pbAccount	-	"seek.bmp"
T   3218   18    4   11   34 -	p	-	-	-	"Kategori:"

>FORMFILES win8 ROWS 0
#Id	sp
>FORM win9 ROWS 6 SIZE 133 "Knappar"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
B3  2354    2    2   15   62 -	TP	-	pbSaveRow	-	"save.bmp,S&para rad"
B3  2355    2   68   15   62 -	TP	-	pbNewRow	-	"new.bmp,N&y rad"
B3  2356    2  134   15   62 -	TP	-	pbDeleteRow	-	"del.bmp,&Makulera rad"
B3  3238    2  200   15   62 -	QP	-	pbCancelDebit	-	"nothing.bmp,Maku&lera deb"
B3  3242    2  266   15   62 -	QP	-	pbCreditDeposit	-	"nothing.bmp,&Kreditera dep"
B3  3249    2  332   15   62 -	QP	-	pbCreditRow	-	"nothing.bmp,Kreditera"

>FORMFILES win9 ROWS 0
#Id	sp
>FORM win10 ROWS 6 SIZE 131 "Operation"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
B3  2358    0    2   15   70 -	TP	-	pbSave	-	"save.bmp,&Spara"
B3  2376   18    1   15   70 -	QP	-	pbDiary	-	"bok.bmp,Da&gbok"
B3  3030   36    1   15   70 -	QP	-	pbOrderhead	-	"headrow.bmp,Orderh&uvud"
B3  3237   54    1   15   70 -	QP	-	pbDebit	-	"nothing.bmp,&Debitera alla"
B3  3239   72    1   15   70 -	QP	-	pbPrintInvoice	-	"print.bmp,Skri&v faktura"
B3  3240   90    1   15   70 -	QP	-	pbPayment	-	"nothing.bmp,&Betalning"

>FORMFILES win10 ROWS 0
#Id	sp
>FORM lcTable ROWS 6 SIZE 47 ""
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
T   3170    2    1   11   17 -	Hph	-	-	#3403	"Rad"
T   3171    2   20   11  100 -	Hp	-	-	#3401	"Artikelkod"
T   3172    2  122   11  154 -	Hp	-	-	#3421	"Benämning"
T   3227    2  276   11   35 -	RHp	-	-	#8861	"Antal"
T   3228    2  312   11   40 -	Hp	-	-	#3553	"Rabatt %"
T   3229    2  352   11   40 -	RHp	-	-	#8851	"Belopp"

>FORMFILES lcTable ROWS 3
#Id	sp
34	r
10	r
246	r
>FORM tab2 ROWS 0 SIZE 0 "tab2"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label

>FORM win17 ROWS 10 SIZE 56 "Bokning"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
D   3219    2   42   13  102 -	P	-	-	#24641	""
D   3220   16   42   13  102 -	P	-	-	#24642	""
T   3221    4    4   11   36 -	p	-	-	-	"Info 1:"
T   3222  323    4   11   20 -	p	-	-	-	"Info 2:"
D   3223   30   42   13   60 -	PO	-	-	#24667	""
T   3224   32    4   11   36 -	p	-	-	-	"Antal:"
T   3243   18    4   11   36 -	p	-	-	-	"Info 2:"
D   3244   44   42   13   60 -	PO	-	edDebitMethod	-	""
T   3245   46    4   11   36 -	p	-	-	-	"Debitering:"
XB  3250   58    2   13   48 -	P	-	xbFixedPrice	#24679	"Fastpris"

>FORMFILES win17 ROWS 0
#Id	sp
>SOURCE
