Function LotCarteForINSERT (sCodeProg As String) As Integer
Dim Ret%
Dim sData$
Dim deb%
Dim Fin%
Dim Locard%
Dim hiCard%

LotCarteForINSERT = False

'sdata = "SELECT min(lotcarte.Debcarte),max(lotCarte.FinCarte) FROM programme,lotCarte WHERE Codeprogramme.xxKey=" + CStr(scodeProg)
'ret = pexecute(sdata)
'If ret = True Then
'    Deb = OnSQLGetItem(0)
'    Fin = OnSQLGetItem(1)
'    sdata = "UPDATE programme SET "
'    sdata = sdata + " Maj = '" + Date$ + "',"
'    sdata = sdata + " DebCarte = '" + Deb + "', FinCarte = '" + Fin + "'"
'    sdata = sdata + " WHERE CodeProgramme.xxKey = " + CStr(CodeProg)
'    ret = pexecute(sdata)
'    If ret = True Then
'        LotCarteForINSERT = True
'    End If
'End If

sData = "SELECT debcarte,fincarte FROM Lotcarte WHERE codeprogramme.xxKey = " + CStr(sCodeProg)
Ret = pExecute(sData)
While Ret = True
    Locard = Val(OnSQLGetItem(0))
    hiCard = Val(OnSQLGetItem(1))
    deb = MinOf(deb, Locard)
    Fin = MaxOf(Fin, hiCard)
    Ret = pMoveNext(0)
Wend
sData = "UPDATE programme SET "
sData = sData + " Maj = '" + Date$ + "',"
sData = sData + " DebCarte = '" + CStr(deb) + "', FinCarte = '" + CStr(Fin) + "'"
sData = sData + " WHERE CodeProgramme.xxKey = " + CStr(sCodeProg)
Ret = pExecute(sData)
If Ret = True Then
    LotCarteForINSERT = True
End If


End Function