neu

2020-05-31 22:24:36 +02:00
parent 2d28680ad0
commit bf4f36a8f2
22 changed files with 3963 additions and 527 deletions
--- a/Aviso/eAviso/frm_eAVISO.Designer.vb
+++ b/Aviso/eAviso/frm_eAVISO.Designer.vb
@@ -0,0 +1,221 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class frm_eAVISO
+    Inherits System.Windows.Forms.Form
+
+    'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Wird vom Windows Form-Designer benötigt.
+    Private components As System.ComponentModel.IContainer
+
+    'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
+    'Das Bearbeiten ist mit dem Windows Form-Designer möglich.  
+    'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        Me.components = New System.ComponentModel.Container()
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frm_eAVISO))
+        Me.pnl = New System.Windows.Forms.Panel()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.MyComboBox2 = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        Me.lbl = New System.Windows.Forms.Label()
+        Me.MyComboBox1 = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        Me.Panel1 = New System.Windows.Forms.Panel()
+        Me.SplitContainer = New System.Windows.Forms.SplitContainer()
+        Me.MyDatagridview1 = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
+        Me.MyDatagridview2 = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
+        Me.Panel2 = New System.Windows.Forms.Panel()
+        Me.Button12 = New System.Windows.Forms.Button()
+        Me.pnl.SuspendLayout()
+        Me.Panel1.SuspendLayout()
+        CType(Me.SplitContainer, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SplitContainer.Panel1.SuspendLayout()
+        Me.SplitContainer.Panel2.SuspendLayout()
+        Me.SplitContainer.SuspendLayout()
+        CType(Me.MyDatagridview1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.MyDatagridview2, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.Panel2.SuspendLayout()
+        Me.SuspendLayout()
+        '
+        'pnl
+        '
+        Me.pnl.Controls.Add(Me.Label1)
+        Me.pnl.Controls.Add(Me.MyComboBox2)
+        Me.pnl.Controls.Add(Me.lbl)
+        Me.pnl.Controls.Add(Me.MyComboBox1)
+        Me.pnl.Dock = System.Windows.Forms.DockStyle.Top
+        Me.pnl.Location = New System.Drawing.Point(0, 0)
+        Me.pnl.Name = "pnl"
+        Me.pnl.Size = New System.Drawing.Size(1145, 77)
+        Me.pnl.TabIndex = 1
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.Location = New System.Drawing.Point(12, 45)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(74, 13)
+        Me.Label1.TabIndex = 3
+        Me.Label1.Text = "Niederlassung"
+        '
+        'MyComboBox2
+        '
+        Me.MyComboBox2._allowedValuesFreiText = Nothing
+        Me.MyComboBox2._allowFreiText = False
+        Me.MyComboBox2._value = ""
+        Me.MyComboBox2.FormattingEnabled = True
+        Me.MyComboBox2.Location = New System.Drawing.Point(92, 42)
+        Me.MyComboBox2.Name = "MyComboBox2"
+        Me.MyComboBox2.Size = New System.Drawing.Size(121, 21)
+        Me.MyComboBox2.TabIndex = 2
+        '
+        'lbl
+        '
+        Me.lbl.AutoSize = True
+        Me.lbl.Location = New System.Drawing.Point(12, 18)
+        Me.lbl.Name = "lbl"
+        Me.lbl.Size = New System.Drawing.Size(35, 13)
+        Me.lbl.TabIndex = 1
+        Me.lbl.Text = "Firma:"
+        '
+        'MyComboBox1
+        '
+        Me.MyComboBox1._allowedValuesFreiText = Nothing
+        Me.MyComboBox1._allowFreiText = False
+        Me.MyComboBox1._value = ""
+        Me.MyComboBox1.FormattingEnabled = True
+        Me.MyComboBox1.Location = New System.Drawing.Point(92, 15)
+        Me.MyComboBox1.Name = "MyComboBox1"
+        Me.MyComboBox1.Size = New System.Drawing.Size(121, 21)
+        Me.MyComboBox1.TabIndex = 0
+        '
+        'Panel1
+        '
+        Me.Panel1.Controls.Add(Me.SplitContainer)
+        Me.Panel1.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.Panel1.Location = New System.Drawing.Point(0, 77)
+        Me.Panel1.Name = "Panel1"
+        Me.Panel1.Size = New System.Drawing.Size(1145, 580)
+        Me.Panel1.TabIndex = 2
+        '
+        'SplitContainer
+        '
+        Me.SplitContainer.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.SplitContainer.Location = New System.Drawing.Point(0, 0)
+        Me.SplitContainer.Name = "SplitContainer"
+        '
+        'SplitContainer.Panel1
+        '
+        Me.SplitContainer.Panel1.Controls.Add(Me.MyDatagridview1)
+        '
+        'SplitContainer.Panel2
+        '
+        Me.SplitContainer.Panel2.Controls.Add(Me.MyDatagridview2)
+        Me.SplitContainer.Size = New System.Drawing.Size(1145, 580)
+        Me.SplitContainer.SplitterDistance = 541
+        Me.SplitContainer.TabIndex = 2
+        '
+        'MyDatagridview1
+        '
+        Me.MyDatagridview1.AKTUALISIERUNGS_INTERVALL = -1
+        Me.MyDatagridview1.AllowUserToAddRows = False
+        Me.MyDatagridview1.AllowUserToDeleteRows = False
+        Me.MyDatagridview1.AllowUserToResizeRows = False
+        Me.MyDatagridview1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.MyDatagridview1.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.MyDatagridview1.Location = New System.Drawing.Point(0, 0)
+        Me.MyDatagridview1.Name = "MyDatagridview1"
+        Me.MyDatagridview1.ReadOnly = True
+        Me.MyDatagridview1.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
+        Me.MyDatagridview1.Size = New System.Drawing.Size(541, 580)
+        Me.MyDatagridview1.TabIndex = 1
+        '
+        'MyDatagridview2
+        '
+        Me.MyDatagridview2.AKTUALISIERUNGS_INTERVALL = -1
+        Me.MyDatagridview2.AllowUserToAddRows = False
+        Me.MyDatagridview2.AllowUserToDeleteRows = False
+        Me.MyDatagridview2.AllowUserToResizeRows = False
+        Me.MyDatagridview2.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.MyDatagridview2.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.MyDatagridview2.Location = New System.Drawing.Point(0, 0)
+        Me.MyDatagridview2.Name = "MyDatagridview2"
+        Me.MyDatagridview2.ReadOnly = True
+        Me.MyDatagridview2.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
+        Me.MyDatagridview2.Size = New System.Drawing.Size(600, 580)
+        Me.MyDatagridview2.TabIndex = 2
+        '
+        'Panel2
+        '
+        Me.Panel2.Controls.Add(Me.Button12)
+        Me.Panel2.Dock = System.Windows.Forms.DockStyle.Bottom
+        Me.Panel2.Location = New System.Drawing.Point(0, 657)
+        Me.Panel2.Name = "Panel2"
+        Me.Panel2.Size = New System.Drawing.Size(1145, 100)
+        Me.Panel2.TabIndex = 2
+        '
+        'Button12
+        '
+        Me.Button12.AutoSize = True
+        Me.Button12.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button12.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Button12.ForeColor = System.Drawing.Color.Black
+        Me.Button12.Image = Global.AVISO.My.Resources.Resources.lorry
+        Me.Button12.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.Button12.Location = New System.Drawing.Point(777, 35)
+        Me.Button12.Name = "Button12"
+        Me.Button12.Size = New System.Drawing.Size(204, 53)
+        Me.Button12.TabIndex = 2
+        Me.Button12.Text = "AVISO erstellen"
+        Me.Button12.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.Button12.UseVisualStyleBackColor = True
+        '
+        'frm_eAVISO
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.BackColor = System.Drawing.Color.White
+        Me.ClientSize = New System.Drawing.Size(1145, 757)
+        Me.Controls.Add(Me.Panel1)
+        Me.Controls.Add(Me.pnl)
+        Me.Controls.Add(Me.Panel2)
+        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
+        Me.Name = "frm_eAVISO"
+        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
+        Me.Text = "eAVISO"
+        Me.pnl.ResumeLayout(False)
+        Me.pnl.PerformLayout()
+        Me.Panel1.ResumeLayout(False)
+        Me.SplitContainer.Panel1.ResumeLayout(False)
+        Me.SplitContainer.Panel2.ResumeLayout(False)
+        CType(Me.SplitContainer, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.SplitContainer.ResumeLayout(False)
+        CType(Me.MyDatagridview1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.MyDatagridview2, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.Panel2.ResumeLayout(False)
+        Me.Panel2.PerformLayout()
+        Me.ResumeLayout(False)
+
+    End Sub
+
+    Friend WithEvents pnl As Panel
+    Friend WithEvents Label1 As Label
+    Friend WithEvents MyComboBox2 As VERAG_PROG_ALLGEMEIN.MyComboBox
+    Friend WithEvents lbl As Label
+    Friend WithEvents MyComboBox1 As VERAG_PROG_ALLGEMEIN.MyComboBox
+    Friend WithEvents Panel1 As Panel
+    Friend WithEvents SplitContainer As SplitContainer
+    Friend WithEvents MyDatagridview1 As VERAG_PROG_ALLGEMEIN.MyDatagridview
+    Friend WithEvents Panel2 As Panel
+    Friend WithEvents Button12 As Button
+    Friend WithEvents MyDatagridview2 As VERAG_PROG_ALLGEMEIN.MyDatagridview
+End Class
--- a/Aviso/eAviso/frm_eAVISO.resx
+++ b/Aviso/eAviso/frm_eAVISO.resx
--- a/Aviso/eAviso/frm_eAVISO.vb
+++ b/Aviso/eAviso/frm_eAVISO.vb
@@ -0,0 +1,217 @@
+Public Class frm_eAVISO
+
+    Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
+
+    Sub intiDGV_Vorpapier()
+
+        With MyDatagridview1
+            .DataSource = SQL.loadDgvBySql("SELECT [ncts_Id],[ncts_Partnersystem],[ncts_dyaArt],[ncts_MRN],[ncts_Erstellung],[ncts_Befoerderungsmittel_KennzeichenAbgang] Kennzeichen,[ncts_SumA_Befoerderer_Name]Befoerderer   FROM [tblNCTS_TR]", "FMZOLL")
+
+            If .Columns.Count = 0 Then Exit Sub
+
+            .Columns("ncts_Id").Visible = False
+            '  .Columns("ncts_Erstellung").Visible = False
+
+            .Columns("ncts_Partnersystem").HeaderText = "Partner"
+            .Columns("ncts_Partnersystem").Width = 60
+
+            .Columns("ncts_dyaArt").HeaderText = "Art"
+            .Columns("ncts_dyaArt").Width = 30
+
+            .Columns("ncts_MRN").HeaderText = "Nr"
+            .Columns("ncts_MRN").Width = 150
+
+            .Columns("Kennzeichen").HeaderText = "Kennzeichen"
+            .Columns("Kennzeichen").Width = 80
+
+            .Columns("ncts_Erstellung").HeaderText = "Datum"
+            .Columns("ncts_Erstellung").Width = 80
+
+
+            .Columns("Befoerderer").HeaderText = "Befoerderer"
+            .Columns("Befoerderer").MinimumWidth = 30
+            .Columns("Befoerderer").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
+
+        End With
+    End Sub
+
+
+    Sub intiDGV_Shipments(Partnersystem, VorpapierArt, VorpapierNr)
+
+        With MyDatagridview2
+            .DataSource = SQL.loadDgvBySql("SELECT [shTr_id],[TotPackage],[TotGrossWeight],[InvoiceAmount],[InvoiceCurrency],(SELECT TOP 1 [Name1] FROM tblTR_Shipment_Adressen WHERE [shTrAd_ShTrId]=[shTr_id] and AddressCode='CN')Empfaenger FROM [tblTR_Shipment] where shTr_Partnersystem='ATEZ' AND [PrePaperCode]='" & VorpapierArt & "' and  [PrePaperNr]='" & VorpapierNr & "'", "FMZOLL")
+
+            If .Columns.Count = 0 Then Exit Sub
+
+            .Columns("shTr_id").Visible = False
+
+            .Columns("TotPackage").HeaderText = "Packstücke"
+            .Columns("TotPackage").Width = 60
+
+            .Columns("TotGrossWeight").HeaderText = "Gewicht"
+            .Columns("TotGrossWeight").Width = 80
+
+            .Columns("InvoiceAmount").HeaderText = "RgBetrag"
+            .Columns("InvoiceAmount").Width = 100
+
+            .Columns("InvoiceCurrency").HeaderText = "RgWähr"
+            .Columns("InvoiceCurrency").Width = 50
+
+            .Columns("Empfaenger").HeaderText = "Empfänger"
+            .Columns("Empfaenger").MinimumWidth = 30
+            .Columns("Empfaenger").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
+
+
+            '.Columns("Befoerderer").HeaderText = "Befoerderer"
+            '.Columns("Befoerderer").MinimumWidth = 30
+            '.Columns("Befoerderer").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
+
+        End With
+
+    End Sub
+    Private Sub frm_eAVISO_Load(sender As Object, e As EventArgs) Handles Me.Load
+        intiDGV_Vorpapier()
+    End Sub
+
+
+
+    Private Sub MyDatagridview1_SelectionChanged(sender As Object, e As EventArgs) Handles MyDatagridview1.SelectionChanged
+        MyDatagridview2.Columns.Clear()
+        If MyDatagridview1.SelectedRows.Count > 0 Then
+            Dim r As DataGridViewRow = MyDatagridview1.SelectedRows(0)
+            intiDGV_Shipments(r.Cells("ncts_Partnersystem").Value, r.Cells("ncts_dyaArt").Value, r.Cells("ncts_MRN").Value)
+        End If
+
+    End Sub
+
+    Private Sub Button12_Click(sender As Object, e As EventArgs) Handles Button12.Click
+        If MyDatagridview1.SelectedRows.Count > 0 Then
+            Dim r As DataGridViewRow = MyDatagridview1.SelectedRows(0)
+
+
+            Dim AvisoDAL = New VERAG_PROG_ALLGEMEIN.cAvisoDAL
+
+            Dim AVISO As New VERAG_PROG_ALLGEMEIN.cAviso
+            Dim PREPAPER As New cNCTSPartnerWorker.cNCTS_TR(r.Cells("ncts_Id").Value)
+
+            AVISO.LKW_Nr = PREPAPER.ncts_Befoerderungsmittel_KennzeichenAbgang
+            AVISO.LKW_Nationalitaet = PREPAPER.ncts_Befoerderungsmittel_SttaszugehoerigkeitAbgangCode
+
+
+
+            AVISO.Datum = Now
+            AVISO.VoraussichtlichesEintreffen = Nothing
+            AVISO.Telefonisch = "digital"
+            'AVISO.Telefonisch As String
+            'AVISO.Änderungen As String
+            'AVISO.Info As String
+            AVISO.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Erfasst
+            AVISO.Ankunft = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.LeerDatum
+            AVISO.Freigabe = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.LeerDatum
+            AVISO.Vorbereitet = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.LeerDatum
+            AVISO.Vorgeschrieben = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.LeerDatum
+            AVISO.Dauer = 0
+            AVISO.Auftraggeber = "X"
+            'AVISO.Auftraggeber_KdNr As String = ""
+            AVISO.Frächter = "X"
+            'AVISO.Frächter_KdNr As String = ""
+            AVISO.Info = ""
+            AVISO.letzterMitarbeiter = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter
+            AVISO.TeamId = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId
+            AVISO.LetzterMitarbeiterId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID
+            'AVISO.Ankunft As Date
+            'AVISO.Freigabe As Date
+            'AVISO.Vorbereitet As Date
+            ' AVISO.Vorgeschrieben As Date
+            ' AVISO.Dauer As Integer
+            AVISO.AvisoEingang = PREPAPER.ncts_Erstellung
+            AVISO.Grenzstelle = "" '--> BEST.ZSTR
+            AVISO.LKW_fertig = False
+            'AVISO.Handling As Boolean = False
+            'AVISO.AvisoTVHinweis As String = ""
+            'AVISO.Sendungen_Gesamtanzahl As Integer = 0
+            'AVISO.Sammelakt As Boolean = False
+            'AVISO.Buero As String = ""
+            AVISO.ImEx = "IMPORT"
+            'AVISO.Abgeschlossen As Boolean = False
+            AVISO.FIRMA = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
+            AVISO.Cluster = If(VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER, "")
+
+            'AVISO.Durchgangszollstelle1 As Object = Nothing
+            'AVISO.Durchgangszollstelle2 As Object = Nothing
+            'AVISO.Durchgangszollstelle3 As Object = Nothing
+            'AVISO.Durchgangszollstelle4 As Object = Nothing
+            'AVISO.Durchgangszollstelle5 As Object = Nothing
+            ''AVISO.Durchgangszollstelle6 As Object = Nothing
+            'AVISO.Ausgangszollstelle As Object = Nothing
+            'AVISO.Zollstelle As Object = Nothing--> ???
+
+
+            'AVISO.TransportTemperatur As Object = Nothing
+            'AVISO.Zugmaschine As Object = Nothing
+            'AVISO.FahrerHandy As Object = Nothing
+            'AVISO.LKW_Nationalitaet As Object = Nothing
+            'AVISO.DakosyRef As Object = Nothing
+            'AVISO.TeamId As Object = Nothing
+            'AVISO.Cluster As Object = Nothing --> ???
+            'AVISO.Freigabe_Info As String = ""
+
+
+            'AVISO.KdAuftragsNr_Avisierer As Object = Nothing
+            '     AVISO.KdAuftragsNr_Frachtfuehrer As Object = Nothing
+            '     AVISO.FreigabeFiliale As Object = Nothing
+            'If PREPAPER.ncts_Erstellung IsNot Nothing Then
+            'AVISO.VoraussichtlichesEintreffen = PREPAPER.ncts_Erstellung.AddDays(4) ??????????????
+            ' End If
+
+            'AVISO.VORSYSTEM As Object = Nothing
+            AVISO.Änderungen = "Digitales Aviso: Neuanlage von " & AVISO.letzterMitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm")
+            Dim aendart = "Neuanlage"
+            Dim aendText = "Neuanlage von " & AVISO.letzterMitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm")
+
+
+
+            Dim tmpId = AvisoDAL.SpeichernAviso(AVISO)
+            AVISO.AvisoID = tmpId
+            AvisoDAL.addAenderung(tmpId, aendart, aendText)
+
+
+            Dim cnt = 1
+            If tmpId > 0 Then
+
+                For Each SHIPMENT In PREPAPER.GET_SHIPMENTS(r.Cells("ncts_Partnersystem").Value, r.Cells("ncts_dyaArt").Value, r.Cells("ncts_MRN").Value)
+
+                    Dim SENDUNG As New VERAG_PROG_ALLGEMEIN.cSendungen(tmpId, cnt)
+
+                    If SENDUNG IsNot Nothing Then
+
+                        SENDUNG.tblSnd_Colli = SHIPMENT.EZA.TotPackage
+                        SENDUNG.tblSnd_Gewicht = SHIPMENT.EZA.TotGrossWeight
+                        'SENDUNG.tblSnd_Warenbezeichnung = SHIPMENT.
+
+                        If VERAG_PROG_ALLGEMEIN.cAllgemein.ABTEILUNG = "QS" Then
+                            SENDUNG.tblSnd_QS_MA = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID
+                        Else
+                            SENDUNG.tblSnd_QS_MA = Nothing
+                        End If
+
+                        SENDUNG.LetzterMitarbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME
+                        SENDUNG.LetzterMitarbeiterId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID
+
+                        SENDUNG.VORSYSTEM = SHIPMENT.shTr_Partnersystem
+                        SENDUNG.VORSYSTEM_Id = SHIPMENT.shTr_id
+                        SENDUNG.tblSnd_anzahlHandling = 0
+
+
+                        SENDUNG.SAVE()
+                        cnt += 1
+                    End If
+                Next
+
+            End If
+
+        End If
+
+
+    End Sub
+End Class