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

Ret = DoClearAll(0)
Celcombo.Visible = False
Ret = DoAllCOMBO(36)
If isMultiBase = True Then
    Ret = InitTreeView(0)
End If
sData = "SELECT CodeClient, creation , maj , type, RaisonSociale, carteid,CodeProgramme "
sData = sData + " Name,prenom,Adresse,AdresseSuite,Cp,Ville,"
sData = sData + " email, phone,fax, banque,"
sData = sData + " Identifiant,designation,matricule, NumCompta,"
sData = sData + " type,CodeProgramme,CodeSite, Titre, dep , region , pays , langue , devise,tpe_name,tpe_secours,CodeEnseigne   "
sData = sData + " FROM Client "
sData = sData + " WHERE CodeClient.xxKey = " + CStr(sid)
Ret = pExecute(sData)
DoSqlEntity = Ret
If (Ret = True) Then
    For i = 0 To 16
	s = OnSQLGetItem(i)
	If i = 6 Then
	    idP = s
	End If
	txT(i).Text = s
    Next i
    For j = 29 To 31
	s = OnSQLGetItem(i)
	txT(j).Text = s
	i = i + 1
    Next j
    s = OnSQLGetItem(i)
    txT(45).Text = s
    i = i + 1
    For j = 0 To 9
	s = OnSQLGetItem(i)
	Ret = PosCombo(Cb(j), s)
	If j = 0 Then
	    TypeEntity = Val(s)
	End If
	i = i + 1
    Next j
    Ret = pGetItem(s, i)
    'ret = PosCombo(Cb(34), s)
    If Len(s) = 1 Then
	Chk(3).Value = Val(s)
    Else
	Chk(3).Value = 0
    End If
    i = i + 1
    Ret = pGetItem(s, i)
    Ret = PosCombo(Cb(35), s)
    
    Ret = SetTreeView(IdXmlSite, sid)
    Ret = SetAllChild(sid)
    s1 = "Voulez-vous effacer cette Entité ?"
    Ret = XasUserSetProperties(PicBtn(7), 241, "javascript:DelConfirm(self,'Id" + XasGetIdCtrl(FromDelete, "", 0) + "','" + s1 + "');")
    
    s2 = "Id" + XasGetIdCtrl(FromSubmit, "", 0)
    i = Val(txT(3).Text)
    j = Val(Trim$(Right$(Cb(7).Text, 6)))
    sData = "SELECT Type FROM programme WHERE codeprogramme.xxKey=" + CStr(idP)
    Ret = pExecute(sData)
    If Ret Then
	s = OnSQLGetItem(0)
    End If
    s = "TRANSAC.XCOM?P1=" + CStr(sid) + ";P2=" + s + ";P3=" + CStr(i) + ";P4=" + CStr(CurEcran) + ";"
    Ret = XasUserSetProperties(CelFond(5), 1, s)
    Ret = XasUserSetProperties(CelFond(5), 130, 0)
    Ret = XasUserSetProperties(TxtFile, 76, "")
    Ret = XasUserSetProperties(CelFond(14), 211, "")
    
    Ret = GetProcFile(sid)

    Ret = XasUserSetSTring(6, CStr(GlobPU.XasId) + "-TMPFILE.TXT")
    Ret = XasUserSetSTring(7, "ENTITY")
    Ret = XasUserSetSTring(8, ".HTM")

    Ret = XasUserSetProperties(CelFond(15), PROP_DIRECTFILE, "COMPONENT=READER;P1=1;P2=1;P3=1;")
    Ret = XasUserSetProperties(CelFond(15), PROP_FRAMETARGET, "READER")
    If ModeEasy = True Then
	Ret = DoEasyMode(0)
    End If
End If

End Function