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

SumA

Browse Source
This commit is contained in:
Andreas Luxbauer
2026-03-09 13:16:59 +01:00
parent 087f39f981
commit 35608a96fd
7 changed files with 2583 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2253
DAKOSY_Worker/DAKOSY/ATLAS/Verwahrung/SumABekanntgabeMassnahme/SumABekanntgabeMassnahme_005.Designer.vb generated Normal file
View File

File diff suppressed because it is too large Load Diff

203
DAKOSY_Worker/DAKOSY/ATLAS/Verwahrung/SumABekanntgabeMassnahme/SumABekanntgabeMassnahme_005.xsd Normal file
View File

@@ -0,0 +1,203 @@
<?xml version="1.0" encoding="UTF-8"?>
<xs:schema xmlns:xs="http://www.w3.org/2001/XMLSchema">
<xs:element name="SumABekanntgabeMassnahme" type="SumABekanntgabeMassnahmeSBTyp">
<xs:annotation>
<xs:documentation>Version 005 - Release 001</xs:documentation>
</xs:annotation>
</xs:element>
<xs:complexType name="AdresseSBTyp">
<xs:sequence>
<xs:element name="TeilnehmerEORI" type="an..17" minOccurs="0"/>
<xs:element name="TeilnehmerNLNR" type="n..4" minOccurs="0"/>
<xs:element name="NameFirma" type="an..120" minOccurs="0"/>
<xs:element name="StrasseHausnummer" type="an..35" minOccurs="0"/>
<xs:element name="Nationalitaet" type="an..2" 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: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..1000">
<xs:restriction base="xs:string">
<xs:maxLength value="1000"/>
</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..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..21">
<xs:restriction base="xs:string">
<xs:maxLength value="21"/>
</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..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..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="DatenaustauschSumAOutTyp">
<xs:sequence>
<xs:element name="Transaktion" type="TransaktionSumAOutTyp"/>
</xs:sequence>
</xs:complexType>
<xs:complexType name="EinzelSumABekanntgabeMassnahmeTyp">
<xs:sequence>
<xs:element name="ObjektIdentifizierung" type="ObjektIdentifizierungSBTyp" minOccurs="0"/>
<xs:element name="KopfDaten" type="KopfDatenSumABekanntgabeMassnahmeTyp" minOccurs="0"/>
<xs:element name="Position" type="PositionSumABekanntgabeMassnahmeTyp" minOccurs="0" maxOccurs="9999"/>
</xs:sequence>
</xs:complexType>
<xs:complexType name="KopfDatenSumABekanntgabeMassnahmeTyp">
<xs:sequence>
<xs:element name="RegistriernummerATLAS" type="an..21" minOccurs="0"/>
<xs:element name="VeralteteWeitereRegistriernummer" type="an..21" minOccurs="0"/>
<xs:element name="BekanntgabeZeitpunkt" type="xs:dateTime" minOccurs="0"/>
<xs:element name="ApplicationInternalData" type="ApplicationInternalDataType" minOccurs="0"/>
</xs:sequence>
</xs:complexType>
<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="n3">
<xs:restriction base="xs:nonNegativeInteger">
<xs:pattern value="\d{3}"/>
<xs:totalDigits value="3"/>
</xs:restriction>
</xs:simpleType>
<xs:simpleType name="n4">
<xs:restriction base="xs:nonNegativeInteger">
<xs:pattern value="\d{4}"/>
<xs:totalDigits value="4"/>
</xs:restriction>
</xs:simpleType>
<xs:simpleType name="n5">
<xs:restriction base="xs:nonNegativeInteger">
<xs:pattern value="\d{5}"/>
<xs:totalDigits value="5"/>
</xs:restriction>
</xs:simpleType>
<xs:complexType name="ObjektIdentifizierungSBTyp">
<xs:sequence>
<xs:element name="ObjektName" type="an..35" minOccurs="0"/>
<xs:element name="ObjektAntragArt" type="an..10" minOccurs="0"/>
<xs:element name="HinweisObjektName" type="an..20" minOccurs="0"/>
<xs:element name="EDIFACTNachrichtennummer" type="an..35" minOccurs="0"/>
<xs:element name="ZeitpunktNachrichteneingang" type="xs:dateTime" minOccurs="0"/>
<xs:element name="ShipmentReferenz" type="an..35" minOccurs="0"/>
</xs:sequence>
</xs:complexType>
<xs:complexType name="PositionSumABekanntgabeMassnahmeTyp">
<xs:sequence>
<xs:element name="Positionsnummer" type="n4" minOccurs="0"/>
<xs:element name="Warenbeschreibung" type="an..140" minOccurs="0"/>
<xs:element name="SpezifischerOrdnungsbegriffCode" type="an..3" minOccurs="0"/>
<xs:element name="SpezifischerOrdnungsbegriffDaten" type="an..44" minOccurs="0"/>
<xs:element name="PackstueckArt" type="an..3" minOccurs="0"/>
<xs:element name="PackstueckAnzahl" type="n5" minOccurs="0"/>
<xs:element name="MassnahmeCode" type="an..4" minOccurs="0"/>
<xs:element name="MassnahmeText" type="an..1000" minOccurs="0"/>
<xs:element name="MassnahmeNichtzustellbarKz" type="an..1" minOccurs="0"/>
<xs:element name="Verwahrer" type="AdresseSBTyp" minOccurs="0"/>
<xs:element name="ApplicationInternalData" type="ApplicationInternalDataType" minOccurs="0"/>
</xs:sequence>
</xs:complexType>
<xs:complexType name="SumABekanntgabeMassnahmeSBTyp">
<xs:complexContent>
<xs:extension base="DatenaustauschSumAOutTyp">
<xs:sequence>
<xs:element name="EinzelSumABekanntgabeMassnahme" type="EinzelSumABekanntgabeMassnahmeTyp" minOccurs="0"/>
</xs:sequence>
</xs:extension>
</xs:complexContent>
</xs:complexType>
<xs:complexType name="TransaktionSumAOutTyp">
<xs:sequence>
<xs:element name="Identifikation" type="an..10"/>
<xs:element name="IOPartner" type="an..100" minOccurs="0"/>
<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="EORI" type="an..17" minOccurs="0"/>
<xs:element name="Niederlassungsnummer" type="n4" 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:schema>

