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

Merge branch 'ADMIN' of https://git.it.verag.ag/edv/ADMIN into ADMIN

Browse Source
This commit is contained in:
d.breimaier
2026-04-27 08:32:17 +02:00
parent 131c638a98 79dbfe0c43
commit 1449dcb894
6 changed files with 4173 additions and 75 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3726
DAKOSY_Worker/DAKOSY/ATLAS/SumA/SummarischeAnmeldung/SummarischeAnmeldung_001.Designer.vb generated Normal file
View File

File diff suppressed because it is too large Load Diff

332
DAKOSY_Worker/DAKOSY/ATLAS/SumA/SummarischeAnmeldung/SummarischeAnmeldung_001.xsd Normal file
View File

@@ -0,0 +1,332 @@
<?xml version="1.0" encoding="UTF-8"?>
<xs:schema xmlns:xs="http://www.w3.org/2001/XMLSchema">
<xs:element name="SummarischeAnmeldung" type="SummarischeAnmeldungVVTyp">
<xs:annotation>
<xs:documentation>Version 001 - Release 015</xs:documentation>
</xs:annotation>
</xs:element>
<xs:complexType name="AdresseVVTyp">
<xs:sequence>
<xs:element name="TeilnehmerEORI" type="an..17" minOccurs="0"/>
<xs:element name="TeilnehmerNLNR" type="n..4" minOccurs="0"/>
<xs:element name="Zollnummer" type="an..7" minOccurs="0"/>
<xs:element name="NameFirma" type="an..120" minOccurs="0"/>
<xs:element name="Nationalitaet" type="an..2" minOccurs="0"/>
<xs:element name="StrasseHausnummer" type="an..35" minOccurs="0"/>
<xs:element name="PostleitzahlS" type="an..9" minOccurs="0"/>
<xs:element name="OrtS" type="an..35" minOccurs="0"/>
<xs:element name="Ortsteil" type="an..35" minOccurs="0"/>
<xs:element name="Postfach" type="an..20" minOccurs="0"/>
<xs:element name="PostleitzahlP" type="an..9" minOccurs="0"/>
<xs:element name="OrtP" type="an..35" minOccurs="0"/>
</xs:sequence>
</xs:complexType>
<xs:simpleType name="an..1">
<xs:restriction base="xs:string">
<xs:maxLength value="1"/>
</xs:restriction>
</xs:simpleType>
<xs:simpleType name="an..10">
<xs:restriction base="xs:string">
<xs:maxLength value="10"/>
</xs:restriction>
</xs:simpleType>
<xs:simpleType name="an..100">
<xs:restriction base="xs:string">
<xs:maxLength value="100"/>
</xs:restriction>
</xs:simpleType>
<xs:simpleType name="an..120">
<xs:restriction base="xs:string">
<xs:maxLength value="120"/>
</xs:restriction>
</xs:simpleType>
<xs:simpleType name="an..140">
<xs:restriction base="xs:string">
<xs:maxLength value="140"/>
</xs:restriction>
</xs:simpleType>
<xs:simpleType name="an..17">
<xs:restriction base="xs:string">
<xs:maxLength value="17"/>
</xs:restriction>
</xs:simpleType>
<xs:simpleType name="an..18">
<xs:restriction base="xs:string">
<xs:maxLength value="18"/>
</xs:restriction>
</xs:simpleType>
<xs:simpleType name="an..2">
<xs:restriction base="xs:string">
<xs:maxLength value="2"/>
</xs:restriction>
</xs:simpleType>
<xs:simpleType name="an..20">
<xs:restriction base="xs:string">
<xs:maxLength value="20"/>
</xs:restriction>
</xs:simpleType>
<xs:simpleType name="an..256">
<xs:restriction base="xs:string">
<xs:maxLength value="256"/>
</xs:restriction>
</xs:simpleType>
<xs:simpleType name="an..280">
<xs:restriction base="xs:string">
<xs:maxLength value="280"/>
</xs:restriction>
</xs:simpleType>
<xs:simpleType name="an..3">
<xs:restriction base="xs:string">
<xs:maxLength value="3"/>
</xs:restriction>
</xs:simpleType>
<xs:simpleType name="an..30">
<xs:restriction base="xs:string">
<xs:maxLength value="30"/>
</xs:restriction>
</xs:simpleType>
<xs:simpleType name="an..35">
<xs:restriction base="xs:string">
<xs:maxLength value="35"/>
</xs:restriction>
</xs:simpleType>
<xs:simpleType name="an..4">
<xs:restriction base="xs:string">
<xs:maxLength value="4"/>
</xs:restriction>
</xs:simpleType>
<xs:simpleType name="an..44">
<xs:restriction base="xs:string">
<xs:maxLength value="44"/>
</xs:restriction>
</xs:simpleType>
<xs:simpleType name="an..5">
<xs:restriction base="xs:string">
<xs:maxLength value="5"/>
</xs:restriction>
</xs:simpleType>
<xs:simpleType name="an..6">
<xs:restriction base="xs:string">
<xs:maxLength value="6"/>
</xs:restriction>
</xs:simpleType>
<xs:simpleType name="an..7">
<xs:restriction base="xs:string">
<xs:maxLength value="7"/>
</xs:restriction>
</xs:simpleType>
<xs:simpleType name="an..70">
<xs:restriction base="xs:string">
<xs:maxLength value="70"/>
</xs:restriction>
</xs:simpleType>
<xs:simpleType name="an..8">
<xs:restriction base="xs:string">
<xs:maxLength value="8"/>
</xs:restriction>
</xs:simpleType>
<xs:simpleType name="an..9">
<xs:restriction base="xs:string">
<xs:maxLength value="9"/>
</xs:restriction>
</xs:simpleType>
<xs:complexType name="ApplicationInternalDataAdditionalDetailsDataType">
<xs:sequence>
<xs:element name="Key" type="an..35" minOccurs="0"/>
<xs:element name="Value" type="an..100" minOccurs="0"/>
</xs:sequence>
</xs:complexType>
<xs:complexType name="ApplicationInternalDataAdditionalDetailsType">
<xs:sequence>
<xs:element name="Data" type="ApplicationInternalDataAdditionalDetailsDataType" minOccurs="0" maxOccurs="999"/>
</xs:sequence>
</xs:complexType>
<xs:complexType name="ApplicationInternalDataType">
<xs:sequence>
<xs:element name="AdditionalDetails" type="ApplicationInternalDataAdditionalDetailsType" minOccurs="0"/>
</xs:sequence>
</xs:complexType>
<xs:complexType name="BefoerderungsmittelVVTyp">
<xs:sequence>
<xs:element name="ArtCode" type="an..2" minOccurs="0"/>
<xs:element name="BeschreibungSonstiges" type="an..17" minOccurs="0"/>
<xs:element name="Kennzeichen" type="an..30" minOccurs="0"/>
</xs:sequence>
</xs:complexType>
<xs:complexType name="DatenaustauschSumAInTyp">
<xs:sequence>
<xs:element name="Transaktion" type="TransaktionSumAInTyp"/>
</xs:sequence>
</xs:complexType>
<xs:complexType name="EinzelSummarischeAnmledungTyp">
<xs:sequence>
<xs:element name="ObjektIdentifizierung" type="ObjektIdentifizierungVVTyp" minOccurs="0"/>
<xs:element name="KopfDaten" type="KopfDatenSummarischeAnmeldungTyp" minOccurs="0"/>
<xs:element name="Position" type="PositionSummarischeAnmeldungTyp" minOccurs="0" maxOccurs="9999"/>
</xs:sequence>
</xs:complexType>
<xs:simpleType name="emptyString">
<xs:restriction base="xs:string">
<xs:length value="0"/>
</xs:restriction>
</xs:simpleType>
<xs:complexType name="KopfDatenSummarischeAnmeldungTyp">
<xs:sequence>
<xs:element name="Dienststelle" type="an..8" minOccurs="0"/>
<xs:element name="Gestellender" type="AdresseVVTyp" minOccurs="0"/>
<xs:element name="VertreterEORI" type="an..17" minOccurs="0"/>
<xs:element name="VertreterNLNR" type="n..4" minOccurs="0"/>
<xs:element name="Vertreter" type="an..7" minOccurs="0"/>
<xs:element name="BearbeiterName" type="an..35" minOccurs="0"/>
<xs:element name="BearbeiterStellungFirma" type="an..35" minOccurs="0"/>
<xs:element name="BearbeiterTelefonNr" type="an..35" minOccurs="0"/>
<xs:element name="BearbeiterEmailAdresse" type="an..256" minOccurs="0"/>
<xs:element name="VorzeitigKz" type="an..1" minOccurs="0"/>
<xs:element name="Gestellungsdatum" type="xs:date" minOccurs="0"/>
<xs:element name="Gestellungsuhrzeit" type="xs:time" minOccurs="0"/>
<xs:element name="NCTSVersandKz" type="an..1" minOccurs="0"/>
<xs:element name="SeeverkehrKz" type="an..1" minOccurs="0"/>
<xs:element name="Befoerderungsmittel" type="BefoerderungsmittelVVTyp" minOccurs="0"/>
<xs:element name="NummerBefoerderung" type="an..8" minOccurs="0"/>
<xs:element name="Ankunftsdatum" type="optionalDate" minOccurs="0"/>
<xs:element name="AbgangsstelleBeladeort" type="an..35" minOccurs="0"/>
<xs:element name="GesamtContainerAnz" type="n..4" minOccurs="0"/>
<xs:element name="Vorpapierart" type="an..6" minOccurs="0"/>
<xs:element name="Vorpapiernummer" type="an..30" minOccurs="0"/>
<xs:element name="VerkehrszweigGrenze" type="an..2" minOccurs="0"/>
<xs:element name="ErsteEingangsZollstelleAngemeldet" type="an..8" minOccurs="0"/>
<xs:element name="ErsteEingangsZollstelleKennzeichen" type="an..1" minOccurs="0"/>
<xs:element name="ZusatzAngabenAnmeldung" type="an..280" minOccurs="0"/>
<xs:element name="ApplicationInternalData" type="ApplicationInternalDataType" minOccurs="0"/>
</xs:sequence>
</xs:complexType>
<xs:simpleType name="n..14.3">
<xs:restriction base="xs:string">
<xs:maxLength value="100"/>
<xs:pattern value="( *)(0*)\d{0,11}([.,]\d{0,3}(0*))?( *)"/>
</xs:restriction>
</xs:simpleType>
<xs:simpleType name="n..3">
<xs:restriction base="xs:string">
<xs:maxLength value="100"/>
<xs:pattern value="( *)(0*)\d{0,3}([.,](0*))?( *)"/>
</xs:restriction>
</xs:simpleType>
<xs:simpleType name="n..4">
<xs:restriction base="xs:string">
<xs:maxLength value="100"/>
<xs:pattern value="( *)(0*)\d{0,4}([.,](0*))?( *)"/>
</xs:restriction>
</xs:simpleType>
<xs:simpleType name="n..5">
<xs:restriction base="xs:string">
<xs:maxLength value="100"/>
<xs:pattern value="( *)(0*)\d{0,5}([.,](0*))?( *)"/>
</xs:restriction>
</xs:simpleType>
<xs:simpleType name="n3">
<xs:restriction base="xs:nonNegativeInteger">
<xs:pattern value="\d{3}"/>
<xs:totalDigits value="3"/>
</xs:restriction>
</xs:simpleType>
<xs:complexType name="ObjektIdentifizierungVVTyp">
<xs:sequence>
<xs:element name="ObjektName" type="an..35" minOccurs="0"/>
<xs:element name="ObjektAliasname" type="an..35" minOccurs="0"/>
<xs:element name="BezugsnummerVorblendung" type="an..35" minOccurs="0"/>
<xs:element name="KopieVon" type="an..35" minOccurs="0"/>
<xs:element name="ObjektAktion" type="an..10" maxOccurs="2"/>
<xs:element name="CompliancePruefung" type="an..3" minOccurs="0"/>
<xs:element name="Bearbeiter" type="an..70" minOccurs="0"/>
<xs:element name="ShipmentReferenz" type="an..35" minOccurs="0"/>
</xs:sequence>
</xs:complexType>
<xs:simpleType name="optionalDate">
<xs:union memberTypes="xs:date emptyString"/>
</xs:simpleType>
<xs:complexType name="PositionSummarischeAnmeldungTyp">
<xs:sequence>
<xs:element name="Positionsnummer" type="seq5" minOccurs="0"/>
<xs:element name="Versendungsland" type="an..2" minOccurs="0"/>
<xs:element name="Bestimmungsort" type="an..35" minOccurs="0"/>
<xs:element name="ZollStatusWare" type="an..1" minOccurs="0"/>
<xs:element name="ArtSpO" type="an..5" minOccurs="0"/>
<xs:element name="SpezifischerOrdnungsbegriff" type="an..44" minOccurs="0"/>
<xs:element name="ArtPackstuecke" type="an..3" minOccurs="0"/>
<xs:element name="Stueckzahl" type="n..5" minOccurs="0"/>
<xs:element name="Rohmasse" type="n..14.3" minOccurs="0"/>
<xs:element name="Warenbeschreibung" type="an..140" minOccurs="0"/>
<xs:element name="Warenkreis" type="an..1" minOccurs="0"/>
<xs:element name="VerwahrerEORI" type="an..17" minOccurs="0"/>
<xs:element name="VerwahrerNLNR" type="n..4" minOccurs="0"/>
<xs:element name="Verwahrer" type="an..7" minOccurs="0"/>
<xs:element name="SchluesselVerwahrungsort" type="an..2" minOccurs="0"/>
<xs:element name="VerwahrerBewilligung" type="an..35" minOccurs="0"/>
<xs:element name="VerfuegungsberechtigterEORI" type="an..17" minOccurs="0"/>
<xs:element name="VerfuegungsberechtigterNLNR" type="n..4" minOccurs="0"/>
<xs:element name="Verfuegungsberechtigter" type="an..7" minOccurs="0"/>
<xs:element name="UnterdrueckungVerwahrungsmitteilung" type="an..1" minOccurs="0"/>
<xs:element name="MRNEingangSumA" type="an..18" minOccurs="0"/>
<xs:element name="MRNPosition" type="n..3" minOccurs="0"/>
<xs:element name="KZFreizone" type="an..1" minOccurs="0"/>
<xs:element name="PoUSMRN" type="an..18" minOccurs="0"/>
<xs:element name="PoUSPositionsnummer" type="n..5" minOccurs="0"/>
<xs:element name="Transportdokument" type="TransportdokumentVVTyp" minOccurs="0"/>
<xs:element name="TransportdokumentSammelsendung" type="TransportdokumentSammelsendungVVTyp" minOccurs="0"/>
<xs:element name="BefoerdererEORI" type="an..17" minOccurs="0"/>
<xs:element name="Transportausruestung" type="TransportausruestungVVTyp" minOccurs="0"/>
<xs:element name="Postbehaelter" type="PostbehaelterVVTyp" minOccurs="0"/>
<xs:element name="ApplicationInternalData" type="ApplicationInternalDataType" minOccurs="0"/>
</xs:sequence>
</xs:complexType>
<xs:complexType name="PostbehaelterVVTyp">
<xs:sequence>
<xs:element name="PostbehaelterID" type="an..35" minOccurs="0"/>
</xs:sequence>
</xs:complexType>
<xs:simpleType name="seq5">
<xs:restriction base="xs:string">
<xs:maxLength value="100"/>
<xs:pattern value="( *)(0*)[1-9]\d{0,4}([.,](0*))?( *)"/>
</xs:restriction>
</xs:simpleType>
<xs:complexType name="SummarischeAnmeldungVVTyp">
<xs:complexContent>
<xs:extension base="DatenaustauschSumAInTyp">
<xs:sequence>
<xs:element name="EinzelSummarischeAnmeldung" type="EinzelSummarischeAnmledungTyp" minOccurs="0"/>
</xs:sequence>
</xs:extension>
</xs:complexContent>
</xs:complexType>
<xs:complexType name="TransaktionSumAInTyp">
<xs:sequence>
<xs:element name="IOPartner" type="an..100"/>
<xs:element name="IODivision1" type="an..10" minOccurs="0"/>
<xs:element name="IODivision2" type="an..10" minOccurs="0"/>
<xs:element name="IODivision3" type="an..10" minOccurs="0"/>
<xs:element name="IOReferenz" type="an..35"/>
<xs:element name="IODatumZeit" type="xs:dateTime"/>
<xs:element name="Version" type="n3" minOccurs="0"/>
</xs:sequence>
</xs:complexType>
<xs:complexType name="TransportausruestungVVTyp">
<xs:sequence>
<xs:element name="Containernummer" type="an..17" minOccurs="0"/>
</xs:sequence>
</xs:complexType>
<xs:complexType name="TransportdokumentSammelsendungVVTyp">
<xs:sequence>
<xs:element name="Art" type="an..4" minOccurs="0"/>
<xs:element name="Nummer" type="an..70" minOccurs="0"/>
</xs:sequence>
</xs:complexType>
<xs:complexType name="TransportdokumentVVTyp">
<xs:sequence>
<xs:element name="Art" type="an..4" minOccurs="0"/>
<xs:element name="Nummer" type="an..70" minOccurs="0"/>
</xs:sequence>
</xs:complexType>
</xs:schema>

