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

SEndungsdetails ATilla

Browse Source
This commit is contained in:
Andreas Luxbauer
2025-02-19 10:50:13 +01:00
parent 390d5353f2
commit 7823d11489
19 changed files with 2603 additions and 4038 deletions
Download Patch File Download Diff File Expand all files Collapse all files

42
Aviso/frmSendungsdetailsNEU.vb
View File

@@ -177,8 +177,42 @@ Public Class frmSendungsdetailsNEU
Dim FilialeAktFirma = VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale2(SENDUNG_LIST(CURRENT_INDEX).FilialenNr,, "")
lblErr_AvisiererKdNr.Visible = False
lblErr_EmpfKdNr.Visible = False
lblErr_Auftrageber.Visible = False
lblErr_FraechterKdNr.Visible = False
If showErr Then
lblFilialeAbfNr.Visible = False
lblAbfArtLand.Visible = False
End If
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" Then
If cboFiliale._value = "" Then
rtbValidierung.Text &= "Wählen Sie eine FilialenNr!" & vbNewLine : pnlValidation.Visible = True
If showErr Then lblFilialeAbfNr.Visible = True : Return False
End If
If btnNeueAbfertigungNrVergeben.Visible OrElse txtAbfertigungsnummer.Text = "" Then
rtbValidierung.Text &= "Wählen Sie eine Abfertigungs-Nummer!" & vbNewLine : pnlValidation.Visible = True
If showErr Then lblFilialeAbfNr.Visible = True : Return False
End If
If cboAbfertigungsart._value = "" Then
rtbValidierung.Text &= "Wählen Sie eine Abfertigungs-Art!" & vbNewLine : pnlValidation.Visible = True
If showErr Then lblAbfArtLand.Visible = True : Return False
End If
If cboAbfertigungsLand._value = "" Then
rtbValidierung.Text &= "Wählen Sie eine Abfertigungs-Land!" & vbNewLine : pnlValidation.Visible = True
If showErr Then lblAbfArtLand.Visible = True : Return False
End If
If txtAuftraggeber.Text = "" Then
rtbValidierung.Text &= "Wählen Sie einen Auftraggeber!" & vbNewLine : pnlValidation.Visible = True
If showErr Then lblErr_Auftrageber.Visible = True : Return False
End If
End If
'--------------------------------------------------
@@ -202,6 +236,7 @@ Public Class frmSendungsdetailsNEU
Case Else
If CInt(If(SENDUNG_LIST(CURRENT_INDEX).tblSnd_AvisiererKdNr, "0")) <= 0 Then rtbValidierung.Text &= "- Aviserer KdNr fehlt" & vbNewLine : pnlValidation.Visible = True ' lblErr_AvisiererKdNr.Visible = True : Return False
If SENDUNG_LIST(CURRENT_INDEX).tblSnd_EmpfaengerKdNr <= 0 Then rtbValidierung.Text &= "- Empfänger KdNr fehlt" & vbNewLine : pnlValidation.Visible = True 'lblErr_EmpfKdNr.Visible = True : Return False
If SENDUNG_LIST(CURRENT_INDEX).tblSnd_AuftraggeberKdNr <= 0 Then rtbValidierung.Text &= "- Auftraggeber KdNr fehlt" & vbNewLine : pnlValidation.Visible = True 'lblErr_EmpfKdNr.Visible = True : Return False
If CInt(If(SENDUNG_LIST(CURRENT_INDEX).tblSnd_FrachtfuehrerKdNr, "0")) <= 0 Then rtbValidierung.Text &= "- Frächter KdNr fehlt" & vbNewLine : pnlValidation.Visible = True 'lblErr_FraechterKdNr.Visible = True : Return False
End Select
If Not SENDUNG_LIST(CURRENT_INDEX).tblSnd_Fremdspedition Then
@@ -474,6 +509,7 @@ Public Class frmSendungsdetailsNEU
'rtbAnmerkungDispoliste.Visible = False
Case "ATILLA" : sbWhere = " AND Niederlassung = 'SUA' "
TabControl1.SelectedTab = tbAnhang
Case "VERIMEX"
TabControl1.SelectedTab = tbAnhang
Case "UNISPED"
@@ -1035,7 +1071,7 @@ Public Class frmSendungsdetailsNEU
MsgBox("Diese Sendung kann nicht gelöscht werden!")
Exit Sub
Else
If SAVE_ME() Then ' Änderungen speichern
If True Then 'SAVE_ME() Then ' Änderungen speichern
Dim sendBez = SENDUNG_LIST(b.value).tblSnd_PosUnterNr & ". "
sendBez &= ADMIN.getValueTxtBySql("SELECT Abfertigungsbezeichnung FROM Abfertigungsarten WHERE [Abfertigungsart]='" & SENDUNG_LIST(b.value).tblSnd_Abfertigungsart_ID & "'", "FMZOLL")
@@ -1283,12 +1319,14 @@ Public Class frmSendungsdetailsNEU
whereFiliale = " AND FilialenNr IN (4803,4805,4811,5003,5303,5103,4839,5501,5601,5701,5801,7001) "
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "AMBAR" Then
whereFiliale = " AND FilialenNr IN (4803,4805,4811,5003,5303,5103,4839,5501,5601,5801,5701,7001) "
ElseIf VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERIMEX" Then
whereFiliale = " AND FilialenNr IN (4801,4802,4803,4805,4811,5003,5303,5103,4839,5501,5601,5801,5701,7001) "
End If
Case Else
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "ATILLA"
whereFiliale = " AND FilialenNr IN (4801) "
whereFiliale = " AND FilialenNr IN (4801,4802) "
Case "AMBAR"
whereFiliale = " AND FilialenNr IN (5701) "
Case Else