Fakt, Email, Nacherfassung, etc.

SDL/Fakturierung/cFakturierung.vb

@@ -420,6 +420,14 @@ Public Class cFakturierung
                             Case "EN" : strText = strText & "The credit amount was offset against the debit order issued." & vbCrLf
                             Case Else : strText = strText & "Der Gutschriftsbetrag wurde mit erteilten Abbuchungsauftrag verrechnet." & vbCrLf
                         End Select
+                    Else
+                        If RECHNUNG.Firma_ID = 19 Then
+                            Select Case RECHNUNG.RechnungSprache
+                                Case "EN" : strZahlbar = "Payment term: " & ZZTage & " days"
+                                Case Else : strZahlbar = "Zahlungsziel: " & ZZTage & " Tage"
+                            End Select
+                        End If
+
                     End If
             End Select
 
@@ -1381,13 +1389,6 @@ Public Class cFakturierung
                         Case Else : rpt.txtInfo.Text = "*Reverse Charge"
                     End Select
 
-                    rpt.lblSteuersatz.Visible = False
-                    rpt.lblSteuerbetrag.Visible = False
-                    'rpt.lblSteuerfrei.Visible = False
-                    rpt.lblSteuerfreiGes.Visible = False
-                    rpt.lblZwText.Visible = False
-                    rpt.lblZWSumme.Visible = False
-
                 Else
 
                     Select Case RECHNUNG.RechnungSprache
@@ -1403,6 +1404,8 @@ Public Class cFakturierung
 
 
 
+
+
             rpt.txtAnlagen.Text = ""
             If If(RECHNUNG.Anlage_1, "") <> "" Then rpt.txtAnlagen.Text &= RECHNUNG.Anlage_1
             If If(RECHNUNG.Anlage_2, "") <> "" Then rpt.txtAnlagen.Text &= vbNewLine & RECHNUNG.Anlage_2
@@ -1502,6 +1505,16 @@ Public Class cFakturierung
 
             'Dim cnt As Integer = 0
 
+            If RECHNUNG.Firma_ID = 19 Then
+
+                rpt.lblSteuersatz.Visible = False
+                rpt.lblSteuerbetrag.Visible = False
+                rpt.lblSteuerpflichtigGes.Visible = False
+                rpt.lblSteuerfreiGes.Visible = False
+                rpt.lblZwText.Visible = False
+                rpt.lblZWSumme.Visible = False
+            End If
+
             Dim sumSteuerpflichtig As Double = 0
             Dim sumSteuerfrei As Double = 0
 
@@ -1534,12 +1547,22 @@ Public Class cFakturierung
                                                               Dim MonthEnd As String = IIf(CDate(MWSTAntrag.UStVAn_ReDatBis).Month < 10, "0", "") & CDate(MWSTAntrag.UStVAn_ReDatBis).Month
 
                                                               If rpt.txtLeistung.Text.Contains("-00") Then
-                                                                  rpt.txtLeistung.Text = rpt.txtLeistung.Text.Replace("-00", "-" & MonthStart & MonthEnd)
+                                                                  rpt.txtLeistung.Text = rpt.txtLeistung.Text.Replace("-00", MonthStart & "-" & MonthEnd)
+                                                              ElseIf rpt.txtLeistung.Text.Contains("00-") Then
+                                                                  rpt.txtLeistung.Text = rpt.txtLeistung.Text.Replace("00-", MonthStart & "-" & MonthEnd)
                                                               ElseIf rpt.txtLeistung.Text.Contains("00") Then
-                                                                  rpt.txtLeistung.Text = rpt.txtLeistung.Text.Replace("00", MonthStart & MonthEnd)
+                                                                  rpt.txtLeistung.Text = rpt.txtLeistung.Text.Replace("00", MonthStart & "-" & MonthEnd)
                                                               End If
 
-                                                              rpt.txtLeistung.Text = rpt.txtLeistung.Text.Replace("23", CDate(MWSTAntrag.UStVAn_ReDatBis).Year.ToString.Substring(2))
+                                                              If rpt.txtLeistung.Text.Contains("00/23") Then
+                                                                  rpt.txtLeistung.Text = rpt.txtLeistung.Text.Replace("00/23", "/" & CDate(MWSTAntrag.UStVAn_ReDatBis).Year.ToString.Substring(2))
+                                                              ElseIf rpt.txtLeistung.Text.Contains("DL/23") Then
+                                                                  rpt.txtLeistung.Text = rpt.txtLeistung.Text.Replace("DL/23", "/" & CDate(MWSTAntrag.UStVAn_ReDatBis).Year.ToString.Substring(2))
+                                                              Else
+                                                                  rpt.txtLeistung.Text = rpt.txtLeistung.Text.Replace("/23", "/" & CDate(MWSTAntrag.UStVAn_ReDatBis).Year.ToString.Substring(2))
+                                                              End If
+
+
                                                           End If
 
 