4
DAKOSY_Worker/DAKOSY_Worker_lib.vbproj
View File

@@ -165,6 +165,7 @@
<Compile Include="DAKOSY\ATLAS\NCTS\Versandbestaetigung\VersandbestaetigungNCTSDE_001.Designer.vb" />
<Compile Include="DAKOSY\ATLAS\NCTS\Versandbestaetigung\VersandbestaetigungNCTSDE_002.Designer.vb" />
<Compile Include="DAKOSY\ATLAS\QuittungEingangsverarbeitung\QuittungEingangsverarbeitung_005.Designer.vb" />
<Compile Include="DAKOSY\ATLAS\SumA\SummarischeAnmeldung\SummarischeAnmeldung_001.Designer.vb" />
<Compile Include="DAKOSY\ATLAS\Verwahrung\EingangsanzeigeNCTSDE\EingangsanzeigeNCTSDE_003.Designer.vb" />
<Compile Include="DAKOSY\ATLAS\Verwahrung\SumABekanntgabeMassnahme\SumABekanntgabeMassnahme_005.Designer.vb" />
<Compile Include="DAKOSY\ATLAS\Verwahrung\SumAErledigungsinformationCDXWare_007\SumAErledigungsinformationCDXWare_007.Designer.vb" />
@@ -494,6 +495,9 @@
<None Include="DAKOSY\ATLAS\QuittungEingangsverarbeitung\QuittungEingangsverarbeitung_005.xsd">
<SubType>Designer</SubType>
</None>
<None Include="DAKOSY\ATLAS\SumA\SummarischeAnmeldung\SummarischeAnmeldung_001.xsd">
<SubType>Designer</SubType>
</None>
<None Include="DAKOSY\ATLAS\Verwahrung\EingangsanzeigeNCTSDE\EingangsanzeigeNCTSDE_003.xsd">
<SubType>Designer</SubType>
</None>

