SELE  0   
  CREATE CURSOR CASKLAD (CMAT N( 10 ),NMAT C( 60 ),PRVS C( 20 ),EIS C( 7 ))  
  INSERT INTO CASKLAD (CMAT,NMAT,PRVS,EIS) VALUES ( 12 ,'Автолампа             а22                                   ','ЗАП                 ','ШТУК   ')  
  INSERT INTO CASKLAD (CMAT,NMAT,PRVS,EIS) VALUES ( 21 ,'Автолампа жиг.        а40                                   ','ЗАП                 ','ШТУК   ')  
  INSERT INTO CASKLAD (CMAT,NMAT,PRVS,EIS) VALUES ( 15613 ,'Бич  правый 4221618285                                      ','КОМ                 ','ШТУК   ')  
  INSERT INTO CASKLAD (CMAT,NMAT,PRVS,EIS) VALUES ( 3474 ,'Винт                 4*20                                   ','МАТ                 ','КГ     ')  
  INSERT INTO CASKLAD (CMAT,NMAT,PRVS,EIS) VALUES ( 677 ,'Втулка        130-5001040                                   ','ИНС                 ','ШТУК   ')  
  INSERT INTO CASKLAD (CMAT,NMAT,PRVS,EIS) VALUES ( 3282 ,'Газ жидкий пропан                                           ','ТОП                 ','КГ     ')  
  INSERT INTO CASKLAD (CMAT,NMAT,PRVS,EIS) VALUES ( 6123 ,'Диск     5.00р-15-3101012                                   ','МАТ                 ','ШТУК   ')  
  INSERT INTO CASKLAD (CMAT,NMAT,PRVS,EIS) VALUES ( 1282 ,'Зубило              200мм                                   ','ИНС                 ','ШТУК   ')  
  INSERT INTO CASKLAD (CMAT,NMAT,PRVS,EIS) VALUES ( 33707 ,'Изолятор     5320-3724121                                   ','КОМ                 ','ШТУК   ')  
  INSERT INTO CASKLAD (CMAT,NMAT,PRVS,EIS) VALUES ( 15931 ,'Кабель          060199150                                   ','КОМ                 ','ШТУК   ')  
  INSERT INTO CASKLAD (CMAT,NMAT,PRVS,EIS) VALUES ( 1300 ,'Ключ гаечный         8*10                                   ','ИНС                 ','ШТУК   ')  
  INSERT INTO CASKLAD (CMAT,NMAT,PRVS,EIS) VALUES ( 1304 ,'Ключ гаечный        17*19                                   ','ИНС                 ','ШТУК   ')  
  INSERT INTO CASKLAD (CMAT,NMAT,PRVS,EIS) VALUES ( 3580 ,'Лист алюмин.        1.0мм                                   ','МЕТ                 ','КГ     ')  
  INSERT INTO CASKLAD (CMAT,NMAT,PRVS,EIS) VALUES ( 3851 ,'Манжета       1.2*22*40-1                                   ','МАТ                 ','ШТУК   ')  
  INSERT INTO CASKLAD (CMAT,NMAT,PRVS,EIS) VALUES ( 22370 ,'Обшивка  527-35151/023/02                                   ','КОМ                 ','ШТУК   ')  
  INSERT INTO CASKLAD (CMAT,NMAT,PRVS,EIS) VALUES ( 2595 ,'Подшипник            8104                                   ','ИНС                 ','ШТУК   ')  
  INSERT INTO CASKLAD (CMAT,NMAT,PRVS,EIS) VALUES ( 1868 ,'Рулетка                2м                                   ','ИНС                 ','ШТУК   ')  
  INSERT INTO CASKLAD (CMAT,NMAT,PRVS,EIS) VALUES ( 3664 ,'Смазка графитная                                            ','ТОП                 ','КГ     ')  
  INSERT INTO CASKLAD (CMAT,NMAT,PRVS,EIS) VALUES ( 7860 ,'Труба             25*25*2                                   ','МЕТ                 ','Т      ')  
  INSERT INTO CASKLAD (CMAT,NMAT,PRVS,EIS) VALUES ( 12158 ,'Уголок            45*45*4                                   ','МЕТ                 ','Т      ')  
  INSERT INTO CASKLAD (CMAT,NMAT,PRVS,EIS) VALUES ( 10910 ,'Фланец крепл.подш. 051023                                   ','МЕТ                 ','ШТУК   ')  
  INSERT INTO CASKLAD (CMAT,NMAT,PRVS,EIS) VALUES ( 4369 ,'Цепь               15,875                                   ','МАТ                 ','М      ')  
  INSERT INTO CASKLAD (CMAT,NMAT,PRVS,EIS) VALUES ( 16205 ,'Чашка       5609/00-038/0                                   ','КОМ                 ','ШТУК   ')  
  INSERT INTO CASKLAD (CMAT,NMAT,PRVS,EIS) VALUES ( 3699 ,'Шплинт               4*28                                   ','МАТ                 ','КГ     ')  
  INSERT INTO CASKLAD (CMAT,NMAT,PRVS,EIS) VALUES ( 30595 ,'Щетка.         072 000215                                   ','КОМ                 ','ШТУК   ')  
  INSERT INTO CASKLAD (CMAT,NMAT,PRVS,EIS) VALUES ( 10987 ,'Эмаль красно-рубиновая МЛ-12                                ','МАТ                 ','КГ     ')  
  PUBLIC oform1  
    
  oform1=NEWOBJECT("form1")  
  oform1.Show  
  RETURN  
    
    
 	**************************************************  
 *-- Form:         form1 (d:\or_skl\p_skl.scx)  
 *-- ParentClass:  form  
 *-- BaseClass:    form  
 *-- Time Stamp:   01/06/11 11:32:11 AM  
 *  
  DEFINE CLASS form1 AS form  
    
    
  	Height =  310   
  	Width =  500   
  	Desktop = .T.  
  	DoCreate = .T.  
  	AutoCenter = .T.  
  	BorderStyle =  2   
  	Caption = "Поиск товара по первым буквам или фрагменту"  
  	ControlBox = .F.  
  	FontSize =  10   
  	MaxButton = .F.  
  	MinButton = .F.  
  	WindowType =  1   
  	WindowState =  0   
  	sym = ("")  
  	kodt =  0   
  	Name = "form1"  
  	wsp = .F.  
  	cfilter = .F.  
  	cfilterold = .F.  
    
    
  	ADD OBJECT list1 AS listbox WITH ;  
  		BoundColumn =  3 , ;  
  		ColumnCount =  3 , ;  
  		ColumnWidths = "300,104,52", ;  
  		RowSourceType =  3 , ;  
  		RowSource = "SELECT nmat,eiS,cmat FROM caSKLAD ORDER BY nmat INTO CURSOR CTEX", ;  
  		ControlSource = "THISFORM.KODT", ;  
  		FirstElement =  1 , ;  
  		Height =  202 , ;  
  		IncrementalSearch = .F., ;  
  		Left =  9 , ;  
  		NumberOfElements =  0 , ;  
  		TabIndex =  2 , ;  
  		Top =  33 , ;  
  		Width =  495 , ;  
  		BoundTo = .T., ;  
  		Name = "List1"  
    
    
  	ADD OBJECT txtsearch AS textbox WITH ;  
  		Height =  23 , ;  
  		Left =  231 , ;  
  		TabIndex =  1 , ;  
  		Top =  253 , ;  
  		Width =  162 , ;  
  		Name = "txtSearch"  
    
    
  	ADD OBJECT label1 AS label WITH ;  
  		WordWrap = .T., ;  
  		Caption = "Первые буквы наименов. или фрагмент(ы) в форме(+...+...):", ;  
  		Height =  32 , ;  
  		Left =  55 , ;  
  		Top =  248 , ;  
  		Width =  170 , ;  
  		TabIndex =  3 , ;  
  		BackColor = RGB( 255 , 255 , 128 ), ;  
  		Name = "Label1"  
    
    
  	ADD OBJECT shape1 AS shape WITH ;  
  		Top =  2 , ;  
  		Left =  10 , ;  
  		Height =  31 , ;  
  		Width =  494 , ;  
  		BackColor = RGB( 128 , 255 , 255 ), ;  
  		Name = "Shape1"  
    
    
  	ADD OBJECT line1 AS line WITH ;  
  		Height =  31 , ;  
  		Left =  313 , ;  
  		Top =  2 , ;  
  		Width =  0 , ;  
  		Name = "Line1"  
    
    
  	ADD OBJECT line2 AS line WITH ;  
  		Height =  35 , ;  
  		Left =  420 , ;  
  		Top =  0 , ;  
  		Width =  0 , ;  
  		Name = "Line2"  
    
    
  	ADD OBJECT label2 AS label WITH ;  
  		Caption = "Наименование товара", ;  
  		Height =  13 , ;  
  		Left =  32 , ;  
  		Top =  9 , ;  
  		Width =  197 , ;  
  		BackColor = RGB( 128 , 255 , 255 ), ;  
  		Name = "Label2"  
    
    
  	ADD OBJECT label3 AS label WITH ;  
  		Caption = "Ед.измер.", ;  
  		Height =  17 , ;  
  		Left =  328 , ;  
  		Top =  11 , ;  
  		Width =  84 , ;  
  		BackColor = RGB( 128 , 255 , 255 ), ;  
  		Name = "Label3"  
    
    
  	ADD OBJECT label4 AS label WITH ;  
  		Caption = "Код", ;  
  		Height =  17 , ;  
  		Left =  432 , ;  
  		Top =  12 , ;  
  		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 =  49 , ;  
  		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.Value =  0 , ;  
  		Option2.Height =  17 , ;  
  		Option2.Left =  5 , ;  
  		Option2.Top =  24 , ;  
  		Option2.Width =  61 , ;  
  		Option2.Name = "Option2"  
    
    
  	ADD OBJECT command1 AS commandbutton WITH ;  
  		Top =  282 , ;  
  		Left =  245 , ;  
  		Height =  27 , ;  
  		Width =  103 , ;  
  		Caption = "Отмена поиска", ;  
  		Name = "Command1"  
    
    
  	PROCEDURE Unload  
  		RETURN THISFORM.KODT  
  	ENDPROC  
    
    
  	PROCEDURE Load  
  		PERB=""  
  	ENDPROC  
    
    
  	PROCEDURE Init  
  		ThisForm.txtSearch.Value='+'  
  		ThisForm.txtSearch.InteractiveChange  
  	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 nmat,eiS,cmat FROM caSKLAD  WHERE '  
  		    FOR I= 1  TO KW  
  				ZAPR=ZAPR+IIF(I= 1 ,'"',BUL)+STREXTRACT(PERB, '+','+',I)+'" $ UPPER(nmat)'  
  			ENDFOR  
  			ZAPR=ZAPR+' order by nmat INTO CURSOR CSLD'  
  		   ELSE  
  			 	ZAPR='SELECT nmat,eiS,cmat FROM caSKLAD  order by nmat INTO CURSOR CSLD'  
  		   ENDIF  
  			ThisForm.List1.RowSource=ZAPR  
  		ELSE  
  			PERB=UPPER(RTRIM(This.Value))  
  			ThisForm.List1.RowSource="SELECT nmat,eiS,cmat FROM caSKLAD WHERE LEFT(UPPER(nmat),LEN(PERB))=PERB order by nmat INTO CURSOR CSLD"  
  		ENDIF  
  		THISFORM.List1.REQUERY  
  	ENDPROC  
    
    
  	PROCEDURE optiongroup1.Valid  
  		ThisForm.txtSearch.InteractiveChange  
  	ENDPROC  
    
    
  	PROCEDURE command1.Click  
  		THISFORM.KODT= 0   
  		RELEASE THISFORM  
  	ENDPROC  
    
    
  ENDDEFINE  
 *  
 *-- EndDefine: form1  
 **************************************************