diff --git a/AVISOUPDATER/AVISOUPDATER_Version.txt b/AVISOUPDATER/AVISOUPDATER_Version.txt index be4cea5..a88f811 100644 --- a/AVISOUPDATER/AVISOUPDATER_Version.txt +++ b/AVISOUPDATER/AVISOUPDATER_Version.txt @@ -1 +1 @@ -7.2 \ No newline at end of file +7.3 \ No newline at end of file diff --git a/Aviso/My Project/AssemblyInfo.vb b/Aviso/My Project/AssemblyInfo.vb index 589594c..2e6f49c 100644 --- a/Aviso/My Project/AssemblyInfo.vb +++ b/Aviso/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + + diff --git a/Aviso/My Project/Resources.Designer.vb b/Aviso/My Project/Resources.Designer.vb index 57d9230..183afc8 100644 --- a/Aviso/My Project/Resources.Designer.vb +++ b/Aviso/My Project/Resources.Designer.vb @@ -1700,7 +1700,7 @@ Namespace My.Resources End Property ''' - ''' Sucht eine lokalisierte Zeichenfolge, die 7.2 ähnelt. + ''' Sucht eine lokalisierte Zeichenfolge, die 7.3 ähnelt. ''' Public ReadOnly Property UpdaterVersion() As String Get diff --git a/Aviso/My Project/Resources.resx b/Aviso/My Project/Resources.resx index a89c0b1..4d2bff8 100644 --- a/Aviso/My Project/Resources.resx +++ b/Aviso/My Project/Resources.resx @@ -545,7 +545,7 @@ ..\Resources\mitarbeiter_s.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - 7.2 + 7.3 ..\resources\dgs_instructions_import.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 diff --git a/Aviso/frmHauptfenster.vb b/Aviso/frmHauptfenster.vb index c0e6e25..5ac18d7 100644 --- a/Aviso/frmHauptfenster.vb +++ b/Aviso/frmHauptfenster.vb @@ -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 diff --git a/Aviso/frmSendungsdetailsNEU.vb b/Aviso/frmSendungsdetailsNEU.vb index d566eea..136b809 100644 --- a/Aviso/frmSendungsdetailsNEU.vb +++ b/Aviso/frmSendungsdetailsNEU.vb @@ -6825,6 +6825,13 @@ Public Class frmSendungsdetailsNEU If abfTmp <> "" Then cboAbfertigungsart.changeItem(abfTmp) End If + + Select Case cboAbfertigungsLand._value + Case "AT" + MenuStrip.Enabled = False + Case Else + MenuStrip.Enabled = True + End Select End Sub Sub checkinitOLDAbfertigungsart(Optional AbfNr As Object = Nothing) diff --git a/Aviso/usrcntlAktDetails.vb b/Aviso/usrcntlAktDetails.vb index 88e9b65..f7bc3df 100644 --- a/Aviso/usrcntlAktDetails.vb +++ b/Aviso/usrcntlAktDetails.vb @@ -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