German Führende Null speichern

#Region Module Attributes
    #FullScreen: False
    #IncludeTitle: True
#End Region

'Activity module
Sub Process_Globals
    Dim ph As Phone
End Sub

Sub Globals
    'These global variables will be redeclared each time the activity is created.
    'These variables can only be accessed from this module.

    Dim SQLQuery As String
    Dim cur As Cursor

    Dim spnAuswahl As Spinner
    Dim lblID As Label
    Dim lblKennzeichen As EditText
    Dim spnBild As Spinner

    Dim lblTank As EditText
    Dim lblVerbrauch As EditText
    Dim lblPIN As EditText             'Um diesen Eintrag geht es bei den führenden Nullen

    Dim lblLFL As EditText
    Dim lblLFB As EditText
    Dim lblLFH As EditText

    Dim lblNutzlast As EditText
    Dim lblStellplatz As EditText

    Dim updatedb As Boolean    : updatedb = True
End Sub

Sub Activity_Create(FirstTime As Boolean)

    Activity.AddMenuItem2("Neu", "men_new", LoadBitmap(File.DirAssets,"new.png"))
    Activity.AddMenuItem2("Speichern", "men_save", LoadBitmap(File.DirAssets,"save.png"))
    Activity.AddMenuItem2("Löschen", "men_delete", LoadBitmap(File.DirAssets,"delete.png"))

    If FirstTime Then
        Dim TargetDir As String
        If File.ExternalWritable Then TargetDir = File.DirDefaultExternal Else TargetDir = File.DirInternal
        If File.Exists(TargetDir, Main.DBFileName) = False Then
            File.Copy(File.DirAssets, Main.DBFileName, TargetDir, Main.DBFileName)
        End If

    End If

    'Im Editor-Modus nur Portrait zulassen
    ph.SetScreenOrientation(1)

    Main.SQLDB.Initialize(Main.DBFileDir, Main.DBFileName, True)

    Activity.LoadLayout("lay_lkw")

    spnBild.AddAll(Array As String("1","2","3","4"))
    spnAuswahl_Fill

End Sub

Sub Activity_Resume
lblTank.InputType        = lblTank.INPUT_TYPE_NUMBERS
lblVerbrauch.InputType  = lblVerbrauch.INPUT_TYPE_DECIMAL_NUMBERS
lblPIN.InputType    = lblTankkarte.INPUT_TYPE_NUMBERS
lblNutzlast.InputType    = lblNutzlast.INPUT_TYPE_NUMBERS
lblStellplatz.InputType  = lblStellplatz.INPUT_TYPE_NUMBERS
lblLFL.InputType        = lblLFL.INPUT_TYPE_DECIMAL_NUMBERS
lblLFB.InputType        = lblLFB.INPUT_TYPE_DECIMAL_NUMBERS
lblLFH.InputType        = lblLFH.INPUT_TYPE_DECIMAL_NUMBERS
End Sub

Sub Activity_Pause (UserClosed As Boolean)
    'Activity schliessen und zum Hauptscreen zurückkehren
    If UserClosed = True Then Activity.Finish
End Sub


Sub spnAuswahl_Fill
    SQLQuery = "SELECT DISTINCT Kennzeichen FROM lkw ORDER by Kennzeichen COLLATE NOCASE"
    spnAuswahl.Clear

'    snpAuswahl.Height = 50dip
'    snpAuswahl.Color = Colors.Green
'    snpAuswahl.TextSize = 20dip
'    snpAuswahl.TextColor = Colors.Blue
   
    cur = Main.SQLDB.ExecQuery(SQLQuery)

    For i = 0 To cur.RowCount - 1
        cur.Position = i
        spnAuswahl.Add(cur.GetString2(0))            ' Use this if only one column in cur
'        snpAuswahl.Add(cur.GetString("Continent"))    ' Use this if more than one column in cur
    Next

spnAuswahl.SelectedIndex = 0

spnAuswahl_ItemClick(spnAuswahl.SelectedIndex,spnAuswahl.SelectedItem)

End Sub


Sub spnAuswahl_ItemClick (Position As Int, Value As Object)

updatedb = True
Activity.Title = "Fahrzeuge bearbeiten"

Dim Cursor1 As Cursor

Cursor1 = Main.SQLDB.ExecQuery("SELECT ID, Kennzeichen, Bild, Tank, Verbrauch, Tankkarte, LF_L, LF_B, LF_H, Nutzlast, Stellplatz FROM lkw WHERE Kennzeichen='" & Value & "'")
Cursor1.Position = 0

    lblID.Text = Cursor1.GetString("ID")
    lblKennzeichen.Text = Value
    spnBild.SelectedIndex = spnBild.IndexOf(Cursor1.GetString("Bild"))

    lblTank.Text = Cursor1.GetString("Tank")
    lblVerbrauch.Text = Cursor1.GetString("Verbrauch")
    lblPIN.Text = Cursor1.GetString("Tankkarte")
    lblLFL.Text = Cursor1.GetString("LF_L")
    lblLFB.Text = Cursor1.GetString("LF_B")
    lblLFH.Text = Cursor1.GetString("LF_H")
    lblNutzlast.Text = Cursor1.GetString("Nutzlast")
    lblStellplatz.Text = Cursor1.GetString("Stellplatz")

