diff --git a/SDL/Fakturierung/frmAbrechnungsMaske.vb b/SDL/Fakturierung/frmAbrechnungsMaske.vb index 999f4fc0..ed523ec6 100644 --- a/SDL/Fakturierung/frmAbrechnungsMaske.vb +++ b/SDL/Fakturierung/frmAbrechnungsMaske.vb @@ -71,6 +71,11 @@ Public Class frmAbrechnungsMaske If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("FAKTURIERUNG_VERAGAG_DE", "SDL") Then whereFirma = " AND FIRMENGRUPPE In ('VERAG360','VERAGAG_DE') " End If + + If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("FAKTURIERUNG_VERAGAG", "SDL") Then + whereFirma &= " OR Firma_ID=1 " + End If + cboER_SR.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("MSR", "MSR")) cboFirma.fillWithSQL("Select [Firma_ID],[Firma_Bez] FROM [tblFirma] WHERE 1=1 " & whereFirma, False, "FMZOLL") cboFirma.changeItem("1") diff --git a/SDL/Fakturierung/usrCntlFaktAbrechnung.vb b/SDL/Fakturierung/usrCntlFaktAbrechnung.vb index bb89a1aa..7251998b 100644 --- a/SDL/Fakturierung/usrCntlFaktAbrechnung.vb +++ b/SDL/Fakturierung/usrCntlFaktAbrechnung.vb @@ -67,6 +67,10 @@ Public Class usrCntlFaktAbrechnung Firma = 17 cboFiliale.changeItem(5801) + Case "VERAG" + If VERAG_PROG_ALLGEMEIN.cAllgemein.ABTEILUNG = "MDM" Then + Firma = 19 + End If End Select @@ -602,18 +606,24 @@ Public Class usrCntlFaktAbrechnung End If pnlDocs.Visible = True Case "VERAG360" + Dim Firmengruppe As String = "'VERAG360'" + If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("FAKTURIERUNG_VERAGAG_DE", "SDL") Then - whereFirma = " AND FIRMENGRUPPE IN ('VERAG360','VERAGAG_DE') " : pnlDocs.Visible = True - Else - whereFirma = " AND FIRMENGRUPPE IN ('VERAG360') " : pnlDocs.Visible = True + Firmengruppe &= " ,'VERAGAG_DE'" End If + whereFirma = " AND FIRMENGRUPPE IN (" & Firmengruppe & ") " : pnlDocs.Visible = True + + If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("FAKTURIERUNG_VERAGAG", "SDL") Then + whereFirma &= " OR Firma_ID=1 " + End If + + + End Select cboFirma.fillWithSQL("SELECT [Firma_ID],[Firma_Bez] FROM [tblFirma] WHERE Firma_ID NOT IN(3) " & whereFirma & " ORDER BY Firma_ID ", True, "FMZOLL", firstEmpty) - - cboFirma.SelectedIndex = 0