Function InsertSite (Id As Integer) As Integer
Dim Ret%
Dim sData$
Dim s$
Dim screa$
Dim sidSite$

InsertSite = False

Ret = pExecute("CLEAR")
screa = Date$
sData = " INSERT INTO Site (CodeEnseigne,Creation,maj,RaisonSociale,numCompta,Name,prenom,Adresse,AdresseSuite,Cp,ville,  "
sData = sData + " email,phone,fax,Banque,Titre,dep,region,pays,langue,devise,NumAgent,type)  VALUES ("
sData = sData + "'" + TabSQLValue(0, 0) + "',"
sData = sData + "'" + screa + "',"
sData = sData + "'" + screa + "',"
sData = sData + "'" + TabSQLValue(0, 1) + "',"
sData = sData + "'" + TabSQLValue(0, 2) + "',"
sData = sData + "'" + TabSQLValue(0, 3) + "',"
sData = sData + "'" + TabSQLValue(0, 4) + "',"
sData = sData + "'" + TabSQLValue(0, 5) + "',"
sData = sData + "'" + TabSQLValue(0, 6) + "',"
sData = sData + "'" + TabSQLValue(0, 7) + "',"
sData = sData + "'" + TabSQLValue(0, 8) + "',"
sData = sData + "'" + TabSQLValue(0, 9) + "',"
sData = sData + "'" + TabSQLValue(0, 10) + "',"
sData = sData + "'" + TabSQLValue(0, 11) + "',"
sData = sData + "'" + TabSQLValue(0, 12) + "',"
sData = sData + "'" + TabSQLValue(0, 13) + "',"
sData = sData + "'" + TabSQLValue(0, 14) + "',"
sData = sData + "'" + TabSQLValue(0, 15) + "',"
sData = sData + "'" + TabSQLValue(0, 16) + "',"
sData = sData + "'" + TabSQLValue(0, 17) + "',"
sData = sData + "'" + TabSQLValue(0, 18) + "',"
sData = sData + "'" + TabSQLValue(0, 19) + "',"
sData = sData + "'" + TabSQLValue(0, 20) + "' ) "
Ret = pExecute(sData)
If Ret = True Then
    Ret = XasUserGetString(1, sidSite)
    Ret = SiteForINSERT(sidSite, Val(TabSQLValue(0, 20)))
    If Ret = True Then
	Ret = CalculRegion(sidSite, "codeSite", "site", TabSQLValue(0, 7))
	InsertSite = True
    End If
End If

End Function