Function TARoneRow (iRow As Integer) As String
Dim Ret%
Dim i%
Dim s$
Dim s2$
Dim sRef$

If iRow = 1 Then
    FrmTarif.GridTarif.Col = 1
    FrmTarif.GridTarif.Text = MsgLabel(7)
Else
    FrmTarif.GridTarif.Col = 1
    s = OnSQLGetItem(0)
    sRef = sRef + s + ";"
    FrmTarif.GridTarif.Text = s
End If
For i = 2 To 7
    FrmTarif.GridTarif.Col = i
    s = OnSQLGetItem(i - 1)
    sRef = sRef + s + ";"
    FrmTarif.GridTarif.Text = s
Next i
s2 = OnSQLGetItem(7)
If s2 <> "0.0" Then
    FrmTarif.GridTarif.Col = 8
    s = sLibLFGetDataCombo(FrmTarif.cb(0), s2, 2, 1)
    sRef = sRef + s + ";"
    FrmTarif.GridTarif.Text = s
Else
    sRef = sRef + ";"
End If
s2 = OnSQLGetItem(8)
If s2 <> "0.0" Then
    FrmTarif.GridTarif.Col = 9
    s = sLibLFGetDataCombo(FrmTarif.cb(1), s2, 2, 1)
    sRef = sRef + s + ";"
    FrmTarif.GridTarif.Text = s
Else
    sRef = sRef + ";"
End If
s2 = OnSQLGetItem(9)
If s2 <> "0.0" Then
    FrmTarif.GridTarif.Col = 10
    s = sLibLFGetDataCombo(FrmTarif.cb(2), s2, 2, 1)
    sRef = sRef + s + ";"
    FrmTarif.GridTarif.Text = s
Else
    sRef = sRef + s + ";"
End If
FrmTarif.GridTarif.Col = 11
s = OnSQLGetItem(10)
sRef = sRef + s + ";"
FrmTarif.GridTarif.Text = s
FrmTarif.GridTarif.Col = 12
s = OnSQLGetItem(11)
sRef = sRef + s + ";"
FrmTarif.GridTarif.Text = s
TARoneRow = sRef

End Function