Sub Form_Load ()
Dim Ret%
Dim s$


Ret = InitSQL(GlobPU.Connect, "XML", "XML", "SYNCHRO")
Ret = SetPaysToForm(Val(GlobPU.XasPays))
Ret = DoClearAll(0)
Ret = DoAllCOMBO(Val(GlobPU.XasPays))
Cel(2).Visible = False
Cel(1).Visible = True
PicBtn(3).Visible = False
PicBtn(5).Visible = False
PicBtn(6).Visible = False
PicBtn(7).Visible = False
TypeEnseigne = 1
If XasUserGetString(1, s) = True Then
    TypeEnseigne = Val(s)
End If

ModeEasy = False
If XasUserGetString(3, s) = True Then
    If Val(s) = 1 Then
	ModeEasy = True
	CurEnseigne_id = GlobPU.XasIdBase
	Cel(1).Visible = False
	Cel(2).Visible = True
	Ret = DoSqlCompte(CurEnseigne_id)
    Else
	Ret = DoSearchCompte(TypeEnseigne)
    End If
Else
    Ret = DoSearchCompte(TypeEnseigne)
End If
Ret = ProfileAccess(GlobPU.XasDroit)

If IsXasTools() = True Then
     'Ret = DoScreenSize(GlobScreenWidth, GlobScreenHeight)
     s = "COMPONENT=LINKUSER;P1=0;P2=0;P3=0;"
     Set CCompoLinkUser = CreateObject(s)
    Ret = GereOnglet(0)
End If


 
End Sub