>TYPE   	D
>NAME   	upcont.d
>CODE   	upcont.cod
>BY     	@(#)$Author: Jorgenl $
>DATE   	@(#)$Date: 08-02-27 8:38 $
>VERSION	@(#)$Revision: 3 $
>ID     	6068

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

>TEXTINFO ROWS 21 SIZE 381
#id    value    flags    text
IDL_100  100  -  Företagskod saknas!
IDL_101  101  -  Uppdatering klar!
IDL_102  102  -  Tomma fält kommer inte att uppdateras!
IDL_103  103  -  Uppdaterar även tomma fält!
IDL_104  104  -  Företagsnamn
IDL_105  105  -  Gatuadress
IDL_106  106  -  Utdeln. adress
IDL_107  107  -  Postadress
IDL_108  108  -  Extra adress
IDL_109  109  -  Land
IDL_110  110  -  Telefon
IDL_111  111  -  Telefax
IDL_112  112  -  Kundtyp
IDL_113  113  -  Kundkategori
IDL_114  114  -  Org.nr
IDL_115  115  -  Hemsida
IDL_116  116  -  Detta företag är borttaget från företagsregistret
IDL_117  117  -  men det finns fortfarande i kontaktregistret!
IDL_118  118  -  %1 %2 finns inte i företagsregistret.
IDL_119  119  -  Valuta
IDL_120  120  -  Leverantörstyp


>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   300   460 SBL	-	-	"-"	  0	"Uppdatera kontakter"

>FORM MAIN ROWS 4 SIZE 56 "100 Main"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
WW   621    0    4   16  308 -	PhmZ	-	win1	-	""
TB  4072   21    4  253  390 -	PWZ	-	tab1	-	"Uppdatera &kontakter"
B3  4077   32  398   15   55 -	QP	-	pbUpdateContacts	-	"ok.bmp,&Uppdatera"
B3     2  258  397   15   55 -	TPwz	-	-	-	"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  4071    0    0   15  307 -	pZ	-	-	-	""

>FORMFILES win1 ROWS 0
#Id	sp
>FORM tab1 ROWS 1 SIZE 1 "tab1"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
WW  4073   12    2  236  384 -	PWZ	-	win2	-	""

>FORMFILES tab1 ROWS 0
#Id	sp
>FORM win2 ROWS 15 SIZE 191 "win2"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
D   4079    3   54   13   66 -	PU	-	edCode	#2001	""
D   4111    3  188   13  193 -	pO	-	edName	#2021	""
GR  4078   39    3  181  155 -	PfWd	-	lcUpdateFields	-	""
PB  4087  222    3   13   55 -	p	-	pbMarkAllLcUpdate	-	"Markera alla"
PB  4088  222   61   13   55 -	p	-	pbUnmarkAllLcUpdate	-	"Avmarkera alla"
GR  4080   39  168  181  215 -	PfWZ	-	lcContacts	-	""
PB  4090  222  169   13   55 -	p	-	pbMarkAllLcContacts	-	"Markera alla"
PB  4091  222  227   13   55 -	p	-	pbUnmarkAllLcContacts	-	"Avmarkera alla"
PB  4110  222  285   13   55 -	p	-	pbContactInfo	-	"Kontaktcentral"
T   4081   28    5   11   77 -	p	-	-	-	"Uppdatera följande fält:"
T   4082    5    4   11   50 -	p	-	-	-	"Företagskod:"
T   4089   29  170   11  189 -	p	-	-	-	"Uppdatera följande kontakter:"
B3  4083    1  123   15   15 -	xQpfF	-	pbCode	-	"seek.bmp"
T   4112    5  148   11   40 -	p	-	-	-	"Företag:"
XB  4169   17    2   10  114 -	RP	-	xbUpdateEmptyFields	-	"Uppdatera även fält utan data"

>FORMFILES win2 ROWS 0
#Id	sp
>FORM lcUpdateFields ROWS 3 SIZE 12 ""
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
XB  4126    1    0   10   15 -	HP	-	-	#862	""
T   4127    1   16   11   52 -	Hp	-	-	#8834	"Fält"
T   4128    1   68   11   70 -	Hp	-	-	#8835	"Värde"

>FORMFILES lcUpdateFields ROWS 1
#Id	sp
80	r
>FORM lcContacts ROWS 13 SIZE 97 ""
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
T   4156    1    1   11    0 -	Hp	-	-	#4701	""
XB  4157    1    1   11   15 -	HP	-	-	#861	""
T   4158    3   20   11   28 -	RHp	-	-	#8341	"Ant Diff"
T   4159    1   36   11   68 -	Hp	-	-	#4704	"Namn"
T   4160    1  104   11   40 -	Hp	-	-	#4731	"Telefon vxl"
T   4161    1  144   11   55 -	Hp	-	-	#4725	"Postadress"
T   4162    1  199   11   38 -	Hp	-	-	#4733	"Faxnr"
T   4163   13    1   11   33 -	Hp	-	-	#4775	"Org.nr"
T   4164   13   34   11   34 -	Hp	-	-	#4712	"Kundkat."
T   4165   13   68   11   60 -	Hp	-	-	#4736	"Hemsida"
T   4166   13  128   11   40 -	Hp	-	-	#4727	"Land"
T   4167   13  168   11   45 -	Hp	-	-	#4723	"Utdeln.adr."
T   4168   25    1   11   50 -	Hp	-	-	#4721	"Besöksadr."

>FORMFILES lcContacts ROWS 2
#Id	sp
47	r
80	r
>SOURCE
