>TYPE   	D
>NAME   	chcust.d
>CODE   	chcust.cod
>BY     	@(#)$Author: Helene $
>DATE   	@(#)$Date: 08-03-03 10:48 $
>VERSION	@(#)$Revision: 2 $
>ID     	4090

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

>TEXTINFO ROWS 4 SIZE 89
#id    value    flags    text
IDL_100  100  -  Kunden saknas
IDL_101  101  -  Felaktigt antal parametrar till 'chcust.d'
IDL_102  102  -  Kund måste anges
IDL_103  103  -  Exp.avgift %1:


>STACK ROWS 100 SIZE 5000

>FONT ROWS 12
#id Hgt Wth Esc Ori Wgt Ita  Ul Sth Chs Opr Clp Qua Pch Name
1   -21   0   0   0 400   0  0   0   0   0   0   0   0 "MS Sans Serif"
2   -17   0   0   0 400   1  1   0   0   0   0   0   0 "Times Rmn"
3   -21   0   0   0 400   0  0   0   0   0   0   0   0 "President"
4    -9   0   0   0 400   0  0   0   0   0   0   0   0 "Arial"
5   -11   0   0   0 400   0  0   0   0   0   0   0   0 "Arial"
6   -11   0   0   0 400   1  0   0   0   0   0   0   0 "Arial"
7   -11   0   0   0 700   0  0   0   0   0   0   0   0 "Arial"
8   -13   0   0   0 400   0  0   0   0   0   0   0   0 "Arial"
9   -13   0   0   0 400   1  0   0   0   0   0   0   0 "Arial"
A   -13   0   0   0 700   0  0   0   0   0   0   0   0 "Arial"
B   -16   0   0   0 400   0  0   0   0   0   0   0   0 "Arial"
C   -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   225   290 SB	-	-	"-"	  0	"Byt kund"

>FORM MAIN ROWS 16 SIZE 158 "100 Main"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
D     11   10   56   13   50 -	PU	-	edCustomer	#2001	""
D     12   24   56   13  130 -	P	-	edName	#2021	""
WW    40   54  202  126   84 -	P	-	win2	-	""
TB    58   46    4  148  194 -	P	-	tab1	-	"&1.Lev.adress,&2.Förs.villkor"
B3    19  196  182   15   50 -	TP	-	pbOk	-	"ok.bmp,&Ok"
B3     2  196  236   15   50 -	TP	-	pbCancel	-	"cancel.bmp,Av&bryt"
B3    24    8  216   15   50 -	Qp	-	pbNewCustomer	-	"new.bmp,&Ny kund"
B3    16   24  186   13    9 -	xTPF	-	pbPrevName	-	"arrowl.bmp"
B3    17   10  114   13    9 -	xTPF	-	pbNextCustomer	-	"arrowr.bmp"
B3    18   24  194   13    9 -	xTPF	-	pbNextName	-	"arrowr.bmp"
T     13   12    8   11   46 -	p	-	-	-	"Kundkod:"
T     14   26    8   11   46 -	p	-	-	-	"Kund:"
B3    21   10  122   13   15 -	xTPF	-	pbCustomer	-	"seek.bmp"
B3    22   24  202   13   15 -	xTPF	-	pbName	-	"seek.bmp"
B3    15   10  106   13    9 -	xTPF	-	pbPrevCustomer	-	"arrowl.bmp"
FR    26    6    4   36  282 -	p	-	-	-	""

>FORM win2 ROWS 3 SIZE 47 "Criteria"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
XB    42   10    6   10   72 -	RP	-	xbAdress	-	"Lev.adress"
XB    66   20    6   10   72 -	RP	-	xbTermsOfSale	-	"Förs.villkor"
GB    41    0    0  126   84 -	p	-	-	-	"Byt följande kriterier"

>FORMFILES win2 ROWS 0
#Id	sp
>FORM tab1 ROWS 2 SIZE 2 "tab1"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
WW    37   12    2  134  190 -	P	-	win1	-	""
WW    59   12    2  134  190 -	P	-	win3	-	""

>FORMFILES tab1 ROWS 0
#Id	sp
>FORM win1 ROWS 18 SIZE 126 "Levadr"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
CE    48    4   60  236  106 -	Pc	-	cbAdress	#3025	""
D     27   18   60   13  120 -	P	-	edAdr1	#3027	""
D     29   32   60   13  120 -	P	-	edAdr2	#3030	""
D     31   46   60   13  120 -	P	-	edAdr3	#3031	""
D     30   60   60   13  120 -	P	-	edAdr4	#3033	""
D     32   74   60   13  120 -	P	-	edAdr5	#3034	""
D     50   88   60   13  120 -	P	-	edAdr6	#3035	""
D     56  102   60   13  120 -	P	-	-	#3051	""
T     36   76    4   11   54 -	p	-	-	-	"Lev.adress 5:"
T     34   48    4   11   54 -	p	-	-	-	"Lev.adress 3:"
T     28   20    4   11   54 -	p	-	-	-	"Lev.adress 1:"
T     51   90    4   11   54 -	p	-	-	-	"Lev.adress 6:"
T     35   62    4   11   54 -	p	-	-	-	"Lev.adress 4:"
T     57  104    4   11   54 -	p	-	-	-	"Godsadress:"
T     33   34    4   11   54 -	p	-	-	-	"Lev.adress 2:"
T     49    6    4   11   54 -	p	-	-	-	"Adresskod:"
CE    89  116   60   50   36 -	Pc	-	cbCountry	#3037	""
T     90  118    4   11   54 -	p	-	-	-	"Landskod:"

>FORMFILES win1 ROWS 0
#Id	sp
>FORM win3 ROWS 16 SIZE 125 "Förs.villkor"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
CE    60    4   60  328   90 -	Pc	-	cbTransport	#3173	""
CE    61   18   60  314   90 -	Pc	-	cbTermsOfDelivery	#3172	""
CE    62   32   60  296   90 -	Pc	-	cbPaymentTerms	#3171	""
DP    74   46   60   13   44 D8	P	-	dpDebet	#3114	""
D     67   60   60   13   60 -	P	-	edExpCost	-	""
D     72   60  150   13   38 -	HP	-	edExpCostSEK	#3153	""
D     69   74   60   13   60 -	P	-	edInvoiceCustomer	#3183	""
XB    71   88    2   13   64 -	P	-	xbCollectiveInvoice	#3187	"Samlingsfaktura"
T     64   20    4   11   56 -	p	-	-	-	"Lev.villkor:"
T     70   76    4   11   56 -	p	-	-	-	"Fakturakund:"
T     68   62    4   11   56 -	p	-	txExpCost	-	"Expeditonsavg.:"
T     65   34    4   11   56 -	p	-	-	-	"Bet.villkor:"
T     73   62  122   11   24 -	Hp	-	txExpCostSEK	-	"SEK:"
T     63    6    4   11   56 -	p	-	-	-	"Transportsätt:"
T     75   48    4   11   56 -	p	-	txDebet	-	"Förf.datum debet:"
B3    76   74  122   13   15 -	SxTpfF	-	pbInvoiceCustomer	-	"seek.bmp"

>FORMFILES win3 ROWS 0
#Id	sp
>SOURCE
