neu
This commit is contained in:
@@ -38,11 +38,11 @@ Public Class frmDYNachrichtenVerarbeitung
|
||||
Sub initPfade()
|
||||
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "" Then VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG"
|
||||
Me.VERARBEITUNGS_PFAD = DAKOSY_Worker.cDY_Paramter.GET_PARAM_ByName("VERARBEITUNGS_PFAD", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM)
|
||||
'"\\192.168.0.91\Datenarchiv\DAKOSY\TESTSYSTEM\Nachrichtendaten_Einarbeitung\"
|
||||
'VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\TESTSYSTEM\Nachrichtendaten_Einarbeitung\"
|
||||
Me.ZIEL_PFAD = DAKOSY_Worker.cDY_Paramter.GET_PARAM_ByName("ZIEL_PFAD", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM)
|
||||
'"\\192.168.0.91\Datenarchiv\DAKOSY\TESTSYSTEM\Nachrichtendaten_Ablage\"
|
||||
'VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\TESTSYSTEM\Nachrichtendaten_Ablage\"
|
||||
Me.ERROR_PFAD = DAKOSY_Worker.cDY_Paramter.GET_PARAM_ByName("ERROR_PFAD", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM)
|
||||
'"\\192.168.0.91\Datenarchiv\DAKOSY\TESTSYSTEM\Nachrichtendaten_ERROR\"
|
||||
'VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\TESTSYSTEM\Nachrichtendaten_ERROR\"
|
||||
If Not IO.Directory.Exists(VERARBEITUNGS_PFAD) Then IO.Directory.CreateDirectory(VERARBEITUNGS_PFAD)
|
||||
If Not IO.Directory.Exists(ZIEL_PFAD) Then IO.Directory.CreateDirectory(ZIEL_PFAD)
|
||||
If Not IO.Directory.Exists(ERROR_PFAD) Then IO.Directory.CreateDirectory(ERROR_PFAD)
|
||||
@@ -100,7 +100,7 @@ Public Class frmDYNachrichtenVerarbeitung
|
||||
Dim DY_port = ""
|
||||
Dim DY_PFAD_out = ""
|
||||
|
||||
DAKOSY_Worker.cDakosyFunftions.getSFTPLoginData(DY_server, DY_name, DY_pwd, DY_port, "", DY_PFAD_out, "")
|
||||
DAKOSY_Worker.cDakosyFunftions.getSFTPLoginData(DY_server, DY_name, DY_pwd, DY_port, "", DY_PFAD_out, "", VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA)
|
||||
|
||||
|
||||
Dim ConnectionInfo As New ConnectionInfo(DY_server, DY_port, DY_name, New PasswordAuthenticationMethod(DY_name, DY_pwd))
|
||||
@@ -208,8 +208,8 @@ Public Class frmDYNachrichtenVerarbeitung
|
||||
' If fi.Extension = ".edi" Then
|
||||
Dim alreadyMoved = False
|
||||
If fi.Extension = ".nlc" Then ' Or fi.Name.StartsWith("ZA") Then
|
||||
If Not IO.Directory.Exists("\\192.168.0.91\Datenarchiv\DAKOSY\ECHTSYSTEM\nlc\") Then IO.Directory.CreateDirectory("\\192.168.0.91\Datenarchiv\DAKOSY\ECHTSYSTEM\nlc\")
|
||||
frmStartOptions.moveFile(d, "\\192.168.0.91\Datenarchiv\DAKOSY\ECHTSYSTEM\nlc\")
|
||||
If Not IO.Directory.Exists(VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\nlc\") Then IO.Directory.CreateDirectory(VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\nlc\")
|
||||
frmStartOptions.moveFile(d, VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\nlc\")
|
||||
alreadyMoved = True
|
||||
addDGVEinarbeitung("** NLC-Datei **", fi.Name)
|
||||
ElseIf fi.Extension = ".edi" Then ' Or fi.Name.StartsWith("ZA") Then
|
||||
@@ -3655,6 +3655,23 @@ Public Class frmDYNachrichtenVerarbeitung
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
Public Shared Sub tryGetNCTSBasicData(ByRef NCTS_new As DAKOSY_Worker.cDakosyNCTSOut)
|
||||
Try
|
||||
Dim WP_LIST_old As List(Of DAKOSY_Worker.cDakosy_NCTSOut_Warenposition) = DAKOSY_Worker.cDakosyNCTSOut.get_Warenposition(NCTS_new.ncts_Id)
|
||||
If WP_LIST_old IsNot Nothing And NCTS_new IsNot Nothing Then
|
||||
If WP_LIST_old IsNot Nothing And NCTS_new.ncts_WARENPOS IsNot Nothing Then
|
||||
For Each POS In NCTS_new.ncts_WARENPOS
|
||||
If WP_LIST_old.Count > NCTS_new.ncts_WARENPOS.IndexOf(POS) Then
|
||||
' MsgBox(POS.nctsWP_KdRefNr & " --- " & WP_LIST_old(NCTS_new.ncts_WARENPOS.IndexOf(POS)).nctsWP_KdRefNr)
|
||||
POS.nctsWP_KdRefNr = WP_LIST_old(NCTS_new.ncts_WARENPOS.IndexOf(POS)).nctsWP_KdRefNr
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
End If
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
@@ -4339,7 +4356,7 @@ Public Class frmDYNachrichtenVerarbeitung
|
||||
Dim erledigung = ""
|
||||
Dim zp As Object = Nothing
|
||||
Dim EDIFACTNachrichtenNr = ""
|
||||
|
||||
Dim AUFSCHUB As List(Of DAKOSY_Worker.cDakosy_EZA_Aufschub) = Nothing
|
||||
Dim division = ""
|
||||
|
||||
readEZA_Abgabenbescheid008 = ""
|
||||
@@ -4377,6 +4394,28 @@ Public Class frmDYNachrichtenVerarbeitung
|
||||
' If EZA.EinzelAbgabenbescheid.KopfDaten.Registrierdatum IsNot Nothing Then
|
||||
regDat = EZA.EinzelAbgabenbescheid.KopfDaten.Registrierdatum
|
||||
'End If
|
||||
If EZA.EinzelAbgabenbescheid.KopfDaten.AbgabenNachArt IsNot Nothing AndAlso EZA.EinzelAbgabenbescheid.KopfDaten.AbgabenNachArt.Count > 0 Then
|
||||
Dim a As New DAKOSY_Worker.cDakosy_EZA_Aufschub
|
||||
AUFSCHUB = New List(Of DAKOSY_Worker.cDakosy_EZA_Aufschub)
|
||||
For Each ABG In EZA.EinzelAbgabenbescheid.KopfDaten.AbgabenNachArt
|
||||
a.ezaAfb_ArtAufschubantrag = ABG.ArtAufschubAntrag
|
||||
a.ezaAfb_AufschubnehmerEORI = ABG.AufschubnehmerTIN
|
||||
a.ezaAfb_HZA = ABG.KennBuchstabenAufschub
|
||||
a.ezaAfb_KontoNr = ABG.AufschubkontoNr
|
||||
If ABG.Faelligkeit > CDate("01.01.2000") Then a.ezaAfb_Faelligkeit = ABG.Faelligkeit
|
||||
a.ezaAfb_Zahlungsart = ABG.Zahlungsart
|
||||
a.ezaAfb_Abgabenbetrag = ABG.Abgabenbetrag
|
||||
a.ezaAfb_AbgabeArt = ABG.AbgabeArt
|
||||
a.AufschubnehmerName = ABG.AufschubnehmerName
|
||||
|
||||
'Select Case AbgabeArt
|
||||
' Case "B0000" 'EUST
|
||||
' Case "B0000" 'EUST
|
||||
'End Select
|
||||
Next
|
||||
AUFSCHUB.Add(a)
|
||||
End If
|
||||
|
||||
|
||||
|
||||
|
||||
@@ -4408,6 +4447,9 @@ Public Class frmDYNachrichtenVerarbeitung
|
||||
|
||||
Dim EZA_TMP As DAKOSY_Worker.cDakosyEZA
|
||||
|
||||
|
||||
|
||||
|
||||
Dim DY_TMP As DAKOSY_Worker.cDakosy_Zollanmeldungen = saveDY_ZA(STATUS, EZA.Transaktion.IOReferenz, If(zp, EZA.Transaktion.IODatumZeit), "EZA")
|
||||
|
||||
If regNr <> "" Then
|
||||
@@ -4421,6 +4463,19 @@ Public Class frmDYNachrichtenVerarbeitung
|
||||
Dim nl = ""
|
||||
SaveEZA_FirmaNL(EZA_TMP, DY_TMP, division, firma, nl)
|
||||
|
||||
|
||||
If AUFSCHUB IsNot Nothing And EZA_TMP IsNot Nothing Then
|
||||
EZA_TMP.eza_AUFSCHUB.Clear()
|
||||
For Each a In AUFSCHUB
|
||||
a.ezaAfb_EZAId = EZA_TMP.eza_Id
|
||||
Next
|
||||
EZA_TMP.eza_AUFSCHUB = AUFSCHUB
|
||||
EZA_TMP.SAVE_Aufschub()
|
||||
|
||||
cVERAG_out_eza.copyFileFTP_VERAGEZA_DY(EZA_TMP, DY_TMP) ' SCHNITTSTELLE FTP BEREITSTELLEN
|
||||
'RAISE-API-EVENT/TRIGGER ??
|
||||
End If
|
||||
|
||||
' ------------------------------------------------------------------------------
|
||||
' wenn nicht abschliebender Abgabenbescheid --> Infomail an die Zollbüros!
|
||||
Select Case erledigung
|
||||
|
||||
Reference in New Issue
Block a user