neu

Aviso/eAviso/frm_eAVISO.vb

@@ -5,7 +5,7 @@
     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")
+            .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_Partnersystem='ATEZ' ", "FMZOLL")
 
             If .Columns.Count = 0 Then Exit Sub
 
@@ -14,6 +14,7 @@
 
             .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
@@ -97,7 +98,8 @@
             AVISO.LKW_Nr = PREPAPER.ncts_Befoerderungsmittel_KennzeichenAbgang
             AVISO.LKW_Nationalitaet = PREPAPER.ncts_Befoerderungsmittel_SttaszugehoerigkeitAbgangCode
 
-
+            AVISO.Auftraggeber = PREPAPER.ncts_Partnersystem '"ATEZ"
+            AVISO.Frächter = If(PREPAPER.ncts_SumA_Befoerderer_Name, "X")
 
             AVISO.Datum = Now
             AVISO.VoraussichtlichesEintreffen = Nothing
@@ -111,9 +113,9 @@
             AVISO.Vorbereitet = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.LeerDatum
             AVISO.Vorgeschrieben = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.LeerDatum
             AVISO.Dauer = 0
-            AVISO.Auftraggeber = "X"
+            '  AVISO.Auftraggeber = "X"
             'AVISO.Auftraggeber_KdNr As String = ""
-            AVISO.Frächter = "X"
+            'AVISO.Frächter = "X"
             'AVISO.Frächter_KdNr As String = ""
             AVISO.Info = ""
             AVISO.letzterMitarbeiter = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter
@@ -198,6 +200,17 @@
                         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
+                        Next
+
                         SENDUNG.VORSYSTEM = SHIPMENT.shTr_Partnersystem
                         SENDUNG.VORSYSTEM_Id = SHIPMENT.shTr_id
                         SENDUNG.tblSnd_anzahlHandling = 0
@@ -207,6 +220,8 @@
                         cnt += 1
                     End If
                 Next
+                frmHauptfenster.avisoAktualisierenAktiveIdBehalten(AVISO.AvisoID)
+                Me.Close()
 
             End If