Public Sub ShowForm(ByVal pProfile As DOCSObjects.IProfile)

On Error GoTo EndOfFun

    If pProfile Is Nothing Then Err.Raise vbObjectError +  1000 , "frmProfileHistory.ShowForm", "ïðîôèëü íå âûáðàí"
    
    Dim doc_num As Long
    
    doc_num = pProfile.DocNumber
   
    Dim psql As PCDSQL
    
    Dim ssql As String
    ssql = "select T.system_id, T.change_date, P.FULL_NAME TYPIST, T.colname, T.old_value, T.new_value from docsadm.tl_profile_history T, docsadm.people P where P.system_id = T.typist and T.docnumber = " & Str(doc_num)
    Assert False, ssql
    Set psql = retrieveSQL(ssql)
    
    If CBool(psql Is Nothing) = True Then Err.Raise vbObjectError +  1000 , "frmProfileHistory.ShowForm", "äëÿ äàííîãî ïðîôèëÿ íå óäàëîñü ñ÷èòàòü èñòîðèþ èçìåíåíèé: çàïèñåé íå íàéäåíî"
    
    Dim colcnt As Integer
    
    colcnt = psql.GetColumnCount
    
    Dim iSysID_ord As Integer
    Dim iDocNum_ord As Integer
    Dim iChngDat_ord As Integer
    Dim iTypist_ord As Integer
    Dim iColName_ord As Integer
    Dim iOld_ord As Integer
    Dim iNew_ord As Integer
    Dim curcolname As String
    
    Dim i As Integer
    
    For i =  1  To colcnt
    
        curcolname = psql.GetColumnName(i)
        If UCase(curcolname) = "SYSTEM_ID" Then iSysID_ord = i: GoTo endcycle1
        If UCase(curcolname) = "CHANGE_DATE" Then iChngDat_ord = i: GoTo endcycle1
        If UCase(curcolname) = "TYPIST" Then iTypist_ord = i: GoTo endcycle1
        If UCase(curcolname) = "COLNAME" Then iColName_ord = i: GoTo endcycle1
        If UCase(curcolname) = "OLD_VALUE" Then iOld_ord = i: GoTo endcycle1
        If UCase(curcolname) = "NEW_VALUE" Then
            iNew_ord = i: GoTo endcycle1
        Else
            Err.Raise - 1 , Me, "Íåïðàâèëüíîå èìÿ êîëîíêè:" & curcolname
        End If
endcycle1:
    Next i
    
        Set pRecordset = New ADODB.Recordset
        
        pRecordset.Fields.Append "SYSTEM_ID", adVarChar,  4000 
        pRecordset.Fields.Append "CHANGE_DATE", adVarChar,  4000 
        pRecordset.Fields.Append "TYPIST", adVarChar,  4000 
        pRecordset.Fields.Append "COLNAME", adVarChar,  4000 
        pRecordset.Fields.Append "OLD_VALUE", adVarChar,  4000 
        pRecordset.Fields.Append "NEW_VALUE", adVarChar,  4000 

        pRecordset.Open
        
    Do
        pRecordset.AddNew
        pRecordset("SYSTEM_ID") = psql.GetColumnValue(iSysID_ord)
        pRecordset("CHANGE_DATE") = psql.GetColumnValue(iChngDat_ord)
        pRecordset("TYPIST") = psql.GetColumnValue(iTypist_ord)
        pRecordset("COLNAME") = psql.GetColumnValue(iColName_ord)
        pRecordset("OLD_VALUE") = psql.GetColumnValue(iOld_ord)
        pRecordset("NEW_VALUE") = psql.GetColumnValue(iNew_ord)
        pRecordset.Update
        If psql.NextRow = False Then Exit Do
    Loop
    
    
    Set Me.DataGrid1.DataSource = pRecordset
    
    
    Me.DataGrid1.Columns("SYSTEM_ID").Visible = False
    Me.DataGrid1.Columns("SYSTEM_ID").Width =  0 
    Me.DataGrid1.Columns("CHANGE_DATE").Caption = "Äàòà èçìåíåíèÿ"
    Me.DataGrid1.Columns("CHANGE_DATE").Width =  500   '  <<< - КОЛОНКА НЕ НАЙДЕНА ?
    Me.DataGrid1.Columns("TYPIST").Caption = "Ïîëüçîâàòåëü"
    Me.DataGrid1.Columns("COLNAME").Caption = "Íàçâàíèå ïîëÿ"
    Me.DataGrid1.Columns("OLD_VALUE").Caption = "Ïðåæíåå çíà÷åíèå"
    Me.DataGrid1.Columns("NEW_VALUE").Caption = "Èçìåíåííîå çíà÷åíèå"
    
    Me.Caption = "Èñòîðèÿ èçìåíåíèé êàðòî÷êè: #" & doc_num & "  " & pProfile.Name
    Me.Show vbModal
    
    Exit Sub
    
EndOfFun:
MsgBox "Â ðåçóëüòàòå ðàáîòû âîçíèêëà ñëåäóþùàÿ îøèáêà" & vbCrLf & "  èñòîðèÿ èçìåíåíåíèé íåäîñòóïíà." & vbCrLf & vbCrLf & Err.Description, vbCritical, "Îøèáêà"

End Sub