Sendungsdetails, atezncts
This commit is contained in:
@@ -1,7 +1,7 @@
|
||||
Imports VERAG_PROG_ALLGEMEIN
|
||||
Imports VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO
|
||||
|
||||
Imports System.IO
|
||||
Imports System.IO
|
||||
'Imports Gemeinsames.cDatenbank
|
||||
Imports System.Drawing
|
||||
|
||||
@@ -130,7 +130,7 @@ Public Class usrcntlAktDetailsATILLANeu
|
||||
|
||||
|
||||
'Kann nur bei Freigabe angezeigt werden
|
||||
If AVISO.Status <> VERAG_PROG_ALLGEMEIN.cglobal.Status_Freigegeben Then
|
||||
If AVISO.Status <> VERAG_PROG_ALLGEMEIN.cGlobal.Status_Freigegeben Then
|
||||
Button3.Visible = False
|
||||
End If
|
||||
|
||||
@@ -207,7 +207,7 @@ Public Class usrcntlAktDetailsATILLANeu
|
||||
Dim SYSTEM = "DAKOSY"
|
||||
|
||||
' Dim f As New SDL.frmZollanmeldung(DY.dy_ART, DY, AVISO, SENDUNG_LIST(0), Now.ToString("yy"))
|
||||
Dim f As New SDL.frmZollanmeldung(DY.dy_ART, DY, AVISO, SND, Now.ToString("yy"), System)
|
||||
Dim f As New SDL.frmZollanmeldung(DY.dy_ART, DY, AVISO, SND, Now.ToString("yy"), SYSTEM)
|
||||
AddHandler f.FormClosed, Sub()
|
||||
initdgvZollAnmeldungen()
|
||||
End Sub
|
||||
@@ -258,9 +258,6 @@ Public Class usrcntlAktDetailsATILLANeu
|
||||
End If
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
dgvZollAnmeldungen.ClearSelection()
|
||||
End Sub
|
||||
|
||||
@@ -292,9 +289,9 @@ Public Class usrcntlAktDetailsATILLANeu
|
||||
|
||||
Button3.Visible = False
|
||||
Select Case AVISO.Status
|
||||
Case VERAG_PROG_ALLGEMEIN.cglobal.Status_Ankunft
|
||||
Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_Ankunft
|
||||
lblStatus.Text = "ANKUNFT" : pnlStatus.BackColor = btnAnkunft.BackColor
|
||||
Case VERAG_PROG_ALLGEMEIN.cglobal.Status_Erfasst
|
||||
Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_Erfasst
|
||||
lblStatus.Text = "ERFASST" : pnlStatus.BackColor = btnErfasst.BackColor
|
||||
'Case VERAG_PROG_ALLGEMEIN.cglobal.Status_Vorbereitet
|
||||
' lblStatus.Text = "VORBEREITET - QS" : pnlStatus.BackColor = btnVorbereitet.BackColor
|
||||
@@ -304,13 +301,13 @@ Public Class usrcntlAktDetailsATILLANeu
|
||||
lblStatus.Text = "AN VERIMEX" : pnlStatus.BackColor = btnAnVerimex.BackColor
|
||||
Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_ATILLA_INDONESIEN
|
||||
lblStatus.Text = "AN INDONESIEN" : pnlStatus.BackColor = btnAnIndonesien.BackColor
|
||||
Case VERAG_PROG_ALLGEMEIN.cglobal.Status_Freigegeben
|
||||
Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_Freigegeben
|
||||
lblStatus.Text = "FREIGABE" : pnlStatus.BackColor = btnFreigabe.BackColor
|
||||
Button3.Visible = True
|
||||
'For Each s In sendun
|
||||
'If alle spedbuchOK
|
||||
'visible
|
||||
Case VERAG_PROG_ALLGEMEIN.cglobal.Status_NichtEingetroffen
|
||||
Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_NichtEingetroffen
|
||||
lblStatus.Text = "NICHT EINGETR." : pnlStatus.BackColor = btnNichtEingetroffen.BackColor
|
||||
|
||||
End Select
|
||||
@@ -545,10 +542,9 @@ Public Class usrcntlAktDetailsATILLANeu
|
||||
Else
|
||||
Process.Start(docPath)
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
End If
|
||||
End If
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message & ex.StackTrace)
|
||||
@@ -566,8 +562,8 @@ Public Class usrcntlAktDetailsATILLANeu
|
||||
myVermerk.VermerkID = 0
|
||||
'myVermerk.AvisoID = CInt(gridVermerke.Rows(e.RowIndex).Cells(1).Value)
|
||||
myVermerk.Datum = Now
|
||||
myVermerk.Mitarbeiter = VERAG_PROG_ALLGEMEIN.cglobal.AktiverMitarbeiter.Mitarbeiter
|
||||
myVermerk.MitarbeiterId = VERAG_PROG_ALLGEMEIN.cglobal.AktiverMitarbeiter.MitarbeiterID
|
||||
myVermerk.Mitarbeiter = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter
|
||||
myVermerk.MitarbeiterId = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.MitarbeiterID
|
||||
Dim init As Boolean = False
|
||||
Select Case CStr(gridVermerke.Rows(e.RowIndex).Cells("VermerkeCode").Value)
|
||||
Case "1"
|
||||
@@ -1613,49 +1609,40 @@ Public Class usrcntlAktDetailsATILLANeu
|
||||
End Sub
|
||||
|
||||
Private Sub NCTSATEZToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NCTSATEZToolStripMenuItem.Click
|
||||
If dgvanhaenge.SelectedRows.Count = 0 Then
|
||||
MsgBox("Bitte zu schickenden Anhänge markieren!")
|
||||
Exit Sub
|
||||
End If
|
||||
Dim ATTACHMENTS_LIST As New List(Of String)
|
||||
Try
|
||||
|
||||
If dgvanhaenge.SelectedRows.Count = 0 Then
|
||||
MsgBox("Bitte zu schickenden Anhänge markieren!")
|
||||
Exit Sub
|
||||
Else
|
||||
For Each row As DataGridViewRow In dgvanhaenge.SelectedRows
|
||||
Dim anh_id = row.Cells("anh_id").Value
|
||||
ATTACHMENTS_LIST.Add(anh_id)
|
||||
Next
|
||||
|
||||
End If
|
||||
|
||||
|
||||
If SENDUNG_LIST IsNot Nothing AndAlso SENDUNG_LIST.Count > 0 Then
|
||||
Dim SND As VERAG_PROG_ALLGEMEIN.cSendungen = SENDUNG_LIST(0)
|
||||
|
||||
|
||||
'Dim atezData As New cATEZ_NCTS_DATA
|
||||
'Dim atez As New cATEZ_NCTS_IN
|
||||
Dim frmAttilaATEZNCTS = New frmATEZNCTS(AVISO, SND, Now.ToString("yy"))
|
||||
frmAttilaATEZNCTS.ATT = ATTACHMENTS_LIST
|
||||
|
||||
'With atezData
|
||||
AddHandler frmAttilaATEZNCTS.FormClosed, Sub()
|
||||
'initdgvZollAnmeldungen()
|
||||
End Sub
|
||||
|
||||
' .VERAG_LRN = AVISO.AvisoID
|
||||
' .LicensePlateContainerNo = AVISO.LKW_Nr
|
||||
' .DAKOSY_Division1 = "test"
|
||||
' 'Datenzuweisung machen!
|
||||
' .SAVE()
|
||||
|
||||
'End With
|
||||
|
||||
'Dim test = atez.authenticate()
|
||||
'If test <> "200" Then
|
||||
' failreDesc = "Authentifizierung fehlgeschlagen" & vbNewLine & "Vorgang abgebrochen!"
|
||||
' MsgBox(failreDesc)
|
||||
' Exit Sub
|
||||
'End If
|
||||
|
||||
|
||||
'If Not atez.setData(atezData, dgvAnhang) Then MsgBox("Fehler beim Erstellen der Daten")
|
||||
|
||||
'atez.SendRequestWithAuthHeader("application/json", failreDesc)
|
||||
|
||||
'If failreDesc <> "" Then
|
||||
' atezData.status = failreDesc
|
||||
' atezData.SAVE()
|
||||
' MsgBox(failreDesc)
|
||||
'Else
|
||||
' atezData.status = "Sent"
|
||||
' atezData.SAVE()
|
||||
'End If
|
||||
frmAttilaATEZNCTS.Show(Me)
|
||||
|
||||
End If
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message & ex.StackTrace)
|
||||
End Try
|
||||
Me.Cursor = Cursors.Default
|
||||
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
Reference in New Issue
Block a user