neu

2021-03-23 11:19:27 +01:00
parent b4612ab3e0
commit e625acc609
22 changed files with 2028 additions and 1763 deletions
--- a/SDL/Classes/cGenWord.vb
+++ b/SDL/Classes/cGenWord.vb
@@ -15,7 +15,7 @@ Public Class cGenWord
        Dim odoc As Microsoft.Office.Interop.Word.Document
        Try
            oWord.Visible = visibleWord 'Word sehen zum Test?
-            '  MsgBox(pfadWord)
+            ' MsgBox(pfadWord)
            odoc = oWord.Documents.Open(pfadWord)
            odoc.SaveAs(tmpPath)
            odoc.Activate()
--- a/SDL/Fakturierung/cFakturierung.vb
+++ b/SDL/Fakturierung/cFakturierung.vb
@@ -543,6 +543,20 @@ Public Class cFakturierung
        Return doRechnungsDruck(New VERAG_PROG_ALLGEMEIN.cRechnungsausgang(RK_ID), RechnungsDatum, vorschau, Rechnugnsdruck, Path, PrinterName, SammelrechnungAnlagendruck, printStbVdb)
    End Function

+    Public Shared Function doRechnungsDruck_MAIL(RK_ID As Integer, Optional RechnungsDatum As Object = Nothing, Optional vorschau As Boolean = False, Optional Rechnugnsdruck As Integer = -1, Optional ByRef Path As String = "", Optional ByRef PrinterName As String = "", Optional SammelrechnungAnlagendruck As Boolean = False, Optional printStbVdb As Boolean = False) As Boolean
+        If RK_ID <= 0 Then Return False
+
+        Dim RG_TMP = New VERAG_PROG_ALLGEMEIN.cRechnungsausgang(RK_ID)
+        If RG_TMP Is Nothing Then Return False
+        Dim SPEDBUCH_TMP = New VERAG_PROG_ALLGEMEIN.cSpeditionsbuch(RG_TMP.FilialenNr, RG_TMP.AbfertigungsNr, RG_TMP.SpeditionsbuchUnterNr)
+
+        If SPEDBUCH_TMP Is Nothing Then Return False
+        Dim f As New frmFaktEmail(New VERAG_PROG_ALLGEMEIN.cRechnungsausgang(RK_ID), SPEDBUCH_TMP, Nothing)
+        f.Show(RG_TMP)
+        Return True
+        '     Return doRechnungsDruck(New VERAG_PROG_ALLGEMEIN.cRechnungsausgang(RK_ID), RechnungsDatum, vorschau, Rechnugnsdruck, Path, PrinterName, SammelrechnungAnlagendruck, printStbVdb)
+    End Function
+
    Shared Sub initRgFirma(ByRef rpt As rptRechnungDruck, FIRMA As VERAG_PROG_ALLGEMEIN.cFirmen, Rechnung As VERAG_PROG_ALLGEMEIN.cRechnungsausgang)

        rpt.lblFirmaOrt.Text = If(FIRMA.Firma_Ort, "")
@@ -788,7 +802,7 @@ Public Class cFakturierung
            'End If

            Dim sum = 0
-            Select Case RECHNUNG.[BelegartenKz]
+            Select Case RECHNUNG.BelegartenKz
                Case "AR"
                    rpt.lblUeberschriftRG_GS.Text = "RECHNUNG"
                Case "AG"
@@ -2125,6 +2139,17 @@ Public Class cFakturierung
    End Function

    Shared Function getSBRgName(Firma_id As Integer, USRKURZNAME As String) As String
+
+        If USRKURZNAME Is Nothing Then Return ""
+        If USRKURZNAME Is DBNull.Value Then Return ""
+        If USRKURZNAME = "" Then USRKURZNAME = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
+        Dim txt = SQL.getValueTxtBySql("SELECT top 1 CASE WHEN mit_geschlecht='w' THEN 'Frau ' ELSE (CASE WHEN mit_geschlecht='m' THEN 'Herr ' ELSE '' END ) END + mit_nname  FROM [tblMitarbeiter] WHERE [mit_username]='" & USRKURZNAME & "'  ", "ADMIN")
+        If txt <> "" Then Return txt
+        Return USRKURZNAME
+    End Function
+
+
+    Shared Function getSBRgName_FirmaPruef(Firma_id As Integer, USRKURZNAME As String) As String
        Dim firma = ""
        Select Case Firma_id
            Case 20
--- a/SDL/Fakturierung/frmAbrechnungsMaske.Designer.vb
+++ b/SDL/Fakturierung/frmAbrechnungsMaske.Designer.vb
@@ -128,7 +128,6 @@ Partial Class frmAbrechnungsMaske
        Me.tbcntr.Dock = System.Windows.Forms.DockStyle.Fill
        Me.tbcntr.Location = New System.Drawing.Point(0, 170)
        Me.tbcntr.Name = "tbcntr"
-        Me.tbcntr.SelectedIndex = 0
        Me.tbcntr.Size = New System.Drawing.Size(575, 445)
        Me.tbcntr.TabIndex = 3
        '
--- a/SDL/Fakturierung/frmAbrechnungsMaske.vb
+++ b/SDL/Fakturierung/frmAbrechnungsMaske.vb
@@ -250,13 +250,19 @@ Public Class frmAbrechnungsMaske
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If checkSrchValues() Then

