NEU

UID/cClasses.vb

@@ -0,0 +1,200 @@
+
+Public Class cUserBerechtigungen
+    Property ber_id As String = ""
+    Property ber_name As String = ""
+    Property bepr_programm As String = ""
+    Property ber_sicherheitsstufe As String = ""
+End Class
+Public Class cBerechtigungen
+    Property ber_id As String = ""
+    Property ber_name As String = ""
+    Property ber_sicherheitsstufe As String = ""
+    Property ber_progId As String = ""
+    Property prog_codename As String = ""
+End Class
+Public Class cProgramm
+    Property prog_id As Integer
+    Property prog_codename As String = ""
+    Property prog_name As String = ""
+    Property prog_aktuelleVersion As String = ""
+    Property prog_info As String = ""
+    Property prog_source_path As String = ""
+    Property prog_dev_path As String = ""
+    Property prog_prod_path As String = ""
+    Property prog_installer_source_path As String = ""
+    Property prog_installer_dev_path As String = ""
+    Property prog_installer_prod_path As String = ""
+    Property prog_installer_prod_path_atilla As String = ""
+    Property prog_prod_path_atilla As String = ""
+    Property prog_prod_path_imex As String = ""
+    Property prog_installer_prod_path_imex As String = ""
+    Property prog_prod_path_SBG As String = ""
+    Property prog_installer_prod_path_SBG As String = ""
+    Property prog_prod_path_WAI As String = ""
+    Property prog_installer_prod_path_WAI As String = ""
+    Property prog_prod_path_NKD As String = ""
+    Property prog_installer_prod_path_NKD As String = ""
+    Property prog_prod_path_NEU As String = ""
+    Property prog_installer_prod_path_NEU As String = ""
+End Class
+
+Public Class cSeminar
+    Property sem_id As Integer
+    Property sem_von As DateTime
+    Property sem_bis As DateTime
+    Property sem_dauer As String = ""
+    Property sem_name As String = ""
+    Property sem_vortragender As String = ""
+    Property sem_vortragender_mitId As Integer
+    Property sem_ort As String = ""
+    Property sem_inhalt As String = ""
+    Property sem_inhalt2 As String = ""
+    Property sem_info As String = ""
+    Property sem_type As String = ""
+    Property sem_isVeragSeminar As Boolean
+    Property sem_isIntAusbildung As Boolean
+    Property sem_bezeichnung As String = ""
+
+End Class
+
+Public Class cBuergschaft
+    Property brg_id As Integer = -1
+    Property brg_datum As String = ""
+    Property brg_at_tag As String = ""
+    Property brg_at_woche As String = ""
+    Property brg_de_tag As String = ""
+    Property brg_de_woche As String = ""
+    Property brg_at_tag_atlas As String = ""
+    Property brg_at_tag_zolaris As String = ""
+    Property brg_at_woche_atlas As String = ""
+    Property brg_at_woche_zolaris As String = ""
+    Property brg_de_tag_atlas As String = ""
+    Property brg_de_woche_atlas As String = ""
+
+    Property brg_de2_tag As String = ""
+    Property brg_de2_woche As String = ""
+    Property brg_de2_tag_atlas As String = ""
+    Property brg_de2_woche_atlas As String = ""
+End Class
+
+Public Class cDienstMA
+    Property dstma_id As Integer
+    Property dstma_mitId As Integer
+    Property dstma_abteilung As String = ""
+    Property dstma_funktion As String = ""
+    Property dstma_arbvh As String = ""
+    Property dstma_wochenStunden As Double = 0
+    Property dstma_stammSchicht As String = ""
+    Property dstma_kuerzel As String = ""
+    Property dstma_reihenfolge As Integer
+    Property dstma_farbe As String
+    Property dstma_muster As Boolean = False
+    Property dstma_WEStdRegelAZ As Boolean = False
+    Property dstma_4wo As Boolean = False
+
+    Property dstma_TageProWoche As Integer = -1
+    Property dstma_inaktiv As Boolean = False
+    Property dstma_TzFeiertageStd As Object = Nothing
+
+End Class
+
+Public Class cDienstAbwesendheiten
+    Property dstna_id As Integer
+    Property dstna_mitId As Integer
+    Property dstna_datum_von As Date
+    Property dstna_datum_bis As Date
+    Property dstna_grund As String = ""
+End Class
+
+Public Class cDienstAbwesendheitenKW
+    Property dstnk_id As Integer
+    Property dstnk_mitId As Integer
+    Property dstnk_kw As Integer
+    Property dstnk_jahr As Integer
+    Property dstnk_grund As String = ""
+    Property dstnk_info As String = ""
+End Class
+
+Public Class cDienstEintrag
+    Property dstetr_id As Integer
+    Property dstetr_dstmaId As Integer
+    Property dstetr_datum As String = ""
+    Property dstetr_art As String = ""
+    Property dstetr_von As String = ""
+    Property dstetr_bis As String = ""
+    Property dstetr_pause As Double = 0
+    Property dstetr_grund As String = ""
+    Property dstetr_info As String = ""
+End Class
+
+
+Public Class cMAShort
+    Property mit_id As Integer
+    Property mit_vname As String = ""
+    Property mit_nname As String = ""
+End Class
+
+Public Class cDienstTeilzeit
+    Property dsttz_id As Integer
+    Property dsttz_maId As Integer
+    Property dsttz_dienstplan As String = ""
+    Property dsttz_wotag As String = ""
+    Property dsttz_abt As String = ""
+    Property dsttz_von As String = ""
+    Property dsttz_bis As String = ""
+    Property dsttz_pause As String = ""
+    Property dsttz_bemerkung As String = ""
+
+End Class
+
+
+Public Class cDienstDetails
+    Property dedet_id As Integer
+    Property dedet_abt As String = ""
+    Property dedet_woTag As String = ""
+    Property dedet_info As String = ""
+    Property dedet_von As String = ""
+    Property dedet_bis As String = ""
+    Property dedet_pause As Double = 0
+
+End Class
+
+Public Class cDienstDGV
+  
+    Property dgvName As String
+    Property dgvDatum As Date
+    Property dgvAbteilung As String = ""
+    Property dgvVon As String = ""
+    Property dgvBis As String = ""
+    Property USRCNTL As usrCntlDienstWoche = Nothing
+
+    Public Sub New(ByVal dgvName As String, ByVal dgvDatum As Date, ByVal dgvAbteilung As String, ByVal dgvVon As String, ByVal dgvBis As String, Optional USRCNTL As Object = Nothing)
+        Me.dgvName = dgvName
+        Me.dgvDatum = dgvDatum
+        Me.dgvAbteilung = dgvAbteilung
+        Me.dgvVon = dgvVon
+        Me.dgvBis = dgvBis
+        Me.USRCNTL = USRCNTL
+    End Sub
+
+    Public Sub New(ByVal dgvName As String, ByVal dgvDatum As Date, ByVal dgvAbteilung As String, Optional USRCNTL As Object = Nothing)
+        Me.dgvName = dgvName
+        Me.dgvDatum = dgvDatum
+        Me.dgvAbteilung = dgvAbteilung
+        Me.dgvVon = "00:00"
+        Me.dgvBis = "00:00"
+        Me.USRCNTL = USRCNTL
+    End Sub
+
+
+End Class
+
+
+Public Class cDienstNA
+    Property dstna_id As Integer
+    Property dstna_mitId As Integer
+    Property dstna_datum As Date
+    Property dstna_grund As String = ""
+    Property dstna_info As String = ""
+
+End Class