34
UID/usrctlProcedures.Designer.vb generated
View File

@@ -111,6 +111,7 @@ Partial Class usrctlProcedures
Me.TabPage9 = New System.Windows.Forms.TabPage()
Me.btnT1Data = New System.Windows.Forms.Button()
Me.TabPage10 = New System.Windows.Forms.TabPage()
Me.cbxCD_Overwrite = New System.Windows.Forms.CheckBox()
Me.btnDHF_UNISPEDtoVERAEZA_File = New System.Windows.Forms.Button()
Me.btnDHFtoVERAEZA_File = New System.Windows.Forms.Button()
Me.btnTCtoVERAEZA_File = New System.Windows.Forms.Button()
@@ -176,7 +177,7 @@ Partial Class usrctlProcedures
Me.Button99 = New System.Windows.Forms.Button()
Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.cbxCD_Overwrite = New System.Windows.Forms.CheckBox()
Me.Button55 = New System.Windows.Forms.Button()
Me.tbTRStat.SuspendLayout()
Me.TabPage3.SuspendLayout()
Me.TabPage1.SuspendLayout()
@@ -1079,6 +1080,18 @@ Partial Class usrctlProcedures
Me.TabPage10.Text = "TabPageDY"
Me.TabPage10.UseVisualStyleBackColor = True
'
'cbxCD_Overwrite
'
Me.cbxCD_Overwrite.AutoSize = True
Me.cbxCD_Overwrite.Checked = True
Me.cbxCD_Overwrite.CheckState = System.Windows.Forms.CheckState.Checked
Me.cbxCD_Overwrite.Location = New System.Drawing.Point(517, 16)
Me.cbxCD_Overwrite.Name = "cbxCD_Overwrite"
Me.cbxCD_Overwrite.Size = New System.Drawing.Size(69, 17)
Me.cbxCD_Overwrite.TabIndex = 50
Me.cbxCD_Overwrite.Text = "overwrite"
Me.cbxCD_Overwrite.UseVisualStyleBackColor = True
'
'btnDHF_UNISPEDtoVERAEZA_File
'
Me.btnDHF_UNISPEDtoVERAEZA_File.Location = New System.Drawing.Point(448, 225)
@@ -1666,22 +1679,20 @@ Partial Class usrctlProcedures
Me.DataGridViewTextBoxColumn2.HeaderText = "anz"
Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2"
'
'cbxCD_Overwrite
'Button55
'
Me.cbxCD_Overwrite.AutoSize = True
Me.cbxCD_Overwrite.Checked = True
Me.cbxCD_Overwrite.CheckState = System.Windows.Forms.CheckState.Checked
Me.cbxCD_Overwrite.Location = New System.Drawing.Point(517, 16)
Me.cbxCD_Overwrite.Name = "cbxCD_Overwrite"
Me.cbxCD_Overwrite.Size = New System.Drawing.Size(69, 17)
Me.cbxCD_Overwrite.TabIndex = 50
Me.cbxCD_Overwrite.Text = "overwrite"
Me.cbxCD_Overwrite.UseVisualStyleBackColor = True
Me.Button55.Location = New System.Drawing.Point(763, 29)
Me.Button55.Name = "Button55"
Me.Button55.Size = New System.Drawing.Size(145, 49)
Me.Button55.TabIndex = 67
Me.Button55.Text = "TEST T1"
Me.Button55.UseVisualStyleBackColor = True
'
'usrctlProcedures
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.Controls.Add(Me.Button55)
Me.Controls.Add(Me.Button99)
Me.Controls.Add(Me.Button43)
Me.Controls.Add(Me.lblStatus)
@@ -1917,4 +1928,5 @@ Partial Class usrctlProcedures
Friend WithEvents btnDHFtoVERAEZA_File As Button
Friend WithEvents btnTCtoVERAEZA_File As Button
Friend WithEvents cbxCD_Overwrite As CheckBox
Friend WithEvents Button55 As Button
End Class

