edv/AVISO
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

neu

Browse Source
This commit is contained in:
Andreas Luxbauer
2021-06-24 23:04:15 +02:00
parent 5187fe0e71
commit 2d06d935ef
38 changed files with 6730 additions and 1088 deletions
Download Patch File Download Diff File Expand all files Collapse all files

498
Aviso/frmHauptfenster.vb
View File

@@ -156,6 +156,8 @@ Public Class frmHauptfenster
Me.AutoScaleMode = AutoScaleMode.Dpi
hideErr.Interval = 3000
VERAGSQL = New VERAG_PROG_ALLGEMEIN.SQL
EnableDoubleBuffered(gridAviso)
EnableDoubleBuffered(gridMyAviso)
'Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
@@ -190,15 +192,19 @@ Public Class frmHauptfenster
Dim OptionenDAL As New cOptionenDAL
cboGrenzstelle.Items.Clear()
cboGrenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ALLE", ""))
cboGrenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SUB", "SUB"))
cboGrenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SBG", "SBG"))
cboGrenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("WAI", "WAI"))
cboGrenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("NKD", "NKD"))
cboGrenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SFD", "SFD"))
cboGrenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("NEU", "NEU"))
cboGrenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AMB", "AMB"))
cboGrenzstelle.fillWithSQL("SELECT [grz_Grenzstelle],[grz_BezeichnungCBO] FROM tblGrenzstelle where [grz_Firma]='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' OR grz_Cluster='" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "' AND grz_Aktiv=1 order by grz_Reihenfolge, grz_Grenzstelle", False, "AVISO", True,, "ALLE")
cboGrenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("???", "???"))
'cboGrenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ALLE", ""))
'cboGrenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SUB", "SUB"))
'cboGrenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SBG", "SBG"))
'cboGrenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("WAI", "WAI"))
'cboGrenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("NKD", "NKD"))
'cboGrenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SFD", "SFD"))
'cboGrenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("NEU", "NEU"))
'cboGrenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AMBAR", "AMB"))
'cboGrenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("WO: GE TRANSPORT", "WO_GE"))
''cboGrenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("WO: KITA", "WO_KITA"))
'cboGrenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("???", "???"))
cboGrenzstelle.changeItem("")
cboImEx.Items.Clear()
@@ -210,15 +216,19 @@ Public Class frmHauptfenster
cboMy_Grenzstelle.Items.Clear()
cboMy_Grenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ALLE", ""))
cboMy_Grenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SUB", "SUB"))
cboMy_Grenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SBG", "SBG"))
cboMy_Grenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("WAI", "WAI"))
cboMy_Grenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("NKD", "NKD"))
cboMy_Grenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SFD", "SFD"))
cboMy_Grenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("NEU", "NEU"))
cboMy_Grenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AMB", "AMB"))
cboMy_Grenzstelle.fillWithSQL("SELECT [grz_Grenzstelle],[grz_BezeichnungCBO] FROM tblGrenzstelle where [grz_Firma]='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' OR grz_Cluster='" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "' AND grz_Aktiv=1 order by grz_Reihenfolge, grz_Grenzstelle", False, "AVISO", True,, "ALLE")
cboMy_Grenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("???", "???"))
'cboMy_Grenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ALLE", ""))
'cboMy_Grenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SUB", "SUB"))
'cboMy_Grenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SBG", "SBG"))
'cboMy_Grenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("WAI", "WAI"))
'cboMy_Grenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("NKD", "NKD"))
'cboMy_Grenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SFD", "SFD"))
'cboMy_Grenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("NEU", "NEU"))
'cboMy_Grenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AMBAR", "AMB"))
'cboMy_Grenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("WO: GE TRANSPORT", "WO_GE"))
''cboGrenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("WO: KITA", "WO_KITA"))
'cboMy_Grenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("???", "???"))
cboMy_Grenzstelle.changeItem("")
cboMyAvisoAnzeige.Items.Clear()
@@ -265,9 +275,13 @@ Public Class frmHauptfenster
lblErweitereSuche.Visible = False
MDMParkplatzkartenToolStripMenuItem.Visible = False
' SplitContainer3.Panel1Collapsed = True
Button10.Visible = False
SplitContainer3.Panel1Collapsed = True
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AVISO_Weiterleiten", "AVISO") Then
Button10.Visible = True
SplitContainer3.Panel1Collapsed = True
End If
Case Else
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AVISO_Weiterleiten", "AVISO") Then
@@ -342,11 +356,16 @@ Public Class frmHauptfenster
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VERIMEX", "AVISO") Then
'MenuStrip1.Items.Clear()
MenuStrip1.Items.Remove(FunktionenToolStripMenuItem)
'MenuStrip1.Items.Remove(FunktionenToolStripMenuItem)
' MenuStrip1.Items.Remove(StatistikToolStripMenuItem)
StatistikToolStripMenuItem.DropDownItems.Remove(SDLAuswertungenToolStripMenuItem1)
StatistikToolStripMenuItem.DropDownItems.Remove(SDLAuswertungenToolStripMenuItem)
For Each i In FunktionenToolStripMenuItem.DropDownItems
If i IsNot ToolStripMenuItem3 Then
i.Visible = False
End If
Next
'While MenuStrip1.Items.Count > 1
' MenuStrip1.Items.RemoveAt(1)
@@ -478,6 +497,7 @@ Public Class frmHauptfenster
End Sub
Sub initEAviso()
If VERAGSQL Is Nothing Then VERAGSQL = New VERAG_PROG_ALLGEMEIN.SQL '??
Label22.Text = VERAGSQL.getValueTxtBySql("SELECT count(*) FROM [tblNCTS_TR] where ncts_AVISO_einarbeitet=0 AND ncts_Partnersystem='ATEZ'", "FMZOLL") '"XX"
If Label22.Text = "0" Then Label22.Text = ""
Label22.Visible = Label22.Text <> ""
@@ -564,7 +584,7 @@ Public Class frmHauptfenster
' .Columns(10).Visible = False
' End If
.Columns("Grenzstelle").Width = 40
.Columns("Grenzstelle").Width = 55
.Columns("Grenzstelle").HeaderText = "Grenz."
.Columns("Grenzstelle").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
.Columns("Grenzstelle").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
@@ -650,7 +670,7 @@ Public Class frmHauptfenster
End With
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
End Sub
@@ -662,57 +682,7 @@ Public Class frmHauptfenster
If id > 0 Then
pnlDetailsRechts.Visible = True
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
'Case "VERAG"
' If pnlDetailsRechts.Controls.Count = 0 Then
' Dim usrCntl As New usrcntlAktDetails(id)
' usrCntl.Dock = DockStyle.Fill
' pnlDetailsRechts.Controls.Add(usrCntl)
' Else
' If reloadIfSameId Then
' DirectCast(pnlDetailsRechts.Controls(0), usrcntlAktDetails).reload(id)
' Else
' If DirectCast(pnlDetailsRechts.Controls(0), usrcntlAktDetails).AvisoID <> id Then
' DirectCast(pnlDetailsRechts.Controls(0), usrcntlAktDetails).reload(id)
' End If
' End If
' End If
Case "ATILLA"
If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Or VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("DAKOSY", Me.FindForm) Then
If pnlDetailsRechts.Controls.Count = 0 Then
Dim usrCntl As New usrcntlAktDetailsATILLANeu(id)
usrCntl.Dock = DockStyle.Fill
pnlDetailsRechts.Controls.Add(usrCntl)
Else
DirectCast(pnlDetailsRechts.Controls(0), usrcntlAktDetailsATILLANeu).reload(id)
End If
Else
If pnlDetailsRechts.Controls.Count = 0 Then
Dim usrCntl As New usrcntlAktDetailsATILLA(id)
usrCntl.Dock = DockStyle.Fill
pnlDetailsRechts.Controls.Add(usrCntl)
Else
DirectCast(pnlDetailsRechts.Controls(0), usrcntlAktDetailsATILLA).reload(id)
End If
End If
Case Else
If pnlDetailsRechts.Controls.Count = 0 Then
Dim usrCntl As New usrcntlAktDetails(id)
usrCntl.Dock = DockStyle.Fill
pnlDetailsRechts.Controls.Add(usrCntl)
Else
If reloadIfSameId Then
DirectCast(pnlDetailsRechts.Controls(0), usrcntlAktDetails).reload(id)
Else
If DirectCast(pnlDetailsRechts.Controls(0), usrcntlAktDetails).AvisoID <> id Then
DirectCast(pnlDetailsRechts.Controls(0), usrcntlAktDetails).reload(id)
End If
End If
End If
End Select
showPnlRight(id, reloadIfSameId)
Else
pnlDetailsRechts.Visible = False
@@ -722,6 +692,41 @@ Public Class frmHauptfenster
Me.Cursor = Cursors.Default
End Sub
Sub showPnlRight(AvisoId, reloadIfSameId)
' MsgBox(VERAG_PROG_ALLGEMEIN.cAviso.getFirmaByAvisoId(AvisoId))
Select Case VERAG_PROG_ALLGEMEIN.cAviso.getFirmaByAvisoId(AvisoId)
Case "ATILLA"
'If pnlDetailsRechts.Controls.Count > 0 Then
' MsgBox(pnlDetailsRechts.Controls(0).Name)
'End If
If pnlDetailsRechts.Controls.Count = 0 OrElse pnlDetailsRechts.Controls(0).Name <> "usrcntlAktDetailsATILLANeu" Then
pnlDetailsRechts.Controls.Clear()
Dim usrCntl As New usrcntlAktDetailsATILLANeu(AvisoId)
usrCntl.Dock = DockStyle.Fill
pnlDetailsRechts.Controls.Add(usrCntl)
Else
DirectCast(pnlDetailsRechts.Controls(0), usrcntlAktDetailsATILLANeu).reload(AvisoId)
End If
Case Else
If pnlDetailsRechts.Controls.Count = 0 OrElse pnlDetailsRechts.Controls(0).Name <> "usrcntlAktDetails" Then
pnlDetailsRechts.Controls.Clear()
Dim usrCntl As New usrcntlAktDetails(AvisoId)
usrCntl.Dock = DockStyle.Fill
pnlDetailsRechts.Controls.Add(usrCntl)
Else
If reloadIfSameId Then
DirectCast(pnlDetailsRechts.Controls(0), usrcntlAktDetails).reload(AvisoId)
Else
If DirectCast(pnlDetailsRechts.Controls(0), usrcntlAktDetails).AvisoID <> AvisoId Then
DirectCast(pnlDetailsRechts.Controls(0), usrcntlAktDetails).reload(AvisoId)
End If
End If
End If
End Select
End Sub
' Dim AVISOBinding As New cBinding("AVISO")
Public Sub Aviso_anzeigen(hSort As String, Optional showDetails As Boolean = True)
@@ -833,8 +838,15 @@ Public Class frmHauptfenster
Dim search = txtSuche.Text.Trim
If search <> "" Then
hSQL += " AND (LKW_Nr LIKE '%" & search & "%' OR letzterMitarbeiter LIKE '%" & search & "%' OR Auftraggeber LIKE '%" & search & "%' OR Frächter LIKE '%" & search & "%' OR DakosyRef LIKE '%" & search & "%' )"
'If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" And search.Length = 8 Then 'AbfertigungsNr Suche für ATILLA, length, damit nicht unnötig der Verweis zu tblSendungen hergestellt wird --> performance
' hSQL += " AND (LKW_Nr LIKE '%" & search & "%' OR letzterMitarbeiter LIKE '%" & search & "%' OR Auftraggeber LIKE '%" & search & "%' OR Frächter LIKE '%" & search & "%' OR DakosyRef LIKE '%" & search & "%' OR (SELECT count(*) FROM tblSendungen WHERE AbfertigungsNr LIKE '%" & search & "%' AND FilialenNr=4801 AND tblSnd_AvisoID=AvisoId)>0 ) "
'Else
' hSQL += " AND (LKW_Nr LIKE '%" & search & "%' OR letzterMitarbeiter LIKE '%" & search & "%' OR Auftraggeber LIKE '%" & search & "%' OR Frächter LIKE '%" & search & "%' OR DakosyRef LIKE '%" & search & "%' )"
'End If
End If
hSQL += " ORDER BY Ankunft ASC, AvisoEingang ASC, Datum ASC"
' MsgBox(hSQL)
'If hSort = "" Then
@@ -955,15 +967,18 @@ Public Class frmHauptfenster
gridMyAviso.DefaultCellStyle.Font = gridFont
gridMyAviso.RowTemplate.Height = rowHeight 'muss vor Bindung sein
If gridMyAviso.Columns IsNot Nothing AndAlso gridMyAviso.ColumnCount > 0 Then ' Sunst komischer Fehler DataAreaMouseLeave
'gridMyAviso.Columns.Clear() 'Macht CellMouseLeave-Fehler?????
Try
Try
If gridMyAviso.Columns IsNot Nothing AndAlso gridMyAviso.ColumnCount > 0 Then ' Sunst komischer Fehler DataAreaMouseLeave
gridMyAviso.Columns.Clear()
Catch ex As Exception
End If
gridMyAviso.DataSource = Nothing
'gridMyAviso.Columns.Clear() 'Macht CellMouseLeave-Fehler?????
Catch ex As Exception
End Try
End Try
End If
'If gridMyAviso.ColumnCount = 0 Then Exit Sub
@@ -998,7 +1013,12 @@ Public Class frmHauptfenster
Dim sqlStrFirma As String = ""
If VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER <> "" And cbxCluster.Checked Then
sqlStrFirma &= " AND ( FIRMA='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' OR CLUSTER='" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "' ) "
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERIMEX" Then
sqlStrFirma &= " AND ( FIRMA='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' OR CLUSTER='" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "' OR FIRMA='ATILLA' ) "
Else
sqlStrFirma &= " AND ( FIRMA='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' OR CLUSTER='" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "' ) "
End If
Else
sqlStrFirma &= " AND FIRMA='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' "
End If
@@ -1080,6 +1100,8 @@ Public Class frmHauptfenster
If VERAGSQL Is Nothing Then VERAGSQL = New VERAG_PROG_ALLGEMEIN.SQL '? vlt hilfts...
Dim errOcc = False
gridMyAviso.DataSource = VERAGSQL.loadDgvBySql_Param(sqlStr, "AVISO", 1500, list, False, errOcc)
If errOcc Then
pic.Visible = True
@@ -1300,7 +1322,7 @@ Public Class frmHauptfenster
End With
Catch ex As Exception
MsgBox(ex.Message & vbNewLine & ex.StackTrace)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
' Grid_aktiv = True
@@ -1341,7 +1363,7 @@ Public Class frmHauptfenster
End If
Catch ex As Exception
MsgBox(ex.Message & vbNewLine & ex.StackTrace)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
End Sub
@@ -1407,8 +1429,7 @@ Public Class frmHauptfenster
Catch ex As Exception
MsgBox("gridMyAviso_CellFormatting" & vbNewLine & ex.Message & vbNewLine & ex.StackTrace)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
End Sub
@@ -1631,7 +1652,7 @@ Public Class frmHauptfenster
DirectCast(pnlDetailsRechts.Controls(0), usrcntlAktDetails).openSnd(sndidTmp)
End Select
Catch ex As Exception
MsgBox(ex.Message)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
txtSuche.Text = ""
End If
@@ -1675,7 +1696,7 @@ Public Class frmHauptfenster
Next
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name, "LOG")
End Try
End Sub
@@ -1753,6 +1774,7 @@ Public Class frmHauptfenster
If DateDiff(DateInterval.Second, hMerkZeit, Now) > 60 Then
avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID) 'hMerkZeit wird in aviso_anzeigen aktualisiert
UsrCntlBenachrichtigungen1.initDgvAvisoBenachrichtigungen(Grid_aktiv, gridFont)
End If
Catch ex As Exception
@@ -1878,7 +1900,7 @@ Public Class frmHauptfenster
btnRefresh.PerformClick() 'Aviso_anzeigen("")
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name, "LOG")
End Try
Me.Cursor = Cursors.Default
End Sub
@@ -2062,48 +2084,58 @@ Public Class frmHauptfenster
End If
VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = tmpid
Details_aktiv = True
If pnlDetailsRechts.Controls.Count > 0 Then
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "ATILLA"
If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Or VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("DAKOSY", Me.FindForm) Then
Dim usrcntl As usrcntlAktDetailsATILLANeu = DirectCast(pnlDetailsRechts.Controls(0), usrcntlAktDetailsATILLANeu)
If aktWithoutCheckTime Or usrcntl.AvisoID <> tmpid Then
Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
Else
If DateDiff(DateInterval.Second, usrcntl.aktiv, Now) > 60 Then 'Wenn die Details länger als 60 Sek inaktiv sind (Prüfung durch click und keydown)
Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
End If
End If
Else
Dim usrcntl As usrcntlAktDetailsATILLA = DirectCast(pnlDetailsRechts.Controls(0), usrcntlAktDetailsATILLA)
If aktWithoutCheckTime Or usrcntl.AvisoID <> tmpid Then
Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
Else
If DateDiff(DateInterval.Second, usrcntl.aktiv, Now) > 60 Then 'Wenn die Details länger als 60 Sek inaktiv sind (Prüfung durch click und keydown)
Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
End If
End If
End If
Case Else
Dim usrcntl As usrcntlAktDetails = DirectCast(pnlDetailsRechts.Controls(0), usrcntlAktDetails)
If aktWithoutCheckTime Or usrcntl.AvisoID <> tmpid Then
Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
Else
usrcntl.changeCurrentSndId()
If DateDiff(DateInterval.Second, usrcntl.aktiv, Now) > 60 Then 'Wenn die Details länger als 60 Sek inaktiv sind (Prüfung durch click und keydown)
Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
End If
End If
End Select
End If
Dim usrcntlAvisoID = -1
Dim usrcntlAktiv As DateTime
If pnlDetailsRechts.Controls(0).Name = "usrcntlAktDetailsATILLANeu" Then
usrcntlAvisoID = DirectCast(pnlDetailsRechts.Controls(0), usrcntlAktDetailsATILLANeu).AvisoID
usrcntlAktiv = DirectCast(pnlDetailsRechts.Controls(0), usrcntlAktDetailsATILLANeu).aktiv
Else
usrcntlAvisoID = DirectCast(pnlDetailsRechts.Controls(0), usrcntlAktDetails).AvisoID
usrcntlAktiv = DirectCast(pnlDetailsRechts.Controls(0), usrcntlAktDetails).aktiv
End If
If aktWithoutCheckTime Or usrcntlAvisoID <> tmpid Then
Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
Else
If DateDiff(DateInterval.Second, usrcntlAktiv, Now) > 60 Then 'Wenn die Details länger als 60 Sek inaktiv sind (Prüfung durch click und keydown)
Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
End If
End If
'Select Case VERAG_PROG_ALLGEMEIN.cAviso.getFirmaByAvisoId(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
' Case "ATILLA"
' If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Or VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("DAKOSY", Me.FindForm) Then
' Dim usrcntl As usrcntlAktDetailsATILLANeu = DirectCast(pnlDetailsRechts.Controls(0), usrcntlAktDetailsATILLANeu)
' If aktWithoutCheckTime Or usrcntl.AvisoID <> tmpid Then
' Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
' Else
' If DateDiff(DateInterval.Second, usrcntl.aktiv, Now) > 60 Then 'Wenn die Details länger als 60 Sek inaktiv sind (Prüfung durch click und keydown)
' Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
' End If
' End If
' End If
' Case Else
' Dim usrcntl As usrcntlAktDetails = DirectCast(pnlDetailsRechts.Controls(0), usrcntlAktDetails)
' If aktWithoutCheckTime Or usrcntl.AvisoID <> tmpid Then
' Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
' Else
' usrcntl.changeCurrentSndId()
' If DateDiff(DateInterval.Second, usrcntl.aktiv, Now) > 60 Then 'Wenn die Details länger als 60 Sek inaktiv sind (Prüfung durch click und keydown)
' Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
' End If
' End If
'End Select
End If
Catch ex As Exception
' pic.Visible = True
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name, "LOG")
End Try
End Sub
@@ -2134,7 +2166,7 @@ Public Class frmHauptfenster
Catch ex As Exception
MsgBox(ex.Message & vbNewLine & ex.StackTrace)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
End Sub
@@ -3167,6 +3199,13 @@ Public Class frmHauptfenster
VERAG_PROG_ALLGEMEIN.cAllgemein.LOAD_DATA()
VERAG_PROG_ALLGEMEIN.cAllgemein.LOAD_BER()
closeOK = True
For Each ft As Form In Application.OpenForms
If ft.GetType.ToString = "SDL.frmSpeditionsbuchSuche" Then ft.Close()
If ft.GetType.ToString = "SDL.frmRechnungenSuche" Then ft.Close()
Next
Dim f As New frmHauptfenster
f.Show()
f.Visible = True
@@ -3519,6 +3558,7 @@ Public Class frmHauptfenster
End If
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
End Sub
@@ -3713,7 +3753,7 @@ Public Class AvisoStatusFunctions
End If
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name, "LOG",,,,, "ERR_HFST_SETDATE")
End Try
Return Now
End Function
@@ -4067,7 +4107,7 @@ Public Class AvisoStatusFunctions
Try
System.Diagnostics.Process.Start(hMail)
Catch ex As Exception
MsgBox("Beim Mail-Versenden ist ein Fehler aufgetreten: " & vbCrLf & vbCrLf & ex.Message)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.SHOW, "Beim Mail-Versenden ist ein Fehler aufgetreten")
End Try
End If
' ----------------------------------
@@ -4542,7 +4582,7 @@ Public Class AvisoStatusFunctions
Return True
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
Return False
End Try
End Function
@@ -4643,7 +4683,7 @@ Public Class AvisoStatusFunctions
belegVorhanden = False
End If
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
End If
End If
@@ -4677,6 +4717,11 @@ Public Class AvisoStatusFunctions
Dim tmpid = -1
'Status ist Ankunft - jetzt auf Freigabe setzen und Dauer berechnen
If allowEveryState Or Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Ankunft Then
If Not setFreigabeMsg(Aviso) Then
Return False
End If
Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Freigegeben
Aviso.Freigabe = Now
Aviso.Dauer = CInt(DateDiff(DateInterval.Minute, Aviso.Ankunft, Now))
@@ -4705,53 +4750,53 @@ Public Class AvisoStatusFunctions
AvisoDAL.addAenderung(tmpid, "LKW ist fertig - nicht gesetzt", "LKW ist fertig - nicht gesetzt, deshalb automatisch gesetzt mit FREIGABE")
End If
End If
'Wenn DE oder AT Zoll eingereicht -> automatisch fertigstellen XXXXXXXXXX
' MsgBox(AvisoDAL.VermerkExistsInAvisoByID(Aviso.AvisoID, 17))
If AvisoDAL.VermerkExistsInAvisoByID(Aviso.AvisoID, 17) Then
' MsgBox(AvisoDAL.VermerkExistsInAvisoByID(Aviso.AvisoID, 18))
If Not AvisoDAL.VermerkExistsInAvisoByID(Aviso.AvisoID, 18) Then
Dim myVermerk As New cVermerk
myVermerk.AvisoID = Aviso.AvisoID : myVermerk.Datum = Now
myVermerk.Mitarbeiter = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter : myVermerk.MitarbeiterId = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.MitarbeiterID
myVermerk.Hinweis_Vermerk = "DE Zoll fertig" : myVermerk.VermerkCodeId = 18
VermerkeDAL.SpeichernVermerk(myVermerk)
End If
End If
If AvisoDAL.VermerkExistsInAvisoByID(Aviso.AvisoID, 19) Then
If Not AvisoDAL.VermerkExistsInAvisoByID(Aviso.AvisoID, 20) Then
Dim myVermerk As New cVermerk
myVermerk.AvisoID = Aviso.AvisoID : myVermerk.Datum = Now
myVermerk.Mitarbeiter = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter : myVermerk.MitarbeiterId = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.MitarbeiterID
myVermerk.Hinweis_Vermerk = "AT Zoll fertig" : myVermerk.VermerkCodeId = 20
VermerkeDAL.SpeichernVermerk(myVermerk)
End If
End If
'nach dem erfolgreichem Speichern wird jetzt noch ein automatisches Mail für den Frächter und Auftraggeber erstellt
SendFreigabeEmail(Aviso)
showFreigabeMsg(Aviso)
If True Then
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AUTONACHERFASSUNG", CONTROL.FindForm) Then
Dim doAutoNacherf = True ' (vbYes = MsgBox("Autonacherfassung durchführen?", vbYesNoCancel))
If doAutoNacherf Then
AUTONACHERFASSUNG(CONTROL, AvisoID)
'Wenn DE oder AT Zoll eingereicht -> automatisch fertigstellen XXXXXXXXXX
' MsgBox(AvisoDAL.VermerkExistsInAvisoByID(Aviso.AvisoID, 17))
If AvisoDAL.VermerkExistsInAvisoByID(Aviso.AvisoID, 17) Then
' MsgBox(AvisoDAL.VermerkExistsInAvisoByID(Aviso.AvisoID, 18))
If Not AvisoDAL.VermerkExistsInAvisoByID(Aviso.AvisoID, 18) Then
Dim myVermerk As New cVermerk
myVermerk.AvisoID = Aviso.AvisoID : myVermerk.Datum = Now
myVermerk.Mitarbeiter = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter : myVermerk.MitarbeiterId = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.MitarbeiterID
myVermerk.Hinweis_Vermerk = "DE Zoll fertig" : myVermerk.VermerkCodeId = 18
VermerkeDAL.SpeichernVermerk(myVermerk)
End If
End If
If AvisoDAL.VermerkExistsInAvisoByID(Aviso.AvisoID, 19) Then
If Not AvisoDAL.VermerkExistsInAvisoByID(Aviso.AvisoID, 20) Then
Dim myVermerk As New cVermerk
myVermerk.AvisoID = Aviso.AvisoID : myVermerk.Datum = Now
myVermerk.Mitarbeiter = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter : myVermerk.MitarbeiterId = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.MitarbeiterID
myVermerk.Hinweis_Vermerk = "AT Zoll fertig" : myVermerk.VermerkCodeId = 20
VermerkeDAL.SpeichernVermerk(myVermerk)
End If
End If
'nach dem erfolgreichem Speichern wird jetzt noch ein automatisches Mail für den Frächter und Auftraggeber erstellt
SendFreigabeEmail(Aviso)
If True Then
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AUTONACHERFASSUNG", CONTROL.FindForm) Then
Dim doAutoNacherf = True ' (vbYes = MsgBox("Autonacherfassung durchführen?", vbYesNoCancel))
If doAutoNacherf Then
AUTONACHERFASSUNG(CONTROL, AvisoID)
End If
End If
End If
End If
Return (tmpid > 0)
End Function
Sub showFreigabeMsg(AVISO As VERAG_PROG_ALLGEMEIN.cAviso)
Function setFreigabeMsg(AVISO As VERAG_PROG_ALLGEMEIN.cAviso) As Boolean
Dim text = ""
Dim text_Freigabe = ""
@@ -4772,15 +4817,45 @@ Public Class AvisoStatusFunctions
text_Freigabe &= AVISO.Freigabe_Info
End If
If text <> "" Or text_Freigabe <> "" Then
If True Then ' If text <> "" Or text_Freigabe <> "" Then
Dim f As New frmDokumenteSchicken(AVISO)
Dim f As New frmFreigabeSetzen(AVISO)
f.rtbDokumente.Text = text
f.rtbSonstigeInfo.Text = text_Freigabe
f.cbxInfoblattFurDigitalabfertigungDrucken.Checked = (SQL.DLookup("COUNT(*)", "Vermerke", " AvisoID=" & AVISO.AvisoID & " and VermerkeCode=82", "AVISO", 0) > 0)
f.ShowDialog()
If AVISO.Grenzstelle = "SUB" Then ' Nur in Suben!
f.cbxInfoblattFurDigitalabfertigungDrucken.Checked = (SQL.DLookup("COUNT(*)", "Vermerke", " AvisoID=" & AVISO.AvisoID & " and VermerkeCode=82", "AVISO", 0) > 0)
End If
If f.ShowDialog() = DialogResult.Cancel Then
Return False
End If
End If
Return True
End Function
Shared Sub printFinish(myAviso As VERAG_PROG_ALLGEMEIN.cAviso)
Try
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("PRINT_Freigabe_FinishDigital") Then
If myAviso.Grenzstelle = "SUB" Then ' Nur in Suben!
If (SQL.DLookup("COUNT(*)", "Vermerke", " AvisoID=" & myAviso.AvisoID & " and VermerkeCode=82", "AVISO", 0) > 0) Then
Dim path = SDL.FormularManagerNEU.Finish_AVISO(myAviso)
Dim oPS As New System.Drawing.Printing.PrinterSettings
If path <> "" Then
VERAG_PROG_ALLGEMEIN.cFormularManager.PrintViaGS(path, oPS.PrinterName)
MsgBox("Finish-Zettel wird gedruckt!")
End If
End If
End If
End If
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
End Sub
Public Sub AUTONACHERFASSUNG(CONTROL As Control, AvisoID As Integer)
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VERIMEX", "AVISO") Then
MsgBox("Keine Berechtigung!")
@@ -4834,7 +4909,7 @@ Public Class AvisoStatusFunctions
Next
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
CONTROL.FindForm.Cursor = Cursors.Default
End Sub
@@ -4937,7 +5012,7 @@ Public Class AvisoStatusFunctions
End If
Try
If frmHauptfenster.pnlDetailsRechts.Controls.Count > 0 Then
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Select Case VERAG_PROG_ALLGEMEIN.cAviso.getFirmaByAvisoId(AvisoID)
'Case "VERAG"
' If DirectCast(frmHauptfenster.pnlDetailsRechts.Controls(0), usrcntlAktDetails).AvisoID = AvisoID Then
' DirectCast(frmHauptfenster.pnlDetailsRechts.Controls(0), usrcntlAktDetails).showInfo("Akt übernommen", 2)
@@ -4947,10 +5022,6 @@ Public Class AvisoStatusFunctions
If DirectCast(frmHauptfenster.pnlDetailsRechts.Controls(0), usrcntlAktDetailsATILLANeu).AvisoID = AvisoID Then
DirectCast(frmHauptfenster.pnlDetailsRechts.Controls(0), usrcntlAktDetailsATILLANeu).showInfo("Akt übernommen", 2)
End If
Else
If DirectCast(frmHauptfenster.pnlDetailsRechts.Controls(0), usrcntlAktDetailsATILLA).AvisoID = AvisoID Then
DirectCast(frmHauptfenster.pnlDetailsRechts.Controls(0), usrcntlAktDetailsATILLA).showInfo("Akt übernommen", 2)
End If
End If
Case Else
If DirectCast(frmHauptfenster.pnlDetailsRechts.Controls(0), usrcntlAktDetails).AvisoID = AvisoID Then
@@ -5015,7 +5086,7 @@ Public Class AvisoStatusFunctions
Return True
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
Return False
End Try
@@ -5165,6 +5236,16 @@ Public Class AvisoStatusFunctions
SENDUNG_TMP.saveSachbearbeiter = True
If SENDUNG_TMP.tblSnd_Vorgeschrieben IsNot Nothing Then
MsgBox("Sendung wurde bereits auf 'Vorgeschrieben' gesetzt - Status nicht mehr möglich!")
Return False
End If
If SENDUNG_TMP.tblSnd_Vorbereitet IsNot Nothing Then
MsgBox("Sendung wurde bereits auf 'QS Vorbereitet' gesetzt - Status nicht mehr möglich!")
Return False
End If
If SENDUNG_TMP.tblSnd_AbklaerungTR Is Nothing Then
SENDUNG_TMP.tblSnd_AbklaerungTR_MA = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID
SENDUNG_TMP.tblSnd_FilialeAbklaerung = VERAG_PROG_ALLGEMEIN.cAllgemein.getSTAMMFILIALE
@@ -5239,18 +5320,20 @@ Public Class AvisoStatusFunctions
Shared Function getGrenzstelleZollstelle(hGrenzstelle As String, AVISO As VERAG_PROG_ALLGEMEIN.cAviso) As String
If hGrenzstelle <> "" Then
If hGrenzstelle.Replace("???", "") <> "" Then
Dim Standorte As New cStandorteDAL
Dim Standort As New cStandort
Standort = Standorte.LesenStandort(0, hGrenzstelle, "")
If Not IsNothing(Standort) Then
Return Standort.Standort_Text.Trim
End If
Else
If AVISO.Zollstelle IsNot Nothing AndAlso AVISO.Zollstelle.ToString <> "" Then
hGrenzstelle = VERAGSQL.getValueTxtBySql("SELECT [basncd_name] FROM basncd WHERE basncd_dstnr='" & AVISO.Zollstelle & "' ", "ATLAS")
End If
End If
If AVISO.Zollstelle IsNot Nothing AndAlso AVISO.Zollstelle.ToString <> "" Then
hGrenzstelle = VERAGSQL.getValueTxtBySql("SELECT [basncd_name] FROM basncd WHERE basncd_dstnr='" & AVISO.Zollstelle & "' ", "ATLAS")
End If
Return hGrenzstelle
Return hGrenzstelle.Replace("???", "")
End Function
@@ -5291,6 +5374,11 @@ Public Class AvisoStatusFunctions
hText = hText.Replace("%Firma_simple%", "ATILLA")
hText = hText.Replace("%Firma%", "ATILLA Spedition GmbH")
Case "AMBAR"
hText = hText.Replace("%Firma_simple%", "AMBAR")
hText = hText.Replace("%FirmaTR%", "<b>Ambar Logistic Bad Reichenhall</b>")
hText = hText.Replace("%Firma%", "<b>Ambar Logistic in Bad Reichenhall</b>")
Case Else
hText = hText.Replace("%Platzhalter2%", "")
@@ -5340,13 +5428,28 @@ Public Class AvisoStatusFunctions
Try
Dim PathTmp = (New VERAG_PROG_ALLGEMEIN.cDATENSERVER(DsId)).GET_TOP1_PATH(False)
If PathTmp <> "" Then anhaenge.Add(PathTmp) : found = True
Catch ex As Exception : MsgBox(ex.Message & ex.StackTrace) : End Try
Catch ex As Exception : VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) : End Try
If Not found Then
AvisoStatusFunctions.insertSendungsVermerk(s.tblSnd_SendungID, AVISO.AvisoID, "ERR: VBD nicht gefunden: " & s.FilialenNr & "/" & s.AbfertigungsNr, 47)
'AvisoStatusFunctions.insertVermerkAllg(AVISO.AvisoID, "ERR: VBD nicht gefunden: " & s.FilialenNr & "/" & s.AbfertigungsNr, 46, , "(AUTO)")
MsgBox("ACHTUNG: Das Versandbegleitdokument konnte nicht automatisiert ermittelt werden." & vbNewLine & "Bitte dem Kunden das VBD per E-Mail zustellen!" & vbNewLine & vbNewLine & "Sendung: " & s.FilialenNr & "/" & s.AbfertigungsNr)
End If
End If
Case 7 'Ausfuhr
getDataFronDY_AES(s.tblSnd_SendungID, AtcMrn, DsId, s.FilialenNr, s.AbfertigungsNr, DsId2)
MsgBox(DsId)
If KUNDE_ERW.EmailFreigabe_ABDPDF And IsNumeric(DsId) Then 'VBD anhängen
Try
Dim PathTmp = (New VERAG_PROG_ALLGEMEIN.cDATENSERVER(DsId)).GET_TOP1_PATH(False)
If PathTmp <> "" Then anhaenge.Add(PathTmp) : found = True
Catch ex As Exception : VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) : End Try
If Not found Then
AvisoStatusFunctions.insertSendungsVermerk(s.tblSnd_SendungID, AVISO.AvisoID, "ERR: ABD nicht gefunden: " & s.FilialenNr & "/" & s.AbfertigungsNr, 47)
'AvisoStatusFunctions.insertVermerkAllg(AVISO.AvisoID, "ERR: VBD nicht gefunden: " & s.FilialenNr & "/" & s.AbfertigungsNr, 46, , "(AUTO)")
MsgBox("ACHTUNG: Das Ausfuhrbegleitdokument konnte nicht automatisiert ermittelt werden." & vbNewLine & "Bitte dem Kunden das ABD per E-Mail zustellen!" & vbNewLine & vbNewLine & "Sendung: " & s.FilialenNr & "/" & s.AbfertigungsNr)
End If
End If
Case Else
getDataFronDY_EZA(s.tblSnd_SendungID, AtcMrn, DsId, s.FilialenNr, s.AbfertigungsNr, DsId2)
If s.tblSnd_Abfertigungsart_ID = 23 Then
@@ -5369,7 +5472,7 @@ Public Class AvisoStatusFunctions
Dim PathTmp2 = (New VERAG_PROG_ALLGEMEIN.cDATENSERVER(DsId2)).GET_TOP1_PATH(False)
If PathTmp2 <> "" Then anhaenge.Add(PathTmp2) : found = True
End If
Catch ex As Exception : MsgBox(ex.Message & ex.StackTrace) : End Try
Catch ex As Exception : VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) : End Try
If Not found Then
AvisoStatusFunctions.insertSendungsVermerk(s.tblSnd_SendungID, AVISO.AvisoID, "ERR: Steuerbescheid nicht gefunden: " & s.FilialenNr & "/" & s.AbfertigungsNr, 47)
' AvisoStatusFunctions.insertVermerkAllg(AVISO.AvisoID, "ERR: Steuerbescheid nicht gefunden: " & s.FilialenNr & "/" & s.AbfertigungsNr, 46, , "(AUTO)")
@@ -5401,8 +5504,8 @@ Public Class AvisoStatusFunctions
Platzhalter_ersetzen = hText
End Function
Private Shared VERAGSQL As New VERAG_PROG_ALLGEMEIN.SQL
Private Shared VERAGSQL As New VERAG_PROG_ALLGEMEIN.SQL
Shared Function getEZOLL_Steuerbescheid(KUNDE_ERW As VERAG_PROG_ALLGEMEIN.cKundenErweitert, AVISO As VERAG_PROG_ALLGEMEIN.cAviso, SENDUNG As VERAG_PROG_ALLGEMEIN.cSendungen) As List(Of String)
Dim LIST As New List(Of String)
@@ -5455,7 +5558,7 @@ Public Class AvisoStatusFunctions
End Select
End If
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
Return False
@@ -5524,6 +5627,27 @@ Public Class AvisoStatusFunctions
Return False
End Function
Shared Function getDataFronDY_AES(SendungsId, ByRef AtcMrn, ByRef dsId, FilialenNr, AbfertigungsNr, ByRef dsId2) As Boolean
If SendungsId Is Nothing Then Return False
If Not IsNumeric(AbfertigungsNr) Then Return False
If AbfertigungsNr <= 0 Then Return False
Dim dt = VERAGSQL.loadDgvBySql("SELECT isnull(dy_ABD_dsId,'') as DsId, isnull(aes_MRN,'') as ATC FROM tblDakosy_Zollanmeldungen inner join tblDakosy_AES on dy_id=aes_dyaAnmID where dy_SendungsId='" & SendungsId & "' and dy_status <= 70 order by dy_status desc, dy_Erstellung desc", "FMZOLL")
If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
AtcMrn = dt.Rows(0)("ATC")
dsId = dt.Rows(0)("DsId")
Return True
Else
Try 'AT-Zollsystem
'Dim sql As New VERAG_PROG_ALLGEMEIN.SQL
'AtcMrn = sql.getValueTxtBySql("SELECT CRN FROM zsAnmRefs WHERE (VorgangID = 'EF') AND (LRN LIKE '" & FilialenNr & "/" & AbfertigungsNr & "%' OR LRN LIKE '" & FilialenNr & "-" & AbfertigungsNr & "%') ORDER BY GeaendertAm DESC", "EZOLL")
'dsId = sql.getValueTxtBySql("SELECT TOP 1 DokumentId_Steuerbeleg FROM [Speditionsbuch] where DokumentId_Steuerbeleg is not null AND FilialenNr='" & FilialenNr & "' AND AbfertigungsNr='" & AbfertigungsNr & "' ", "FMZOLL")
'dsId2 = sql.getValueTxtBySql("SELECT TOP 1 DokumentId_Mitteilung FROM [Speditionsbuch] where DokumentId_Mitteilung is not null AND FilialenNr='" & FilialenNr & "' AND AbfertigungsNr='" & AbfertigungsNr & "' ", "FMZOLL")
'....... FEHLT NOCH !!!!
Catch : End Try
End If
Return False
End Function
Function SpeditionsbuchEintrag(AvisoID As Integer, SendungID As Integer) As posNr
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VERIMEX", "AVISO") Then
@@ -5589,7 +5713,7 @@ Public Class AvisoStatusFunctions
Return posNr
Catch ex As Exception
MsgBox(ex.Message & vbNewLine & ex.StackTrace)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
Return Nothing
End Try
End Function