Comment

 FUNCTION Comment(lWrite,lView)
   LOCAL nWin:=WSELECT()
   LOCAL aSetKey:=SAVESETKEY(),cLastColor
   LOCAL nTop:=8,nLeft:=13,nBottom:=15,nRight:=70
   LOCAL sRest,sRest24,cSclads:=pSclads, oldCursor
   WSELECT(0)
   sRest:=SAVESCREEN(nTop,nLeft,nBottom,nRight)
   sRest24:=SAVESCREEN(23,0,24,79)
   cLastColor:=SETCOLOR(COL_SHEADR)
   @ nTop,nLeft TO nBottom,nRight DOUBLE COLOR COL_SHEADR
   @ nTop,nLeft+20 SAY ' Комментарий '
   IF !_REC_YES
     lView:=.T.
   ENDIF
   IF lView==NIL
     ScrTitul(24,"Ctrl-:Конец ввода -:Новая строка Ctrl-Y:Удалить строку Ins:Режим вставки")
     ScrTitul(23,"")
     SETKEY(K_CTRL_RET,{||KEYB(K_CTRL_W)})
   ENDIF
   oldCursor=IF(lView==NIL,SETCURSOR(1),SETCURSOR(0))
   pSclads:=MEMOEDIT(pSclads,nTop+1,nLeft+1,nBottom-1,nRight-1,(lView==NIL),'FunBook',100)
   IF lView==NIL.AND.!pSclads==cSclads
     pUpDated:=.T.
     IF lWrite!=NIL
       RecLock()
       REPLACE Sclads WITH pSclads
       UNLOCK
       COMMIT
     ENDIF
   ENDIF
   SETCURSOR(oldCursor)
   RESTSETKEY(aSetKey)
   SETCOLOR(cLastColor)
   RESTSCREEN(nTop,nLeft,nBottom,nRight,sRest)
   RESTSCREEN(23,0,24,79,sRest24)
   WSELECT(nWin)
   RETURN(NIL)