PROCEDURE grid1.Init
		THIS.RecordSource=''

		SELECT NAIM,ID_RAS FROM SP_RAS WHERE ID_OTD=OTPP ORDER BY  1  INTO CURSOR CPOL

		THIS.RecordSource='CPOL'

		This.parent.Grid2.RECORDSOURCE=''
			SELECT SCET,naim_t2,ed_izm,cena,R_OST.KOL,R_OST.ID_KOL,R_OST.ID_OST FROM R_OST INNER JOIN OST ON OST.ID_OST=R_OST.ID_OST AND R_OST.ID_ZAT= 1  ;
				INTO CURSOR VZ_OST
		This.parent.Grid2.RECORDSOURCE='VZ_OST'

		PUBLIC RAS_ID
		RAS_ID= 0   
		THIS.SetAll("dynamicbackcolor", ;  
		  "IIF(CPOL.ID_RAS=RAS_ID, RGB(128,255,128), RGB(255,255,255))", "Column")
	ENDPROC

	PROCEDURE grid1.AfterRowColChange
		LPARAMETERS nColIndex
		This.parent.Grid2.Column2.Header1.Caption='Расходованы материалы на:'+CHR( 13 )+RTRIM(CPOL.naim)
		This.parent.Grid2.Refresh
		RAS_ID=CPOL.ID_RAS
		THIS.REFRESH
	ENDPROC




	PROCEDURE grid2.Refresh
		This.RecordSource=''
			SELECT OST.SCET,OST.naim_t2,OST.ed_izm,OST.cena,CR.KOL,CR.ID_KOL,CR.ID_OST FROM ;
			(SELECT KOL,ID_OST,ID_KOL FROM R_OST WHERE R_OST.ID_ZAT=CPOL.ID_RAS ) CR ;
			 INNER JOIN OST ON OST.ID_OST=CR.ID_OST ;
				ORDER BY ID_KOL INTO CURSOR VZ_OST READWRITE
		This.RecordSource='VZ_OST'
	ENDPROC


	PROCEDURE grid2.Init
		THIS.ADDPROPERTY("WYB", 0 )
	ENDPROC


	PROCEDURE grid2.RightClick
		LOCAL WYB,OST_ID
		WYB=THIS.WYB
		IF WYB= 0 
			DEFINE POPUP shortcut SHORTCUT RELATIVE FROM MROW(),MCOL()

			DEFINE BAR  1  OF shortcut PROMPT "\<Вставить"

			IF NOT EOF()
				DEFINE BAR  2  OF shortcut PROMPT "\<Удалить"
			ENDIF


			IF WYB> 0 
				DEFINE BAR  3  OF shortcut PROMPT "\<Отменить"
			ENDIF


			ON SELECTION BAR  1  OF shortcut WYB= 1 
			IF NOT EOF()
				ON SELECTION BAR  2  OF shortcut WYB= 2 
			ENDIF


			IF WYB> 0 
				ON SELECTION BAR  3  OF shortcut WYB= 3 
			ENDIF


			IF WYB= 0 
				ACTIVATE POPUP shortcut
			ELSE
				ACTIVATE POPUP shortcut BAR WYB
			ENDIF
		ENDIF

		DO CASE
			CASE WYB= 1 
					DO FORM P_OST.scx TO OST_ID
					IF M.OST_ID> 0 
						SELECT R_OST
						APPEND BLANK
						REPLACE ID_OST WITH M.OST_ID,ID_ZAT WITH CPOL.ID_RAS,KOL WITH CSLD.KOL2
						UPDATE OST SET KOL1=KOL,KOL2= 0  WHERE ID_OST = M.OST_ID
						This.Column5.Text1.OST=CSLD.KOL2
												KOL_ID=ID_KOL
						THIS.Refresh
						SELECT VZ_OST
						LOCATE FOR ID_KOL=M.KOL_ID
					ENDIF &&RAS_ID> 0 
			CASE WYB= 2 
				OST_ID=VZ_OST.ID_OST
				KOLK=VZ_OST.KOL
				DELETE FROM R_OST WHERE R_OST.ID_KOL=VZ_OST.ID_KOL 
				UPDATE OST SET KOL1=KOL1-KOLK,KOL2=KOL2+KOLK WHERE ID_OST=M.OST_ID
				THIS.Refresh
		ENDCASE
		THIS.WYB= 0 
	ENDPROC

	PROCEDURE text1.Valid
		LOCAL KOL_ID,KOLK,OST_ID
		LOCAL ARRAY AOST( 1 , 3 ),KOLS( 1 )
		KOL_ID=VZ_OST.ID_KOL
		OST_ID=VZ_OST.ID_OST
		SELECT KOL FROM R_OST WHERE ID_KOL=M.KOL_ID INTO ARRAY KOLS
		SELECT KOL,KOL1,KOL2 FROM OST  WHERE ID_OST=M.OST_ID INTO ARRAY AOST
		IF THIS.VALUE > (AOST( 1 , 3 )+KOLS( 1 ))
			RETURN .F.
		ENDIF
		UPDATE R_OST SET KOL = THIS.VALUE WHERE ID_KOL = M.KOL_ID
		UPDATE OST SET KOL1 = AOST( 1 , 2 )-KOLS( 1 )+THIS.Value,KOL2=AOST( 1 , 3 )+KOLS( 1 )-THIS.VALUE WHERE OST.ID_OST=M.OST_ID
	ENDPROC