-            Dim dt = SQL.loadDgvBySql("SELECT RK_ID FROM Rechnungsausgang WHERE Status=0 " & getRGWhere("ER") & " ORDER BY /*[BelegartenKz] DESC,*/ FilialenNr, AbfertigungsNr, [RK_ID]", "FMZOLL")
+            Dim PARAM_printZollbeleg = VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("FAKTURIERUNG_PRINT_Zollbeleg")
+            Dim dt = SQL.loadDgvBySql("SELECT RK_ID,AD.Rechnungsdruck as Rechnungsdruck FROM Rechnungsausgang INNER JOIN Adressen ON AdressenNr=RechnungsKundenNr WHERE Status=0 " & getRGWhere("ER") & " ORDER BY /*[BelegartenKz] DESC,*/ FilialenNr, AbfertigungsNr, [RK_ID]", "FMZOLL")
            If dt IsNot Nothing Then
                If vbYes = MsgBox("Es werden " & dt.Rows.Count & " Rechnungen gedruckt." & vbNewLine & "Möchten Sie fortfahren?", vbYesNoCancel) Then
                    Dim RechnungsDatum As Date = Now
                    If cFakturierung.getRgDatInput("Es werden " & dt.Rows.Count & " Rechnungen gedruckt." & vbNewLine & "Möchten Sie fortfahren?" & vbNewLine, [RechnungsDatum]) Then 'Now.ToShortDateString
                        For Each r In dt.Rows
-                            cFakturierung.doRechnungsDruck(r("RK_ID"), RechnungsDatum,,,, cboPrinter.Text)
+                            If r("Rechnungsdruck") = "2" Then
+                                cFakturierung.doRechnungsDruck_MAIL(r("RK_ID"), RechnungsDatum,,,, cboPrinter.Text,, PARAM_printZollbeleg)
+                            Else
+                                cFakturierung.doRechnungsDruck(r("RK_ID"), RechnungsDatum,,,, cboPrinter.Text,, PARAM_printZollbeleg)
+                            End If
+
                        Next
                        initDGV()
                    End If
@@ -481,7 +487,7 @@ Public Class frmAbrechnungsMaske

    Private Sub Button7_Click2(sender As Object, e As EventArgs) Handles Button7.Click
        If MyDatagridview1.SelectedRows.Count > 0 Then
-            If vbYes = MsgBox("Es werden " & MyDatagridview1.SelectedRows.Count & " Rechnungen ans Mail gedruckt." & vbNewLine & "Möchten Sie fortfahren?", vbYesNoCancel) Then
+            If vbYes = MsgBox("Es werden " & MyDatagridview1.SelectedRows.Count & " Rechnungen als Mail gedruckt." & vbNewLine & "Möchten Sie fortfahren?", vbYesNoCancel) Then

                'Rechnungsdatum festlegen:
                Dim RechnungsDatumTMP As Date = Now
--- a/SDL/Fakturierung/frmFaktAufschubSuche.vb
+++ b/SDL/Fakturierung/frmFaktAufschubSuche.vb
@@ -30,7 +30,12 @@
        btnMonat.Text = "Monat"
        btnJahr.Text = Now.Year

-        Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
+        Dim FirmaTmp = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
+        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("OFFERTE_FREMD_VERAGIMEX", "SDL") Or VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("FAKTURIERUNG_VERAGIMEX", "SDL") Then
+            FirmaTmp = "VERAGIMEX"
+        End If
+
+        Select Case FirmaTmp
            Case "IMEX"
                cboKonto.Items.Clear()
                cboKonto.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("alle", "'002719','002718'"))
@@ -44,6 +49,15 @@
                cboKonto.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ZOLL (006145)", "'006145'"))
                cboKonto.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("EUST AT (006077)", "'006077'"))
                cboKonto.SelectedIndex = 0
+            Case "VERAGIMEX"
+                cboKonto.Items.Clear()
+                cboKonto.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("alle", "'006136','006128','3517233','002719','002718'"))
+                cboKonto.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG DE EUST (006136)", "'006136'"))
+                cboKonto.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG DE ZOLL (006128)", "'006128'"))
+                cboKonto.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG AT ZOLL/EUST (3517233)", "'3517233'"))
+                cboKonto.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("IMEX EUST (002719)", "'002719'"))
+                cboKonto.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("IMEX ZOLL (002718)", "'002718'"))
+                cboKonto.SelectedIndex = 0
            Case Else
                cboKonto.Items.Clear()
                cboKonto.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("alle", "'006136','006128','3517233'"))
--- a/SDL/Fakturierung/usrCntlFaktAbrechnung.Designer.vb
+++ b/SDL/Fakturierung/usrCntlFaktAbrechnung.Designer.vb
--- a/SDL/Fakturierung/usrCntlFaktAbrechnung.resx
+++ b/SDL/Fakturierung/usrCntlFaktAbrechnung.resx
@@ -135,24 +135,6 @@
  <metadata name="Aufschubkonto.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
    <value>True</value>
  </metadata>
