CREATE CURSOR CurWrk(norg_id Integer, allroles char)
LnHandle=SQLExec(oThisForm.nConnectHandle, LcSql, 'CurWrk')
IF LnHandle > - 1 
  *UPDATE rv_slorg SET allroles=CurWrk.all_roles WHERE norg_id=CurWrk.norg_id  
    
  SELECT CurWrk
    INDEX ON norg_id TAG norg_id
     *GO TOP IN CurWrk
    *SELECT rv_slorg
     * GO TOP IN rv_allroles
          * SELECT rv_slorg
     * GO TOP IN rv_slorg
      *  SET RELATION TO norg_id INTO CurWrk
    *SET ORDER TO  0 
   *SELECT CurWrk
GO TOP IN rv_slorg
    SCAN
      SELECT rv_slorg
         LOCATE FOR rv_slorg.norg_id=CurWrk.norg_id
          IF FOUND()
             Replace allroles  WITH CurWrk.allroles IN rv_slorg
           ENDIF
    ENDSCAN
   * SET RELATION TO                
  GO TOP IN rv_slorg
ELSE
  =MESSAGEBOX("Запрос к базе данных не выполнен!", 48 ,ThisForm.Caption)
ENDIF


IF USED('CurWrk')         
  USE IN CurWrk
ENDIF