neu

2021-01-19 20:27:19 +01:00
parent 1c8b5afac9
commit 595851ec3c
37 changed files with 1293 additions and 479 deletions
--- a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVorauskasse.Designer.vb
+++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVorauskasse.Designer.vb
--- a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVorauskasse.vb
+++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVorauskasse.vb
@@ -108,18 +108,22 @@
            txtAnzVerp.Text = If(SENDUNG.tblSnd_Colli, "")
            txtGewicht.Text = If(SENDUNG.tblSnd_Gewicht, "")
            txtAbsender.Text = If(SENDUNG.tblSnd_Absender, "")
-            If SENDUNG.AbfertigungsNr > 0 Then
-                '   txtAbfertigungsNr.Text = SENDUNG.FilialenNr & "/" & SENDUNG.AbfertigungsNr
-                txtAbfertigungsNr.Text = SENDUNG.AbfertigungsNr
-                If SENDUNG.FilialenNr > 0 Then
-                    cboFiliale.changeItem(SENDUNG.FilialenNr)
-                    Dim VK = VERAG_PROG_ALLGEMEIN.cVorauskasse.LOADByFilialeAbfNr(SENDUNG.FilialenNr, SENDUNG.AbfertigungsNr, ROLLE)
-                    If VK IsNot Nothing Then setValues(VK)
-                    initBerechnung()
+                If SENDUNG.AbfertigungsNr > 0 Then
+                    '   txtAbfertigungsNr.Text = SENDUNG.FilialenNr & "/" & SENDUNG.AbfertigungsNr
+                    txtAbfertigungsNr.Text = SENDUNG.AbfertigungsNr
+                    If SENDUNG.FilialenNr > 0 Then
+                        cboFiliale.changeItem(SENDUNG.FilialenNr)
+                        Dim VK = VERAG_PROG_ALLGEMEIN.cVorauskasse.LOADByFilialeAbfNr(SENDUNG.FilialenNr, SENDUNG.AbfertigungsNr, ROLLE)
+                        If VK IsNot Nothing Then setValues(VK)
+                        initBerechnung()
+                    End If
                End If
-            End If

-        End If
+                If IsNumeric(If(SENDUNG.tblSnd_Frachtkosten, "")) Then
+                    txtFrachtkostenAusl._value = CDbl(SENDUNG.tblSnd_Frachtkosten)
+                End If
+
+            End If
            If AVISO IsNot Nothing Then
                txtLKWKennz.Text = If(AVISO.LKW_Nr, "")
                txtUnternehmer.Text = If(AVISO.Frächter, "")
@@ -188,12 +192,13 @@
        If CDate(Now.ToShortDateString) >= CDate("01.07.2020") And CDate(Now.ToShortDateString) <= CDate("31.12.2020") Then

            txtEustProzent.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("0%", "0"))
-            txtEustProzent.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("5%", "0,05"))
-            txtEustProzent.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("16%", "0,16"))
+            'txtEustProzent.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("5%", "0,05"))
+            'txtEustProzent.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("16%", "0,16"))
            txtEustProzent.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("7%", "0,07"))
            txtEustProzent.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("19%", "0,19"))
            txtEustProzent.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("20%", "0,20"))
-            txtEustProzent.changeItem("0,16")
+            txtEustProzent.changeItem("0,19")
+            ' txtEustProzent.changeItem("0,16")
        Else

            txtEustProzent.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("0%", "0"))
@@ -261,27 +266,27 @@
        End If

        Dim zwTMP As Double =
-            Vl(txtVerzollungskosten) +
-            Vl(txtWeitereTarifPos) +
-            Vl(txtATLAS) +
-            Vl(txtClearing) +
-            Vl(txtKorrRechnung) +
-            Vl(txtUebersetzungRg) +
-            Vl(txtAviso) +
-            Vl(txtSvs) +
-        Vl(txtSonstigeKosten)
+                Vl(txtVerzollungskosten) +
+                Vl(txtWeitereTarifPos) +
+                Vl(txtATLAS) +
+                Vl(txtClearing) +
+                Vl(txtKorrRechnung) +
+                Vl(txtUebersetzungRg) +
+                Vl(txtAviso) +
+                Vl(txtSvs) +
+                Vl(txtSonstigeKosten) +
+                Vl(txtPapierePorti)
        ' Vl(txtMWST) +
        'Vl(txtPapierePorti)
        txtMWST._value = Vl(txtMwstProzent) * zwTMP
        txtGesamtsumme._value =
