Merge branch 'master' of https://verag.visualstudio.com/AVISO/_git/AVISO
This commit is contained in:
@@ -208,12 +208,12 @@ Public Class UsrCntlessensbestellungen
|
||||
If TypeOf gb Is GroupBox Then
|
||||
For Each c As Control In gb.Controls
|
||||
|
||||
If c.Text.ToLower.StartsWith(menu.ToLower) AndAlso TypeOf c Is VERAG_PROG_ALLGEMEIN.MyRadioButton Then
|
||||
If c.Text.ToLower.StartsWith(menu.ToLower) AndAlso TypeOf c Is VERAG_PROG_ALLGEMEIN.MyRadioButton AndAlso c.Enabled = True Then
|
||||
Dim rb As VERAG_PROG_ALLGEMEIN.MyRadioButton = c
|
||||
If rb.Checked Then countMenus = countMenus + 1
|
||||
End If
|
||||
|
||||
If c.Text.ToLower.StartsWith(alacarte.ToLower) AndAlso TypeOf c Is VERAG_PROG_ALLGEMEIN.MyRadioButton Then
|
||||
If c.Text.ToLower.StartsWith(alacarte.ToLower) AndAlso TypeOf c Is VERAG_PROG_ALLGEMEIN.MyRadioButton AndAlso c.Enabled = True Then
|
||||
Dim rb As VERAG_PROG_ALLGEMEIN.MyRadioButton = c
|
||||
If rb.Checked Then countlaCarte = countlaCarte + 1
|
||||
End If
|
||||
|
||||
@@ -1,9 +1,9 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
|
||||
Partial Class frmEssensbestellungenAdministration
|
||||
Inherits System.Windows.Forms.Form
|
||||
|
||||
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
<System.Diagnostics.DebuggerNonUserCode()>
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
Try
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
@@ -20,7 +20,7 @@ Partial Class frmEssensbestellungenAdministration
|
||||
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
|
||||
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
|
||||
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
<System.Diagnostics.DebuggerStepThrough()>
|
||||
Private Sub InitializeComponent()
|
||||
Me.components = New System.ComponentModel.Container()
|
||||
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmEssensbestellungenAdministration))
|
||||
@@ -73,6 +73,8 @@ Partial Class frmEssensbestellungenAdministration
|
||||
Me.lblWarning = New System.Windows.Forms.Label()
|
||||
Me.Button2 = New System.Windows.Forms.Button()
|
||||
Me.Label9 = New System.Windows.Forms.Label()
|
||||
Me.Label11 = New System.Windows.Forms.Label()
|
||||
Me.txtMarkierteDS = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.pnlTop.SuspendLayout()
|
||||
Me.Panel1.SuspendLayout()
|
||||
Me.ContextMenuStrip1.SuspendLayout()
|
||||
@@ -113,6 +115,8 @@ Partial Class frmEssensbestellungenAdministration
|
||||
'
|
||||
'Panel1
|
||||
'
|
||||
Me.Panel1.Controls.Add(Me.txtMarkierteDS)
|
||||
Me.Panel1.Controls.Add(Me.Label11)
|
||||
Me.Panel1.Controls.Add(Me.btnNew)
|
||||
Me.Panel1.Controls.Add(Me.cbKW)
|
||||
Me.Panel1.Controls.Add(Me.Label6)
|
||||
@@ -540,7 +544,7 @@ Partial Class frmEssensbestellungenAdministration
|
||||
'
|
||||
'txtAnzahlDS
|
||||
'
|
||||
Me.txtAnzahlDS.Location = New System.Drawing.Point(1020, 744)
|
||||
Me.txtAnzahlDS.Location = New System.Drawing.Point(1032, 745)
|
||||
Me.txtAnzahlDS.Name = "txtAnzahlDS"
|
||||
Me.txtAnzahlDS.ReadOnly = True
|
||||
Me.txtAnzahlDS.Size = New System.Drawing.Size(42, 20)
|
||||
@@ -561,7 +565,7 @@ Partial Class frmEssensbestellungenAdministration
|
||||
'
|
||||
Me.Label5.AutoSize = True
|
||||
Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label5.Location = New System.Drawing.Point(913, 747)
|
||||
Me.Label5.Location = New System.Drawing.Point(925, 748)
|
||||
Me.Label5.Name = "Label5"
|
||||
Me.Label5.Size = New System.Drawing.Size(99, 13)
|
||||
Me.Label5.TabIndex = 44
|
||||
@@ -696,6 +700,42 @@ Partial Class frmEssensbestellungenAdministration
|
||||
Me.Label9.Text = "Gesamtbetrag"
|
||||
Me.Label9.TextAlign = System.Drawing.ContentAlignment.TopRight
|
||||
'
|
||||
'Label11
|
||||
'
|
||||
Me.Label11.AutoSize = True
|
||||
Me.Label11.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label11.Location = New System.Drawing.Point(1032, 46)
|
||||
Me.Label11.Name = "Label11"
|
||||
Me.Label11.Size = New System.Drawing.Size(125, 13)
|
||||
Me.Label11.TabIndex = 66
|
||||
Me.Label11.Text = "Betrag markierte DS:"
|
||||
Me.Label11.TextAlign = System.Drawing.ContentAlignment.TopRight
|
||||
'
|
||||
'txtMarkierteDS
|
||||
'
|
||||
Me.txtMarkierteDS._DateTimeOnly = False
|
||||
Me.txtMarkierteDS._numbersOnly = False
|
||||
Me.txtMarkierteDS._numbersOnlyKommastellen = ""
|
||||
Me.txtMarkierteDS._numbersOnlyTrennzeichen = False
|
||||
Me.txtMarkierteDS._Prozent = False
|
||||
Me.txtMarkierteDS._ShortDateNew = False
|
||||
Me.txtMarkierteDS._ShortDateOnly = False
|
||||
Me.txtMarkierteDS._TimeOnly = False
|
||||
Me.txtMarkierteDS._TimeOnly_Seconds = False
|
||||
Me.txtMarkierteDS._value = ""
|
||||
Me.txtMarkierteDS._Waehrung = True
|
||||
Me.txtMarkierteDS._WaehrungZeichen = True
|
||||
Me.txtMarkierteDS.ForeColor = System.Drawing.Color.Black
|
||||
Me.txtMarkierteDS.Location = New System.Drawing.Point(1035, 62)
|
||||
Me.txtMarkierteDS.MaxLineLength = -1
|
||||
Me.txtMarkierteDS.MaxLines_Warning = ""
|
||||
Me.txtMarkierteDS.MaxLines_Warning_Label = Nothing
|
||||
Me.txtMarkierteDS.Name = "txtMarkierteDS"
|
||||
Me.txtMarkierteDS.ReadOnly = True
|
||||
Me.txtMarkierteDS.Size = New System.Drawing.Size(68, 20)
|
||||
Me.txtMarkierteDS.TabIndex = 65
|
||||
Me.txtMarkierteDS.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
|
||||
'
|
||||
'frmEssensbestellungenAdministration
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
@@ -780,4 +820,6 @@ Partial Class frmEssensbestellungenAdministration
|
||||
Friend WithEvents Button2 As Button
|
||||
Friend WithEvents Label9 As Label
|
||||
Friend WithEvents btnNew As Button
|
||||
Friend WithEvents Label11 As Label
|
||||
Friend WithEvents txtMarkierteDS As VERAG_PROG_ALLGEMEIN.MyTextBox
|
||||
End Class
|
||||
|
||||
@@ -271,7 +271,7 @@ Public Class frmEssensbestellungenAdministration
|
||||
If dgvBestellungen.SelectedRows.Count = 0 Then Exit Sub
|
||||
|
||||
Select Case sender.Text
|
||||
Case "abgerechnet"
|
||||
Case "abgerechnen"
|
||||
Select Case dgvBestellungen.SelectedRows.Count
|
||||
Case 1
|
||||
If vbYes = MsgBox("Möchten Sie die Essensbestellung '" & dgvBestellungen.SelectedRows(0).Cells("eb_kw").Value & " von Mitarbeiter " & dgvBestellungen.SelectedRows(0).Cells("eb_mitname").Value & " abrechnen", vbYesNoCancel) Then
|
||||
@@ -706,5 +706,18 @@ Public Class frmEssensbestellungenAdministration
|
||||
|
||||
Private Sub dgvBestellungen_SelectionChanged(sender As Object, e As EventArgs) Handles dgvBestellungen.SelectionChanged
|
||||
lblWarning.Text = ""
|
||||
|
||||
Dim countSumme As Double = 0
|
||||
|
||||
If dgvBestellungen.SelectedRows.Count > 0 Then
|
||||
|
||||
For i As Integer = 0 To dgvBestellungen.SelectedRows.Count - 1
|
||||
countSumme += CDbl(dgvBestellungen.SelectedRows(i).Cells("eb_preis").Value)
|
||||
|
||||
Next
|
||||
|
||||
End If
|
||||
|
||||
txtMarkierteDS._value = countSumme.ToString
|
||||
End Sub
|
||||
End Class
|
||||
@@ -57,7 +57,7 @@ Public Class frmGesamtsicherheitenMenuNEU
|
||||
|
||||
Public Function LoadDGV()
|
||||
Dim sqladdon As String = ""
|
||||
If chkOffen.Checked Then sqladdon &= " AND gs_SicherheitsSaldo != '0,00 €' AND gs_SicherheitsSaldo != '0,01 €' AND gs_SicherheitsSaldo != '-0,01 €'"
|
||||
If chkOffen.Checked Then sqladdon &= " AND gs_SicherheitsSaldo != '0,00 €'"
|
||||
If cbxStandort._value <> "" Then sqladdon &= " AND gs_filialenNr = '" & cbxStandort._value.ToString & "'"
|
||||
If cbxWarenort._value <> "" Then sqladdon &= " AND gs_warenort = '" & cbxWarenort._value.ToString & "'"
|
||||
|
||||
@@ -126,7 +126,7 @@ Public Class frmGesamtsicherheitenMenuNEU
|
||||
|
||||
For Each row As DataGridViewRow In dgvListe.Rows
|
||||
If Not IsDBNull(row.Cells("gs_SicherheitsSaldo").Value) Then
|
||||
If row.Cells("gs_SicherheitsSaldo").Value <> 0 And row.Cells("gs_SicherheitsSaldo").Value <> 0.01 And row.Cells("gs_SicherheitsSaldo").Value <> -0.01 Then
|
||||
If row.Cells("gs_SicherheitsSaldo").Value <> 0 Then
|
||||
|
||||
dataTable.Rows.Add(row.Cells("gs_gsnr").Value, True)
|
||||
row.DefaultCellStyle.BackColor = Color.IndianRed
|
||||
@@ -367,7 +367,7 @@ Public Class frmGesamtsicherheitenMenuNEU
|
||||
) as Sicherheitssaldo
|
||||
|
||||
From [tblGesamtsicherheit] as meh group by gs_gsnr) as meh2
|
||||
Where gs_standort = '" & Standort & "' AND Sicherheitssaldo > '0.01' AND gs_datum < '" & Date.Now().AddDays(-85) & "'"
|
||||
Where gs_standort = '" & Standort & "' AND gs_datum < '" & Date.Now().AddDays(-85) & "'"
|
||||
|
||||
dtNew = SQL.loadDgvBySql(sqlstring, "AVISO", 100, True)
|
||||
|
||||
|
||||
1067
Aviso/frmGesamtsicherheitenNEU.Designer.vb
generated
1067
Aviso/frmGesamtsicherheitenNEU.Designer.vb
generated
File diff suppressed because it is too large
Load Diff
@@ -38,6 +38,8 @@ Public Class frmGesamtsicherheitenNEU
|
||||
|
||||
Dim isOpen As Boolean = False
|
||||
|
||||
Dim rundungsdiff As Double = 0
|
||||
|
||||
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
|
||||
Public dataTable As New DataTable()
|
||||
@@ -50,6 +52,14 @@ Public Class frmGesamtsicherheitenNEU
|
||||
|
||||
Private Sub frmGesamtsicherheitNEU_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
||||
|
||||
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("GESAMTSICHERHEIT_RUNDUNGSKORREKTUR", "AVISO") Then
|
||||
btnRundungsdifAusgl.Visible = True
|
||||
cbxRundPosanzeigen.Visible = True
|
||||
Else
|
||||
btnRundungsdifAusgl.Visible = False
|
||||
cbxRundPosanzeigen.Visible = False
|
||||
End If
|
||||
|
||||
currentGesSichRef = New VERAG_PROG_ALLGEMEIN.cAufschubKonten(Standort)
|
||||
SaldoNew = Decimal.Parse(currentGesSichRef.CalcSaldo())
|
||||
lblSaldo.Text = "Saldo: €" & SaldoNew.ToString("N")
|
||||
@@ -57,7 +67,7 @@ Public Class frmGesamtsicherheitenNEU
|
||||
Me.Text = "Gesamtsicherheit " & Standort
|
||||
|
||||
|
||||
cbx_Suche_Warenort.fillWithSQL("SELECT [wo_warenort],CONCAT([wo_knnr],' - ' ,[wo_bezeichnung]) FROM [tblWarenorte] WHERE [wo_aktiv] ='1' ORDER BY [wo_reihenfolge]", True, "AVISO", True)
|
||||
cbx_Suche_Warenort.fillWithSQL("SELECT [wo_warenort],CONCAT([wo_knnr],' - ' ,[wo_bezeichnung]) FROM [tblWarenorte] WHERE [wo_aktiv] ='1' AND wo_ze = 1 ORDER BY [wo_reihenfolge]", True, "AVISO", True)
|
||||
|
||||
If setNullToZero(gessicherheitID) = "" Or Neu = True Then
|
||||
|
||||
@@ -66,7 +76,7 @@ Public Class frmGesamtsicherheitenNEU
|
||||
panOverlay.Visible = True
|
||||
|
||||
cboFiliale.fillWithSQL("SELECT FilialenNr, cast(FilialenNr as varchar(4)) + ' ' + Grenzstelle FROM Filialen WHERE Fil_Status='A' ORDER BY FilialenNr ", True, "FMZOLL", True)
|
||||
cboWarenort.fillWithSQL("SELECT [wo_warenort],CONCAT([wo_bezeichnung],' - ' ,[wo_knnr]) FROM [tblWarenorte] WHERE [wo_aktiv] ='1' AND [wo_firma] = '" & firmaId & "' ORDER BY [wo_reihenfolge] ", True, "AVISO", True)
|
||||
cboWarenort.fillWithSQL("SELECT [wo_warenort],CONCAT([wo_bezeichnung],' - ' ,[wo_knnr]) FROM [tblWarenorte] WHERE [wo_aktiv] ='1' AND [wo_firma] = '" & firmaId & "' AND wo_ze = 1 ORDER BY [wo_reihenfolge] ", True, "AVISO", True)
|
||||
|
||||
If datum = Nothing Then datum = Date.Now
|
||||
nextGessicherheitID = -1
|
||||
@@ -93,6 +103,7 @@ Public Class frmGesamtsicherheitenNEU
|
||||
|
||||
Public Sub LoadDGVSicherheiten(Optional withFilterParam As Boolean = False)
|
||||
|
||||
|
||||
'lblSaldo.Text = "Saldo: € " & currentGesSichRef.gsr_Saldo.ToString()
|
||||
txtGestellInfo.Text = ""
|
||||
Dim sqladd1 As String = ""
|
||||
@@ -102,6 +113,7 @@ Public Class frmGesamtsicherheitenNEU
|
||||
If withFilterParam = True Then
|
||||
If txt_Suche.Text <> "" Then sqlSearchSting &= "AND ([gs_abfertigungsNr] Like '%" & txt_Suche.Text & "%' OR [gs_ATBNr] Like '%" & txt_Suche.Text & "%' OR [gs_LKWKZ] like '%" & txt_Suche.Text & "%' OR [gs_avisoId] like '%" & txt_Suche.Text & "%' OR [gs_freitext] like '%" & txt_Suche.Text & "%')"
|
||||
If cbx_Suche_Warenort._value <> "" Then sqlSearchSting &= "AND gs_warenort like '%" & cbx_Suche_Warenort._value & "%'"
|
||||
If cbxRundPosanzeigen.Checked = False Then sqlSearchSting &= "AND ISNULL(gs_isRundungsdiff,0) = 0"
|
||||
End If
|
||||
|
||||
Dim SQLStringSicherheit As String = "select [gs_gsId], [gs_gsnr], [gs_posNr], [gs_ATBNr], [gs_datum], [gs_warenwert], [gs_sicherheitsbetrag], [gs_saldo] " & sqladd1 & " , [gs_freitext] from [tblGesamtsicherheit] where [gs_gsnr] = '" & gessicherheitID & "'" & sqlSearchSting & " order by [gs_ATBNr], [gs_posNr]"
|
||||
@@ -262,6 +274,7 @@ Public Class frmGesamtsicherheitenNEU
|
||||
sqlSearchSting &= "And gsp_gsid In (Select gs_gsId from [tblGesamtsicherheit] where [gs_gsnr] = '" & gessicherheitID & "'"
|
||||
If txt_Suche.Text <> "" Then sqlSearchSting &= "AND ([gs_abfertigungsNr] Like '%" & txt_Suche.Text & "%' OR [gs_ATBNr] Like '%" & txt_Suche.Text & "%' OR [gs_LKWKZ] like '%" & txt_Suche.Text & "%' OR [gs_avisoId] like '%" & txt_Suche.Text & "%' OR [gs_freitext] like '%" & txt_Suche.Text & "%')"
|
||||
If cbx_Suche_Warenort._value <> "" Then sqlSearchSting &= " AND gs_warenort like '%" & cbx_Suche_Warenort._value & "%'"
|
||||
If cbxRundPosanzeigen.Checked = False Then sqlSearchSting &= "AND ISNULL(gsp_isPosRundungsdiff,0) = 0"
|
||||
sqlSearchSting &= ")"
|
||||
End If
|
||||
|
||||
@@ -810,8 +823,14 @@ Public Class frmGesamtsicherheitenNEU
|
||||
currentSicherheit = Sicherh
|
||||
txtAnzahlPos.Enabled = False
|
||||
|
||||
btnAddSicherheit.Visible = False
|
||||
btnUpdateSicherheit.Visible = True
|
||||
If Sicherh.gs_isRundungsdiff = True Then
|
||||
btnAddSicherheit.Visible = False
|
||||
btnUpdateSicherheit.Visible = False
|
||||
Else
|
||||
btnAddSicherheit.Visible = False
|
||||
btnUpdateSicherheit.Visible = True
|
||||
End If
|
||||
|
||||
btnDeleteSicherheit.Visible = True
|
||||
End Sub
|
||||
|
||||
@@ -878,7 +897,7 @@ Public Class frmGesamtsicherheitenNEU
|
||||
Private Sub dgvGesamtsicherheitPositionen_CellCellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvSicherheitsPos.CellDoubleClick
|
||||
|
||||
Dim sPos As New cGesamtsicherheitsPositionen(dgvSicherheitsPos.CurrentRow.Cells("gsp_gsId").Value, dgvSicherheitsPos.CurrentRow.Cells("gsp_gspPosId").Value)
|
||||
|
||||
If sPos.gsp_isPosRundungsdiff = True Then Exit Sub
|
||||
txtPosNr.Text = sPos.gsp_gspPosId
|
||||
txtPosFreitext.Text = sPos.gsp_freitext
|
||||
txtPosSicherheitsbetrag.Text = sPos.gsp_sicherheitsbetrag
|
||||
@@ -936,7 +955,7 @@ Public Class frmGesamtsicherheitenNEU
|
||||
panOverlay.Visible = True
|
||||
cboFiliale.fillWithSQL("SELECT FilialenNr, cast(FilialenNr as varchar(4)) + ' ' + Grenzstelle FROM Filialen WHERE Fil_Status='A' ORDER BY FilialenNr ", True, "FMZOLL", True)
|
||||
cboFiliale.SelectedIndex = cboFiliale.FindString(Me.FilialNummer)
|
||||
cboWarenort.fillWithSQL("SELECT [wo_warenort],CONCAT([wo_knnr],' - ' ,[wo_bezeichnung]) FROM [tblWarenorte] WHERE [wo_aktiv] ='1' ORDER BY [wo_reihenfolge] ", True, "AVISO", True)
|
||||
cboWarenort.fillWithSQL("SELECT [wo_warenort],CONCAT([wo_knnr],' - ' ,[wo_bezeichnung]) FROM [tblWarenorte] WHERE [wo_aktiv] ='1' AND wo_ze = 1 ORDER BY [wo_reihenfolge] ", True, "AVISO", True)
|
||||
cboWarenort.SelectedIndex = cbx_Suche_Warenort.FindString(Me.warenortID)
|
||||
txtlkwIdSearch.initSearchBox(Me.FindForm, " LKW_Nr, AvisoID, CAST(Datum as Date) as Datum FROM [Aviso]", {"LKW_Nr", "AvisoID", "Datum"}, "", "Datum desc", "LKW_Nr", "AvisoId", "AVISO",, 250, 200)
|
||||
txtlkwIdSearch.SET_VALUE(avisoID)
|
||||
@@ -1373,6 +1392,14 @@ Public Class frmGesamtsicherheitenNEU
|
||||
lbloffenerWarenwert.Text = "offener Warenwert: €"
|
||||
lbloffenerWarenwert.Text &= Math.Round(countWarenwert, 2) - Math.Round(countWarenwertPos, 2)
|
||||
|
||||
If (Math.Abs(countSicherheitsbetrag - countSicherheitsbetragPos) < 0.1 AndAlso Math.Abs(countSicherheitsbetrag - countSicherheitsbetragPos) <> 0) Then
|
||||
btnRundungsdifAusgl.Enabled = True
|
||||
rundungsdiff = Math.Round(countSicherheitsbetrag - countSicherheitsbetragPos, 2)
|
||||
Else
|
||||
btnRundungsdifAusgl.Enabled = False
|
||||
End If
|
||||
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
@@ -1645,4 +1672,80 @@ Public Class frmGesamtsicherheitenNEU
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub btnRundungsdifAusgl_Click(sender As Object, e As EventArgs) Handles btnRundungsdifAusgl.Click
|
||||
|
||||
Try
|
||||
If (rundungsdiff <> 0) AndAlso checkIfRundungsPosExists() = False Then
|
||||
|
||||
Dim OPEN As New cSicherheiten()
|
||||
|
||||
With OPEN
|
||||
.gs_gsNr = gessicherheitID
|
||||
.gs_ATBNr = "Korrekt. Rundungsdiff. " & gessicherheitID
|
||||
.gs_posNr = Me.getLatestPosNr(currentSicherheit.gs_gsNr, currentSicherheit.gs_ATBNr) + 1
|
||||
.gs_datum = DateTime.Now
|
||||
.gs_warenwert = 0
|
||||
.gs_sicherheitsbetrag = 0
|
||||
.gs_standort = Me.Standort
|
||||
.gs_art = "OPEN"
|
||||
.gs_erstellungsdatum = DateTime.Now
|
||||
.gs_freitext = ""
|
||||
.gs_saldo = currentGesSichRef.brgakto_gs_aktSaldo
|
||||
.gs_atr = setNullToZero(cboSicherheitATR.SelectedItem)
|
||||
.gs_zollsatz = Me.Zollsatz
|
||||
.gs_avisoId = Me.avisoID
|
||||
.gs_isRundungsdiff = True
|
||||
setEnviromentDataToObject(OPEN, Me)
|
||||
End With
|
||||
|
||||
Dim gs_gsId = OPEN.SAVEOBJECT()
|
||||
|
||||
Dim SicherheitsPos As New cGesamtsicherheitsPositionen()
|
||||
With SicherheitsPos
|
||||
.gsp_gsId = gs_gsId
|
||||
.gsp_gspPosId = OPEN.gs_posNr
|
||||
.gsp_warenwert = 0
|
||||
.gsp_sicherheitsbetrag = rundungsdiff
|
||||
.gsp_freitext = ""
|
||||
.gsp_filialenNr = currentSicherheit.gs_filialenNr
|
||||
.gsp_art = "CLOSE"
|
||||
.gsp_gsNr = gessicherheitID
|
||||
.gsp_abfertigungsNr = currentSicherheit.gs_abfertigungsnr
|
||||
.gsp_datum = DateTime.Now
|
||||
.gsp_erstellungsdatum = DateTime.Now
|
||||
.gsp_ust = currentSicherheit.gs_ust
|
||||
.gsp_ATCNr = "Korrekt. Rundungsdiff. " & gessicherheitID
|
||||
.gsp_isPosRundungsdiff = True
|
||||
.gsp_avisoId = Me.avisoID
|
||||
End With
|
||||
|
||||
SicherheitsPos.SAVE()
|
||||
|
||||
AfterButton()
|
||||
|
||||
End If
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message)
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
|
||||
Private Function checkIfRundungsPosExists()
|
||||
|
||||
If dgvGesamtsicherheit.Rows.Count < 1 Then Return False
|
||||
|
||||
For Each Row In dgvGesamtsicherheit.Rows
|
||||
Dim sicherh As New cSicherheiten(Row.Cells("gs_gsId").Value, Row.Cells("gs_posNr").Value)
|
||||
|
||||
If sicherh.gs_isRundungsdiff Then Return True
|
||||
|
||||
Next
|
||||
Return False
|
||||
|
||||
End Function
|
||||
|
||||
Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles cbxRundPosanzeigen.CheckedChanged
|
||||
LoadDGVSicherheiten(True)
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
700
Aviso/frmSendungsdetailsNEU.Designer.vb
generated
700
Aviso/frmSendungsdetailsNEU.Designer.vb
generated
@@ -202,10 +202,35 @@ Partial Class frmSendungsdetailsNEU
|
||||
Me.btnAvisierer = New VERAG_PROG_ALLGEMEIN.FlatButton()
|
||||
Me.Button4 = New System.Windows.Forms.Button()
|
||||
Me.Button1 = New System.Windows.Forms.Button()
|
||||
Me.cntlFrachtfuehrer_Sonst = New AVISO.usrcntlCheckBox()
|
||||
Me.cntlAbsender_Sonst = New AVISO.usrcntlCheckBox()
|
||||
Me.cntlEmpfaenger_Sonst = New AVISO.usrcntlCheckBox()
|
||||
Me.cntlAuftraggeber_Sonst = New AVISO.usrcntlCheckBox()
|
||||
Me.cntlAvisierer_Sonst = New AVISO.usrcntlCheckBox()
|
||||
Me.lblSonstigesKosten = New System.Windows.Forms.Label()
|
||||
Me.btnAufschub_Atr = New System.Windows.Forms.Button()
|
||||
Me.btnAufschub_Empf = New System.Windows.Forms.Button()
|
||||
Me.btnAufschub_VERAG = New System.Windows.Forms.Button()
|
||||
Me.cntlFrachtf_Clear = New AVISO.usrcntlCheckBox()
|
||||
Me.cntlFrachtf_Abf = New AVISO.usrcntlCheckBox()
|
||||
Me.cntlFrachtf_Eust = New AVISO.usrcntlCheckBox()
|
||||
Me.cntlFrachtf_Zoll = New AVISO.usrcntlCheckBox()
|
||||
Me.cntlAbsender_Clear = New AVISO.usrcntlCheckBox()
|
||||
Me.cntlAbsender_Abf = New AVISO.usrcntlCheckBox()
|
||||
Me.cntlAbsender_Eust = New AVISO.usrcntlCheckBox()
|
||||
Me.cntlAbsender_Zoll = New AVISO.usrcntlCheckBox()
|
||||
Me.cntlEmpf_Clear = New AVISO.usrcntlCheckBox()
|
||||
Me.cntlEmpf_Abf = New AVISO.usrcntlCheckBox()
|
||||
Me.cntlEmpf_Eust = New AVISO.usrcntlCheckBox()
|
||||
Me.cntlEmpf_Zoll = New AVISO.usrcntlCheckBox()
|
||||
Me.cntlAuftr_Clear = New AVISO.usrcntlCheckBox()
|
||||
Me.cntlAuftr_Abf = New AVISO.usrcntlCheckBox()
|
||||
Me.cntlAuftr_Eust = New AVISO.usrcntlCheckBox()
|
||||
Me.cntlAuftr_Zoll = New AVISO.usrcntlCheckBox()
|
||||
Me.cntlAvisierer_Clear = New AVISO.usrcntlCheckBox()
|
||||
Me.cntlAvisierer_Abf = New AVISO.usrcntlCheckBox()
|
||||
Me.cntlAvisierer_Eust = New AVISO.usrcntlCheckBox()
|
||||
Me.cntlAvisierer_Zoll = New AVISO.usrcntlCheckBox()
|
||||
Me.Panel15 = New System.Windows.Forms.Panel()
|
||||
Me.txtAvisierer = New VERAG_PROG_ALLGEMEIN.KdSearchBox()
|
||||
Me.txtAuftraggeber = New VERAG_PROG_ALLGEMEIN.KdSearchBox()
|
||||
@@ -218,6 +243,7 @@ Partial Class frmSendungsdetailsNEU
|
||||
Me.lblEmpfAufschubEust = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.lblFrachtfuehrer = New System.Windows.Forms.Label()
|
||||
Me.pnlT1 = New System.Windows.Forms.Panel()
|
||||
Me.UsrCntlSND_NCTSGestellungsadresse1 = New AVISO.usrCntlSND_NCTSGestellungsadresse()
|
||||
Me.Label43 = New System.Windows.Forms.Label()
|
||||
Me.lblAbsender = New System.Windows.Forms.Label()
|
||||
Me.txtAbsenderKdNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
@@ -377,32 +403,7 @@ Partial Class frmSendungsdetailsNEU
|
||||
Me.ContextMenuStrip2 = New System.Windows.Forms.ContextMenuStrip(Me.components)
|
||||
Me.ToolStripMenuItem14 = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.NurÖffnenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.cntlFrachtfuehrer_Sonst = New AVISO.usrcntlCheckBox()
|
||||
Me.cntlAbsender_Sonst = New AVISO.usrcntlCheckBox()
|
||||
Me.cntlEmpfaenger_Sonst = New AVISO.usrcntlCheckBox()
|
||||
Me.cntlAuftraggeber_Sonst = New AVISO.usrcntlCheckBox()
|
||||
Me.cntlAvisierer_Sonst = New AVISO.usrcntlCheckBox()
|
||||
Me.cntlFrachtf_Clear = New AVISO.usrcntlCheckBox()
|
||||
Me.cntlFrachtf_Abf = New AVISO.usrcntlCheckBox()
|
||||
Me.cntlFrachtf_Eust = New AVISO.usrcntlCheckBox()
|
||||
Me.cntlFrachtf_Zoll = New AVISO.usrcntlCheckBox()
|
||||
Me.cntlAbsender_Clear = New AVISO.usrcntlCheckBox()
|
||||
Me.cntlAbsender_Abf = New AVISO.usrcntlCheckBox()
|
||||
Me.cntlAbsender_Eust = New AVISO.usrcntlCheckBox()
|
||||
Me.cntlAbsender_Zoll = New AVISO.usrcntlCheckBox()
|
||||
Me.cntlEmpf_Clear = New AVISO.usrcntlCheckBox()
|
||||
Me.cntlEmpf_Abf = New AVISO.usrcntlCheckBox()
|
||||
Me.cntlEmpf_Eust = New AVISO.usrcntlCheckBox()
|
||||
Me.cntlEmpf_Zoll = New AVISO.usrcntlCheckBox()
|
||||
Me.cntlAuftr_Clear = New AVISO.usrcntlCheckBox()
|
||||
Me.cntlAuftr_Abf = New AVISO.usrcntlCheckBox()
|
||||
Me.cntlAuftr_Eust = New AVISO.usrcntlCheckBox()
|
||||
Me.cntlAuftr_Zoll = New AVISO.usrcntlCheckBox()
|
||||
Me.cntlAvisierer_Clear = New AVISO.usrcntlCheckBox()
|
||||
Me.cntlAvisierer_Abf = New AVISO.usrcntlCheckBox()
|
||||
Me.cntlAvisierer_Eust = New AVISO.usrcntlCheckBox()
|
||||
Me.cntlAvisierer_Zoll = New AVISO.usrcntlCheckBox()
|
||||
Me.UsrCntlSND_NCTSGestellungsadresse1 = New AVISO.usrCntlSND_NCTSGestellungsadresse()
|
||||
Me.AuftragMOTISToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.pnl.SuspendLayout()
|
||||
Me.Panel4.SuspendLayout()
|
||||
Me.TabControl1.SuspendLayout()
|
||||
@@ -894,7 +895,7 @@ Partial Class frmSendungsdetailsNEU
|
||||
Me.ToolStripMenuItem8.Font = New System.Drawing.Font("Segoe UI", 9.0!)
|
||||
Me.ToolStripMenuItem8.Image = Global.AVISO.My.Resources.Resources.plus
|
||||
Me.ToolStripMenuItem8.Name = "ToolStripMenuItem8"
|
||||
Me.ToolStripMenuItem8.Size = New System.Drawing.Size(93, 22)
|
||||
Me.ToolStripMenuItem8.Size = New System.Drawing.Size(101, 30)
|
||||
Me.ToolStripMenuItem8.Text = "T1"
|
||||
'
|
||||
'ToolStripMenuItem9
|
||||
@@ -902,7 +903,7 @@ Partial Class frmSendungsdetailsNEU
|
||||
Me.ToolStripMenuItem9.Font = New System.Drawing.Font("Segoe UI", 9.0!)
|
||||
Me.ToolStripMenuItem9.Image = Global.AVISO.My.Resources.Resources.plus
|
||||
Me.ToolStripMenuItem9.Name = "ToolStripMenuItem9"
|
||||
Me.ToolStripMenuItem9.Size = New System.Drawing.Size(93, 22)
|
||||
Me.ToolStripMenuItem9.Size = New System.Drawing.Size(101, 30)
|
||||
Me.ToolStripMenuItem9.Text = "T2"
|
||||
'
|
||||
'ToolStripMenuItem10
|
||||
@@ -910,7 +911,7 @@ Partial Class frmSendungsdetailsNEU
|
||||
Me.ToolStripMenuItem10.Enabled = False
|
||||
Me.ToolStripMenuItem10.Image = Global.AVISO.My.Resources.Resources.plus
|
||||
Me.ToolStripMenuItem10.Name = "ToolStripMenuItem10"
|
||||
Me.ToolStripMenuItem10.Size = New System.Drawing.Size(93, 22)
|
||||
Me.ToolStripMenuItem10.Size = New System.Drawing.Size(101, 30)
|
||||
Me.ToolStripMenuItem10.Text = "Ü-T"
|
||||
Me.ToolStripMenuItem10.Visible = False
|
||||
'
|
||||
@@ -948,7 +949,7 @@ Partial Class frmSendungsdetailsNEU
|
||||
'
|
||||
Me.ToolStripMenuItem20.Image = Global.AVISO.My.Resources.Resources.plus
|
||||
Me.ToolStripMenuItem20.Name = "ToolStripMenuItem20"
|
||||
Me.ToolStripMenuItem20.Size = New System.Drawing.Size(95, 22)
|
||||
Me.ToolStripMenuItem20.Size = New System.Drawing.Size(103, 30)
|
||||
Me.ToolStripMenuItem20.Text = "EZA"
|
||||
'
|
||||
'ToolStripMenuItem18
|
||||
@@ -957,7 +958,7 @@ Partial Class frmSendungsdetailsNEU
|
||||
Me.ToolStripMenuItem18.Font = New System.Drawing.Font("Segoe UI", 9.0!)
|
||||
Me.ToolStripMenuItem18.Image = Global.AVISO.My.Resources.Resources.plus
|
||||
Me.ToolStripMenuItem18.Name = "ToolStripMenuItem18"
|
||||
Me.ToolStripMenuItem18.Size = New System.Drawing.Size(95, 22)
|
||||
Me.ToolStripMenuItem18.Size = New System.Drawing.Size(103, 30)
|
||||
Me.ToolStripMenuItem18.Text = "T1"
|
||||
'
|
||||
'ToolStripMenuItem19
|
||||
@@ -966,7 +967,7 @@ Partial Class frmSendungsdetailsNEU
|
||||
Me.ToolStripMenuItem19.Font = New System.Drawing.Font("Segoe UI", 9.0!)
|
||||
Me.ToolStripMenuItem19.Image = Global.AVISO.My.Resources.Resources.plus
|
||||
Me.ToolStripMenuItem19.Name = "ToolStripMenuItem19"
|
||||
Me.ToolStripMenuItem19.Size = New System.Drawing.Size(95, 22)
|
||||
Me.ToolStripMenuItem19.Size = New System.Drawing.Size(103, 30)
|
||||
Me.ToolStripMenuItem19.Text = "T2"
|
||||
'
|
||||
'ToolStripMenuItem21
|
||||
@@ -983,7 +984,7 @@ Partial Class frmSendungsdetailsNEU
|
||||
'
|
||||
Me.ToolStripMenuItem22.Image = Global.AVISO.My.Resources.Resources.weiterleiten_small1
|
||||
Me.ToolStripMenuItem22.Name = "ToolStripMenuItem22"
|
||||
Me.ToolStripMenuItem22.Size = New System.Drawing.Size(176, 22)
|
||||
Me.ToolStripMenuItem22.Size = New System.Drawing.Size(184, 30)
|
||||
Me.ToolStripMenuItem22.Text = "MIC Import senden"
|
||||
'
|
||||
'ToolStripMenuItem23
|
||||
@@ -991,7 +992,7 @@ Partial Class frmSendungsdetailsNEU
|
||||
Me.ToolStripMenuItem23.Font = New System.Drawing.Font("Segoe UI", 9.0!)
|
||||
Me.ToolStripMenuItem23.Image = Global.AVISO.My.Resources.Resources.weiterleiten_small1
|
||||
Me.ToolStripMenuItem23.Name = "ToolStripMenuItem23"
|
||||
Me.ToolStripMenuItem23.Size = New System.Drawing.Size(176, 22)
|
||||
Me.ToolStripMenuItem23.Size = New System.Drawing.Size(184, 30)
|
||||
Me.ToolStripMenuItem23.Text = "MIC Transit senden"
|
||||
'
|
||||
'ToolStripMenuItem24
|
||||
@@ -1000,7 +1001,7 @@ Partial Class frmSendungsdetailsNEU
|
||||
Me.ToolStripMenuItem24.Font = New System.Drawing.Font("Segoe UI", 9.0!)
|
||||
Me.ToolStripMenuItem24.Image = Global.AVISO.My.Resources.Resources.weiterleiten_small1
|
||||
Me.ToolStripMenuItem24.Name = "ToolStripMenuItem24"
|
||||
Me.ToolStripMenuItem24.Size = New System.Drawing.Size(176, 22)
|
||||
Me.ToolStripMenuItem24.Size = New System.Drawing.Size(184, 30)
|
||||
Me.ToolStripMenuItem24.Text = "MIC Export senden"
|
||||
'
|
||||
'ToolStripMenuItem12
|
||||
@@ -2880,6 +2881,66 @@ Partial Class frmSendungsdetailsNEU
|
||||
Me.Button1.Text = "BAR - Beleg"
|
||||
Me.Button1.UseVisualStyleBackColor = False
|
||||
'
|
||||
'cntlFrachtfuehrer_Sonst
|
||||
'
|
||||
Me.cntlFrachtfuehrer_Sonst._abrArt = "SONST"
|
||||
Me.cntlFrachtfuehrer_Sonst._beteiligter = "FRACHTF"
|
||||
Me.cntlFrachtfuehrer_Sonst._readOnly = True
|
||||
Me.cntlFrachtfuehrer_Sonst.Location = New System.Drawing.Point(632, 168)
|
||||
Me.cntlFrachtfuehrer_Sonst.Name = "cntlFrachtfuehrer_Sonst"
|
||||
Me.cntlFrachtfuehrer_Sonst.Size = New System.Drawing.Size(21, 20)
|
||||
Me.cntlFrachtfuehrer_Sonst.TabIndex = 82
|
||||
Me.cntlFrachtfuehrer_Sonst.TabStop = False
|
||||
Me.cntlFrachtfuehrer_Sonst.value = ""
|
||||
'
|
||||
'cntlAbsender_Sonst
|
||||
'
|
||||
Me.cntlAbsender_Sonst._abrArt = "SONST"
|
||||
Me.cntlAbsender_Sonst._beteiligter = "ABS"
|
||||
Me.cntlAbsender_Sonst._readOnly = True
|
||||
Me.cntlAbsender_Sonst.Location = New System.Drawing.Point(632, 133)
|
||||
Me.cntlAbsender_Sonst.Name = "cntlAbsender_Sonst"
|
||||
Me.cntlAbsender_Sonst.Size = New System.Drawing.Size(21, 20)
|
||||
Me.cntlAbsender_Sonst.TabIndex = 68
|
||||
Me.cntlAbsender_Sonst.TabStop = False
|
||||
Me.cntlAbsender_Sonst.value = ""
|
||||
'
|
||||
'cntlEmpfaenger_Sonst
|
||||
'
|
||||
Me.cntlEmpfaenger_Sonst._abrArt = "SONST"
|
||||
Me.cntlEmpfaenger_Sonst._beteiligter = "EMPF"
|
||||
Me.cntlEmpfaenger_Sonst._readOnly = True
|
||||
Me.cntlEmpfaenger_Sonst.Location = New System.Drawing.Point(632, 94)
|
||||
Me.cntlEmpfaenger_Sonst.Name = "cntlEmpfaenger_Sonst"
|
||||
Me.cntlEmpfaenger_Sonst.Size = New System.Drawing.Size(21, 20)
|
||||
Me.cntlEmpfaenger_Sonst.TabIndex = 53
|
||||
Me.cntlEmpfaenger_Sonst.TabStop = False
|
||||
Me.cntlEmpfaenger_Sonst.value = ""
|
||||
'
|
||||
'cntlAuftraggeber_Sonst
|
||||
'
|
||||
Me.cntlAuftraggeber_Sonst._abrArt = "SONST"
|
||||
Me.cntlAuftraggeber_Sonst._beteiligter = "AUFTR"
|
||||
Me.cntlAuftraggeber_Sonst._readOnly = True
|
||||
Me.cntlAuftraggeber_Sonst.Location = New System.Drawing.Point(632, 57)
|
||||
Me.cntlAuftraggeber_Sonst.Name = "cntlAuftraggeber_Sonst"
|
||||
Me.cntlAuftraggeber_Sonst.Size = New System.Drawing.Size(21, 20)
|
||||
Me.cntlAuftraggeber_Sonst.TabIndex = 36
|
||||
Me.cntlAuftraggeber_Sonst.TabStop = False
|
||||
Me.cntlAuftraggeber_Sonst.value = ""
|
||||
'
|
||||
'cntlAvisierer_Sonst
|
||||
'
|
||||
Me.cntlAvisierer_Sonst._abrArt = "SONST"
|
||||
Me.cntlAvisierer_Sonst._beteiligter = "AVISIERER"
|
||||
Me.cntlAvisierer_Sonst._readOnly = True
|
||||
Me.cntlAvisierer_Sonst.Location = New System.Drawing.Point(632, 20)
|
||||
Me.cntlAvisierer_Sonst.Name = "cntlAvisierer_Sonst"
|
||||
Me.cntlAvisierer_Sonst.Size = New System.Drawing.Size(21, 20)
|
||||
Me.cntlAvisierer_Sonst.TabIndex = 21
|
||||
Me.cntlAvisierer_Sonst.TabStop = False
|
||||
Me.cntlAvisierer_Sonst.value = ""
|
||||
'
|
||||
'lblSonstigesKosten
|
||||
'
|
||||
Me.lblSonstigesKosten.AutoSize = True
|
||||
@@ -2947,6 +3008,246 @@ Partial Class frmSendungsdetailsNEU
|
||||
Me.btnAufschub_VERAG.UseVisualStyleBackColor = False
|
||||
Me.btnAufschub_VERAG.Visible = False
|
||||
'
|
||||
'cntlFrachtf_Clear
|
||||
'
|
||||
Me.cntlFrachtf_Clear._abrArt = "CLEARING"
|
||||
Me.cntlFrachtf_Clear._beteiligter = "FRACHTF"
|
||||
Me.cntlFrachtf_Clear._readOnly = False
|
||||
Me.cntlFrachtf_Clear.Location = New System.Drawing.Point(600, 168)
|
||||
Me.cntlFrachtf_Clear.Name = "cntlFrachtf_Clear"
|
||||
Me.cntlFrachtf_Clear.Size = New System.Drawing.Size(21, 20)
|
||||
Me.cntlFrachtf_Clear.TabIndex = 81
|
||||
Me.cntlFrachtf_Clear.TabStop = False
|
||||
Me.cntlFrachtf_Clear.value = ""
|
||||
'
|
||||
'cntlFrachtf_Abf
|
||||
'
|
||||
Me.cntlFrachtf_Abf._abrArt = "ABFKOST"
|
||||
Me.cntlFrachtf_Abf._beteiligter = "FRACHTF"
|
||||
Me.cntlFrachtf_Abf._readOnly = False
|
||||
Me.cntlFrachtf_Abf.Location = New System.Drawing.Point(569, 168)
|
||||
Me.cntlFrachtf_Abf.Name = "cntlFrachtf_Abf"
|
||||
Me.cntlFrachtf_Abf.Size = New System.Drawing.Size(21, 20)
|
||||
Me.cntlFrachtf_Abf.TabIndex = 80
|
||||
Me.cntlFrachtf_Abf.TabStop = False
|
||||
Me.cntlFrachtf_Abf.value = ""
|
||||
'
|
||||
'cntlFrachtf_Eust
|
||||
'
|
||||
Me.cntlFrachtf_Eust._abrArt = "EUST"
|
||||
Me.cntlFrachtf_Eust._beteiligter = "FRACHTF"
|
||||
Me.cntlFrachtf_Eust._readOnly = False
|
||||
Me.cntlFrachtf_Eust.Location = New System.Drawing.Point(538, 168)
|
||||
Me.cntlFrachtf_Eust.Name = "cntlFrachtf_Eust"
|
||||
Me.cntlFrachtf_Eust.Size = New System.Drawing.Size(21, 20)
|
||||
Me.cntlFrachtf_Eust.TabIndex = 79
|
||||
Me.cntlFrachtf_Eust.TabStop = False
|
||||
Me.cntlFrachtf_Eust.value = ""
|
||||
'
|
||||
'cntlFrachtf_Zoll
|
||||
'
|
||||
Me.cntlFrachtf_Zoll._abrArt = "ZOLL"
|
||||
Me.cntlFrachtf_Zoll._beteiligter = "FRACHTF"
|
||||
Me.cntlFrachtf_Zoll._readOnly = False
|
||||
Me.cntlFrachtf_Zoll.Location = New System.Drawing.Point(507, 168)
|
||||
Me.cntlFrachtf_Zoll.Name = "cntlFrachtf_Zoll"
|
||||
Me.cntlFrachtf_Zoll.Size = New System.Drawing.Size(21, 20)
|
||||
Me.cntlFrachtf_Zoll.TabIndex = 78
|
||||
Me.cntlFrachtf_Zoll.TabStop = False
|
||||
Me.cntlFrachtf_Zoll.value = ""
|
||||
'
|
||||
'cntlAbsender_Clear
|
||||
'
|
||||
Me.cntlAbsender_Clear._abrArt = "CLEARING"
|
||||
Me.cntlAbsender_Clear._beteiligter = "ABS"
|
||||
Me.cntlAbsender_Clear._readOnly = False
|
||||
Me.cntlAbsender_Clear.Location = New System.Drawing.Point(600, 133)
|
||||
Me.cntlAbsender_Clear.Name = "cntlAbsender_Clear"
|
||||
Me.cntlAbsender_Clear.Size = New System.Drawing.Size(21, 20)
|
||||
Me.cntlAbsender_Clear.TabIndex = 67
|
||||
Me.cntlAbsender_Clear.TabStop = False
|
||||
Me.cntlAbsender_Clear.value = ""
|
||||
'
|
||||
'cntlAbsender_Abf
|
||||
'
|
||||
Me.cntlAbsender_Abf._abrArt = "ABFKOST"
|
||||
Me.cntlAbsender_Abf._beteiligter = "ABS"
|
||||
Me.cntlAbsender_Abf._readOnly = False
|
||||
Me.cntlAbsender_Abf.Location = New System.Drawing.Point(569, 133)
|
||||
Me.cntlAbsender_Abf.Name = "cntlAbsender_Abf"
|
||||
Me.cntlAbsender_Abf.Size = New System.Drawing.Size(21, 20)
|
||||
Me.cntlAbsender_Abf.TabIndex = 66
|
||||
Me.cntlAbsender_Abf.TabStop = False
|
||||
Me.cntlAbsender_Abf.value = ""
|
||||
'
|
||||
'cntlAbsender_Eust
|
||||
'
|
||||
Me.cntlAbsender_Eust._abrArt = "EUST"
|
||||
Me.cntlAbsender_Eust._beteiligter = "ABS"
|
||||
Me.cntlAbsender_Eust._readOnly = False
|
||||
Me.cntlAbsender_Eust.Location = New System.Drawing.Point(538, 133)
|
||||
Me.cntlAbsender_Eust.Name = "cntlAbsender_Eust"
|
||||
Me.cntlAbsender_Eust.Size = New System.Drawing.Size(21, 20)
|
||||
Me.cntlAbsender_Eust.TabIndex = 65
|
||||
Me.cntlAbsender_Eust.TabStop = False
|
||||
Me.cntlAbsender_Eust.value = ""
|
||||
'
|
||||
'cntlAbsender_Zoll
|
||||
'
|
||||
Me.cntlAbsender_Zoll._abrArt = "ZOLL"
|
||||
Me.cntlAbsender_Zoll._beteiligter = "ABS"
|
||||
Me.cntlAbsender_Zoll._readOnly = False
|
||||
Me.cntlAbsender_Zoll.Location = New System.Drawing.Point(507, 133)
|
||||
Me.cntlAbsender_Zoll.Name = "cntlAbsender_Zoll"
|
||||
Me.cntlAbsender_Zoll.Size = New System.Drawing.Size(21, 20)
|
||||
Me.cntlAbsender_Zoll.TabIndex = 64
|
||||
Me.cntlAbsender_Zoll.TabStop = False
|
||||
Me.cntlAbsender_Zoll.value = ""
|
||||
'
|
||||
'cntlEmpf_Clear
|
||||
'
|
||||
Me.cntlEmpf_Clear._abrArt = "CLEARING"
|
||||
Me.cntlEmpf_Clear._beteiligter = "EMPF"
|
||||
Me.cntlEmpf_Clear._readOnly = False
|
||||
Me.cntlEmpf_Clear.Location = New System.Drawing.Point(600, 94)
|
||||
Me.cntlEmpf_Clear.Name = "cntlEmpf_Clear"
|
||||
Me.cntlEmpf_Clear.Size = New System.Drawing.Size(21, 20)
|
||||
Me.cntlEmpf_Clear.TabIndex = 52
|
||||
Me.cntlEmpf_Clear.TabStop = False
|
||||
Me.cntlEmpf_Clear.value = ""
|
||||
'
|
||||
'cntlEmpf_Abf
|
||||
'
|
||||
Me.cntlEmpf_Abf._abrArt = "ABFKOST"
|
||||
Me.cntlEmpf_Abf._beteiligter = "EMPF"
|
||||
Me.cntlEmpf_Abf._readOnly = False
|
||||
Me.cntlEmpf_Abf.Location = New System.Drawing.Point(569, 94)
|
||||
Me.cntlEmpf_Abf.Name = "cntlEmpf_Abf"
|
||||
Me.cntlEmpf_Abf.Size = New System.Drawing.Size(21, 20)
|
||||
Me.cntlEmpf_Abf.TabIndex = 51
|
||||
Me.cntlEmpf_Abf.TabStop = False
|
||||
Me.cntlEmpf_Abf.value = ""
|
||||
'
|
||||
'cntlEmpf_Eust
|
||||
'
|
||||
Me.cntlEmpf_Eust._abrArt = "EUST"
|
||||
Me.cntlEmpf_Eust._beteiligter = "EMPF"
|
||||
Me.cntlEmpf_Eust._readOnly = False
|
||||
Me.cntlEmpf_Eust.Location = New System.Drawing.Point(538, 94)
|
||||
Me.cntlEmpf_Eust.Name = "cntlEmpf_Eust"
|
||||
Me.cntlEmpf_Eust.Size = New System.Drawing.Size(21, 20)
|
||||
Me.cntlEmpf_Eust.TabIndex = 50
|
||||
Me.cntlEmpf_Eust.TabStop = False
|
||||
Me.cntlEmpf_Eust.value = ""
|
||||
'
|
||||
'cntlEmpf_Zoll
|
||||
'
|
||||
Me.cntlEmpf_Zoll._abrArt = "ZOLL"
|
||||
Me.cntlEmpf_Zoll._beteiligter = "EMPF"
|
||||
Me.cntlEmpf_Zoll._readOnly = False
|
||||
Me.cntlEmpf_Zoll.Location = New System.Drawing.Point(507, 94)
|
||||
Me.cntlEmpf_Zoll.Name = "cntlEmpf_Zoll"
|
||||
Me.cntlEmpf_Zoll.Size = New System.Drawing.Size(21, 20)
|
||||
Me.cntlEmpf_Zoll.TabIndex = 49
|
||||
Me.cntlEmpf_Zoll.TabStop = False
|
||||
Me.cntlEmpf_Zoll.value = ""
|
||||
'
|
||||
'cntlAuftr_Clear
|
||||
'
|
||||
Me.cntlAuftr_Clear._abrArt = "CLEARING"
|
||||
Me.cntlAuftr_Clear._beteiligter = "AUFTR"
|
||||
Me.cntlAuftr_Clear._readOnly = False
|
||||
Me.cntlAuftr_Clear.Location = New System.Drawing.Point(600, 57)
|
||||
Me.cntlAuftr_Clear.Name = "cntlAuftr_Clear"
|
||||
Me.cntlAuftr_Clear.Size = New System.Drawing.Size(21, 20)
|
||||
Me.cntlAuftr_Clear.TabIndex = 35
|
||||
Me.cntlAuftr_Clear.TabStop = False
|
||||
Me.cntlAuftr_Clear.value = ""
|
||||
'
|
||||
'cntlAuftr_Abf
|
||||
'
|
||||
Me.cntlAuftr_Abf._abrArt = "ABFKOST"
|
||||
Me.cntlAuftr_Abf._beteiligter = "AUFTR"
|
||||
Me.cntlAuftr_Abf._readOnly = False
|
||||
Me.cntlAuftr_Abf.Location = New System.Drawing.Point(569, 57)
|
||||
Me.cntlAuftr_Abf.Name = "cntlAuftr_Abf"
|
||||
Me.cntlAuftr_Abf.Size = New System.Drawing.Size(21, 20)
|
||||
Me.cntlAuftr_Abf.TabIndex = 34
|
||||
Me.cntlAuftr_Abf.TabStop = False
|
||||
Me.cntlAuftr_Abf.value = ""
|
||||
'
|
||||
'cntlAuftr_Eust
|
||||
'
|
||||
Me.cntlAuftr_Eust._abrArt = "EUST"
|
||||
Me.cntlAuftr_Eust._beteiligter = "AUFTR"
|
||||
Me.cntlAuftr_Eust._readOnly = False
|
||||
Me.cntlAuftr_Eust.Location = New System.Drawing.Point(538, 57)
|
||||
Me.cntlAuftr_Eust.Name = "cntlAuftr_Eust"
|
||||
Me.cntlAuftr_Eust.Size = New System.Drawing.Size(21, 20)
|
||||
Me.cntlAuftr_Eust.TabIndex = 33
|
||||
Me.cntlAuftr_Eust.TabStop = False
|
||||
Me.cntlAuftr_Eust.value = ""
|
||||
'
|
||||
'cntlAuftr_Zoll
|
||||
'
|
||||
Me.cntlAuftr_Zoll._abrArt = "ZOLL"
|
||||
Me.cntlAuftr_Zoll._beteiligter = "AUFTR"
|
||||
Me.cntlAuftr_Zoll._readOnly = False
|
||||
Me.cntlAuftr_Zoll.Location = New System.Drawing.Point(507, 57)
|
||||
Me.cntlAuftr_Zoll.Name = "cntlAuftr_Zoll"
|
||||
Me.cntlAuftr_Zoll.Size = New System.Drawing.Size(21, 20)
|
||||
Me.cntlAuftr_Zoll.TabIndex = 32
|
||||
Me.cntlAuftr_Zoll.TabStop = False
|
||||
Me.cntlAuftr_Zoll.value = ""
|
||||
'
|
||||
'cntlAvisierer_Clear
|
||||
'
|
||||
Me.cntlAvisierer_Clear._abrArt = "CLEARING"
|
||||
Me.cntlAvisierer_Clear._beteiligter = "AVISIERER"
|
||||
Me.cntlAvisierer_Clear._readOnly = False
|
||||
Me.cntlAvisierer_Clear.Location = New System.Drawing.Point(600, 20)
|
||||
Me.cntlAvisierer_Clear.Name = "cntlAvisierer_Clear"
|
||||
Me.cntlAvisierer_Clear.Size = New System.Drawing.Size(21, 20)
|
||||
Me.cntlAvisierer_Clear.TabIndex = 20
|
||||
Me.cntlAvisierer_Clear.TabStop = False
|
||||
Me.cntlAvisierer_Clear.value = ""
|
||||
'
|
||||
'cntlAvisierer_Abf
|
||||
'
|
||||
Me.cntlAvisierer_Abf._abrArt = "ABFKOST"
|
||||
Me.cntlAvisierer_Abf._beteiligter = "AVISIERER"
|
||||
Me.cntlAvisierer_Abf._readOnly = False
|
||||
Me.cntlAvisierer_Abf.Location = New System.Drawing.Point(569, 20)
|
||||
Me.cntlAvisierer_Abf.Name = "cntlAvisierer_Abf"
|
||||
Me.cntlAvisierer_Abf.Size = New System.Drawing.Size(21, 20)
|
||||
Me.cntlAvisierer_Abf.TabIndex = 19
|
||||
Me.cntlAvisierer_Abf.TabStop = False
|
||||
Me.cntlAvisierer_Abf.value = ""
|
||||
'
|
||||
'cntlAvisierer_Eust
|
||||
'
|
||||
Me.cntlAvisierer_Eust._abrArt = "EUST"
|
||||
Me.cntlAvisierer_Eust._beteiligter = "AVISIERER"
|
||||
Me.cntlAvisierer_Eust._readOnly = False
|
||||
Me.cntlAvisierer_Eust.Location = New System.Drawing.Point(538, 20)
|
||||
Me.cntlAvisierer_Eust.Name = "cntlAvisierer_Eust"
|
||||
Me.cntlAvisierer_Eust.Size = New System.Drawing.Size(21, 20)
|
||||
Me.cntlAvisierer_Eust.TabIndex = 18
|
||||
Me.cntlAvisierer_Eust.TabStop = False
|
||||
Me.cntlAvisierer_Eust.value = ""
|
||||
'
|
||||
'cntlAvisierer_Zoll
|
||||
'
|
||||
Me.cntlAvisierer_Zoll._abrArt = "ZOLL"
|
||||
Me.cntlAvisierer_Zoll._beteiligter = "AVISIERER"
|
||||
Me.cntlAvisierer_Zoll._readOnly = False
|
||||
Me.cntlAvisierer_Zoll.Location = New System.Drawing.Point(507, 20)
|
||||
Me.cntlAvisierer_Zoll.Name = "cntlAvisierer_Zoll"
|
||||
Me.cntlAvisierer_Zoll.Size = New System.Drawing.Size(21, 20)
|
||||
Me.cntlAvisierer_Zoll.TabIndex = 17
|
||||
Me.cntlAvisierer_Zoll.TabStop = False
|
||||
Me.cntlAvisierer_Zoll.value = ""
|
||||
'
|
||||
'Panel15
|
||||
'
|
||||
Me.Panel15.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
|
||||
@@ -3135,6 +3436,14 @@ Partial Class frmSendungsdetailsNEU
|
||||
Me.pnlT1.Size = New System.Drawing.Size(549, 92)
|
||||
Me.pnlT1.TabIndex = 86
|
||||
'
|
||||
'UsrCntlSND_NCTSGestellungsadresse1
|
||||
'
|
||||
Me.UsrCntlSND_NCTSGestellungsadresse1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.UsrCntlSND_NCTSGestellungsadresse1.Location = New System.Drawing.Point(0, 0)
|
||||
Me.UsrCntlSND_NCTSGestellungsadresse1.Name = "UsrCntlSND_NCTSGestellungsadresse1"
|
||||
Me.UsrCntlSND_NCTSGestellungsadresse1.Size = New System.Drawing.Size(549, 92)
|
||||
Me.UsrCntlSND_NCTSGestellungsadresse1.TabIndex = 0
|
||||
'
|
||||
'Label43
|
||||
'
|
||||
Me.Label43.AutoSize = True
|
||||
@@ -4061,7 +4370,7 @@ Partial Class frmSendungsdetailsNEU
|
||||
Me.Panel2.Location = New System.Drawing.Point(0, 0)
|
||||
Me.Panel2.MaximumSize = New System.Drawing.Size(0, 510)
|
||||
Me.Panel2.Name = "Panel2"
|
||||
Me.Panel2.Size = New System.Drawing.Size(0, 55)
|
||||
Me.Panel2.Size = New System.Drawing.Size(1214, 55)
|
||||
Me.Panel2.TabIndex = 0
|
||||
'
|
||||
'FlowLayoutPanel
|
||||
@@ -4073,7 +4382,7 @@ Partial Class frmSendungsdetailsNEU
|
||||
Me.FlowLayoutPanel.MaximumSize = New System.Drawing.Size(0, 550)
|
||||
Me.FlowLayoutPanel.MinimumSize = New System.Drawing.Size(0, 53)
|
||||
Me.FlowLayoutPanel.Name = "FlowLayoutPanel"
|
||||
Me.FlowLayoutPanel.Size = New System.Drawing.Size(0, 55)
|
||||
Me.FlowLayoutPanel.Size = New System.Drawing.Size(1214, 55)
|
||||
Me.FlowLayoutPanel.TabIndex = 0
|
||||
'
|
||||
'FlatButton2
|
||||
@@ -4586,6 +4895,7 @@ Partial Class frmSendungsdetailsNEU
|
||||
'
|
||||
Me.BindingNavigatorPositionItem.AccessibleName = "Position"
|
||||
Me.BindingNavigatorPositionItem.AutoSize = False
|
||||
Me.BindingNavigatorPositionItem.Font = New System.Drawing.Font("Segoe UI", 9.0!)
|
||||
Me.BindingNavigatorPositionItem.Name = "BindingNavigatorPositionItem"
|
||||
Me.BindingNavigatorPositionItem.Size = New System.Drawing.Size(50, 23)
|
||||
Me.BindingNavigatorPositionItem.Text = "0"
|
||||
@@ -4754,9 +5064,9 @@ Partial Class frmSendungsdetailsNEU
|
||||
'ContextMenuStrip1
|
||||
'
|
||||
Me.ContextMenuStrip1.ImageScalingSize = New System.Drawing.Size(24, 24)
|
||||
Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem15, Me.T1BestätigungToolStripMenuItem, Me.SpeditionSUBENToolStripMenuItem, Me.ToolStripMenuItem16, Me.AuftragATANAKToolStripMenuItem, Me.ToolStripMenuItem26, Me.ToolStripMenuItem27, Me.ToolStripMenuItem25, Me.GVMSInfoToolStripMenuItem, Me.WarenortAMBARToolStripMenuItem})
|
||||
Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem15, Me.T1BestätigungToolStripMenuItem, Me.SpeditionSUBENToolStripMenuItem, Me.ToolStripMenuItem16, Me.AuftragATANAKToolStripMenuItem, Me.ToolStripMenuItem26, Me.ToolStripMenuItem27, Me.ToolStripMenuItem25, Me.GVMSInfoToolStripMenuItem, Me.WarenortAMBARToolStripMenuItem, Me.AuftragMOTISToolStripMenuItem})
|
||||
Me.ContextMenuStrip1.Name = "cntxtAnh"
|
||||
Me.ContextMenuStrip1.Size = New System.Drawing.Size(223, 304)
|
||||
Me.ContextMenuStrip1.Size = New System.Drawing.Size(223, 356)
|
||||
'
|
||||
'ToolStripMenuItem15
|
||||
'
|
||||
@@ -4912,313 +5222,12 @@ Partial Class frmSendungsdetailsNEU
|
||||
Me.NurÖffnenToolStripMenuItem.Size = New System.Drawing.Size(255, 30)
|
||||
Me.NurÖffnenToolStripMenuItem.Text = "nur öffnen"
|
||||
'
|
||||
'cntlFrachtfuehrer_Sonst
|
||||
'AuftragMOTISToolStripMenuItem
|
||||
'
|
||||
Me.cntlFrachtfuehrer_Sonst._abrArt = "SONST"
|
||||
Me.cntlFrachtfuehrer_Sonst._beteiligter = "FRACHTF"
|
||||
Me.cntlFrachtfuehrer_Sonst._readOnly = True
|
||||
Me.cntlFrachtfuehrer_Sonst.Location = New System.Drawing.Point(632, 168)
|
||||
Me.cntlFrachtfuehrer_Sonst.Name = "cntlFrachtfuehrer_Sonst"
|
||||
Me.cntlFrachtfuehrer_Sonst.Size = New System.Drawing.Size(21, 20)
|
||||
Me.cntlFrachtfuehrer_Sonst.TabIndex = 82
|
||||
Me.cntlFrachtfuehrer_Sonst.TabStop = False
|
||||
Me.cntlFrachtfuehrer_Sonst.value = ""
|
||||
'
|
||||
'cntlAbsender_Sonst
|
||||
'
|
||||
Me.cntlAbsender_Sonst._abrArt = "SONST"
|
||||
Me.cntlAbsender_Sonst._beteiligter = "ABS"
|
||||
Me.cntlAbsender_Sonst._readOnly = True
|
||||
Me.cntlAbsender_Sonst.Location = New System.Drawing.Point(632, 133)
|
||||
Me.cntlAbsender_Sonst.Name = "cntlAbsender_Sonst"
|
||||
Me.cntlAbsender_Sonst.Size = New System.Drawing.Size(21, 20)
|
||||
Me.cntlAbsender_Sonst.TabIndex = 68
|
||||
Me.cntlAbsender_Sonst.TabStop = False
|
||||
Me.cntlAbsender_Sonst.value = ""
|
||||
'
|
||||
'cntlEmpfaenger_Sonst
|
||||
'
|
||||
Me.cntlEmpfaenger_Sonst._abrArt = "SONST"
|
||||
Me.cntlEmpfaenger_Sonst._beteiligter = "EMPF"
|
||||
Me.cntlEmpfaenger_Sonst._readOnly = True
|
||||
Me.cntlEmpfaenger_Sonst.Location = New System.Drawing.Point(632, 94)
|
||||
Me.cntlEmpfaenger_Sonst.Name = "cntlEmpfaenger_Sonst"
|
||||
Me.cntlEmpfaenger_Sonst.Size = New System.Drawing.Size(21, 20)
|
||||
Me.cntlEmpfaenger_Sonst.TabIndex = 53
|
||||
Me.cntlEmpfaenger_Sonst.TabStop = False
|
||||
Me.cntlEmpfaenger_Sonst.value = ""
|
||||
'
|
||||
'cntlAuftraggeber_Sonst
|
||||
'
|
||||
Me.cntlAuftraggeber_Sonst._abrArt = "SONST"
|
||||
Me.cntlAuftraggeber_Sonst._beteiligter = "AUFTR"
|
||||
Me.cntlAuftraggeber_Sonst._readOnly = True
|
||||
Me.cntlAuftraggeber_Sonst.Location = New System.Drawing.Point(632, 57)
|
||||
Me.cntlAuftraggeber_Sonst.Name = "cntlAuftraggeber_Sonst"
|
||||
Me.cntlAuftraggeber_Sonst.Size = New System.Drawing.Size(21, 20)
|
||||
Me.cntlAuftraggeber_Sonst.TabIndex = 36
|
||||
Me.cntlAuftraggeber_Sonst.TabStop = False
|
||||
Me.cntlAuftraggeber_Sonst.value = ""
|
||||
'
|
||||
'cntlAvisierer_Sonst
|
||||
'
|
||||
Me.cntlAvisierer_Sonst._abrArt = "SONST"
|
||||
Me.cntlAvisierer_Sonst._beteiligter = "AVISIERER"
|
||||
Me.cntlAvisierer_Sonst._readOnly = True
|
||||
Me.cntlAvisierer_Sonst.Location = New System.Drawing.Point(632, 20)
|
||||
Me.cntlAvisierer_Sonst.Name = "cntlAvisierer_Sonst"
|
||||
Me.cntlAvisierer_Sonst.Size = New System.Drawing.Size(21, 20)
|
||||
Me.cntlAvisierer_Sonst.TabIndex = 21
|
||||
Me.cntlAvisierer_Sonst.TabStop = False
|
||||
Me.cntlAvisierer_Sonst.value = ""
|
||||
'
|
||||
'cntlFrachtf_Clear
|
||||
'
|
||||
Me.cntlFrachtf_Clear._abrArt = "CLEARING"
|
||||
Me.cntlFrachtf_Clear._beteiligter = "FRACHTF"
|
||||
Me.cntlFrachtf_Clear._readOnly = False
|
||||
Me.cntlFrachtf_Clear.Location = New System.Drawing.Point(600, 168)
|
||||
Me.cntlFrachtf_Clear.Name = "cntlFrachtf_Clear"
|
||||
Me.cntlFrachtf_Clear.Size = New System.Drawing.Size(21, 20)
|
||||
Me.cntlFrachtf_Clear.TabIndex = 81
|
||||
Me.cntlFrachtf_Clear.TabStop = False
|
||||
Me.cntlFrachtf_Clear.value = ""
|
||||
'
|
||||
'cntlFrachtf_Abf
|
||||
'
|
||||
Me.cntlFrachtf_Abf._abrArt = "ABFKOST"
|
||||
Me.cntlFrachtf_Abf._beteiligter = "FRACHTF"
|
||||
Me.cntlFrachtf_Abf._readOnly = False
|
||||
Me.cntlFrachtf_Abf.Location = New System.Drawing.Point(569, 168)
|
||||
Me.cntlFrachtf_Abf.Name = "cntlFrachtf_Abf"
|
||||
Me.cntlFrachtf_Abf.Size = New System.Drawing.Size(21, 20)
|
||||
Me.cntlFrachtf_Abf.TabIndex = 80
|
||||
Me.cntlFrachtf_Abf.TabStop = False
|
||||
Me.cntlFrachtf_Abf.value = ""
|
||||
'
|
||||
'cntlFrachtf_Eust
|
||||
'
|
||||
Me.cntlFrachtf_Eust._abrArt = "EUST"
|
||||
Me.cntlFrachtf_Eust._beteiligter = "FRACHTF"
|
||||
Me.cntlFrachtf_Eust._readOnly = False
|
||||
Me.cntlFrachtf_Eust.Location = New System.Drawing.Point(538, 168)
|
||||
Me.cntlFrachtf_Eust.Name = "cntlFrachtf_Eust"
|
||||
Me.cntlFrachtf_Eust.Size = New System.Drawing.Size(21, 20)
|
||||
Me.cntlFrachtf_Eust.TabIndex = 79
|
||||
Me.cntlFrachtf_Eust.TabStop = False
|
||||
Me.cntlFrachtf_Eust.value = ""
|
||||
'
|
||||
'cntlFrachtf_Zoll
|
||||
'
|
||||
Me.cntlFrachtf_Zoll._abrArt = "ZOLL"
|
||||
Me.cntlFrachtf_Zoll._beteiligter = "FRACHTF"
|
||||
Me.cntlFrachtf_Zoll._readOnly = False
|
||||
Me.cntlFrachtf_Zoll.Location = New System.Drawing.Point(507, 168)
|
||||
Me.cntlFrachtf_Zoll.Name = "cntlFrachtf_Zoll"
|
||||
Me.cntlFrachtf_Zoll.Size = New System.Drawing.Size(21, 20)
|
||||
Me.cntlFrachtf_Zoll.TabIndex = 78
|
||||
Me.cntlFrachtf_Zoll.TabStop = False
|
||||
Me.cntlFrachtf_Zoll.value = ""
|
||||
'
|
||||
'cntlAbsender_Clear
|
||||
'
|
||||
Me.cntlAbsender_Clear._abrArt = "CLEARING"
|
||||
Me.cntlAbsender_Clear._beteiligter = "ABS"
|
||||
Me.cntlAbsender_Clear._readOnly = False
|
||||
Me.cntlAbsender_Clear.Location = New System.Drawing.Point(600, 133)
|
||||
Me.cntlAbsender_Clear.Name = "cntlAbsender_Clear"
|
||||
Me.cntlAbsender_Clear.Size = New System.Drawing.Size(21, 20)
|
||||
Me.cntlAbsender_Clear.TabIndex = 67
|
||||
Me.cntlAbsender_Clear.TabStop = False
|
||||
Me.cntlAbsender_Clear.value = ""
|
||||
'
|
||||
'cntlAbsender_Abf
|
||||
'
|
||||
Me.cntlAbsender_Abf._abrArt = "ABFKOST"
|
||||
Me.cntlAbsender_Abf._beteiligter = "ABS"
|
||||
Me.cntlAbsender_Abf._readOnly = False
|
||||
Me.cntlAbsender_Abf.Location = New System.Drawing.Point(569, 133)
|
||||
Me.cntlAbsender_Abf.Name = "cntlAbsender_Abf"
|
||||
Me.cntlAbsender_Abf.Size = New System.Drawing.Size(21, 20)
|
||||
Me.cntlAbsender_Abf.TabIndex = 66
|
||||
Me.cntlAbsender_Abf.TabStop = False
|
||||
Me.cntlAbsender_Abf.value = ""
|
||||
'
|
||||
'cntlAbsender_Eust
|
||||
'
|
||||
Me.cntlAbsender_Eust._abrArt = "EUST"
|
||||
Me.cntlAbsender_Eust._beteiligter = "ABS"
|
||||
Me.cntlAbsender_Eust._readOnly = False
|
||||
Me.cntlAbsender_Eust.Location = New System.Drawing.Point(538, 133)
|
||||
Me.cntlAbsender_Eust.Name = "cntlAbsender_Eust"
|
||||
Me.cntlAbsender_Eust.Size = New System.Drawing.Size(21, 20)
|
||||
Me.cntlAbsender_Eust.TabIndex = 65
|
||||
Me.cntlAbsender_Eust.TabStop = False
|
||||
Me.cntlAbsender_Eust.value = ""
|
||||
'
|
||||
'cntlAbsender_Zoll
|
||||
'
|
||||
Me.cntlAbsender_Zoll._abrArt = "ZOLL"
|
||||
Me.cntlAbsender_Zoll._beteiligter = "ABS"
|
||||
Me.cntlAbsender_Zoll._readOnly = False
|
||||
Me.cntlAbsender_Zoll.Location = New System.Drawing.Point(507, 133)
|
||||
Me.cntlAbsender_Zoll.Name = "cntlAbsender_Zoll"
|
||||
Me.cntlAbsender_Zoll.Size = New System.Drawing.Size(21, 20)
|
||||
Me.cntlAbsender_Zoll.TabIndex = 64
|
||||
Me.cntlAbsender_Zoll.TabStop = False
|
||||
Me.cntlAbsender_Zoll.value = ""
|
||||
'
|
||||
'cntlEmpf_Clear
|
||||
'
|
||||
Me.cntlEmpf_Clear._abrArt = "CLEARING"
|
||||
Me.cntlEmpf_Clear._beteiligter = "EMPF"
|
||||
Me.cntlEmpf_Clear._readOnly = False
|
||||
Me.cntlEmpf_Clear.Location = New System.Drawing.Point(600, 94)
|
||||
Me.cntlEmpf_Clear.Name = "cntlEmpf_Clear"
|
||||
Me.cntlEmpf_Clear.Size = New System.Drawing.Size(21, 20)
|
||||
Me.cntlEmpf_Clear.TabIndex = 52
|
||||
Me.cntlEmpf_Clear.TabStop = False
|
||||
Me.cntlEmpf_Clear.value = ""
|
||||
'
|
||||
'cntlEmpf_Abf
|
||||
'
|
||||
Me.cntlEmpf_Abf._abrArt = "ABFKOST"
|
||||
Me.cntlEmpf_Abf._beteiligter = "EMPF"
|
||||
Me.cntlEmpf_Abf._readOnly = False
|
||||
Me.cntlEmpf_Abf.Location = New System.Drawing.Point(569, 94)
|
||||
Me.cntlEmpf_Abf.Name = "cntlEmpf_Abf"
|
||||
Me.cntlEmpf_Abf.Size = New System.Drawing.Size(21, 20)
|
||||
Me.cntlEmpf_Abf.TabIndex = 51
|
||||
Me.cntlEmpf_Abf.TabStop = False
|
||||
Me.cntlEmpf_Abf.value = ""
|
||||
'
|
||||
'cntlEmpf_Eust
|
||||
'
|
||||
Me.cntlEmpf_Eust._abrArt = "EUST"
|
||||
Me.cntlEmpf_Eust._beteiligter = "EMPF"
|
||||
Me.cntlEmpf_Eust._readOnly = False
|
||||
Me.cntlEmpf_Eust.Location = New System.Drawing.Point(538, 94)
|
||||
Me.cntlEmpf_Eust.Name = "cntlEmpf_Eust"
|
||||
Me.cntlEmpf_Eust.Size = New System.Drawing.Size(21, 20)
|
||||
Me.cntlEmpf_Eust.TabIndex = 50
|
||||
Me.cntlEmpf_Eust.TabStop = False
|
||||
Me.cntlEmpf_Eust.value = ""
|
||||
'
|
||||
'cntlEmpf_Zoll
|
||||
'
|
||||
Me.cntlEmpf_Zoll._abrArt = "ZOLL"
|
||||
Me.cntlEmpf_Zoll._beteiligter = "EMPF"
|
||||
Me.cntlEmpf_Zoll._readOnly = False
|
||||
Me.cntlEmpf_Zoll.Location = New System.Drawing.Point(507, 94)
|
||||
Me.cntlEmpf_Zoll.Name = "cntlEmpf_Zoll"
|
||||
Me.cntlEmpf_Zoll.Size = New System.Drawing.Size(21, 20)
|
||||
Me.cntlEmpf_Zoll.TabIndex = 49
|
||||
Me.cntlEmpf_Zoll.TabStop = False
|
||||
Me.cntlEmpf_Zoll.value = ""
|
||||
'
|
||||
'cntlAuftr_Clear
|
||||
'
|
||||
Me.cntlAuftr_Clear._abrArt = "CLEARING"
|
||||
Me.cntlAuftr_Clear._beteiligter = "AUFTR"
|
||||
Me.cntlAuftr_Clear._readOnly = False
|
||||
Me.cntlAuftr_Clear.Location = New System.Drawing.Point(600, 57)
|
||||
Me.cntlAuftr_Clear.Name = "cntlAuftr_Clear"
|
||||
Me.cntlAuftr_Clear.Size = New System.Drawing.Size(21, 20)
|
||||
Me.cntlAuftr_Clear.TabIndex = 35
|
||||
Me.cntlAuftr_Clear.TabStop = False
|
||||
Me.cntlAuftr_Clear.value = ""
|
||||
'
|
||||
'cntlAuftr_Abf
|
||||
'
|
||||
Me.cntlAuftr_Abf._abrArt = "ABFKOST"
|
||||
Me.cntlAuftr_Abf._beteiligter = "AUFTR"
|
||||
Me.cntlAuftr_Abf._readOnly = False
|
||||
Me.cntlAuftr_Abf.Location = New System.Drawing.Point(569, 57)
|
||||
Me.cntlAuftr_Abf.Name = "cntlAuftr_Abf"
|
||||
Me.cntlAuftr_Abf.Size = New System.Drawing.Size(21, 20)
|
||||
Me.cntlAuftr_Abf.TabIndex = 34
|
||||
Me.cntlAuftr_Abf.TabStop = False
|
||||
Me.cntlAuftr_Abf.value = ""
|
||||
'
|
||||
'cntlAuftr_Eust
|
||||
'
|
||||
Me.cntlAuftr_Eust._abrArt = "EUST"
|
||||
Me.cntlAuftr_Eust._beteiligter = "AUFTR"
|
||||
Me.cntlAuftr_Eust._readOnly = False
|
||||
Me.cntlAuftr_Eust.Location = New System.Drawing.Point(538, 57)
|
||||
Me.cntlAuftr_Eust.Name = "cntlAuftr_Eust"
|
||||
Me.cntlAuftr_Eust.Size = New System.Drawing.Size(21, 20)
|
||||
Me.cntlAuftr_Eust.TabIndex = 33
|
||||
Me.cntlAuftr_Eust.TabStop = False
|
||||
Me.cntlAuftr_Eust.value = ""
|
||||
'
|
||||
'cntlAuftr_Zoll
|
||||
'
|
||||
Me.cntlAuftr_Zoll._abrArt = "ZOLL"
|
||||
Me.cntlAuftr_Zoll._beteiligter = "AUFTR"
|
||||
Me.cntlAuftr_Zoll._readOnly = False
|
||||
Me.cntlAuftr_Zoll.Location = New System.Drawing.Point(507, 57)
|
||||
Me.cntlAuftr_Zoll.Name = "cntlAuftr_Zoll"
|
||||
Me.cntlAuftr_Zoll.Size = New System.Drawing.Size(21, 20)
|
||||
Me.cntlAuftr_Zoll.TabIndex = 32
|
||||
Me.cntlAuftr_Zoll.TabStop = False
|
||||
Me.cntlAuftr_Zoll.value = ""
|
||||
'
|
||||
'cntlAvisierer_Clear
|
||||
'
|
||||
Me.cntlAvisierer_Clear._abrArt = "CLEARING"
|
||||
Me.cntlAvisierer_Clear._beteiligter = "AVISIERER"
|
||||
Me.cntlAvisierer_Clear._readOnly = False
|
||||
Me.cntlAvisierer_Clear.Location = New System.Drawing.Point(600, 20)
|
||||
Me.cntlAvisierer_Clear.Name = "cntlAvisierer_Clear"
|
||||
Me.cntlAvisierer_Clear.Size = New System.Drawing.Size(21, 20)
|
||||
Me.cntlAvisierer_Clear.TabIndex = 20
|
||||
Me.cntlAvisierer_Clear.TabStop = False
|
||||
Me.cntlAvisierer_Clear.value = ""
|
||||
'
|
||||
'cntlAvisierer_Abf
|
||||
'
|
||||
Me.cntlAvisierer_Abf._abrArt = "ABFKOST"
|
||||
Me.cntlAvisierer_Abf._beteiligter = "AVISIERER"
|
||||
Me.cntlAvisierer_Abf._readOnly = False
|
||||
Me.cntlAvisierer_Abf.Location = New System.Drawing.Point(569, 20)
|
||||
Me.cntlAvisierer_Abf.Name = "cntlAvisierer_Abf"
|
||||
Me.cntlAvisierer_Abf.Size = New System.Drawing.Size(21, 20)
|
||||
Me.cntlAvisierer_Abf.TabIndex = 19
|
||||
Me.cntlAvisierer_Abf.TabStop = False
|
||||
Me.cntlAvisierer_Abf.value = ""
|
||||
'
|
||||
'cntlAvisierer_Eust
|
||||
'
|
||||
Me.cntlAvisierer_Eust._abrArt = "EUST"
|
||||
Me.cntlAvisierer_Eust._beteiligter = "AVISIERER"
|
||||
Me.cntlAvisierer_Eust._readOnly = False
|
||||
Me.cntlAvisierer_Eust.Location = New System.Drawing.Point(538, 20)
|
||||
Me.cntlAvisierer_Eust.Name = "cntlAvisierer_Eust"
|
||||
Me.cntlAvisierer_Eust.Size = New System.Drawing.Size(21, 20)
|
||||
Me.cntlAvisierer_Eust.TabIndex = 18
|
||||
Me.cntlAvisierer_Eust.TabStop = False
|
||||
Me.cntlAvisierer_Eust.value = ""
|
||||
'
|
||||
'cntlAvisierer_Zoll
|
||||
'
|
||||
Me.cntlAvisierer_Zoll._abrArt = "ZOLL"
|
||||
Me.cntlAvisierer_Zoll._beteiligter = "AVISIERER"
|
||||
Me.cntlAvisierer_Zoll._readOnly = False
|
||||
Me.cntlAvisierer_Zoll.Location = New System.Drawing.Point(507, 20)
|
||||
Me.cntlAvisierer_Zoll.Name = "cntlAvisierer_Zoll"
|
||||
Me.cntlAvisierer_Zoll.Size = New System.Drawing.Size(21, 20)
|
||||
Me.cntlAvisierer_Zoll.TabIndex = 17
|
||||
Me.cntlAvisierer_Zoll.TabStop = False
|
||||
Me.cntlAvisierer_Zoll.value = ""
|
||||
'
|
||||
'UsrCntlSND_NCTSGestellungsadresse1
|
||||
'
|
||||
Me.UsrCntlSND_NCTSGestellungsadresse1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.UsrCntlSND_NCTSGestellungsadresse1.Location = New System.Drawing.Point(0, 0)
|
||||
Me.UsrCntlSND_NCTSGestellungsadresse1.Name = "UsrCntlSND_NCTSGestellungsadresse1"
|
||||
Me.UsrCntlSND_NCTSGestellungsadresse1.Size = New System.Drawing.Size(549, 92)
|
||||
Me.UsrCntlSND_NCTSGestellungsadresse1.TabIndex = 0
|
||||
Me.AuftragMOTISToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.email_big1
|
||||
Me.AuftragMOTISToolStripMenuItem.Name = "AuftragMOTISToolStripMenuItem"
|
||||
Me.AuftragMOTISToolStripMenuItem.Size = New System.Drawing.Size(222, 30)
|
||||
Me.AuftragMOTISToolStripMenuItem.Text = "Auftrag MOTIS"
|
||||
'
|
||||
'frmSendungsdetailsNEU
|
||||
'
|
||||
@@ -5693,4 +5702,5 @@ Partial Class frmSendungsdetailsNEU
|
||||
Friend WithEvents OhneGestellungsgarantieToolStripMenuItem As ToolStripMenuItem
|
||||
Friend WithEvents AMBARZollbeschauNEUToolStripMenuItem As ToolStripMenuItem
|
||||
Friend WithEvents WarenortAMBARToolStripMenuItem As ToolStripMenuItem
|
||||
Friend WithEvents AuftragMOTISToolStripMenuItem As ToolStripMenuItem
|
||||
End Class
|
||||
|
||||
@@ -5795,4 +5795,59 @@ Public Class frmSendungsdetailsNEU
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub AuftragMOTISToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AuftragMOTISToolStripMenuItem.Click
|
||||
Try
|
||||
VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.clearTMPPath("ClipBoard_TMP")
|
||||
If dgvAnhang.SelectedRows.Count >= 1 Then
|
||||
Try
|
||||
Dim outl As New Outlook.Application
|
||||
Dim Mail As Microsoft.Office.Interop.Outlook.MailItem
|
||||
Mail = outl.CreateItem(0)
|
||||
Mail.To = "clearance@motisfreeflow.com"
|
||||
|
||||
Mail.Subject = "Arrival Notice " & If(AVISO.LKW_Nr <> "", AVISO.LKW_Nr, "") & " our Ref: " & SENDUNG_LIST(CURRENT_INDEX).FilialenNr & "/" & SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr
|
||||
|
||||
Dim TextHTML = ""
|
||||
TextHTML &= "Dear Motis Free Flow Team,<br>"
|
||||
TextHTML &= "<br>"
|
||||
TextHTML &= "please see attached.<br>"
|
||||
TextHTML &= "<br>"
|
||||
|
||||
For Each r As DataGridViewRow In dgvAnhang.SelectedRows
|
||||
Mail.Attachments.Add(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(r.Cells("anh_docId").Value), Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue)
|
||||
'If (r.Cells("anh_ART").Value <> "***" Or r.Cells("anh_ART").Value <> "") Then
|
||||
' TextHTML &= r.Cells("anh_ART").Value
|
||||
' TextHTML &= "<br>"
|
||||
'End If
|
||||
|
||||
Next
|
||||
|
||||
TextHTML &= "Import document <br>"
|
||||
TextHTML &= "T1 <br>"
|
||||
TextHTML &= "Commercial Invoice <br>"
|
||||
TextHTML &= "Packing list <br>"
|
||||
TextHTML &= "<br>"
|
||||
TextHTML &= "ETA to MOTIS " & IIf(AVISO.VoraussichtlichesEintreffen IsNot Nothing, CDate(AVISO.VoraussichtlichesEintreffen).ToShortDateString, "")
|
||||
TextHTML &= "<br>"
|
||||
TextHTML &= "<br>"
|
||||
TextHTML &= "Best regards<br>"
|
||||
TextHTML &= "<b>" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME & "</b><br>"
|
||||
TextHTML &= "<br>"
|
||||
|
||||
Mail.HTMLBody = "<div style=""font-family:Calibri, Arial;font-size:15px;"">" & TextHTML & SDL.cFakturierung.getSignature("EN",,,, "BREXIT_VERAG") & "</div>"
|
||||
|
||||
Dim answer = MsgBox("Vermerk 'An MOTIS avisiert' eintragen?", vbYesNoCancel)
|
||||
If vbYes = answer Then
|
||||
AvisoStatusFunctions.insertSendungsVermerk(SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID, AvisoId, "An MOTIS avisiert", 43)
|
||||
End If
|
||||
Mail.Display()
|
||||
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Fehler beim Öffnen der Mail!")
|
||||
End Try
|
||||
End If
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Fehler beim Öffnen der Mail!")
|
||||
End Try
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
@@ -196,7 +196,7 @@ Public Class frmWarenorte
|
||||
WarenortNew.wo_bezeichnung = txtBezeichnung.Text
|
||||
WarenortNew.wo_aktiv = cbxAktiv.Checked
|
||||
WarenortNew.wo_ort = txtOrt.Text
|
||||
WarenortNew.wo_grenzstelle = cbxGrenzstelle._value
|
||||
WarenortNew.wo_grenzstelle = IIf(cbxGrenzstelle._value = "", DBNull.Value, cbxGrenzstelle._value)
|
||||
WarenortNew.wo_firma = cbxFirmaChange._value
|
||||
WarenortNew.wo_cluster = txtCluster.Text
|
||||
WarenortNew.wo_knnr = txtKennr.Text
|
||||
@@ -208,12 +208,12 @@ Public Class frmWarenorte
|
||||
WarenortNew.wo_ze = cxZE.Checked
|
||||
WarenortNew.wo_zv = cxZV.Checked
|
||||
|
||||
If cbxGrenzstelle._value = "" Then
|
||||
lblWarning.Text = "Grenzstelle muss ausgewählt werden!"
|
||||
Exit Sub
|
||||
Else
|
||||
lblWarning.Text = ""
|
||||
End If
|
||||
'If cbxGrenzstelle._value = "" Then
|
||||
' lblWarning.Text = "Grenzstelle muss ausgewählt werden!"
|
||||
' Exit Sub
|
||||
'Else
|
||||
' lblWarning.Text = ""
|
||||
'End If
|
||||
|
||||
WarenortNew.SAVE()
|
||||
dgvWarenorteNew.GetOrder()
|
||||
|
||||
Reference in New Issue
Block a user