ClearControl

 FUNCTION ClearControl(cPre,cAlias)
   //----------------------------------------------------------------------------//
   // Очистка значений (после реиндексации)
   // cPre - префикс для идентификации данного типа генерации в пределах текущего
   //        сеанса выполнения АРМ'а
   // ВНИМАНИЕ !! Требует открытой базы с алиасом cAlias с полями :
   //             IDENT C 50, VALUE C 50, LEN N 2 0
   //             проиндексированной по UPPER(IDENT)
   // Смотри: NWDOC(), NVDOC()
   cPre:=IF(cPre=NIL,"",cPre)
   IF(VALTYPE(cAlias) = "C",,cAlias := "MEMDAT")
     (cAlias)->(DBSEEK(cPre,.T.))
     (cAlias)->(XDBEVAL({|| DBDELETE() },,{|| UPPER(FIELD->IDENT) = UPPER(cPre) },.T.))
     RETURN(NIL)