-  <metadata name="Leistung.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-    <value>True</value>
-  </metadata>
-  <metadata name="Anzahl.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-    <value>True</value>
-  </metadata>
-  <metadata name="Preis.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-    <value>True</value>
-  </metadata>
-  <metadata name="SteuerpflichtigerBetrag.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-    <value>True</value>
-  </metadata>
-  <metadata name="SteuerfreierBetrag.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-    <value>True</value>
-  </metadata>
-  <metadata name="Aufschubkonto.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-    <value>True</value>
-  </metadata>
  <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
  <data name="btnOK.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
    <value>
@@ -184,6 +166,24 @@
  <metadata name="Timer.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
    <value>109, 17</value>
  </metadata>
+  <metadata name="Leistung.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>True</value>
+  </metadata>
+  <metadata name="Anzahl.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>True</value>
+  </metadata>
+  <metadata name="Preis.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>True</value>
+  </metadata>
+  <metadata name="SteuerpflichtigerBetrag.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>True</value>
+  </metadata>
+  <metadata name="SteuerfreierBetrag.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>True</value>
+  </metadata>
+  <metadata name="Aufschubkonto.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>True</value>
+  </metadata>
  <metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
    <value>28</value>
  </metadata>
--- a/SDL/Fakturierung/usrCntlFaktAbrechnung.vb
+++ b/SDL/Fakturierung/usrCntlFaktAbrechnung.vb
@@ -318,6 +318,17 @@ Public Class usrCntlFaktAbrechnung

            Dim VK = VERAG_PROG_ALLGEMEIN.cVorauskasse.LOADByFilialeAbfNr(RECHNUNG.FilialenNr, RECHNUNG.AbfertigungsNr)
            btnVorauskasseAnzeigen.Enabled = (VK IsNot Nothing)
+            lblVK_Zahlungseingang.Text = ""
+            lblVK_ZahlungseingangBemerkung.Text = ""
+            picVK.Visible = False
+
+            If VK IsNot Nothing Then
+                If VK.vk_GeldEingetroffen Then
+                    picVK.Visible = True
+                    lblVK_Zahlungseingang.Text = VK.vk_Betrag
+                    lblVK_ZahlungseingangBemerkung.Text = VK.vk_BH_Bemerkung
+                End If
+            End If

            Dim pnlEnabled = (RECHNUNG.SpeditionsbuchUnterNr Is Nothing OrElse RECHNUNG.SpeditionsbuchUnterNr < 0)
            setControlsEnabled(pnlEmpfaenger, pnlEnabled)
@@ -493,15 +504,16 @@ Public Class usrCntlFaktAbrechnung
        End If

        Select Case FirmaTmp
-            Case "VERAG", "IMEX" : whereFirma = " AND FIRMENGRUPPE IN ('VERAG','ATILLA','FRONTOFFICE') " : pnlDocs.Visible = True
+            Case "VERAG" : whereFirma = " AND FIRMENGRUPPE IN ('VERAG','ATILLA','FRONTOFFICE') " : pnlDocs.Visible = True
+            Case "IMEX" : whereFirma = " AND FIRMENGRUPPE IN ('IMEX') " : pnlDocs.Visible = True
            'Case "VERAG" : whereFirma = " AND Firma_ID<>20 " : pnlDocs.Visible = True
            'Case "IMEX" : whereFirma = " AND Firma_ID=20 "
            Case "ATILLA" : whereFirma = " AND Firma_ID=7 " : pnlDocs.Visible = True
-            Case "UNISPED" : whereFirma = " AND FIRMENGRUPPE IN ('UNISPED') " : firstEmpty = True
+            Case "UNISPED" : whereFirma = " AND FIRMENGRUPPE IN ('UNISPED') " : firstEmpty = True : pnlDocs.Visible = True

-            Case "AMBAR" : whereFirma = " AND Firma_ID=24 "
-            Case "FRONT-OFFICE" : whereFirma = " AND Firma_ID=17 "
-            Case "VERAGIMEX" : whereFirma = " AND FIRMENGRUPPE IN ('VERAG','IMEX','ATILLA','VERAGUNISPED','FRONTOFFICE') "
+            Case "AMBAR" : whereFirma = " AND Firma_ID=24 " : pnlDocs.Visible = True
+            Case "FRONT-OFFICE" : whereFirma = " AND Firma_ID=17 " : pnlDocs.Visible = True
+            Case "VERAGIMEX" : whereFirma = " AND FIRMENGRUPPE IN ('VERAG','IMEX','ATILLA','VERAGUNISPED','FRONTOFFICE') " : pnlDocs.Visible = True
        End Select

        cboFirma.fillWithSQL("SELECT  [Firma_ID],[Firma_Bez] FROM [tblFirma] WHERE Firma_ID NOT IN(3) " & whereFirma & " ORDER BY Firma_ID  ", True, "FMZOLL", firstEmpty)
@@ -2976,11 +2988,14 @@ Nächste_Textzeile_lesen:
    End Sub

    Private Sub btnVorauskasseAnzeigen_Click(sender As Object, e As EventArgs) Handles btnVorauskasseAnzeigen.Click
