>TYPE   	D
>NAME   	celf-vat.d
>CODE   	celf-vat.cod
>BY     	@(#)$Author: Anna $
>DATE   	@(#)$Date: 08-01-18 13:09 $
>VERSION	@(#)$Revision: 6 $
>ID     	3048

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

>TEXTINFO ROWS 7 SIZE 210
#id    value    flags    text
IDL_100  100  -  Leverantörsfaktura: %1%2 %3
IDL_101  101  -  Momskod måste anges
IDL_102  102  -  Momssatsprocent måste anges
IDL_103  103  -  Belopp måste anges
IDL_104  104  -  Momsbelopp måste anges
IDL_105  105  -  Konto utgående moms måste anges
IDL_106  106  -  Hela beloppet är inte fördelat, vill du lämna rutinen ändå?


>STACK ROWS 1000 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 2 SIZE 100
#id type	text
1   0	0xff0000
2   1	pattern


>APPEVENTS ROWS 0
#id Eventname	ParamList


>WINDOW ROWS 1
#id       x     y    cy    cx sp1	sp2	Bitmap	font	size	caption
5511     10    10   250   340 SB	-	-	"-"	  0	"Momsbelopp"

>FORM MAIN ROWS 30 SIZE 325 "100 Main"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
GR    58   45    6   90  327 -	PhWZ	-	lcTable	-	""
CE 24106  138   63  108   62 -	Pc	-	cbVatCode	#17601	""
CE 24109  152   63  108   62 -	Pc	-	cbVatPerc	#17605	""
D  24096  166   63   13   60 F12.2	P	-	edNet	#17602	""
D  24112  180   63   13   60 F12.2	pO	-	-	#17606	""
D  24095  194   63   13   60 -	P	-	edVatAmount	#17603	""
D  24097  138  242   13   43 -	P	-	edAccountVat	#17604	""
D  24110  152  242   13   43 -	pO	-	edIntAccount	#17607	""
D  24131  166  242   13   43 -	P	-	edInAccount	#17615	""
B3 24102  216    6   15   50 -	TPw	-	pbSave	-	"save.bmp,&Spara"
B3 24103  216   59   15   60 -	TPw	-	pbDelete	-	"delrow.bmp,&Radera rad"
B3 24119  216  122   15   70 -	xTPw	-	pbClear	-	"del.bmp,&Makulera allt"
B3 24089  216  231   15   50 -	TPwz	-	pbOk	-	"ok.bmp,&Verkställ"
B3     2  216  284   15   50 -	xTPwz	-	pbExit	-	"exit.bmp,St&äng"
T  24098  139    7   11   55 -	p	-	-	-	"Momskod:"
T  24105  168  127   11   24 -	p	-	txCurrency	-	""
T  24108  154    7   11   55 -	p	-	-	-	"Momssats %:"
T  24099  168    7   11   55 -	p	-	txAmountCurr	-	"Belopp VAL:"
T  24101  154  163   11   78 -	p	-	-	-	"Internkonto:"
D  24121   19   96   13   60 -	PO	-	edTotalAmount	#8571	""
D  24122   19  265   13   60 -	PO	-	edRemainder	#8572	""
T  24123   21   11   11   82 -	p	-	-	-	"Totalt belopp att fördela:"
T  24124   21  197   11   66 -	p	-	-	-	"Återstår att fördela:"
B3 24126  138  287   13   15 -	QpF	-	pbAccountVat	-	"seek.bmp"
T  24127  139  163   11   78 -	p	-	-	-	"Konto utgående moms:"
T  24128  182    7   11   55 -	p	-	txAmountSysCurr	-	"Belopp SysVal:"
T  24100  196    7   11   55 -	p	-	-	-	"Momsbelopp:"
T  24132  167  163   11   78 -	p	-	-	-	"Konto ingående moms:"
B3 24133  166  287   13   15 -	QpF	-	pbInAccount	-	"seek.bmp"
GB 24120   10    6   28  328 -	pZ	-	-	-	""

>FORMFILES MAIN ROWS 4
#Id	sp
200	r
211	r
251	r
280	r
>FORM lcTable ROWS 10 SIZE 94 ""
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
T  24091    1    1   11   35 -	CHp	-	-	#17601	"Momskod"
T  24092    1   37   11   30 -	Hp	-	-	#8771	"Moms %"
T  24079    1   67   11   30 -	Hp	-	-	#17604	"Konto"
T  24090    1   97   11   54 -	RHp	-	-	#17602	"Belopp"
T  24093    1  151   11   60 -	RHp	-	-	#17603	"Momsbelopp"
T  24114    1  211   11   50 -	RHp	-	-	#17606	"Belopp SEK"
T  24115    1  261   11   40 -	Hp	-	-	#17607	"Internkonto"
T  24129   13    1   11    0 -	Hp	-	-	#17605	"Momskod%"
T  24130   13    1   11    0 -	Hp	-	-	#17611	"Momstyp"
T  24134   13    1   11   40 -	Hp	-	-	#17615	"Konto ing.moms"

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

>SOURCE
