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

frmHauotfensterNew

Browse Source
This commit is contained in:
Andreas Luxbauer
2026-01-14 08:41:23 +01:00
parent e6f557a4c2
commit 3b8623f46f
42 changed files with 6037 additions and 2964 deletions
Download Patch File Download Diff File Expand all files Collapse all files

98
Aviso/frmSendungsdetailsNEU.vb
View File

@@ -469,6 +469,8 @@ Public Class frmSendungsdetailsNEU
FlowLayoutPanel.Visible = False
End If
Try
Panel5.BackColor = VERAG_PROG_ALLGEMEIN.cAllgemein.cSPECIFIC.FIRMA_BgColor
@@ -509,6 +511,17 @@ Public Class frmSendungsdetailsNEU
VERAG_PROG_ALLGEMEIN.cSendungen.LOAD_LIST(SENDUNG_LIST, CURRENT_INDEX, AvisoId) 'LÄDT alle SENDUNGSDATEN
If SENDUNG_LIST Is Nothing OrElse SENDUNG_LIST.Count = 0 Then
If vbYes = MsgBox("Der Sammelakt enthält keine Sendungen, möchten Sie die erste Sendung anlegen?", vbYesNoCancel) Then
ADD_SND(False)
Else
Me.Close()
Exit Sub
End If
End If
Dim sbWhere = ""
Dim QSwhere = ""
@@ -1179,44 +1192,7 @@ Public Class frmSendungsdetailsNEU
'b_add.Font.FontFamily, 14, FontStyle.Bold)
b_add.BackColor = Color.LightGray()
AddHandler b_add.Click, Sub(send As Object, ev As EventArgs)
If AVISO.Abgeschlossen Then Exit Sub
' Dim currentHisId = 0
' Try : currentHisId = AVISO_newDataSet.tblSendungen.Select("tblSnd_PosUnterNr=MAX(tblSnd_PosUnterNr)")(0).Item("tblSnd_PosUnterNr") : Catch : End Try
' currentHisId += 1
Dim filiale_tmp As Integer = 0
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "IMEX" : filiale_tmp = 5501
Case "UNISPED" : filiale_tmp = 5601
Case "AMBAR" : filiale_tmp = 5701
Case "FRONTOFFICE" : filiale_tmp = 0 '5801
Case "VERIMEX" : filiale_tmp = 0 '6001
Case Else
Select Case AVISO.Grenzstelle
Case "SUB" : filiale_tmp = 4803
Case "SBG" : filiale_tmp = 5003
Case "WAI" : filiale_tmp = 5103
Case "NKD" : filiale_tmp = 5303
Case "SFD" : filiale_tmp = 4839
End Select
End Select
' loadDataInLIST()
If SAVE_ME() Then 'aktuelle Änderungen sichern
' Dim abfnr_tmp As Integer = IIf(filiale_tmp > 0, ADMIN.getMaxPosNrIncrement(filiale_tmp, Now.Year), 0)
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(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
initButtons()
End If
ADD_SND()
End Sub
FlowLayoutPanel.Controls.Add(b_add)
@@ -1232,6 +1208,52 @@ Public Class frmSendungsdetailsNEU
End Sub
Public Sub ADD_SND(Optional initAfter = True)
If AVISO.Abgeschlossen Then Exit Sub
' Dim currentHisId = 0
' Try : currentHisId = AVISO_newDataSet.tblSendungen.Select("tblSnd_PosUnterNr=MAX(tblSnd_PosUnterNr)")(0).Item("tblSnd_PosUnterNr") : Catch : End Try
' currentHisId += 1
Dim filiale_tmp As Integer = 0
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "IMEX" : filiale_tmp = 5501
Case "UNISPED" : filiale_tmp = 5601
Case "AMBAR" : filiale_tmp = 5701
Case "FRONTOFFICE" : filiale_tmp = 0 '5801
Case "VERIMEX" : filiale_tmp = 0 '6001
Case Else
Select Case AVISO.Grenzstelle
Case "SUB" : filiale_tmp = 4803
Case "SBG" : filiale_tmp = 5003
Case "WAI" : filiale_tmp = 5103
Case "NKD" : filiale_tmp = 5303
Case "SFD" : filiale_tmp = 4839
End Select
End Select
If SENDUNG_LIST IsNot Nothing AndAlso SENDUNG_LIST.Count > 0 Then 'Wenn noch keine Senungenen, nciht speichern
If Not SAVE_ME() Then Exit Sub 'Speichern, sonst abbruch
End If
' loadDataInLIST()
'If SAVE_ME() Then 'aktuelle Änderungen sichern
' Dim abfnr_tmp As Integer = IIf(filiale_tmp > 0, ADMIN.getMaxPosNrIncrement(filiale_tmp, Now.Year), 0)
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(False) 'Insert neue Sendung
VERAG_PROG_ALLGEMEIN.cSendungen.LOAD_LIST(SENDUNG_LIST, CURRENT_INDEX, AvisoId, False) 'Alle Sendungen neu laden
' initDataBinding()
If initAfter Then LAST_SENDUNG(False) 'letzte Sendung
initButtons()
'End If
End Sub
Public Sub Duplicate(index)
' loadDataInLIST()
SAVE_ME()