@@ -1664,7 +1687,6 @@ Public Class cFakturierung
                 rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("<Rechnungsdatum+ZZVL>", Now.AddDays(ZZTageVL).ToShortDateString)
                 rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("<Rechnungsdatum+10T>", Now.AddDays(10).ToShortDateString)
                 rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("<Rechnungsdatum+ZZ>", Now.AddDays(ZZTage).ToShortDateString)
-
                 rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("<Rechnungsdatum+ZZVL>", Now.AddDays(ZZTageVL).ToShortDateString)
 
 
@@ -4128,9 +4150,6 @@ Public Class cFakturierung
         If Row("RechnungsOrt") IsNot DBNull.Value AndAlso Row("RechnungsOrt") <> "" Then rpt.lblRechnungAn.Text &= Row("RechnungsOrt") & vbNewLine
         If Row("RechnungsLandKz") IsNot DBNull.Value AndAlso Row("RechnungsLandKz") <> "" Then rpt.lblRechnungAn.Text &= cProgramFunctions.getLandBez_fromISO1Land(Row("RechnungsLandKz"), "", Row("RechnungSprache")).ToString.ToUpper
 
-
-
-
         If isMDMRechnungsdruck Then
 
             If getReverseChargeSumme(Firma, Row("RechnungsLandKz"), Row("RechnungsNr"), Row("RechnungsDatum"), VorschauID) > 0 Then
@@ -4146,8 +4165,6 @@ Public Class cFakturierung
                 rpt.Label2.Text = ""
             End If
 
-
-
             If Row("Text") IsNot DBNull.Value AndAlso Row("Text") <> "" Then
                 rpt.txtInfo.Text &= vbNewLine & vbNewLine & Row("Text")
                 rpt.txtVermerk.Text = (If(Row("Text"), "").ToString.Trim & vbNewLine & vbNewLine & If(Row("Notiz"), "").ToString.Trim).ToString.Trim

SDL/Fakturierung/frmFaktEmail.vb

@@ -929,7 +929,7 @@ Public Class frmFaktEmail
                     For Each a In ATTACHMENTS
                         If a.Pfad.ToString.Contains("VERAG") Or a.Pfad.ToString.Contains("IDS") Or a.Pfad.ToString.Contains("MSE") Or a.Pfad.ToString.Contains("UTA") Or a.Pfad.ToString.Contains("PLOSE") Or a.Pfad.ToString.Contains("RMC") Then
                             myListLiefereranten.Add(a.Pfad)
-                        ElseIf a.Pfad.ToString.Contains("POS-LISTE") Then
+                        ElseIf a.Pfad.ToString.Contains("POS_LISTE") Or a.Pfad.ToString.Contains("POS-LISTE") Then
                             myListPOSLIST.Add(a.Pfad)
                         Else
                             myList.Add(a.Pfad)
@@ -952,10 +952,11 @@ Public Class frmFaktEmail
 
 
 
-                    If FormularManagerNEU.MergePdfFiles(myList, zielPfadZusammenfassung) AndAlso list2megered Then
+                    If FormularManagerNEU.MergePdfFiles(myList, zielPfadZusammenfassung) Then
                         ATTACHMENTS.Add(New cFakt_MailATTach(zielPfadZusammenfassung, ""))
                         If myListLiefereranten.Count > 0 Then ATTACHMENTS.Add(New cFakt_MailATTach(zielPfadZusammenfassung_Lieferantenrechnungen, ""))
                         If zielPfadZusammenfassung_POSListe.Count > 0 Then ATTACHMENTS.Add(New cFakt_MailATTach(zielPfadZusammenfassung_POSListe, ""))
+
                     End If
 
 

SDL/Fakturierung/usrCntlFaktAbrechnung.vb

@@ -2134,7 +2134,7 @@ Public Class usrCntlFaktAbrechnung
 
         Select Case cboRgGS.SelectedIndex
             Case 0 : RECHNUNG.[BelegartenKz] = "AR" : RECHNUNG.[BelegartenNr] = 70 : RECHNUNG.Vorzeichen = "+" : RECHNUNG.BelegartenBez = "Rechnung" : RECHNUNG.Text = cProgramFunctions.isLeerNothing(txtText.Text) : RECHNUNG.TextZZ = cProgramFunctions.isLeerNothing(txtTextZZ.Text)
