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

Ankunftsanzeige, Lieferantenrechnungen MDM

Browse Source
This commit is contained in:
d.breimaier
2026-05-26 15:28:33 +02:00
parent 70b2952efc
commit ef3ede6132
3 changed files with 114 additions and 63 deletions
Download Patch File Download Diff File Expand all files Collapse all files

27
SDL/ZOLLSYSTEM/DAKOSY/ATLAS/Verwahrung/usrCntlATLAS_AnkunftsAnzeige.Designer.vb generated
View File

@@ -45,6 +45,7 @@ Partial Class usrCntlATLAS_AnkunftsAnzeige
Me.txtDyNiederlassung = New System.Windows.Forms.Label()
Me.MenuStrip = New System.Windows.Forms.MenuStrip()
Me.OptionenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.txtWO_ID = New VERAG_PROG_ALLGEMEIN.MyTextBox()
CType(Me.SplitContainer, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SplitContainer.Panel1.SuspendLayout()
Me.SplitContainer.Panel2.SuspendLayout()
@@ -74,6 +75,7 @@ Partial Class usrCntlATLAS_AnkunftsAnzeige
'SplitContainer.Panel2
'
Me.SplitContainer.Panel2.BackColor = System.Drawing.Color.White
Me.SplitContainer.Panel2.Controls.Add(Me.txtWO_ID)
Me.SplitContainer.Panel2.Controls.Add(Me.txtWarenort)
Me.SplitContainer.Panel2.Controls.Add(Me.Label3)
Me.SplitContainer.Panel2.Controls.Add(Me.txtMRN)
@@ -343,6 +345,30 @@ Partial Class usrCntlATLAS_AnkunftsAnzeige
Me.OptionenToolStripMenuItem.Size = New System.Drawing.Size(69, 20)
Me.OptionenToolStripMenuItem.Text = "Optionen"
'
'txtWO_ID
'
Me.txtWO_ID._DateTimeOnly = False
Me.txtWO_ID._numbersOnly = False
Me.txtWO_ID._numbersOnlyKommastellen = ""
Me.txtWO_ID._numbersOnlyTrennzeichen = True
Me.txtWO_ID._Prozent = False
Me.txtWO_ID._ShortDateNew = False
Me.txtWO_ID._ShortDateOnly = False
Me.txtWO_ID._TimeOnly = False
Me.txtWO_ID._TimeOnly_Seconds = False
Me.txtWO_ID._value = ""
Me.txtWO_ID._Waehrung = False
Me.txtWO_ID._WaehrungZeichen = True
Me.txtWO_ID.Enabled = False
Me.txtWO_ID.ForeColor = System.Drawing.Color.Black
Me.txtWO_ID.Location = New System.Drawing.Point(447, 94)
Me.txtWO_ID.MaxLineLength = -1
Me.txtWO_ID.MaxLines_Warning = ""
Me.txtWO_ID.MaxLines_Warning_Label = Nothing
Me.txtWO_ID.Name = "txtWO_ID"
Me.txtWO_ID.Size = New System.Drawing.Size(42, 20)
Me.txtWO_ID.TabIndex = 18
'
'usrCntlATLAS_AnkunftsAnzeige
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -389,4 +415,5 @@ Partial Class usrCntlATLAS_AnkunftsAnzeige
Friend WithEvents Label2 As Label
Friend WithEvents txtWarenort As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label3 As Label
Friend WithEvents txtWO_ID As VERAG_PROG_ALLGEMEIN.MyTextBox
End Class

37
SDL/ZOLLSYSTEM/DAKOSY/ATLAS/Verwahrung/usrCntlATLAS_AnkunftsAnzeige.vb
View File

@@ -261,19 +261,31 @@ Public Class usrCntlATLAS_AnkunftsAnzeige
Dim firmaId As Integer = -1
Dim LKW_ID As String = ""
'Select Case Standort
' Case "Verag GmbH"
' firmaId = 2
' Case "Verag AG"
' firmaId = 1
' Case "Unisped GmbH"
' firmaId = 21
' Case "AMBAR GmbH"
' firmaId = 24
' Case "Verag CS"
' firmaId = 11
' Case "IMEX"
' firmaId = 20
'End Select
Select Case Standort
Case "Verag GmbH"
firmaId = 2
Case "Verag AG"
firmaId = 1
Case "Unisped GmbH"
firmaId = 21
Case "AMBAR GmbH"
firmaId = 24
Case "Verag CS"
firmaId = 11
Case "IMEX"
firmaId = 20
Case Sicherheiten_Standort.VERAG_GMBH : firmaId = 2
Case Sicherheiten_Standort.AMBAR : firmaId = 24
Case Sicherheiten_Standort.ATILLA : firmaId = 7
Case Sicherheiten_Standort.VERAG_AG : firmaId = 1
Case Sicherheiten_Standort.IMEX : firmaId = 20
Case Sicherheiten_Standort.VERAG_CS : firmaId = 11
Case Sicherheiten_Standort.UNISPED : firmaId = 21
Case Sicherheiten_Standort.ZOLLERN : firmaId = 90
Case Else
End Select
With OPEN_DUMMY
@@ -378,6 +390,7 @@ Public Class usrCntlATLAS_AnkunftsAnzeige
If valueREF <> "" Then
Dim DAKOSY_REF As New cDakosy_Stammreferenzen(valueREF)
If DAKOSY_REF IsNot Nothing Then
txtWO_ID.Text = DAKOSY_REF.dySr_WarenortID.ToString
If DAKOSY_REF.dySr_WarenortID > 0 Then
txtWarenort.Text = (New SQL).getValueTxtBySql("SELECT [wo_warenort] from [tblWarenorte] where [wo_id] = " & DAKOSY_REF.dySr_WarenortID, "AVISO")
End If