Function CreateDefaultProgramme (pType As Integer, sEnseigne As String, uName As String) As Integer
Dim Ret%
Dim sData$
Dim s$
Dim screa$
Dim sidProg$

sData = " INSERT INTO Programme (CodeEnseigne,Creation,maj,DebutValidite,FinValidite,Name, "
sData = sData + " burnpoint,burnlabpoint,burnvaleur,minburnresi, "
sData = sData + " eurnpoint,eurnlabpoint,eurnvaleur,mineurnresi, "
sData = sData + " isburnresi,iseurnresi,type,modeburn,relation,modeeurn,uniteburn,uniteeurn,uniteEurnresi,uniteBurnResi)  VALUES ( "
sData = sData + "'" + CStr(sEnseigne) + "',"
screa = Date$
sData = sData + "'" + screa + "',"
sData = sData + "'" + screa + "',"
sData = sData + "'" + screa + "',"
sData = sData + "'31/12/10 09:00:00',"
Select Case pType
    Case 1
	s = "Programme CRM B2C"
    Case 2
	s = "Programme CRM B2B"
    Case 3
	s = "Programme SCM B2B"
    Case 4
	s = "Programme DRM B2B"
    Case 5
	s = "Programme DRM B2C"
    Case Else
	s = "Programme par défaut"
End Select
sData = sData + "'" + s + " (" + uName + ")" + "',"
sData = sData + " '1','Point(s)','1.00','0',"
sData = sData + " '1','Point(s)','1.00','0',"
sData = sData + " '1','1',"
sData = sData + "'" + CStr(pType) + "','1','0','2','0','0','0','0' )"
Ret = pExecute(sData)
If Ret = True Then
    Ret = XasUserGetString(1, sidProg)
    XasTrace " CreateDefaultProgramme sidProg =" + sidProg
    Ret = ProgrammeForINSERT(pType, sidProg)
    If Ret Then
	CreateDefaultProgramme = True
    End If
End If

End Function