Set Me.MSHFlexGrid1.Recordset = rst
            
            If rst.EOF And rst.BOF Then
                    Me.MSHFlexGrid1.Rows = 2
                Else
                    Me.MSHFlexGrid1.Rows = RowCount
            End If
            
            Me.MSHFlexGrid1.FormatString = "<|^id_oper|^ТИП|^Номер|^Дата документа|^Дата валютир.|^Код валюты|^Сумма|^Клиент|^Статус"
    
            Me.MSHFlexGrid1.RowHeight(0) = 500
            Me.MSHFlexGrid1.ColWordWrapOption(0) = True
    
            Me.MSHFlexGrid1.ColWidth(0) = 250
            Me.MSHFlexGrid1.ColWidth(1) = 0
            Me.MSHFlexGrid1.ColWidth(2) = 700
            Me.MSHFlexGrid1.ColWidth(3) = 1000
            Me.MSHFlexGrid1.ColWidth(4) = 1100
            Me.MSHFlexGrid1.ColWidth(5) = 1100
            Me.MSHFlexGrid1.ColWidth(6) = 800
            Me.MSHFlexGrid1.ColWidth(7) = 1200
            
            If RowCount < 18 Then
                    Me.MSHFlexGrid1.ColWidth(8) = 3900
                Else
                    Me.MSHFlexGrid1.ColWidth(8) = 3650
            End If
            
            Me.MSHFlexGrid1.ColWidth(9) = 1000
            
            Me.MSHFlexGrid1.ColAlignment(2) = 4
            Me.MSHFlexGrid1.ColAlignment(3) = 7
            Me.MSHFlexGrid1.ColAlignment(4) = 4
            Me.MSHFlexGrid1.ColAlignment(5) = 4
            Me.MSHFlexGrid1.ColAlignment(6) = 4
            Me.MSHFlexGrid1.ColAlignment(7) = 7
            Me.MSHFlexGrid1.ColAlignment(8) = 1
            Me.MSHFlexGrid1.ColAlignment(9) = 4
            
            Me.MSHFlexGrid1.Refresh
            If Not rst.EOF And Not rst.BOF Then Me.MSHFlexGrid1.Row = 1