Function TARRowUpdate (Ctrl As Control, iRow As Integer) As Integer
Dim Ret%
Dim sData$
Dim sId$
Dim sIdClient$
Dim s$
Dim iErr%
 

Ctrl.Row = iRow
Ctrl.Col = 11
sId = Ctrl.Text
Ctrl.Col = 12
sIdClient = Ctrl.Text
s = FrmTarif.txt(0).Text
If s = "" Then
    Ret = sLibSQLSetRowError(Ctrl, iRow, 1, LinkModeCreation)
    iErr = 1
End If
If iErr = 1 Then
    Ret = sLibSQLSetRowError(Ctrl, iRow, 0, LinkModeCreation)
    Exit Function
End If
If sId <> "" Then
    sData = "UPDATE articletarif SET "
    sData = sData + "maj='" + Date$ + "',"
    sData = sData + "pu='" + FrmTarif.txt(0).Text + "',"
    sData = sData + "pupromo='" + FrmTarif.txt(1).Text + "',"
    sData = sData + "remise='" + FrmTarif.txt(2).Text + "',"
    sData = sData + "coef='" + FrmTarif.txt(3).Text + "',"
    sData = sData + "puvente='" + FrmTarif.txt(4).Text + "',"
    sData = sData + "qte='" + FrmTarif.txt(5).Text + "',"
    sData = sData + "taxes1='" + GetCharByIndice(Trim$(FrmTarif.cb(0).Text), Chr$(9), 2) + "',"
    sData = sData + "taxes2='" + GetCharByIndice(Trim$(FrmTarif.cb(1).Text), Chr$(9), 2) + "',"
    sData = sData + "devise='" + GetCharByIndice(Trim$(FrmTarif.cb(2).Text), Chr$(9), 2) + "' "
    sData = sData + " WHERE id.xxKey=" + sId
    Ret = pExecute(sData)
    If Ret = True Then
	Ctrl.Selected(iRow) = 0
    Else
	Ctrl.Selected(iRow) = 2
    End If
Else
    
    Ret = pExecute("CLEAR")
    Ret = pExecute("Select CodeProduit from Produit where CodeProduit.xxkey=" + GlobCurEntity)
    If Ret <> False Then
	sData = "INSERT INTO Produit.articletarif (CodeProduit,codeclient,creation,maj,pu ,pupromo,remise,coef,puvente,qte,taxes1,taxes2,devise) VALUES ("
	sData = sData + "'" + GlobCurEntity + "','" + sIdClient + "',"
	sData = sData + "'" + Date$ + "','" + Date$ + "',"
	sData = sData + "'" + FrmTarif.txt(0).Text + "',"
	sData = sData + "'" + FrmTarif.txt(1).Text + "',"
	sData = sData + "'" + FrmTarif.txt(2).Text + "',"
	sData = sData + "'" + FrmTarif.txt(3).Text + "',"
	sData = sData + "'" + FrmTarif.txt(4).Text + "',"
	sData = sData + "'" + FrmTarif.txt(5).Text + "',"
	sData = sData + "'" + GetCharByIndice(Trim$(FrmTarif.cb(0).Text), Chr$(9), 2) + "',"
	sData = sData + "'" + GetCharByIndice(Trim$(FrmTarif.cb(1).Text), Chr$(9), 2) + "',"
	sData = sData + "'" + GetCharByIndice(Trim$(FrmTarif.cb(2).Text), Chr$(9), 2) + "') "
	Ret = pExecute(sData)
	If Ret = True Then
	    Ret = XasUserGetString(1, sId)
	    Ctrl.Selected(iRow) = 0
	Else
	    Ctrl.Selected(iRow) = 2
	End If
    Else
	Ctrl.Selected(iRow) = 2
    End If
End If
End Function