-            Case 1 : RECHNUNG.[BelegartenKz] = "AG" : RECHNUNG.[BelegartenNr] = 71 : RECHNUNG.Vorzeichen = "-" : RECHNUNG.BelegartenBez = "Gutschrift" : RECHNUNG.Text = ""
+            Case 1 : RECHNUNG.[BelegartenKz] = "AG" : RECHNUNG.[BelegartenNr] = 71 : RECHNUNG.Vorzeichen = "-" : RECHNUNG.BelegartenBez = "Gutschrift" : RECHNUNG.Text = "" : If RECHNUNG.Firma_ID = 19 Then RECHNUNG.TextZZ = cProgramFunctions.isLeerNothing(txtTextZZ.Text)
         End Select
 
         RECHNUNG.Sammelrechnung = cProgramFunctions.isLeerNothing(cboSammelrechnung._value)
@@ -2697,8 +2697,16 @@ Public Class usrCntlFaktAbrechnung
                                         If curBearbPreis = curBGebBetrag * 2 AndAlso minBetragRMCUsed Then 'wenn RMCPOS und MIND-BERTAG 2x verrechnet -> nur 1x berechnen 
                                             If curBearbPreis <> row.Cells("Preis").Value Then row.Cells("Preis").Value = curBGebBetrag / 2
                                         ElseIf curBearbPreis <> curBGebBetrag * 2 AndAlso summeRMCBearb <> curBearbPreis AndAlso (minBetragRMCUsed OrElse isRMC OrElse isFREMD) AndAlso summeRMCBearb > curBGebMinBetrag Then 'wenn RMCPOS und Summe der berechneten Bearb > Mindestbetrag --> berechnetBearb verrechnet!
-                                            If summeRMCBearb <> row.Cells("Preis").Value Then row.Cells("Preis").Value = summeRMCBearb
+
+                                            If summeRMCBearb <> row.Cells("Preis").Value Then
+                                                If Math.Abs(row.Cells("Preis").Value - summeRMCBearb) > 0.5 Then 'Rundungsdifferenzen ignorieren (weil sonst Deadloop)
+                                                    row.Cells("Preis").Value = summeRMCBearb
                                                 End If
+                                            End If
+                                        End If
+
+
+
 
                                     Else
 
@@ -4853,14 +4861,14 @@ mwst:
 
                                 If isRMCKunde Then
                                     If OFFERT_RMC AndAlso sumRMC <> 0 Then
-                                        r.Cells("Preis").Value = sumRMC * -1
+                                        r.Cells("Preis").Value = sumRMC '* -1
                                     ElseIf OFFERT_FREMD AndAlso sumFremdBeleg <> 0 Then
-                                        r.Cells("Preis").Value = sumFremdBeleg * -1
+                                        r.Cells("Preis").Value = sumFremdBeleg '* -1
                                     End If
 
                                 Else
                                     If sumBelegVZ <> 0 Then
-                                        r.Cells("Preis").Value = sumBelegVZ * -1
+                                        r.Cells("Preis").Value = sumBelegVZ '* -1
                                     Else
 
                                         Dim GesamtUSteuerEUR As Double = SQL.DLookup("isnull(sum(UStVPo_USteuerbetragEUR),0)", "tblUStVPositionen", "UStVAn_ID='" & antrag.UStVAn_ID & "'", "FMZOLL", "0")
@@ -4868,7 +4876,7 @@ mwst:
                                         Dim DiffernezbetragEUR As Double = GesamtUSteuerEUR - GesamtErstattungEUR
 
                                         If DiffernezbetragEUR <> 0 Then
-                                            r.Cells("Preis").Value = DiffernezbetragEUR * -1
+                                            r.Cells("Preis").Value = DiffernezbetragEUR '* -1
                                         End If
 
                                     End If

SDL/Speditionsbuch/Nacherfassung/frmNacherfassungNEU.vb

@@ -109,8 +109,14 @@ Public Class frmNacherfassungNEU
                 cboSachbearbeiter.fillWithSQL("SELECT  ID, Name FROM Personal WHERE [Status]<>'L' " & sbWhere & " and [SBSichtbar]=1  ORDER BY Name ", False, "FMZOLL", True)
             End If
 
+            Dim enableWoelfl As Boolean = IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA_ID = 19, True, False)
 
-
+            txtEmpfaenger._displayWoelflKd = enableWoelfl
+            txtAuftraggeber._displayWoelflKd = enableWoelfl
+            txtAvisierer._displayWoelflKd = enableWoelfl
+            txtEmpfaenger._displayWoelflKd = enableWoelfl
+            txtEndEmpf._displayWoelflKd = enableWoelfl
+            txtFraechter._displayWoelflKd = enableWoelfl
 
 
             If SQL.getValueTxtBySql("SELECT count(*) FROM tblAbfertigungsartenFiliale WHERE Filialennr='" & cboFiliale._value & "'", "FMZOLL") > 0 Then