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/usrcntlAktDetails.vb
View File

@@ -522,7 +522,7 @@ Public Class usrcntlAktDetails
With dgvSendungen
' Dim selRow = If(.SelectedRows.Count > 0, .SelectedRows(0).Index, -1)
.Columns.Clear()
.DataSource = AvisoDAL.loadDataTableBySQL(" SELECT FilialenNr ,/*rank() OVER (ORDER BY tblSnd_PosUnterNr) as */ tblSnd_PosUnterNr, [tblSnd_SendungID],[tblSnd_AvisoID],[tblSnd_Abfertigungsart_ID],[tblSnd_EmpfaengerKdNr],[tblSnd_Empfaenger],isnull(cast(FilialenNr as varchar (4)),'')+'/' + isnull(cast(AbfertigungsNr as varchar (8)),'') as AbfertigungsNr,(SELECT (CASE WHEN Count(*)>0 THEN cast(COUNT(*) as varchar(4)) ELSE '-' END) FROM Vermerke WHERE AvisoID=" & AvisoID & " AND SendungID=tblSnd_SendungID) as Vermerke, tblSnd_SpeditionsbuchEingetragen,tblSnd_Fremdspedition,tblSnd_FremdspeditionText,isnull(tblSnd_QS_MA,-1) as tblSnd_QS_MA,tblSnd_Vorbereitet,tblSnd_Vorgeschrieben,LetzterMitarbeiterId,tblSnd_VG_MA,LetzterMitarbeiter,tblSnd_BARzuKassieren,tblSnd_Fakturiert, AbfertigungsNr as AbfertigungsNr2, tblSnd_AbklaerungTR, tblSnd_AbklaerungTR_MA ,tblSnd_AbfertigungTR, tblSnd_AbfertigungTR_MA " &
.DataSource = AvisoDAL.loadDataTableBySQL(" SELECT FilialenNr ,/*rank() OVER (ORDER BY tblSnd_PosUnterNr) as */ tblSnd_PosUnterNr, [tblSnd_SendungID],[tblSnd_AvisoID],[tblSnd_Abfertigungsart_ID],isnull(tblSnd_Zollsystem_Land,'')tblSnd_Zollsystem_Land,[tblSnd_EmpfaengerKdNr],[tblSnd_Empfaenger],isnull(cast(FilialenNr as varchar (4)),'')+'/' + isnull(cast(AbfertigungsNr as varchar (8)),'') as AbfertigungsNr,(SELECT (CASE WHEN Count(*)>0 THEN cast(COUNT(*) as varchar(4)) ELSE '-' END) FROM Vermerke WHERE AvisoID=" & AvisoID & " AND SendungID=tblSnd_SendungID) as Vermerke, tblSnd_SpeditionsbuchEingetragen,tblSnd_Fremdspedition,tblSnd_FremdspeditionText,isnull(tblSnd_QS_MA,-1) as tblSnd_QS_MA,tblSnd_Vorbereitet,tblSnd_Vorgeschrieben,LetzterMitarbeiterId,tblSnd_VG_MA,LetzterMitarbeiter,tblSnd_BARzuKassieren,tblSnd_Fakturiert, AbfertigungsNr as AbfertigungsNr2, tblSnd_AbklaerungTR, tblSnd_AbklaerungTR_MA ,tblSnd_AbfertigungTR, tblSnd_AbfertigungTR_MA " &
" FROM tblSendungen WHERE tblSnd_AvisoId=" & AvisoID & " ORDER BY tblSnd_PosUnterNr") 'LEFT JOIN tblQS_Abfertigungsarten ON [tblSnd_Abfertigungsart_ID]=QS_Abfertigungsart_ID
' If .RowCount = 0 Then .Columns.Clear() : Exit Sub
@@ -532,6 +532,7 @@ Public Class usrcntlAktDetails
.Columns("tblSnd_AvisoID").Visible = False 'AvisoID nicht anzeigen
.Columns("tblSnd_EmpfaengerKdNr").Visible = False 'AvisoID nicht anzeigen
.Columns("tblSnd_Abfertigungsart_ID").Visible = False
.Columns("tblSnd_Zollsystem_Land").Visible = False
.Columns("tblSnd_SpeditionsbuchEingetragen").Visible = False
.Columns("tblSnd_QS_MA").Visible = False
.Columns("tblSnd_Fremdspedition").Visible = False
@@ -688,7 +689,7 @@ Public Class usrcntlAktDetails
t.Name = "Abfertigungsart"
t.HeaderText = "Abfertigungsart"
t.HeaderText = VERAG_PROG_ALLGEMEIN.cAllgemein._getTRANSLATE_SUB(Me, dgvSendungen, t, t.HeaderText)
t.Width = 100 : t.DefaultCellStyle.Padding = New Padding(2) : t.DefaultCellStyle.BackColor = Color.White
t.Width = 110 : t.DefaultCellStyle.Padding = New Padding(2) : t.DefaultCellStyle.BackColor = Color.White
't.ToolTipText = ""
.Columns.Insert(3, t)
@@ -702,8 +703,11 @@ Public Class usrcntlAktDetails
' r.Cells("Abfertigungsart").Value = "FREMD"
r.Cells("Abfertigungsart").Value = r.Cells("tblSnd_FremdspeditionText").Value
Else 'Nomal
r.Cells("Abfertigungsart").Value = ADMIN.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) & ".."
Dim Abfertigungsland As String = r.Cells("tblSnd_Zollsystem_Land").Value
If Abfertigungsland <> "" Then Abfertigungsland = "[" & Abfertigungsland & "] "
r.Cells("Abfertigungsart").Value = Abfertigungsland & ADMIN.getValueTxtBySql("SELECT Abfertigungsbezeichnung FROM Abfertigungsarten WHERE [Abfertigungsart]='" & r.Cells("tblSnd_Abfertigungsart_ID").Value.ToString & "'", "FMZOLL")
If r.Cells("Abfertigungsart").Value.ToString.Length > 18 Then r.Cells("Abfertigungsart").Value = r.Cells("Abfertigungsart").Value.Substring(0, 18) & ".."
End If
r.Cells("FilialenNr").Style.ForeColor = Color.White