Cursor1.Close
End Sub


Sub men_new_Click()
    'Neuen Datensatz erstellen

Activity.Title = "Neues Fahrzeug hinzufügen"

updatedb = False

spnAuswahl.Clear

For i = 0 To Activity.NumberOfViews - 1
    Dim View1 As View
    View1 = Activity.GetView(i)
    Log(i & " " & GetType(View1))
    Select GetType(View1)
    Case "android.widget.TextView"
        Log(i & " Label")
        'Dim l As Label
        'l = Activity.GetView(i)
    Case "android.widget.EditText"
        Log(i & " EditText")
        Dim e As EditText
        e = Activity.GetView(i)
        e.Text = ""
    Case "anywheresoftware.b4a.objects.SpinnerWrapper$B4ASpinner"
        Log(i & " Spinner")
        Dim s As Spinner
        s = Activity.GetView(i)
        s.SelectedIndex = 0
'    Case "android.widget.CheckBox"
'        Log(i & " CheckBox")
'        Dim c As CheckBox
'        c = Activity.GetView(i)
'        c.Checked = False
    End Select
Next

End Sub

Sub men_save_Click()
    'Alle geänderten Daten speichern

    'Wenn kein Titel eingetragen ist, dann abbrechen.
    If lblKennzeichen.Text = "" Then
        Msgbox2("Sie müssen ein Kennzeichen angeben!","Datensatz speichern","Ok","","",LoadBitmap(File.DirAssets,"alert.png"))
        spnAuswahl_Fill
        Return
    End If

    Dim m As Map
    Dim nr As Int

    nr = spnAuswahl.SelectedIndex

    m.Initialize

    m.Put("Kennzeichen", lblKennzeichen.Text)
    m.Put("Bild", spnBild.SelectedItem)
    m.Put("Tank", lblTank.Text)
    m.Put("Verbrauch", lblVerbrauch.Text)
    m.Put("Tankkarte", lblPIN.Text)                'Hier werden führende Nullen nicht gespeichert
    m.Put("LF_L", lblLFL.Text)
    m.Put("LF_B", lblLFB.Text)
    m.Put("LF_H", lblLFH.Text)
    m.Put("Nutzlast", lblNutzlast.Text)
    m.Put("Stellplatz", lblStellplatz.Text)


    ' Wenn updatedb = true, dann nicht speichern sondern update
    If updatedb = True Then
        Dim wf As Map
        wf.Initialize
        wf.Put("ID",lblID.Text)

        DBUtils.UpdateRecord2(Main.SQLDB,"lkw",m,wf)
    Else
        Dim ListOfMaps As List
        ListOfMaps.Initialize

        ListOfMaps.Add(m)
        DBUtils.InsertMaps(Main.SQLDB, "lkw", ListOfMaps)   
    End If
   
    'Spinner mit geänderten Daten aktualisieren und anschliessend
    'die letzte Auswahl wieder im Editor anzeigen
    spnAuswahl_Fill
    spnAuswahl.SelectedIndex = nr
    spnAuswahl_ItemClick(spnAuswahl.SelectedIndex,spnAuswahl.SelectedItem)
End Sub

Sub men_delete_Click()
    'Aktuellen Datensatz löschen

    'Wenn kein Titel eingetragen ist, dann abbrechen.
    If lblKennzeichen.Text = "" Then
        Msgbox2("Sie müssen ein Fahrzeug wählen!","Fahrzeug löschen","Ok","","",LoadBitmap(File.DirAssets,"alert.png"))
        spnAuswahl_Fill
        Return
    End If

    Dim Answ As Int
    Answ = Msgbox2("Soll das Kfz '" & lblKennzeichen.Text & "' wirklich gelöscht werden?","Fahrzeug löschen","Ja","","Nein",LoadBitmap(File.DirAssets,"alert.png"))
    If Answ = DialogResponse.POSITIVE Then
        Dim wf As Map
        wf.Initialize
        wf.Put("ID",lblID.Text)

        DBUtils.DeleteRecord(Main.SQLDB,"lkw",wf)

        spnAuswahl_Fill
    End If

End Sub

Main.SQLDB.ExecNonQuery("UPDATE lkw SET Tankkarte = '" & lblPIN.Text & "' WHERE  ID = '" & lblID.Text & "'")