ADD OBJECT list1 AS listbox WITH ;
		BoundColumn =  4 , ;
		ColumnCount =  2 , ;
		ColumnWidths = "210,40", ;
		RowSourceType =  3 , ;
		RowSource = "select  * FROM  COP WHERE PRP INTO CURSOR CM1", ;
		Height =  244 , ;
		Left =  365 , ;
		Sorted = .F., ;
		Top =  98 , ;
		Width =  331 , ;
		Name = "List1"

	ADD OBJECT list2 AS listbox WITH ;
		BoundColumn =  4 , ;
		ColumnCount =  3 , ;
		ColumnWidths = "150,40,60", ;
		RowSourceType =  3 , ;
		RowSource = "select  * FROM  COP WHERE NOT PRP INTO CURSOR CM2", ;
		Height =  244 , ;
		Left =  0 , ;
		Sorted = .F., ;
		Top =  97 , ;
		Width =  302 , ;
		Name = "List2"


	PROCEDURE list1.Valid
		UPDATE COP SET PRP=NOT PRP WHERE TN=CM1.TN
		THISFORM.LIST1.REQUERY
		THISFORM.LIST2.REQUERY
	ENDPROC


	PROCEDURE list2.Valid
		SELECT TN FROM BANK_LIC WHERE ID_BNK=CBNK.ID_BNK AND TN=CM2.TN INTO ARRAY ATN
		IF _TALLY> 0 
			UPDATE COP SET PRP=NOT PRP WHERE TN=CM2.TN
			RELEASE ATN
		ENDIF
		THISFORM.LIST1.REQUERY
		THISFORM.LIST2.REQUERY
	ENDPROC




	ADD OBJECT command1 AS commandbutton WITH ;
		Top =  260 , ;
		Left =  304 , ;
		Height =  27 , ;
		Width =  60 , ;
		Caption = "Экспорт", ;
		Name = "Command1"


	ADD OBJECT command2 AS commandbutton WITH ;
		Top =  296 , ;
		Left =  304 , ;
		Height =  27 , ;
		Width =  60 , ;
		Caption = "ВЫХОД", ;
		Name = "Command2"



	PROCEDURE commandgroup1.Command1.Click
		THISFORM.LIST1.VALID
	ENDPROC


	PROCEDURE commandgroup1.Command2.Click
		UPDATE COP SET PRP=NOT PRP WHERE PRP
		THISFORM.LIST1.REQUERY
		THISFORM.LIST2.REQUERY
	ENDPROC


	PROCEDURE commandgroup1.Command3.Click
		THISFORM.LIST2.VALID
	ENDPROC


	PROCEDURE commandgroup1.Command4.Click
		SELECT TN FROM COP WHERE NOT PRP AND TN IN (SELECT TN FROM BANK_LIC WHERE ID_BNK=CBNK.ID_BNK) INTO CURSOR CPER
		UPDATE COP SET PRP=NOT PRP WHERE TN IN (SELECT TN FROM CPER)
		USE IN CPER
		THISFORM.LIST1.REQUERY
		THISFORM.LIST2.REQUERY
	ENDPROC


	



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