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] WHERE ncts_AVISO_einarbeitet=0 AND ncts_Partnersystem='ATEZ' ", "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_Partnersystem").Visible = False .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 VERAG_PROG_ALLGEMEIN.cNCTS_TR(r.Cells("ncts_Id").Value) AVISO.LKW_Nr = PREPAPER.ncts_Befoerderungsmittel_KennzeichenAbgang AVISO.LKW_Nationalitaet = PREPAPER.ncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschreitendCode 'TransportArrivalCountryCode AVISO.Auftraggeber = PREPAPER.ncts_Partnersystem '"ATEZ" AVISO.Frächter = If(PREPAPER.ncts_SumA_Befoerderer_Name, "X") AVISO.Datum = Now AVISO.VoraussichtlichesEintreffen = Nothing If IsDate(PREPAPER.ncts_Trans_DatumZeit) Then AVISO.VoraussichtlichesEintreffen = CDate(PREPAPER.ncts_Trans_DatumZeit).AddDays(4) If CDate(AVISO.VoraussichtlichesEintreffen).DayOfWeek = 7 Then AVISO.VoraussichtlichesEintreffen = CDate(AVISO.VoraussichtlichesEintreffen).AddDays(1) End If 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 For Each AD In SHIPMENT.EZA.ADDRESS If AD.AddressCode = "CN" Then SENDUNG.tblSnd_Absender = AD.Name1 & "; " & AD.City SENDUNG.tblSnd_AbsenderKdNr = -1 End If If AD.AddressCode = "CZ" Then SENDUNG.tblSnd_Empfaenger = AD.Name1 & "; " & AD.City SENDUNG.tblSnd_EmpfaengerKdNr = -1 End If SENDUNG.tblSnd_Frachtfuehrer = AVISO.Frächter SENDUNG.tblSnd_FrachtfuehrerKdNr = AVISO.Frächter_KdNr SENDUNG.tblSnd_Avisierer = AVISO.Auftraggeber SENDUNG.tblSnd_AvisiererKdNr = AVISO.Auftraggeber_KdNr Next SENDUNG.VORSYSTEM = SHIPMENT.shTr_Partnersystem SENDUNG.VORSYSTEM_Id = SHIPMENT.shTr_id SENDUNG.tblSnd_anzahlHandling = 0 SENDUNG.SAVE() cnt += 1 End If Next 'UPDATE STATUS PREPAPER.UPDATE_AVISO_Einarbeitet(True) frmHauptfenster.avisoAktualisierenAktiveIdBehalten(AVISO.AvisoID) Me.Close() End If End If End Sub End Class