-        If Not btnVorauskasseAnzeigen.Enabled Then Exit Sub
-        Dim VK = VERAG_PROG_ALLGEMEIN.cVorauskasse.LOADByFilialeAbfNr(RECHNUNG.FilialenNr, RECHNUNG.AbfertigungsNr)
-        If VK IsNot Nothing Then
-            SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.Importaviso_VK, VK.vk_KdNr, {VK.vk_KdNr, Nothing, Nothing, Nothing, "", VK.vk_id})
-        End If
+        'If Not btnVorauskasseAnzeigen.Enabled Then Exit Sub
+        'Dim VK = VERAG_PROG_ALLGEMEIN.cVorauskasse.LOADByFilialeAbfNr(RECHNUNG.FilialenNr, RECHNUNG.AbfertigungsNr)
+        'If VK IsNot Nothing Then
+        '    SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.Importaviso_VK, VK.vk_KdNr, {VK.vk_KdNr, Nothing, Nothing, Nothing, "", VK.vk_id})
+        'End If
+
+        Dim f As New SDL.frmVorauskasse(RECHNUNG.FilialenNr, RECHNUNG.AbfertigungsNr, Now.AddYears(-1))
+        f.Show(Me)
    End Sub

    Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click
--- a/SDL/Formulare/KDFormulare/FormulareBaukasten/subRptLaufzettelZollDE_Vorpapier.vb
+++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/subRptLaufzettelZollDE_Vorpapier.vb
@@ -20,6 +20,7 @@ Public Class subRptLaufzettelZollDE_Vorpapier
            ATAMRN = ATAMRN.Replace(" ", "")
            ATAMRN = ATAMRN.Replace("/", "")
            ATAMRN = ATAMRN.Replace("-", "")
+            ATAMRN = ATAMRN.Replace("XXXX", "")

            picBarcodeMRN.Image = Nothing
            picBarcodeMRN.Visible = False
--- a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungsunterlagen.Designer.vb
+++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungsunterlagen.Designer.vb
@@ -268,6 +268,7 @@ Partial Class usrcntlVerzollungsunterlagen
        '
        'txtFirma
        '
+        Me.txtFirma._AlleFirmenCLUSTER = False
        Me.txtFirma._AllowSetValue = True
        Me.txtFirma._autoSizeGross = False
        Me.txtFirma._display_Name1 = True
@@ -276,6 +277,7 @@ Partial Class usrcntlVerzollungsunterlagen
        Me.txtFirma._displayWoelflKd = False
        Me.txtFirma._hideIfListEmpty = True
        Me.txtFirma._loadKdData = True
+        Me.txtFirma._UseFIRMA = ""
        Me.txtFirma._ValueKdAndName = False
        Me.txtFirma.dgvpos = "LEFT"
        Me.txtFirma.KdName = Nothing
@@ -288,6 +290,7 @@ Partial Class usrcntlVerzollungsunterlagen
        Me.txtFirma.searchActive = True
        Me.txtFirma.Size = New System.Drawing.Size(709, 20)
        Me.txtFirma.TabIndex = 11
+        Me.txtFirma.TIMER_SEARCH = True
        Me.txtFirma.usrcntl = Nothing
        '
        'Label1
@@ -428,7 +431,7 @@ Partial Class usrcntlVerzollungsunterlagen
        Me.txtAnlage1._ShortDateNew = False
        Me.txtAnlage1._ShortDateOnly = False
        Me.txtAnlage1._TimeOnly = False
-        Me.txtAnlage1._value = Nothing
+        Me.txtAnlage1._value = "Zollbeleg"
        Me.txtAnlage1._Waehrung = False
        Me.txtAnlage1._WaehrungZeichen = True
        Me.txtAnlage1.ForeColor = System.Drawing.Color.Black
@@ -439,6 +442,7 @@ Partial Class usrcntlVerzollungsunterlagen
        Me.txtAnlage1.Name = "txtAnlage1"
        Me.txtAnlage1.Size = New System.Drawing.Size(310, 20)
        Me.txtAnlage1.TabIndex = 23
+        Me.txtAnlage1.Text = "Zollbeleg"
        '
        'txtAnlage2
        '
@@ -449,7 +453,7 @@ Partial Class usrcntlVerzollungsunterlagen
        Me.txtAnlage2._ShortDateNew = False
        Me.txtAnlage2._ShortDateOnly = False
        Me.txtAnlage2._TimeOnly = False
-        Me.txtAnlage2._value = Nothing
+        Me.txtAnlage2._value = "Lieferanten-Rechnung"
        Me.txtAnlage2._Waehrung = False
        Me.txtAnlage2._WaehrungZeichen = True
        Me.txtAnlage2.ForeColor = System.Drawing.Color.Black
@@ -460,6 +464,7 @@ Partial Class usrcntlVerzollungsunterlagen
        Me.txtAnlage2.Name = "txtAnlage2"
        Me.txtAnlage2.Size = New System.Drawing.Size(310, 20)
        Me.txtAnlage2.TabIndex = 26
+        Me.txtAnlage2.Text = "Lieferanten-Rechnung"
        '
        'txtAnlage3
        '
@@ -470,7 +475,7 @@ Partial Class usrcntlVerzollungsunterlagen
        Me.txtAnlage3._ShortDateNew = False
        Me.txtAnlage3._ShortDateOnly = False
        Me.txtAnlage3._TimeOnly = False
