Function xTRNEECreateRPT (sIdTrnee As String) As Integer
Dim Ret%
Dim sData$
Dim sListe$
Dim sIdProg$
Dim sIdMobile$
Dim sIdScenrio$
Dim IdXml%

sData = "Select CodeProgramme,CarteId FROM Client WHERE CodeClient.xxKey=" + sIdTrnee
Ret = pExecute(sData)
If Ret = True Then
    sIdProg = OnSQLGetItem(0)
    sIdMobile = OnSQLGetItem(1)
    sData = "Select id FROM Scenario WHERE criterea.xxKey=" + sIdMobile + " USEINDEX('IdScenario')"
    Ret = pExecute(sData)
    If Ret = True Then
        sIdScenrio = OnSQLGetItem(0)
        sData = "Select  tranid.GetData(CodeCLient,Transaction,tranid,Parent),DateLivraison,heuredebut,heurefin,   "
        sData = sData + " FROM PiedCmd WHERE aLink.xxkey = " + sIdTrnee
        sData = sData + " ORDER By Heuredebut.xxhour"
        sData = sData + " USEINDEX('IdPiedCmd') "
        Ret = pExecute(sData)
        While (Ret = True)
            sListe = sListe + OnSQLGetItem(0) + ","
            Ret = DateDiff("s", OnSQLGetItem(2), OnSQLGetItem(3))
            Ret = pMoveNext(0)
        Wend
        IdXml = xTRNEECreateTMPRapport(GlobPU.XasName + "-TMP.XML")
        If IdXml <> 0 And sListe <> "" Then
            sData = "SELECT TOP 300 CodeClient,RaisonSociale,Tpe_Longitude,tpe_latitude FROM Client WHERE CodeClient.xxKey != 0.0"
            sData = sData + " AND CodeClient.xxKey IN (" + Left$(sListe, Len(sListe) - 1) + ")"
            Ret = pTmpExecute(sData)
            While (Ret = True)
                Ret = xTRNEEInsertPeriod(IdXml, pTmpGetItem(0), sIdMobile)
                Ret = pTmpMoveNext(0)
            Wend
            Ret = XasXmlSetAttribut(IdXml, -1, "")
            Ret = XasXmlClose(IdXml)
        End If
        'Kill GlobPU.XasName + "-TMP.XML"
    End If
End If
End Function