Neues Layout div; ATEZ API

This commit is contained in:
2026-10-20 13:17:52 +02:00
parent 40f407332c
commit 07249f427b
17 changed files with 931 additions and 837 deletions

View File

@@ -173,27 +173,27 @@ Public Class frmATEZ_EZA
New VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHubDeclaration With {
.objectIdentification = New VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHubObjectIdentification With {
.objectName = lblBezugsnummer.Text,'& "_TEST"
.objectAlias = ioReference,
.declarationType = "EZA-D",
.shipmentId = "123",
.avisoId = "456"
},
.headerData = New VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHubHeaderData With {
.agentContact = New VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHubAgentContact With {
.contactPersonName = If(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.Fullname, ""),
.contactPersonPhoneNumber = getTelefon(),
.contactPersonPosition = "Zolldeklarant/in",
.contactPersonEmail = If(String.IsNullOrEmpty(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_email), getDefaultMail_FIRMA(), VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_email)
.objectAlias = ioReference,
.declarationType = "EZA-D",
.shipmentId = SENDUNG.tblSnd_SendungID,
.avisoId = SENDUNG.tblSnd_AvisoID
},
.declarantIsConsignee = True,
.representationRelationshipCode = "",'-1, '??????????????????????????????????????????????????????????????
.inputTaxDeduction = True,'"",'"true",
.procedureCodeRequested = procedureCodeRequested.ToString,' .goodsStatus = "",'"EU",
.transportMeansArrivalIdentity = txtLKWId.Text,
.transportMeansNationalityCode = If(AVISO.LKW_Nationalitaet, "")
}
}
.headerData = New VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHubHeaderData With {
.agentContact = New VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHubAgentContact With {
.contactPersonName = If(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.Fullname, ""),
.contactPersonPhoneNumber = getTelefon(),
.contactPersonPosition = "Zolldeklarant/in",
.contactPersonEmail = If(String.IsNullOrEmpty(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_email), getDefaultMail_FIRMA(), VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_email)
},
.declarantIsConsignee = True,
.representationRelationshipCode = "",'-1, '??????????????????????????????????????????????????????????????
.inputTaxDeduction = True,'"",'"true",
.procedureCodeRequested = procedureCodeRequested.ToString,' .goodsStatus = "",'"EU",
.transportMeansArrivalIdentity = txtLKWId.Text,
.transportMeansNationalityCode = If(AVISO.LKW_Nationalitaet, "")
}
}
}
},
.additionalSettings = New cRelayHubAdditionalSettings With {
.combineOptions = AdditionalSettings,

View File

@@ -108,7 +108,12 @@ Public Class frmATEZ_MIC
},
.declaration = New List(Of VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHubDeclaration) From {
New VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHubDeclaration With {
.addresses = New List(Of VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHubAddress)
.addresses = New List(Of VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHubAddress),
.objectIdentification = New VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHubObjectIdentification With {
.objectName = lblBezugsnummer.Text,
.shipmentId = SENDUNG.tblSnd_SendungID,
.avisoId = SENDUNG.tblSnd_AvisoID
}
}
}
},

View File

@@ -101,7 +101,7 @@ Partial Class frmATEZ_TELOTEC
'
'PictureBox1
'
Me.PictureBox1.BackgroundImage = Global.AVISO.My.Resources.Resources.modaltrans_uk
Me.PictureBox1.BackgroundImage = Global.AVISO.My.Resources.Resources.teleotc_at
Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.PictureBox1.Location = New System.Drawing.Point(572, 34)
Me.PictureBox1.Name = "PictureBox1"
@@ -427,7 +427,7 @@ Partial Class frmATEZ_TELOTEC
Me.Panel1.Size = New System.Drawing.Size(470, 54)
Me.Panel1.TabIndex = 164
'
'frmATEZ_UK_MODAL
'frmATEZ_TELOTEC
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
@@ -443,7 +443,7 @@ Partial Class frmATEZ_TELOTEC
Me.Controls.Add(Me.Panel1)
Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "frmATEZ_UK_MODAL"
Me.Name = "frmATEZ_TELOTEC"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "ATEZ UK"
Me.pnlHead.ResumeLayout(False)

View File

@@ -118,8 +118,8 @@ Public Class frmATEZ_TELOTEC
.objectIdentification = New VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHubObjectIdentification With {
.objectName = lblBezugsnummer.Text,
.objectAlias = ioReference,
.shipmentId = "123",
.avisoId = "456"
.shipmentId = SENDUNG.tblSnd_SendungID,
.avisoId = SENDUNG.tblSnd_AvisoID
},
.headerData = New VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHubHeaderData With {
.agentContact = New VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHubAgentContact With {

View File

@@ -120,8 +120,8 @@ Public Class frmATEZ_UK_MODAL
.objectIdentification = New VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHubObjectIdentification With {
.objectName = lblBezugsnummer.Text,
.objectAlias = ioReference,
.shipmentId = "123",
.avisoId = "456"
.shipmentId = SENDUNG.tblSnd_SendungID,
.avisoId = SENDUNG.tblSnd_AvisoID
},
.headerData = New VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHubHeaderData With {
.agentContact = New VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHubAgentContact With {
@@ -133,7 +133,7 @@ Public Class frmATEZ_UK_MODAL
.serviceCode = "cds",
.docType = "import",
.declarationType = "IMD",
.declarantEori = "GB************",
.declarantEori = "GB078068385000",
.procedureCodeRequested = "4000",
.transportMeansArrivalIdentity = txtLKWId.Text,
.transportMeansNationalityCode = If(AVISO.LKW_Nationalitaet, "")