FaktMail, MDM-Vollmachten, MDM-Auswertung

SDL/mdm/frmMDMDatenverarbetiung.vb

@@ -1,14 +1,8 @@
 Imports System.Data.OleDb
 Imports System.IO
-Imports Challenge
-Imports com.sun.org.glassfish.external.probe.provider.annotations
-Imports GrapeCity.ActiveReports.Export.Pdf.Section.Signing
 Imports itextsharp.text.pdf
 Imports MDM_Worker
-Imports sun.swing
-Imports TAlex.WPF.Helpers
 Imports VERAG_PROG_ALLGEMEIN
-Imports VERAG_PROG_ALLGEMEIN.TESTJSON
 
 Public Class frmMDMDatenverarbetiung
 
@@ -3180,7 +3174,7 @@ Public Class frmMDMDatenverarbetiung
             End Select
 
             Dim GJ = Now.Year
-            If IsDate(abrechnugsdatum) Then GJ = cRKSV.getGJ(abrechnugsdatum, 15)
+            If IsDate(abrechnugsdatum) Then GJ = cRKSV.getGJ(abrechnugsdatum, 19)
 
             SPEDBUCH.AbfertigungsNr = VERAG_PROG_ALLGEMEIN.cAllgemein.getMaxPosNrIncrement(SPEDBUCH.FilialenNr, GJ)
             SPEDBUCH.NewUNTER_NR()
@@ -3366,7 +3360,7 @@ Public Class frmMDMDatenverarbetiung
 
     'End Function
 
-    Function gen_RECHNUNG_BySPEDBUCH(KdNr As String, SPEDBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch, Lieferant As String, Optional PLOSEKundenNr As String = "", Optional von As Date = Nothing, Optional bis As Date = Nothing, Optional RE As cRechnungsausgang = Nothing)
+    Function gen_RECHNUNG_BySPEDBUCH(KdNr As String, SPEDBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch, Lieferant As String, Optional PLOSEKundenNr As String = "", Optional von As Date = Nothing, Optional bis As Date = Nothing, Optional ByRef RE As cRechnungsausgang = Nothing)
         Try
 
             If KdNr = "" Then Return False
@@ -3388,6 +3382,8 @@ Public Class frmMDMDatenverarbetiung
 
             End Select
 
+            RG.Firma_ID = 19 'RG.Firma_ID = 15
+
             RG.FilialenNr = SPEDBUCH.FilialenNr
             RG.AbfertigungsNr = SPEDBUCH.AbfertigungsNr
             RG.SpeditionsbuchUnterNr = SPEDBUCH.UnterNr
@@ -3432,18 +3428,16 @@ Public Class frmMDMDatenverarbetiung
             RG.Kreditaufwendungen_Proz = KD.Kreditaufwendungen
             RG.RechnungSprache = "DE"
 
-
             RG.Anlage_2 = ""
             RG.Anlage_3 = ""
             RG.Anlage_4 = ""
             RG.Anlage_5 = ""
             RG.Anlage_6 = ""
 
-
             RG.Text = ""
             RG.EMailRechnungstext = Nothing ' ""
 
-            RG.Firma_ID = 15
+
             RG.Nettozahlungsziel = KD.Zahlungsziel
 
             RG.SteuerpflichtigerGesamtbetrag = 0
@@ -3452,14 +3446,14 @@ Public Class frmMDMDatenverarbetiung
 
             RG.[Vorkosten] = 0
             RG.[Erlös] = 0
-            RG.[Buchungsjahr] = 0
+            'RG.[Buchungsjahr] = 0
             RG.[Währungscode] = "EUR"
             RG.ReErfZeitstempel = Now
 
 
             RG.Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
 
-            RG.Buchungsjahr = cRKSV.getGJ(RG.RechnungsDatum, RG.Firma_ID)
+            'RG.Buchungsjahr = cRKSV.getGJ(RG.RechnungsDatum, RG.Firma_ID)
 
             Dim sqlstr As String = ""
             Dim useNettogesamtbetrag As Boolean = False
@@ -4089,7 +4083,6 @@ Public Class frmMDMDatenverarbetiung
                 MsgBox("Es sind " & nichtAufAbgerechnetGesetzteTransactionen & " Transaktionen in der Datenbank, die noch nicht auf VERRECHNET gesetzt sind!" & vbNewLine & "Diese Transaktionen (von Rechnung " & DateTimePicker2.Text & ") müssen aktualisiert werden. (bitte an Administrator wenden)." & IIf(hint <> "", vbNewLine & hint, ""))
             End If
 
-
             'das muss die letzte Prüfung sein, da uU eine Transaktion fehlen kann!
             Dim fehlendeTransactionen As Integer = 0
 
@@ -4098,10 +4091,10 @@ Public Class frmMDMDatenverarbetiung
             If fehlendeTransactionen > 0 Then
                 pruefData_MSE = False
                 Dim hint As String = ""
-                If fehlendeTransactionen > 500 Then
-                    hint = "Batch-Nr: "
-                    hint &= SQL.getValueTxtBySql("select distinct(trans.batch_seq_nr) FROM [VERAG].[dbo].[tblMSESettlements] as settle INNER JOIN [VERAG].[dbo].[tblMSETransactions] as trans on trans.transaction_id = settle.transaction_id where [invoice_date] = '" & DateTimePicker2.Text & "' AND trans.[transaction_id] not in (select [transaction_id] from [VERAG].[dbo].[tblMSETransactions]) ", "FMZOLL")
-                End If
+                'If fehlendeTransactionen > 500 Then
+                '    hint = "Transaction-IDs: "
+                '    hint &= SQL.getValueTxtBySql("select top(10) transaction_id FROM [VERAG].[dbo].[tblMSESettlements] where [invoice_date] =  '" & DateTimePicker2.Text & "' AND [transaction_id] not in (select [transaction_id] from [VERAG].[dbo].[tblMSETransactions]) ", "FMZOLL")
+                'End If
                 MsgBox("Es fehlen " & fehlendeTransactionen & " Transaktionen in der Datenbank!" & vbNewLine & "Diese Transaktionen (von Rechnung " & DateTimePicker2.Text & ") müssen nachgeladen werden (bitte an Administrator wenden)." & IIf(hint <> "", vbNewLine & hint, ""))
             End If
 
@@ -4154,8 +4147,6 @@ Public Class frmMDMDatenverarbetiung
                     Return False
                 End If
 
-
-
             End If
 
             Dim OBONumberOderVRNumberfehlern As Integer = 0
@@ -4854,7 +4845,7 @@ RabattBerechnen:
             ANH.dsId = CInt(DS.da_id)
             ANH.Bezeichnung = DS.da_name
             RECHNUNG.ANHAENGE.Add(ANH)
-            Return RECHNUNG.SAVE_ANHAENGE(RECHNUNG.RK_ID)
+            Return RECHNUNG.SAVE_ANHAENGE(RECHNUNG.RK_ID, False)
         Else
             Return False
         End If