//  Make sure that the new row is visible

//  Function Name:  uf_InsertRow

//  Insert a new row into the DataWindow.

//  Arguments:
//     ai_where      // where to insert the row:
//                  // = - 1  - at the current row position
//                  // =   0  - after the last row (append)
//                  // =  n> 0  - at row # n

//  Return Values:
//     True       // success
//     False      // failure

// НЕ СОВСЕМ ПРАВИЛЬНО работает если указатель на  последней записи
// и сделан click on submenu InsertRow если стиль представления 
//	FreeForm.  Имело место и записано  28 . 05 . 2008 
// Выводится информационное сообщение, но введенная запись
//	при необходимости может быть добавлена в таблицу!
//	Не знаю как проверить стиль представления, если в случае
//	FreeForm , то Scrolling НЕ УМЕСТЕН.

//  If the function returns False, it has also displayed an error
//  by calling error.uf_Error().

//  Local Variables:
Long ll_origrow     // original row #
Long ll_newrow      // new row #
Long ll_result      // result of InsertRow function call

//  Perform row-departure-processing on the current row

IF not This.uf_RowDepart(False) THEN GOTO ErrorExit

//  Determine where to insert the new row

IF ai_where <  0  THEN              // - 1 :  insert at current position
   ll_origrow = This.GetRow()      // what is the current row #
   ll_newrow = ll_origrow            // insert row at current position
ELSEIF ai_where =  0  THEN          //  0 :   append
   ll_newrow =  0                    // code for append
ELSE                             // > 0 :  a row #
   ll_newrow = ai_where             // position for the new row
END IF

//  Insert the new row

ll_result  = This.InsertRow(ll_newrow)  // insert a row here

//  Check the result

IF ll_result <=  0  THEN GOTO ErrorInsert

//  Make sure that the new row is visible

IF This.ScrollToRow(ll_result) <>  1  THEN    // try to scroll
   error.ii_severity  =  3     // warning message
	//+  28 . 05 . 2008  MessageBox(""," 322.u_dw_base~n~nIF This.ScrollToRow(ll_result) <> 1 THEN")
   error.is_errorid   = "InsScroll"
   error.Object      = This.ClassName()
   error.ObjectEvent = "uf_InsertRow"
   error.uf_Error()         // display the warning message
END IF

//  Successful return

RETURN True

//  Error handling

ErrorInsert:
error.is_errorid   = "InsertRow"
GOTO ErrorHandler

ErrorHandler:
error.WindowMenu  = Parent.ClassName()
error.Object      = This.ClassName()
error.ObjectEvent = "uf_InsertRow"
error.ii_severity  =  2 
error.uf_Error()         // display the error message
GOTO ErrorExit

ErrorExit:
RETURN False