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


Ret = pExecute("CLEAR")

s = XasSetChar(Txt(4).Text, "'", "''", 0, 0)
TabSQLValue(0, 0) = Trim$(s)
'TabSQLValue(0, 1) = Trim$(Txt(5).Text)
TabSQLValue(0, 1) = GlobPU.XasGroupe
s = XasSetChar(Txt(7).Text, "'", "''", 0, 0)
TabSQLValue(0, 2) = Trim$(s)
s = XasSetChar(Txt(8).Text, "'", "''", 0, 0)
TabSQLValue(0, 3) = Trim$(s)
s = XasSetChar(Txt(9).Text, "'", "''", 0, 0)
TabSQLValue(0, 4) = Trim$(s)
s = XasSetChar(Txt(10).Text, "'", "''", 0, 0)
TabSQLValue(0, 5) = Trim$(s)
s = XasSetChar(Txt(11).Text, "'", "''", 0, 0)
TabSQLValue(0, 6) = Trim$(s)
s = XasSetChar(Txt(12).Text, "'", "''", 0, 0)
TabSQLValue(0, 7) = Trim$(s)
s = XasSetChar(Txt(13).Text, "'", "''", 0, 0)
TabSQLValue(0, 8) = Trim$(s)
TabSQLValue(0, 9) = Trim$(Txt(14).Text)
TabSQLValue(0, 10) = Trim$(Txt(15).Text)
TabSQLValue(0, 11) = Trim$(Txt(16).Text)
TabSQLValue(0, 12) = Trim$(Right$(Cb(0).Text, 10))
TabSQLValue(0, 13) = Trim$(Right$(Cb(1).Text, 10))
TabSQLValue(0, 14) = Trim$(Right$(Cb(2).Text, 10))
TabSQLValue(0, 15) = Trim$(Right$(Cb(3).Text, 10))
TabSQLValue(0, 16) = Trim$(Right$(Cb(4).Text, 10))
TabSQLValue(0, 17) = Trim$(Right$(Cb(5).Text, 10))
TabSQLValue(0, 18) = Trim$(Right$(Cb(6).Text, 10))
TabSQLValue(0, 19) = Trim$(Txt(17).Text)

s = XasSetChar(Txt(6).Text, "'", "''", 0, 0)
TabSQLValue(0, 20) = s
sTmp = s
TabSQLValue(1, 0) = UCase$(GlobPU.Connect)
TabSQLValue(0, 30) = "" 'login admin (si vide = base+66)
TabSQLValue(0, 31) = "" 'pass admin
TabSQLValue(0, 32) = "2" 'type de scenar (1-loc;2-surete;3-donnesoc)

s = InsertEnseigne(0)
If s <> "" Then
    Ret = DoSqlCompte(s)
    ModeCreation = False
    LabMsg(0).Caption = "Nouvelle enseigne créée." 'DomPerso(1)  'Enregis. OK
    Ret = pExecute("FLUSHDATABASE('" + sTmp + "')")
    Ret = pExecute("FLUSHDATABASE('MAITRE')")
    BtnOk.Visible = True
    PicBtn(3).Visible = True
    PicBtn(5).Visible = True
    PicBtn(7).Visible = True
    Maj = 1
    Ret = GereOnglet(0)
Else
   LabMsg(0).ForeColor = 255
   LabMsg(0).Caption = "Problème d'enregistrement base de données. Consulter votre administrateur" 'DomPerso(2) 'pb enregistrment Base de donnée
End If
 

End Function