>TYPE   	D
>NAME   	pospayin.d
>CODE   	pospayin.cod
>BY     	@(#)$Author: Hg $
>DATE   	@(#)$Date: 06-06-22 15:51 $
>VERSION	@(#)$Revision: 2 $
>ID     	10558

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

>TEXTINFO ROWS 14 SIZE 250
#id    value    flags    text
IDL_100  100  -  Okänd mode (%1)
IDL_101  101  -  Fakturan ägs av en annan kund
IDL_102  102  -  Färdigbetald
IDL_103  103  -  Rutinen hanterar inte valutafakturor
IDL_104  104  -  För många delbetalningar
IDL_105  105  -  Typ
IDL_106  106  -  Faktura
IDL_107  107  -  Rest
IDL_108  108  -  ev Rabatt
IDL_109  109  -  Totalt
IDL_110  110  -  Att betala
IDL_111  111  -  Kundkod (%1) saknas!
IDL_112  112  -  Du måste ange ett belopp
IDL_113  113  -  Du kan maximalt betala %1


>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   242   380 SBL	-	-	"-"	  0	"Betala fakturor"

>FORM MAIN ROWS 9 SIZE 90 "100 Main"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
WW  4087    2    4   38  308 -	P	-	win3	-	""
GR  4088   46    8   64  298 -	P	-	lcTable	-	""
TB  4072  112    8   86  298 -	P	-	tab1	-	"Faktura"
B3  4107  201   10   15   50 -	QP	-	pbSave	-	"save.bmp,&Spara"
B3  4104  202   64   15   50 -	QP	-	pbRowNew	-	"new.bmp,&Ny"
B3  4105  202  118   15   50 -	QP	-	pbRowDelete	-	"del.bmp,&Ta bort"
B3  4106  122  320   15   50 -	xQP	-	pbOk	-	"ok.bmp,&Verkställ"
B3     2  202  320   15   50 -	xTP	-	pbExit	-	"exit.bmp,St&äng"
GB  4091   40    6  184  304 -	p	-	gbDetalj	-	""

>FORM tab1 ROWS 1 SIZE 1 "tab1"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
WW  4076   12    2   72  294 -	P	-	win2	-	""

>FORMFILES tab1 ROWS 0
#Id	sp
>FORM win2 ROWS 14 SIZE 134 "Fakturadetalj"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
D   4077    2   68   13   60 -	P	-	edInvoice	-	""
D   4079   16   68   13   60 -	pO	-	edRemain	-	""
D   4081   30   68   13   60 -	pO	-	edDiscount	-	""
D   4083   44   68   13   60 -	pO	-	edTotal	-	""
D   4085   58   68   13   60 -	P	-	edAmount	-	""
T   4082   32    6   11   58 -	p	-	-	-	"ev Kassarabatt:"
T   4080   18    6   11   38 -	p	-	-	-	"Restbelopp:"
T   4084   46    6   11   38 -	p	-	-	-	"Totalt:"
T   4078    4    6   11   38 -	p	-	-	-	"Fakturanr:"
T   4086   60    6   11   38 -	p	-	-	-	"Att betala:"
B3  4103    2  130   13   15 -	xQpfF	-	pbInvoice	-	"seek.bmp"
T   4108   32  138   11  150 -	p	-	-	-	"Kassarabatt, vid slutbetalning av faktura"
D   4109   58  220   13   60 -	pO	F7	edSum	-	""
T   4110   60  138   11   60 -	p	-	-	-	"Summa att betala:"

>FORMFILES win2 ROWS 0
#Id	sp
>FORM win3 ROWS 6 SIZE 45 "Head"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
D   4092    8  101   13   60 -	PU	-	edCustomNo	-	""
D   4094   22  101   13  142 -	P	-	edCustomerName	-	""
T   4093    8    8   11   75 -	p	-	-	-	"Företagskod el Faktura:"
T   4095   22    8   11   75 -	p	-	-	-	"Företag:"
B3  4096    8  161   13   15 -	xQpfF	-	pbCustomSearch	-	"seek.bmp"
GB  4089    0    2   38  304 -	p	-	gbHead	-	""

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

>FORMFILES lcTable ROWS 0
#Id	sp
>SOURCE
