Function EnseigneForINSERT (sIdEns As String, username As String, sBase As String, UserBase As String) As Integer
Dim Ret%
Dim sData$
Dim screa$
Dim sGlobPU$

EnseigneForINSERT = False


Ret = CreateDefaultProgramme(1, sIdEns, username)'CRM b2c
If Ret = False Then
    XasTrace " EnseigneForINSERT Error on Programme CRM B2C"
    Ret = pExecute("CHANGEDATABASE('" + GlobPU.Connect + "') ")
    Exit Function
End If
Ret = CreateDefaultProgramme(5, sIdEns, username)'DRM B2c
If Ret = False Then
    XasTrace " EnseigneForINSERT Error on Programme DRM B2C"
    Ret = pExecute("CHANGEDATABASE('" + GlobPU.Connect + "') ")
    Exit Function
End If
Ret = CreateDefaultSite(1, sIdEns, username) ' site Phy
If Ret = False Then
    XasTrace " EnseigneForINSERT Error on site Physique"
    Ret = pExecute("CHANGEDATABASE('" + GlobPU.Connect + "') ")
    Exit Function
End If
Ret = CreateDefaultSite(2, sIdEns, username) ' site internet
If Ret = False Then
    XasTrace " EnseigneForINSERT Error on site internet"
    Ret = pExecute("CHANGEDATABASE('" + GlobPU.Connect + "') ")
    Exit Function
End If
Ret = CreateDefaultSite(3, sIdEns, username) ' site Personnalisé
If Ret = False Then
    XasTrace " EnseigneForINSERT Error on site internet"
    Ret = pExecute("CHANGEDATABASE('" + GlobPU.Connect + "') ")
    Exit Function
End If
Ret = CreateDefaultUser(sIdEns, username, sBase, UserBase, "111000011100000011101111111100")
If Ret <> True Then
    XasTrace " EnseigneForINSERT Error creation user"
End If
EnseigneForINSERT = True
 


End Function