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

2
AVISOUPDATER/AVISOUPDATER_Version.txt
View File

@@ -1 +1 @@
7.2
7.3

4
Aviso/My Project/AssemblyInfo.vb
View File

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("4.1.0.8")>
<Assembly: AssemblyFileVersion("4.1.0.8")>
<Assembly: AssemblyVersion("4.1.1.0")>
<Assembly: AssemblyFileVersion("4.1.1.0")>

2
Aviso/My Project/Resources.Designer.vb generated
View File

@@ -1700,7 +1700,7 @@ Namespace My.Resources
End Property
'''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die 7.2 ähnelt.
''' Sucht eine lokalisierte Zeichenfolge, die 7.3 ähnelt.
'''</summary>
Public ReadOnly Property UpdaterVersion() As String
Get

2
Aviso/My Project/Resources.resx
View File

@@ -545,7 +545,7 @@
<value>..\Resources\mitarbeiter_s.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="UpdaterVersion" xml:space="preserve">
<value>7.2</value>
<value>7.3</value>
</data>
<data name="DGS_Instructions_Import" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\resources\dgs_instructions_import.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>

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

7
Aviso/frmSendungsdetailsNEU.vb
View File

@@ -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)

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