4
DAKOSY_Worker/DAKOSY_Worker_lib.vbproj
View File

@@ -165,6 +165,7 @@
<Compile Include="DAKOSY\ATLAS\NCTS\Versandbestaetigung\VersandbestaetigungNCTSDE_002.Designer.vb" />
<Compile Include="DAKOSY\ATLAS\QuittungEingangsverarbeitung\QuittungEingangsverarbeitung_005.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" />
<Compile Include="DAKOSY\ATLAS\Verwahrung\SumAVerwahrungsinfo\SumAVerwahrungsinfo_009.Designer.vb" />
<Compile Include="DAKOSY\cDakosy_Zollanmeldungen.vb" />
@@ -491,6 +492,9 @@
<None Include="DAKOSY\ATLAS\Verwahrung\EingangsanzeigeNCTSDE\EingangsanzeigeNCTSDE_003.xsd">
<SubType>Designer</SubType>
</None>
<None Include="DAKOSY\ATLAS\Verwahrung\SumABekanntgabeMassnahme\SumABekanntgabeMassnahme_005.xsd">
<SubType>Designer</SubType>
</None>
<None Include="DAKOSY\ATLAS\Verwahrung\SumAErledigungsinformationCDXWare_007\SumAErledigungsinformationCDXWare_007.xsd">
<SubType>Designer</SubType>
</None>

4
VERAGMonitoring/My Project/AssemblyInfo.vb
View File

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

2
VERAGMonitoring/frmMain.vb
View File

