ATR Archiv Filter, ImportAssistent Anpassung width

This commit is contained in:
2025-05-20 10:29:41 +02:00
parent f732845f15
commit a8c0bee25b
7 changed files with 565 additions and 604 deletions

View File

@@ -1,4 +1,5 @@

Imports com.esendex.sdk.optouts.models
Imports DAKOSY_Worker.eZollTypes
Imports SDL
Imports VERAG_PROG_ALLGEMEIN
@@ -294,57 +295,23 @@ Public Class frmATEZ_EZA
ATEZ_RH_EZA.dispatchCountry = CZ.countryCode
End If
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
ATEZ_RH_EZA.dispatchCountry = If(ATEZ_RH_EZA.dispatchCountry, "") ' not null
ATEZ_RH_EZA.destinationCountry = If(ATEZ_RH_EZA.destinationCountry, "") ' not null
VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHub_sendToRelayHub_JobOrderRequest.query_declarations(ATEZ_RH_EZA)
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'-------------------SENDEN-----------------------------------------------------------------------------------------------------------------------------------------------------------------
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Dim RESP = VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHub_sendToRelayHub_JobOrderRequest.query_declarations(ATEZ_RH_EZA)
If RESP.Success Then
MsgBox("Erfolgreich gesendet!")
'-> ATEZ ID Speichern
Me.Close()
Else
MsgBox("ERROR" & vbNewLine & RESP.Details, MsgBoxStyle.OkOnly, RESP.Message)
'With atez_data
' .AvisoId = AVISO.AvisoID
' .SendungsId = SENDUNG.tblSnd_SendungID
' .VERAG_LRN = lblBezugsnummer.Text
' .LicensePlateContainerNo = txtLKWId.Text
' .DAKOSY_TemplateCode = cboStammreferenz._value
' If .DAKOSY_TemplateCode = "" Then .DAKOSY_TemplateCode = "*OWN"
' .DAKOSY_Procedure = cboProzedur._value
' .DAKOSY_IOPartner = txtDyMandant.Text
' .DAKOSY_Division3 = txtDyNiederlassung.Text
' .DepartureCustomsOffice = sbAbgangZollstelle._value
' .DestinationCustomsOffice = sbBestimmungsZollstelle._value
' .DatDeterminationLimit = txtDat.Text
' .CoolingTemperature = IIf(cbxTemperatur.Checked, txtTransporttemp.Text, "")
' .Carrier_Name = usrCntl_Carrier.kdFirma.Text
' .Carrier_Adress_City = usrCntl_Carrier.txtOrt.Text
' .Carrier_Adress_Country = usrCntl_Carrier.sbLand._value
' .Carrier_Adress_Postcode = usrCntl_Carrier.txtPlz.Text
' .Carrier_Adress_Street = usrCntl_Carrier.txtStrasse.Text
' .Carrier_EORI = usrCntl_Carrier.txtEORI.Text
' .Guarantee_GRN = "" 'leer
' .erstellerId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID
' If .selectedDocuments <> "" Then .selectedDocuments = ""
' For Each doc As DataGridViewRow In dgvAnhaenge.Rows
' Dim isSelected = IIf(DBNull.Value Is doc.Cells("anh_selekt").Value, False, doc.Cells("anh_selekt").Value)
' If isSelected Then
' .selectedDocuments &= doc.Cells("anh_docId").Value & ", "
' End If
' Next
' .SAVE()
' End With
' saveDurchgangszollstelle(atez_data)
'saveRoute(atez_data)
'setDurchgangszolstellen()
'setRoute()
'If sendAtezData(atez_data, atez) Then
' AvisoStatusFunctions.insertSendungsVermerk(SENDUNG.tblSnd_SendungID, SENDUNG.tblSnd_AvisoID, "An ATEZ gesendet", 109)
' Me.Close()
'Else
' Me.Close()
'End If
End If
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Me.Cursor = Cursors.Default

View File

