>TYPE   	D
>NAME   	pribo.d
>CODE   	pribo.cod
>BY     	@(#)$Author: Sandor $
>DATE   	@(#)$Date: 09-04-02 11:09 $
>VERSION	@(#)$Revision: 15 $
>ID     	19501

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

>TEXTINFO ROWS 13 SIZE 395
#id    value    flags    text
IDL_100  100  -  Radera %1
IDL_101  101  -  Inläsningshuvud hittas inte
IDL_102  102  -  Inläsning avbryts! Se fellogg
IDL_103  103  -  Fil inläst
IDL_104  104  -  Filinläsning misslyckades
IDL_105  105  -  Typ %1 finns inte
IDL_106  106  -  Ange enhet från vilken prisfil ska kopieras (Används vid EIO)
IDL_107  107  -  Ange sökväg varifrån fil hämtas vid inläsning
IDL_108  108  -  Vid inläsning mot leverantörens artikelkod är bara uppdatering möjlig
IDL_109  109  -  Inläsningen saknar inlästa poster
IDL_110  110  -  Inga poster inlästa
IDL_111  111  -  Gör priskalkylering
IDL_112  112  -  Felaktigt intervall


>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 3
#id Eventname	ParamList
1088	PriboNewArticleRegister	(int iArticleLu)
1090	AfterSaveNewSupInvoice	(str sInvoice)
1099	PriboAfterEANNotFound	(int iArticleLu)


>WINDOW ROWS 1
#id       x     y    cy    cx sp1	sp2	Bitmap	font	size	caption
5511     10    10   305   325 SB	-	-	"-"	  0	"735 Prisinläsning/Prisbok"

>FORM MAIN ROWS 8 SIZE 173 "100 Main"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
TB    28   28   10  248  228 -	PWZ	-	tab1	-	"&Prisinläsning,Ar&betsregister"
B3     2  260  242   15   74 -	xTPwz	-	pbCancel	-	"exit.bmp,St&äng"
WW   200    3    3   20  308 -	PZ	-	win2	-	""
B3   215   40  243   15   74 -	QP	-	pbPriceCalc	-	"calc.bmp,Pr&iskalkylering"
B3   216   58  243   15   74 -	QP	-	pbPriceAdj	-	"optim.bmp,Pris&optimering"
B3   217  143  242   15   74 -	TP	-	pbDelArticles	-	"del.bmp,Ra&dera artiklar"
B3   218   90  243   15   74 -	TP	-	pbDiscount	-	"data.bmp,Raba&ttbrev"
B3   219  108  243   15   74 -	TP	-	pbFileDescriptions	-	"data.bmp,Redig. filb&eskr."

>FORM tab1 ROWS 2 SIZE 2 "tab1"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
WW    36   14    2  228  220 -	P	-	win1	-	""
WW   202   12    2  228  221 -	PWZ	-	win3	-	""

>FORMFILES tab1 ROWS 0
#Id	sp
>FORM win1 ROWS 27 SIZE 299 "win1"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
CE    56    6   76   80  108 -	PUc	-	cbType	#8831	""
D     64   32   78   13   60 -	PU	-	edFromArticle	#841	""
D     65   46   78   13   60 -	PU	-	edToArticle	#849	""
CE   233   60   78   80   97 -	PUc	-	cbSel	#8801	""
D    230   74   78   13   96 -	PU	-	edSelectionMatch	#839	""
D     52  104   78   13   96 -	P	-	edUnit	#11831	""
D     53  118   78   13   96 -	P	-	edCatalog	#11821	""
D     54  132   78   13   96 -	P	-	-	#11805	""
RB   225  164   10   10  145 -	RP	-	rbReadAll	-	"Nyregistrering och uppdatering"
RB   223  174   10   10   86 -	RP	-	rbReadNew	-	"Endast nyregistrering"
RB   224  184   10   10   85 -	RP	-	rbReadUpdate	-	"Endast uppdatering"
XB   234  208   17   10  102 -	Hp	-	xbDirectCalc	-	"Automatisk priskalkylering"
XB   227  218   54   10   65 -	Hp	-	xbDirectTransfer	-	"Direktinläsning"
B3   213  210  128   15   56 -	QP	-	pbReadFile	-	"read.bmp,&Läs in fil..."
T     59  104   10   11   36 -	p	-	-	-	"Enhet:"
T     67   46   10   11   56 -	p	-	-	-	"Till artikelkod:"
T     62    8   10   11   35 -	p	-	-	-	"Prisbok:"
B3    69   44  140   13   15 -	xTpfF	-	pbSeekToArticle	-	"seek.bmp"
B3    68   32  140   13   15 -	xTpfF	-	pbSeekFromArticle	-	"seek.bmp"
T    231   60   10   11   56 -	p	-	-	-	"Urvalsfält:"
T    232   74   10   11   66 -	p	-	txSelectionMatch	-	"Lika med/något av:"
T     60  118   10   11   29 -	p	-	-	-	"Bibliotek:"
T     61  132   10   11   26 -	p	-	-	-	"Filnamn:"
T     66   32   10   11   60 -	p	-	-	-	"Från artikelkod:"
GB   209   20    4   70  180 -	p	-	-	-	"Urval"
GB   226  152    4   49  180 -	p	-	-	-	"Urval inläsning"
GB   210   92    4   56  180 -	p	-	-	-	"Egenskaper"

>FORMFILES win1 ROWS 0
#Id	sp
>FORM win2 ROWS 1 SIZE 12 "win2"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
L    201    4  115   11   60 -	p	-	-	-	"toolmenu.di"

>FORMFILES win2 ROWS 0
#Id	sp
>FORM win3 ROWS 4 SIZE 53 "win3"
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
GR    77    4    4  204  213 -	PWZ	-	lcTable	-	""
B3    83  212  166   15   50 -	TPwz	-	pbDelete	-	"del.bmp,&Ta bort"
B3   212  212  112   15   50 -	TPMwz	-	pbOpen	-	"open.bmp,&Öppna..."
B3   221  212    4   15   50 -	TpMw	-	pbError	-	"open.bmp,Fel..."

>FORMFILES win3 ROWS 0
#Id	sp
>FORM lcTable ROWS 7 SIZE 55 ""
#T   Id    R    C   cy   cx sp	sp1	sp2	Id	Label
T    228    1  196   11    0 -	Hp	-	-	#23273	"Statusflagga"
T     78    1    1   11   30 -	Hp	-	-	#23272	"Datum"
D     79    1   31   13   45 -	HP	-	edOwnName	#23275	"Prisbok"
T     80    1   76   13   20 -	Hp	-	-	#23274	"Typ"
T     81    1   96   13   30 -	RHp	-	-	#23271	"Id-nr"
T    222    1  126   11   30 -	RHp	-	-	#23278	"Inlästa"
T     82    1  156   13   40 -	RHp	-	-	#23277	"Överförda"

>FORMFILES lcTable ROWS 0
#Id	sp
>SOURCE