-        Me.txtAnlage3._value = Nothing
+        Me.txtAnlage3._value = "Original Präferenz"
        Me.txtAnlage3._Waehrung = False
        Me.txtAnlage3._WaehrungZeichen = True
        Me.txtAnlage3.ForeColor = System.Drawing.Color.Black
@@ -481,6 +486,7 @@ Partial Class usrcntlVerzollungsunterlagen
        Me.txtAnlage3.Name = "txtAnlage3"
        Me.txtAnlage3.Size = New System.Drawing.Size(310, 20)
        Me.txtAnlage3.TabIndex = 29
+        Me.txtAnlage3.Text = "Original Präferenz"
        '
        'txtAnlage4
        '
@@ -631,6 +637,7 @@ Partial Class usrcntlVerzollungsunterlagen
        '
        'KdInAuftrag
        '
+        Me.KdInAuftrag._AlleFirmenCLUSTER = False
        Me.KdInAuftrag._AllowSetValue = True
        Me.KdInAuftrag._autoSizeGross = False
        Me.KdInAuftrag._display_Name1 = True
@@ -639,6 +646,7 @@ Partial Class usrcntlVerzollungsunterlagen
        Me.KdInAuftrag._displayWoelflKd = False
        Me.KdInAuftrag._hideIfListEmpty = True
        Me.KdInAuftrag._loadKdData = True
+        Me.KdInAuftrag._UseFIRMA = ""
        Me.KdInAuftrag._ValueKdAndName = False
        Me.KdInAuftrag.dgvpos = "LEFT"
        Me.KdInAuftrag.KdName = Nothing
@@ -651,6 +659,7 @@ Partial Class usrcntlVerzollungsunterlagen
        Me.KdInAuftrag.searchActive = True
        Me.KdInAuftrag.Size = New System.Drawing.Size(319, 20)
        Me.KdInAuftrag.TabIndex = 5
+        Me.KdInAuftrag.TIMER_SEARCH = True
        Me.KdInAuftrag.usrcntl = Nothing
        '
        'cboFiliale
@@ -707,6 +716,7 @@ Partial Class usrcntlVerzollungsunterlagen
        '
        'kdRgEmpfaenger
        '
+        Me.kdRgEmpfaenger._AlleFirmenCLUSTER = False
        Me.kdRgEmpfaenger._AllowSetValue = True
        Me.kdRgEmpfaenger._autoSizeGross = False
        Me.kdRgEmpfaenger._display_Name1 = True
@@ -715,6 +725,7 @@ Partial Class usrcntlVerzollungsunterlagen
        Me.kdRgEmpfaenger._displayWoelflKd = False
        Me.kdRgEmpfaenger._hideIfListEmpty = True
        Me.kdRgEmpfaenger._loadKdData = True
+        Me.kdRgEmpfaenger._UseFIRMA = ""
        Me.kdRgEmpfaenger._ValueKdAndName = False
        Me.kdRgEmpfaenger.dgvpos = "LEFT"
        Me.kdRgEmpfaenger.KdName = Nothing
@@ -727,6 +738,7 @@ Partial Class usrcntlVerzollungsunterlagen
        Me.kdRgEmpfaenger.searchActive = True
        Me.kdRgEmpfaenger.Size = New System.Drawing.Size(310, 20)
        Me.kdRgEmpfaenger.TabIndex = 39
+        Me.kdRgEmpfaenger.TIMER_SEARCH = True
        Me.kdRgEmpfaenger.usrcntl = Nothing
        '
        'txtEmpfänger
--- a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungsunterlagen.vb
+++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungsunterlagen.vb
@@ -114,6 +114,8 @@

        cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG Spedition AG", "AG"))
        cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG Customs Service GmbH", "CS"))
+        cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("IMEX Customs Service GmbH", "IMEX"))
+        cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("UNISPED Speditions GmbH", "UNISPED"))
        cboFirma.changeItem("AG")
        '  cboFiliale.fillWithSQL(" SELECT FilialenNr, Grenzstelle FROM Filialen WHERE Fil_Status='A' ORDER BY FilialenNr ", , "FMZOLL", True)

@@ -122,6 +124,7 @@

        Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
            Case "IMEX" : cboFiliale._allowedValuesFreiText = {"5501"}
+            Case "UNISPED" : cboFiliale._allowedValuesFreiText = {"5601"}
            Case "ATILLA" : cboFiliale._allowedValuesFreiText = {"4801"}
        End Select

@@ -413,4 +416,12 @@
        setValues(New VERAG_PROG_ALLGEMEIN.cPostversand)
        btnNEU.Visible = False
    End Sub
+
+    Private Sub cboFirma_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboFirma.SelectedIndexChanged
+        Select Case cboFirma._value
+            Case "IMEX" : txtFirma._UseFIRMA = cboFirma._value : KdInAuftrag._UseFIRMA = cboFirma._value
+            Case "UNISPED" : txtFirma._UseFIRMA = cboFirma._value : KdInAuftrag._UseFIRMA = cboFirma._value
+            Case Else : txtFirma._UseFIRMA = "VERAG" : KdInAuftrag._UseFIRMA = "VERAG"
+        End Select
+    End Sub
 End Class
