neu

2022-03-19 22:52:06 +01:00
parent 9b001e5803
commit d9204781cf
139 changed files with 19394 additions and 3352 deletions
--- a/SDL/zoll/usrCntlAuswertungenAufschub_Abgabenliste.Designer.vb
+++ b/SDL/zoll/usrCntlAuswertungenAufschub_Abgabenliste.Designer.vb
@@ -24,6 +24,7 @@ Partial Class usrCntlAuswertungenAufschub_Abgabenliste
    Private Sub InitializeComponent()
        Me.Label8 = New System.Windows.Forms.Label()
        Me.GroupBox2 = New System.Windows.Forms.GroupBox()
+        Me.Button4 = New System.Windows.Forms.Button()
        Me.Label1 = New System.Windows.Forms.Label()
        Me.datFaellig = New System.Windows.Forms.DateTimePicker()
        Me.cboKonto = New VERAG_PROG_ALLGEMEIN.MyComboBox()
@@ -35,7 +36,6 @@ Partial Class usrCntlAuswertungenAufschub_Abgabenliste
        Me.datVon = New System.Windows.Forms.DateTimePicker()
        Me.lblErr = New System.Windows.Forms.Label()
        Me.Label14 = New System.Windows.Forms.Label()
-        Me.Button4 = New System.Windows.Forms.Button()
        Me.GroupBox2.SuspendLayout()
        Me.SuspendLayout()
        '
@@ -70,6 +70,21 @@ Partial Class usrCntlAuswertungenAufschub_Abgabenliste
        Me.GroupBox2.TabIndex = 15
        Me.GroupBox2.TabStop = False
        '
+        'Button4
+        '
+        Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button4.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.Button4.Image = Global.SDL.My.Resources.Resources.Excel_logo
+        Me.Button4.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.Button4.Location = New System.Drawing.Point(9, 50)
+        Me.Button4.Name = "Button4"
+        Me.Button4.Padding = New System.Windows.Forms.Padding(0, 0, 25, 0)
+        Me.Button4.Size = New System.Drawing.Size(121, 38)
+        Me.Button4.TabIndex = 38
+        Me.Button4.Text = "Excel"
+        Me.Button4.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.Button4.UseVisualStyleBackColor = True
+        '
        'Label1
        '
        Me.Label1.AutoSize = True
@@ -93,7 +108,7 @@ Partial Class usrCntlAuswertungenAufschub_Abgabenliste
        Me.cboKonto._allowFreiText = False
        Me.cboKonto._value = ""
        Me.cboKonto.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
-        Me.cboKonto.DropDownWidth = 250
+        Me.cboKonto.DropDownWidth = 320
        Me.cboKonto.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
        Me.cboKonto.FormattingEnabled = True
        Me.cboKonto.Location = New System.Drawing.Point(212, 45)
@@ -175,21 +190,6 @@ Partial Class usrCntlAuswertungenAufschub_Abgabenliste
        Me.Label14.TabIndex = 5
        Me.Label14.Text = "Liefert eine Abgabenliste entsprechend dem Konto und Zeitraum aus den Dakosy-Date" &
    "n."
-        '
-        'Button4
-        '
-        Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.Button4.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
-        Me.Button4.Image = Global.SDL.My.Resources.Resources.Excel_logo
-        Me.Button4.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.Button4.Location = New System.Drawing.Point(9, 50)
-        Me.Button4.Name = "Button4"
-        Me.Button4.Padding = New System.Windows.Forms.Padding(0, 0, 25, 0)
-        Me.Button4.Size = New System.Drawing.Size(121, 38)
-        Me.Button4.TabIndex = 38
-        Me.Button4.Text = "Excel"
-        Me.Button4.TextAlign = System.Drawing.ContentAlignment.MiddleRight
-        Me.Button4.UseVisualStyleBackColor = True
        '
        'usrCntlAuswertungenAufschub_Abgabenliste
        '
--- a/SDL/zoll/usrCntlAuswertungenAufschub_Abgabenliste.vb
+++ b/SDL/zoll/usrCntlAuswertungenAufschub_Abgabenliste.vb
@@ -14,6 +14,16 @@ Public Class usrCntlAuswertungenAufschub_Abgabenliste
        datBis.Value = datVon.Value.AddMonths(1).AddDays(-1)

        Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
+            Case "UNISPED"
+                cboKonto.Items.Clear()
+                cboKonto.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
+                cboKonto.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("UNISPED Speditions GmbH - EUST (M006146)", "M006146"))
+                cboKonto.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("UNISPED Speditions GmbH - ZOLL (M006145)", "M006145"))
+
+                cboKonto.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("UNISPED Deutschland - EUST (M006077)", "M006077"))
+                cboKonto.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("UNISPED Deutschland - ZOLL (M006078)", "M006078"))
+
+
            Case "IMEX"
                cboKonto.Items.Clear()
                cboKonto.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
--- a/SDL/zoll/usrCntlBrgBuchungenFremd.vb
+++ b/SDL/zoll/usrCntlBrgBuchungenFremd.vb
@@ -7,12 +7,20 @@ Public Class usrCntlBrgBuchungenFremd
    Private Sub usrCntlBrgBuchungenFremd_Load(sender As Object, e As EventArgs) Handles Me.Load
        cboBRG.Items.Clear()
        cboBRG.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