@@ -395,7 +395,7 @@ Public Class frmMain
'End If
If cbxBrg_de2_VeragAG.Checked Then 'DE
Dim DE_DIFFERENZ As Double = 1000000 ' UNBEKANNT DIFFENREZ!!!
Dim DE_DIFFERENZ As Double = 3000000 ' UNBEKANNT DIFFENREZ!!! 1000000 + 2000000 (unbekannt??????)
'DE WOCHE
Dim woche_de2 As Double = BRG.getBrgSumFromFMZOLL_Zabis(Now.AddDays(-6).ToShortDateString, Now.ToShortDateString, "50", "60", brg_DE_NEU)

57
initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb
View File

@@ -5850,6 +5850,8 @@ Public Class frmDYNachrichtenVerarbeitung
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)
End Select
End If
@@ -7461,10 +7463,27 @@ Public Class frmDYNachrichtenVerarbeitung
For Each POS In EZA.EinzelEntscheidungAnmeldung.Position
If POS.AnordnungKz IsNot Nothing Then
'0 = Keine Beschau. 1 = Volle Gesamtbeschau. 2 = Stichprobenweise Mengenbeschau. 3 = Stichprobenweise Beschaffenheitsbeschau. 4 = Dokumentenprüfung 5= Durchleuchtung 9 = Andere. (Codeliste A1410
Dim BeschauBez
Select Case POS.AnordnungKz
Case 0 : BeschauBez = "Keine Beschau"
Case 1 : BeschauBez = "Volle Gesamtbeschau"
Case 2 : BeschauBez = "Stichprobenweise Mengenbeschau"
Case 3 : BeschauBez = "Stichprobenweise Beschaffenheitsbeschau"
Case 4 : BeschauBez = "Dokumentenprüfung"
Case 5 : BeschauBez = "Durchleuchtung"
Case 9 : BeschauBez = "Andere"
Case Else : BeschauBez = "Unbekannt"
End Select
Select Case POS.AnordnungKz
Case "0" '--> keine Beschau
Case "4" '--> Dokumentenprüfung
TXT_DokBeschau &= POS.Positionsnummer & ": Dokumentenprüfung" & If(POS.MitteilungTeilnehmerBeschau IsNot Nothing, " (" & POS.MitteilungTeilnehmerBeschau & ")", "") & vbNewLine
'MitteilungTeilnehmerBeschau
Case Else '--> andere Beschau
TXT_DokBeschau &= POS.Positionsnummer & ": " & BeschauBez & If(POS.MitteilungTeilnehmerBeschau IsNot Nothing, " (" & POS.MitteilungTeilnehmerBeschau & ")", "") & vbNewLine
'MitteilungTeilnehmerBeschau
End Select
End If
If POS.RueckgabeKz IsNot Nothing Then
@@ -7580,8 +7599,12 @@ Public Class frmDYNachrichtenVerarbeitung
'Nicht
Case Else
Dim code = VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungenCodes.ZOLL_Dokumentenbeschau
VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungen.INSERT_BENACHRICHTIGUNG(DY_TMP.dy_AvisoId, DY_TMP.dy_SendungsId, code, art, sendToID, "ZOLL: Dokumentenbeschau", 1, , (TXT_DokBeschau & vbNewLine & TXT_Mitteilung).Trim,,, If(EZA_TMP IsNot Nothing, If(EZA_TMP.eza_firma, ""), ""))
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)
End Select
End If
Catch ex As Exception
@@ -7634,7 +7657,9 @@ Public Class frmDYNachrichtenVerarbeitung
'Nicht
Case Else
Dim code = VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungenCodes.ZOLL_Rueckweisung
VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungen.INSERT_BENACHRICHTIGUNG(DY_TMP.dy_AvisoId, DY_TMP.dy_SendungsId, code, art, sendToID, "ZOLL: Rückweisung", 1, , (TXT_Rückweisung & vbNewLine & TXT_Mitteilung).Trim,,, If(EZA_TMP IsNot Nothing, If(EZA_TMP.eza_firma, ""), ""))
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)
End Select
' End If
End If
@@ -7698,7 +7723,9 @@ Public Class frmDYNachrichtenVerarbeitung
'Nicht
Case Else
Dim code = VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungenCodes.ZOLL_Mitteilung
VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungen.INSERT_BENACHRICHTIGUNG(DY_TMP.dy_AvisoId, DY_TMP.dy_SendungsId, code, art, sendToID, "ZOLL: Mitteilung", 1, , (TXT_Mitteilung & TXT_Mitteilung_Zollbeamter).Trim,,, If(EZA_TMP IsNot Nothing, If(EZA_TMP.eza_firma, ""), ""))
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)
End Select
' End If
' End If
@@ -7900,7 +7927,9 @@ Public Class frmDYNachrichtenVerarbeitung
'Nicht
Case Else
Dim code = VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungenCodes.ZOLL_Dokumentenbeschau
VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungen.INSERT_BENACHRICHTIGUNG(DY_TMP.dy_AvisoId, DY_TMP.dy_SendungsId, code, art, sendToID, "ZOLL: Dokumentenbeschau", 1, , (TXT_DokBeschau & vbNewLine & TXT_Mitteilung).Trim,,, If(EZA_TMP IsNot Nothing, If(EZA_TMP.eza_firma, ""), ""))
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)
End Select
End If
@@ -7954,7 +7983,9 @@ Public Class frmDYNachrichtenVerarbeitung
'Nicht
Case Else
Dim code = VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungenCodes.ZOLL_Rueckweisung
VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungen.INSERT_BENACHRICHTIGUNG(DY_TMP.dy_AvisoId, DY_TMP.dy_SendungsId, code, art, sendToID, "ZOLL: Rückweisung", 1, , (TXT_Rückweisung & vbNewLine & TXT_Mitteilung).Trim,,, If(EZA_TMP IsNot Nothing, If(EZA_TMP.eza_firma, ""), ""))
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)
End Select
' End If
End If
@@ -8018,7 +8049,9 @@ Public Class frmDYNachrichtenVerarbeitung
'Nicht
Case Else
Dim code = VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungenCodes.ZOLL_Mitteilung
VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungen.INSERT_BENACHRICHTIGUNG(DY_TMP.dy_AvisoId, DY_TMP.dy_SendungsId, code, art, sendToID, "ZOLL: Mitteilung", 1, , (TXT_Mitteilung & TXT_Mitteilung_Zollbeamter).Trim,,, If(EZA_TMP IsNot Nothing, If(EZA_TMP.eza_firma, ""), ""))
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)
End Select
' End If
' End If
@@ -8774,6 +8807,9 @@ Public Class frmDYNachrichtenVerarbeitung
Dim DY_TMP As DAKOSY_Worker.cDakosy_Zollanmeldungen = saveDY_ZA(STATUS, EZA.Transaktion.IOReferenz, If(zp, EZA.Transaktion.IODatumZeit), "EZA")
Dim EZA_TMP As DAKOSY_Worker.cDakosyEZA
'???????? REGNR
If regNR <> "" Then
STATUS.dySt_ergCode = "REGNr"
@@ -8785,6 +8821,15 @@ Public Class frmDYNachrichtenVerarbeitung
SaveEZA_FirmaNL(EZA_TMP, DY_TMP, division)
' ----------------------------------------------------------------------------------------------------------------------
' STORNO -> Benachrichtigung + Vermerk
If DY_TMP.dy_SendungsId > 0 AndAlso DY_TMP.dy_AvisoId > 0 Then
frmStartOptions.insertBenachrichtigung_BearbeitendeEinheit(DY_TMP.dy_AvisoId, DY_TMP.dy_SendungsId, EZA_TMP.eza_firma, 10, "ZOLL: Storno", "ZOLL: Storno " & STATUS.dySt_BezugsNr, 0)
VERAG_PROG_ALLGEMEIN.cVermerkeDAL.insertSendungsVermerk(DY_TMP.dy_SendungsId, DY_TMP.dy_AvisoId, "ZOLL: Storno " & STATUS.dySt_BezugsNr, 128)
End If
' ----------------------------------------------------------------------------------------------------------------------
If DY_TMP IsNot Nothing Then STATUS.dySt_dyId = DY_TMP.dy_Id
STATUS.SAVE()

