KVI, EZA BEstätigungAnm
This commit is contained in:
@@ -94,7 +94,7 @@ Public Class usrCntlATLAS_EZABestaetigungVorzeitigeAnmeldung
|
||||
|
||||
Me.Refresh()
|
||||
Me.Cursor = Cursors.WaitCursor
|
||||
If sentToDakosy OrElse vbYes = MsgBox("Soll die Ankunftsanzeige abgeschickt werden?", vbYesNoCancel) Then
|
||||
If sentToDakosy OrElse vbYes = MsgBox("Soll die Bestätigung der vZA (ATB Ergänzung) abgeschickt werden?", vbYesNoCancel) Then
|
||||
' Dim cDyAnm As New cDakosy_Zollanmeldungen(cDy_ART, BezugsNr, AVISO.AvisoID, SENDUNG.tblSnd_SendungID)
|
||||
'loadDYZollanmeldungen()
|
||||
Dim dy_Id = -1
|
||||
@@ -127,7 +127,7 @@ Public Class usrCntlATLAS_EZABestaetigungVorzeitigeAnmeldung
|
||||
End If
|
||||
|
||||
|
||||
If generateEingangsanzeigeNCTSDE_003(AVISO, SENDUNG, BezugsNrBez, lblBezugsnummer.Text, saveFile, cboDakosyAction._value, txtDyMandant.Text, txtDyNiederlassung.Text, cboStammreferenz._value) Then
|
||||
If generateBestaetigungVorzeitigeAnmeldung_003(AVISO, SENDUNG, BezugsNrBez, lblBezugsnummer.Text, saveFile, cboDakosyAction._value, txtDyMandant.Text, txtDyNiederlassung.Text, cboStammreferenz._value) Then
|
||||
If saveFile <> "" Then
|
||||
|
||||
'-------------------------------------------------------
|
||||
@@ -135,7 +135,6 @@ Public Class usrCntlATLAS_EZABestaetigungVorzeitigeAnmeldung
|
||||
If cDakosyFunftions.send_Data_To_Dakosy_FTP(saveFile, BezugsNrBez, dy_Id, FIRMA_DY) Then
|
||||
If SENDUNG IsNot Nothing Then SENDUNG.SET_VGMA() ' MA Vorgeschrieben in Sendung setzen.
|
||||
MsgBox("Gesendet!")
|
||||
createGesamtsicherheitDummy(GesamtsicherheitREF, Standort, txtWarenort.Text, gsnr, WarenwertEUR)
|
||||
Else
|
||||
'DAKOSY_Worker.cDakosy_Statusmeldungen.InsertStatusMeldung(DY_ANM, DAKOSY_Worker.cDY_Statusliste.S_09)
|
||||
MsgBox("Sendefehler!")
|
||||
@@ -157,43 +156,48 @@ Public Class usrCntlATLAS_EZABestaetigungVorzeitigeAnmeldung
|
||||
|
||||
|
||||
|
||||
Shared Function generateEingangsanzeigeNCTSDE_003(AVISO As VERAG_PROG_ALLGEMEIN.cAviso, SND As VERAG_PROG_ALLGEMEIN.cSendungen, ByVal Bezugsnummer As String, ByVal BezugsnummerALIAS As String, ByRef saveFile As String, DY_ACTION As String, IOPartner As String, IODivision3 As String, Optional BezugsnummerVorblendung As String = "") As Boolean
|
||||
Shared Function generateBestaetigungVorzeitigeAnmeldung_003(AVISO As VERAG_PROG_ALLGEMEIN.cAviso, SND As VERAG_PROG_ALLGEMEIN.cSendungen, ByVal Bezugsnummer As String, ByVal BezugsnummerALIAS As String, ByRef saveFile As String, DY_ACTION As String, IOPartner As String, IODivision3 As String, Optional BezugsnummerVorblendung As String = "") As Boolean
|
||||
Dim Interface_VERSION = "003"
|
||||
Dim ObjectAktion = DY_ACTION
|
||||
' Dim BezugsnummerVorblendung = "AA_NCTS_DE_ZE_WO_MITTICH"
|
||||
Dim Bearbeiter = ""
|
||||
If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER IsNot Nothing Then Bearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_DAKOSY_SB
|
||||
|
||||
Dim XML As New DAKOSY_Worker.EingangsanzeigeNCTSDE_003.EingangsanzeigeEATyp
|
||||
Dim XML As New DAKOSY_Worker.BestaetigungVorzeitigeAnmeldung_003.BestaetigungVorzeitigeAnmeldungAZATNTyp
|
||||
|
||||
|
||||
'Transaktion:
|
||||
XML.Transaktion = New DAKOSY_Worker.EingangsanzeigeNCTSDE_003.TransaktionNCTSTyp
|
||||
XML.Transaktion = New BestaetigungVorzeitigeAnmeldung_003.TransaktionFreierVerkehrTyp
|
||||
XML.Transaktion.IOPartner = IOPartner 'SDL.DAKOSY_Interface_SEND.getIOPartner(FIRMA_DY) 'If(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "VERA", "VERG")
|
||||
XML.Transaktion.IODatumZeit = Now
|
||||
XML.Transaktion.IOReferenz = SND.FilialenNr & "-" & SND.AbfertigungsNr & "_" & Now.ToString("ddMMyyHHmmSS")
|
||||
If Not VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then XML.Transaktion.IODivision3 = IODivision3 '"SUW"
|
||||
XML.Transaktion.Version = Interface_VERSION
|
||||
' XML.Transaktion.IODivision3 = IODivision3
|
||||
XML.EinzelEingangsanzeige = New EingangsanzeigeNCTSDE_003.EinzelEingangsanzeigeTyp
|
||||
XML.EinzelBestaetigungVorzeitigeAnmeldung = New BestaetigungVorzeitigeAnmeldung_003.EinzelBestaetigungVorzeitigeAnmeldungTyp
|
||||
|
||||
'ObjektIdentifizierung:
|
||||
XML.EinzelEingangsanzeige.ObjektIdentifizierung.NameAbsendendesSystem = "VERAG_ZOLL"
|
||||
XML.EinzelEingangsanzeige.ObjektIdentifizierung = New EingangsanzeigeNCTSDE_003.ObjektIdentifizierungEATyp
|
||||
XML.EinzelEingangsanzeige.ObjektIdentifizierung.ObjektName = Bezugsnummer
|
||||
|
||||
If BezugsnummerALIAS IsNot Nothing Then XML.EinzelEingangsanzeige.ObjektIdentifizierung.ObjektAliasname = BezugsnummerALIAS
|
||||
XML.EinzelBestaetigungVorzeitigeAnmeldung.ObjektIdentifizierung = New BestaetigungVorzeitigeAnmeldung_003.ObjektIdentifizierungAZATNTyp
|
||||
XML.EinzelBestaetigungVorzeitigeAnmeldung.ObjektIdentifizierung.AbsenderSystemName = "VERAG_ZOLL"
|
||||
XML.EinzelBestaetigungVorzeitigeAnmeldung.ObjektIdentifizierung.ObjektName = Bezugsnummer
|
||||
|
||||
If BezugsnummerALIAS IsNot Nothing Then XML.EinzelBestaetigungVorzeitigeAnmeldung.ObjektIdentifizierung.ObjektAlias = BezugsnummerALIAS
|
||||
Dim ObjektAktion As New List(Of String) : ObjektAktion.Add(ObjectAktion)
|
||||
XML.EinzelEingangsanzeige.ObjektIdentifizierung.ObjektAktion = ObjektAktion
|
||||
If If(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_DAKOSY_SB, "") <> "" Then XML.EinzelEingangsanzeige.ObjektIdentifizierung.Bearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_DAKOSY_SB
|
||||
XML.EinzelBestaetigungVorzeitigeAnmeldung.ObjektIdentifizierung.ObjektAktion = ObjektAktion
|
||||
If If(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_DAKOSY_SB, "") <> "" Then XML.EinzelBestaetigungVorzeitigeAnmeldung.ObjektIdentifizierung.Bearbeiter = Bearbeiter
|
||||
|
||||
If BezugsnummerVorblendung IsNot Nothing AndAlso BezugsnummerVorblendung <> "" Then XML.EinzelEingangsanzeige.ObjektIdentifizierung.BezugsnummerVorblendung = BezugsnummerVorblendung
|
||||
If BezugsnummerVorblendung IsNot Nothing AndAlso BezugsnummerVorblendung <> "" Then XML.EinzelBestaetigungVorzeitigeAnmeldung.ObjektIdentifizierung.BezugsnummerVorblendung = BezugsnummerVorblendung
|
||||
|
||||
'TransitOperation:
|
||||
XML.EinzelEingangsanzeige.TransitOperation = New EingangsanzeigeNCTSDE_003.TransitOperationEAType
|
||||
XML.EinzelBestaetigungVorzeitigeAnmeldung.KopfDaten = New BestaetigungVorzeitigeAnmeldung_003.KopfdatenBestaetigungVorzeitigeAnmeldungTyp
|
||||
'If cDY.ncts_CountryOfDispatch IsNot Nothing Then XML.EinzelEingangsanzeige.TransitOperation.CustomsOfficeOfDestinationActual = cDY.ncts_CountryOfDispatch
|
||||
If SND.tblSnd_ATB_T1 IsNot Nothing Then XML.EinzelEingangsanzeige.TransitOperation.MRN = SND.tblSnd_ATB_T1
|
||||
XML.EinzelEingangsanzeige.TransitOperation.ArrivalNotificationDateAndTime = Now
|
||||
'If SND.tblSnd_ATB_T1 IsNot Nothing Then XML.EinzelBestaetigungVorzeitigeAnmeldung.KopfDaten.MRN = SND.tblSnd_ATB_T1
|
||||
XML.EinzelBestaetigungVorzeitigeAnmeldung.KopfDaten.AnmeldenderBearbeiter = Bearbeiter
|
||||
XML.EinzelBestaetigungVorzeitigeAnmeldung.KopfDaten.TelefonnummerBearbeiter = ""
|
||||
XML.EinzelBestaetigungVorzeitigeAnmeldung.KopfDaten.StellungAnmeldenderBearbeiter = "Zolldeklarant/in"
|
||||
|
||||
XML.EinzelEingangsanzeige.TransitOperation.IncidentFlag = "N"
|
||||
' XML.EinzelBestaetigungVorzeitigeAnmeldung.KopfDaten.IncidentFlag = "N"
|
||||
|
||||
|
||||
|
||||
@@ -202,7 +206,7 @@ Public Class usrCntlATLAS_EZABestaetigungVorzeitigeAnmeldung
|
||||
System.IO.Directory.CreateDirectory(saveDir)
|
||||
End If
|
||||
|
||||
saveFile = saveDir & "DY_AA_" & Now.ToString("yyMMdd_HHmmss") & ".xml"
|
||||
saveFile = saveDir & "DY_BvZA_" & Now.ToString("yyMMdd_HHmmss") & ".xml"
|
||||
|
||||
XML.SaveToFile(saveFile)
|
||||
|
||||
@@ -211,6 +215,7 @@ Public Class usrCntlATLAS_EZABestaetigungVorzeitigeAnmeldung
|
||||
Return True
|
||||
End Function
|
||||
|
||||
|
||||
Private Function createGesamtsicherheitDummy(GesSichRef As cGesamtsicherheitsReferenz, Standort As String, Warenort As String, gsnr As Integer, WarenwertEUR As Double)
|
||||
|
||||
Try
|
||||
|
||||
Reference in New Issue
Block a user