--- a/SDL/Formulare/KDFormulare/frmFormulare.vb
+++ b/SDL/Formulare/KDFormulare/frmFormulare.vb
@@ -1740,7 +1740,12 @@ Public Class FormularManagerNEU
        Dim AVISO = (New VERAG_PROG_ALLGEMEIN.cAvisoDAL).LesenAviso(AvisoId, "")
        If AVISO Is Nothing Then Return ""
        Dim SENDUNG_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cSendungen)
-        VERAG_PROG_ALLGEMEIN.cSendungen.LOAD_LIST_VP(SENDUNG_LIST, 0, AvisoId, Vorpapier) 'LÄDT alle SENDUNGSDATEN
+        If Vorpapier = "XXXX" Then
+            VERAG_PROG_ALLGEMEIN.cSendungen.LOAD_LIST_VP_EMPTY(SENDUNG_LIST, 0, AvisoId) 'LÄDT alle SENDUNGSDATEN
+        Else
+            VERAG_PROG_ALLGEMEIN.cSendungen.LOAD_LIST_VP(SENDUNG_LIST, 0, AvisoId, Vorpapier) 'LÄDT alle SENDUNGSDATEN
+        End If
+
        If SENDUNG_LIST Is Nothing OrElse SENDUNG_LIST.Count = 0 Then Return ""
        Return LaufzettelZollDE(AVISO, SENDUNG_LIST,,, Vorpapier)
    End Function
@@ -1862,6 +1867,7 @@ Public Class FormularManagerNEU
            Else
                Dim VORPAPIERE As New List(Of VERAG_PROG_ALLGEMEIN.cAvisoVorpapier)
                Dim VP As New VERAG_PROG_ALLGEMEIN.cAvisoVorpapier
+                '     VP.vp_Nr = Vorpapier.ToString.Replace("XXXX", "") : VORPAPIERE.Add(VP)
                VP.vp_Nr = Vorpapier : VORPAPIERE.Add(VP)

                Dim SubRptVP As New subRptLaufzettelZollDE_Vorpapier(VORPAPIERE)
@@ -1893,6 +1899,7 @@ Public Class FormularManagerNEU
                                                  rpt.txtPos.Text = If(SND.tblSnd_Vorpapier3_Pos, "").ToString.Trim
                                              End If

+
                                              If SND.tblSnd_Fremdspedition Then
                                                  rpt.txtAbfertigungsart.Text = "FREMD"
                                                  rpt.txtPosNr.Text = SND.tblSnd_FremdspeditionText
@@ -3191,10 +3198,15 @@ Public Class FormularManagerNEU
        Dim destPath = ""

        Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
-            Case "IMEX", "UNISPED", "AMBAR"
+            Case "IMEX", "AMBAR"
                destPath = fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "Importaviso_VK", listTowrite)
-            Case Else
+            Case "UNISPED"

+                Select Case usrCntl.cboFirma._value
+                    Case "21", "23" : destPath = fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "VORAUSKASSE_AT", listTowrite)
+                    Case Else : destPath = fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "Importaviso_VK", listTowrite)
+                End Select
+            Case Else
                Select Case usrCntl.cboFirma._value
                    Case "11" : destPath = fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "Importaviso_CS_NEU2", listTowrite)
                    Case Else : destPath = fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "Importaviso_AG_NEU2", listTowrite)
@@ -3633,16 +3645,19 @@ Public Class FormularManagerNEU
        Dim oWord As New Microsoft.Office.Interop.Word.Application
        Dim striList As New List(Of String)
        Try
+            Dim uOrdner2 = ""
            Dim nameDispo = ""
            nameDispo = "VerzollungsunterlagenAG2"
            Select Case usrCntl.cboFirma._value
+                Case "IMEX" : nameDispo = "Verzollungsunterlagen" : uOrdner2 = "IMEX"
+                Case "UNISPED" : nameDispo = "Verzollungsunterlagen" : uOrdner2 = "UNISPED"
                Case "CS" : nameDispo = "VerzollungsunterlagenCS"
                Case Else : nameDispo = "VerzollungsunterlagenAG2"
            End Select

-            Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", nameDispo)
+            Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "SONSTIGE", uOrdner2, "", nameDispo)
            Dim pfadWord = DS.GET_TOP1_PATH(False)
-            ' MsgBox(pfadWord)
+
            Dim cGenWord As New cGenWord

            odoc = cGenWord.openWord(pfadWord, False, oWord)
@@ -4249,6 +4264,55 @@ Public Class FormularManagerNEU

    End Function

