From 2d80c9371080533943198993c62c716fd2e5eb0f Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Mon, 30 Mar 2026 11:02:06 +0200 Subject: [PATCH 1/3] Aktweiterleitung WO, etc. --- .../Benachrichtigung/frmAvisoWeiterleiten.vb | 11 ++++++-- Aviso/usrcntlAktDetails.vb | 25 ++++++++++++++++++- 2 files changed, 33 insertions(+), 3 deletions(-) diff --git a/Aviso/Benachrichtigung/frmAvisoWeiterleiten.vb b/Aviso/Benachrichtigung/frmAvisoWeiterleiten.vb index 4138c2f..afc388d 100644 --- a/Aviso/Benachrichtigung/frmAvisoWeiterleiten.vb +++ b/Aviso/Benachrichtigung/frmAvisoWeiterleiten.vb @@ -330,8 +330,15 @@ Public Class frmAvisoWeiterleiten Next End If ElseIf sender Is Button2 Then - addBtn(flpFirma, "W", "FO_WIHD", "KÖRFEZ 61", True, "VERAG") - addBtn(flpFirma, "W", "WO_MERIS", "MERIS", True, "VERAG") + + + Dim dt As DataTable = SQL.loadDgvBySql("SELECT grz_Grenzstelle, grz_Bezeichnung, grz_Firma FROM tblGrenzstelle WHERE grz_FreigabeWeb = 1 and grz_Firma is not null order by grz_Grenzstelle", "AVISO") + If dt IsNot Nothing Then + For Each t In dt.Rows + addBtn(flpFirma, "W", t("grz_Grenzstelle"), t("grz_Bezeichnung"), True, t("grz_Firma")) + Next + End If + End If diff --git a/Aviso/usrcntlAktDetails.vb b/Aviso/usrcntlAktDetails.vb index 71b9fde..84cab1a 100644 --- a/Aviso/usrcntlAktDetails.vb +++ b/Aviso/usrcntlAktDetails.vb @@ -962,6 +962,7 @@ Public Class usrcntlAktDetails If Not IsDBNull(row.Cells("anh_markiert").Value) Then If row.Cells("anh_markiert").Value Then row.DefaultCellStyle.BackColor = Color.Yellow End If + Next End With @@ -1339,8 +1340,13 @@ Public Class usrcntlAktDetails If Not existCodeInGridVermerke_VK(gridvermerke, r.Cells("VorauskasseId").Value) Then optionCell.Value = paarBez optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk '" & paarBez & "' einzutragen." + + If Not existCodeInGridVermerke_UeberweisungsbelegErhalten(gridvermerke, r.Cells("VorauskasseId").Value) Then + r.DefaultCellStyle.BackColor = Color.Yellow 'gelb markiert, nur wenn Überweisungsbeleg noch nicht erhalten! + End If + End If - Else + Else If Not existCodeInGridVermerke_VK_OLD(gridvermerke, r.Cells("SendungID").Value) Then optionCell.Value = paarBez optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk '" & paarBez & "' einzutragen." @@ -1444,6 +1450,23 @@ Public Class usrcntlAktDetails Return False End Function + Shared Function existCodeInGridVermerke_UeberweisungsbelegErhalten(gridVermerke As DataGridView, VorauskasseId As Object) As Boolean + + For Each r As DataGridViewRow In gridVermerke.Rows + If r.Cells("Geloescht").Value = False Then + Select Case If(DirectCast(r.Cells("VermerkeCode"), DataGridViewTextBoxCell).Value.ToString, "") + Case 79 + If DirectCast(r.Cells("VorauskasseId"), DataGridViewTextBoxCell).Value.ToString = CStr(VorauskasseId) Then + Return True + End If + End Select + End If + Next + Return False + End Function + + + Shared Function existCodeInGridVermerke_VK_OLD(gridVermerke As DataGridView, SendungID As Object) As Boolean From e464e3cd20849c9265a9c6ae3e97d5ab34ce2433 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Mon, 30 Mar 2026 14:27:49 +0200 Subject: [PATCH 2/3] ATB, etc. --- Aviso/usrCntlSND_ATBGestellung.vb | 20 +++++++++++++++++--- 1 file changed, 17 insertions(+), 3 deletions(-) diff --git a/Aviso/usrCntlSND_ATBGestellung.vb b/Aviso/usrCntlSND_ATBGestellung.vb index 46e1739..7891354 100644 --- a/Aviso/usrCntlSND_ATBGestellung.vb +++ b/Aviso/usrCntlSND_ATBGestellung.vb @@ -33,6 +33,7 @@ Public Class usrCntlSND_ATBGestellung Me.Refresh() Me.Cursor = Cursors.WaitCursor + Dim WarenwertEUR As Double = 0 Dim f As frmSendungsdetailsNEU = Me.FindForm If f.SAVE_ME() Then @@ -45,6 +46,13 @@ Public Class usrCntlSND_ATBGestellung If (SND.tblSnd_WarenwertWaehrung) Is Nothing Then MsgBox("Währungseinheit angeben!") : Exit Sub + If SND.tblSnd_WarenwertWaehrung <> "EUR" Then + Dim kurs As New cEZB_Waehrungskurse(SND.tblSnd_WarenwertWaehrung) + WarenwertEUR = Math.Round(kurs.EXCHANGE_CURTOEUR(SND.tblSnd_Warenwert, SND.tblSnd_WarenwertWaehrung, CDate(Today)), 2) + Else + WarenwertEUR = SND.tblSnd_Warenwert + End If + If If(SND.tblSnd_ATB_T1, "") = "" Then MsgBox("MRN (Gestellung) angeben!") : Exit Sub If SND.tblSnd_T1_Frist IsNot Nothing AndAlso IsDate(SND.tblSnd_T1_Frist) Then @@ -60,6 +68,12 @@ Public Class usrCntlSND_ATBGestellung End If + If WarenwertEUR = 0 Then + MsgBox("Warenwert in EUR ist mit 0 angegeben!") + Exit Sub + + End If + Dim Standort As String = "" Select Case SND.FilialenNr @@ -103,13 +117,13 @@ Public Class usrCntlSND_ATBGestellung Dim saldo = CDbl(GesSichRef.CalcSaldo()) - Dim sicherheitsbertrag As Double = SND.tblSnd_Warenwert * (GesSichRef.gsr_zollsatz / 100) + Dim sicherheitsbertrag As Double = WarenwertEUR * (GesSichRef.gsr_zollsatz / 100) If sicherheitsbertrag > saldo Then - If MsgBox("Gestellung kann NICHT durchgeführt werden!" & vbNewLine & "Eingetragener Warenwert: " & SND.tblSnd_Warenwert & " (Sicherheitsbetrag: " & sicherheitsbertrag & ") übersteigt den vorhandenen Sicherheitssaldo von: " & saldo & vbNewLine & "Trotzdem fortfahren", vbYesNoCancel) <> vbYes Then Exit Sub + If MsgBox("Gestellung kann NICHT durchgeführt werden!" & vbNewLine & "Eingetragener Warenwert in EUR: " & WarenwertEUR & " (Sicherheitsbetrag: " & sicherheitsbertrag & ") übersteigt den vorhandenen Sicherheitssaldo von: " & saldo & vbNewLine & "Trotzdem fortfahren", vbYesNoCancel) <> vbYes Then Exit Sub End If - Dim frMZA As New SDL.frmZollanmeldung("AA", Nothing, AVISO, SND, Now.ToString("yy"), GesSichRef, Standort, gsnr_proLKW_global) + Dim frMZA As New SDL.frmZollanmeldung("AA", Nothing, AVISO, SND, Now.ToString("yy"), GesSichRef, Standort, WarenwertEUR, gsnr_proLKW_global) frMZA.Show() From c3be64712c0cc243636b1e5e504cb016c347e6ba Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Mon, 30 Mar 2026 14:34:30 +0200 Subject: [PATCH 3/3] version --- Aviso/My Project/AssemblyInfo.vb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Aviso/My Project/AssemblyInfo.vb b/Aviso/My Project/AssemblyInfo.vb index ee0c13f..4b8e943 100644 --- a/Aviso/My Project/AssemblyInfo.vb +++ b/Aviso/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + +