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

AbfertArt Land in Anzeige

Browse Source
This commit is contained in:
Andreas Luxbauer
2025-03-11 08:02:48 +01:00
parent a5e0f08596
commit 4dd9f87975
7 changed files with 29 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
Aviso/frmHauptfenster.vb
View File

@@ -1519,7 +1519,7 @@ ELSE_ATILLA:
End If
sqlStr = " SELECT AvisoID, CASE WHEN [LKW_fertig] = 1 THEN 'OK' ELSE '' END AS [LKW_fertig],CASE WHEN [VerwahrungStatus] = 1 THEN 'OK' ELSE '' END AS [VerwahrungStatus], [Status],tblSendungen.LetzterMitarbeiterId,tblSendungen.LetzterMitarbeiter, LKW_Nr, VoraussichtlichesEintreffen,Dauer, Datum, AvisoEingang, Ankunft, Grenzstelle, Freigabe, Aviso.LetzterMitarbeiterId AS maId,AvisoTVHinweis " &
" ,tblSnd_Empfaenger,AbfertigungsNr,tblSnd_Abfertigungsart_ID,tblSnd_Vorgeschrieben,tblSnd_Vorbereitet,tblSnd_Status,tblSnd_SendungID,tblSnd_Fremdspedition,tblSnd_FremdspeditionText " &
" ,tblSnd_Empfaenger,AbfertigungsNr,tblSnd_Abfertigungsart_ID,isnull(tblSnd_Zollsystem_Land,'')tblSnd_Zollsystem_Land,tblSnd_Vorgeschrieben,tblSnd_Vorbereitet,tblSnd_Status,tblSnd_SendungID,tblSnd_Fremdspedition,tblSnd_FremdspeditionText " &
" FROM Aviso INNER JOIN tblSendungen ON AvisoID=tblSnd_AvisoID " &
" WHERE ( Status IN (0, 3, 4, 5) OR ( Status = 1 AND [Abgeschlossen] = 0 )) " &
sqlStrFirma & " AND ( " & inBearbeitungSQL & ") "
@@ -1719,6 +1719,7 @@ ELSE_ATILLA:
.Columns("tblSnd_Status").Visible = False
.Columns("tblSnd_Abfertigungsart_ID").Visible = False
.Columns("tblSnd_Zollsystem_Land").Visible = False
.Columns("tblSnd_Vorgeschrieben").Visible = False
.Columns("tblSnd_Vorbereitet").Visible = False
.Columns("tblSnd_SendungID").Visible = False
@@ -1767,7 +1768,7 @@ ELSE_ATILLA:
Dim t2 = New DataGridViewTextBoxColumn
t2.Name = "Abfertigungsart"
t2.HeaderText = "Abfertigungsart"
t2.Width = 90 : t.DefaultCellStyle.Padding = New Padding(2) : t2.DefaultCellStyle.BackColor = Color.White
t2.Width = 110 : t.DefaultCellStyle.Padding = New Padding(2) : t2.DefaultCellStyle.BackColor = Color.White
't.ToolTipText = ""
.Columns.Insert(7, t2)
@@ -1784,8 +1785,13 @@ ELSE_ATILLA:
' r.Cells("Abfertigungsart").Value = "FREMD"
r.Cells("Abfertigungsart").Value = r.Cells("tblSnd_FremdspeditionText").Value
Else 'Nomal
Dim Abfertigungsland As String = r.Cells("tblSnd_Zollsystem_Land").Value
If Abfertigungsland <> "" Then Abfertigungsland = "[" & Abfertigungsland & "] "
r.Cells("Abfertigungsart").Value = VERAGSQL.getValueTxtBySql("SELECT Abfertigungsbezeichnung FROM Abfertigungsarten WHERE [Abfertigungsart]='" & r.Cells("tblSnd_Abfertigungsart_ID").Value.ToString & "'", "FMZOLL")
If r.Cells("Abfertigungsart").Value.ToString.Length > 15 Then r.Cells("Abfertigungsart").Value = r.Cells("Abfertigungsart").Value.Substring(0, 15) & ".."
r.Cells("Abfertigungsart").Value = Abfertigungsland & r.Cells("Abfertigungsart").Value
If r.Cells("Abfertigungsart").Value.ToString.Length > 20 Then r.Cells("Abfertigungsart").Value = r.Cells("Abfertigungsart").Value.Substring(0, 20) & ".."
End If
If .Columns("StatusVorbereitetQS") IsNot Nothing Then