@@ -98,9 +98,9 @@ Partial Class frmSendungAnhangImport
Me.flpnlAviso.Controls.Add(Me.UsrCntlSendungAnhangElement1)
Me.flpnlAviso.Controls.Add(Me.UsrCntlSendungAnhangElement2)
Me.flpnlAviso.FlowDirection = System.Windows.Forms.FlowDirection.TopDown
Me.flpnlAviso.Location = New System.Drawing.Point(15, 30)
Me.flpnlAviso.Location = New System.Drawing.Point(3, 30)
Me.flpnlAviso.Name = "flpnlAviso"
Me.flpnlAviso.Size = New System.Drawing.Size(200, 825)
Me.flpnlAviso.Size = New System.Drawing.Size(253, 825)
Me.flpnlAviso.TabIndex = 7
'
'UsrCntlSendungAnhangElement1
@@ -143,16 +143,16 @@ Partial Class frmSendungAnhangImport
Me.flpnlSendungen.AutoScroll = True
Me.flpnlSendungen.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.flpnlSendungen.FlowDirection = System.Windows.Forms.FlowDirection.TopDown
Me.flpnlSendungen.Location = New System.Drawing.Point(6, 149)
Me.flpnlSendungen.Location = New System.Drawing.Point(8, 149)
Me.flpnlSendungen.Name = "flpnlSendungen"
Me.flpnlSendungen.Size = New System.Drawing.Size(230, 643)
Me.flpnlSendungen.Size = New System.Drawing.Size(306, 643)
Me.flpnlSendungen.TabIndex = 10
'
'lblSendungen
'
Me.lblSendungen.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lblSendungen.AutoSize = True
Me.lblSendungen.Location = New System.Drawing.Point(3, 12)
Me.lblSendungen.Location = New System.Drawing.Point(81, 12)
Me.lblSendungen.Name = "lblSendungen"
Me.lblSendungen.Size = New System.Drawing.Size(65, 13)
Me.lblSendungen.TabIndex = 6
@@ -189,9 +189,9 @@ Partial Class frmSendungAnhangImport
Me.pnlAnfuegen.Controls.Add(Me.txtSeiten)
Me.pnlAnfuegen.Controls.Add(Me.lblSeiten)
Me.pnlAnfuegen.Controls.Add(Me.cbxDelPDF)
Me.pnlAnfuegen.Location = New System.Drawing.Point(221, 30)
Me.pnlAnfuegen.Location = New System.Drawing.Point(262, 30)
Me.pnlAnfuegen.Name = "pnlAnfuegen"
Me.pnlAnfuegen.Size = New System.Drawing.Size(846, 162)
Me.pnlAnfuegen.Size = New System.Drawing.Size(844, 162)
Me.pnlAnfuegen.TabIndex = 8
'
'cbxAlternativePDFAnsicht
@@ -475,16 +475,16 @@ Partial Class frmSendungAnhangImport
Me.pnl.Controls.Add(Me.Button5)
Me.pnl.Controls.Add(Me.PdfViewer)
Me.pnl.Controls.Add(Me.WebBrowser)
Me.pnl.Location = New System.Drawing.Point(221, 198)
Me.pnl.Location = New System.Drawing.Point(262, 198)
Me.pnl.Name = "pnl"
Me.pnl.Size = New System.Drawing.Size(846, 657)
Me.pnl.Size = New System.Drawing.Size(844, 657)
Me.pnl.TabIndex = 11
'
'Button5
'
Me.Button5.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Button5.Image = Global.AVISO.My.Resources.Resources.refresh
Me.Button5.Location = New System.Drawing.Point(793, 1)
Me.Button5.Location = New System.Drawing.Point(791, 1)
Me.Button5.Name = "Button5"
Me.Button5.Size = New System.Drawing.Size(48, 34)
Me.Button5.TabIndex = 2
@@ -502,7 +502,7 @@ Partial Class frmSendungAnhangImport
Me.PdfViewer.MultiPagesThreshold = 60
Me.PdfViewer.Name = "PdfViewer"
Me.PdfViewer.OnRenderPageExceptionEvent = Nothing
Me.PdfViewer.Size = New System.Drawing.Size(844, 655)
Me.PdfViewer.Size = New System.Drawing.Size(842, 655)
Me.PdfViewer.TabIndex = 0
Me.PdfViewer.Threshold = 60
Me.PdfViewer.ViewerBackgroundColor = System.Drawing.Color.FromArgb(CType(CType(229, Byte), Integer), CType(CType(229, Byte), Integer), CType(CType(229, Byte), Integer))
@@ -513,7 +513,7 @@ Partial Class frmSendungAnhangImport
Me.WebBrowser.Location = New System.Drawing.Point(0, 0)
Me.WebBrowser.MinimumSize = New System.Drawing.Size(20, 20)
Me.WebBrowser.Name = "WebBrowser"
Me.WebBrowser.Size = New System.Drawing.Size(844, 655)
Me.WebBrowser.Size = New System.Drawing.Size(842, 655)
Me.WebBrowser.TabIndex = 1
'
'Button3
@@ -521,9 +521,9 @@ Partial Class frmSendungAnhangImport
Me.Button3.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Button3.BackColor = System.Drawing.Color.Wheat
Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button3.Location = New System.Drawing.Point(6, 798)
Me.Button3.Location = New System.Drawing.Point(8, 798)
Me.Button3.Name = "Button3"
Me.Button3.Size = New System.Drawing.Size(230, 56)
Me.Button3.Size = New System.Drawing.Size(306, 56)
Me.Button3.TabIndex = 12
Me.Button3.Text = "<< zurück <<"
Me.Button3.UseVisualStyleBackColor = False
@@ -533,7 +533,7 @@ Partial Class frmSendungAnhangImport
Me.btnSndDel.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnSndDel.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnSndDel.Image = Global.AVISO.My.Resources.Resources.del1
Me.btnSndDel.Location = New System.Drawing.Point(204, 0)
Me.btnSndDel.Location = New System.Drawing.Point(282, 0)
Me.btnSndDel.Name = "btnSndDel"
Me.btnSndDel.Size = New System.Drawing.Size(32, 25)
Me.btnSndDel.TabIndex = 2
@@ -544,7 +544,7 @@ Partial Class frmSendungAnhangImport
Me.btnAddSnd.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnAddSnd.ContextMenuStrip = Me.cntxt
Me.btnAddSnd.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnAddSnd.Location = New System.Drawing.Point(74, 0)
Me.btnAddSnd.Location = New System.Drawing.Point(152, 0)
Me.btnAddSnd.Name = "btnAddSnd"
Me.btnAddSnd.Size = New System.Drawing.Size(58, 25)
Me.btnAddSnd.TabIndex = 1
@@ -560,27 +560,27 @@ Partial Class frmSendungAnhangImport
Me.cboSendungen.DropDownWidth = 450
Me.cboSendungen.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cboSendungen.FormattingEnabled = True
Me.cboSendungen.Location = New System.Drawing.Point(6, 28)
Me.cboSendungen.Location = New System.Drawing.Point(8, 28)
Me.cboSendungen.Name = "cboSendungen"
Me.cboSendungen.Size = New System.Drawing.Size(230, 28)
Me.cboSendungen.Size = New System.Drawing.Size(306, 28)
Me.cboSendungen.TabIndex = 9
'
'lblSendungsdetails
'
Me.lblSendungsdetails.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lblSendungsdetails.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblSendungsdetails.Location = New System.Drawing.Point(10, 96)
Me.lblSendungsdetails.Location = New System.Drawing.Point(12, 96)
Me.lblSendungsdetails.Name = "lblSendungsdetails"
Me.lblSendungsdetails.Size = New System.Drawing.Size(157, 21)
Me.lblSendungsdetails.Size = New System.Drawing.Size(233, 21)
Me.lblSendungsdetails.TabIndex = 13
Me.lblSendungsdetails.Text = "-"
'
'lblWarenbeichnung
'
Me.lblWarenbeichnung.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lblWarenbeichnung.Location = New System.Drawing.Point(10, 114)
Me.lblWarenbeichnung.Location = New System.Drawing.Point(12, 114)
Me.lblWarenbeichnung.Name = "lblWarenbeichnung"
Me.lblWarenbeichnung.Size = New System.Drawing.Size(223, 31)
Me.lblWarenbeichnung.Size = New System.Drawing.Size(299, 31)
Me.lblWarenbeichnung.TabIndex = 14
Me.lblWarenbeichnung.Text = "-"
'
@@ -590,7 +590,7 @@ Partial Class frmSendungAnhangImport
Me.btnSndEdit.ContextMenuStrip = Me.cntxt
Me.btnSndEdit.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnSndEdit.Image = Global.AVISO.My.Resources.Resources.stift1
Me.btnSndEdit.Location = New System.Drawing.Point(138, 1)
Me.btnSndEdit.Location = New System.Drawing.Point(216, 1)
Me.btnSndEdit.Name = "btnSndEdit"
Me.btnSndEdit.Size = New System.Drawing.Size(29, 25)
Me.btnSndEdit.TabIndex = 15
@@ -600,9 +600,9 @@ Partial Class frmSendungAnhangImport
'
Me.lblAbsender.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lblAbsender.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblAbsender.Location = New System.Drawing.Point(10, 65)
Me.lblAbsender.Location = New System.Drawing.Point(12, 65)
Me.lblAbsender.Name = "lblAbsender"
Me.lblAbsender.Size = New System.Drawing.Size(223, 15)
Me.lblAbsender.Size = New System.Drawing.Size(299, 15)
Me.lblAbsender.TabIndex = 16
Me.lblAbsender.Text = "-"
'
@@ -610,9 +610,9 @@ Partial Class frmSendungAnhangImport
'
Me.lblEmpfaenger.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lblEmpfaenger.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblEmpfaenger.Location = New System.Drawing.Point(10, 80)
Me.lblEmpfaenger.Location = New System.Drawing.Point(12, 80)
Me.lblEmpfaenger.Name = "lblEmpfaenger"
Me.lblEmpfaenger.Size = New System.Drawing.Size(223, 17)
Me.lblEmpfaenger.Size = New System.Drawing.Size(299, 17)
Me.lblEmpfaenger.TabIndex = 17
Me.lblEmpfaenger.Text = "-"
'
@@ -620,9 +620,9 @@ Partial Class frmSendungAnhangImport
'
Me.Panel1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Panel1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Panel1.Location = New System.Drawing.Point(6, 96)
Me.Panel1.Location = New System.Drawing.Point(16, 96)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(230, 1)
Me.Panel1.Size = New System.Drawing.Size(294, 1)
Me.Panel1.TabIndex = 18
'
'Button17
@@ -633,7 +633,7 @@ Partial Class frmSendungAnhangImport
Me.Button17.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button17.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
Me.Button17.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button17.Location = New System.Drawing.Point(173, 0)
Me.Button17.Location = New System.Drawing.Point(251, 0)
Me.Button17.Name = "Button17"
Me.Button17.Padding = New System.Windows.Forms.Padding(0, 0, 10, 0)
Me.Button17.Size = New System.Drawing.Size(25, 26)
@@ -645,7 +645,7 @@ Partial Class frmSendungAnhangImport
'
Me.lblRgPreis.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lblRgPreis.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblRgPreis.Location = New System.Drawing.Point(129, 96)
Me.lblRgPreis.Location = New System.Drawing.Point(207, 96)
Me.lblRgPreis.Name = "lblRgPreis"
Me.lblRgPreis.Size = New System.Drawing.Size(107, 21)
Me.lblRgPreis.TabIndex = 19
@@ -669,9 +669,9 @@ Partial Class frmSendungAnhangImport
Me.pnlSendung.Controls.Add(Me.btnAddSnd)
Me.pnlSendung.Controls.Add(Me.lblSendungsdetails)
Me.pnlSendung.Dock = System.Windows.Forms.DockStyle.Right
Me.pnlSendung.Location = New System.Drawing.Point(1066, 0)
Me.pnlSendung.Location = New System.Drawing.Point(1112, 0)
Me.pnlSendung.Name = "pnlSendung"
Me.pnlSendung.Size = New System.Drawing.Size(243, 860)
Me.pnlSendung.Size = New System.Drawing.Size(321, 860)
Me.pnlSendung.TabIndex = 0
'
'frmSendungAnhangImport
@@ -680,7 +680,7 @@ Partial Class frmSendungAnhangImport
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.White
Me.ClientSize = New System.Drawing.Size(1309, 860)
Me.ClientSize = New System.Drawing.Size(1433, 860)
Me.Controls.Add(Me.btnDel)
Me.Controls.Add(Me.btnAdd)
Me.Controls.Add(Me.pnlAnfuegen)

