Function DoSqlCompte (sid As String) As Integer
Dim sData$
Dim Ret%
Dim i%
Dim j%
Dim s$
Dim s1$
Dim s2$
Dim z%

Ret = DoClearAll(0)
Txt(6).Enabled = False
sData = "SELECT CodeEnseigne, creation , maj , type, RaisonSociale, numcompta,databasexml,"
sData = sData + " Name,prenom,Adresse,AdresseSuite,Cp,Ville,"
sData = sData + " email, phone,fax, banque,icon,  "
sData = sData + " type, Titre, dep , region , pays , langue , devise  "
sData = sData + " FROM maitre.dbo.Enseigne "
sData = sData + " WHERE CodeEnseigne.xxKey = " + CStr(sid)
Ret = pExecute(sData)
DoSqlCompte = Ret
If Ret = True Then
    For i = 0 To 17
	Ret = pGetItem(s, i)
	Txt(i).Text = s
    Next i
    For j = 0 To 6
	Ret = pGetItem(s, i)
	Ret = PosCombo(Cb(j), s)
	i = i + 1
    Next j
    s1 = "Voulez-vous effacer ce compte ?"
    Ret = XasUserSetProperties(PicBtn(7), 241, "javascript:DelConfirm(self,'Id" + XasGetIdCtrl(FromDelete, "", 0) + "','" + s1 + "');")
    Ret = XasUserGetProperties(FromSubmit, 181, z)
    s2 = "Id" + CStr(Ret)
    Ret = pGetItem(s1, 6)
    CurDatabase = s1
    s = "LINKUSER.XCOM?P1=" + CStr(sid) + ";P2=;P3=" + CStr(ModeEasy) + ";P4=" + s1 + ";"
    Ret = XasUserSetProperties(CelFond(2), 1, s)
    Ret = XasUserSetProperties(CelFond(2), 130, 0)
    Ret = pExecute("CHANGEDATABASE('" + Trim$(CurDatabase) + "') ")
    Ret = pTmpExecute("CHANGEDATABASE('" + Trim$(CurDatabase) + "') ")
    GlobPU.Connect = CurDatabase
End If


If ModeEasy = True Then
    Ret = DoEasyMode(0)
End If

End Function