246 lines
11 KiB
VB.net
246 lines
11 KiB
VB.net
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 |