ustva, fakt.

SDL/Fakturierung/cFakturierung.vb

@@ -2243,10 +2243,10 @@ Public Class cFakturierung
 )
             If rpt IsNot Nothing Then
                 desc.AddTradePaymentTerms(rpt.Label2.Text, zahlungszieldatum)
-                desc.SetPaymentMeans(PaymentMeansTypeCodes.PaymentToBankAccount, rpt.Label2.Text)
+                desc.SetPaymentMeans(PaymentMeansTypeCodes.SEPACreditTransfer, rpt.Label2.Text)
             ElseIf rptAnl IsNot Nothing Then
                 desc.AddTradePaymentTerms(rptAnl.Label2.Text, zahlungszieldatum)
-                desc.SetPaymentMeans(PaymentMeansTypeCodes.PaymentToBankAccount, rptAnl.Label2.Text)
+                desc.SetPaymentMeans(PaymentMeansTypeCodes.SEPACreditTransfer, rptAnl.Label2.Text)
             End If
 
             'If RECHNUNG.TextZZ.ToString.Contains("Abbuchungsauftrag") Then

SDL/USTV/frmMDM_USTVAntrag.vb

@@ -635,7 +635,11 @@ Public Class frmMDM_USTVAntrag
 
                         USTV_POS.UStVPo_Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
                         USTV_POS.UStVPo_Zeitstempel = Now()
-                        If USTV_POS.UStVPo_daId > 0 Then USTV_POS.UStVPo_daId_loeschbar = False
+                        If USTV_POS.UStVPo_daId <> "" AndAlso USTV_POS.UStVPo_daId > 0 Then
+                            USTV_POS.UStVPo_daId_loeschbar = False
+                        Else
+                            USTV_POS.UStVPo_daId_loeschbar = True
+                        End If
                         ' USTV_POS.UStVPo_daId = ANTRAG.plose_daId
 
                         ' Berechnungen
@@ -842,7 +846,12 @@ Public Class frmMDM_USTVAntrag
                     USTV_POS.UStVPo_ReNr = r.Item("rmc_reNr").ToString
                     USTV_POS.UStVPo_SchnittstellenNr = bytSchnittstellenNr
                     USTV_POS.UStVPo_daId = r.Item("rmc_daId")
-                    If USTV_POS.UStVPo_daId > 0 Then USTV_POS.UStVPo_daId_loeschbar = False
+                    If USTV_POS.UStVPo_daId <> "" AndAlso USTV_POS.UStVPo_daId > 0 Then
+                        USTV_POS.UStVPo_daId_loeschbar = False
+                    Else
+                        USTV_POS.UStVPo_daId_loeschbar = True
+
+                    End If
 
                     If Not alreadyExists(USTV_ANTRAG.UStVAn_KuNr, USTV_ANTRAG.UStVAn_LandNr, USTV_POS) Then
 
@@ -909,7 +918,11 @@ Public Class frmMDM_USTVAntrag
                     USTV_POS.UStVPo_ReNr = r.Item("invoice_number") & " - " & kdNr & IIf(Antrag_LandKz = "BE", "/Belgium", "")
                     USTV_POS.UStVPo_SchnittstellenNr = bytSchnittstellenNr
                     USTV_POS.UStVPo_daId = r.Item("daId")
-                    If USTV_POS.UStVPo_daId > 0 Then USTV_POS.UStVPo_daId_loeschbar = False
+                    If USTV_POS.UStVPo_daId > 0 Then
+                        USTV_POS.UStVPo_daId_loeschbar = False
+                    Else
+                        USTV_POS.UStVPo_daId_loeschbar = True
+                    End If
 
                     If Not alreadyExistsMitLeistungsBez(USTV_ANTRAG.UStVAn_KuNr, USTV_ANTRAG.UStVAn_LandNr, USTV_POS) Then
 
@@ -977,7 +990,11 @@ Public Class frmMDM_USTVAntrag
                     USTV_POS.UStVPo_ReNr = r.Item("Rechnungsnummer").ToString
                     USTV_POS.UStVPo_SchnittstellenNr = bytSchnittstellenNr
                     USTV_POS.UStVPo_daId = r.Item("daId")
-                    If USTV_POS.UStVPo_daId > 0 Then USTV_POS.UStVPo_daId_loeschbar = False
+                    If USTV_POS.UStVPo_daId > 0 Then
+                        USTV_POS.UStVPo_daId_loeschbar = False
+                    Else
+                        USTV_POS.UStVPo_daId_loeschbar = True
+                    End If
 
                     If Not alreadyExists(USTV_ANTRAG.UStVAn_KuNr, USTV_ANTRAG.UStVAn_LandNr, USTV_POS) Then
 
