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] WHERE ncts_Partnersystem='ATEZ' ", "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_AVISO_einarbeitet=0 AND ncts_Partnersystem='ATEZ' ", "FMZOLL")
 
             If .Columns.Count = 0 Then Exit Sub
 
@@ -96,13 +96,17 @@
             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.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
@@ -209,6 +213,12 @@
                                 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
@@ -220,13 +230,17 @@
                         cnt += 1
                     End If
                 Next
+
+                'UPDATE STATUS
+                PREPAPER.UPDATE_AVISO_Einarbeitet(True)
+
                 frmHauptfenster.avisoAktualisierenAktiveIdBehalten(AVISO.AvisoID)
-                Me.Close()
+                    Me.Close()
+
+                End If
 
             End If
 
-        End If
-
 
     End Sub
 End Class