View File

@@ -1397,11 +1397,15 @@ Public Class frmSendungAnhangImport
USRCNTL.ACTIVE = True
End If
End If
USRCNTL.Width = pnl.Width - 10
initElement(USRCNTL)
If Not returnElement Then
pnl.Controls.Add(USRCNTL)
End If
Return USRCNTL
End Function

View File

@@ -38,8 +38,6 @@ Partial Class usrCntlSendungAnhangElement
'
'pic
'
Me.pic.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.pic.BackgroundImage = Global.AVISO.My.Resources.Resources.docAllgemein
Me.pic.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.pic.ContextMenuStrip = Me.cntxt
@@ -94,7 +92,7 @@ Partial Class usrCntlSendungAnhangElement
Me.lbl.ContextMenuStrip = Me.cntxt
Me.lbl.Location = New System.Drawing.Point(36, 0)
Me.lbl.Name = "lbl"
Me.lbl.Size = New System.Drawing.Size(140, 24)
Me.lbl.Size = New System.Drawing.Size(140, 25)
Me.lbl.TabIndex = 1
Me.lbl.Text = "NAME asd asdasd" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "asdasdasd"
Me.lbl.TextAlign = System.Drawing.ContentAlignment.MiddleLeft

View File

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

File diff suppressed because it is too large Load Diff

View File

@@ -1531,9 +1531,6 @@
mVCCPwiVeQBaqAV4Jfq5XQAAAABJRU5ErkJggg==
</value>
</data>
<metadata name="MenuStrip.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>296, 17</value>
</metadata>
<data name="Button6.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABQAAAAUCAYAAACNiR0NAAAABGdBTUEAALGPC/xhBQAAAIdJREFUOE/V
@@ -2060,9 +2057,6 @@
<metadata name="cntxtOptions.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>174, 17</value>
</metadata>
<metadata name="ToolTip.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>404, 17</value>
</metadata>
<metadata name="ctxtWeitereFormulare.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>596, 17</value>
</metadata>