Function TRNEESQLRowUpdate (ctrl As Control, iRow As Integer, iType As Integer) As Integer
Dim Ret%
Dim sData$
Dim sId$
Dim s$
Dim iErr%
Dim sDesi$
Dim sCrea$
Dim sIdMobile$
Dim sLong$
Dim sLat$
Dim sWay$
Dim sCp$
Dim sTown$
Dim sContry$
Dim sIdent$

ctrl.Row = iRow
ctrl.Col = GlobCurColId
sId = ctrl.Text
Ret = OPECheckError(GlobCurService, ModeCreation, iRow)
If Ret = True Then
    ctrl.Selected(iRow) = 2
    Exit Function
End If

sIdMobile = GetCharByIndice(Trim$(FrmMain.cb(2).Text), Chr$(9), 2)
If sIdMobile = "0.0" Then
    sIdMobile = GetCharByIndice(Trim$(FrmMain.cb(3).Text), Chr$(9), 2)
End If
sDesi = FrmMain.Txm(0).Text
sIdent = FrmMain.Txm(1).Text
If sId <> "" Then
    sData = "UPDATE Client SET "
    sData = sData + "maj='" + Date$ + "',"
    sData = sData + "CarteId=" + Chr$(3) + sIdMobile + Chr$(4) + ","
    sData = sData + "designation=" + Chr$(3) + sDesi + Chr$(4) + ","
    sData = sData + "identifiant=" + Chr$(3) + sIdent + Chr$(4) + ","
    Ret = FrmMain.chk(0).Value
    sData = sData + "enabled='" + CStr(Ret) + "',"
    s = GetCharByIndice(Trim$(FrmMain.cb(4).Text), Chr$(9), 2) + ";"
    s = s + GetCharByIndice(Trim$(FrmMain.cb(5).Text), Chr$(9), 2) + ";"
    sData = sData + "banque='" + s + "'  "
    sData = sData + " WHERE CodeClient.xxKey=" + sId
    Ret = pExecute(sData)
    If Ret = True Then
        Ret = xTRNEECreateRPT(sId)
        ctrl.Selected(iRow) = 0
    Else
        ctrl.Selected(iRow) = 2
    End If
Else
    Ret = pExecute("SELECT tpe_longitude,tpe_latitude,tpe_way,tpe_cp,tpe_town,tpe_country FROM Client WHERE CodeClient.xxkey=" + sIdMobile)
    If Ret = True Then
        sLong = OnSQLGetItem(0)
        sLat = OnSQLGetItem(1)
        sWay = OnSQLGetItem(2)
        sCp = OnSQLGetItem(3)
        sTown = OnSQLGetItem(4)
        sContry = OnSQLGetItem(5)
    End If
    sCrea = Date$
    sData = " INSERT INTO Client (Type,enabled,CarteId,CodeEnseigne,CodeProgramme,CodeSite,pays,langue,devise,Creation,maj,titre,"
    sData = sData + " RaisonSociale,Adresse,Cp,ville,  "
    sData = sData + " identifiant,designation, tpe_longitude,tpe_latitude,"
    sData = sData + " tpe_way,tpe_cp,tpe_town,tpe_country, "
    sData = sData + " tpe_cmd,tpe_direction, Matricule,banque,tpe_statut,lasticon,lastalarm,lastdesi) VALUES ("
    sData = sData + "'15','0','" + sIdMobile + "','" + GlobPU.XasIdBase + "','0.0','0.0',"
    sData = sData + "'" + GlobPU.XasPays + "','" + GlobPU.XasPays + "','" + GlobPU.XasPays + "',"
    sData = sData + "'" + sCrea + "','" + sCrea + "','" + CStr(iType) + "',"
    sData = sData + Chr$(3) + sDesi + Chr$(4) + ",'" + sWay + "','" + sCp + "','" + sTown + "',"
    sData = sData + Chr$(3) + sIdent + Chr$(4) + "," + Chr$(3) + sDesi + Chr$(4) + ",'" + sLong + "','" + sLat + "',"
    sData = sData + "'" + sWay + "','" + sCp + "','" + sTown + "','" + sContry + "',"
    sData = sData + "'0','0','',"
    s = GetCharByIndice(Trim$(FrmMain.cb(4).Text), Chr$(9), 2) + ";"
    s = s + GetCharByIndice(Trim$(FrmMain.cb(5).Text), Chr$(9), 2) + ";"
    sData = sData + "'" + s + "','0,0,0,0,',"
    sData = sData + "'" + GetCharByIndice(Trim$(FrmMain.cb(4).Text), Chr$(9), 2) + ",9200,9300,9400,',',,,,','Etat;Alarme;Sureté;Spécifique;' ) "
    Ret = pExecute("CLEAR")
    Ret = pExecute(sData)
    If Ret = True Then
        Ret = XasUserGetString(1, sId)
        Ret = OPESetEntityUser(GlobPU.XasName, sId, "ENTITY")
        GlobLinkEntity = sLibGetSQLUserXas(GlobPU.XasName, "", "ENTITY")
        ctrl.Selected(iRow) = 0
    Else
        ctrl.Selected(iRow) = 2
    End If
End If
End Function