-            Vl(txtZoll2) +
-            Vl(txtEust2) +
-            Vl(txtAndereAbgabenBetrag) +
-            zwTMP +
-            Vl(txtMWST) +
-            Vl(txtPapierePorti)
+                Vl(txtZoll2) +
+                Vl(txtEust2) +
+                Vl(txtAndereAbgabenBetrag) +
+                zwTMP +
+                Vl(txtMWST)
+

-     
        '----------------------------------------------------------------
    End Sub

@@ -338,7 +343,7 @@
                Case "CS"
                    txtEustProzent.changeItem("0,20")
                Case "AG"
-                    If CDate(Now.ToShortDateString) >= CDate("01.07.2020") And CDate(Now.ToShortDateString) <= CDate("31.12.2020") Then
+                    If CDate(Now.ToShortDateString) >= CDate("01.07.2020") And CDate(Now.ToShortDateString) <= CDate("20.12.2020") Then
                        txtEustProzent.changeItem("0,16")
                    Else
                        txtEustProzent.changeItem("0,19")
--- a/SDL/Formulare/KDFormulare/frmFormulare.vb
+++ b/SDL/Formulare/KDFormulare/frmFormulare.vb
@@ -3140,11 +3140,17 @@ Public Class FormularManagerNEU

        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAviso.Text, 170, top + 37, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtSvs.Text, 170, top + 41, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
-        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtSonstigeKostenText.Text, 116.5, top + 45, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_LEFT))
-        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtSonstigeKosten.Text, 170, top + 45, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
-        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtMwstProzent.Text, 140, top + 49, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
-        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtMWST.Text, 170, top + 49, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
-        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtPapierePorti.Text, 170, top + 56, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
+        'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtSonstigeKostenText.Text, 116.5, top + 45, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_LEFT))
+        'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtSonstigeKosten.Text, 170, top + 45, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
+        'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtMwstProzent.Text, 140, top + 49, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
+        'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtMWST.Text, 170, top + 49, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
+        'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtPapierePorti.Text, 170, top + 56, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
+        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtPapierePorti.Text, 170, top + 45, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
+        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtSonstigeKostenText.Text, 116.5, top + 49, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_LEFT))
+        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtSonstigeKosten.Text, 170, top + 49, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
+        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtMwstProzent.Text, 140, top + 53, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
+        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtMWST.Text, 170, top + 53, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
+

        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtGesamtsumme.Text, 170, top + 61, 30, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT))

@@ -4268,6 +4274,19 @@ Public Class FormularManagerNEU
    End Function


+    Shared Function Zollstopp(Zollstop, Entladestelle, Kommentare, Absender) As String
+        Dim fm As New VERAG_PROG_ALLGEMEIN.cFormularManager
+
+        Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues)
+
+
+        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(Absender, 70, 44, 100, 10, "normal", 14, , iTextSharp.text.Element.ALIGN_LEFT))
+        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(Zollstop, 50, 80, 110, 30, "bold", 14, , iTextSharp.text.Element.ALIGN_LEFT))
+        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(Entladestelle, 50, 145, 110, 30, "bold", 14, , iTextSharp.text.Element.ALIGN_LEFT))
+        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(Kommentare, 50, 212, 110, 30, "normal", 12, , iTextSharp.text.Element.ALIGN_LEFT))
+
+        Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "Zollstopp", listTowrite)
+    End Function

    Shared Function Bonitaetsauskunft(usrCntl As usrcntlCreditreformBoniAuskunft) As String
        Dim fm As New VERAG_PROG_ALLGEMEIN.cFormularManager
@@ -4310,14 +4329,14 @@ Public Class FormularManagerNEU

    Public Shared Function getUO2() As String
        Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
-            Case "IMEX", "ATILLA", "UNISPED" : Return VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
+            Case "IMEX", "ATILLA", "UNISPED", "AMBAR" : Return VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
            Case Else : Return ""
        End Select
    End Function

    Public Shared Function getUO2_FO() As String
        Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
-            Case "IMEX", "ATILLA", "UNISPED", "FRONTOFFICE" : Return VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
+            Case "IMEX", "ATILLA", "UNISPED", "AMBAR", "FRONTOFFICE" : Return VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
            Case Else : Return ""
        End Select
    End Function