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

Ctrl.Row = iRow
Ctrl.Col = 6
sId = Ctrl.Text
s = FrmLink.Txmp(0).Text
If s = "" Then
    Ret = sLibSQLSetRowError(Ctrl, iRow, 1, LinkModeCreation)
    iErr = 1
End If
s = FrmLink.Txmp(1).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 linkcarte SET "
    sData = sData + "maj='" + Date$ + "',"
    sData = sData + "name=" + Chr$(3) + FrmLink.Txmp(0).Text + Chr$(4) + ","
    sData = sData + "text=" + Chr$(3) + FrmLink.Txmp(1).Text + Chr$(4) + ","
    s = LINKGetsValue(iRow)
    sData = sData + "value=" + Chr$(3) + s + Chr$(4) + ","
    sData = sData + "statut=" + Chr$(3) + GetCharByIndice(Trim$(FrmLink.cbp(0).Text), Chr$(9), 2) + Chr$(4) + ","
    sData = sData + "enabled=" + Chr$(3) + CStr(FrmLink.chkp(0).Value) + Chr$(4)
    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
    sRef = sLibLINKGetRef(201)
    Ret = pExecute("CLEAR")
    Ret = pExecute("Select " + GetCharByIndice(sRef, ";", 2) + " from " + GetCharByIndice(sRef, ";", 1) + " where xmluserid.xxkey=" + GlobCurEntity)
    If Ret <> False Then
	sData = "INSERT INTO " + GetCharByIndice(sRef, ";", 1) + ".linkcarte (type," + GetCharByIndice(sRef, ";", 2) + ",creation,maj,name,text,value,statut,enabled) VALUES ("
	sData = sData + "'" + CStr(GlobLinkCarteType) + "','" + GlobCurEntity + "',"
	sData = sData + "'" + Date$ + "','" + Date$ + "',"
	sData = sData + Chr$(3) + FrmLink.Txmp(0).Text + Chr$(4) + ","
	sData = sData + Chr$(3) + FrmLink.Txmp(1).Text + Chr$(4) + ","
	sData = sData + Chr$(3) + FrmLink.Txmp(2).Text + Chr$(4) + ","
	sData = sData + Chr$(3) + GetCharByIndice(Trim$(FrmLink.cbp(0).Text), Chr$(9), 2) + Chr$(4) + ","
	sData = sData + Chr$(3) + CStr(FrmLink.chkp(0).Value) + Chr$(4) + ")"
	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