ustva, Mahnung, etc.

SDL/Fakturierung/cFakturierung.vb

@@ -834,6 +834,33 @@ Public Class cFakturierung
 
                 End If
 
+            Case 19 'MDM
+
+                rpt.txtDisclaimer.Text = "Wir arbeiten ausschließlich aufgrund der Allgemeinen Spediteurbedingungen in der jeweils geltenden Fassung. Zahlungen werden zunächst auf unsere Rechnungen, Spesen und Zinsen, zuletzt auf Zölle angerechnet. Zahlbar und klagbar in Schärding. Steuer-, Zoll- und Tarifauskünfte sind unverbindlich."
+
+                If Rechnung.RechnungsLandKz = "TR" Then
+                    rpt.txtBank1.Text = If(FIRMA.Firma_Bankverbindung1, "") & vbNewLine & If(FIRMA.Firma_IBAN1, "") & vbNewLine & If(FIRMA.Firma_BIC1, "").ToString.Trim
+                    rpt.txtBank2.Text = If(FIRMA.Firma_Bankverbindung2, "") & vbNewLine & If(FIRMA.Firma_IBAN2, "") & vbNewLine & If(FIRMA.Firma_BIC2, "").ToString.Trim
+
+                    rpt.txtBank1.Text = rpt.txtBank1.Text.Replace("Österreich: ", "Österreich:" & vbNewLine).Replace("BRD: ", "Deutschland:" & vbNewLine).Replace("Deutschland: ", "Deutschland:" & vbNewLine)
+                    rpt.txtBank2.Text = rpt.txtBank2.Text.Replace("Österreich: ", "Österreich:" & vbNewLine).Replace("BRD: ", "Deutschland:" & vbNewLine).Replace("Deutschland: ", "Deutschland:" & vbNewLine)
+
+                    If Not hasEUSTZOLL(Rechnung) Then
+
+                        rpt.txtBank1.Text = "Türkei:" & vbNewLine & "Garanti Bank Hadimköy " & vbNewLine & "EUR-IBAN: TR96 0006 2000 5440 0009 0672 28" & vbNewLine & "SWIFT: TGBATRISXXX | Kto: 544"
+
+                    End If
+                Else
+                    rpt.txtBank1.Text = If(FIRMA.Firma_Bankverbindung1, "") & vbNewLine & If(FIRMA.Firma_IBAN1, "") & vbNewLine & If(FIRMA.Firma_BIC1, "").ToString.Trim
+                    rpt.txtBank2.Text = If(FIRMA.Firma_Bankverbindung2, "") & vbNewLine & If(FIRMA.Firma_IBAN2, "") & vbNewLine & If(FIRMA.Firma_BIC2, "").ToString.Trim
+
+                    rpt.txtBank1.Text = rpt.txtBank1.Text.Replace("Österreich: ", "Österreich:" & vbNewLine).Replace("BRD: ", "Deutschland:" & vbNewLine).Replace("Deutschland: ", "Deutschland:" & vbNewLine)
+
+                    rpt.txtBank2.Text = rpt.txtBank2.Text.Replace("Österreich: ", "Österreich:" & vbNewLine).Replace("BRD: ", "Deutschland:" & vbNewLine).Replace("Deutschland: ", "Deutschland:" & vbNewLine)
+                End If
+
+
+
             Case Else 'VERAG
 
                 If Rechnung.RechnungsLandKz = "TR" Then
@@ -1509,12 +1536,17 @@ Public Class cFakturierung
                                                      Else
 
                                                          If isReverseChargeSumme(FIRMA, RECHNUNG) Then
