SELE  0 
CREATE CURSOR OB (NAIM_T2 C( 25 ),ED_IZM C( 6 ),CENA N( 20 , 2 ),SCET N( 5 ),ID_TOV I( 4 ))
INSERT INTO OB (NAIM_T2,ED_IZM,CENA,SCET,ID_TOV) VALUES ('АВТОЛАМПА             А22','ШТ    ', 70 . 00 , 1005 , 1 )
INSERT INTO OB (NAIM_T2,ED_IZM,CENA,SCET,ID_TOV) VALUES ('АВТОЛАМПА ЖИГ.        А40','ШТ    ', 260 . 00 , 1005 , 3 )
INSERT INTO OB (NAIM_T2,ED_IZM,CENA,SCET,ID_TOV) VALUES ('АВТОЛАМПА ЖИГ.        А40','ШТ    ', 1314 . 00 , 1005 , 3 )
INSERT INTO OB (NAIM_T2,ED_IZM,CENA,SCET,ID_TOV) VALUES ('ВЫКЛЮЧАТ.ВК422-12-3709000','ШТ    ', 280 . 00 , 1005 , 8 )
INSERT INTO OB (NAIM_T2,ED_IZM,CENA,SCET,ID_TOV) VALUES ('ВЫКЛЮЧАТ.ВК422-12-3709000','ШТ    ', 280 . 00 , 1005 , 8 )
INSERT INTO OB (NAIM_T2,ED_IZM,CENA,SCET,ID_TOV) VALUES ('ЗАКЛЕПКА      Р22-3706380','ШТ    ', 0 . 01 , 1005 , 15 )
INSERT INTO OB (NAIM_T2,ED_IZM,CENA,SCET,ID_TOV) VALUES ('КОНДЕНС. К42-18-5-3706400','ШТ    ', 240 . 00 , 1005 , 16 )
INSERT INTO OB (NAIM_T2,ED_IZM,CENA,SCET,ID_TOV) VALUES ('КАТУШКА      Б114-3705000','ШТ    ', 600 . 00 , 1005 , 18 )
INSERT INTO OB (NAIM_T2,ED_IZM,CENA,SCET,ID_TOV) VALUES ('ПРЕДОХРАНИТ.ПР310-3722000','ШТ    ', 20 . 00 , 1005 , 35 )
INSERT INTO OB (NAIM_T2,ED_IZM,CENA,SCET,ID_TOV) VALUES ('РЕЛЕ        РС950-3726010','ШТ    ', 2150 . 00 , 1005 , 45 )
INSERT INTO OB (NAIM_T2,ED_IZM,CENA,SCET,ID_TOV) VALUES ('РАСПРЕД.     Р137-3706000','ШТ    ', 3990 . 00 , 1005 , 48 )
INSERT INTO OB (NAIM_T2,ED_IZM,CENA,SCET,ID_TOV) VALUES ('ТРАНЗИСТОР  ТК102-3734000','ШТ    ', 375 . 00 , 1005 , 57 )
INSERT INTO OB (NAIM_T2,ED_IZM,CENA,SCET,ID_TOV) VALUES ('УЗЕЛ ЩЕТКИ   С100-5205900','ШТ    ', 170 . 00 , 1005 , 58 )
INSERT INTO OB (NAIM_T2,ED_IZM,CENA,SCET,ID_TOV) VALUES ('ВКЛАДЫШ 1.0   130-1000102','К/Т   ', 2940 . 00 , 1005 , 75 )
INSERT INTO OB (NAIM_T2,ED_IZM,CENA,SCET,ID_TOV) VALUES ('ВКЛАДЫШ 1.5   130-1000104','К/Т   ', 2940 . 00 , 1005 , 83 )
INSERT INTO OB (NAIM_T2,ED_IZM,CENA,SCET,ID_TOV) VALUES ('ПРОКЛАДКА Г/Б 130-1003020','ШТ    ', 1110 . 00 , 1005 , 87 )
INSERT INTO OB (NAIM_T2,ED_IZM,CENA,SCET,ID_TOV) VALUES ('КРАН СЛИВНОЙ  130-1015370','ШТ    ', 22 . 00 , 1005 , 113 )
INSERT INTO OB (NAIM_T2,ED_IZM,CENA,SCET,ID_TOV) VALUES ('КАРБЮРАТ.  431410-1107011','ШТ    ', 6100 . 00 , 1005 , 155 )
INSERT INTO OB (NAIM_T2,ED_IZM,CENA,SCET,ID_TOV) VALUES ('НАСОС ВОД.    130-1307010','ШТ    ', 5490 . 00 , 1005 , 158 )
INSERT INTO OB (NAIM_T2,ED_IZM,CENA,SCET,ID_TOV) VALUES ('БОЛТ-ШПИЛЬКА  130-3103070','ШТ    ', 3 . 00 , 1005 , 246 )

