AMBAR-GU

SDL/Fakturierung/frmAbrechnungsMaske.vb

@@ -51,7 +51,7 @@ Public Class frmAbrechnungsMaske
 
         MyComboBox2.Items.Clear()
 
-        FirmaTmp = "AMBAR"
+        'FirmaTmp = "AMBAR" 'ZUM TESTEN!!!
 
         Select Case FirmaTmp
             Case "VERAG"
@@ -144,7 +144,6 @@ Public Class frmAbrechnungsMaske
     Sub initDGV()
 
 
-
         If Not loaded Then Exit Sub
         Dim dgv As VERAG_PROG_ALLGEMEIN.MyDatagridview = getDGV()
 
@@ -152,9 +151,10 @@ Public Class frmAbrechnungsMaske
         With dgv
             Dim sqlstr = ""
             ' sqlstr &= " SELECT FilialenNr, AbfertigungsNr, UnterNr, Firma_ID, Status, Sammelrechnung, Sachbearbeiter, SteuerpflichtigerGesamtbetrag, SteuerfreierGesamtbetrag, RechnungsNr, RechnungsDatum, DruckDatumZeit, Buchungsjahr, RK_ID"
-            sqlstr &= " SELECT FilialenNr, AbfertigungsNr, cast(FilialenNr as varchar) + ' ' + cast(AbfertigungsNr  as varchar) as PosNr, UnterNr, Firma_ID,Rechnungsausgang.Sammelrechnung as Art, [RechnungsName 1] as Rechnungsempfänger, (isnull(SteuerpflichtigerGesamtbetrag,0) + isnull(SteuerfreierGesamtbetrag,0)) as Betrag, RK_ID,RechnungsLandKz,RechnungsKundenNr"
+            sqlstr &= " SELECT Rechnungsausgang.FilialenNr, Rechnungsausgang.AbfertigungsNr, cast(Rechnungsausgang.FilialenNr as varchar) + ' ' + cast(Rechnungsausgang.AbfertigungsNr  as varchar) as PosNr, Rechnungsausgang.UnterNr, Firma_ID,Rechnungsausgang.Sammelrechnung as Art, [RechnungsName 1] as Rechnungsempfänger, (isnull(SteuerpflichtigerGesamtbetrag,0) + isnull(SteuerfreierGesamtbetrag,0)) as Betrag, RK_ID,RechnungsLandKz,RechnungsKundenNr"
             sqlstr &= " ,(CASE WHEN Rechnungsdruck =0 THEN 'POST' WHEN Rechnungsdruck=1 THEN 'FAX' WHEN Rechnungsdruck=2 THEN 'E-MAIL' WHEN Rechnungsdruck=5 THEN 'MAIL+KOPIE' ELSE '-' END) as Rechnungsdruck "
             sqlstr &= " FROM Rechnungsausgang INNER JOIN Adressen ON AdressenNr=Rechnungsausgang.RechnungsKundenNr"
+            sqlstr &= " INNER Join speditionsbuch on Speditionsbuch.FilialenNr = Rechnungsausgang.FilialenNr And Speditionsbuch.AbfertigungsNr = Rechnungsausgang.AbfertigungsNr"
             sqlstr &= " WHERE 1=1 "
 
             sqlstr &= getRGWhere(MyComboBox3._value)
@@ -185,6 +185,7 @@ Public Class frmAbrechnungsMaske
                 .Columns("Betrag").DefaultCellStyle.Format = "C2"
             End If
 
+
         End With
     End Sub
 
@@ -200,7 +201,7 @@ Public Class frmAbrechnungsMaske
         End Select
 
         If cbxGutschriftenAnVerag.Checked AndAlso cboFirma._value <> "" Then
-            sqlstr &= " AND (SELECT count(*) FROM Speditionsbuch WHERE Speditionsbuch.FilialenNr = Rechnungsausgang.FilialenNr AND Speditionsbuch.AbfertigungsNr = Rechnungsausgang.AbfertigungsNr AND Speditionsbuch.Abfertigungsart = 23 AND Rechnungsausgang.RechnungsKundenNr = '3013401') = 0 AND Rechnungsausgang.Firma_ID=" & cboFirma._value
+            sqlstr &= " AND (select count (RK_ID) from rechnungsausgang inner join Speditionsbuch on Speditionsbuch.FilialenNr = Rechnungsausgang.FilialenNr AND Speditionsbuch.AbfertigungsNr = Rechnungsausgang.AbfertigungsNr WHERE Speditionsbuch.Abfertigungsart = 1 AND Rechnungsausgang.RechnungsKundenNr = 3013401) = 0 AND Rechnungsausgang.Firma_ID=" & cboFirma._value
         Else
 
 

SDL/Fakturierung/usrCntlFaktAbrechnung.vb

@@ -356,7 +356,7 @@ Public Class usrCntlFaktAbrechnung
             setControlsEnabled(pnlAuftraggeber, pnlEnabled)
             setControlsEnabled(pnlAvisierer, pnlEnabled)
 
-            If RECHNUNG.Sachbearbeiter = "AUTO" AndAlso RECHNUNG.VermittlerKundenNr = "3013401" Then 'sperren, damit autom. generierte Email neu mit Offerte initialisiwert werden kann!
+            If RECHNUNG.Sachbearbeiter = "AUTO" AndAlso RECHNUNG.VermittlerKundenNr = "3013401" Then 'sperren, damit autom. generierte GU nicht neu mit Offerte initialisiert werden kann!
                 dgvOffertenSperrliste.Enabled = False
             Else
                 dgvOffertenSperrliste.Enabled = True
@@ -538,6 +538,9 @@ Public Class usrCntlFaktAbrechnung
         If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("OFFERTE_FREMD_VERAGIMEX", "SDL") Or VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("FAKTURIERUNG_VERAGIMEX", "SDL") Then
             FirmaTmp = "VERAGIMEX"
         End If
+
+        FirmaTmp = "AMBAR"
+
         Select Case FirmaTmp
             Case "VERAG"
                 If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("FAKTURIERUNG_VERAGAG_DE", "SDL") Then
@@ -2004,7 +2007,7 @@ Public Class usrCntlFaktAbrechnung
         RECHNUNG.Erlös = RECHNUNG.Abfertigungskosten - RECHNUNG.Vorkosten
         '  RECHNUNG.Währungscode = cProgramFunctions.isLeerNothing(cboWaehrung._value) '????????
         If Not cbxAdmin.Checked Then
-            RECHNUNG.Sachbearbeiter = IIf(veragKunde = "3013401", "AUTO", cProgramFunctions.isLeerNothing(VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME))
+            RECHNUNG.Sachbearbeiter = IIf(veragKunde = "3013401" AndAlso RECHNUNG.[BelegartenKz] = "AG", "AUTO", cProgramFunctions.isLeerNothing(VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME))
             RECHNUNG.FakturierungsGruppe = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_fakturierungsgruppe
         End If