PROCEDURE VVOD

DO CASE 
    CASE alias()='SPISOK' .or.alias()='SPRSPEC' .or. alias()='SPECOD' or alias()='SPRRUK'
    LOCATE 
  IF eof() 
    APPEND BLANK 
    ACTIVATE WINDOW n02
    DEACTIVATE WINDOW n02
  ELSE 
     APPEND BLANK
  ENDIF 
    zrecv  = recno()
    VVODPR = 1
IF alias()='SPECOD'
   
   ON KEY label enter keyboard "{ctrl+end}" plain 
  SELECT sprprof
    LOCATE FOR sprprof.kprof = spisok.prof
    IF eof() or spisok.prof  = 0
  SELECT sprspec
    BROWSE FIELDS name :h=' '  title 'ENTER - Âûáîð' window n02 nomodi
    zkod  = sprspec.kod
    zname = sprspec.name
    zkol  = sprspec.kol
ELSE 
    SELECT sprprof
    BROWSE FIELDS name :h=' ' for sprprof.kprof=spisok.prof title 'ENTER - Âûáîð' window n02 nomodi
    zkod  = sprprof.kod
    zname = sprprof.name
    zkol  = sprprof.kol
ENDIF     
    ON KEY 
    SELECT specod
  GO zrecv
    REPLACE specod.tn    WITH spisok.tn
    REPLACE specod.kod   WITH  zkod 
    REPLACE specod.name  WITH zname
    REPLACE specod.koln  WITH zkol
    REPLACE specod.dnach WITH otv
    KEYBOARD "{enter}" PLAIN 
ENDIF 
    IF alias()='SPRRUK'
    ON KEY label enter keyboard "{ctrl+end}" plain 

SELECT spodr
   DEFINE POPUP spr FROM 0,40 IN SCREEN PROMPT FIELD npodr+' '+str(skpodr,6) ;
        TITLE 'ENTER -Âûáîð' MARK chr (16) MARGIN SCROLL shadow  
   ON SELECTION POPUP spr do pop with bar(),prompt(),popup()
   ACTIVATE POPUP spr REST  

SELECT  sprruk
   REPLACE sprruk.npodr WITH spodr.npodr
   REPLACE cex WITH spodr.skpodr
   KEYBOARD "{enter}" PLAIN 
       
    ON KEY 
 ENDIF 
   CASE alias()='SPRPROF'
   zprof=sprprof.kprof
   LOCATE
    
IF eof() 
    APPEND BLANK 
    ACTIVATE WINDOW n02
    DEACTIVATE WINDOW n02
ELSE 
     APPEND BLANK
ENDIF 

SELECT kprof
     LOCATE FOR kprof.kprof=zprof 
DEFINE POPUP spr FROM 0,20 IN SCREEN PROMPT FIELD nprof TITLE 'ENTER -Âûáîð' MARK chr (16) MARGIN SCROLL shadow  
ON SELECTION POPUP spr do pop with bar(),prompt(),popup()
ACTIVATE POPUP spr REST  

SELECT sprprof
  REPLACE  sprprof.kprof WITH kprof.kprof
  REPLACE  sprprof.nprof WITH kprof.nprof    

SELECT   sprspec
  DEFINE POPUP spr1 FROM 0,20 IN SCREEN PROMPT FIELD name+str(kol,2)+izm+str(srok,3) TITLE 'ENTER -Âûáîð' MARK chr(16) MARGIN SCROLL shadow 
  ON SELECTION POPUP spr1 do pop with bar(),prompt(),popup()
  ACTIVATE POPUP spr1 REST  

SELECT  sprprof
REPLACE sprprof.kod  WITH sprspec.kod
REPLACE sprprof.name WITH sprspec.name
REPLACE sprprof.izm  WITH sprspec.izm
REPLACE sprprof.kol  WITH sprspec.kol
REPLACE sprprof.srok WITH sprspec.srok

KEYBOARD "{enter}" PLAIN 
KEYBOARD "{enter}" PLAIN 
    OTHERWISE 
    
ENDCASE  
   
RETRY