SDL, FaktAbrechnung, Kundenblatt, etc.

SDL/Classes/cSDL.vb

@@ -1,8 +1,5 @@
 
 Imports System.Data.SqlClient
-Imports System.Reflection
-
-
 
 
 Public Class cSDLLeistung

SDL/Fakturierung/usrCntlFaktAbrechnung.vb

@@ -1,4 +1,5 @@
-Imports System.Web.UI.WebControls.Expressions
+Imports System.IO
+Imports System.Web.UI.WebControls.Expressions
 Imports VERAG_PROG_ALLGEMEIN
 
 Public Class usrCntlFaktAbrechnung
@@ -1906,6 +1907,8 @@ Public Class usrCntlFaktAbrechnung
                         Dim Antrag_LandKz = ""
                         If USTV.UStVAn_ID > 0 Then Antrag_LandKz = SQL.DLookup("LandKz", "[Länderverzeichnis für die Außenhandelsstatistik]", "Landnr='" & USTV.UStVAn_LandNr & "'", "FMZOLL")
 
+
+
                         'soll immer alle POS bekommen! laut Lidya! 28.04.2025 - aber nicht im Excel-Format sondern als PDF-Batinic 15.05.2025
                         Dim dtPOSList As New DataTable
                             Dim prt As String = func.generatePosList(USTV, "", "", "", False, "prt", dtPOSList, isVZ, IIf(RECHNUNG IsNot Nothing, RECHNUNG.RK_ID, -1))
@@ -1957,7 +1960,10 @@ Public Class usrCntlFaktAbrechnung
                                         rpt.Dispose()
 
                                     Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "MDM", "POS_LISTE", "", "", SPEDBUCH.AbfertigungsNr & ".pdf", USTV.UStVAn_KuNr, False)
-                                    DS.uploadDataToDATENSERVER(tmpPath,,, False,,, True)
+                                    'If Not DS.hasITEMS Then 'immer neu generieren, falls der Antrag geändert wurde, muss der die neue POS-Liste geladen werden!!!!
+                                    DS.uploadDataToDATENSERVER(tmpPath,,, False,, True, True)
+                                    'End If
+
 
                                     If .Rows.Count > 0 Then
 
@@ -1986,6 +1992,7 @@ Public Class usrCntlFaktAbrechnung
                                     End If
 
 
+
                                 Catch ex As Exception
                                     MsgBox(ex.Message & ex.StackTrace)
                                 End Try
@@ -2017,10 +2024,21 @@ Public Class usrCntlFaktAbrechnung
 
                                             nameLief &= "RE"
 
-                                        If DAID <> "" AndAlso IsNumeric(DAID) Then
+                                            If DAID <> "" AndAlso IsNumeric(DAID) AndAlso r("UStVPo_SchnittstellenNr") <> 1 Then
                                                 Dim daidno As Integer = CInt(DAID)
                                                 Dim ds As New cDATENSERVER(daidno)
                                                 .Rows.Add(-1, nameLief, ds.da_name, ds.da_id, -1)
+
+                                            ElseIf DAID <> "" AndAlso r("UStVPo_SchnittstellenNr") = 1 Then
+
+                                            Dim DS_Eigenrechnungen As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "MDM", "VERAG-RECHNUNGEN", "", "", USTV.UStVAn_KuNr & "_" & r("UStVPo_ReNr") & ".pdf", USTV.UStVAn_KuNr, False)
+
+                                            If Not DS_Eigenrechnungen.hasITEMS Then 'falls bereits vorhanden, nicht nochmals erstellen!
+                                                DS_Eigenrechnungen.uploadDataToDATENSERVER(DAID, USTV.UStVAn_KuNr & "_" & r("UStVPo_ReNr") & ".pdf",, False,, True, True)
+                                            End If
+                                            .Rows.Add(-1, nameLief, DS_Eigenrechnungen.da_name, DS_Eigenrechnungen.da_id, -1)
+
+
                                         End If
 
                                         End If

SDL/USTV/ustCntlUSTV_AntragPosition.vb

@@ -96,6 +96,10 @@ Public Class ustCntlUSTV_AntragPosition
 
         Else
 
+            '--------------------------------------------------------------------------------------------
+            'Bei SchnittstelleNr 1 wird die interne RK_ID der Rechnung im Feld DA_ID gespeichert, wenn es dann "aus Zufall" eine echte DA_ID mit dieser RK_ID-Nr gibt, wird dieser Name angezeigt (aber geladen wird die korrekte Rechnung)!!!!!!!!!!!!!!
+            '--------------------------------------------------------------------------------------------
+
             Select Case If(UStV_POS.UStVPo_SchnittstellenNr, -1)
                 Case 6, 0, 11 : da_id = sql.getValueTxtBySql("SELECT TOP(1) [plInv_daId] FROM [tblPLOSE_Inv_Data] where plInv_SupplierRechnungsDatum='" & UStV_POS.UStVPo_ReDat & "' and plInv_SupplierRechnungsNr='" & UStV_POS.UStVPo_ReNr & "' and plInv_SupplierCountry='" & Antrag_LandKz & "' AND [plInv_daId] is not null", "FMZOLL",,, -1)
                 Case 7 : da_id = sql.getValueTxtBySql("SELECT TOP(1) [rmc_daId] FROM [tblRMCImport] where rmc_reDatum='" & UStV_POS.UStVPo_ReDat & "' and rmc_reNr='" & UStV_POS.UStVPo_ReNr & "' and rmc_landKZ='" & Antrag_LandKz & "' AND [rmc_daId] is not null", "FMZOLL",,, -1)

SDL/kunden/frmKundenblatt.vb

@@ -2819,7 +2819,7 @@ Public Class frmKundenblatt
                     Dim Kunde As New cKundenSDL(row("gb_adressNr"), 200)
                     Kunde.Erfassungsdatum = Now
                     Kunde.Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
-                    Kunde.SAVE
+                    Kunde.SAVE()
 
 
                 End If

VERAG_PROG_ALLGEMEIN/Classes/cMDMFunctionsAllgemein.vb

@@ -849,6 +849,7 @@ Public Class cMDMFunctionsAllgemein
 
         End If
 
+        If Not schnittstellenNr = 1 Then
             If dsID < 0 Then
                 Return ""
             ElseIf returnDSID Then
@@ -859,6 +860,8 @@ Public Class cMDMFunctionsAllgemein
                 End If
 
             End If
+        End If
+