Function CopySQLUserPerso (UserSrc As String, UserSQL As String, sBaseref As String)
Dim Ret%
Dim IdXml%
Dim s$
Dim sid$
Dim i%
Dim imax%
Dim sData$

Ret = pExecute("SELECT xmluserid FROM " + sBaseref + ".dbo.XmlUser WHERE name='" + UserSrc + "'")
If Ret <> False Then
    sid = OnSQLGetItem(0)
    sData = "SELECT linkcomponent.titre "
    sData = sData + " FROM " + sBaseref + ".dbo.XmlUser," + sBaseref + ".dbo.linkcomponent "
    sData = sData + " WHERE XmlUser.xmluserid.xxkey=" + sid
    sData = sData + " AND linkcomponent.id.xxkey=" + sid
    sData = sData + " AND linkcomponent.Name.string='OLDCHARTE'"
    Ret = pExecute(sData)
    If Ret = True Then
	s = OnSQLGetItem(0)
	Ret = pExecute("SELECT xmluserid FROM XmlUser WHERE name='" + UserSQL + "'")
	If Ret <> False Then
	    sData = "INSERT INTO XmlUser.linkcomponent (id,titre) VALUES('"
	    sData = sData + OnSQLGetItem(0) + "','" + s + "')"
	    Ret = pExecute(sData)
	End If
    End If
    
    sData = "SELECT linkcritere.titre,linkcritere.name,linkcritere.value,linkcritere.type,linkcritere.id,linkcritere.codeclient "
    sData = sData + " FROM " + sBaseref + ".dbo.XmlUser," + sBaseref + ".dbo.linkcritere "
    sData = sData + " WHERE XmlUser.xmluserid.xxkey=" + sid
    sData = sData + " AND linkcritere.codeclient.xxkey=" + sid
    Ret = pExecute(sData)
    If Ret = True Then
	While (Ret = True)
	    TabSQLValue(1, 0) = OnSQLGetItem(0)
	    TabSQLValue(1, 1) = OnSQLGetItem(1)
	    TabSQLValue(1, 2) = OnSQLGetItem(2)
	    TabSQLValue(1, 3) = OnSQLGetItem(3)
	    TabSQLValue(1, 4) = OnSQLGetItem(4)
	    TabSQLValue(1, 5) = OnSQLGetItem(5)
	    Ret = InsertLinkCritere(UserSQL)
	    Ret = pMoveNext(0)
	Wend
    End If
End If



End Function