-                                                             rpt.lblZwText.Text = "Summe Steuerfrei"
+                                                             Select Case RECHNUNG.RechnungSprache
+                                                                 Case "DE" : rpt.lblZwText.Text = "Summe Steuerfrei" : rpt.lblSteuersatz.Text = "Summe Reverse Charge"
+                                                                 Case "EN" : rpt.lblZwText.Text = "Sum Taxfree" : rpt.lblSteuersatz.Text = "Sum Reverse Charge"
+                                                                 Case "RO" : rpt.lblZwText.Text = "Suma neimpozabila" : rpt.lblSteuersatz.Text = "Suma Reverse Charge"
+                                                             End Select
+
                                                              rpt.lblZWSumme.Text = CDbl(getSteuerfreiEUSTZOLL(FIRMA, RECHNUNG)).ToString("N2", CultureInfo.CurrentCulture)
                                                              rpt.lblZwText.Visible = True
                                                              rpt.lblZWSumme.Visible = True
 
-                                                             rpt.lblSteuersatz.Text = "Summe Reverse Charge"
+                                                             rpt.lblSteuersatz.Text = ""
                                                              rpt.lblSteuerbetrag.Text = CDbl(getReverseChargeSummeRKID(FIRMA, RECHNUNG)).ToString("N2", CultureInfo.CurrentCulture)
                                                              rpt.lblSteuersatz.Visible = True
                                                              rpt.lblSteuerbetrag.Visible = True

SDL/Fakturierung/usrCntlFaktAbrechnung.vb

@@ -1839,9 +1839,14 @@ Public Class usrCntlFaktAbrechnung
                     RECHNUNG.Anlage_5 = ""
 
                 Case 19 'MDM
-                    RECHNUNG.Anlage_1 = "Rechnung"
+
-                    RECHNUNG.Anlage_2 = "Lief.-Rechn."
+                    Select Case RECHNUNG.RechnungSprache
-                    RECHNUNG.Anlage_3 = "POS-Liste"
+                        Case "DE" : RECHNUNG.Anlage_1 = "Rechnung" : RECHNUNG.Anlage_2 = "Lief.-Rechn." : RECHNUNG.Anlage_3 = "POS-Liste"
+                        Case "EN" : RECHNUNG.Anlage_1 = "Invoice" : RECHNUNG.Anlage_2 = "Supplier Invoice(s)" : RECHNUNG.Anlage_3 = "Item List"
+                        Case "RO" : RECHNUNG.Anlage_1 = "Factura" : RECHNUNG.Anlage_2 = "Factura furnizorului" : RECHNUNG.Anlage_3 = "Lista articolelor"
+                    End Select
+
+
                     RECHNUNG.Anlage_4 = ""
                     RECHNUNG.Anlage_5 = ""
 
@@ -4001,6 +4006,20 @@ Nächste_Textzeile_lesen:
     Private Sub cboRechnungSprache_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboRechnungSprache.SelectedIndexChanged
         txtTextZZ.Text = cFakturierung.przRechnungstextZZ(RECHNUNG)
         txtText.Text = cFakturierung.przRechnungstextTXT(RECHNUNG, SPEDBUCH)
+
+        If RECHNUNG IsNot Nothing Then
+            If RECHNUNG.Firma_ID = 19 AndAlso RECHNUNG.Anlage_1 <> "" AndAlso RECHNUNG.Anlage_2 <> "" AndAlso RECHNUNG.Anlage_3 <> "" Then
+                Select Case cboRechnungSprache._value
+                    Case "DE" : cboAnlage1.Text = "Rechnung" : cboAnlage2.Text = "Lief.-Rechn." : cboAnlage3.Text = "POS-Liste"
+                    Case "EN" : cboAnlage1.Text = "Invoice" : cboAnlage2.Text = "Supplier Invoice(s)" : cboAnlage3.Text = "Item List"
+                    Case "RO" : cboAnlage1.Text = "Factura" : cboAnlage2.Text = "Factura furnizorului" : cboAnlage3.Text = "Lista articolelor"
+                End Select
+
+            End If
+        End If
+
+
+
     End Sub
 
     Private Sub dbgAnhaenge_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvAnhaenge.CellClick 'dbgAnhaenge.CellContentClick,

SDL/My Project/AssemblyInfo.vb

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("1.3.9.8")>
+<Assembly: AssemblyVersion("1.3.9.9")>
-<Assembly: AssemblyFileVersion("1.3.9.8")>
+<Assembly: AssemblyFileVersion("1.3.9.9")>