+
+
+    Shared Function Finish_AVISO(AVISO As VERAG_PROG_ALLGEMEIN.cAviso) As String
+        Dim fm As New VERAG_PROG_ALLGEMEIN.cFormularManager
+
+        Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues)
+        Dim top = 0
+        If AVISO.Grenzstelle = "SUB" Then
+
+            '  If AVISO.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Freigegeben Then
+            'Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
+            '    Case "FRONTOFFICE", "VERAG"
+            listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(AVISO.LKW_Nr, 37, 46, 120, 12, "bold", 20, , iTextSharp.text.Element.ALIGN_LEFT))
+            'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(AVISO.Freigabe.ToShortDateString & " " & AVISO.Freigabe.ToShortTimeString, 141, 47, 50, 8, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
+            '    listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(Now.ToShortDateString & " " & Now.ToShortTimeString, 141, 47, 50, 12, "bold", 16, , iTextSharp.text.Element.ALIGN_LEFT))
+            listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(Now.ToShortDateString, 141, 47, 50, 12, "bold", 16, , iTextSharp.text.Element.ALIGN_LEFT))
+            Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", "FRONTOFFICE", "", "Finish_AVISO", listTowrite)
+            'End Select
+            '    End If
+        End If
+        Return ""
+    End Function
+
+
+
+
+    Shared Function zumZOLL_AVISO(AVISO As VERAG_PROG_ALLGEMEIN.cAviso, Optional Zollamt As String = "") As String
+        Dim fm As New VERAG_PROG_ALLGEMEIN.cFormularManager
+
+        Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues)
+        Dim top = 0
+
+        If AVISO.Grenzstelle = "SUB" Then
+            '  If AVISO.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Freigegeben Then
+            'Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
+            '    Case "FRONTOFFICE", "VERAG"
+            listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(AVISO.LKW_Nr, 37, 46, 120, 12, "bold", 20, , iTextSharp.text.Element.ALIGN_LEFT))
+            'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(AVISO.Freigabe.ToShortDateString & " " & AVISO.Freigabe.ToShortTimeString, 141, 47, 50, 8, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
+            listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(Now.ToShortDateString & " " & Now.ToShortTimeString, 141, 47, 50, 12, "bold", 16, , iTextSharp.text.Element.ALIGN_LEFT))
+            If Zollamt = "DE" Then listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("X", 64, 216, 6, 6, "bold", 16, , iTextSharp.text.Element.ALIGN_CENTER))
+            If Zollamt = "AT" Then listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("X", 64, 265, 6, 6, "bold", 16, , iTextSharp.text.Element.ALIGN_CENTER))
+            Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", "FRONTOFFICE", "", "zumZoll_Aviso", listTowrite)
+            'End Select
+            '         End If
+        End If
+        Return ""
+    End Function
+
+
    Shared Function QS_UeDok(usrCntl As usrcntlQS_UeDok) As String
        Dim fm As New VERAG_PROG_ALLGEMEIN.cFormularManager

--- a/SDL/kunden/Vorauskasse/frmVorauskasse.vb
+++ b/SDL/kunden/Vorauskasse/frmVorauskasse.vb
@@ -7,8 +7,29 @@

    Dim JAHR As Date = CDate("01.01." & Now.Year)

+    Sub New()

+        ' Dieser Aufruf ist für den Designer erforderlich.
+        InitializeComponent()

+        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+
+    End Sub
+    Dim FilialenNr = Nothing
+    Dim AbfertigungsNr = Nothing
+    Dim DatumVon = Nothing
+
+    Sub New(FilialenNr, AbfertigungsNr, DatumVon)
+
+        ' Dieser Aufruf ist für den Designer erforderlich.
+        InitializeComponent()
+
+        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+        Me.FilialenNr = FilialenNr
+        Me.AbfertigungsNr = AbfertigungsNr
+        Me.DatumVon = DatumVon
+
+    End Sub
    Private Sub frmVorauskasse_Load(sender As Object, e As EventArgs) Handles Me.Load

        txtAbfertDat.Text = Now.ToShortDateString 'CDate("01." & Now.ToString("MM.yyyy")).AddMonths(-1).ToShortDateString
@@ -17,20 +38,28 @@
        btnMonat.Text = MONAT.ToString("MMMM")
        btnJahr.Text = JAHR.Year

+
+        Dim FirmaTmp = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
+        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("OFFERTE_FREMD_VERAGIMEX", "SDL") Or VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("FAKTURIERUNG_VERAGIMEX", "SDL") Then
+            FirmaTmp = "VERAGIMEX"
+        End If
+
        Dim QSwhere = ""
-        Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
+
+        Select Case FirmaTmp
+            Case "UNISPED" : QSwhere = " AND mit_firma IN ('UNISPED') "
            Case "ATILLA" : QSwhere = ""
+            Case "VERAGIMEX" : QSwhere = " AND mit_firma IN ('IMEX','BEIDE','VERAG','ATILLA') "
            Case "IMEX" : QSwhere = " AND mit_firma IN ('IMEX','BEIDE') "
            Case Else
                QSwhere = " AND mit_firma <> 'IMEX' "
-
        End Select


        '  cboSachbearbeiterQS.fillWithSQL("SELECT  ID,/*cast(ID as nvarchar(3)) +' ' + Name as*/ Name FROM Personal WHERE [Status]<>'L' " & QSwhere & " ORDER BY Name ", False, "FMZOLL", True)

        Dim where = ""
-        Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
+        Select Case FirmaTmp
            Case "IMEX"
                where = " AND FilialenNr IN (5501) "
            Case "ATILLA"
@@ -41,6 +70,8 @@
                where = " AND FilialenNr IN (5701) "
            Case "FRONTOFFICE"
                where = " AND FilialenNr IN (5801) "
+            Case "VERAGIMEX"
+                where = ""
            Case Else
                where = " AND FilialenNr NOT IN (5501) "
        End Select
@@ -86,6 +117,17 @@
            btnVK_VERAG_VR.Visible = True
        End If