69
initATLASAufschubkonten/frmStartOptions.vb
View File

@@ -4813,6 +4813,75 @@ Public Class frmStartOptions
End Function
Function insertBenachrichtigung_BearbeitendeEinheit(AvisoId, SendungsId, firma, code, TXT_HEAD, TXT_BODY, prio)
'
'Benachrichtigung
If SendungsId Is DBNull.Value Then SendungsId = Nothing
Try
'Benutzer vorschreiben der Sendung...
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Dim sendToID As String = SQL.DLookup("tblSnd_VG_MA", "tblSendungen", "tblSnd_SendungID='" & SendungsId & "'", "AVISO", -1)
Dim art = "B"
'MsgBox("Benutzer vorschreiben" & sendToID)
'Wenn Benutzer vorschreiben nicht online, dann Benutzer der Sendung...
If sendToID <= 0 OrElse (Not VERAG_PROG_ALLGEMEIN.cSession.IS_ONLINE(sendToID, True)) Then
sendToID = SQL.DLookup("LetzterMitarbeiterId", "tblSendungen", "tblSnd_SendungID='" & SendungsId & "'", "AVISO", -1)
art = "B"
End If
' MsgBox("Benutzer der Sendung" & sendToID)
'Wenn Benutzer der Sendung nicht online, dann Benutzer des LKW ..
If sendToID <= 0 OrElse (Not VERAG_PROG_ALLGEMEIN.cSession.IS_ONLINE(sendToID, True)) Then
sendToID = SQL.DLookup("LetzterMitarbeiterId", "Aviso", "AvisoId='" & AvisoId & "'", "AVISO", -1)
art = "B"
End If
' MsgBox("Benutzer der LKW" & sendToID)
'Wenn Benutzer des LKWs nicht online, Team der Sendung...
If sendToID <= 0 OrElse (Not VERAG_PROG_ALLGEMEIN.cSession.IS_ONLINE(sendToID, True)) Then
sendToID = SQL.DLookup("tblSnd_TeamId", "tblSendungen", "tblSnd_SendungID='" & SendungsId & "'", "AVISO", -1)
art = "T"
End If
' MsgBox("Team der Sendung" & sendToID)
'Wenn Team der Sendung nicht gefunden, Team des LKW...
If sendToID <= 0 Then
sendToID = SQL.DLookup("TeamId", "Aviso", "AvisoID='" & AvisoId & "'", "AVISO", -1)
art = "T"
End If
' MsgBox("Team LKW " & sendToID)
'Wenn TEAM LKW nicht gefunden, Firma...
If sendToID <= 0 Then
If firma IsNot Nothing AndAlso firma <> "" Then
sendToID = firma
art = "F"
End If
End If
'Wenn gefunden
If (art = "F" AndAlso If(sendToID, "") <> "") OrElse sendToID >= 0 Then
Dim statusAVISO = SQL.DLookup("Status", "Aviso", "AvisoID='" & AvisoId & "'", "AVISO")
Dim GrenzstelleAVISO = SQL.DLookup("Grenzstelle", "Aviso", "AvisoID='" & AvisoId & "'", "AVISO")
' If GrenzstelleAVISO = "???" Then
Select Case statusAVISO
Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_NichtEingetroffen, VERAG_PROG_ALLGEMEIN.cGlobal.Status_Freigegeben
'Nicht
Case Else
VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungen.INSERT_BENACHRICHTIGUNG(AvisoId, SendungsId, code, art, sendToID, TXT_HEAD, prio, , TXT_BODY.Trim,,, firma)
End Select
End If
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
Return False
End Try
Return True
End Function
Sub insertVermerk(AvisoID, SendungID, VermerkCodeId, VermerkText)
If SendungID Is DBNull.Value Then SendungID = -1