SDL/USTV/frmMDM_USTVAntrag.vb

@@ -2,7 +2,8 @@
 Imports System.Reflection
 Imports System.Windows.Documents
 Imports com.sun.org.apache.xpath.internal.objects
-Imports iTextSharp.text.pdf
+Imports com.sun.xml.internal.bind.v2
+Imports itextsharp.text.pdf
 Imports Microsoft.Office.Interop
 Imports VERAG_PROG_ALLGEMEIN
 
@@ -1292,7 +1293,7 @@ Public Class frmMDM_USTVAntrag
 
                         Dim umrechKurs As Double = 1
 
-                        'IDS liefert Beträge immer in EUR, wir müssen allerdings die Beträge in FREMDW umrechnen!
+                        'TODO: IDS liefert Beträge immer in EUR, wir müssen allerdings die Beträge in FREMDW umrechnen, ev. bei IDS nachfragen, ob wir den Fremdwährungsbetrag bekommen können (würde uns einige manuelle Arbeit ersparen oder zumindest den Umrechnungskurs, das IDS einen Mischsatz verwendet und nicht den Umrechnungskurs vom Rechnungsdatum)!!
 
                         Dim UST_EUR = CDbl(r.Item("Steuerbetrag")) 'ist immer EUR
                         Dim UST_org = CDbl(r.Item("Steuerbetrag"))
@@ -1559,7 +1560,7 @@ Public Class frmMDM_USTVAntrag
             Dim USTV_ANTRAG = New VERAG_PROG_ALLGEMEIN.cUSTVAntrag()
             Dim ADR As New cAdressen(KundenNr)
             Dim ERW As New cKundenErweitert(KundenNr)
-            Dim FIRMA As New cFirmen(1) 'Nr 1 weil weil Kontodaten von Verag.....
+            Dim FIRMA As New cFirmen(1) 'Nr 1 weil Kontodaten von Verag.....
 
             If KundenNr < 0 Then
                 MsgBox("Kunde auswählen!")
@@ -1590,7 +1591,7 @@ Public Class frmMDM_USTVAntrag
             End If
 
 
