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
2022-09-01 10:38:09 +02:00
parent 505b2800c5
commit 94556d7686
56 changed files with 1303 additions and 547 deletions
Download Patch File Download Diff File Expand all files Collapse all files

238
Aviso/frmHauptfenster.vb
View File

@@ -193,9 +193,16 @@ Public Class frmHauptfenster
Dim OptionenDAL As New cOptionenDAL
cboGrenzstelle.Items.Clear()
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("??? - Andere", "???"))
If VERAG_PROG_ALLGEMEIN.cAllgemein.WARENORT_ZUGANG Then
cboGrenzstelle.Items.Clear()
cboGrenzstelle.fillWithSQL("SELECT [grz_Grenzstelle],[grz_BezeichnungCBO] FROM tblGrenzstelle where grz_Grenzstelle='" & VERAG_PROG_ALLGEMEIN.cAllgemein.WARENORT & "' AND grz_Firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' AND grz_Aktiv=1 order by grz_Reihenfolge, grz_Grenzstelle", False, "AVISO", False)
Else
cboGrenzstelle.Items.Clear()
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("??? - Andere", "???"))
End If
'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"))
@@ -219,9 +226,16 @@ Public Class frmHauptfenster
cboMy_Grenzstelle.Items.Clear()
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("??? - Andere", "???"))
If VERAG_PROG_ALLGEMEIN.cAllgemein.WARENORT_ZUGANG Then
cboMy_Grenzstelle.Items.Clear()
cboMy_Grenzstelle.fillWithSQL("SELECT [grz_Grenzstelle],[grz_BezeichnungCBO] FROM tblGrenzstelle where grz_Grenzstelle='" & VERAG_PROG_ALLGEMEIN.cAllgemein.WARENORT & "' AND grz_Firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' AND grz_Aktiv=1 order by grz_Reihenfolge, grz_Grenzstelle", False, "AVISO", False)
Else
cboMy_Grenzstelle.Items.Clear()
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("??? - Andere", "???"))
End If
'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"))
@@ -240,30 +254,34 @@ Public Class frmHauptfenster
cboMyAvisoAnzeige.fillWithSQL("SELECT team_id, team_bezeichnung FROM tblTeams WHERE team_firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "'", False, "ADMIN", True, False)
cboMyAvisoAnzeige.changeItem("Benutzer")
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG" Then
StandortWechselnToolStripMenuItem.Visible = True
End If
'MyComboBox2.Items.Clear()
'MyComboBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Benutzer", "Benutzer"))
'MyComboBox2.fillWithSQL("SELECT team_id, team_bezeichnung FROM tblTeams WHERE team_firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "'", False, "ADMIN", True, False)
'MyComboBox2.changeItem("Benutzer")
If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_abteilung = "QS" Then
cboMy_QS.CheckState = CheckState.Unchecked
cboMy_VB.CheckState = CheckState.Indeterminate
Else
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERIMEX" Then
cboMyAvisoAnzeige.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("T1-Sendungen", "T1"))
cboMy_QS.CheckState = CheckState.Checked
cboMy_VB.CheckState = CheckState.Unchecked
End If
If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId Is Nothing Then
cbx_My_LKW.Checked = True
cboMy_QS.CheckState = CheckState.Indeterminate
cboMy_VB.CheckState = CheckState.Indeterminate
ElseIf IsNumeric(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId) Then
cboMyAvisoAnzeige.changeItem(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId)
' MyComboBox2.changeItem(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId)
cboMyAvisoAnzeige.changeItem("T1")
Else
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG" Then
StandortWechselnToolStripMenuItem.Visible = True
End If
If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_abteilung = "QS" Then
cboMy_QS.CheckState = CheckState.Unchecked
cboMy_VB.CheckState = CheckState.Indeterminate
Else
cboMy_QS.CheckState = CheckState.Checked
cboMy_VB.CheckState = CheckState.Unchecked
End If
If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId Is Nothing Then
cbx_My_LKW.Checked = True
cboMy_QS.CheckState = CheckState.Indeterminate
cboMy_VB.CheckState = CheckState.Indeterminate
ElseIf IsNumeric(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId) Then
cboMyAvisoAnzeige.changeItem(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId)
' MyComboBox2.changeItem(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId)
End If
End If
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("GESAMTSICHERHEIT", "AVISO") Then
@@ -358,7 +376,7 @@ Public Class frmHauptfenster
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VERIMEX", "AVISO") Then
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VERIMEX", "AVISO") Or VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("WARENORT", "AVISO") Then
'MenuStrip1.Items.Clear()
'MenuStrip1.Items.Remove(FunktionenToolStripMenuItem)
' MenuStrip1.Items.Remove(StatistikToolStripMenuItem)
@@ -412,7 +430,11 @@ Public Class frmHauptfenster
'End Try
'Mitarbeiterinfos anzeigen
VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter += "/" & SystemInformation.UserName.ToString
If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("SHOW_AVISO_PCNAME") Then
VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter += "/" & SystemInformation.UserName.ToString
End If
lblMitarbeiter.Text = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter
'If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Avisodaten_verwalten", Me) Then
' lblMitarbeiter.Text += " (Verwaltung)Then"
@@ -1033,14 +1055,21 @@ Public Class frmHauptfenster
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
'Verimex soll keine Abgeschlossenen und keine Freigegebenen sehen:
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERIMEX" Then sqlStrFirma &= " AND Abgeschlossen=0 AND Status <>1 "
If cbx_My_LKW.Checked Then
'----------------------------------------------------------------------------------------------------------------------------------
'--- LKW ---
'----------------------------------------------------------------------------------------------------------------------------------
sqlStr = " SELECT AvisoID, CASE WHEN [LKW_fertig] = 1 THEN 'OK' ELSE '' END AS [LKW_fertig], [Status],CASE WHEN LetzterMitarbeiterId=@maId then '0' ELSE '1' END as [statVorb], LKW_Nr, Dauer, Datum, AvisoEingang, Ankunft, Grenzstelle, Freigabe,LetzterMitarbeiterId AS maId, LetzterMitarbeiterId ,/* CASE WHEN LetzterMitarbeiterId=@maId then '0' ELSE '1' END as Vorbereitung,*/LetzterMitarbeiter,AvisoTVHinweis " &
" FROM Aviso " &
" WHERE ( Status IN (0, 3, 4, 5) OR ( Status = 1 AND [Abgeschlossen] = 0 )) " &
@@ -1057,10 +1086,19 @@ Public Class frmHauptfenster
" when [Status] =0 then 5 " &
" END, Grenzstelle,Ankunft " & If(cbx_My_LKW.Checked, "", ",tblSnd_SendungID")
Else
'----------------------------------------------------------------------------------------------------------------------------------
'--- Sendung ---
'----------------------------------------------------------------------------------------------------------------------------------
Dim inBearbeitungSQL = " tblSendungen.LetzterMitarbeiterId=@maId " ' 1<>1 "
If cboMyAvisoAnzeige._value <> "" And cboMyAvisoAnzeige._value <> "Benutzer" And IsNumeric(cboMyAvisoAnzeige._value) Then
' inBearbeitungSQL = " Aviso.[TeamId]= " & If(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId, -1) & " "
inBearbeitungSQL = " (Aviso.[TeamId]= " & cboMyAvisoAnzeige._value & " OR tblSendungen.[tblSnd_TeamId]= " & cboMyAvisoAnzeige._value & " OR tblSendungen.LetzterMitarbeiterId=@maId) "
If cboMyAvisoAnzeige._value <> "" Then
If cboMyAvisoAnzeige._value = "T1" Then
inBearbeitungSQL = " tblSnd_Abfertigungsart_ID=5 "
'NUR VERAG/IMEX:
inBearbeitungSQL &= " AND FilialenNr IN (SELECT FilialenNr FROM " & VERAG_PROG_ALLGEMEIN.cAllgemein.FMZOLL_SERVER & ".VERAG.dbo.Filialen WHERE Filialen.FilialenNr=tblSendungen.FilialenNr and Filialen.Firma IN ('VERAG','IMEX')) "
ElseIf cboMyAvisoAnzeige._value <> "Benutzer" And IsNumeric(cboMyAvisoAnzeige._value) Then
inBearbeitungSQL = " (Aviso.[TeamId]= " & cboMyAvisoAnzeige._value & " OR tblSendungen.[tblSnd_TeamId]= " & cboMyAvisoAnzeige._value & " OR tblSendungen.LetzterMitarbeiterId=@maId) "
End If
End If
sqlStr = " SELECT AvisoID, CASE WHEN [LKW_fertig] = 1 THEN 'OK' ELSE '' END AS [LKW_fertig], [Status],tblSendungen.LetzterMitarbeiterId,tblSendungen.LetzterMitarbeiter, LKW_Nr, VoraussichtlichesEintreffen,Dauer, Datum, AvisoEingang, Ankunft, Grenzstelle, Freigabe, Aviso.LetzterMitarbeiterId AS maId,AvisoTVHinweis " &
@@ -1117,7 +1155,7 @@ Public Class frmHauptfenster
Dim errOcc = False
'MsgBox(sqlStr)
gridMyAviso.DataSource = VERAGSQL.loadDgvBySql_Param(sqlStr, "AVISO", 1500, list, False, errOcc)
If errOcc Then
pic.Visible = True
@@ -1499,7 +1537,7 @@ Public Class frmHauptfenster
If (gridAviso.Rows(e.RowIndex).Cells("Ankunft").Value Is DBNull.Value OrElse gridAviso.Rows(e.RowIndex).Cells("Ankunft").Value = LeerDatum) AndAlso gridAviso.Rows(e.RowIndex).Cells("TageBisEintreffen").Value IsNot DBNull.Value AndAlso gridAviso.Rows(e.RowIndex).Cells("TageBisEintreffen").Value <= 1 Then
'gridAviso.Rows(e.RowIndex).Cells("VoraussichtlichesEintreffen").Style.ForeColor = Color.Red
gridAviso.Rows(e.RowIndex).Cells("VoraussichtlichesEintreffen").Style.Font = New Font(Me.Font.FontFamily, Me.Font.Size, FontStyle.Bold)
gridAviso.Rows(e.RowIndex).Cells("VoraussichtlichesEintreffen").Style.Font = New Font(Me.Font.FontFamily, Me.Font.Size, FontStyle.Bold)
End If
End Select
@@ -2594,6 +2632,9 @@ Public Class frmHauptfenster
End Function
Private Sub Button3_Click_1(sender As Object, e As EventArgs) Handles Button3.Click
Dim rpt As New rptTEST
@@ -3400,9 +3441,10 @@ Public Class frmHauptfenster
Private Sub ToolStripMenuItem4_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem4.Click
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "SONSTIGE", "", "", "Gesamtsicherheit_VERAG_GmbH")
'MsgBox(DS.da_id)
DS.OPEN_SINGLE_ORIG()
' Process.Start("https://file.verag.ag:5001/oo/r/pkjsynkkXrTgPm85JLVFWAHem4NuF6IO")
Process.Start("https://file.verag.ag:5001/d/s/pkjsynkkXrTgPm85JLVFWAHem4NuF6IO/i4_Ss9mG9jR7hB4wStoIbzhvYzlJJJPv-BbegLJoGuQk")
'Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "SONSTIGE", "", "", "Gesamtsicherheit_VERAG_GmbH")
'DS.OPEN_SINGLE_ORIG()
End Sub
Private Sub ToolStripMenuItem5_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem5.Click
@@ -3564,6 +3606,22 @@ Public Class frmHauptfenster
Private Sub cboMyAvisoAnzeige_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboMyAvisoAnzeige.SelectedIndexChanged, cbx_My_LKW.CheckedChanged, cboMy_Grenzstelle.SelectedIndexChanged, cboMy_QS.CheckStateChanged, cboMy_VB.CheckStateChanged
If Grid_aktiv Then
'Wenn VERIMEX/T1 und cboMyAvisoAnzeige geändert --> Checkboxes richtig setzen
If sender Is cboMyAvisoAnzeige Then
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERIMEX" Then
Grid_aktiv = False
If cboMyAvisoAnzeige._value = "T1" Then
cboMy_QS.CheckState = CheckState.Checked
cboMy_VB.CheckState = CheckState.Unchecked
Else
cboMy_QS.CheckState = CheckState.Indeterminate
cboMy_VB.CheckState = CheckState.Indeterminate
End If
Grid_aktiv = True
End If
End If
'DGV anzeigen:
meineAviso_anzeigen()
End If
cboMy_QS.Visible = Not cbx_My_LKW.Checked
@@ -3914,6 +3972,26 @@ Public Class frmHauptfenster
Aviso_anzeigen("")
End If
End Sub
Private Sub AllgemeinToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AllgemeinToolStripMenuItem.Click
Process.Start("https://www.bafa.de/DE/Aussenwirtschaft/Ausfuhrkontrolle/ausfuhrkontrolle_node.html")
End Sub
Private Sub AllgemeineEinführungExportkontrolleToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AllgemeineEinführungExportkontrolleToolStripMenuItem.Click
Process.Start("https://www.bafa.de/DE/Aussenwirtschaft/Ausfuhrkontrolle/Allgemeine_Einfuehrung/allgemeine_einfuehrung_node.html")
End Sub
Private Sub BrexitToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles BrexitToolStripMenuItem1.Click
Process.Start("https://www.bafa.de/DE/Aussenwirtschaft/Ausfuhrkontrolle/Brexit/brexit_node.html")
End Sub
Private Sub EmbargosLänderToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles EmbargosLänderToolStripMenuItem.Click
Process.Start("https://www.bafa.de/DE/Aussenwirtschaft/Ausfuhrkontrolle/Embargos/embargos_node.html")
End Sub
Private Sub GüterlisteToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles GüterlisteToolStripMenuItem.Click
Process.Start("https://www.bafa.de/DE/Aussenwirtschaft/Ausfuhrkontrolle/Gueterlisten/gueterlisten_node.html")
End Sub
End Class
Public Class AvisoStatusFunctions
@@ -4389,40 +4467,39 @@ Public Class AvisoStatusFunctions
API.api_EMailAttCnt = anhaenge.Count
If ForceMail <> "" Then
Dim mailsTXT = ""
mailsTXT &= "TO: " & EMails & "<br>"
mailsTXT &= "CC: " & EMails_CC & "<br>"
mailsTXT &= "BCC: " & EMails_BCC & "<br><br>"
If ForceMail <> "" Then
Dim mailsTXT = ""
mailsTXT &= "TO: " & EMails & "<br>"
mailsTXT &= "CC: " & EMails_CC & "<br>"
mailsTXT &= "BCC: " & EMails_BCC & "<br><br>"
If VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(ForceMail, hBetreff, mailsTXT & hBody, VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigung.getAbsenderEmail(), False, False, "", "", anhaenge, art) Then
API.UPDTAE_OK()
Else
API.UPDTAE_ERR()
End If
If VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(ForceMail, hBetreff, mailsTXT & hBody, VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigung.getAbsenderEmail(), False, False, "", "", anhaenge, art) Then
API.UPDTAE_OK()
Else
API.UPDTAE_ERR()
End If
Else
EMails_BCC &= If(EMails_BCC <> "", ";", "") & VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigung.getBCCEmail() 'Damit Mails gespeichert werden.
Dim MailArt = ""
Select Case art
Case 1, 3 : MailArt = "Ankunft"
Case 2, 4 : MailArt = "Freigabe"
Case 5 : MailArt = "Status"
End Select
If VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(EMails, hBetreff, hBody, VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigung.getAbsenderEmail(), False, False, EMails_CC, EMails_BCC, anhaenge, art) Then
API.UPDTAE_OK()
Dim txt = " E-Mail gesendet an: " & EMails
If EMails_CC.ToString.Trim <> "" Then txt &= " CC: " & EMails_CC
If EMails_BCC.ToString.Trim <> "" Then txt &= " BCC: " & EMails_BCC
AvisoStatusFunctions.insertVermerkAllg(AVISO.AvisoId, MailArt & txt, 46, , "(AUTO)")
Else
EMails_BCC &= If(EMails_BCC <> "", ";", "") & VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigung.getAbsenderEmail() 'Damit Mails gespeichert werden.
Dim MailArt = ""
Select Case art
Case 1, 3 : MailArt = "Ankunft"
Case 2, 4 : MailArt = "Freigabe"
Case 5 : MailArt = "Status"
End Select
If VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(EMails, hBetreff, hBody, VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigung.getAbsenderEmail(), False, False, EMails_CC, EMails_BCC, anhaenge, art) Then
API.UPDTAE_OK()
Dim txt = " E-Mail gesendet an: " & EMails
If EMails_CC.ToString.Trim <> "" Then txt &= " CC: " & EMails_CC
If EMails_BCC.ToString.Trim <> "" Then txt &= " BCC: " & EMails_BCC
AvisoStatusFunctions.insertVermerkAllg(AVISO.AvisoId, MailArt & txt, 46, , "(AUTO)")
Else
API.UPDTAE_ERR()
AvisoStatusFunctions.insertVermerkAllg(AVISO.AvisoId, "ERR: " & MailArt & " E-Mail konnte nicht gesendet werden!", 46, , "(AUTO)")
End If
@@ -4534,13 +4611,13 @@ Public Class AvisoStatusFunctions
'Status ist offen - jetzt auf VORBEREITET setzen
Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Vorbereitet
Aviso.Änderungen = "auf VORBEREITET gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm") & vbCrLf & Trim(VarToStr(Aviso.Änderungen))
Aviso.letzterMitarbeiter = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter
Aviso.TeamId = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId
Dim tmpid = AvisoDAL.SpeichernAviso(Aviso)
AvisoDAL.addAenderung(tmpid, "auf VORBEREITET gesetzt", "auf VORBEREITET gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm"))
' SQL.doSQL("UPDATE tblSendungen SET tblSnd_Vorbereitet=getDate() WHERE tblSnd_Vorbereitet IS NULL AND tblSnd_AvisoID='" & AvisoID & "'", "AVISO")
If False Then
@@ -5515,7 +5592,9 @@ Public Class AvisoStatusFunctions
If SENDUNG_TMP.tblSnd_Vorgeschrieben Is Nothing Then
SENDUNG_TMP.tblSnd_VG_MA = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID
If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId IsNot Nothing Then SENDUNG_TMP.tblSnd_TeamId = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA <> "VERIMEX" Then
If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId IsNot Nothing Then SENDUNG_TMP.tblSnd_TeamId = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId
End If
SENDUNG_TMP.tblSnd_Vorgeschrieben = Now 'SENDUNG_TMP.tblSnd_Status=VERAG_PROG_ALLGEMEIN.vor ' Status macht keinen Sinn..
AvisoDAL.addAenderung(AvisoID, "Sendung auf VORGESCHRIEBEN gesetzt", "Sendung '" & SENDUNG_TMP.tblSnd_PosUnterNr & " " & SENDUNG_TMP.tblSnd_Empfaenger & "' auf VORGESCHRIEBEN gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm"))
@@ -5549,12 +5628,14 @@ Public Class AvisoStatusFunctions
'If VERAG_PROG_ALLGEMEIN.cAllgemein.ABTEILUNG = "QS" Then
' SENDUNG_TMP.tblSnd_QS_MA = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID
'End If
If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId IsNot Nothing Then SENDUNG_TMP.tblSnd_TeamId = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA <> "VERIMEX" Then
If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId IsNot Nothing Then SENDUNG_TMP.tblSnd_TeamId = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId
End If
SENDUNG_TMP.tblSnd_Vorbereitet = Now 'SENDUNG_TMP.tblSnd_Status=VERAG_PROG_ALLGEMEIN.vor ' Status macht keinen Sinn..
AvisoDAL.addAenderung(AvisoID, "Sendung auf VORBEREITET gesetzt", "Sendung '" & SENDUNG_TMP.tblSnd_PosUnterNr & " " & SENDUNG_TMP.tblSnd_Empfaenger & "' auf VORBEREITET gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm"))
Else
SENDUNG_TMP.tblSnd_Vorbereitet = Nothing
AvisoDAL.addAenderung(AvisoID, "Sendung auf VORBEREITET gesetzt", "Sendung '" & SENDUNG_TMP.tblSnd_PosUnterNr & " " & SENDUNG_TMP.tblSnd_Empfaenger & "' auf VORBEREITET gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm"))
Else
SENDUNG_TMP.tblSnd_Vorbereitet = Nothing
AvisoDAL.addAenderung(AvisoID, "Sendung auf NICHT VORBEREITET gesetzt", "Sendung '" & SENDUNG_TMP.tblSnd_PosUnterNr & " " & SENDUNG_TMP.tblSnd_Empfaenger & "' auf NICHT VORBEREITET gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm"))
End If
Return SENDUNG_TMP.SAVE()
@@ -5588,7 +5669,7 @@ Public Class AvisoStatusFunctions
'If VERAG_PROG_ALLGEMEIN.cAllgemein.ABTEILUNG = "QS" Then
' SENDUNG_TMP.tblSnd_QS_MA = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID
'End If
If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId IsNot Nothing Then SENDUNG_TMP.tblSnd_TeamId = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId
'If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId IsNot Nothing Then SENDUNG_TMP.tblSnd_TeamId = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId
SENDUNG_TMP.tblSnd_AbklaerungTR = Now 'SENDUNG_TMP.tblSnd_Status=VERAG_PROG_ALLGEMEIN.vor ' Status macht keinen Sinn..
AvisoDAL.addAenderung(AvisoID, "Sendung auf ABGEKLÄRT (TR) gesetzt", "Sendung '" & SENDUNG_TMP.tblSnd_PosUnterNr & " " & SENDUNG_TMP.tblSnd_Empfaenger & "' auf ABGEKLÄRT (TR) gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm"))
@@ -5629,7 +5710,7 @@ Public Class AvisoStatusFunctions
'If VERAG_PROG_ALLGEMEIN.cAllgemein.ABTEILUNG = "QS" Then
' SENDUNG_TMP.tblSnd_QS_MA = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID
'End If
If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId IsNot Nothing Then SENDUNG_TMP.tblSnd_TeamId = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId
' If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId IsNot Nothing Then SENDUNG_TMP.tblSnd_TeamId = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId
SENDUNG_TMP.tblSnd_AbfertigungTR = Now 'SENDUNG_TMP.tblSnd_Status=VERAG_PROG_ALLGEMEIN.vor ' Status macht keinen Sinn..
AvisoDAL.addAenderung(AvisoID, "Sendung auf ABGEFERTIGT (TR) gesetzt", "Sendung '" & SENDUNG_TMP.tblSnd_PosUnterNr & " " & SENDUNG_TMP.tblSnd_Empfaenger & "' auf ABGEFERTIGT (TR) gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm"))
@@ -5818,7 +5899,7 @@ Public Class AvisoStatusFunctions
If PathTmp <> "" Then anhaengeVersand.Add(PathTmp) : found = True
'---------------------------------------------------------
'AMBAR: BEI T2 auch Rechnung, CMR; Ausfuhr mitschicken!
'AMBAR: BEI T2 auch EXPORT_DOCS mitschicken! ' ------------------------'''Rechnung, CMR; Ausfuhr
'---------------------------------------------------------
If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("FREIGABEMAIL_T2_ANHAENGER") Then '--> nur bei AMBAR gesetzt
Select Case s.tblSnd_Abfertigungsart_ID
@@ -5827,7 +5908,8 @@ Public Class AvisoStatusFunctions
VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge.LOAD_LIST_BySendung(ANH_LIST, s.tblSnd_SendungID) 'LÄDT alle Aviso-Anhänge
For Each l In ANH_LIST
Select Case l.anh_Art.ToString.ToUpper
Case "RECHNUNG", "CMR", "AUSFUHR", "COO", "PACKLISTE"
' Case "RECHNUNG", "CMR", "AUSFUHR", "COO", "PACKLISTE"
Case "EXPORT_DOCS"
Dim PathTmpANH = (New VERAG_PROG_ALLGEMEIN.cDATENSERVER(l.anh_docId)).GET_TOP1_PATH(False)
If PathTmpANH <> "" Then anhaengeVersand.Add(PathTmpANH) : found = True
End Select
@@ -6155,9 +6237,9 @@ Public Class AvisoStatusFunctions
' Exit Sub
' End If
'End If
'' Next
'' Next
Dim zoll As New SDL.frmKundenUebersichtZOLL(kdnr)
zoll.Show()
If zoll IsNot Nothing Then zoll.Show()
End Sub