+        If Me.FilialenNr IsNot Nothing Then
+            cboFiliale.changeItem(FilialenNr)
+        End If
+
+        If Me.AbfertigungsNr IsNot Nothing Then
+            txtAbfertigungsnummer.Text = AbfertigungsNr
+        End If
+
+        If Me.DatumVon IsNot Nothing Then
+            DateTimePicker1.Value = CDate(DatumVon)
+        End If

    End Sub

@@ -519,6 +561,10 @@
                                                 End Sub

    End Sub
+
+    Private Sub frmVorauskasse_Shown(sender As Object, e As EventArgs) Handles Me.Shown
+        If FilialenNr IsNot Nothing Or AbfertigungsNr IsNot Nothing Or DatumVon IsNot Nothing Then btnSuche.PerformClick()
+    End Sub
 End Class


--- a/SDL/mdm/frmMDMDatenverarbetiung.vb
+++ b/SDL/mdm/frmMDMDatenverarbetiung.vb
@@ -353,7 +353,7 @@ Public Class frmMDMDatenverarbetiung
            Dim displayFilter = False
            Dim sqlstr As String = ""

-            sqlstr &= " SELECT 	 'PLOSE',AdressenNr,plose_Kennzeichen,plose_DatumTransaktion,plp_Land,isnull([tblPLOSE_Produktbeschreibung].plp_Description_EN,plose_Produktbeschreibung) as plose_Produktbeschreibung ,isnull(plose_NummerKarteGeraet,plose_Kontonummer) as plose_NummerKarteGeraet ,plose_BeschreibungEinfahrt,plose_BeschreibungAusfahrt,plose_NettobetragWaehrungAbbuchung,(plose_BruttobetragWaehrungAbbuchung-plose_NettobetragWaehrungAbbuchung) as Steuer,plose_BruttobetragWaehrungAbbuchung "
+            sqlstr &= " SELECT 'PLOSE',AdressenNr,plose_Kennzeichen,plose_DatumTransaktion,plp_Land,isnull([tblPLOSE_Produktbeschreibung].plp_Description_EN,plose_Produktbeschreibung) as plose_Produktbeschreibung ,isnull(plose_NummerKarteGeraet,plose_Kontonummer) as plose_NummerKarteGeraet ,plose_BeschreibungEinfahrt,plose_BeschreibungAusfahrt,plose_NettobetragWaehrungAbbuchung,(plose_BruttobetragWaehrungAbbuchung-plose_NettobetragWaehrungAbbuchung) as Steuer,plose_BruttobetragWaehrungAbbuchung "
            sqlstr &= " FROM tblPLOSE_Details INNER JOIN [tblPLOSE_Produktbeschreibung] on plose_ProduktCode=plp_ProductCode  INNER JOIN Adressen on plose_POLSEKundennummer=PLOSEKundenNr  and plp_LeistungsNr is not null   "
            sqlstr &= " WHERE 1=1  "
            sqlstr &= " AND plose_Fakturiert=0   AND plp_Land NOT IN ('AT','DE') "
@@ -366,7 +366,7 @@ Public Class frmMDMDatenverarbetiung
            Dim dt As DataTable = SQL.loadDgvBySql_Param(sqlstr, "FMZOLL")
            Dim sqlstrAT As String = ""

-            sqlstrAT &= " SELECT 	 'PLOSE',AdressenNr,plose_Kennzeichen,plose_DatumTransaktion,plp_Land,'' as plose_Produktbeschreibung ,plose_NummerKarteGeraet as plose_NummerKarteGeraet ,'' as plose_BeschreibungEinfahrt,'' as plose_BeschreibungAusfahrt,sum(plose_NettobetragWaehrungAbbuchung) as plose_NettobetragWaehrungAbbuchung,sum(plose_BruttobetragWaehrungAbbuchung-plose_NettobetragWaehrungAbbuchung) as Steuer,sum(plose_BruttobetragWaehrungAbbuchung ) as plose_BruttobetragWaehrungAbbuchung "
+            sqlstrAT &= " SELECT 'PLOSE',AdressenNr,plose_Kennzeichen,plose_DatumTransaktion,plp_Land,'' as plose_Produktbeschreibung ,plose_NummerKarteGeraet as plose_NummerKarteGeraet ,'' as plose_BeschreibungEinfahrt,'' as plose_BeschreibungAusfahrt,sum(plose_NettobetragWaehrungAbbuchung) as plose_NettobetragWaehrungAbbuchung,sum(plose_BruttobetragWaehrungAbbuchung-plose_NettobetragWaehrungAbbuchung) as Steuer,sum(plose_BruttobetragWaehrungAbbuchung ) as plose_BruttobetragWaehrungAbbuchung "
            sqlstrAT &= " FROM tblPLOSE_Details INNER JOIN [tblPLOSE_Produktbeschreibung] on plose_ProduktCode=plp_ProductCode  INNER JOIN Adressen on plose_POLSEKundennummer=PLOSEKundenNr  and plp_LeistungsNr is not null  "
            sqlstrAT &= " WHERE 1=1  "
            sqlstrAT &= " AND plose_Fakturiert=0   AND plp_Land IN ('AT','DE') "