@@ -1047,7 +1064,11 @@ Public Class frmMDM_USTVAntrag
                     USTV_POS.UStVPo_SchnittstellenNr = bytSchnittstellenNr
 
                     USTV_POS.UStVPo_daId = sql.getValueTxtBySql("SELECT TOP(1) tblIDSInvoicesNew.daId FROM [tblIDSTransactionsNew] INNER JOIN tbl_IDS_Länder ON tblIDSTransactionsNew.[OutletCountryCode] = tbl_IDS_Länder.OutletCountryCode LEFT JOIN tblIDSInvoicesNew on tblIDSInvoicesNew.CustomerCode = tblIDSTransactionsNew.CustomerCode and tblIDSInvoicesNew.Invoicenumber = Paymentsummarynumber where tblIDSTransactionsNew.[YearMonthDay] ='" & USTV_POS.UStVPo_ReDat & "' AND ISNULL(tblIDSTransactionsNew.[OBONumber], ISNULL(tblIDSTransactionsNew.[VRNumber], tblIDSTransactionsNew.[Paymentsummarynumber])) ='" & USTV_POS.UStVPo_ReNr & "' and tbl_IDS_Länder.Lieferland_ISO2='" & Antrag_LandKz & "' AND tblIDSInvoicesNew.daId is not null", "FMZOLL")
-                    If USTV_POS.UStVPo_daId > 0 Then USTV_POS.UStVPo_daId_loeschbar = False
+                    If USTV_POS.UStVPo_daId <> "" AndAlso USTV_POS.UStVPo_daId > 0 Then
+                        USTV_POS.UStVPo_daId_loeschbar = False
+                    Else
+                        USTV_POS.UStVPo_daId_loeschbar = True
+                    End If
                     If Not alreadyExists(USTV_ANTRAG.UStVAn_KuNr, USTV_ANTRAG.UStVAn_LandNr, USTV_POS) Then
 
                         USTV_POS.UStVPo_Schnittstelle = True

SDL/seriendruck/usrCntlFakturierung.vb

@@ -948,7 +948,7 @@ Public Class usrcntlFakturierung
         '                                             ORDER BY [Firma_ID], [Status], [Sammelrechnung], [Sachbearbeiter], [RechnungsKundenNr]"
 
 
-        Dim SQLString ="SELECT [Firma_ID], [Status], [Sammelrechnung], [Sachbearbeiter], [RechnungsKundenNr], [Währungscode], isnull([Steuersatz %],0) as [Steuersatz %], cast([Lastschrift] as bit) as Lastschrift, Sum([SteuerpflichtigerGesamtbetrag]+[SteuerfreierGesamtbetrag]) AS Sammelrechnungsbetrag
+        Dim SQLString = "SELECT [Firma_ID], [Status], [Sammelrechnung], [Sachbearbeiter], [RechnungsKundenNr], [Währungscode], isnull([Steuersatz %],0) as [Steuersatz %], cast([Lastschrift] as bit) as Lastschrift, Sum([SteuerpflichtigerGesamtbetrag]+[SteuerfreierGesamtbetrag]) AS Sammelrechnungsbetrag
                                                     FROM Rechnungsausgang
                                                     WHERE [Status] = 0 AND [Sammelrechnung] = 6 AND UPPER([Sachbearbeiter]) = '" & Sachbearbeiter & "' AND ([SteuerpflichtigerGesamtbetrag] <> 0 OR [SteuerfreierGesamtbetrag] <> 0) AND cast(Abfertigungsdatum as Date) = '" & rechnungsdatum & "'  
                                                     GROUP BY [Firma_ID], [Status], [Sammelrechnung], [Sachbearbeiter], [RechnungsKundenNr], [Währungscode], [Steuersatz %], [Lastschrift]
@@ -1039,13 +1039,13 @@ Public Class usrcntlFakturierung
 
 
                     If True Then 'cnt Mod 10 = 0 Then
-                            txtPloseAnh_Einarbeitung.Text = cnt & " / " & dtSelectedSammelrechnungen.Rows.Count
+                        txtPloseAnh_Einarbeitung.Text = cnt & " / " & dtSelectedSammelrechnungen.Rows.Count
-                            Dim proz As Double = (cnt / dtSelectedSammelrechnungen.Rows.Count) * 100
+                        Dim proz As Double = (cnt / dtSelectedSammelrechnungen.Rows.Count) * 100
-                            pbPloseAnh_Proz.Value = proz
+                        pbPloseAnh_Proz.Value = proz
-                            lblPloseAnh_Proz.Text = proz.ToString("N2") & " %"
+                        lblPloseAnh_Proz.Text = proz.ToString("N2") & " %"
-                            'GroupBox12.Refresh()
+                        'GroupBox12.Refresh()
-                            My.Application.DoEvents()
+                        My.Application.DoEvents()
-                        End If
+                    End If
                     cnt += 1