Function TRNEECheckSetData (ctrl As Control, iRow As Integer, iCol As Integer, iValue As Integer) As Integer
Dim Ret%
Dim Ret2%
Dim i%
Dim s$
Dim sId$
 

If iValue > 0 Then
    s = ""
    For i = 1 To 10
        ctrl.Col = i
        s = s + ctrl.Text + Chr$(1)
    Next i
    GlobSaveGridLigne(iRow) = s
    ctrl.Col = GlobCurColId
    sId = ctrl.Text
    Ret = OPELoadError(15, sId)
    ctrl.Col = 1
    s = ctrl.Text
    FrmMain.Txm(0).Text = s
    s = Chr$(3) + "txm(0)"
    ctrl.Text = s
    
    ctrl.Col = 2
    s = ctrl.Text
    FrmMain.Txm(1).Text = s
    s = Chr$(3) + "txm(1)"
    ctrl.Text = s
    
    
    ctrl.Col = 3
    s = ctrl.Text
    Ret = TRNEELinkGet(FrmMain.cb(0), sId, 0, 2)
    s = Chr$(3) + "cb(0)"
    ctrl.Text = s
    
    ctrl.Col = 4
    s = ctrl.Text
    Ret = TRNEELinkGet(FrmMain.cb(1), sId, 1, 100)
    s = Chr$(3) + "cb(1)"
    ctrl.Text = s

    
    ctrl.Col = 5
    s = ctrl.Text
    Ret = sLibLFPosCombo(FrmMain.cb(2), s, 1)
    s = Chr$(3) + "cb(2)"
    ctrl.Text = s
    
    ctrl.Col = 6
    s = ctrl.Text
    Ret = sLibLFPosCombo(FrmMain.cb(3), s, 1)
    s = Chr$(3) + "cb(3)"
    ctrl.Text = s
    
    ctrl.Col = 7
    FrmMain.chk(0).Value = 0
    s = ctrl.Text
    Ret = InStr(1, s, "_6.")
    If Ret > 0 Then
        FrmMain.chk(0).Value = 1
    End If
    s = Chr$(3) + "chk(0)"
    ctrl.Text = s

    ctrl.Col = 8
    s = ctrl.Text
    Ret = OPECBOPosImage(FrmMain.cb(4), s)
    s = Chr$(3) + "cb(4)"
    ctrl.Text = s

    ctrl.Col = 9
    s = ctrl.Text
    Ret = OPECBOPosImage(FrmMain.cb(5), s)
    s = Chr$(3) + "cb(5)"
    ctrl.Text = s
    
    ctrl.Col = 10
    ctrl.Text = ""

Else
    For i = 1 To 10
        ctrl.Col = i
        s = GetCharByIndice(GlobSaveGridLigne(iRow), Chr$(1), i)
        ctrl.Text = s
    Next i

End If
End Function