-        cboBRG.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("TOBB - 15TR0004000020917 / 12TR0004000004665 / 17TR0004000032349 / 17TR0004000029518 / 21TR0004000079552 / 21TR0004000078157 / 21TR0004000092350", " '12TR0004000004665','15TR0004000020917','17TR0004000032349','17TR0004000029518','21TR0004000079552','21TR0004000078157','21TR0004000092350'"))
-        cboBRG.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SGS - 16DE0000000068410", "'16DE0000000068410'"))
-        cboBRG.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("MARS - 15TR0004000020908", "'15TR0004000020908'"))
-        cboBRG.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("EKOL - 13TR0004000005094", "'13TR0004000005094'"))
+        'cboBRG.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("TOBB - 15TR0004000020917 / 12TR0004000004665 / 17TR0004000032349 / 17TR0004000029518 / 21TR0004000079552 / 21TR0004000078157 / 21TR0004000092350 / 21TR0004000097157", " '12TR0004000004665','15TR0004000020917','17TR0004000032349','17TR0004000029518','21TR0004000079552','21TR0004000078157','21TR0004000092350','21TR0004000097157'"))
+        'cboBRG.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SGS - 16DE0000000068410", "'16DE0000000068410'"))
+        'cboBRG.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("MARS - 15TR0004000020908", "'15TR0004000020908'"))
+        'cboBRG.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("EKOL - 13TR0004000005094", "'13TR0004000005094'"))
+        'cboBRG.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("OREGON - 18DE0000000073276 / 19DE0000000075520 / 18DE0000000075520 / 15TR0004000020500 / 21DE0000000079716", "'18DE0000000073276','19DE0000000075520','18DE0000000075520','15TR0004000020500','21DE0000000079716'"))
+
+        cboBRG.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("TOBB - " & VERAG_PROG_ALLGEMEIN.cNCTS_GUARANTEES.getSlashList(VERAG_PROG_ALLGEMEIN.cNCTS_GUARANTEES.TOBB), VERAG_PROG_ALLGEMEIN.cNCTS_GUARANTEES.getSQLList(VERAG_PROG_ALLGEMEIN.cNCTS_GUARANTEES.TOBB)))
+        cboBRG.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SGS - " & VERAG_PROG_ALLGEMEIN.cNCTS_GUARANTEES.getSlashList(VERAG_PROG_ALLGEMEIN.cNCTS_GUARANTEES.SGS), VERAG_PROG_ALLGEMEIN.cNCTS_GUARANTEES.getSQLList(VERAG_PROG_ALLGEMEIN.cNCTS_GUARANTEES.SGS)))
+        cboBRG.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("MARS - " & VERAG_PROG_ALLGEMEIN.cNCTS_GUARANTEES.getSlashList(VERAG_PROG_ALLGEMEIN.cNCTS_GUARANTEES.MARS), VERAG_PROG_ALLGEMEIN.cNCTS_GUARANTEES.getSQLList(VERAG_PROG_ALLGEMEIN.cNCTS_GUARANTEES.MARS)))
+        cboBRG.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("EKOL - " & VERAG_PROG_ALLGEMEIN.cNCTS_GUARANTEES.getSlashList(VERAG_PROG_ALLGEMEIN.cNCTS_GUARANTEES.EKOL), VERAG_PROG_ALLGEMEIN.cNCTS_GUARANTEES.getSQLList(VERAG_PROG_ALLGEMEIN.cNCTS_GUARANTEES.EKOL)))
+        cboBRG.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("OREGON - " & VERAG_PROG_ALLGEMEIN.cNCTS_GUARANTEES.getSlashList(VERAG_PROG_ALLGEMEIN.cNCTS_GUARANTEES.OREGON), VERAG_PROG_ALLGEMEIN.cNCTS_GUARANTEES.getSQLList(VERAG_PROG_ALLGEMEIN.cNCTS_GUARANTEES.OREGON)))
+
+

-        cboBRG.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("OREGON - 18DE0000000073276 / 19DE0000000075520 / 18DE0000000075520 / 15TR0004000020500 / 21DE0000000079716", "'18DE0000000073276','19DE0000000075520','18DE0000000075520','15TR0004000020500','21DE0000000079716'"))
        cboBRG.SelectedIndex = 1

        MyComboBox1.Items.Clear()
--- a/SDL/zoll/usrCntlZOLLAuswertungen.vb
+++ b/SDL/zoll/usrCntlZOLLAuswertungen.vb
@@ -151,7 +151,7 @@ Public Class usrCntlZOLLAuswertungen
                tbcntr.TabPages.Remove(TabPage1)
                tbcntr.TabPages.Remove(TabPage2)
                tbcntr.TabPages.Remove(TabPage3)
-                tbcntr.TabPages.Remove(TabPage4)
+                ' tbcntr.TabPages.Remove(TabPage4)
            Case Else

                cboBrgDy.Items.Clear()