IF EMPTY(alltrim(thisform.IzdName_txt.Value)) THEN 
	messagebox ("Ââåäåíû íå âñå îáÿçàòåëüíûå äàííûå", 0,0)
else
	LOCATE FOR ALLTRIM(Izd.Shifr_Izd) == alltrim(thisform.IzdName_txt.Value)
	IF FOUND()
		messagebox ("Èçäåëèå óæå ïðèñóòñòâóåò â ñïðàâî÷íèêå", 0,0)
	ELSE 
		LOCAL cID_Izd
		SELECT izd
		CALCULATE MAX(izd.id_izd) ALL to cMaxID_izd
		cID_Izd = cMaxID_izd + 1
		
		APPEND BLANK
		replace Izd.ID_Izd WITH cID_Izd, Izd.Shifr_Izd WITH alltrim(thisform.IzdName_txt.Value), Izd.Izd_Prim With Thisform.IzdPrim_txt.Value
		Thisform.Grid1.Refresh 
		
		thisform.IzdName_txt.Value = ""
		Thisform.izdPrim_txt.Value = ""
	ENDIF 
endif