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-03-21 09:19:52 +01:00
parent 4491b88deb
commit a4ad6cc8c8
68 changed files with 12141 additions and 6529 deletions
Download Patch File Download Diff File Expand all files Collapse all files

182
Aviso/frmSendungsdetailsNEU.vb
View File

@@ -111,12 +111,12 @@ Public Class frmSendungsdetailsNEU
SAVE_ME = True
If saveAll Then
For Each s In SENDUNG_LIST
If s.SAVE() = False Then SAVE_ME = False
If s.SAVE(False) = False Then SAVE_ME = False
s.SAVE_HANDLING() 'derzeit ohne Funktion
s.SAVE_VORKOSTEN() 'derzeit ohne Funktion
Next
Else
SENDUNG_LIST(CURRENT_INDEX).SAVE() 'Nur noch aktuelle Sendung speichern
SENDUNG_LIST(CURRENT_INDEX).SAVE(False) 'Nur noch aktuelle Sendung speichern
SENDUNG_LIST(CURRENT_INDEX).SAVE_HANDLING() 'derzeit ohne Funktion
SENDUNG_LIST(CURRENT_INDEX).SAVE_VORKOSTEN() 'derzeit ohne Funktion
End If
@@ -227,6 +227,14 @@ Public Class frmSendungsdetailsNEU
' If e.Modifiers = Keys.Shift AndAlso e.KeyCode = Keys.D9 Then tmpsendId = 18
' If e.Modifiers = Keys.Shift AndAlso e.KeyCode = Keys.D0 Then tmpsendId = 19
If e.Modifiers = Keys.Alt AndAlso e.KeyCode = Keys.D1 Then TabControl1.SelectedIndex = 0
If e.Modifiers = Keys.Alt AndAlso e.KeyCode = Keys.D2 Then TabControl1.SelectedIndex = 1
If e.Modifiers = Keys.Alt AndAlso e.KeyCode = Keys.D3 Then TabControl1.SelectedIndex = 2
If e.Modifiers = Keys.Alt AndAlso e.KeyCode = Keys.D4 Then TabControl1.SelectedIndex = 3
If e.Modifiers = Keys.Alt AndAlso e.KeyCode = Keys.D5 Then TabControl1.SelectedIndex = 4
If e.Modifiers = Keys.Alt AndAlso e.KeyCode = Keys.D6 Then TabControl1.SelectedIndex = 5
If tmpsendId >= 0 Then
Try : If tmpsendId < SENDUNG_LIST.Count Then
CURRENT_INDEX = tmpsendId
@@ -315,6 +323,8 @@ Public Class frmSendungsdetailsNEU
'rtbAnmerkungDispoliste.Visible = False
Case "ATILLA" : sbWhere = " AND Niederlassung = 'SUA' "
Case "VERIMEX"
TabControl1.SelectedTab = tbAnhang
Case "UNISPED"
txtDyRef.Visible = True
picDy.Visible = True
@@ -599,6 +609,26 @@ Public Class frmSendungsdetailsNEU
End Try
End Sub
Private Sub kdAvisierer_KeyDown(sender As Object, e As KeyEventArgs) Handles txtAuftraggeber.KeyDown
If e.Modifiers = Keys.Control And e.KeyCode = Keys.D0 Then
LinkLabel1_LinkClicked(LinkLabel1, New EventArgs)
End If
End Sub
Private Sub txtEmpfaenger_KeyDown(sender As Object, e As KeyEventArgs) Handles txtEmpfaenger.KeyDown
If e.Modifiers = Keys.Control And e.KeyCode = Keys.D0 Then
lklAuftraggeber_LinkClicked(lklAuftraggeber, New EventArgs)
End If
End Sub
Private Sub txtAbsender_KeyDown(sender As Object, e As KeyEventArgs) Handles txtAbsender.KeyDown
If e.Modifiers = Keys.Control And e.KeyCode = Keys.D0 Then
LinkLabel2_LinkClicked(LinkLabel2, New EventArgs)
End If
End Sub
Private Sub txtFrachtfuehrer_KeyDown(sender As Object, e As KeyEventArgs) Handles txtFrachtfuehrer.KeyDown
If e.Modifiers = Keys.Control And e.KeyCode = Keys.D0 Then
LinkLabel4_LinkClicked(LinkLabel4, New EventArgs)
End If
End Sub
Sub fillUIDEORI(kdSB As VERAG_PROG_ALLGEMEIN.KdSearchBox)
btnEORIPruef.Visible = False
btnUIDPruef.Visible = False
@@ -700,6 +730,9 @@ Public Class frmSendungsdetailsNEU
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("frmSendungsdetails", Me) And Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("frmSendungsdetailsNEU", Me) Then
Me.Close()
End If
If TabControl1.SelectedTab Is tbKundenInfo Then
txtAuftraggeber.Focus() ' Damit in tbKundeninfo ausgewählt
End If
' Button13.Location = New Point(Button13.Left, 0)
' Dim ber As Integer = VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG(Me)
' If ber >= 99 Then
@@ -873,7 +906,7 @@ Public Class frmSendungsdetailsNEU
Dim NEW_SND As New VERAG_PROG_ALLGEMEIN.cSendungen(AvisoId, SENDUNG_LIST.Count + 1, filiale_tmp, Nothing, 0, 0) 'Neue Sendung erstellen
' SENDUNG_LIST.Add(NEW_SND)
NEW_SND.SAVE() 'Insert neue Sendung
NEW_SND.SAVE(False) 'Insert neue Sendung
VERAG_PROG_ALLGEMEIN.cSendungen.LOAD_LIST(SENDUNG_LIST, CURRENT_INDEX, AvisoId, False) 'Alle Sendungen neu laden
' initDataBinding()
LAST_SENDUNG(False) 'letzte Sendung
@@ -1291,7 +1324,7 @@ Public Class frmSendungsdetailsNEU
' initSpeditionbuch()
initTab()
initGesColliGewicht()
initKdInfo(-1)
' initKdInfo(-1)
SENDUNG_LIST(CURRENT_INDEX).LOAD_VORKOSTEN()
If tbcntr.SelectedTab Is tbBAR Then
@@ -1304,8 +1337,28 @@ Public Class frmSendungsdetailsNEU
sperrePanel()
LOAD_ABRECHUNG()
'STARK Spezial:
'-------------------------
If SENDUNG_LIST(CURRENT_INDEX).tblSnd_AvisiererKdNr = 714875 Then
If txtAuftraggeber.Text = "" Then txtAuftraggeber.KdNr = 714875
If txtAbsender.Text = "" Then txtAbsender.KdNr = 719810
If txtEmpfaenger.Text = "" Then txtEmpfaenger.KdNr = 714875
If txtAuftraggeber.Text = "" Then txtAuftraggeber.KdNr = 714875
If SENDUNG_LIST(CURRENT_INDEX).ABRECHNUNG.Count = 0 Then
cntlAuftr_Zoll.lbl.Text = "X"
cntlAuftr_Eust.lbl.Text = "X"
cntlAuftr_Abf.lbl.Text = "X"
End If
End If
'-------------------------
Panel2.MinimumSize = New Size(0, FlowLayoutPanel.Height) '+ pnlheader.Height) ' damit das S***** Flowlayoutpanel nicht abgeschnitten wird...
'SAVE_ME ??????!!!!!!!
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
@@ -1786,7 +1839,9 @@ Public Class frmSendungsdetailsNEU
Private Sub setCboSelected(standardDrucker As String)
If Me.InvokeRequired Then
Dim d As New setCboSelectedCallback(AddressOf setCboSelected)
Me.Invoke(d, New Object() {standardDrucker})
Try
Me.Invoke(d, New Object() {standardDrucker})
Catch ex As Exception : End Try
Else
Dim found As Boolean = False
' For Each i In cboPrinter.Items
@@ -2868,6 +2923,12 @@ Public Class frmSendungsdetailsNEU
initVermerke()
ElseIf TabControl1.SelectedTab Is tbAnhang Then
initAnhang()
ElseIf TabControl1.SelectedTab Is tbKundenInfo Then
Dim kdSrc As VERAG_PROG_ALLGEMEIN.KdSearchBox = txtAuftraggeber
If kdSrc.KdNr_value <= 0 Then kdSrc = txtEmpfaenger
kdSrc.Focus() ' Damit in tbKundeninfo ausgewählt
initKdInfo(kdSrc.KdNr_value)
Button13.Focus() 'Damit focus wieder weggeht
End If
End Sub
@@ -3861,7 +3922,7 @@ Public Class frmSendungsdetailsNEU
For Each s In SENDUNG_LIST
s.tblSnd_KdAuftragsNrAvisierer = Atrnr
s.SAVE()
s.SAVE(False)
Next
End Sub
@@ -4296,7 +4357,7 @@ Public Class frmSendungsdetailsNEU
If vbYes = MsgBox("Möchten Sie die Vorkosten-Position wirklich löschen?", vbYesNoCancel) Then
Dim VK = SENDUNG_LIST(CURRENT_INDEX).VORKOSTEN.Find(Function(x) x.sndvk_id = dgvVorkosten.SelectedRows(0).Cells("clmnVK_id").Value)
SENDUNG_LIST(CURRENT_INDEX).VORKOSTEN.Remove(VK)
SENDUNG_LIST(CURRENT_INDEX).SAVE()
SENDUNG_LIST(CURRENT_INDEX).SAVE(False)
initDGVVorkosten()
End If
End If
@@ -4600,7 +4661,8 @@ Public Class frmSendungsdetailsNEU
Mail.Attachments.Add(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(r.Cells("anh_docId").Value), Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue)
Next
Mail.Subject = AVISO.ImEx & " / " & AVISO.LKW_Nr & " / " & "ETA: " & If(AVISO.VoraussichtlichesEintreffen IsNot Nothing, CDate(AVISO.VoraussichtlichesEintreffen).ToShortDateString, "") & " // VERAG"
Mail.To = "european@atanak.com"
'Mail.To = "european@atanak.com"
Mail.To = "european@dailygroupage.com"
Dim TextHTML = ""
TextHTML &= "Dear Atanak Team,<br>"
@@ -4708,8 +4770,110 @@ Public Class frmSendungsdetailsNEU
VERAG_PROG_ALLGEMEIN.cFormularManager.PrintViaSpirePDF({VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(l.anh_docId)})
End Select
Next
For Each l In ANH_LIST_SND
Select Case l.anh_Art.ToString.ToUpper
Case "ATR"
VERAG_PROG_ALLGEMEIN.cFormularManager.PrintViaSpirePDF({VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(l.anh_docId)})
End Select
Next
End Sub
Private Sub KreditlimitRisikobewertungToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles KreditlimitRisikobewertungToolStripMenuItem.Click
checkKreditlimit(Me, AVISO, SENDUNG_LIST(CURRENT_INDEX), False, True)
End Sub
Shared Sub checkKreditlimit_ID(FORM As Form, ByRef AvisoID As Integer, ByRef SendungsID As Integer, allowInsertVermerk As Boolean, showNoErg As Boolean)
Dim AVISO = VERAG_PROG_ALLGEMEIN.cAviso.getAvisoById(AvisoID)
Dim SND = New VERAG_PROG_ALLGEMEIN.cSendungen(SendungsID)
checkKreditlimit(FORM, AVISO, SND, allowInsertVermerk, showNoErg)
End Sub
Shared Sub checkKreditlimit(FORM As Form, ByRef AVISO As VERAG_PROG_ALLGEMEIN.cAviso, ByRef SND As VERAG_PROG_ALLGEMEIN.cSendungen, allowInsertVermerk As Boolean, showNoErg As Boolean)
Try
If AVISO Is Nothing Then Exit Sub
If SND Is Nothing Then Exit Sub
FORM.Cursor = Cursors.WaitCursor
Dim listKdNr As New List(Of Integer)
Dim f As frmSndVorgeschriebenSetzen = Nothing
Dim TmpKdNr As Integer
Dim found = False
If SND.ABRECHNUNG.Exists(Function(x) x.sndabr_beteiligter = "EMPF") Then ' Wenn barechnugn an Empf
TmpKdNr = SND.tblSnd_EmpfaengerKdNr
If Not listKdNr.Contains(TmpKdNr) Then
f = New AVISO.frmSndVorgeschriebenSetzen(AVISO, SND, TmpKdNr)
f.ShowDialog(FORM)
If f.ueberschreitungFound Then
found = True
If allowInsertVermerk Then AvisoStatusFunctions.insertSendungsVermerk(SND.tblSnd_SendungID, AVISO.AvisoID, "Kreditlimit überzogen: " & SND.tblSnd_Empfaenger & " | " & f.lblUeberzeihung.Text, 95,,, True)
End If
listKdNr.Add(TmpKdNr)
End If
End If
FORM.Cursor = Cursors.WaitCursor
If SND.ABRECHNUNG.Exists(Function(x) x.sndabr_beteiligter = "AUFTR") Then ' Wenn barechnugn an Empf
TmpKdNr = SND.tblSnd_AuftraggeberKdNr
If Not listKdNr.Contains(TmpKdNr) Then
f = New AVISO.frmSndVorgeschriebenSetzen(AVISO, SND, TmpKdNr)
f.ShowDialog(FORM)
If f.ueberschreitungFound Then
found = True
If allowInsertVermerk Then AvisoStatusFunctions.insertSendungsVermerk(SND.tblSnd_SendungID, AVISO.AvisoID, "Kreditlimit überzogen: " & SND.tblSnd_Auftraggeber & " | " & f.lblUeberzeihung.Text, 95,,, True)
End If
listKdNr.Add(TmpKdNr)
End If
End If
FORM.Cursor = Cursors.WaitCursor
If SND.ABRECHNUNG.Exists(Function(x) x.sndabr_beteiligter = "ABS") Then ' Wenn barechnugn an Empf
TmpKdNr = SND.tblSnd_AbsenderKdNr
If Not listKdNr.Contains(TmpKdNr) Then
f = New AVISO.frmSndVorgeschriebenSetzen(AVISO, SND, TmpKdNr)
f.ShowDialog(FORM)
If f.ueberschreitungFound Then
found = True
If allowInsertVermerk Then AvisoStatusFunctions.insertSendungsVermerk(SND.tblSnd_SendungID, AVISO.AvisoID, "Kreditlimit überzogen: " & SND.tblSnd_Absender & " | " & f.lblUeberzeihung.Text, 95,,, True)
End If
listKdNr.Add(TmpKdNr)
End If
End If
FORM.Cursor = Cursors.WaitCursor
If SND.ABRECHNUNG.Exists(Function(x) x.sndabr_beteiligter = "AVISIERER") Then ' Wenn barechnugn an Empf
TmpKdNr = SND.tblSnd_AvisiererKdNr
If Not listKdNr.Contains(TmpKdNr) Then
f = New AVISO.frmSndVorgeschriebenSetzen(AVISO, SND, TmpKdNr)
f.ShowDialog(FORM)
If f.ueberschreitungFound Then
found = True
If allowInsertVermerk Then AvisoStatusFunctions.insertSendungsVermerk(SND.tblSnd_SendungID, AVISO.AvisoID, "Kreditlimit überzogen: " & SND.tblSnd_Avisierer & " | " & f.lblUeberzeihung.Text, 95,,, True)
End If
listKdNr.Add(TmpKdNr)
End If
End If
FORM.Cursor = Cursors.WaitCursor
If SND.ABRECHNUNG.Exists(Function(x) x.sndabr_beteiligter = "FRACHTF") Then ' Wenn barechnugn an Empf
TmpKdNr = SND.tblSnd_FrachtfuehrerKdNr
If Not listKdNr.Contains(TmpKdNr) Then
f = New AVISO.frmSndVorgeschriebenSetzen(AVISO, SND, TmpKdNr)
f.ShowDialog(FORM)
If f.ueberschreitungFound Then
found = True
If allowInsertVermerk Then AvisoStatusFunctions.insertSendungsVermerk(SND.tblSnd_SendungID, AVISO.AvisoID, "Kreditlimit überzogen: " & SND.tblSnd_Frachtfuehrer & " | " & f.lblUeberzeihung.Text, 95,,, True)
End If
listKdNr.Add(TmpKdNr)
End If
End If
If Not found Then
If showNoErg Then MsgBox("Keine Überschreitungen gefunden.")
End If
Catch ex As Exception
End Try
FORM.Cursor = Cursors.Default
End Sub
End Class