neu
This commit is contained in:
217
Aviso/eAviso/frm_eAVISO.vb
Normal file
217
Aviso/eAviso/frm_eAVISO.vb
Normal file
@@ -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
|
||||
Reference in New Issue
Block a user