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

neu

Browse Source
This commit is contained in:
Andreas Luxbauer
2020-11-27 22:57:00 +01:00
parent fa670231f7
commit 14a7113144
22 changed files with 872 additions and 58 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
initATLASAufschubkonten/VERAG_Interface/cVERAG_Interface.vb
View File

@@ -21,4 +21,5 @@ Public Class cVERAG_Interface_Settings
Property acticeInterface_VERAG As Boolean = True
Property acticeInterface_IMEX As Boolean = True
Property acticeInterface_GASTONSCHUL_OUT As Boolean = True
End Class

90
initATLASAufschubkonten/VERAG_Interface/cVERAG_out_ncts.vb
View File

@@ -106,6 +106,20 @@
' 'copyNCTSToFTP_V2_0_1(NCTS_VERAG_OUT, o, vorsystem, filePath, destFile, UniqueId, checkAlreadyProvided, found)
' Dim NCTS_VERAG_OUT = genVERAG_OUT_NCTS_FromDAKOSY_V2_0_2(NCTS_TMP, DY_TMP, UniqueId)
' copyNCTSToFTP_V2_0_2(NCTS_VERAG_OUT, o, vorsystem, filePath, destFile, UniqueId, checkAlreadyProvided, found)
Case "GASTON_SCHUL"
Dim NCTS_VERAG_OUT = genVERAG_OUT_NCTS_FromDAKOSY_V2_0_2(NCTS_TMP, DY_TMP, UniqueId)
Dim GASTON_SCHUL_EX As New VERAG_PROG_ALLGEMEIN.agsCustomsExchange.exchangeRequestType
GASTON_SCHUL_EX.requestDateTime = Now
GASTON_SCHUL_EX.creationDateTime = NCTS_VERAG_OUT.NCTS_Data.DatDeterminationLimit
GASTON_SCHUL_EX.movementReferenceNumber = NCTS_VERAG_OUT.ProcessData.MRN
GASTON_SCHUL_EX.dispatchCountry = NCTS_VERAG_OUT.NCTS_Data.DepartureCountry
GASTON_SCHUL_EX.destinationCountry = NCTS_VERAG_OUT.NCTS_Data.DestinationCountry
'filePath???
cGASTON_SCHUL_Interface.copyNCTSToFTP_V1_0_0(GASTON_SCHUL_EX, o, vorsystem, "", destFile, UniqueId, checkAlreadyProvided, found)
Case Else
Dim NCTS_VERAG_OUT = genVERAG_OUT_NCTS_FromDAKOSY_V2_0_2(NCTS_TMP, DY_TMP, UniqueId)
copyNCTSToFTP_V2_0_2(NCTS_VERAG_OUT, o, vorsystem, filePath, destFile, UniqueId, checkAlreadyProvided, found)
@@ -115,7 +129,6 @@
Next
End If
'If getFTP_Paths(GRN, IF_Obj) Then
' NCTS_VERAG_OUT = genVERAG_OUT_NCTS_FromDAKOSY(NCTS_TMP, DY_TMP, UniqueId)
' copyNCTSToFTP(NCTS_VERAG_OUT, IF_Obj, vorsystem, filePath, destFile, UniqueId, checkAlreadyProvided)
@@ -317,6 +330,7 @@
End Sub
Shared Function copyFileFTP_VERAGncts_EZOLL_ByBezugsNr(LRN As String, ISett As cVERAG_Interface_Settings) As Boolean
cVERAG_Interface_Settings = ISett
Dim AnmId = SQL.getValueTxtBySql("SELECT TOP 1 AnmId FROM zsAnmRefs WHERE (VorgangID = 'AV') AND (LRN = '" & LRN & "')", "EZOLL")
@@ -414,6 +428,7 @@
End Select
If cVERAG_Interface_Settings.acticeInterface_EKOL AndAlso isFTP_EKOL_NCTS() Then IF_Obj.Add(New cVERAG_InterfaceSharedObjects("\\ftps.verag.ag\FTP\EKOL\OUT\", "EKOL"))
If cVERAG_Interface_Settings.acticeInterface_GASTONSCHUL_OUT AndAlso ifGASTON_SCHUL() Then IF_Obj.Add(New cVERAG_InterfaceSharedObjects("\\ftps.verag.ag\FTP\GASTON_SCHUL\OUT\", "GASTON_SCHUL"))
'If cVERAG_Interface_Settings.acticeInterface_TEST AndAlso isFTP_TEST_NCTS() Then IF_Obj.Add(New cVERAG_InterfaceSharedObjects("\\ftps.verag.ag\FTP\TEST\OUT\", "TEST"))
Return True
@@ -449,6 +464,23 @@
Return False
End Function
Shared Function ifGASTON_SCHUL() As Boolean
Try
If GLO_SND IsNot Nothing Then ' FRÄCHTER,AVISIERER
If GLO_SND.tblSnd_NCTSVerzollungsadresse.Contains("GASTON SCHUL") Then
Return True
End If
End If
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & vbNewLine, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
Return False
End Function
Shared Function isFTP_TEST_NCTS() As Boolean
Try
If GLO_AVISO IsNot Nothing Then ' AndAlso GLO_AVISO.Frächter_KdNr > 0 Then ' FRÄCHTER,AVISIERER
@@ -2078,3 +2110,59 @@
End Class
Class cGASTON_SCHUL_Interface
Shared Sub copyNCTSToFTP_V1_0_0(ByRef GS_OUT As VERAG_PROG_ALLGEMEIN.agsCustomsExchange.exchangeRequestType, IF_Obj As cVERAG_InterfaceSharedObjects, ByRef vorsystem As String, ByRef filePath As String, ByRef destFile As String, ByRef UniqueId As String, Optional checkAlreadyProvided As Boolean = True, ByRef Optional found As Boolean = False)
If GS_OUT IsNot Nothing AndAlso Not cVERAG_out_ncts.alreadyProvidedInInterface(GS_OUT.movementReferenceNumber, "OUT", "0", vorsystem, IF_Obj.CooName, checkAlreadyProvided) Then
If genXMLFile_V1_0_0(GS_OUT, filePath, vorsystem, UniqueId) <> "" Then
frmStartOptions.copyFile(filePath, IF_Obj.FTP_Path, destFile)
If IO.File.Exists(destFile) Then
cVERAG_out_ncts.insertFTPLOG(destFile, IF_Obj.CooName, GS_OUT.movementReferenceNumber, "OUT", "0", vorsystem)
found = True
Else
Try
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Datei existiert nicht: " & destFile, "", "copyNCTSToFTP",,,,, GS_OUT.movementReferenceNumber)
Catch
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Datei existiert nicht: " & destFile, "", "copyNCTSToFTP")
End Try
End If
End If
End If
End Sub
Shared Function genXMLFile_V1_0_0(GS_OUT As VERAG_PROG_ALLGEMEIN.agsCustomsExchange.exchangeRequestType, ByRef XMLFilePath As String, Code As String, UniqueId As String) As String
Try
If XMLFilePath = "" Then
Dim dir = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "ZOLL_SCHNITTSTELLEN\GASTON_SCHUL\OUT\" & Now.Year & "\" & Now.ToShortDateString & "\"
If Not IO.Directory.Exists(dir) Then IO.Directory.CreateDirectory(dir)
XMLFilePath = dir & "GASTON_SCHUL_OUT_" & Now.ToString("ddMMyyyHHmmss") & "_" & Code & "_" & UniqueId & ".xml"
End If
If GS_OUT IsNot Nothing Then
GS_OUT.SaveToFile(XMLFilePath)
removeTypeFromXML(XMLFilePath) ' Type-Attribute entfernen
End If
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & vbNewLine, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
Return XMLFilePath
End Function
Shared Function removeTypeFromXML(XMLFilePath) As String
Try
Dim fileContents = IO.File.ReadAllText(XMLFilePath)
fileContents = fileContents.Replace(" xsi:type=""xsd:string""", "")
fileContents = fileContents.Replace(" xsi:type=""xsd:dateTime""", "")
fileContents = fileContents.Replace(" xsi:type=""xsd:decimal""", "")
fileContents = fileContents.Replace(" xsi:type=""xsd:int""", "")
IO.File.WriteAllText(XMLFilePath, fileContents)
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & vbNewLine, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
Return XMLFilePath
End Function
End Class

201
initATLASAufschubkonten/cMAVIWorker.vb
View File

@@ -410,6 +410,207 @@ Public Class cMAVIWorker
End Function
Public Shared Function readNCTS_AbbruchXML_CC009A(FORM As frmTRNCTS_NachrichtenVerarbeitung, doc As XmlDocument) As String
Try
readNCTS_AbbruchXML_CC009A = ""
Dim sw = New StringWriter()
Dim xw = New XmlTextWriter(sw)
doc.WriteTo(xw)
Dim XmlString = sw.ToString()
If XmlString.Contains("<CC009A>") Then
Dim xmlCC009A = XmlString.Substring(XmlString.IndexOf("<CC009A>"), XmlString.IndexOf("</CC009A>") + 9 - XmlString.IndexOf("<CC009A>"))
' MsgBox(xmlCC029B)
Dim p = Path.GetTempFileName
Dim MRN = ""
If doc.GetElementsByTagName("DocNumHEA5").Count > 0 Then
MRN = doc.GetElementsByTagName("DocNumHEA5")(0).InnerText
End If
Dim Abbruchdatum = Nothing
If doc.GetElementsByTagName("DatOfCanDecHEA146").Count > 0 Then
Try
Abbruchdatum = Date.ParseExact(doc.GetElementsByTagName("DatOfCanDecHEA146")(0).InnerText, "yyyyMMdd", System.Globalization.DateTimeFormatInfo.InvariantInfo)
Catch ex As Exception
End Try
End If
Using outputFile As New StreamWriter(p, False, System.Text.Encoding.Default)
outputFile.Write(xmlCC009A)
outputFile.Close()
Dim NCTS As cNCTSPartnerWorker.cNCTS_TR = cNCTSPartnerWorker.cNCTS_TR.LOADByBezugsNr_or_GUID_or_MRN("", "", MRN, True,, "MAVI")
If NCTS Is Nothing Then NCTS = New cNCTSPartnerWorker.cNCTS_TR
NCTS.ncts_Partnersystem = "MAVI"
NCTS.ncts_MRN = MRN
NCTS.ncts_Status = DAKOSY_Worker.cDY_Statusliste.S_80
NCTS.ncts_Status_KEWILL_Equivalent = NCTS.ncts_Status
readNCTS_AbbruchXML_CC009A = NCTS.ncts_ObjectName
If NCTS.SAVE_ALL() Then
' If If(NCTS.ncts_Status, 0) <= 5 Then DAKOSY_Worker.cDakosy_Statusmeldungen.InsertStatusMeldung(DY_TMP, DAKOSY_Worker.cDY_Statusliste.S_05,,,, statusTMP)
Else
readNCTS_AbbruchXML_CC009A = ""
End If
Try
System.IO.File.Delete(p)
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
FORM.addDGVEinarbeitung("NCTS: Abbruch", readNCTS_AbbruchXML_CC009A)
End Using
End If
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name)
readNCTS_AbbruchXML_CC009A = ""
End Try
End Function
Public Shared Function readNCTS_RueckweisungXML_CC016A(FORM As frmTRNCTS_NachrichtenVerarbeitung, doc As XmlDocument) As String
Try
readNCTS_RueckweisungXML_CC016A = ""
Dim sw = New StringWriter()
Dim xw = New XmlTextWriter(sw)
doc.WriteTo(xw)
Dim XmlString = sw.ToString()
If XmlString.Contains("<CC016A>") Then
Dim xmlCC016A = XmlString.Substring(XmlString.IndexOf("<CC016A>"), XmlString.IndexOf("</CC016A>") + 9 - XmlString.IndexOf("<CC016A>"))
' MsgBox(xmlCC029B)
Dim p = Path.GetTempFileName
Dim LRN = ""
If doc.GetElementsByTagName("RefNumHEA4").Count > 0 Then
LRN = doc.GetElementsByTagName("RefNumHEA4")(0).InnerText
End If
Dim Abbruchdatum = Nothing
If doc.GetElementsByTagName("DecRejDatHEA159").Count > 0 Then
Try
Abbruchdatum = Date.ParseExact(doc.GetElementsByTagName("DecRejDatHEA159")(0).InnerText, "yyyyMMdd", System.Globalization.DateTimeFormatInfo.InvariantInfo)
Catch ex As Exception
End Try
End If
Using outputFile As New StreamWriter(p, False, System.Text.Encoding.Default)
outputFile.Write(xmlCC016A)
outputFile.Close()
Dim NCTS As cNCTSPartnerWorker.cNCTS_TR = cNCTSPartnerWorker.cNCTS_TR.LOADByBezugsNr_or_GUID_or_MRN(LRN, "", "", True,, "MAVI")
If NCTS Is Nothing Then NCTS = New cNCTSPartnerWorker.cNCTS_TR
NCTS.ncts_Partnersystem = "MAVI"
NCTS.ncts_ObjectName = LRN
NCTS.ncts_Status = DAKOSY_Worker.cDY_Statusliste.S_65
NCTS.ncts_Status_KEWILL_Equivalent = NCTS.ncts_Status
readNCTS_RueckweisungXML_CC016A = LRN
If NCTS.SAVE_ALL() Then
' If If(NCTS.ncts_Status, 0) <= 5 Then DAKOSY_Worker.cDakosy_Statusmeldungen.InsertStatusMeldung(DY_TMP, DAKOSY_Worker.cDY_Statusliste.S_05,,,, statusTMP)
Else
readNCTS_RueckweisungXML_CC016A = ""
End If
Try
System.IO.File.Delete(p)
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
FORM.addDGVEinarbeitung("NCTS: Rückweisung", readNCTS_RueckweisungXML_CC016A)
End Using
End If
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name)
readNCTS_RueckweisungXML_CC016A = ""
End Try
End Function
Public Shared Function readNCTS_KeineFreigabeXML_CC051B(FORM As frmTRNCTS_NachrichtenVerarbeitung, doc As XmlDocument) As String
Try
readNCTS_KeineFreigabeXML_CC051B = ""
Dim sw = New StringWriter()
Dim xw = New XmlTextWriter(sw)
doc.WriteTo(xw)
Dim XmlString = sw.ToString()
If XmlString.Contains("<CC051B>") Then
Dim xmlCC051B = XmlString.Substring(XmlString.IndexOf("<CC051B>"), XmlString.IndexOf("</CC051B>") + 9 - XmlString.IndexOf("<CC051B>"))
' MsgBox(xmlCC029B)
Dim p = Path.GetTempFileName
Dim MRN = ""
If doc.GetElementsByTagName("DocNumHEA5").Count > 0 Then
MRN = doc.GetElementsByTagName("DocNumHEA5")(0).InnerText
End If
Dim Abbruchdatum = Nothing
If doc.GetElementsByTagName("DecRejDatHEA159").Count > 0 Then
Try
Abbruchdatum = Date.ParseExact(doc.GetElementsByTagName("DecRejDatHEA159")(0).InnerText, "yyyyMMdd", System.Globalization.DateTimeFormatInfo.InvariantInfo)
Catch ex As Exception
End Try
End If
Using outputFile As New StreamWriter(p, False, System.Text.Encoding.Default)
outputFile.Write(xmlCC051B)
outputFile.Close()
Dim NCTS As cNCTSPartnerWorker.cNCTS_TR = cNCTSPartnerWorker.cNCTS_TR.LOADByBezugsNr_or_GUID_or_MRN("", "", MRN, True,, "MAVI")
If NCTS Is Nothing Then NCTS = New cNCTSPartnerWorker.cNCTS_TR
NCTS.ncts_Partnersystem = "MAVI"
NCTS.ncts_MRN = MRN
NCTS.ncts_Status = DAKOSY_Worker.cDY_Statusliste.S_65
NCTS.ncts_Status_KEWILL_Equivalent = NCTS.ncts_Status
readNCTS_KeineFreigabeXML_CC051B = NCTS.ncts_ObjectName
If NCTS.SAVE_ALL() Then
' If If(NCTS.ncts_Status, 0) <= 5 Then DAKOSY_Worker.cDakosy_Statusmeldungen.InsertStatusMeldung(DY_TMP, DAKOSY_Worker.cDY_Statusliste.S_05,,,, statusTMP)
Else
readNCTS_KeineFreigabeXML_CC051B = ""
End If
Try
System.IO.File.Delete(p)
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
FORM.addDGVEinarbeitung("NCTS: KeineFreigabe", readNCTS_KeineFreigabeXML_CC051B)
End Using
End If
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name)
readNCTS_KeineFreigabeXML_CC051B = ""
End Try
End Function
Public Shared Function readNCTS_BestaetigungZollXML_GUA_INF(FORM As frmTRNCTS_NachrichtenVerarbeitung, doc As XmlDocument) As String
Try
readNCTS_BestaetigungZollXML_GUA_INF = ""

2
initATLASAufschubkonten/cWorker_NCTS.vb
View File

@@ -1937,7 +1937,7 @@ Public Class cWorker_NCTS
If DY_TMP IsNot Nothing Then STATUS.dySt_dyId = DY_TMP.dy_Id
STATUS.SAVE()
statusTMP = STATUS
cVERAG_out_ncts.copyFileFTP_VERAGncts_DY(NCTS_TMP, DY_TMP)
cVERAG_out_ncts.copyFileFTP_VERAGncts_DY(NCTS_TMP, DY_TMP) 'VERAG SCHNITTSTELLE
' If If(NCTS_TMP.ncts_firma, "") = "IMEX" Then
NCTS_TMP.insertIntoSpedBuch(DY_TMP)

3
initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb
View File

@@ -5527,7 +5527,8 @@ Public Class frmDYNachrichtenVerarbeitung
Dim LeistungsNr = 0
If A.AbgabeArt IsNot Nothing Then
' If A.Zahlungsart = "A" Then 'Nur wenn Zahlungsart=...?
If If(A.KennBuchstabenAufschub, "").Trim = "M" And (CInt(A.AufschubkontoNr) = 6128 Or CInt(A.AufschubkontoNr) = 6136 Or CInt(A.AufschubkontoNr) = 2718 Or CInt(A.AufschubkontoNr) = 2719) Then '_>TEST Or CInt(A.AufschubkontoNr) = 678010
If If(A.KennBuchstabenAufschub, "").Trim = "M" And (CInt(A.AufschubkontoNr) = 6128 Or CInt(A.AufschubkontoNr) = 6136 Or CInt(A.AufschubkontoNr) = 2718 Or CInt(A.AufschubkontoNr) = 2719 Or
CInt(A.AufschubkontoNr) = 6145 Or CInt(A.AufschubkontoNr) = 6146) Then '_>TEST Or CInt(A.AufschubkontoNr) = 678010
Select Case A.AbgabeArt.ToString
Case "A0000", "10100" : LeistungsNr = 60 ' ZOLL

82
initATLASAufschubkonten/frmStartOptions.vb
View File

@@ -199,9 +199,11 @@ Public Class frmStartOptions
VERAG_PROG_ALLGEMEIN.cDVO_Interface.genStammdatenANSI(False, True, True)
closeMe()
Case "UNISPED_BMD"
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
VERAG_PROG_ALLGEMEIN.cBMD_Interface.genDatensatzCSV_ALL(False, False) 'Kunden noch nicht
closeMe()
'------------------------------
Case Else
'Nur bei manuellem Start wird der fehler ausgegeben
VERAG_PROG_ALLGEMEIN.cAllgemein.ERR_OP_GLOBAL = VERAG_PROG_ALLGEMEIN.ERROR_OP.SHOW
@@ -294,7 +296,7 @@ Public Class frmStartOptions
'Dim dy_id As String = sql.getValueTxtBySql("SELECT isnull(ncts_dyaAnmID,-1) FROM [tblDakosy_NCTSOut] inner join tblDakosy_Zollanmeldungen on dy_id=ncts_dyaAnmID where ncts_ObjectName='" & betreff.ToString.Trim & "' ", "FMZOLL")
Dim dy_id As String = ""
If betreff.ToString.Length > 15 Then
dy_id = sql.getValueTxtBySql("SELECT isnull(ncts_dyaAnmID,-1) FROM [tblDakosy_NCTSOut] inner join tblDakosy_Zollanmeldungen on dy_id=ncts_dyaAnmID where '" & betreff.ToString.Trim & "' LIKE ncts_ObjectName +'%' ", "FMZOLL")
dy_id = sql.getValueTxtBySql("SELECT isnull(ncts_dyaAnmID,-1) FROM [tblDakosy_NCTSOut] inner join tblDakosy_Zollanmeldungen on dy_id=ncts_dyaAnmID where '" & betreff.ToString.Trim & "' LIKE ncts_ObjectName +'%' and LEN(ncts_ObjectName)>=13 ", "FMZOLL")
Else
dy_id = sql.getValueTxtBySql("SELECT isnull(ncts_dyaAnmID,-1) FROM [tblDakosy_NCTSOut] inner join tblDakosy_Zollanmeldungen on dy_id=ncts_dyaAnmID where ncts_ObjectName='" & betreff.ToString.Trim & "' ", "FMZOLL")
End If
@@ -329,7 +331,7 @@ Public Class frmStartOptions
Dim dy_id As String = ""
If betreff.ToString.Length > 15 Then
dy_id = sql.getValueTxtBySql("SELECT isnull(eza_dyaAnmID,-1) FROM [tblDakosy_EZA] inner join tblDakosy_Zollanmeldungen on dy_id=eza_dyaAnmID where '" & betreff.ToString.Trim & "' LIKE eza_ObjectName +'%'", "FMZOLL")
dy_id = sql.getValueTxtBySql("SELECT isnull(eza_dyaAnmID,-1) FROM [tblDakosy_EZA] inner join tblDakosy_Zollanmeldungen on dy_id=eza_dyaAnmID where '" & betreff.ToString.Trim & "' LIKE eza_ObjectName +'%' and LEN(eza_ObjectName)>=13", "FMZOLL")
Else
dy_id = sql.getValueTxtBySql("SELECT isnull(eza_dyaAnmID,-1) FROM [tblDakosy_EZA] inner join tblDakosy_Zollanmeldungen on dy_id=eza_dyaAnmID where eza_ObjectName='" & betreff.ToString.Trim & "'", "FMZOLL")
End If
@@ -353,6 +355,78 @@ Public Class frmStartOptions
End If
End If
'ABD
ElseIf betreff.ToString.Contains("ABD - Ausfuhrbegleitdokument (DE), ") Then
betreff = betreff.replace("WG: ", "")
betreff = betreff.replace("FW: ", "")
betreff = betreff.replace("ABD - Ausfuhrbegleitdokument (DE), ", "")
If betreff.ToString.Contains(",") Then
Dim sp = betreff.ToString.Split(",")
betreff = sp(0).Trim
Dim dy_id As String = ""
If betreff.ToString.Length > 15 Then
dy_id = sql.getValueTxtBySql("SELECT isnull(eza_dyaAnmID,-1) FROM [tblDakosy_EZA] inner join tblDakosy_Zollanmeldungen on dy_id=eza_dyaAnmID where '" & betreff.ToString.Trim & "' LIKE eza_ObjectName +'%' and LEN(eza_ObjectName)>=13", "FMZOLL")
Else
dy_id = sql.getValueTxtBySql("SELECT isnull(eza_dyaAnmID,-1) FROM [tblDakosy_EZA] inner join tblDakosy_Zollanmeldungen on dy_id=eza_dyaAnmID where eza_ObjectName='" & betreff.ToString.Trim & "'", "FMZOLL")
End If
' IO.Directory.CreateDirectory(VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\ZOLLDATEN\TEST3\")
DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER("ZOLLDATEN", "ABD", dy_id, "", "", betreff.ToString.Replace("/", "-").Replace(",", "-").Replace("\", "-").Replace(":", "."), 0, False)
DS.da_vorlage = False
Dim ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\ZOLLDATEN\ABD\NOT_IDENTIFIED\"
If IsNumeric(dy_id) AndAlso dy_id > 0 Then ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\ZOLLDATEN\ABD\" & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\"
If Not IO.Directory.Exists(ZIEL_PFAD) Then IO.Directory.CreateDirectory(ZIEL_PFAD)
Dim destFull = ""
moveFile(pfad, ZIEL_PFAD, destFull)
If DS.insertDataToDATENSERVER(destFull) Then
If IsNumeric(dy_id) AndAlso dy_id > 0 Then
sql.doSQL("UPDATE tblDakosy_Zollanmeldungen SET dy_ABD_dsId='" & DS.da_id & "' where dy_id='" & dy_id & "'", "FMZOLL")
sql.doSQL("UPDATE Speditionsbuch SET DokumentId_ABD='" & DS.da_id & "' where AtlasBezNrEZA='" & betreff.ToString.Trim & "' AND DokumentId_ABD is null", "FMZOLL") 'Falls Spedbuch schon zuvor generiert wurde!
End If
End If
End If
'AVM
ElseIf betreff.ToString.Contains("AVM - Ausgangsvermerk (DE), ") Then
betreff = betreff.replace("WG: ", "")
betreff = betreff.replace("FW: ", "")
betreff = betreff.replace("AVM - Ausgangsvermerk (DE), ", "")
If betreff.ToString.Contains(",") Then
Dim sp = betreff.ToString.Split(",")
betreff = sp(0).Trim
Dim dy_id As String = ""
If betreff.ToString.Length > 15 Then
dy_id = sql.getValueTxtBySql("SELECT isnull(eza_dyaAnmID,-1) FROM [tblDakosy_EZA] inner join tblDakosy_Zollanmeldungen on dy_id=eza_dyaAnmID where '" & betreff.ToString.Trim & "' LIKE eza_ObjectName +'%' and LEN(eza_ObjectName)>=13", "FMZOLL")
Else
dy_id = sql.getValueTxtBySql("SELECT isnull(eza_dyaAnmID,-1) FROM [tblDakosy_EZA] inner join tblDakosy_Zollanmeldungen on dy_id=eza_dyaAnmID where eza_ObjectName='" & betreff.ToString.Trim & "'", "FMZOLL")
End If
' IO.Directory.CreateDirectory(VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\ZOLLDATEN\TEST3\")
DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER("ZOLLDATEN", "AVM", dy_id, "", "", betreff.ToString.Replace("/", "-").Replace(",", "-").Replace("\", "-").Replace(":", "."), 0, False)
DS.da_vorlage = False
Dim ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\ZOLLDATEN\AVM\NOT_IDENTIFIED\"
If IsNumeric(dy_id) AndAlso dy_id > 0 Then ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\ZOLLDATEN\AVM\" & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\"
If Not IO.Directory.Exists(ZIEL_PFAD) Then IO.Directory.CreateDirectory(ZIEL_PFAD)
Dim destFull = ""
moveFile(pfad, ZIEL_PFAD, destFull)
If DS.insertDataToDATENSERVER(destFull) Then
If IsNumeric(dy_id) AndAlso dy_id > 0 Then
sql.doSQL("UPDATE tblDakosy_Zollanmeldungen SET dy_AVM_dsId='" & DS.da_id & "' where dy_id='" & dy_id & "'", "FMZOLL")
sql.doSQL("UPDATE Speditionsbuch SET DokumentId_AVM='" & DS.da_id & "' where AtlasBezNrEZA='" & betreff.ToString.Trim & "' AND DokumentId_AVM is null", "FMZOLL") 'Falls Spedbuch schon zuvor generiert wurde!
End If
End If
End If
End If
' GENERELLES NOT IDENTIFIED!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

17
initATLASAufschubkonten/frmTRNCTS_NachrichtenVerarbeitung.vb
View File

@@ -364,6 +364,23 @@ Public Class frmTRNCTS_NachrichtenVerarbeitung
If cMAVIWorker.readNCTS_ErledigungsmitteilungXML_CC045A(Me, doc) <> "" Then found = True
End If
Case 7
'NCTS: Cancellation decision CC009A
If Not found And cNCTSPartnerWorker.cMAVIGetMsgType.isTRNCTS_AbbruchXML_CC009A(doc) Then
If cMAVIWorker.readNCTS_AbbruchXML_CC009A(Me, doc) <> "" Then found = True
End If
Case 8
'NCTS: Declaration rejected CC016A
If Not found And cNCTSPartnerWorker.cMAVIGetMsgType.isTRNCTS_RueckweisungXML_CC016A(doc) Then
If cMAVIWorker.readNCTS_RueckweisungXML_CC016A(Me, doc) <> "" Then found = True
End If
Case 9
'NCTS: No release for transit – type B CC051B
If Not found And cNCTSPartnerWorker.cMAVIGetMsgType.isTRNCTS_KeineFreigabeXML_CC051B(doc) Then
If cMAVIWorker.readNCTS_KeineFreigabeXML_CC051B(Me, doc) <> "" Then found = True
End If
Case 10
NACHRICHTENTYP_notfound = True ' alle nciht zu verarbeitenden
End Select