Function TARCheckSetData (Ctrl As Control, iRow As Integer, iCol As Integer, iValue As Integer) As Integer
Dim Ret%
Dim i%
Dim s$
Dim sId$
Dim sNum$
Dim sData$

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 = 1
    s = Ctrl.Text
    FrmTarif.TxClient.Text = s
    s = Chr$(3) + "TxClient"
    Ctrl.Text = s
    For i = 2 To 7
	Ctrl.Col = i
	s = Ctrl.Text
	FrmTarif.txt(i - 2).Text = s
	s = Chr$(3) + "txt(" + CStr(i - 2) + ")"
	Ctrl.Text = s
    Next i
    
    Ctrl.Col = 8
    s = Ctrl.Text
    Ret = sLibLFPosCombo(FrmTarif.cb(0), Trim$(Ctrl.Text), 1)
    s = Chr$(3) + "cb(0)"
    Ctrl.Text = s

    Ctrl.Col = 9
    s = Ctrl.Text
    Ret = sLibLFPosCombo(FrmTarif.cb(1), Trim$(Ctrl.Text), 1)
    s = Chr$(3) + "cb(1)"
    Ctrl.Text = s

    Ctrl.Col = 10
    s = Ctrl.Text
    Ret = sLibLFPosCombo(FrmTarif.cb(2), Trim$(Ctrl.Text), 1)
    s = Chr$(3) + "cb(2)"
    Ctrl.Text = s

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