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

Grenzstelle, ATILLA NEUHAUS

Browse Source
This commit is contained in:
Andreas Luxbauer
2023-08-11 09:28:15 +02:00
parent 3afa680d27
commit e9c95c8fdf
10 changed files with 322 additions and 261 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
Aviso/frmHauptfenster.vb
View File

@@ -930,7 +930,7 @@ Public Class frmHauptfenster
If cboGrenzstelle._value = "ALLE_WO" Then
hSQL += " AND Grenzstelle IN (SELECT [grz_Grenzstelle] FROM [tblGrenzstelle] where (grz_Warenort=1 AND grz_Firma ='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' OR grz_Cluster='" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "' ) ) "
hSQL += " AND Grenzstelle IN (SELECT [grz_Grenzstelle] FROM [tblGrenzstelle] where (grz_Warenort=1 AND (grz_Firma ='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' OR grz_Cluster='" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "' )) ) "
Else
' If SucheStandort <> "" Then hSQL += " AND Grenzstelle = '" & SucheStandort & "'"
@@ -1245,7 +1245,7 @@ Public Class frmHauptfenster
'If cboMy_Grenzstelle._value.Replace("ALLE_BACK", "") <> "" Then sqlStr &= " AND Grenzstelle = '" & cboMy_Grenzstelle._value & "'"
If cboMy_Grenzstelle._value = "ALLE_WO" Then
sqlStr += " AND Grenzstelle IN (SELECT [grz_Grenzstelle] FROM [tblGrenzstelle] where (grz_Warenort=1 AND grz_Firma ='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' OR grz_Cluster='" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "' ) ) "
sqlStr += " AND Grenzstelle IN (SELECT [grz_Grenzstelle] FROM [tblGrenzstelle] where (grz_Warenort=1 AND (grz_Firma ='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' OR grz_Cluster='" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "' )) ) "
ElseIf cboMy_Grenzstelle._value.Replace("ALLE_BACK", "") <> "" Then
sqlStr &= " AND Grenzstelle = '" & cboMy_Grenzstelle._value & "'"
@@ -1299,7 +1299,7 @@ Public Class frmHauptfenster
' Case CheckState.Indeterminate : sqlStr &= " AND tblSnd_Vorbereitet is not null "
End Select
If cboMy_Grenzstelle._value = "ALLE_WO" Then
sqlStr += " AND Grenzstelle IN (SELECT [grz_Grenzstelle] FROM [tblGrenzstelle] where (grz_Warenort=1 AND grz_Firma ='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' OR grz_Cluster='" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "' ) ) "
sqlStr += " AND Grenzstelle IN (SELECT [grz_Grenzstelle] FROM [tblGrenzstelle] where (grz_Warenort=1 AND (grz_Firma ='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' OR grz_Cluster='" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "' )) ) "
Else
If cboMy_Grenzstelle._value.Replace("ALLE_BACK", "") <> "" Then sqlStr &= " AND Grenzstelle = '" & cboMy_Grenzstelle._value & "'"
@@ -2740,8 +2740,8 @@ Public Class frmHauptfenster
btnWichtigeStandort.Visible = False
Panel2.Visible = False
Label4.Visible = False
cboGrenzstelle.Visible = False
' Label4.Visible = False '- -> NICHT MEHR
' cboGrenzstelle.Visible = Falsee '- -> NICHT MEHR
'BürgschaftenExcelToolStripMenuItem.Visible = True
ATGesamtsicherheitVeragCSToolStripMenuItem.Visible = True
'ToolStripMenuItem4.Visible = True
@@ -6540,6 +6540,8 @@ Public Class AvisoStatusFunctions
Case 5, 6, 18, 24, 32, 33, 34, 37, 40 'Versand
gestellungsadresse = "<td>" & s.getNCTSAdress(True, True, False) & "</td>"
getDataFronDY_NCTS(s.tblSnd_SendungID, AtcMrn, frist, DsId, s.FilialenNr, s.AbfertigungsNr, s.tblSnd_Abfertigungsart_ID, s.tblSnd_DakosyRef)
If KUNDE_ERW.EmailFreigabe_VBDPDF And IsNumeric(DsId) Then 'VBD anhängen
Try
@@ -6746,7 +6748,7 @@ Public Class AvisoStatusFunctions
'Wenn nichts gefunden:
Dim ZOLLANMELDUNG As New DAKOSY_Worker.cZollsysteme_Aktenbeschriftung
ZOLLANMELDUNG.getDataByBezugsnummer(FilialenNr & "/" & AbfertigungsNr, tblSnd_Abfertigungsart_ID.ToString, tblSnd_DakosyRef) ' Die weiteren Daten werden hier geladen
ZOLLANMELDUNG.getDataByBezugsnummer(FilialenNr & "/" & AbfertigungsNr, tblSnd_Abfertigungsart_ID.ToString, tblSnd_DakosyRef, False) ' Die weiteren Daten werden hier geladen
If ZOLLANMELDUNG IsNot Nothing Then
AtcMrn = ZOLLANMELDUNG.ATCMRN
'dsId = dt.Rows(0)("DsId")