PUBLIC oform1

oform1=NEWOBJECT("form1")
oform1.Show
RETURN


	**************************************************
*-- Form:         form1 (d:\or_skl\p_obs.scx)
*-- ParentClass:  form
*-- BaseClass:    form
*-- Time Stamp:   02/17/10 12:36:00 PM
*
DEFINE CLASS form1 AS form


	Height =  300 
	Width =  400 
	Desktop = .T.
	DoCreate = .T.
	AutoCenter = .T.
	BorderStyle =  2 
	Caption = "Поиск товара по первым буквам или фрагменту"
	ControlBox = .F.
	FontSize =  10 
	MaxButton = .F.
	MinButton = .F.
	WindowType =  1 
	WindowState =  0 
	sym = ("")
	kodt = ""
	Name = "Form1"
	wsp = .F.
	cfilter = .F.
	cfilterold = .F.


	ADD OBJECT list1 AS listbox WITH ;
		BoundColumn =  4 , ;
		ColumnCount =  3 , ;
		ColumnWidths = "200,104,52", ;
		RowSourceType =  3 , ;
		RowSource = "SELECT NAIM_T2,STR(CENA,11,2) CENA,SCET,STR(ID_TOV,6) KOD FROM OB   order by NAIM_T2 INTO CURSOR CSLD", ;
		ControlSource = "THISFORM.KODT", ;
		FirstElement =  1 , ;
		Height =  202 , ;
		IncrementalSearch = .F., ;
		Left =  9 , ;
		NumberOfElements =  0 , ;
		TabIndex =  2 , ;
		Top =  33 , ;
		Width =  372 , ;
		Name = "List1"


	ADD OBJECT txtsearch AS textbox WITH ;
		Height =  23 , ;
		Left =  291 , ;
		TabIndex =  1 , ;
		Top =  253 , ;
		Width =  100 , ;
		Name = "txtSearch"


	ADD OBJECT label1 AS label WITH ;
		WordWrap = .T., ;
		Caption = "Вводите первые буквы наименов. или фрагмент(ы) в форме(*...*...):", ;
		Height =  32 , ;
		Left =  77 , ;
		Top =  248 , ;
		Width =  207 , ;
		TabIndex =  3 , ;
		BackColor = RGB( 255 , 255 , 128 ), ;
		Name = "Label1"


	ADD OBJECT shape1 AS shape WITH ;
		Top =  2 , ;
		Left =  10 , ;
		Height =  31 , ;
		Width =  372 , ;
		BackColor = RGB( 128 , 255 , 255 ), ;
		Name = "Shape1"


	ADD OBJECT line1 AS line WITH ;
		Height =  31 , ;
		Left =  213 , ;
		Top =  2 , ;
		Width =  0 , ;
		Name = "Line1"


	ADD OBJECT line2 AS line WITH ;
		Height =  31 , ;
		Left =  320 , ;
		Top =  2 , ;
		Width =  0 , ;
		Name = "Line2"


	ADD OBJECT label2 AS label WITH ;
		Caption = "Наименование товара", ;
		Height =  17 , ;
		Left =  47 , ;
		Top =  11 , ;
		Width =  135 , ;
		BackColor = RGB( 128 , 255 , 255 ), ;
		Name = "Label2"


	ADD OBJECT label3 AS label WITH ;
		Caption = "Цена", ;
		Height =  17 , ;
		Left =  228 , ;
		Top =  11 , ;
		Width =  40 , ;
		BackColor = RGB( 128 , 255 , 255 ), ;
		Name = "Label3"


	ADD OBJECT label4 AS label WITH ;
		Caption = "Счет", ;
		Height =  17 , ;
		Left =  328 , ;
		Top =  11 , ;
		Width =  40 , ;
		BackColor = RGB( 128 , 255 , 255 ), ;
		Name = "Label4"


	ADD OBJECT optiongroup1 AS optiongroup WITH ;
		ButtonCount =  2 , ;
		Value =  1 , ;
		Height =  46 , ;
		Left =  4 , ;
		Top =  241 , ;
		Width =  71 , ;
		Name = "Optiongroup1", ;
		Option1.Caption = " И", ;
		Option1.Value =  1 , ;
		Option1.Height =  17 , ;
		Option1.Left =  5 , ;
		Option1.Top =  5 , ;
		Option1.Width =  61 , ;
		Option1.Name = "Option1", ;
		Option2.Caption = "ИЛИ", ;
		Option2.Height =  17 , ;
		Option2.Left =  5 , ;
		Option2.Top =  24 , ;
		Option2.Width =  61 , ;
		Option2.Name = "Option2"


	PROCEDURE Unload
		*RETURN INT(VAL(THISFORM.KODT))
		RETURN THISFORM.KODT
	ENDPROC


	PROCEDURE Load
		PERB=""
	ENDPROC


	PROCEDURE list1.Valid
		RELEASE THISFORM
	ENDPROC


	PROCEDURE txtsearch.InteractiveChange
		LOCAL PERB,BUL
		PERB=""
		IF ThisForm.Optiongroup1.Value= 1 
			BUL=' AND "'
		ELSE
			BUL=' OR "'
		ENDIF
		IF OCCURS("*",This.Value)> 0 
			PERB=UPPER(ALLTRIM(This.Value))
		   IF LEN(PERB) >  1 
		   	PERB=PERB+IIF(RIGHT(PERB, 1 )="*","","*")
			PERB=IIF(LEFT(PERB, 1 )="*","","*")+PERB
			KW=OCCURS("*",PERB)- 1 
			ZAPR='SELECT NAIM_T2,STR(CENA,11,2) CENA,SCET,STR(ID_TOV,6) KOD FROM OB WHERE '
		    FOR I= 1  TO KW
				ZAPR=ZAPR+IIF(I= 1 ,'"',BUL)+STREXTRACT(PERB, '*','*',I)+'" $ UPPER(NAIM_T2)'
			ENDFOR
			ZAPR=ZAPR+' order by NAIM_T2 INTO CURSOR CSLD'
		   ELSE
			 	ZAPR='SELECT NAIM_T2,STR(CENA,11,2) CENA,SCET,STR(ID_TOV,6) KOD FROM OB order by NAIM_T2 INTO CURSOR CSLD'
		   ENDIF
			ThisForm.List1.RowSource=ZAPR
		ELSE
			PERB=UPPER(RTRIM(This.Value))
			ThisForm.List1.RowSource="SELECT NAIM_T2,STR(CENA,11,2) CENA,SCET,STR(ID_TOV,6) KOD FROM OB WHERE LEFT(UPPER(NAIM_T2),LEN(PERB))=PERB order by NAIM_T2 INTO CURSOR CSLD"
		ENDIF
		THISFORM.List1.REQUERY
		*!*	ThisForm.LIST1.SetFocus
		*!*	This.SetFocus
	ENDPROC


ENDDEFINE
*
*-- EndDefine: form1
**************************************************