AMbar

SDL/Fakturierung/frmAbrechnungsMaske.vb

@@ -88,7 +88,6 @@ Public Class frmAbrechnungsMaske
                 cboFirma.fillWithSQL("SELECT [Firma_ID],[Firma_Bez]  FROM  [tblFirma] WHERE FIRMENGRUPPE IN ('AMBAR') ", False, "FMZOLL")
                 cboFirma.changeItem("24")
                 MyComboBox2.fillWithSQL("SELECT [mit_username] FROM [tblMitarbeiter] where  mit_firma='AMBAR'  and mit_gekuendigt=0 AND  (mit_abteilung IN ('VRR','BH')	OR (SELECT COUNT(*)  FROM [tblBerechtigungsObjekteZuordnung]  where [beroz_beroId]=90 AND [beroz_bergrId]=[mit_id] AND beroz_art='B')>0) Or mit_id = '678' order by mit_username", False, "ADMIN", True)
-                MyComboBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AUTO", "AUTO")) 'für automaitsch generierte GU
             Case "VERAGIMEX"
                 Dim whereFirma = " AND FIRMENGRUPPE IN ('VERAG','IMEX','ATILLA','VERAGUNISPED','FRONTOFFICE') "
                 If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("FAKTURIERUNG_VERAGAG_DE", "SDL") Then
@@ -200,7 +199,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(*) FROM Speditionsbuch WHERE Speditionsbuch.FilialenNr = Rechnungsausgang.FilialenNr AND Speditionsbuch.AbfertigungsNr = Rechnungsausgang.AbfertigungsNr AND Speditionsbuch.Abfertigungsart = 1 AND Rechnungsausgang.RechnungsKundenNr = '3013401') = 0 AND Rechnungsausgang.Firma_ID=" & cboFirma._value
         Else
 
 

SDL/Fakturierung/usrCntlFaktAbrechnung.vb

@@ -356,11 +356,11 @@ 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!
-                dgvOffertenSperrliste.Enabled = False
-            Else
-                dgvOffertenSperrliste.Enabled = True
-            End If
+            'If RECHNUNG.Sachbearbeiter = "AUTO" AndAlso RECHNUNG.VermittlerKundenNr = "3013401" Then 'sperren, damit autom. generierte Email neu mit Offerte initialisiwert werden kann!
+            '    dgvOffertenSperrliste.Enabled = False
+            'Else
+            '    dgvOffertenSperrliste.Enabled = True
+            'End If
 
 
             SAVED = True
@@ -538,6 +538,8 @@ 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 +2006,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 = cProgramFunctions.isLeerNothing(VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME)
             RECHNUNG.FakturierungsGruppe = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_fakturierungsgruppe
         End If
 
@@ -3946,7 +3948,7 @@ Nächste_Textzeile_lesen:
         For Each POS In RECHNUNG.POSITIONEN.Where(Function(x) x.Anzahl > 0).ToList
             Select Case POS.LeistungsNr
                 Case "20" : abfrage &= vbNewLine & POS.Anzahl & "x EUSt: " & CDbl(POS.Preis) : PosWithWEustOrVerz = True : selectedPOS.Add(POS)
-                Case "340" : abfrage &= vbNewLine & POS.Anzahl & "x Verzollung: " : PosWithWEustOrVerz = True : selectedPOS.Add(POS)
+                Case "340" : abfrage &= vbNewLine & POS.Anzahl & "x Verzollung: " & CDbl(POS.LeistungsBez) : PosWithWEustOrVerz = True : selectedPOS.Add(POS)
             End Select
         Next