-            'check if already existing
+            'check if already existing 'überschneidungen prüfen!!!!
             Dim anzUSTVA = CInt((New SQL).getValueTxtBySql("Select count(*) from tblUStVAntrag where UStvAN_KuNr = " & KundenNr & " and (isnull(UStVAn_AntragArt,'MWST') = '" & cboAntragArt._value & "' or UStVAn_AntragArt = '') and UStVAn_LandNr = " & USTV_ANTRAG.UStVAn_LandNr & " 
                         AND not((cast(UStVAn_ReDatvon as date) > '" & CDate(txtVon._value).ToShortDateString & "' or cast(UStVAn_ReDatBis as date) < '" & CDate(txtBis._value).ToShortDateString & "'))", "FMZOLL"))
 
@@ -2685,6 +2686,8 @@ Public Class frmMDM_USTVAntrag
         dTLANDEU = (New SQL).loadDgvBySql("select LandKz, MitgliedslandEU from Währungstabelle where LandKz is not null", "FMZOLL")
         Dim isEU As Boolean = dTLANDEU.AsEnumerable().Where(Function(res) res.Field(Of String)("LandKz") = USTV_ANTRAG.UStVAn_LandKz).Select(Function(res) res.Field(Of Boolean)("MitgliedslandEU")).FirstOrDefault()
 
+        Dim kunde As New cKunde(USTV_ANTRAG.UStVAn_KuNr)
+
         With spedBuch
             .Abfertigungsdatum = Today()
             .AvisUhrzeit = Now()
@@ -2694,7 +2697,12 @@ Public Class frmMDM_USTVAntrag
             .Abfertigungsart = IIf(isEU, 114, 115)
             .Abfertigungsanzahl = 1
             .Packstücke = "MWSt-Rückerstattung " & Antrag_LandKz & " / " & USTV_ANTRAG.UStVAn_ReDatVon & " - " & USTV_ANTRAG.UStVAn_ReDatBis
-            .VermittlerKundenNr = USTV_ANTRAG.UStVAn_KuNr
+            .VermittlerKundenNr = IIf(kunde.KundenNrZentrale IsNot Nothing, kunde.KundenNrZentrale, kunde.KundenNr)
+
+            If .VermittlerKundenNr = 140000 Or .VermittlerKundenNr = 150000 Then
+                .EmpfängerKundenNr = USTV_ANTRAG.UStVAn_KuNr
+            End If
+
             .Rechnungsbetrag = DiffernezbetragEUR * -1
             If .SAVE() Then
                 MsgBox("Sped-Eintrag wurde angelegt")

SDL/USTV/usrCntlUSTV.vb

@@ -984,19 +984,19 @@ Public Class usrCntlUSTV
                                                                                   [tblIDSTransactionsNew].KdNrVERAG, tblSteuernummern.LandNr, [Länderverzeichnis für die Außenhandelsstatistik].LandKz, Year([tblIDSTransactionsNew].[YearMonthDay]) , Month([tblIDSTransactionsNew].[YearMonthDay])
                                                                               /* ORDER BY [tblIDSTransactionsNew].KdNrVERAG, tblSteuernummern.LandNr, Year([tblIDSTransactionsNew].[YearMonthDay]), Month([tblIDSTransactionsNew].[YearMonthDay])*/"
 
-        Dim qryUStVVorschau_MSE_NEU As String = " select 'MSE' as LF,cust.[partner_customer_number] as RechnungsKundenNr,'' as LandNr ,trans.transaction_country as LandKZ ,Year(bills.invoice_date) as Jahr,Month(bills.invoice_date) as Monat, sum(USteuer_EUR) as Steuerbetrag, 'EUR' as Waehrung, sum(USteuer_EUR) as Steuerbetrag_EUR 
+        Dim qryUStVVorschau_MSE_NEU As String = " select 'MSE' as LF,cust.[partner_customer_number] as RechnungsKundenNr,'' as LandNr ,trans.transaction_country as LandKZ ,Year(bills.invoice_date) as Jahr,Month(bills.invoice_date) as Monat, sum(original_vat_amount) as Steuerbetrag, original_currency as Waehrung, sum(USteuer_EUR) as Steuerbetrag_EUR 
                                                   FROM [VERAG].[dbo].[tblMSESettlements] as bills 
                                                   left join [VERAG].[dbo].[tblMSETransactions] as trans on bills.[transaction_id] = trans.[transaction_id] 
                                                   left join [VERAG].[dbo].[tblMSECustomers] as cust on cust.partner_customer_number = trans.partner_haulier_id 
                                                   left join [VERAG].[dbo].[tblMSEInvoices] as inv on inv.invoice_id = bills.invoice_number 
-                                                  left join dbo.tblSteuernummern on dbo.tblSteuernummern.AdressenNr = trans.partner_haulier_id 
+                                                  left join dbo.tblSteuernummern on dbo.tblSteuernummern.AdressenNr = trans.partner_haulier_id and dbo.tblSteuernummern.LandKZ = trans.transaction_country  
                                                   where bills.invoice_date >= CASE 
                                                                     WHEN GETDATE() > CAST(CAST(YEAR(GETDATE()) AS VARCHAR) + '-06-30' AS DATE) 
                                                                          THEN CAST(CAST(YEAR(GETDATE()) AS VARCHAR) + '-01-01' AS DATE) 
                                                                 ELSE CAST(CAST(YEAR(GETDATE()) - 1 AS VARCHAR) + '-01-01' AS DATE) 
                                                                         END
 					                            and inv.archiv <> 1 and dbo.tblSteuernummern.UStV = 1 and trans.charged = 1  AND inv.UStVAn_ID IS NULL " & sqlKundenMSENEU & " 
-                                                group by  cust.[partner_customer_number],trans.transaction_country,  Year(bills.invoice_date) ,Month(bills.invoice_date)
+                                                group by  cust.[partner_customer_number],trans.transaction_country,original_currency, Year(bills.invoice_date) ,Month(bills.invoice_date)
 					                            HAVING SUM(USteuer_EUR) <> 0"
 
 

SDL/buchhaltung/frmBU_Mahnlauf.vb

@@ -47,7 +47,7 @@ Public Class frmBU_Mahnlauf
                       ORDER BY KTO.c_name"
 
             Dim sqlStringVerag360 = "SELECT i_personenkonto Konto,KTO.c_name, KTO.c_landid Land,Kunden.Abfertigungsverbot as AV,max(KTO.dec_aktuellersaldo) as Saldo,/*KTO.c_plz + ' ' + KTO.c_ort Ort,isnull(KTO.c_email,'') Email, */  " &
-                             "cast(min (OWNFIELD_Belegdatum)as date) as 'ältesteRg', sum(eur_bruttobetrag+eur_zahlung) as Ausstand,min(op.d_netto) Faelligkeit,max(si_mahnstufe) as MS,max(KTO.dec_wert3) as Risiko, cast(MAX(d_mahnung)as date) Mahndatum,max(Kunden.UStV_Summe3470BetragEUR) as '3470'  ,max(Kunden.UStV_SummeVZBetragEUR) as V, 
+                             "sum(eur_bruttobetrag+eur_zahlung) as Ausstand,cast(min (OWNFIELD_Belegdatum)as date) as 'ältesteRg',/*min(op.d_netto) Faelligkeit,*/max(si_mahnstufe) as MS,max(Kunden.UStV_Summe3470BetragEUR) as '3470',max(Kunden.UStV_SummeVZBetragEUR) as V, max(KTO.dec_wert3) as Risiko,sum(case when OP.c_typ = 'g' then isnull(OP.eur_bruttobetrag, 0) + isnull(OP.eur_zahlung, 0) else 0 end) as Gutschrift, cast(MAX(d_mahnung)as date) Mahndatum,
                             case 
                             when max(si_mahnstufe) = 1 Then 'telefonisch' 
                             when max(si_mahnstufe) = 2 Then 'Freitag'
@@ -55,8 +55,7 @@ Public Class frmBU_Mahnlauf
                             when max(si_mahnstufe) = 4 Then 'Mittwoch' 
                             when max(si_mahnstufe) >= 5  Then 'gesperrt' 
                             else '-'
-                            End as sperre,
+                            End as Sperre " & If(cbxNurFaellig.Checked, "", ",SUM(CASE WHEN op.d_netto<getDATE() THEN (eur_bruttobetrag+eur_zahlung) ELSE 0 END) Summe_Faellig") & "
-                             sum(case when OP.c_typ = 'g' then isnull(OP.eur_bruttobetrag, 0) + isnull(OP.eur_zahlung, 0) else 0 end) as Gutschrift " & If(cbxNurFaellig.Checked, "", ",SUM(CASE WHEN op.d_netto<getDATE() THEN (eur_bruttobetrag+eur_zahlung) ELSE 0 END) Summe_Faellig") & "
                       FROM op_debitor OP
 	                    RIGHT join fibu_konto KTO on i_personenkonto=i_konto AND  KTO.i_firm_refid=OP.i_firm_refid
                         inner join [FMZOLL\SQLFMZOLL].[VERAG].[dbo].[Kunden] on Kunden.KundenNr = i_personenkonto
@@ -127,8 +126,8 @@ Public Class frmBU_Mahnlauf
                 If Firma_ID = 19 Then
                     .Columns("ältesteRg").Width = 75
                     .Columns("MS").Width = 50
-                    .Columns("Faelligkeit").Width = 75
+                    '.Columns("Faelligkeit").Width = 75
-                    .Columns("Faelligkeit").HeaderText = "Fälligkeit"
+                    '.Columns("Faelligkeit").HeaderText = "Fälligkeit"
                     .Columns("AV").Width = 30
                 Else
                     .Columns("Email").Width = 150
@@ -1278,7 +1277,13 @@ Public Class frmBU_Mahnlauf
             If dt.Columns.Contains("c_landid") Then dt.Columns.Remove("c_landid")
             cProgramFunctions.genExcelFromDT_NEW(dt, {"D1:D" & (dt.Rows.Count + 1)},,, "Zahlungseingänge vom " & txtZahlEingaenge._value,, True)
         Else
-            cProgramFunctions.genExcelFromDT_NEW(dt, {"G1:G" & (dt.Rows.Count + 1), "J1:J" & (dt.Rows.Count + 1)})
+            If cboFirma._value = 19 Then
+                cProgramFunctions.genExcelFromDT_NEW(dt, {"E1:E" & (dt.Rows.Count + 1), "F1:F" & (dt.Rows.Count + 1), "I1:I" & (dt.Rows.Count + 1), "J1:J" & (dt.Rows.Count + 1), "K1:K" & (dt.Rows.Count + 1), "L1:L" & (dt.Rows.Count + 1)})
+            Else
+                cProgramFunctions.genExcelFromDT_NEW(dt, {"G1:G" & (dt.Rows.Count + 1), "J1:J" & (dt.Rows.Count + 1)})
+            End If
+
+
         End If
 
 
@@ -1375,7 +1380,7 @@ Public Class frmBU_Mahnlauf
 
             If dt.Columns.Contains("c_landid") Then dt.Columns.Remove("c_landid")
 
-            Dim attachment = cProgramFunctions.genExcelFromDT_NEW(dt, {"D1:D" & (dt.Rows.Count + 1)},,, desc,, True,,,, False)
+            Dim attachment = cProgramFunctions.genExcelFromDT_NEW(dt, {"D1:D" & (dt.Rows.Count + 1)},,, desc,, True,,,, False, True)
 
             Dim outl As New Outlook.Application
 

SDL/cProgramFunctions.vb

@@ -1124,7 +1124,7 @@ Public Class cProgramFunctions
         Return ""
     End Function
 
-    Public Shared Function genExcelFromDT_NEW(dt As DataTable, Optional rangeAsWaehrung() As String = Nothing, Optional ShowAutoFilter As Boolean = True, Optional HeaderTxt As String = "", Optional HeaderTxt2 As String = "", Optional waehrungsZeichen As String = "€", Optional fitCellsToContent As Boolean = False, Optional mergeHeadersToCell As Char = "", Optional Landscape As Boolean = False, Optional fitToOnePage As Boolean = False, Optional openFile As Boolean = True) As String
+    Public Shared Function genExcelFromDT_NEW(dt As DataTable, Optional rangeAsWaehrung() As String = Nothing, Optional ShowAutoFilter As Boolean = True, Optional HeaderTxt As String = "", Optional HeaderTxt2 As String = "", Optional waehrungsZeichen As String = "€", Optional fitCellsToContent As Boolean = False, Optional mergeHeadersToCell As Char = "", Optional Landscape As Boolean = False, Optional fitToOnePage As Boolean = False, Optional openFile As Boolean = True, Optional fitWideToOnePage As Boolean = False) As String
         Try
 
             Dim sPath As String = Environment.GetFolderPath(Environment.SpecialFolder.Personal) & "\VERAG\SDL\tmp\" ' My.Computer.FileSystem.GetTempFileName
@@ -1187,13 +1187,9 @@ Public Class cProgramFunctions
                 wb.Worksheets(0).PageSetup.PageOrientation = XLPageOrientation.Default
             End If
 
-            If fitToOnePage Then
+            If fitToOnePage Then wb.Worksheets(0).PageSetup.PagesWide = 1 : wb.Worksheets(0).PageSetup.PagesTall = 1 ' In die Höhe/Breite auf eine Seite anpassen
+            If fitWideToOnePage Then wb.Worksheets(0).PageSetup.PagesWide = 1
 
-                wb.Worksheets(0).PageSetup.PagesWide = 1  ' In die Breite auf eine Seite anpassen
-                wb.Worksheets(0).PageSetup.PagesTall = 1 ' In die Höhe auf eine Seite anpassen
-
-
-            End If
 
 
             Dim filename As String = sPath & "tmp_" & Now.ToString("ddMMyyyyHHmmss") & ".xlsx"