Function DoInsert (Id As Integer) As Integer
Dim Ret%
Dim sData$
Dim s$


TabSQLValue(0, 0) = Trim$(Right$(Cb(35).Text, 20))
s = XasSetChar(txT(4).Text, "'", "''", 0, 0)
TabSQLValue(0, 1) = Trim$(s)
TabSQLValue(0, 2) = Trim$(txT(5).Text)
s = XasSetChar(txT(7).Text, "'", "''", 0, 0)
TabSQLValue(0, 3) = Trim$(s)
s = XasSetChar(txT(8).Text, "'", "''", 0, 0)
TabSQLValue(0, 4) = Trim$(s)
s = XasSetChar(txT(9).Text, "'", "''", 0, 0)
TabSQLValue(0, 5) = Trim$(s)
s = XasSetChar(txT(10).Text, "'", "''", 0, 0)
TabSQLValue(0, 6) = Trim$(s)
s = XasSetChar(txT(11).Text, "'", "''", 0, 0)
TabSQLValue(0, 7) = Trim$(s)
s = XasSetChar(txT(12).Text, "'", "''", 0, 0)
TabSQLValue(0, 8) = Trim$(s)
s = XasSetChar(txT(13).Text, "'", "''", 0, 0)
TabSQLValue(0, 9) = Trim$(s)
TabSQLValue(0, 10) = Trim$(txT(14).Text)
TabSQLValue(0, 11) = Trim$(txT(15).Text)
TabSQLValue(0, 12) = Trim$(txT(16).Text)
Ret = 1
If Chk(1).Value = 1 Or Chk(2).Value = 1 Then
    Ret = 0
End If
TabSQLValue(0, 13) = CStr(Ret)
TabSQLValue(0, 14) = Trim$(txT(29).Text)
TabSQLValue(0, 15) = Trim$(txT(30).Text)
TabSQLValue(0, 16) = Trim$(txT(31).Text)
TabSQLValue(0, 17) = Trim$(Left$(Cb(9).Text, 30))
'TabSQLValue(0, 18) = Trim$(Left$(Cb(34).Text, 30))
TabSQLValue(0, 18) = CStr(Chk(3).Value)
TabSQLValue(0, 19) = Trim$(Right$(Cb(0).Text, 20))
TabSQLValue(0, 20) = Trim$(Right$(Cb(1).Text, 20))
TabSQLValue(0, 21) = Trim$(Right$(Cb(2).Text, 20))
TabSQLValue(0, 22) = Trim$(Right$(Cb(3).Text, 20))
TabSQLValue(0, 23) = Trim$(Right$(Cb(4).Text, 20))
TabSQLValue(0, 24) = Trim$(Right$(Cb(5).Text, 20))
TabSQLValue(0, 25) = Trim$(Right$(Cb(6).Text, 20))
TabSQLValue(0, 26) = Trim$(Right$(Cb(7).Text, 20))
TabSQLValue(0, 27) = Trim$(Right$(Cb(8).Text, 20))
TabSQLValue(0, 30) = Trim$(txT(45).Text)
TabSQLValue(0, 31) = "0,0,0,0,"  'statut
TabSQLValue(0, 37) = "0,0,0,0,"  'LastIcon,Lastalarm,LastDesi     Contact;Alarme;Sureté;Début Arrêt;
TabSQLValue(0, 38) = ",,,,"
TabSQLValue(0, 39) = "Etat;Alarme;Sureté;Spécifique;"
 

Ret = InsertClient(Id)
If Ret = True Then
    LabMsg(0).Caption = "Enregistrement Mise à Jour"
    BtnOk.Visible = True
    PicBtn(3).Visible = True
    PicBtn(5).Visible = True
    PicBtn(7).Visible = True
    Maj = 1
    If ModeEasy = True Then
	Ret = UpdateLinkSite(IdXmlSite, 1, TabSQLValue(0, 28))
	Ret = UpdateLinkChild(TabSQLValue(0, 28))
    End If
    CurEntity_id = TabSQLValue(0, 28)
    Ret = DoSqlEntity(TabSQLValue(0, 28))
    For Ret = 0 To 3
	LbOnglet(Ret).Visible = True
    Next Ret
    If TypeEntity = 11 Then
	LbOnglet(4).Visible = True
    End If
    Ret = DoLbOnglet(0)
    ModeCreation = False
Else
   LabMsg(0).ForeColor = 255
   LabMsg(0).Caption = "Problème lors de l'enregistrement"
End If
 

End Function