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 = "" Property prog_prod_path_UNI As String = "" Property prog_installer_prod_path_UNI As String = "" Property prog_prod_path_AMB As String = "" Property prog_installer_prod_path_AMB 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