6
UID/usrctlProcedures.vb
View File

@@ -4732,6 +4732,12 @@ OPTION (MAXRECURSION 1000);", "AVISO") '
Next
End Sub
Private Sub Button55_Click_2(sender As Object, e As EventArgs) Handles Button55.Click
Dim readT1 As New VERAG_PROG_ALLGEMEIN.cATEZ_Read_T1
Dim path As String = "D:\Andreas\TMP\TEST_READ.pdf"
readT1.TEST(path)
End Sub
'Private Sub Button26_Click(sender As Object, e As EventArgs)

146
initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb
View File

@@ -5875,18 +5875,21 @@ Public Class frmDYNachrichtenVerarbeitung
'Wenn gefunden
If (art = "F" AndAlso If(sendToID, "") <> "") OrElse sendToID >= 0 Then
Dim statusAVISO = SQL.DLookup("Status", "Aviso", "AvisoID='" & DY_ANM.dy_AvisoId & "'", "AVISO")
Dim statusAVISO = SQL.DLookup("Status", "Aviso", "AvisoID='" & DY_ANM.dy_AvisoId & "'", "AVISO", -1)
Select Case statusAVISO
'Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_Ankunft, VERAG_PROG_ALLGEMEIN.cGlobal.Status_Vorbereitet, VERAG_PROG_ALLGEMEIN.cGlobal.Status_Vorgeschrieben,,VERAG_PROG_ALLGEMEIN.cGlobal.erfasst Nue
' Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_NichtEingetroffen, VERAG_PROG_ALLGEMEIN.cGlobal.Status_Freigegeben
'Nicht
Case Else
Dim code = VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungenCodes.AES_NachfrageVerbleib
VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungen.INSERT_BENACHRICHTIGUNG(DY_ANM.dy_AvisoId, DY_ANM.dy_SendungsId, code, art, sendToID, "ZOLL: Nachfrage Verbleib", 1, , "Nachfrage Verbleib",,, If(AES_TMP IsNot Nothing, If(AES_TMP.aes_firma, ""), ""))
VERAG_PROG_ALLGEMEIN.cVermerkeDAL.insertSendungsVermerk(DY_ANM.dy_SendungsId, DY_ANM.dy_AvisoId, "ZOLL: Nachfrage Verbleib", 127,,, True, "ZOLL")
If IsNumeric(statusAVISO) Then
Select Case CInt(statusAVISO)
End Select
'Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_Ankunft, VERAG_PROG_ALLGEMEIN.cGlobal.Status_Vorbereitet, VERAG_PROG_ALLGEMEIN.cGlobal.Status_Vorgeschrieben,,VERAG_PROG_ALLGEMEIN.cGlobal.erfasst Nue
' Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_NichtEingetroffen, VERAG_PROG_ALLGEMEIN.cGlobal.Status_Freigegeben
'Nicht
Case Else
Dim code = VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungenCodes.AES_NachfrageVerbleib
VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungen.INSERT_BENACHRICHTIGUNG(DY_ANM.dy_AvisoId, DY_ANM.dy_SendungsId, code, art, sendToID, "ZOLL: Nachfrage Verbleib", 1, , "Nachfrage Verbleib",,, If(AES_TMP IsNot Nothing, If(AES_TMP.aes_firma, ""), ""))
VERAG_PROG_ALLGEMEIN.cVermerkeDAL.insertSendungsVermerk(DY_ANM.dy_SendungsId, DY_ANM.dy_AvisoId, "ZOLL: Nachfrage Verbleib", 127,,, True, "ZOLL")
End Select
End If
End If
Catch ex As Exception
@@ -7625,20 +7628,23 @@ Public Class frmDYNachrichtenVerarbeitung
'Wenn gefunden
If (art = "F" AndAlso If(sendToID, "") <> "") OrElse sendToID >= 0 Then
Dim statusAVISO = SQL.DLookup("Status", "Aviso", "AvisoID='" & DY_TMP.dy_AvisoId & "'", "AVISO")
Dim statusAVISO = SQL.DLookup("Status", "Aviso", "AvisoID='" & DY_TMP.dy_AvisoId & "'", "AVISO", -1)
If IsNumeric(statusAVISO) Then
Select Case CInt(statusAVISO)
Select Case statusAVISO
'Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_Ankunft, VERAG_PROG_ALLGEMEIN.cGlobal.Status_Vorbereitet, VERAG_PROG_ALLGEMEIN.cGlobal.Status_Vorgeschrieben,,VERAG_PROG_ALLGEMEIN.cGlobal.erfasst Nue
Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_NichtEingetroffen, VERAG_PROG_ALLGEMEIN.cGlobal.Status_Freigegeben
'Nicht
Case Else
Dim code = VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungenCodes.ZOLL_Dokumentenbeschau
Dim BenText = (TXT_DokBeschau & vbNewLine & TXT_Mitteilung).Trim
VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungen.INSERT_BENACHRICHTIGUNG(DY_TMP.dy_AvisoId, DY_TMP.dy_SendungsId, code, art, sendToID, "ZOLL: (Dokument)Beschau", 1, , (TXT_DokBeschau & vbNewLine & TXT_Mitteilung).Trim,,, If(EZA_TMP IsNot Nothing, If(EZA_TMP.eza_firma, ""), ""))
VERAG_PROG_ALLGEMEIN.cVermerkeDAL.insertSendungsVermerk(DY_TMP.dy_SendungsId, DY_TMP.dy_AvisoId, BenText, 124,,, True, "ZOLL")
End Select
Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_NichtEingetroffen, VERAG_PROG_ALLGEMEIN.cGlobal.Status_Freigegeben
'Nicht
Case Else
Dim code = VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungenCodes.ZOLL_Dokumentenbeschau
Dim BenText = (TXT_DokBeschau & vbNewLine & TXT_Mitteilung).Trim
VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungen.INSERT_BENACHRICHTIGUNG(DY_TMP.dy_AvisoId, DY_TMP.dy_SendungsId, code, art, sendToID, "ZOLL: (Dokument)Beschau", 1, , (TXT_DokBeschau & vbNewLine & TXT_Mitteilung).Trim,,, If(EZA_TMP IsNot Nothing, If(EZA_TMP.eza_firma, ""), ""))
VERAG_PROG_ALLGEMEIN.cVermerkeDAL.insertSendungsVermerk(DY_TMP.dy_SendungsId, DY_TMP.dy_AvisoId, BenText, 124,,, True, "ZOLL")
End Select
End If
End If
Catch ex As Exception
@@ -7683,19 +7689,22 @@ Public Class frmDYNachrichtenVerarbeitung
'Wenn gefunden
If (art = "F" AndAlso If(sendToID, "") <> "") OrElse sendToID >= 0 Then
Dim statusAVISO = SQL.DLookup("Status", "Aviso", "AvisoID='" & DY_TMP.dy_AvisoId & "'", "AVISO")
Dim statusAVISO = SQL.DLookup("Status", "Aviso", "AvisoID='" & DY_TMP.dy_AvisoId & "'", "AVISO", -1)
' Dim GrenzstelleAVISO = SQL.DLookup("Grenzstelle", "Aviso", "AvisoID='" & DY_TMP.dy_AvisoId & "'", "AVISO")
' If GrenzstelleAVISO = "???" Then 'lt. ML 27.03.-> für alle freigeben
Select Case statusAVISO
Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_NichtEingetroffen, VERAG_PROG_ALLGEMEIN.cGlobal.Status_Freigegeben
'Nicht
Case Else
Dim code = VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungenCodes.ZOLL_Rueckweisung
Dim BenText = (TXT_Rückweisung & vbNewLine & TXT_Mitteilung).Trim
VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungen.INSERT_BENACHRICHTIGUNG(DY_TMP.dy_AvisoId, DY_TMP.dy_SendungsId, code, art, sendToID, "ZOLL: Rückweisung", 1, , BenText,,, If(EZA_TMP IsNot Nothing, If(EZA_TMP.eza_firma, ""), ""))
VERAG_PROG_ALLGEMEIN.cVermerkeDAL.insertSendungsVermerk(DY_TMP.dy_SendungsId, DY_TMP.dy_AvisoId, BenText, 125,,, True, "ZOLL")
End Select
' End If
If IsNumeric(statusAVISO) Then
Select Case CInt(statusAVISO)
Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_NichtEingetroffen, VERAG_PROG_ALLGEMEIN.cGlobal.Status_Freigegeben
'Nicht
Case Else
Dim code = VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungenCodes.ZOLL_Rueckweisung
Dim BenText = (TXT_Rückweisung & vbNewLine & TXT_Mitteilung).Trim
VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungen.INSERT_BENACHRICHTIGUNG(DY_TMP.dy_AvisoId, DY_TMP.dy_SendungsId, code, art, sendToID, "ZOLL: Rückweisung", 1, , BenText,,, If(EZA_TMP IsNot Nothing, If(EZA_TMP.eza_firma, ""), ""))
VERAG_PROG_ALLGEMEIN.cVermerkeDAL.insertSendungsVermerk(DY_TMP.dy_SendungsId, DY_TMP.dy_AvisoId, BenText, 125,,, True, "ZOLL")
End Select
' End If
End If
End If
Catch ex As Exception
@@ -7749,20 +7758,23 @@ Public Class frmDYNachrichtenVerarbeitung
'Wenn gefunden
If (art = "F" AndAlso If(sendToID, "") <> "") OrElse sendToID >= 0 Then
' If sendToID = 153 Or sendToID = 174 Then '--> NUR TOBI/MATHIAS!!
Dim statusAVISO = SQL.DLookup("Status", "Aviso", "AvisoID='" & DY_TMP.dy_AvisoId & "'", "AVISO")
Dim statusAVISO = SQL.DLookup("Status", "Aviso", "AvisoID='" & DY_TMP.dy_AvisoId & "'", "AVISO", -1)
'Dim GrenzstelleAVISO = SQL.DLookup("Grenzstelle", "Aviso", "AvisoID='" & DY_TMP.dy_AvisoId & "'", "AVISO")
'If GrenzstelleAVISO = "???" Then 'lt. ML 27.03.-> für alle freigeben
Select Case statusAVISO
Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_NichtEingetroffen, VERAG_PROG_ALLGEMEIN.cGlobal.Status_Freigegeben
'Nicht
Case Else
Dim code = VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungenCodes.ZOLL_Mitteilung
Dim BenText = (TXT_Mitteilung & TXT_Mitteilung_Zollbeamter).Trim
VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungen.INSERT_BENACHRICHTIGUNG(DY_TMP.dy_AvisoId, DY_TMP.dy_SendungsId, code, art, sendToID, "ZOLL: Mitteilung", 1, , BenText,,, If(EZA_TMP IsNot Nothing, If(EZA_TMP.eza_firma, ""), ""))
VERAG_PROG_ALLGEMEIN.cVermerkeDAL.insertSendungsVermerk(DY_TMP.dy_SendungsId, DY_TMP.dy_AvisoId, BenText, 125,,, True, "ZOLL")
End Select
' End If
' End If
If IsNumeric(statusAVISO) Then
Select Case CInt(statusAVISO)
Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_NichtEingetroffen, VERAG_PROG_ALLGEMEIN.cGlobal.Status_Freigegeben
'Nicht
Case Else
Dim code = VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungenCodes.ZOLL_Mitteilung
Dim BenText = (TXT_Mitteilung & TXT_Mitteilung_Zollbeamter).Trim
VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungen.INSERT_BENACHRICHTIGUNG(DY_TMP.dy_AvisoId, DY_TMP.dy_SendungsId, code, art, sendToID, "ZOLL: Mitteilung", 1, , BenText,,, If(EZA_TMP IsNot Nothing, If(EZA_TMP.eza_firma, ""), ""))
VERAG_PROG_ALLGEMEIN.cVermerkeDAL.insertSendungsVermerk(DY_TMP.dy_SendungsId, DY_TMP.dy_AvisoId, BenText, 125,,, True, "ZOLL")
End Select
' End If
' End If
End If
End If
Catch ex As Exception
@@ -7953,19 +7965,23 @@ Public Class frmDYNachrichtenVerarbeitung
'Wenn gefunden
If (art = "F" AndAlso If(sendToID, "") <> "") OrElse sendToID >= 0 Then
Dim statusAVISO = SQL.DLookup("Status", "Aviso", "AvisoID='" & DY_TMP.dy_AvisoId & "'", "AVISO")
Dim statusAVISO = SQL.DLookup("Status", "Aviso", "AvisoID='" & DY_TMP.dy_AvisoId & "'", "AVISO", -1)
If IsNumeric(statusAVISO) Then
Select Case CInt(statusAVISO)
Select Case statusAVISO
'Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_Ankunft, VERAG_PROG_ALLGEMEIN.cGlobal.Status_Vorbereitet, VERAG_PROG_ALLGEMEIN.cGlobal.Status_Vorgeschrieben,,VERAG_PROG_ALLGEMEIN.cGlobal.erfasst Nue
Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_NichtEingetroffen, VERAG_PROG_ALLGEMEIN.cGlobal.Status_Freigegeben
'Nicht
Case Else
Dim code = VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungenCodes.ZOLL_Dokumentenbeschau
Dim BenText = (TXT_DokBeschau & vbNewLine & TXT_Mitteilung).Trim
VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungen.INSERT_BENACHRICHTIGUNG(DY_TMP.dy_AvisoId, DY_TMP.dy_SendungsId, code, art, sendToID, "ZOLL: (Dokument)Beschau", 1, , BenText,,, If(EZA_TMP IsNot Nothing, If(EZA_TMP.eza_firma, ""), ""))
VERAG_PROG_ALLGEMEIN.cVermerkeDAL.insertSendungsVermerk(DY_TMP.dy_SendungsId, DY_TMP.dy_AvisoId, BenText, 124,,, True, "ZOLL")
End Select
End If
Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_NichtEingetroffen, VERAG_PROG_ALLGEMEIN.cGlobal.Status_Freigegeben
'Nicht
Case Else
Dim code = VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungenCodes.ZOLL_Dokumentenbeschau
Dim BenText = (TXT_DokBeschau & vbNewLine & TXT_Mitteilung).Trim
VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungen.INSERT_BENACHRICHTIGUNG(DY_TMP.dy_AvisoId, DY_TMP.dy_SendungsId, code, art, sendToID, "ZOLL: (Dokument)Beschau", 1, , BenText,,, If(EZA_TMP IsNot Nothing, If(EZA_TMP.eza_firma, ""), ""))
VERAG_PROG_ALLGEMEIN.cVermerkeDAL.insertSendungsVermerk(DY_TMP.dy_SendungsId, DY_TMP.dy_AvisoId, BenText, 124,,, True, "ZOLL")
End Select
End If
End If
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "TXT_DokBeschau - Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name)
@@ -8075,18 +8091,20 @@ Public Class frmDYNachrichtenVerarbeitung
'Wenn gefunden
If (art = "F" AndAlso If(sendToID, "") <> "") OrElse sendToID >= 0 Then
' If sendToID = 153 Or sendToID = 174 Then '--> NUR TOBI/MATHIAS!!
Dim statusAVISO = SQL.DLookup("Status", "Aviso", "AvisoID='" & DY_TMP.dy_AvisoId & "'", "AVISO")
Dim statusAVISO = SQL.DLookup("Status", "Aviso", "AvisoID='" & DY_TMP.dy_AvisoId & "'", "AVISO", -1)
'Dim GrenzstelleAVISO = SQL.DLookup("Grenzstelle", "Aviso", "AvisoID='" & DY_TMP.dy_AvisoId & "'", "AVISO")
'If GrenzstelleAVISO = "???" Then 'lt. ML 27.03.-> für alle freigeben
Select Case statusAVISO
Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_NichtEingetroffen, VERAG_PROG_ALLGEMEIN.cGlobal.Status_Freigegeben
'Nicht
Case Else
Dim code = VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungenCodes.ZOLL_Mitteilung
Dim BenText = (TXT_Mitteilung & TXT_Mitteilung_Zollbeamter).Trim
VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungen.INSERT_BENACHRICHTIGUNG(DY_TMP.dy_AvisoId, DY_TMP.dy_SendungsId, code, art, sendToID, "ZOLL: Mitteilung", 1, , BenText,,, If(EZA_TMP IsNot Nothing, If(EZA_TMP.eza_firma, ""), ""))
VERAG_PROG_ALLGEMEIN.cVermerkeDAL.insertSendungsVermerk(DY_TMP.dy_SendungsId, DY_TMP.dy_AvisoId, BenText, 126,,, True, "ZOLL")
End Select
If IsNumeric(statusAVISO) Then
Select Case CInt(statusAVISO)
Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_NichtEingetroffen, VERAG_PROG_ALLGEMEIN.cGlobal.Status_Freigegeben
'Nicht
Case Else
Dim code = VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungenCodes.ZOLL_Mitteilung
Dim BenText = (TXT_Mitteilung & TXT_Mitteilung_Zollbeamter).Trim
VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungen.INSERT_BENACHRICHTIGUNG(DY_TMP.dy_AvisoId, DY_TMP.dy_SendungsId, code, art, sendToID, "ZOLL: Mitteilung", 1, , BenText,,, If(EZA_TMP IsNot Nothing, If(EZA_TMP.eza_firma, ""), ""))
VERAG_PROG_ALLGEMEIN.cVermerkeDAL.insertSendungsVermerk(DY_TMP.dy_SendungsId, DY_TMP.dy_AvisoId, BenText, 126,,, True, "ZOLL")
End Select
End If
' End If
' End If
End If