Sub ZaehlerVerwaltung
Select ZaehlerArtAuswahl
Case "Gaszähler"
LBL01dat_faktor_kwh.TextColor = DATfarbe
Case "Stromzähler", "Wasseruhr", "Sonstige Zähler"
LBL01dat_faktor_kwh.TextColor = Colors.LightGray
End Select
zweitarifzaehler = False 'Standardmässig ausschalten
If cr_zaehler.RowCount >0 Then 'wenn mind. 1 Zählereintrag vorhanden
Zaehlerdaten_zeigen 'Labels mit Zählerdaten belegen
Else 'wenn kein Eintrag vorhanden
Zaehler_bearbeiten_beendet 'Eingabefelder deaktivieren
LBL01dat_Zaehlernr.Text = ""
LBL01dat_Bezeichnung.Text = ""
CHKbox01Zweitarifzaehler.Checked = False
LBL01dat_Anbieter.Text = ""
LBL01dat_datum.Text = ""
LBL01dat_datumvon.Text = ""
LBL01dat_datumbis.Text = ""
LBL01dat_faktor_kwh.Text = Convert.ToGerman(0,5)
LBL01dat_Grundpreis.Text = Convert.ToGerman(0,2)
LBL01dat_EHTpreis_HT.Text = Convert.ToGerman(0,4)
LBL01dat_EHTpreis_NT.Text = Convert.ToGerman(0,4)
LBL01dat_Abschlag.Text = Convert.ToGerman(0,2)
LBL01Ext_Grundpreis.Text = "€" 'Währungssymbol für Grundpreis
LBL01Ext_Abschlag.Text = "€" 'Währungssymbol für Abschlag
LBL01EHTart.Text = "kwh" 'Einheit
If ZaehlerArtAuswahl = "Wasseruhr" Then LBL01EHTart.Text = "m³"
LBL01EHTwaehr.Text = "€" 'Währung für EUR
LBL01Ext_EHTpreis_HT.Text = "€" 'Währung für Betrag/einheit HT
LBL01Ext_EHTpreis_NT.Text = "€" 'Währung für Betrag/einheit NT
LBL01dat_Notiz.Text = ""
Grundpreis_en = 0
EHTpreis_HT_en = 0
EHTpreis_NT_en = 0
Abschlag_en = 0
LBL01Zaehlerauswahl.Text = "Zähler(0/0):"
LBL01datObjekt.Text = ""
End If
LBL01dat_Zaehlerart.Text = ZaehlerArtAuswahl
Dim rechteck As Rect
cnvs.Initialize(pnl01Zaehlerverwaltung)
rechteck.Initialize(4dip,5dip,100%x-4dip,SPN01Zaehler.Top-(SPN01Zaehler.Height/4))'Rahmen um oberen Bereich definieren
cnvs.DrawRect(rechteck,Colors.DarkGray,False,2dip) 'Rahmen um oberen Bereich zeichnen
cnvs.DrawLine(4dip,LBL01Titel.Top+LBL01Titel.Height,100%x-4dip,LBL01Titel.Top+LBL01Titel.Height,Colors.DarkGray,2dip)
Dim xposline,yposline As Int
yposline = BTN01Zaehler_Zurueck.Top-((BTN01Zaehler_Zurueck.Top-(SPN01Zaehler.Top+SPN01Zaehler.height))/1.5)
xposline = (BTN01Zaehler_Neu.Left-BTN01Zaehler_Zurueck.Left-BTN01Zaehler_Zurueck.Width) /2 'Position Vertikale Trennlinie zwischen buttons
cnvs.DrawLine(0,yposline,100%x,yposline,Colors.Black,1dip) 'Horiz.Linie über buttons zeichnen
cnvs.DrawLine(BTN01Zaehler_Neu.Left-xposline,yposline,BTN01Zaehler_Neu.Left-xposline,100%y,Colors.Black,1dip)
cnvs.DrawLine(BTN01Zaehler_loeschen.Left-xposline,yposline,BTN01Zaehler_loeschen.Left-xposline,100%y,Colors.Black,1dip)
cnvs.DrawLine(BTN01Zaehler_aendern.Left-xposline,yposline,BTN01Zaehler_aendern.Left-xposline,100%y,Colors.Black,1dip)
cnvs.DrawLine(BTN01Zaehler_pdf.Left-xposline,yposline,BTN01Zaehler_pdf.Left-xposline,100%y,Colors.Black,1dip)
scv01Zaehlerverwaltung.Visible = True
scv01Zaehlerverwaltung.Panel.Visible= True
pnl01scroll.Visible = True
CHKbox01Zweitarifzaehler.Enabled = False
Zaehlermaske 'Zählermaske der Zählerverwaltung zeigen
End Sub