set century on
set date to german

select b
use sys( 2003 )+"\"+"predp.dbf" alias predp
set order to kod

select d
use sys( 2003 )+"\"+"dogovor.dbf" alias dogovor
set order to kod_r
set relation to kod_pr into predp
set skip to predp

select d
set filter to kod<>"~" .and. dogovor.kod_pr=predp.kod
set delete on
goto top

ON KEY LEBEL Enter DO Edit

browse fields d.kod_r:h='Район', d.kod :h='Код',;
b.naim :h='Наименование': 45 

ON KEY

return to master

PPROCEDURE EDIT
PUSH KEY CLEAR

DEFINE WINDOW edit ;
FROM INT((SROW()- 5 )/ 2 ),INT((SCOL()- 49 )/ 2 ) ;
 TO INT((SROW()- 5 )/ 2 )+ 4 ,INT((SCOL()- 49 )/ 2 )+ 48  ;
NOFLOAT ;
NOCLOSE ;
SHADOW

ACTIVATE WINDOW edit
@  0 , 15  GET d.kod_r ;
	SIZE  1 , 10  ;
	DEFAULT " "
@  0 , 1  SAY "Район­:"
@  1 , 1  SAY "Код:"
@  1 , 15  GET d.kod ;
	SIZE  1 , 10  ;
	DEFAULT " "
@  2 , 1  SAY "Наименование:"
@  2 , 15  GET b.naim ;
	SIZE  1 , 31  ;
	DEFAULT " "

READ
RELEASE WINDOW edit

DEFIND WINDOW
POP KEY
RETURN