2168 lines
132 KiB
VB.net
2168 lines
132 KiB
VB.net
Public Class cVERAG_out_ncts
|
|
Shared SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
|
|
|
|
|
Shared GLO_NCTS_DY As DAKOSY_Worker.cDakosyNCTSOut = Nothing
|
|
Shared GLO_DY As DAKOSY_Worker.cDakosy_Zollanmeldungen = Nothing
|
|
Shared GLO_NCTS_TC As TELOTEC_Worker.cTelotec_Anmeldung = Nothing
|
|
|
|
Shared GLO_AVISO As VERAG_PROG_ALLGEMEIN.cAviso = Nothing
|
|
Shared GLO_SND As VERAG_PROG_ALLGEMEIN.cSendungen = Nothing
|
|
Shared cVERAG_Interface_Settings As New cVERAG_Interface_Settings 'defalut: Alles true
|
|
|
|
'Shared Function copyFileFTP_OLD(NCTS_TMP As DAKOSY_Worker.cDakosyNCTSOut, DY_TMP As DAKOSY_Worker.cDakosy_Zollanmeldungen) ', filePath As String)
|
|
' Try
|
|
' If NCTS_TMP Is Nothing Then Return False
|
|
' If NCTS_TMP.ncts_ObjectName Is Nothing Then Return False
|
|
' If NCTS_TMP.ncts_ObjectName.ToString.StartsWith("DU") Then Return False
|
|
' If NCTS_TMP.ncts_firma.ToString = "DURMAZ" Then Return False
|
|
|
|
' Dim filePath = SQL.getValueTxtBySql("select [dySt_pfad] from [tblDakosy_Statusmeldungen] where dySt_BezugsNr='" & NCTS_TMP.ncts_ObjectName & "' and [dySt_status]=5 and [dySt_pfad] is not null ", "FMZOLL")
|
|
' If filePath = "" Then Return False
|
|
|
|
' NCTS_TMP.LOAD_Sicherheitsangaben()
|
|
' If NCTS_TMP.ncts_SICHERHEITSANGABEN IsNot Nothing AndAlso NCTS_TMP.ncts_SICHERHEITSANGABEN.Count > 0 Then
|
|
' Dim GRN = NCTS_TMP.ncts_SICHERHEITSANGABEN(0).nctsSA_GRN
|
|
' Dim destFile = ""
|
|
' Select Case GRN
|
|
' ' --> FTP Bereitstellung
|
|
' '\\192.168.0.91\Datenarchiv\DAKOSY\ECHTSYSTEM\FTP\TOBB
|
|
' Case "15TR0004000020917", "12TR0004000004665", "17TR0004000032349", "17TR0004000029518"
|
|
' frmStartOptions.copyFile(filePath, "\\ftps.verag.ag\FTP\TOBB\OUT\", destFile)
|
|
' If IO.File.Exists(destFile) Then insertFTPLOG(destFile, "TOBB") Else VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Datei existiert nicht: " & destFile & vbNewLine & NCTS_TMP.ncts_ObjectName, "", "copyFileFTP")
|
|
' Case "18DE0000000073276", "19DE0000000075520", "18DE0000000075520"
|
|
' frmStartOptions.copyFile(filePath, "\\ftps.verag.ag\FTP\OREGON\OUT\", destFile)
|
|
' If IO.File.Exists(destFile) Then insertFTPLOG(destFile, "OREGON") Else VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Datei existiert nicht: " & destFile & vbNewLine & NCTS_TMP.ncts_ObjectName, "", "copyFileFTP")
|
|
' Case "17DE0000000071678", "05AT510000G000FP7" 'VERAG
|
|
' frmStartOptions.copyFile(filePath, VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\FTP\VERAG\", destFile)
|
|
' If IO.File.Exists(destFile) Then insertFTPLOG(destFile, "VERAG") Else VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Datei existiert nicht: " & destFile & vbNewLine & NCTS_TMP.ncts_ObjectName, "", "copyFileFTP")
|
|
' End Select
|
|
' End If
|
|
' Return True
|
|
' Catch ex As Exception
|
|
' VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & vbNewLine & "BezugsNr: " & NCTS_TMP.ncts_ObjectName, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
|
' Return False
|
|
' End Try
|
|
'End Function
|
|
|
|
|
|
|
|
Shared Function copyFileFTP_VERAGncts_DY_ByBezugsNr(BezugsNr As String, ISett As cVERAG_Interface_Settings) As Boolean
|
|
cVERAG_Interface_Settings = ISett
|
|
Dim DY_TMP = DAKOSY_Worker.cDakosy_Zollanmeldungen.LOADByBezugsNr(BezugsNr)
|
|
Dim NCTS_TMP = DAKOSY_Worker.cDakosyNCTSOut.LOADByBezugsNr(BezugsNr, True)
|
|
If DY_TMP Is Nothing Then Return False
|
|
If NCTS_TMP Is Nothing Then Return False
|
|
Return copyFileFTP_VERAGncts_DY(NCTS_TMP, DY_TMP, False)
|
|
End Function
|
|
|
|
|
|
Shared Function copyFileFTP_VERAGncts_DY(NCTS_TMP As DAKOSY_Worker.cDakosyNCTSOut, DY_TMP As DAKOSY_Worker.cDakosy_Zollanmeldungen, Optional checkAlreadyProvided As Boolean = True) As Boolean
|
|
Try
|
|
If NCTS_TMP Is Nothing Then Return False
|
|
If NCTS_TMP.ncts_ObjectName Is Nothing Then Return False
|
|
If NCTS_TMP.ncts_ObjectName.ToString.StartsWith("DU") Then Return False
|
|
If If(NCTS_TMP.ncts_firma, "").ToString = "DURMAZ" Then Return False
|
|
|
|
GLO_NCTS_DY = NCTS_TMP
|
|
GLO_DY = DY_TMP
|
|
|
|
GLO_SND = Nothing
|
|
GLO_AVISO = Nothing
|
|
|
|
If DY_TMP.dy_SendungsId IsNot Nothing AndAlso DY_TMP.dy_SendungsId > 0 Then
|
|
GLO_SND = New VERAG_PROG_ALLGEMEIN.cSendungen(DY_TMP.dy_SendungsId)
|
|
End If
|
|
|
|
If DY_TMP.dy_AvisoId IsNot Nothing AndAlso DY_TMP.dy_AvisoId > 0 Then
|
|
GLO_AVISO = VERAG_PROG_ALLGEMEIN.cAviso.getAvisoById(DY_TMP.dy_AvisoId)
|
|
End If
|
|
|
|
|
|
' Dim filePath = SQL.getValueTxtBySql("select [dySt_pfad] from [tblDakosy_Statusmeldungen] where dySt_BezugsNr='" & NCTS_TMP.ncts_ObjectName & "' and [dySt_status]=5 and [dySt_pfad] is not null ", "FMZOLL")
|
|
|
|
Dim GRN = ""
|
|
NCTS_TMP.LOAD_Sicherheitsangaben()
|
|
If NCTS_TMP.ncts_SICHERHEITSANGABEN IsNot Nothing AndAlso NCTS_TMP.ncts_SICHERHEITSANGABEN.Count > 0 Then
|
|
GRN = NCTS_TMP.ncts_SICHERHEITSANGABEN(0).nctsSA_GRN
|
|
End If
|
|
|
|
Dim destFile = ""
|
|
Dim filePath = ""
|
|
Dim UniqueId = ""
|
|
' --> FTP Bereitstellung
|
|
' Dim NCTS_VERAG_OUT As VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS.VERAG_out_ncts = Nothing
|
|
|
|
Dim found As Boolean = False
|
|
Dim vorsystem = "DY"
|
|
Dim IF_Obj As New List(Of cVERAG_InterfaceSharedObjects)
|
|
|
|
If getFTP_Paths(GRN, IF_Obj) Then
|
|
|
|
For Each o In IF_Obj
|
|
Select Case o.CooName
|
|
'Case "EKOL", "TOBB"
|
|
' 'Dim NCTS_VERAG_OUT = genVERAG_OUT_NCTS_FromDAKOSY_V2_0_1(NCTS_TMP, DY_TMP, UniqueId)
|
|
' '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)
|
|
'Dim NCTS_VERAG_OUT = genVERAG_OUT_NCTS_FromDAKOSY(NCTS_TMP, DY_TMP, UniqueId)
|
|
'copyNCTSToFTP(NCTS_VERAG_OUT, o, vorsystem, filePath, destFile, UniqueId, checkAlreadyProvided, found)
|
|
End Select
|
|
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)
|
|
'End If
|
|
|
|
'Dim vorsystem = "DY"
|
|
'Dim IF_Obj As New List(Of cVERAG_InterfaceSharedObjects)
|
|
'If getFTP_Paths(GRN, IF_Obj) Then
|
|
' NCTS_VERAG_OUT = genVERAG_OUT_NCTS_FromDAKOSY(NCTS_TMP, DY_TMP, UniqueId)
|
|
' For Each o In IF_Obj
|
|
' If NCTS_VERAG_OUT IsNot Nothing AndAlso Not alreadyProvidedInInterface(NCTS_VERAG_OUT, vorsystem, checkAlreadyProvided) Then
|
|
' If genXMLFile(NCTS_VERAG_OUT, filePath, vorsystem, UniqueId) <> "" Then
|
|
' frmStartOptions.copyFile(filePath, o.FTP_Path, destFile)
|
|
' If IO.File.Exists(destFile) Then insertFTPLOG(destFile, o.CooName, NCTS_VERAG_OUT, vorsystem) Else VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Datei existiert nicht: " & destFile, "", "copyFileFTP")
|
|
' End If
|
|
' End If
|
|
' Next
|
|
'End If
|
|
|
|
|
|
'Dim destFile = ""
|
|
'Dim filePath = ""
|
|
'Dim NCTS_VERAG_OUT As VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS.VERAG_out_ncts = Nothing
|
|
'' --> FTP Bereitstellung
|
|
'Select Case GRN
|
|
' Case "15TR0004000020917", "12TR0004000004665", "17TR0004000032349", "17TR0004000029518"
|
|
' NCTS_VERAG_OUT = genVERAG_OUT_NCTS_FromDAKOSY(NCTS_TMP, DY_TMP, filePath)
|
|
' If filePath = "" Then Return False
|
|
' frmStartOptions.copyFile(filePath, "\\ftps.verag.ag\FTP\TOBB\OUT\", destFile)
|
|
' If IO.File.Exists(destFile) Then insertFTPLOG(destFile, "TOBB", NCTS_VERAG_OUT) Else VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Datei existiert nicht: " & destFile & vbNewLine & NCTS_TMP.ncts_ObjectName, "", "copyFileFTP")
|
|
' Case "18DE0000000073276", "19DE0000000075520", "18DE0000000075520"
|
|
' NCTS_VERAG_OUT = genVERAG_OUT_NCTS_FromDAKOSY(NCTS_TMP, DY_TMP, filePath)
|
|
' If filePath = "" Then Return False
|
|
' frmStartOptions.copyFile(filePath, "\\ftps.verag.ag\FTP\OREGON\OUT\", destFile)
|
|
' If IO.File.Exists(destFile) Then insertFTPLOG(destFile, "OREGON", NCTS_VERAG_OUT) Else VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Datei existiert nicht: " & destFile & vbNewLine & NCTS_TMP.ncts_ObjectName, "", "copyFileFTP")
|
|
' Case "17DE0000000071678", "05AT510000G000FP7" 'VERAG
|
|
' NCTS_VERAG_OUT = genVERAG_OUT_NCTS_FromDAKOSY(NCTS_TMP, DY_TMP, filePath)
|
|
' If filePath = "" Then Return False
|
|
' frmStartOptions.copyFile(filePath, VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\FTP\VERAG\", destFile)
|
|
' If IO.File.Exists(destFile) Then insertFTPLOG(destFile, "VERAG", NCTS_VERAG_OUT) Else VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Datei existiert nicht: " & destFile & vbNewLine & NCTS_TMP.ncts_ObjectName, "", "copyFileFTP")
|
|
'End Select
|
|
|
|
Return found
|
|
Catch ex As Exception
|
|
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & vbNewLine & "BezugsNr: " & NCTS_TMP.ncts_ObjectName, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
|
Return False
|
|
End Try
|
|
End Function
|
|
|
|
Shared Function copyFileFTP_VERAGncts_TC_ByBezugsNr(BezugsNr As String, ISett As cVERAG_Interface_Settings) As Boolean
|
|
cVERAG_Interface_Settings = ISett
|
|
Dim NCTS_TMP = TELOTEC_Worker.cTelotec_Anmeldung.LOAD_ByBezugsNr(BezugsNr)
|
|
If NCTS_TMP Is Nothing Then Return False
|
|
Return copyFileFTP_VERAGncts_TC(NCTS_TMP, False)
|
|
End Function
|
|
Shared Function copyFileFTP_VERAGncts_TC(NCTS_TMP As TELOTEC_Worker.cTelotec_Anmeldung, Optional checkAlreadyProvided As Boolean = True) As Boolean
|
|
Try
|
|
If NCTS_TMP Is Nothing Then Return False
|
|
If NCTS_TMP.telanm_BezugsNr Is Nothing Then Return False
|
|
'If NCTS_TMP.telanm_firma.ToString = "DURMAZ" Then Return False
|
|
Select Case NCTS_TMP.telanm_ART
|
|
Case "T1", "T2", "T2L", "T-"
|
|
Case Else
|
|
Return False
|
|
End Select
|
|
|
|
GLO_SND = Nothing
|
|
GLO_AVISO = Nothing
|
|
GLO_NCTS_TC = NCTS_TMP
|
|
|
|
If NCTS_TMP.telanm_SendungsId IsNot Nothing AndAlso NCTS_TMP.telanm_SendungsId > 0 Then
|
|
GLO_SND = New VERAG_PROG_ALLGEMEIN.cSendungen(NCTS_TMP.telanm_SendungsId)
|
|
End If
|
|
|
|
If NCTS_TMP.telanm_AvisoId IsNot Nothing AndAlso NCTS_TMP.telanm_AvisoId > 0 Then
|
|
GLO_AVISO = VERAG_PROG_ALLGEMEIN.cAviso.getAvisoById(NCTS_TMP.telanm_AvisoId)
|
|
End If
|
|
|
|
' Dim filePath = SQL.getValueTxtBySql("select [dySt_pfad] from [tblDakosy_Statusmeldungen] where dySt_BezugsNr='" & NCTS_TMP.ncts_ObjectName & "' and [dySt_status]=5 and [dySt_pfad] is not null ", "FMZOLL")
|
|
|
|
' NCTS_TMP.LOAD_Sicherheitsangaben()
|
|
Dim GRN = ""
|
|
If NCTS_TMP.SICHERHEIT IsNot Nothing AndAlso NCTS_TMP.SICHERHEIT.Count > 0 Then
|
|
GRN = NCTS_TMP.SICHERHEIT(0).GRN
|
|
End If
|
|
Dim destFile = ""
|
|
Dim filePath = ""
|
|
Dim UniqueId = ""
|
|
|
|
' --> FTP Bereitstellung
|
|
'Dim NCTS_VERAG_OUT As VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS.VERAG_out_ncts = Nothing
|
|
Dim found As Boolean = False
|
|
Dim vorsystem = "TC"
|
|
|
|
Dim IF_Obj As New List(Of cVERAG_InterfaceSharedObjects)
|
|
If getFTP_Paths(GRN, IF_Obj) Then
|
|
For Each o In IF_Obj
|
|
Select Case o.CooName
|
|
'Case "EKOL", "TOBB"
|
|
' 'Dim NCTS_VERAG_OUT = genVERAG_OUT_NCTS_FromTELOTEC_V2_0_1(NCTS_TMP, UniqueId)
|
|
' 'copyNCTSToFTP_V2_0_1(NCTS_VERAG_OUT, o, vorsystem, filePath, destFile, UniqueId, checkAlreadyProvided, found)
|
|
' Dim NCTS_VERAG_OUT = genVERAG_OUT_NCTS_FromTELOTEC_V2_0_2(NCTS_TMP, UniqueId)
|
|
' copyNCTSToFTP_V2_0_2(NCTS_VERAG_OUT, o, vorsystem, filePath, destFile, UniqueId, checkAlreadyProvided, found)
|
|
Case Else
|
|
Dim NCTS_VERAG_OUT = genVERAG_OUT_NCTS_FromTELOTEC_V2_0_2(NCTS_TMP, UniqueId)
|
|
copyNCTSToFTP_V2_0_2(NCTS_VERAG_OUT, o, vorsystem, filePath, destFile, UniqueId, checkAlreadyProvided, found)
|
|
'Dim NCTS_VERAG_OUT = genVERAG_OUT_NCTS_FromTELOTEC(NCTS_TMP, UniqueId)
|
|
'copyNCTSToFTP(NCTS_VERAG_OUT, o, vorsystem, filePath, destFile, UniqueId, checkAlreadyProvided, found)
|
|
End Select
|
|
Next
|
|
End If
|
|
|
|
'If getFTP_Paths(GRN, IF_Obj) Then
|
|
' NCTS_VERAG_OUT = genVERAG_OUT_NCTS_FromTELOTEC(NCTS_TMP, UniqueId)
|
|
' copyNCTSToFTP(NCTS_VERAG_OUT, IF_Obj, vorsystem, filePath, destFile, UniqueId, checkAlreadyProvided)
|
|
'End If
|
|
|
|
|
|
'Select Case GRN
|
|
' Case "15TR0004000020917", "12TR0004000004665", "17TR0004000032349", "17TR0004000029518"
|
|
' NCTS_VERAG_OUT = genVERAG_OUT_NCTS_FromTELOTEC(NCTS_TMP, filePath)
|
|
' If filePath = "" Then Return False
|
|
' frmStartOptions.copyFile(filePath, "\\ftps.verag.ag\FTP\TOBB\OUT\", destFile)
|
|
' If IO.File.Exists(destFile) Then insertFTPLOG(destFile, "TOBB", NCTS_VERAG_OUT) Else VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Datei existiert nicht: " & destFile & vbNewLine & NCTS_TMP.telanm_BezugsNr, "", "copyFileFTP")
|
|
' Case "18DE0000000073276", "19DE0000000075520", "18DE0000000075520"
|
|
' NCTS_VERAG_OUT = genVERAG_OUT_NCTS_FromTELOTEC(NCTS_TMP, filePath)
|
|
' If filePath = "" Then Return False
|
|
' frmStartOptions.copyFile(filePath, "\\ftps.verag.ag\FTP\OREGON\OUT\", destFile)
|
|
' If IO.File.Exists(destFile) Then insertFTPLOG(destFile, "OREGON", NCTS_VERAG_OUT) Else VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Datei existiert nicht: " & destFile & vbNewLine & NCTS_TMP.telanm_BezugsNr, "", "copyFileFTP")
|
|
' Case "17DE0000000071678", "05AT510000G000FP7" 'VERAG
|
|
' NCTS_VERAG_OUT = genVERAG_OUT_NCTS_FromTELOTEC(NCTS_TMP, filePath)
|
|
' If filePath = "" Then Return False
|
|
' frmStartOptions.copyFile(filePath, VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\FTP\VERAG\", destFile)
|
|
' If IO.File.Exists(destFile) Then insertFTPLOG(destFile, "VERAG", NCTS_VERAG_OUT) Else VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Datei existiert nicht: " & destFile & vbNewLine & NCTS_TMP.telanm_BezugsNr, "", "copyFileFTP")
|
|
'End Select
|
|
|
|
Return found
|
|
Catch ex As Exception
|
|
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & vbNewLine & "BezugsNr: " & NCTS_TMP.telanm_BezugsNr, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
|
Return False
|
|
End Try
|
|
End Function
|
|
|
|
Shared Sub copyNCTSToFTP(ByRef NCTS_VERAG_OUT As VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS.VERAG_out_ncts, 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 NCTS_VERAG_OUT IsNot Nothing AndAlso Not alreadyProvidedInInterface(NCTS_VERAG_OUT.ProcessData.ReferenzNumber, NCTS_VERAG_OUT.ProcessData.ProcedureCode, NCTS_VERAG_OUT.ProcessData.Status, vorsystem, IF_Obj.CooName, checkAlreadyProvided) Then
|
|
If genXMLFile(NCTS_VERAG_OUT, filePath, vorsystem, UniqueId) <> "" Then
|
|
frmStartOptions.copyFile(filePath, IF_Obj.FTP_Path, destFile)
|
|
If IO.File.Exists(destFile) Then
|
|
insertFTPLOG(destFile, IF_Obj.CooName, NCTS_VERAG_OUT.ProcessData.ReferenzNumber, NCTS_VERAG_OUT.ProcessData.ProcedureCode, NCTS_VERAG_OUT.ProcessData.Status, vorsystem)
|
|
found = True
|
|
Else
|
|
Try
|
|
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Datei existiert nicht: " & destFile, "", "copyNCTSToFTP",,,,, NCTS_VERAG_OUT.ProcessData.ReferenzNumber)
|
|
Catch
|
|
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Datei existiert nicht: " & destFile, "", "copyNCTSToFTP")
|
|
End Try
|
|
End If
|
|
End If
|
|
End If
|
|
|
|
End Sub
|
|
|
|
Shared Sub copyNCTSToFTP_V2_0_1(ByRef NCTS_VERAG_OUT As VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS_V2_0_1.VERAG_out_ncts, 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 NCTS_VERAG_OUT IsNot Nothing AndAlso Not alreadyProvidedInInterface(NCTS_VERAG_OUT.ProcessData.ReferenzNumber, NCTS_VERAG_OUT.ProcessData.ProcedureCode, NCTS_VERAG_OUT.ProcessData.Status, vorsystem, IF_Obj.CooName, checkAlreadyProvided) Then
|
|
If genXMLFile_V2_0_1(NCTS_VERAG_OUT, filePath, vorsystem, UniqueId) <> "" Then
|
|
frmStartOptions.copyFile(filePath, IF_Obj.FTP_Path, destFile)
|
|
If IO.File.Exists(destFile) Then
|
|
insertFTPLOG(destFile, IF_Obj.CooName, NCTS_VERAG_OUT.ProcessData.ReferenzNumber, NCTS_VERAG_OUT.ProcessData.ProcedureCode, NCTS_VERAG_OUT.ProcessData.Status, vorsystem)
|
|
found = True
|
|
Else
|
|
Try
|
|
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Datei existiert nicht: " & destFile, "", "copyNCTSToFTP",,,,, NCTS_VERAG_OUT.ProcessData.ReferenzNumber)
|
|
Catch
|
|
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Datei existiert nicht: " & destFile, "", "copyNCTSToFTP")
|
|
End Try
|
|
End If
|
|
End If
|
|
End If
|
|
|
|
End Sub
|
|
|
|
|
|
Shared Sub copyNCTSToFTP_V2_0_2(ByRef NCTS_VERAG_OUT As VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS_V2_0_2.VERAG_out_ncts, 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 NCTS_VERAG_OUT IsNot Nothing AndAlso Not alreadyProvidedInInterface(NCTS_VERAG_OUT.ProcessData.ReferenzNumber, NCTS_VERAG_OUT.ProcessData.ProcedureCode, NCTS_VERAG_OUT.ProcessData.Status, vorsystem, IF_Obj.CooName, checkAlreadyProvided) Then
|
|
If genXMLFile_V2_0_2(NCTS_VERAG_OUT, filePath, vorsystem, UniqueId) <> "" Then
|
|
frmStartOptions.copyFile(filePath, IF_Obj.FTP_Path, destFile)
|
|
If IO.File.Exists(destFile) Then
|
|
insertFTPLOG(destFile, IF_Obj.CooName, NCTS_VERAG_OUT.ProcessData.ReferenzNumber, NCTS_VERAG_OUT.ProcessData.ProcedureCode, NCTS_VERAG_OUT.ProcessData.Status, vorsystem)
|
|
found = True
|
|
Else
|
|
Try
|
|
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Datei existiert nicht: " & destFile, "", "copyNCTSToFTP",,,,, NCTS_VERAG_OUT.ProcessData.ReferenzNumber)
|
|
Catch
|
|
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Datei existiert nicht: " & destFile, "", "copyNCTSToFTP")
|
|
End Try
|
|
End If
|
|
End If
|
|
End If
|
|
|
|
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")
|
|
If AnmId = "" Then Return False
|
|
Return copyFileFTP_VERAGncts_EZOLL(AnmId, False)
|
|
End Function
|
|
|
|
Shared Function copyFileFTP_VERAGncts_EZOLL(AnmId As String, Optional checkAlreadyProvided As Boolean = True) As Boolean
|
|
Dim LRN = ""
|
|
Try
|
|
|
|
Dim dEZOLL As DataTable = SQL.loadDgvBySql("SELECT LizenzNr, OperatorID, VorgangID, AnmID, GeaendertAm, GeaendertVon, CRN, LRN" &
|
|
" FROM zsAnmRefs" &
|
|
" WHERE (VorgangID = 'AV') AND (AnmId = '" & AnmId & "')" &
|
|
" ORDER BY GeaendertAm DESC", "EZOLL")
|
|
|
|
|
|
If dEZOLL Is Nothing Then Return False
|
|
If dEZOLL.Rows.Count <= 0 Then Return False
|
|
'If NCTS_TMP.telanm_firma.ToString = "DURMAZ" Then Return False
|
|
|
|
|
|
|
|
GLO_SND = Nothing
|
|
GLO_AVISO = Nothing
|
|
|
|
|
|
LRN = dEZOLL.Rows(0)("LRN")
|
|
Select Case SQL.getValueTxtBySql("SELECT TOP 1 DecTy FROM zsAnmHea WHERE (VorgangID = 'AV') AND (AnmId = '" & AnmId & "')", "EZOLL")
|
|
Case "T1", "T2", "T2L", "T-"
|
|
Case Else
|
|
Return False
|
|
End Select
|
|
|
|
' Tabelle zsAnmGrteeGrteeRef lesen.
|
|
Dim GRN As String = SQL.getValueTxtBySql("SELECT TOP 1 GRN FROM zsAnmGrteeGrteeRef WHERE AnmID = " & AnmId & " ORDER BY GrteeID, GrteeRefID", "EZOLL")
|
|
Dim destFile = ""
|
|
Dim filePath = ""
|
|
Dim UniqueId = ""
|
|
|
|
' --> FTP Bereitstellung
|
|
Dim found As Boolean = False
|
|
Dim vorsystem = "DHF"
|
|
Dim IF_Obj As New List(Of cVERAG_InterfaceSharedObjects)
|
|
If getFTP_Paths(GRN, IF_Obj) Then
|
|
For Each o In IF_Obj
|
|
Select Case o.CooName
|
|
'Case "EKOL", "TOBB"
|
|
' 'Dim NCTS_VERAG_OUT = genVERAG_OUT_NCTS_FromEZOLLByAnmId_V2_0_1(AnmId, UniqueId)
|
|
' 'copyNCTSToFTP_V2_0_1(NCTS_VERAG_OUT, o, vorsystem, filePath, destFile, UniqueId, checkAlreadyProvided, found)
|
|
' Dim NCTS_VERAG_OUT = genVERAG_OUT_NCTS_FromEZOLLByAnmId_V2_0_2(AnmId, UniqueId)
|
|
' copyNCTSToFTP_V2_0_2(NCTS_VERAG_OUT, o, vorsystem, filePath, destFile, UniqueId, checkAlreadyProvided, found)
|
|
Case Else
|
|
Dim NCTS_VERAG_OUT = genVERAG_OUT_NCTS_FromEZOLLByAnmId_V2_0_2(AnmId, UniqueId)
|
|
copyNCTSToFTP_V2_0_2(NCTS_VERAG_OUT, o, vorsystem, filePath, destFile, UniqueId, checkAlreadyProvided, found)
|
|
'Dim NCTS_VERAG_OUT = genVERAG_OUT_NCTS_FromEZOLLByAnmId(AnmId, UniqueId)
|
|
'copyNCTSToFTP(NCTS_VERAG_OUT, o, vorsystem, filePath, destFile, UniqueId, checkAlreadyProvided, found)
|
|
End Select
|
|
Next
|
|
End If
|
|
|
|
|
|
'If getFTP_Paths(GRN, FTP_Path, CooName) Then
|
|
' NCTS_VERAG_OUT = genVERAG_OUT_NCTS_FromEZOLLByAnmId(AnmId, UniqueId)
|
|
' If NCTS_VERAG_OUT IsNot Nothing AndAlso Not alreadyProvidedInInterface(NCTS_VERAG_OUT, vorsystem, checkAlreadyProvided) Then
|
|
' If genXMLFile(NCTS_VERAG_OUT, filePath, vorsystem, UniqueId) <> "" Then
|
|
' frmStartOptions.copyFile(filePath, FTP_Path, destFile)
|
|
' If IO.File.Exists(destFile) Then insertFTPLOG(destFile, CooName, NCTS_VERAG_OUT, vorsystem) Else VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Datei existiert nicht: " & destFile & vbNewLine & LRN, "", "copyFileFTP")
|
|
' End If
|
|
' End If
|
|
'End If
|
|
|
|
Return found
|
|
Catch ex As Exception
|
|
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & vbNewLine & "BezugsNr: " & LRN, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
|
Return False
|
|
End Try
|
|
End Function
|
|
|
|
|
|
Shared Function getFTP_Paths(GRN As String, ByRef IF_Obj As List(Of cVERAG_InterfaceSharedObjects)) As Boolean
|
|
IF_Obj = New List(Of cVERAG_InterfaceSharedObjects)
|
|
Try
|
|
|
|
Select Case GRN
|
|
Case "15TR0004000020917", "12TR0004000004665", "17TR0004000032349", "17TR0004000029518"
|
|
If cVERAG_Interface_Settings.acticeInterface_TOBB Then IF_Obj.Add(New cVERAG_InterfaceSharedObjects("\\ftps.verag.ag\FTP\TOBB\OUT\", "TOBB"))
|
|
Case "18DE0000000073276", "19DE0000000075520", "18DE0000000075520", "15TR0004000020500"
|
|
If cVERAG_Interface_Settings.acticeInterface_OREGON Then IF_Obj.Add(New cVERAG_InterfaceSharedObjects("\\ftps.verag.ag\FTP\OREGON\OUT\", " "))
|
|
Case "17DE0000000071678", "05AT510000G000FP7" 'VERAG
|
|
If cVERAG_Interface_Settings.acticeInterface_VERAG Then IF_Obj.Add(New cVERAG_InterfaceSharedObjects(VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\FTP\VERAG\", "VERAG"))
|
|
Case "16AT520000G000VA6" 'IMEX
|
|
If cVERAG_Interface_Settings.acticeInterface_IMEX Then IF_Obj.Add(New cVERAG_InterfaceSharedObjects(VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\FTP\IMEX\", "IMEX"))
|
|
Case Else
|
|
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
|
|
|
|
Catch ex As Exception
|
|
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & vbNewLine, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
|
Return False
|
|
End Try
|
|
End Function
|
|
|
|
|
|
Shared Function isFTP_EKOL_NCTS() As Boolean
|
|
Try
|
|
If GLO_AVISO IsNot Nothing Then ' FRÄCHTER,AVISIERER
|
|
If GLO_AVISO.Frächter_KdNr > 0 Then
|
|
Select Case GLO_AVISO.Frächter_KdNr
|
|
Case 724284, 717845, 709869, 629246, 100041, 609759, 703729, 711217 'Zukunft: Kundenstamm--> NCTS_OUT_Partnersystem = "EKOL"
|
|
Return True
|
|
End Select
|
|
Select Case GLO_AVISO.Auftraggeber_KdNr
|
|
Case 724284, 717845, 709869, 629246, 100041, 609759, 703729, 711217
|
|
Return True
|
|
End Select
|
|
End If
|
|
|
|
If GLO_AVISO.Frächter.ToUpper.StartsWith("EKOL") Then Return True
|
|
If GLO_AVISO.Auftraggeber.ToUpper.StartsWith("EKOL") Then Return True
|
|
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 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
|
|
If GLO_AVISO.Frächter.ToUpper.StartsWith("IBRAH") Then Return True
|
|
If GLO_AVISO.Auftraggeber.ToUpper.StartsWith("IBRAH") Then Return True
|
|
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 alreadyProvidedInInterface(ReferenzNumber As String, ProcedureCode As String, Status As String, vorsystem As String, ftp_CooName As String, Optional checkAlreadyProvided As Boolean = True) As Boolean
|
|
If Not checkAlreadyProvided Then Return False ' wenn es nicht geprüft werden soll, dann wird "Nicht bereitgestellt" zurückgegeben
|
|
Try
|
|
'Return SQL.doSQL("INSERT INTO tblFTP_Log (ftp_filepath, ftp_user, ftp_BezugsNr, ftp_art, ftp_status, ftp_vorsystem) VALUES ('" & filePath & "','" & user & "','" & NCTS_VERAG_OUT.ProcessData.ReferenzNumber & "','" & NCTS_VERAG_OUT.ProcessData.ProcedureCode & "','" & NCTS_VERAG_OUT.ProcessData.Status & "','')", "FMZOLL")
|
|
If SQL.getValueTxtBySql("SELECT count(*) FROM [tblFTP_Log] where [ftp_BezugsNr]='" & ReferenzNumber & "' AND [ftp_art]='" & ProcedureCode & "' AND [ftp_status]='" & Status & "' AND [ftp_vorsystem]='" & vorsystem & "' AND [ftp_CooName]='" & ftp_CooName & "' ", "FMZOLL",,, 0) = 0 Then
|
|
Return False
|
|
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 True
|
|
End Function
|
|
|
|
Shared Function genXMLFile(VERAG_NCTS As VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS.VERAG_out_ncts, 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\VERAG\NCTS_OUT\" & Code & "\" & Now.Year & "\" & Now.ToShortDateString & "\"
|
|
If Not IO.Directory.Exists(dir) Then IO.Directory.CreateDirectory(dir)
|
|
XMLFilePath = dir & "VERAG_NCTS_OUT_" & Now.ToString("ddMMyyyHHmmss") & "_" & Code & "_" & UniqueId & ".xml"
|
|
End If
|
|
If VERAG_NCTS IsNot Nothing Then
|
|
VERAG_NCTS.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 genXMLFile_V2_0_1(VERAG_NCTS As VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS_V2_0_1.VERAG_out_ncts, 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\VERAG\NCTS_OUT\" & Code & "\" & Now.Year & "\" & Now.ToShortDateString & "\"
|
|
If Not IO.Directory.Exists(dir) Then IO.Directory.CreateDirectory(dir)
|
|
XMLFilePath = dir & "VERAG_NCTS_OUT_" & Now.ToString("ddMMyyyHHmmss") & "_" & Code & "_" & UniqueId & ".xml"
|
|
End If
|
|
If VERAG_NCTS IsNot Nothing Then
|
|
VERAG_NCTS.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 genXMLFile_V2_0_2(VERAG_NCTS As VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS_V2_0_2.VERAG_out_ncts, 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\VERAG\NCTS_OUT\" & Code & "\" & Now.Year & "\" & Now.ToShortDateString & "\"
|
|
If Not IO.Directory.Exists(dir) Then IO.Directory.CreateDirectory(dir)
|
|
XMLFilePath = dir & "VERAG_NCTS_OUT_" & Now.ToString("ddMMyyyHHmmss") & "_" & Code & "_" & UniqueId & ".xml"
|
|
End If
|
|
If VERAG_NCTS IsNot Nothing Then
|
|
VERAG_NCTS.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
|
|
|
|
|
|
Shared Function genVERAG_OUT_NCTS_FromDAKOSY(NCTS_TMP As DAKOSY_Worker.cDakosyNCTSOut, DY_TMP As DAKOSY_Worker.cDakosy_Zollanmeldungen, ByRef UniqueId As String) As VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS.VERAG_out_ncts
|
|
Dim VERAG_NCTS As New VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS.VERAG_out_ncts
|
|
Try
|
|
If DY_TMP Is Nothing Then Return Nothing
|
|
If NCTS_TMP Is Nothing Then Return Nothing
|
|
If NCTS_TMP.ncts_ObjectName Is Nothing Then Return Nothing
|
|
NCTS_TMP.LOAD_Warenposition()
|
|
|
|
VERAG_NCTS.Version = "2.0.0" ' Automaitsch, weil default ' doch nicht?
|
|
|
|
If NCTS_TMP.ncts_firma <> "" Then
|
|
VERAG_NCTS.Company = NCTS_TMP.ncts_firma
|
|
Else
|
|
VERAG_NCTS.Company = "VERAG"
|
|
End If
|
|
VERAG_NCTS.Department = NCTS_TMP.ncts_niederlassung
|
|
|
|
'VERAG_NCTS.InternalReference.OfficeCode = If(
|
|
'VERAG_NCTS.InternalReference.PositionNumber = NCTS_TMP.ncts_niederlassung
|
|
|
|
Select Case DY_TMP.dy_Status
|
|
Case < 50
|
|
VERAG_NCTS.ProcessData.Status = 0
|
|
Case 50, 53
|
|
VERAG_NCTS.ProcessData.Status = 50
|
|
Case 60
|
|
VERAG_NCTS.ProcessData.Status = 60
|
|
End Select
|
|
|
|
VERAG_NCTS.ProcessData.TransactionDate = NCTS_TMP.ncts_Trans_DatumZeit
|
|
|
|
VERAG_NCTS.ProcessData.MRN = If(NCTS_TMP.ncts_MRN, "")
|
|
VERAG_NCTS.ProcessData.ReferenzNumber = If(NCTS_TMP.ncts_ObjectName, "")
|
|
VERAG_NCTS.ProcessData.ProcedureCode = If(NCTS_TMP.ncts_ArtAnmeldung, "")
|
|
|
|
If IsDate(If(NCTS_TMP.ncts_Wiedergestellungsdatum, "")) Then VERAG_NCTS.NCTS_Data.DatDeterminationLimit = CDate(If(NCTS_TMP.ncts_Wiedergestellungsdatum, ""))
|
|
VERAG_NCTS.NCTS_Data.LicensePlate = If(NCTS_TMP.ncts_Befoerderungsmittel_KennzeichenAbgang, "")
|
|
VERAG_NCTS.NCTS_Data.DepartureCustomsOffice = If(NCTS_TMP.ncts_AbgangsDienststellennummer, "")
|
|
VERAG_NCTS.NCTS_Data.DestinationCustomsOffice = If(NCTS_TMP.ncts_BestimmungsstelleDienststellennummer, "")
|
|
VERAG_NCTS.NCTS_Data.DepartureCountry = If(NCTS_TMP.ncts_VersendungsLandCode, "")
|
|
VERAG_NCTS.NCTS_Data.DestinationCountry = If(NCTS_TMP.ncts_BestimmungslandCode, "")
|
|
|
|
'Versender
|
|
VERAG_NCTS.NCTS_Data.Sender.Name = If(NCTS_TMP.ncts_Versender_Name, "")
|
|
VERAG_NCTS.NCTS_Data.Sender.EORI = If(NCTS_TMP.ncts_Versender_EORI, "")
|
|
VERAG_NCTS.NCTS_Data.Sender.EORI_NL = If(NCTS_TMP.ncts_Versender_NLNR, "")
|
|
'VERAG_NCTS.NCTS_Data.Sender.UID_Nr = If(NCTS_TMP.vers, "")
|
|
VERAG_NCTS.NCTS_Data.Sender.Adress.Country = If(NCTS_TMP.ncts_Versender_Land, "")
|
|
VERAG_NCTS.NCTS_Data.Sender.Adress.Postcode = If(NCTS_TMP.ncts_Versender_PLZ, "")
|
|
VERAG_NCTS.NCTS_Data.Sender.Adress.Street = If(NCTS_TMP.ncts_Versender_StrasseHausnummer, "")
|
|
VERAG_NCTS.NCTS_Data.Sender.Adress.City = If(NCTS_TMP.ncts_Versender_Ort, "")
|
|
|
|
'Empfänger
|
|
VERAG_NCTS.NCTS_Data.Consignee.Name = If(NCTS_TMP.ncts_Empfaenger_Name, "")
|
|
VERAG_NCTS.NCTS_Data.Consignee.EORI = If(NCTS_TMP.ncts_Empfaenger_EORI, "")
|
|
VERAG_NCTS.NCTS_Data.Consignee.EORI_NL = If(NCTS_TMP.ncts_Empfaenger_NLNR, "")
|
|
'VERAG_NCTS.NCTS_Data.Consignee.UID_Nr = If(NCTS_TMP.vers, "")
|
|
VERAG_NCTS.NCTS_Data.Consignee.Adress.Country = If(NCTS_TMP.ncts_Empfaenger_Land, "")
|
|
VERAG_NCTS.NCTS_Data.Consignee.Adress.Postcode = If(NCTS_TMP.ncts_Empfaenger_PLZ, "")
|
|
VERAG_NCTS.NCTS_Data.Consignee.Adress.Street = If(NCTS_TMP.ncts_Empfaenger_StrasseHausnummer, "")
|
|
VERAG_NCTS.NCTS_Data.Consignee.Adress.City = If(NCTS_TMP.ncts_Empfaenger_Ort, "")
|
|
|
|
'Frächter
|
|
VERAG_NCTS.NCTS_Data.Carrier.Name = If(NCTS_TMP.ncts_SumA_Befoerderer_Name, "")
|
|
VERAG_NCTS.NCTS_Data.Carrier.EORI = If(NCTS_TMP.ncts_SumA_Befoerderer_EORI, "")
|
|
VERAG_NCTS.NCTS_Data.Carrier.EORI_NL = If(NCTS_TMP.ncts_SumA_Befoerderer_NLNR, "")
|
|
'VERAG_NCTS.NCTS_Data.Carrier.UID_Nr = If(NCTS_TMP.vers, "")
|
|
VERAG_NCTS.NCTS_Data.Carrier.Adress.Country = If(NCTS_TMP.ncts_SumA_Befoerderer_Land, "")
|
|
VERAG_NCTS.NCTS_Data.Carrier.Adress.Postcode = If(NCTS_TMP.ncts_SumA_Befoerderer_PLZ, "")
|
|
VERAG_NCTS.NCTS_Data.Carrier.Adress.Street = If(NCTS_TMP.ncts_SumA_Befoerderer_StrasseHausnummer, "")
|
|
VERAG_NCTS.NCTS_Data.Carrier.Adress.City = If(NCTS_TMP.ncts_SumA_Befoerderer_Ort, "")
|
|
|
|
If NCTS_TMP.ncts_SICHERHEITSANGABEN IsNot Nothing AndAlso NCTS_TMP.ncts_SICHERHEITSANGABEN.Count > 0 Then
|
|
VERAG_NCTS.NCTS_Data.Guarantee.GRN = If(NCTS_TMP.ncts_SICHERHEITSANGABEN(0).nctsSA_GRN, "")
|
|
VERAG_NCTS.NCTS_Data.Guarantee.Amount = If(NCTS_TMP.ncts_SICHERHEITSANGABEN(0).nctsSA_AbgabenBetrag, "0")
|
|
End If
|
|
|
|
VERAG_NCTS.NCTS_Data.SumGrossWeight = If(NCTS_TMP.ncts_GesamtRohmasse, "0")
|
|
Dim cntPos = 1
|
|
If NCTS_TMP.ncts_WARENPOS IsNot Nothing Then
|
|
For Each POS In NCTS_TMP.ncts_WARENPOS
|
|
Dim V_POS As New VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS.VERAG_out_nctsNCTS_DataPosition
|
|
V_POS.PosNr = cntPos
|
|
Dim pkGes = 0
|
|
Dim pkArt = ""
|
|
If POS.nctsWP_PACKSTUECKE IsNot Nothing Then
|
|
For Each PK In POS.nctsWP_PACKSTUECKE
|
|
If PK.nctsWpPk_PackstueckeAnzahl IsNot Nothing Then pkGes += PK.nctsWpPk_PackstueckeAnzahl
|
|
If PK.nctsWpPk_Verpackungsart IsNot Nothing Then pkArt = PK.nctsWpPk_Verpackungsart
|
|
Next
|
|
End If
|
|
V_POS.Quantity = pkGes
|
|
V_POS.Packaging = pkArt
|
|
V_POS.GrossWeight = POS.nctsWP_Rohmasse
|
|
V_POS.GoodsDescription = POS.nctsWP_Warenbezeichnung
|
|
|
|
VERAG_NCTS.NCTS_Data.Position.Add(V_POS)
|
|
cntPos += 1
|
|
Next
|
|
End If
|
|
|
|
If False Then
|
|
Try
|
|
If DY_TMP.dy_VBD_dsId IsNot Nothing AndAlso IsNumeric(DY_TMP.dy_VBD_dsId) Then
|
|
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(DY_TMP.dy_VBD_dsId)
|
|
Dim Path = DS.GET_TOP1_PATH()
|
|
If Path <> "" And IO.File.Exists(Path) Then
|
|
Dim ATT As New VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS.VERAG_out_nctsAttachment
|
|
ATT.DocumentType = VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS.VERAG_out_nctsAttachmentDocumentType.NCTS
|
|
ATT.FileType = "PDF"
|
|
ATT.Name = "NCTS_VBD_" & If(VERAG_NCTS.ProcessData.ProcedureCode, "") & ".pdf"
|
|
Convert.ToBase64String(System.IO.File.ReadAllBytes(Path))
|
|
'ATT.base64BinaryStream = Convert.ToBase64CharArray(System.IO.File.ReadAllBytes(Path))
|
|
ATT.base64BinaryStream = System.Text.Encoding.UTF8.GetBytes(System.Convert.ToBase64String(System.IO.File.ReadAllBytes(Path)))
|
|
VERAG_NCTS.Attachments.Add(ATT)
|
|
End If
|
|
End If
|
|
Catch ex As Exception
|
|
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & vbNewLine & "BezugsNr: " & NCTS_TMP.ncts_ObjectName, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
|
End Try
|
|
End If
|
|
|
|
'If XMLFilePath = "" Then
|
|
' Dim dir = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "ZOLL_SCHNITTSTELLEN\VERAG\NCTS_OUT\DY\" & Now.Year & "\" & Now.ToShortDateString & "\"
|
|
' If Not IO.Directory.Exists(dir) Then IO.Directory.CreateDirectory(dir)
|
|
' XMLFilePath = dir & "VERAG_NCTS_OUT_" & Now.ToString("ddMMyyyHHmmss") & "_DY_" & DY_TMP.dy_Id & ".xml"
|
|
'End If
|
|
|
|
UniqueId = DY_TMP.dy_Id
|
|
'VERAG_NCTS.SaveToFile(XMLFilePath)
|
|
|
|
Catch ex As Exception
|
|
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & vbNewLine & "BezugsNr: " & NCTS_TMP.ncts_ObjectName, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
|
Return Nothing
|
|
End Try
|
|
Return VERAG_NCTS
|
|
|
|
End Function
|
|
|
|
|
|
|
|
Shared Function genVERAG_OUT_NCTS_FromDAKOSY_V2_0_1(NCTS_TMP As DAKOSY_Worker.cDakosyNCTSOut, DY_TMP As DAKOSY_Worker.cDakosy_Zollanmeldungen, ByRef UniqueId As String) As VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS_V2_0_1.VERAG_out_ncts
|
|
Dim VERAG_NCTS As New VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS_V2_0_1.VERAG_out_ncts
|
|
Try
|
|
If DY_TMP Is Nothing Then Return Nothing
|
|
If NCTS_TMP Is Nothing Then Return Nothing
|
|
If NCTS_TMP.ncts_ObjectName Is Nothing Then Return Nothing
|
|
NCTS_TMP.LOAD_Warenposition()
|
|
|
|
VERAG_NCTS.Version = "2.0.1" ' Automaitsch, weil default ' doch nicht?
|
|
|
|
If NCTS_TMP.ncts_firma <> "" Then
|
|
VERAG_NCTS.Company = NCTS_TMP.ncts_firma
|
|
Else
|
|
VERAG_NCTS.Company = "VERAG"
|
|
End If
|
|
VERAG_NCTS.Department = NCTS_TMP.ncts_niederlassung
|
|
|
|
'VERAG_NCTS.InternalReference.OfficeCode = If(
|
|
'VERAG_NCTS.InternalReference.PositionNumber = NCTS_TMP.ncts_niederlassung
|
|
|
|
Select Case DY_TMP.dy_Status
|
|
Case < 50
|
|
VERAG_NCTS.ProcessData.Status = 0
|
|
Case 50, 53
|
|
VERAG_NCTS.ProcessData.Status = 50
|
|
Case 60
|
|
VERAG_NCTS.ProcessData.Status = 60
|
|
End Select
|
|
|
|
VERAG_NCTS.ProcessData.TransactionDate = NCTS_TMP.ncts_Trans_DatumZeit
|
|
|
|
VERAG_NCTS.ProcessData.MRN = If(NCTS_TMP.ncts_MRN, "")
|
|
VERAG_NCTS.ProcessData.ReferenzNumber = If(NCTS_TMP.ncts_ObjectName, "")
|
|
VERAG_NCTS.ProcessData.ProcedureCode = If(NCTS_TMP.ncts_ArtAnmeldung, "")
|
|
|
|
If IsDate(If(NCTS_TMP.ncts_Wiedergestellungsdatum, "")) Then VERAG_NCTS.NCTS_Data.DatDeterminationLimit = CDate(If(NCTS_TMP.ncts_Wiedergestellungsdatum, ""))
|
|
VERAG_NCTS.NCTS_Data.LicensePlate = If(NCTS_TMP.ncts_Befoerderungsmittel_KennzeichenAbgang, "")
|
|
VERAG_NCTS.NCTS_Data.DepartureCustomsOffice = If(NCTS_TMP.ncts_AbgangsDienststellennummer, "")
|
|
VERAG_NCTS.NCTS_Data.DestinationCustomsOffice = If(NCTS_TMP.ncts_BestimmungsstelleDienststellennummer, "")
|
|
VERAG_NCTS.NCTS_Data.DepartureCountry = If(NCTS_TMP.ncts_VersendungsLandCode, "")
|
|
VERAG_NCTS.NCTS_Data.DestinationCountry = If(NCTS_TMP.ncts_BestimmungslandCode, "")
|
|
|
|
'Versender
|
|
VERAG_NCTS.NCTS_Data.Sender.Name = If(NCTS_TMP.ncts_Versender_Name, "")
|
|
VERAG_NCTS.NCTS_Data.Sender.EORI = If(NCTS_TMP.ncts_Versender_EORI, "")
|
|
VERAG_NCTS.NCTS_Data.Sender.EORI_NL = If(NCTS_TMP.ncts_Versender_NLNR, "")
|
|
'VERAG_NCTS.NCTS_Data.Sender.UID_Nr = If(NCTS_TMP.vers, "")
|
|
VERAG_NCTS.NCTS_Data.Sender.Adress.Country = If(NCTS_TMP.ncts_Versender_Land, "")
|
|
VERAG_NCTS.NCTS_Data.Sender.Adress.Postcode = If(NCTS_TMP.ncts_Versender_PLZ, "")
|
|
VERAG_NCTS.NCTS_Data.Sender.Adress.Street = If(NCTS_TMP.ncts_Versender_StrasseHausnummer, "")
|
|
VERAG_NCTS.NCTS_Data.Sender.Adress.City = If(NCTS_TMP.ncts_Versender_Ort, "")
|
|
|
|
'Empfänger
|
|
VERAG_NCTS.NCTS_Data.Consignee.Name = If(NCTS_TMP.ncts_Empfaenger_Name, "")
|
|
VERAG_NCTS.NCTS_Data.Consignee.EORI = If(NCTS_TMP.ncts_Empfaenger_EORI, "")
|
|
VERAG_NCTS.NCTS_Data.Consignee.EORI_NL = If(NCTS_TMP.ncts_Empfaenger_NLNR, "")
|
|
'VERAG_NCTS.NCTS_Data.Consignee.UID_Nr = If(NCTS_TMP.vers, "")
|
|
VERAG_NCTS.NCTS_Data.Consignee.Adress.Country = If(NCTS_TMP.ncts_Empfaenger_Land, "")
|
|
VERAG_NCTS.NCTS_Data.Consignee.Adress.Postcode = If(NCTS_TMP.ncts_Empfaenger_PLZ, "")
|
|
VERAG_NCTS.NCTS_Data.Consignee.Adress.Street = If(NCTS_TMP.ncts_Empfaenger_StrasseHausnummer, "")
|
|
VERAG_NCTS.NCTS_Data.Consignee.Adress.City = If(NCTS_TMP.ncts_Empfaenger_Ort, "")
|
|
|
|
'Frächter
|
|
If GLO_AVISO IsNot Nothing AndAlso GLO_AVISO.Frächter_KdNr > 0 Then
|
|
Dim AD = New VERAG_PROG_ALLGEMEIN.cAdressen(GLO_AVISO.Frächter_KdNr)
|
|
Dim KD = New VERAG_PROG_ALLGEMEIN.cKunde(GLO_AVISO.Frächter_KdNr)
|
|
VERAG_NCTS.NCTS_Data.Carrier.Name = If(AD.Name_1, "")
|
|
VERAG_NCTS.NCTS_Data.Carrier.EORI = If(KD.EORITIN, "")
|
|
VERAG_NCTS.NCTS_Data.Carrier.EORI_NL = If(KD.EORITIN_NL, "")
|
|
VERAG_NCTS.NCTS_Data.Carrier.UID_Nr = If(AD.UstIdKz, "") & If(AD.UstIdNr, "")
|
|
VERAG_NCTS.NCTS_Data.Carrier.Adress.Country = If(AD.LandKz, "")
|
|
VERAG_NCTS.NCTS_Data.Carrier.Adress.Postcode = If(AD.PLZ, "")
|
|
VERAG_NCTS.NCTS_Data.Carrier.Adress.Street = If(AD.Straße, "")
|
|
VERAG_NCTS.NCTS_Data.Carrier.Adress.City = If(AD.Ort, "")
|
|
VERAG_NCTS.NCTS_Data.Carrier.CustomerCode = GLO_AVISO.Frächter_KdNr
|
|
Else
|
|
VERAG_NCTS.NCTS_Data.Carrier.Name = If(NCTS_TMP.ncts_SumA_Befoerderer_Name, "")
|
|
VERAG_NCTS.NCTS_Data.Carrier.EORI = If(NCTS_TMP.ncts_SumA_Befoerderer_EORI, "")
|
|
VERAG_NCTS.NCTS_Data.Carrier.EORI_NL = If(NCTS_TMP.ncts_SumA_Befoerderer_NLNR, "")
|
|
'VERAG_NCTS.NCTS_Data.Carrier.UID_Nr = If(NCTS_TMP.vers, "")
|
|
VERAG_NCTS.NCTS_Data.Carrier.Adress.Country = If(NCTS_TMP.ncts_SumA_Befoerderer_Land, "")
|
|
VERAG_NCTS.NCTS_Data.Carrier.Adress.Postcode = If(NCTS_TMP.ncts_SumA_Befoerderer_PLZ, "")
|
|
VERAG_NCTS.NCTS_Data.Carrier.Adress.Street = If(NCTS_TMP.ncts_SumA_Befoerderer_StrasseHausnummer, "")
|
|
VERAG_NCTS.NCTS_Data.Carrier.Adress.City = If(NCTS_TMP.ncts_SumA_Befoerderer_Ort, "")
|
|
End If
|
|
|
|
If NCTS_TMP.ncts_SICHERHEITSANGABEN IsNot Nothing AndAlso NCTS_TMP.ncts_SICHERHEITSANGABEN.Count > 0 Then
|
|
VERAG_NCTS.NCTS_Data.Guarantee.GRN = If(NCTS_TMP.ncts_SICHERHEITSANGABEN(0).nctsSA_GRN, "")
|
|
VERAG_NCTS.NCTS_Data.Guarantee.Amount = If(NCTS_TMP.ncts_SICHERHEITSANGABEN(0).nctsSA_AbgabenBetrag, "0")
|
|
End If
|
|
|
|
VERAG_NCTS.NCTS_Data.SumGrossWeight = If(NCTS_TMP.ncts_GesamtRohmasse, "0")
|
|
Dim cntPos = 1
|
|
If NCTS_TMP.ncts_WARENPOS IsNot Nothing Then
|
|
For Each POS In NCTS_TMP.ncts_WARENPOS
|
|
Dim V_POS As New VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS_V2_0_1.VERAG_out_nctsNCTS_DataPosition
|
|
V_POS.PosNr = cntPos
|
|
Dim pkGes = 0
|
|
Dim pkArt = ""
|
|
If POS.nctsWP_PACKSTUECKE IsNot Nothing Then
|
|
For Each PK In POS.nctsWP_PACKSTUECKE
|
|
If PK.nctsWpPk_PackstueckeAnzahl IsNot Nothing Then pkGes += PK.nctsWpPk_PackstueckeAnzahl
|
|
If PK.nctsWpPk_Verpackungsart IsNot Nothing Then pkArt = PK.nctsWpPk_Verpackungsart
|
|
Next
|
|
End If
|
|
V_POS.Quantity = pkGes
|
|
V_POS.Packaging = pkArt
|
|
V_POS.GrossWeight = POS.nctsWP_Rohmasse
|
|
V_POS.GoodsDescription = POS.nctsWP_Warenbezeichnung
|
|
|
|
VERAG_NCTS.NCTS_Data.Position.Add(V_POS)
|
|
cntPos += 1
|
|
Next
|
|
End If
|
|
|
|
If False Then
|
|
Try
|
|
If DY_TMP.dy_VBD_dsId IsNot Nothing AndAlso IsNumeric(DY_TMP.dy_VBD_dsId) Then
|
|
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(DY_TMP.dy_VBD_dsId)
|
|
Dim Path = DS.GET_TOP1_PATH()
|
|
If Path <> "" And IO.File.Exists(Path) Then
|
|
Dim ATT As New VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS_V2_0_1.VERAG_out_nctsAttachment
|
|
ATT.DocumentType = VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS_V2_0_1.VERAG_out_nctsAttachmentDocumentType.NCTS
|
|
ATT.FileType = "PDF"
|
|
ATT.Name = "NCTS_VBD_" & If(VERAG_NCTS.ProcessData.ProcedureCode, "") & ".pdf"
|
|
Convert.ToBase64String(System.IO.File.ReadAllBytes(Path))
|
|
'ATT.base64BinaryStream = Convert.ToBase64CharArray(System.IO.File.ReadAllBytes(Path))
|
|
ATT.base64BinaryStream = System.Text.Encoding.UTF8.GetBytes(System.Convert.ToBase64String(System.IO.File.ReadAllBytes(Path)))
|
|
VERAG_NCTS.Attachments.Add(ATT)
|
|
End If
|
|
End If
|
|
Catch ex As Exception
|
|
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & vbNewLine & "BezugsNr: " & NCTS_TMP.ncts_ObjectName, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
|
End Try
|
|
|
|
End If
|
|
'If XMLFilePath = "" Then
|
|
' Dim dir = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "ZOLL_SCHNITTSTELLEN\VERAG\NCTS_OUT\DY\" & Now.Year & "\" & Now.ToShortDateString & "\"
|
|
' If Not IO.Directory.Exists(dir) Then IO.Directory.CreateDirectory(dir)
|
|
' XMLFilePath = dir & "VERAG_NCTS_OUT_" & Now.ToString("ddMMyyyHHmmss") & "_DY_" & DY_TMP.dy_Id & ".xml"
|
|
'End If
|
|
|
|
UniqueId = DY_TMP.dy_Id
|
|
'VERAG_NCTS.SaveToFile(XMLFilePath)
|
|
|
|
Catch ex As Exception
|
|
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & vbNewLine & "BezugsNr: " & NCTS_TMP.ncts_ObjectName, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
|
Return Nothing
|
|
End Try
|
|
Return VERAG_NCTS
|
|
|
|
End Function
|
|
|
|
|
|
Shared Function genVERAG_OUT_NCTS_FromDAKOSY_V2_0_2(NCTS_TMP As DAKOSY_Worker.cDakosyNCTSOut, DY_TMP As DAKOSY_Worker.cDakosy_Zollanmeldungen, ByRef UniqueId As String) As VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS_V2_0_2.VERAG_out_ncts
|
|
Dim VERAG_NCTS As New VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS_V2_0_2.VERAG_out_ncts
|
|
Try
|
|
If DY_TMP Is Nothing Then Return Nothing
|
|
If NCTS_TMP Is Nothing Then Return Nothing
|
|
If NCTS_TMP.ncts_ObjectName Is Nothing Then Return Nothing
|
|
NCTS_TMP.LOAD_Warenposition()
|
|
|
|
VERAG_NCTS.Version = "2.0.2" ' Automaitsch, weil default ' doch nicht?
|
|
|
|
If NCTS_TMP.ncts_firma <> "" Then
|
|
VERAG_NCTS.Company = NCTS_TMP.ncts_firma
|
|
Else
|
|
VERAG_NCTS.Company = "VERAG"
|
|
End If
|
|
VERAG_NCTS.Department = NCTS_TMP.ncts_niederlassung
|
|
|
|
'VERAG_NCTS.InternalReference.OfficeCode = If(
|
|
'VERAG_NCTS.InternalReference.PositionNumber = NCTS_TMP.ncts_niederlassung
|
|
|
|
Select Case DY_TMP.dy_Status
|
|
Case < 50
|
|
VERAG_NCTS.ProcessData.Status = 0
|
|
Case 50, 53
|
|
VERAG_NCTS.ProcessData.Status = 50
|
|
Case 60
|
|
VERAG_NCTS.ProcessData.Status = 60
|
|
End Select
|
|
|
|
VERAG_NCTS.ProcessData.TransactionDate = NCTS_TMP.ncts_Trans_DatumZeit
|
|
|
|
VERAG_NCTS.ProcessData.MRN = If(NCTS_TMP.ncts_MRN, "")
|
|
VERAG_NCTS.ProcessData.ReferenzNumber = If(NCTS_TMP.ncts_ObjectName, "")
|
|
VERAG_NCTS.ProcessData.ProcedureCode = If(NCTS_TMP.ncts_ArtAnmeldung, "")
|
|
|
|
If IsDate(If(NCTS_TMP.ncts_Wiedergestellungsdatum, "")) Then VERAG_NCTS.NCTS_Data.DatDeterminationLimit = CDate(If(NCTS_TMP.ncts_Wiedergestellungsdatum, ""))
|
|
VERAG_NCTS.NCTS_Data.LicensePlate = If(NCTS_TMP.ncts_Befoerderungsmittel_KennzeichenAbgang, "")
|
|
VERAG_NCTS.NCTS_Data.DepartureCustomsOffice = If(NCTS_TMP.ncts_AbgangsDienststellennummer, "")
|
|
VERAG_NCTS.NCTS_Data.DestinationCustomsOffice = If(NCTS_TMP.ncts_BestimmungsstelleDienststellennummer, "")
|
|
VERAG_NCTS.NCTS_Data.DepartureCountry = If(NCTS_TMP.ncts_VersendungsLandCode, "")
|
|
VERAG_NCTS.NCTS_Data.DestinationCountry = If(NCTS_TMP.ncts_BestimmungslandCode, "")
|
|
|
|
'Versender
|
|
VERAG_NCTS.NCTS_Data.Sender.Name = If(NCTS_TMP.ncts_Versender_Name, "")
|
|
VERAG_NCTS.NCTS_Data.Sender.EORI = If(NCTS_TMP.ncts_Versender_EORI, "")
|
|
VERAG_NCTS.NCTS_Data.Sender.EORI_NL = If(NCTS_TMP.ncts_Versender_NLNR, "")
|
|
'VERAG_NCTS.NCTS_Data.Sender.UID_Nr = If(NCTS_TMP.vers, "")
|
|
VERAG_NCTS.NCTS_Data.Sender.Adress.Country = If(NCTS_TMP.ncts_Versender_Land, "")
|
|
VERAG_NCTS.NCTS_Data.Sender.Adress.Postcode = If(NCTS_TMP.ncts_Versender_PLZ, "")
|
|
VERAG_NCTS.NCTS_Data.Sender.Adress.Street = If(NCTS_TMP.ncts_Versender_StrasseHausnummer, "")
|
|
VERAG_NCTS.NCTS_Data.Sender.Adress.City = If(NCTS_TMP.ncts_Versender_Ort, "")
|
|
|
|
'Empfänger
|
|
VERAG_NCTS.NCTS_Data.Consignee.Name = If(NCTS_TMP.ncts_Empfaenger_Name, "")
|
|
VERAG_NCTS.NCTS_Data.Consignee.EORI = If(NCTS_TMP.ncts_Empfaenger_EORI, "")
|
|
VERAG_NCTS.NCTS_Data.Consignee.EORI_NL = If(NCTS_TMP.ncts_Empfaenger_NLNR, "")
|
|
'VERAG_NCTS.NCTS_Data.Consignee.UID_Nr = If(NCTS_TMP.vers, "")
|
|
VERAG_NCTS.NCTS_Data.Consignee.Adress.Country = If(NCTS_TMP.ncts_Empfaenger_Land, "")
|
|
VERAG_NCTS.NCTS_Data.Consignee.Adress.Postcode = If(NCTS_TMP.ncts_Empfaenger_PLZ, "")
|
|
VERAG_NCTS.NCTS_Data.Consignee.Adress.Street = If(NCTS_TMP.ncts_Empfaenger_StrasseHausnummer, "")
|
|
VERAG_NCTS.NCTS_Data.Consignee.Adress.City = If(NCTS_TMP.ncts_Empfaenger_Ort, "")
|
|
|
|
'Frächter
|
|
If GLO_AVISO IsNot Nothing AndAlso GLO_AVISO.Frächter_KdNr > 0 Then
|
|
Dim AD = New VERAG_PROG_ALLGEMEIN.cAdressen(GLO_AVISO.Frächter_KdNr)
|
|
Dim KD = New VERAG_PROG_ALLGEMEIN.cKunde(GLO_AVISO.Frächter_KdNr)
|
|
VERAG_NCTS.NCTS_Data.Carrier.Name = If(AD.Name_1, "")
|
|
VERAG_NCTS.NCTS_Data.Carrier.EORI = If(KD.EORITIN, "")
|
|
VERAG_NCTS.NCTS_Data.Carrier.EORI_NL = If(KD.EORITIN_NL, "")
|
|
VERAG_NCTS.NCTS_Data.Carrier.UID_Nr = If(AD.UstIdKz, "") & If(AD.UstIdNr, "")
|
|
VERAG_NCTS.NCTS_Data.Carrier.Adress.Country = If(AD.LandKz, "")
|
|
VERAG_NCTS.NCTS_Data.Carrier.Adress.Postcode = If(AD.PLZ, "")
|
|
VERAG_NCTS.NCTS_Data.Carrier.Adress.Street = If(AD.Straße, "")
|
|
VERAG_NCTS.NCTS_Data.Carrier.Adress.City = If(AD.Ort, "")
|
|
VERAG_NCTS.NCTS_Data.Carrier.CustomerCode = GLO_AVISO.Frächter_KdNr
|
|
|
|
Else
|
|
VERAG_NCTS.NCTS_Data.Carrier.Name = If(NCTS_TMP.ncts_SumA_Befoerderer_Name, "")
|
|
VERAG_NCTS.NCTS_Data.Carrier.EORI = If(NCTS_TMP.ncts_SumA_Befoerderer_EORI, "")
|
|
VERAG_NCTS.NCTS_Data.Carrier.EORI_NL = If(NCTS_TMP.ncts_SumA_Befoerderer_NLNR, "")
|
|
'VERAG_NCTS.NCTS_Data.Carrier.UID_Nr = If(NCTS_TMP.vers, "")
|
|
VERAG_NCTS.NCTS_Data.Carrier.Adress.Country = If(NCTS_TMP.ncts_SumA_Befoerderer_Land, "")
|
|
VERAG_NCTS.NCTS_Data.Carrier.Adress.Postcode = If(NCTS_TMP.ncts_SumA_Befoerderer_PLZ, "")
|
|
VERAG_NCTS.NCTS_Data.Carrier.Adress.Street = If(NCTS_TMP.ncts_SumA_Befoerderer_StrasseHausnummer, "")
|
|
VERAG_NCTS.NCTS_Data.Carrier.Adress.City = If(NCTS_TMP.ncts_SumA_Befoerderer_Ort, "")
|
|
End If
|
|
|
|
If GLO_AVISO IsNot Nothing Then
|
|
If GLO_AVISO.KdAuftragsNr_Avisierer IsNot Nothing Then VERAG_NCTS.ClientReference = GLO_AVISO.KdAuftragsNr_Avisierer
|
|
End If
|
|
|
|
|
|
If NCTS_TMP.ncts_SICHERHEITSANGABEN IsNot Nothing AndAlso NCTS_TMP.ncts_SICHERHEITSANGABEN.Count > 0 Then
|
|
VERAG_NCTS.NCTS_Data.Guarantee.GRN = If(NCTS_TMP.ncts_SICHERHEITSANGABEN(0).nctsSA_GRN, "")
|
|
VERAG_NCTS.NCTS_Data.Guarantee.Amount = If(NCTS_TMP.ncts_SICHERHEITSANGABEN(0).nctsSA_AbgabenBetrag, "0")
|
|
End If
|
|
|
|
VERAG_NCTS.NCTS_Data.SumGrossWeight = If(NCTS_TMP.ncts_GesamtRohmasse, "0")
|
|
Dim cntPos = 1
|
|
If NCTS_TMP.ncts_WARENPOS IsNot Nothing Then
|
|
For Each POS In NCTS_TMP.ncts_WARENPOS
|
|
Dim V_POS As New VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS_V2_0_2.VERAG_out_nctsNCTS_DataPosition
|
|
V_POS.PosNr = cntPos
|
|
Dim pkGes = 0
|
|
Dim pkArt = ""
|
|
If POS.nctsWP_PACKSTUECKE IsNot Nothing Then
|
|
For Each PK In POS.nctsWP_PACKSTUECKE
|
|
If PK.nctsWpPk_PackstueckeAnzahl IsNot Nothing Then pkGes += PK.nctsWpPk_PackstueckeAnzahl
|
|
If PK.nctsWpPk_Verpackungsart IsNot Nothing Then pkArt = PK.nctsWpPk_Verpackungsart
|
|
Next
|
|
End If
|
|
V_POS.Quantity = pkGes
|
|
V_POS.Packaging = pkArt
|
|
V_POS.GrossWeight = POS.nctsWP_Rohmasse
|
|
V_POS.GoodsDescription = POS.nctsWP_Warenbezeichnung
|
|
|
|
VERAG_NCTS.NCTS_Data.Position.Add(V_POS)
|
|
cntPos += 1
|
|
Next
|
|
End If
|
|
|
|
If False Then
|
|
Try
|
|
If DY_TMP.dy_VBD_dsId IsNot Nothing AndAlso IsNumeric(DY_TMP.dy_VBD_dsId) Then
|
|
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(DY_TMP.dy_VBD_dsId)
|
|
Dim Path = DS.GET_TOP1_PATH()
|
|
If Path <> "" And IO.File.Exists(Path) Then
|
|
Dim ATT As New VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS_V2_0_2.VERAG_out_nctsAttachment
|
|
ATT.DocumentType = VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS_V2_0_2.VERAG_out_nctsAttachmentDocumentType.NCTS
|
|
ATT.FileType = "PDF"
|
|
ATT.Name = "NCTS_VBD_" & If(VERAG_NCTS.ProcessData.ProcedureCode, "") & ".pdf"
|
|
Convert.ToBase64String(System.IO.File.ReadAllBytes(Path))
|
|
'ATT.base64BinaryStream = Convert.ToBase64CharArray(System.IO.File.ReadAllBytes(Path))
|
|
ATT.base64BinaryStream = System.Text.Encoding.UTF8.GetBytes(System.Convert.ToBase64String(System.IO.File.ReadAllBytes(Path)))
|
|
VERAG_NCTS.Attachments.Add(ATT)
|
|
End If
|
|
End If
|
|
Catch ex As Exception
|
|
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & vbNewLine & "BezugsNr: " & NCTS_TMP.ncts_ObjectName, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
|
End Try
|
|
|
|
End If
|
|
'If XMLFilePath = "" Then
|
|
' Dim dir = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "ZOLL_SCHNITTSTELLEN\VERAG\NCTS_OUT\DY\" & Now.Year & "\" & Now.ToShortDateString & "\"
|
|
' If Not IO.Directory.Exists(dir) Then IO.Directory.CreateDirectory(dir)
|
|
' XMLFilePath = dir & "VERAG_NCTS_OUT_" & Now.ToString("ddMMyyyHHmmss") & "_DY_" & DY_TMP.dy_Id & ".xml"
|
|
'End If
|
|
|
|
UniqueId = DY_TMP.dy_Id
|
|
'VERAG_NCTS.SaveToFile(XMLFilePath)
|
|
|
|
Catch ex As Exception
|
|
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & vbNewLine & "BezugsNr: " & NCTS_TMP.ncts_ObjectName, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
|
Return Nothing
|
|
End Try
|
|
Return VERAG_NCTS
|
|
|
|
End Function
|
|
|
|
|
|
Shared Function genVERAG_OUT_NCTS_FromEZOLLByLRN(LRN As String, ByRef UniqueId As String) As VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS.VERAG_out_ncts
|
|
|
|
Dim dEZOLL As DataTable = SQL.loadDgvBySql("SELECT LizenzNr, OperatorID, VorgangID, AnmID, GeaendertAm, GeaendertVon, CRN, LRN" &
|
|
" FROM zsAnmRefs" &
|
|
" WHERE (VorgangID = 'AV') AND (LRN = '" & LRN & "')" &
|
|
" ORDER BY GeaendertAm DESC", "EZOLL")
|
|
If dEZOLL Is Nothing Then Return Nothing
|
|
If dEZOLL.Rows.Count = 0 Then Return Nothing
|
|
|
|
Dim r As DataRow = dEZOLL.Rows(0)
|
|
|
|
Return genVERAG_OUT_NCTS_FromEZOLLByAnmId(r.Item("AnmID"), UniqueId)
|
|
End Function
|
|
|
|
Shared Function genVERAG_OUT_NCTS_FromEZOLLByAnmId(AnmID As String, ByRef UniqueId As String) As VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS.VERAG_out_ncts
|
|
Dim VERAG_NCTS As New VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS.VERAG_out_ncts
|
|
Dim LRN = ""
|
|
Try
|
|
|
|
VERAG_NCTS.Version = "2.0.0" ' Automaitsch, weil default ' doch nicht?
|
|
|
|
Dim Bestimmungszollstelle = ""
|
|
Dim Bürgschaft = ""
|
|
|
|
Dim dEZOLL As DataTable = SQL.loadDgvBySql("SELECT LizenzNr, OperatorID, VorgangID, AnmID, GeaendertAm, GeaendertVon, CRN, LRN" &
|
|
" FROM zsAnmRefs" &
|
|
" WHERE (VorgangID = 'AV') AND (AnmID = '" & AnmID & "')" &
|
|
" ORDER BY GeaendertAm DESC", "EZOLL")
|
|
|
|
If dEZOLL Is Nothing Then Return Nothing
|
|
If dEZOLL.Rows.Count = 0 Then Return Nothing
|
|
|
|
'TextBox2.ForeColor = Color.Green
|
|
Dim r As DataRow = dEZOLL.Rows(0)
|
|
|
|
LRN = r.Item("LRN")
|
|
|
|
If Not SQL.IsNull(r.Item("OperatorID")) Then
|
|
Select Case r.Item("OperatorID")
|
|
Case "1"
|
|
VERAG_NCTS.Company = "VERAG"
|
|
VERAG_NCTS.Department = "SUB"
|
|
Case "2"
|
|
VERAG_NCTS.Company = "VERAG"
|
|
VERAG_NCTS.Department = "SBG"
|
|
|
|
Case "3"
|
|
VERAG_NCTS.Company = "VERAG"
|
|
VERAG_NCTS.Department = "NKD"
|
|
Case "4", "5"
|
|
VERAG_NCTS.Company = "ATILLA"
|
|
VERAG_NCTS.Department = "SUB"
|
|
Case "6"
|
|
If LRN.StartsWith("4801") Then
|
|
VERAG_NCTS.Company = "ATILLA"
|
|
Else
|
|
VERAG_NCTS.Company = "VERAG"
|
|
End If
|
|
VERAG_NCTS.Department = "SUB"
|
|
Case "8"
|
|
VERAG_NCTS.Company = "DURMAZ"
|
|
VERAG_NCTS.Department = "SBG"
|
|
Return Nothing
|
|
Case Else
|
|
VERAG_NCTS.Company = "ATILLA"
|
|
VERAG_NCTS.Department = "SUB"
|
|
|
|
End Select
|
|
End If
|
|
|
|
|
|
If r.Item("GeaendertAm") IsNot DBNull.Value AndAlso IsDate(r.Item("GeaendertAm")) Then
|
|
VERAG_NCTS.ProcessData.TransactionDate = CDate(r.Item("GeaendertAm")) 'default
|
|
Else
|
|
VERAG_NCTS.ProcessData.TransactionDate = Now.ToShortDateString
|
|
End If
|
|
|
|
VERAG_NCTS.ProcessData.MRN = r.Item("CRN")
|
|
VERAG_NCTS.ProcessData.ReferenzNumber = LRN
|
|
|
|
Select Case (SQL.getValueTxtBySql("SELECT ErledigungsTypID FROM zsAnmDHFRefs WHERE AnmID=" & AnmID & " ORDER BY GeaendertAm DESC", "EZOLL"))
|
|
Case "F"
|
|
VERAG_NCTS.ProcessData.Status = 50
|
|
Case "FB"
|
|
VERAG_NCTS.ProcessData.Status = 60
|
|
Case Else
|
|
VERAG_NCTS.ProcessData.Status = 0
|
|
End Select
|
|
|
|
Dim DTzsAnmHea As DataTable = SQL.loadDgvBySql("SELECT * FROM zsAnmHea WHERE (LizenzNr = '" & r.Item("LizenzNr") & "') And (OperatorID = " & r.Item("OperatorID") & ") And (VorgangID = '" & r.Item("VorgangID") & "') And (AnmID = " & AnmID & ")", "EZOLL")
|
|
If DTzsAnmHea.Rows().Count > 0 Then
|
|
Dim rDTzsAnmHea = DTzsAnmHea.Rows(0)
|
|
VERAG_NCTS.ProcessData.ProcedureCode = rDTzsAnmHea("DecTy")
|
|
VERAG_NCTS.NCTS_Data.SumGrossWeight = rDTzsAnmHea("TotGross") 'If(NCTS_TMP.ncts_GesamtRohmasse, "0")
|
|
VERAG_NCTS.ProcessData.TransactionDate = CDate(rDTzsAnmHea("DecDT"))
|
|
End If
|
|
|
|
|
|
|
|
VERAG_NCTS.NCTS_Data.DepartureCustomsOffice = SQL.isleernothing(SQL.getValueTxtBySql("SELECT Ref FROM zsAnmDepCO WHERE AnmID=" & AnmID & " ORDER BY GeaendertAm DESC", "EZOLL"))
|
|
VERAG_NCTS.NCTS_Data.DatDeterminationLimit = SQL.isleernothing(SQL.getValueTxtBySql("SELECT DLimit FROM zsAnmCtrlRslt WHERE AnmID=" & AnmID & " ORDER BY GeaendertAm DESC", "EZOLL"))
|
|
|
|
'BestimmungsstelleDienststelle
|
|
Dim DTzsAnmDestCo As DataTable = SQL.loadDgvBySql("SELECT Ref FROM zsAnmDestCo WHERE (LizenzNr = '" & r.Item("LizenzNr") & "') And (OperatorID = " & r.Item("OperatorID") & ") And (VorgangID = '" & r.Item("VorgangID") & "') And (AnmID = " & AnmID & ")", "EZOLL")
|
|
If DTzsAnmDestCo.Rows().Count > 0 Then
|
|
If Not SQL.IsNull(DTzsAnmDestCo.Rows(0).Item("ref")) Then VERAG_NCTS.NCTS_Data.DestinationCustomsOffice = DTzsAnmDestCo.Rows(0).Item("ref")
|
|
End If
|
|
|
|
' Kennzeichen
|
|
Dim DTzsAnmTransp As DataTable = SQL.loadDgvBySql("SELECT DepIdnt FROM zsAnmTransp WHERE (LizenzNr = '" & r.Item("LizenzNr") & "') And (OperatorID = " & r.Item("OperatorID") & ") And (VorgangID = '" & r.Item("VorgangID") & "') And (AnmID = " & AnmID & ")", "EZOLL")
|
|
If DTzsAnmTransp.Rows().Count > 0 Then
|
|
If Not SQL.IsNull(DTzsAnmTransp.Rows(0).Item("DepIdnt")) Then
|
|
VERAG_NCTS.NCTS_Data.LicensePlate = DTzsAnmTransp.Rows(0).Item("DepIdnt")
|
|
End If
|
|
End If
|
|
|
|
'Versender
|
|
Dim DTzsAnmSender As DataTable = SQL.loadDgvBySql("SELECT * FROM [zsAnmConorTra] WHERE (LizenzNr = '" & r.Item("LizenzNr") & "') And (OperatorID = " & r.Item("OperatorID") & ") And (VorgangID = '" & r.Item("VorgangID") & "') And (AnmID = " & AnmID & ")", "EZOLL")
|
|
If DTzsAnmSender.Rows().Count > 0 Then
|
|
'VERAG_NCTS.NCTS_Data.Sender.Name = DTzsAnmSender.Rows(0).Item("Na")
|
|
If Not SQL.IsNull(DTzsAnmSender.Rows(0).Item("Na")) Then VERAG_NCTS.NCTS_Data.Consignee.Name = DTzsAnmSender.Rows(0).Item("Na")
|
|
If Not SQL.IsNull(DTzsAnmSender.Rows(0).Item("Pst")) Then VERAG_NCTS.NCTS_Data.Sender.Adress.Postcode = DTzsAnmSender.Rows(0).Item("Pst")
|
|
If Not SQL.IsNull(DTzsAnmSender.Rows(0).Item("Strt")) Then VERAG_NCTS.NCTS_Data.Sender.Adress.Street = DTzsAnmSender.Rows(0).Item("Strt")
|
|
If Not SQL.IsNull(DTzsAnmSender.Rows(0).Item("Cty")) Then VERAG_NCTS.NCTS_Data.Sender.Adress.City = DTzsAnmSender.Rows(0).Item("Cty")
|
|
If Not SQL.IsNull(DTzsAnmSender.Rows(0).Item("Ctry")) Then
|
|
VERAG_NCTS.NCTS_Data.Sender.Adress.Country = DTzsAnmSender.Rows(0).Item("Ctry")
|
|
VERAG_NCTS.NCTS_Data.DepartureCountry = DTzsAnmSender.Rows(0).Item("Ctry")
|
|
End If
|
|
If Not SQL.IsNull(DTzsAnmSender.Rows(0).Item("TIN")) Then VERAG_NCTS.NCTS_Data.Sender.EORI = DTzsAnmSender.Rows(0).Item("TIN")
|
|
'VERAG_NCTS.NCTS_Data.Sender.EORI_NL = If(NCTS_TMP.ncts_Empfaenger_NLNR, "")
|
|
'VERAG_NCTS.NCTS_Data.Sender.UID_Nr = If(NCTS_TMP.ncts_Empfaenger_NLNR, "")
|
|
End If
|
|
|
|
|
|
'Empfänger
|
|
Dim DTzsAnmConeeTra As DataTable = SQL.loadDgvBySql("SELECT * FROM zsAnmConeeTra WHERE (LizenzNr = '" & r.Item("LizenzNr") & "') And (OperatorID = " & r.Item("OperatorID") & ") And (VorgangID = '" & r.Item("VorgangID") & "') And (AnmID = " & AnmID & ")", "EZOLL")
|
|
If DTzsAnmConeeTra.Rows().Count > 0 Then
|
|
If Not SQL.IsNull(DTzsAnmConeeTra.Rows(0).Item("Na")) Then VERAG_NCTS.NCTS_Data.Consignee.Name = DTzsAnmConeeTra.Rows(0).Item("Na")
|
|
If Not SQL.IsNull(DTzsAnmConeeTra.Rows(0).Item("Pst")) Then VERAG_NCTS.NCTS_Data.Consignee.Adress.Postcode = DTzsAnmConeeTra.Rows(0).Item("Pst")
|
|
If Not SQL.IsNull(DTzsAnmConeeTra.Rows(0).Item("Strt")) Then VERAG_NCTS.NCTS_Data.Consignee.Adress.Street = DTzsAnmConeeTra.Rows(0).Item("Strt")
|
|
If Not SQL.IsNull(DTzsAnmConeeTra.Rows(0).Item("Cty")) Then VERAG_NCTS.NCTS_Data.Consignee.Adress.City = DTzsAnmConeeTra.Rows(0).Item("Cty")
|
|
If Not SQL.IsNull(DTzsAnmConeeTra.Rows(0).Item("Ctry")) Then
|
|
VERAG_NCTS.NCTS_Data.Consignee.Adress.Country = DTzsAnmConeeTra.Rows(0).Item("Ctry")
|
|
VERAG_NCTS.NCTS_Data.DestinationCountry = DTzsAnmConeeTra.Rows(0).Item("Ctry")
|
|
End If
|
|
If Not SQL.IsNull(DTzsAnmConeeTra.Rows(0).Item("TIN")) Then VERAG_NCTS.NCTS_Data.Consignee.EORI = DTzsAnmConeeTra.Rows(0).Item("TIN")
|
|
'VERAG_NCTS.NCTS_Data.Consignee.EORI_NL = If(NCTS_TMP.ncts_Empfaenger_NLNR, "")
|
|
'VERAG_NCTS.NCTS_Data.Consignee.UID_Nr = If(NCTS_TMP.ncts_Empfaenger_NLNR, "")
|
|
End If
|
|
|
|
|
|
'Frächter
|
|
Dim DTzsAnmCarrier As DataTable = SQL.loadDgvBySql("SELECT * FROM [zsAnmCarrTra] WHERE (LizenzNr = '" & r.Item("LizenzNr") & "') And (OperatorID = " & r.Item("OperatorID") & ") And (VorgangID = '" & r.Item("VorgangID") & "') And (AnmID = " & AnmID & ")", "EZOLL")
|
|
If DTzsAnmCarrier.Rows().Count > 0 Then
|
|
If Not SQL.IsNull(DTzsAnmCarrier.Rows(0).Item("Na")) Then VERAG_NCTS.NCTS_Data.Consignee.Name = DTzsAnmCarrier.Rows(0).Item("Na")
|
|
If Not SQL.IsNull(DTzsAnmCarrier.Rows(0).Item("Pst")) Then VERAG_NCTS.NCTS_Data.Carrier.Adress.Postcode = DTzsAnmCarrier.Rows(0).Item("Pst")
|
|
If Not SQL.IsNull(DTzsAnmCarrier.Rows(0).Item("Strt")) Then VERAG_NCTS.NCTS_Data.Carrier.Adress.Street = DTzsAnmCarrier.Rows(0).Item("Strt")
|
|
If Not SQL.IsNull(DTzsAnmCarrier.Rows(0).Item("Cty")) Then VERAG_NCTS.NCTS_Data.Carrier.Adress.City = DTzsAnmCarrier.Rows(0).Item("Cty")
|
|
If Not SQL.IsNull(DTzsAnmCarrier.Rows(0).Item("Ctry")) Then VERAG_NCTS.NCTS_Data.Carrier.Adress.Country = DTzsAnmCarrier.Rows(0).Item("Ctry")
|
|
If Not SQL.IsNull(DTzsAnmCarrier.Rows(0).Item("TIN")) Then VERAG_NCTS.NCTS_Data.Carrier.EORI = DTzsAnmCarrier.Rows(0).Item("TIN")
|
|
'VERAG_NCTS.NCTS_Data.Carrier.EORI_NL = If(NCTS_TMP.ncts_Empfaenger_NLNR, "")
|
|
'VERAG_NCTS.NCTS_Data.Carrier.UID_Nr = If(NCTS_TMP.ncts_Empfaenger_NLNR, "")
|
|
End If
|
|
|
|
|
|
' Tabelle zsAnmGrteeGrteeRef lesen.
|
|
Dim DTzsAnmGrteeGrteeRef As DataTable = SQL.loadDgvBySql("SELECT GRN, GVal" &
|
|
" FROM zsAnmGrteeGrteeRef" &
|
|
" WHERE (LizenzNr = '" & r.Item("LizenzNr") & "') And (OperatorID = " & r.Item("OperatorID") & ") And (VorgangID = '" & r.Item("VorgangID") & "') And (AnmID = " & AnmID & ")" &
|
|
" ORDER BY GrteeID, GrteeRefID", "EZOLL")
|
|
|
|
If DTzsAnmGrteeGrteeRef.Rows().Count > 0 Then
|
|
VERAG_NCTS.NCTS_Data.Guarantee.Amount = 0
|
|
For Each DTzsAnmGrteeGrteeRef_row In DTzsAnmGrteeGrteeRef.Rows()
|
|
If Not SQL.IsNull(DTzsAnmGrteeGrteeRef_row.item("GRN")) Then VERAG_NCTS.NCTS_Data.Guarantee.GRN = DTzsAnmGrteeGrteeRef_row.item("GRN")
|
|
If Not SQL.IsNull(DTzsAnmGrteeGrteeRef_row.item("GVal")) Then VERAG_NCTS.NCTS_Data.Guarantee.Amount += DTzsAnmGrteeGrteeRef_row.item("GVal")
|
|
Next
|
|
End If
|
|
|
|
'POSITIONEN
|
|
Dim cntPos = 1
|
|
Dim DTzsAnmGdsitem As DataTable = SQL.loadDgvBySql("SELECT * FROM zsAnmGdsitem WHERE (LizenzNr = '" & r.Item("LizenzNr") & "') And (OperatorID = " & r.Item("OperatorID") & ") And (VorgangID = '" & r.Item("VorgangID") & "') And (AnmID = " & AnmID & ") ORDER BY GdsItemID", "EZOLL")
|
|
If DTzsAnmGdsitem.Rows().Count > 0 Then
|
|
For Each DTzsAnmGdsitem_row In DTzsAnmGdsitem.Rows()
|
|
Dim V_POS As New VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS.VERAG_out_nctsNCTS_DataPosition
|
|
V_POS.PosNr = cntPos
|
|
Dim pkGes = 0
|
|
Dim pkArt = ""
|
|
|
|
Dim DTzsAnmGdsitemPk As DataTable = SQL.loadDgvBySql("SELECT * FROM [zsAnmGdsItemPack] WHERE (LizenzNr = '" & r.Item("LizenzNr") & "') And (OperatorID = " & r.Item("OperatorID") & ") And (VorgangID = '" & r.Item("VorgangID") & "') And (AnmID = " & AnmID & ") AND GdsItemID='" & DTzsAnmGdsitem_row.Item("GdsItemID") & "' ORDER BY GdsItemID", "EZOLL")
|
|
If DTzsAnmGdsitemPk.Rows().Count > 0 Then
|
|
For Each DTzsAnmGdsitemPk_row In DTzsAnmGdsitemPk.Rows()
|
|
If Not SQL.IsNull(DTzsAnmGdsitemPk_row.item("Kind")) Then pkArt = DTzsAnmGdsitemPk_row.item("Kind")
|
|
If Not SQL.IsNull(DTzsAnmGdsitemPk_row.item("Nr")) Then pkGes += DTzsAnmGdsitemPk_row.item("Nr")
|
|
Next
|
|
End If
|
|
|
|
V_POS.Quantity = pkGes
|
|
V_POS.Packaging = pkArt
|
|
If Not SQL.IsNull(DTzsAnmGdsitem_row.item("Gross")) Then V_POS.GrossWeight = DTzsAnmGdsitem_row.item("Gross")
|
|
|
|
V_POS.GoodsDescription = DTzsAnmGdsitem_row.item("GdsDes")
|
|
|
|
VERAG_NCTS.NCTS_Data.Position.Add(V_POS)
|
|
cntPos += 1
|
|
Next
|
|
End If
|
|
|
|
|
|
UniqueId = AnmID
|
|
Catch ex As Exception
|
|
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & vbNewLine & "BezugsNr: " & LRN, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
|
Return Nothing
|
|
End Try
|
|
Return VERAG_NCTS
|
|
|
|
End Function
|
|
|
|
Shared Function genVERAG_OUT_NCTS_FromEZOLLByAnmId_V2_0_1(AnmID As String, ByRef UniqueId As String) As VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS_V2_0_1.VERAG_out_ncts
|
|
Dim VERAG_NCTS As New VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS_V2_0_1.VERAG_out_ncts
|
|
Dim LRN = ""
|
|
Try
|
|
|
|
VERAG_NCTS.Version = "2.0.1" ' Automaitsch, weil default ' doch nicht?
|
|
|
|
Dim Bestimmungszollstelle = ""
|
|
Dim Bürgschaft = ""
|
|
|
|
Dim dEZOLL As DataTable = SQL.loadDgvBySql("SELECT LizenzNr, OperatorID, VorgangID, AnmID, GeaendertAm, GeaendertVon, CRN, LRN" &
|
|
" FROM zsAnmRefs" &
|
|
" WHERE (VorgangID = 'AV') AND (AnmID = '" & AnmID & "')" &
|
|
" ORDER BY GeaendertAm DESC", "EZOLL")
|
|
|
|
If dEZOLL Is Nothing Then Return Nothing
|
|
If dEZOLL.Rows.Count = 0 Then Return Nothing
|
|
|
|
'TextBox2.ForeColor = Color.Green
|
|
Dim r As DataRow = dEZOLL.Rows(0)
|
|
|
|
LRN = r.Item("LRN")
|
|
|
|
If Not SQL.IsNull(r.Item("OperatorID")) Then
|
|
Select Case r.Item("OperatorID")
|
|
Case "1"
|
|
VERAG_NCTS.Company = "VERAG"
|
|
VERAG_NCTS.Department = "SUB"
|
|
Case "2"
|
|
VERAG_NCTS.Company = "VERAG"
|
|
VERAG_NCTS.Department = "SBG"
|
|
|
|
Case "3"
|
|
VERAG_NCTS.Company = "VERAG"
|
|
VERAG_NCTS.Department = "NKD"
|
|
Case "4", "5"
|
|
VERAG_NCTS.Company = "ATILLA"
|
|
VERAG_NCTS.Department = "SUB"
|
|
Case "6"
|
|
If LRN.StartsWith("4801") Then
|
|
VERAG_NCTS.Company = "ATILLA"
|
|
Else
|
|
VERAG_NCTS.Company = "VERAG"
|
|
End If
|
|
VERAG_NCTS.Department = "SUB"
|
|
Case "8"
|
|
VERAG_NCTS.Company = "DURMAZ"
|
|
VERAG_NCTS.Department = "SBG"
|
|
Return Nothing
|
|
Case Else
|
|
VERAG_NCTS.Company = "ATILLA"
|
|
VERAG_NCTS.Department = "SUB"
|
|
|
|
End Select
|
|
End If
|
|
|
|
|
|
If r.Item("GeaendertAm") IsNot DBNull.Value AndAlso IsDate(r.Item("GeaendertAm")) Then
|
|
VERAG_NCTS.ProcessData.TransactionDate = CDate(r.Item("GeaendertAm")) 'default
|
|
Else
|
|
VERAG_NCTS.ProcessData.TransactionDate = Now.ToShortDateString
|
|
End If
|
|
|
|
VERAG_NCTS.ProcessData.MRN = If(r.Item("CRN") IsNot DBNull.Value, r.Item("CRN"), "")
|
|
VERAG_NCTS.ProcessData.ReferenzNumber = LRN
|
|
|
|
Select Case (SQL.getValueTxtBySql("SELECT isnull(ErledigungsTypID,'') FROM zsAnmDHFRefs WHERE AnmID=" & AnmID & " ORDER BY GeaendertAm DESC", "EZOLL"))
|
|
Case "F"
|
|
VERAG_NCTS.ProcessData.Status = 50
|
|
Case "FB"
|
|
VERAG_NCTS.ProcessData.Status = 60
|
|
Case Else
|
|
VERAG_NCTS.ProcessData.Status = 0
|
|
End Select
|
|
|
|
Dim DTzsAnmHea As DataTable = SQL.loadDgvBySql("SELECT * FROM zsAnmHea WHERE (LizenzNr = '" & r.Item("LizenzNr") & "') And (OperatorID = " & r.Item("OperatorID") & ") And (VorgangID = '" & r.Item("VorgangID") & "') And (AnmID = " & AnmID & ")", "EZOLL")
|
|
If DTzsAnmHea.Rows().Count > 0 Then
|
|
Dim rDTzsAnmHea = DTzsAnmHea.Rows(0)
|
|
VERAG_NCTS.ProcessData.ProcedureCode = rDTzsAnmHea("DecTy")
|
|
VERAG_NCTS.NCTS_Data.SumGrossWeight = rDTzsAnmHea("TotGross") 'If(NCTS_TMP.ncts_GesamtRohmasse, "0")
|
|
VERAG_NCTS.ProcessData.TransactionDate = CDate(rDTzsAnmHea("DecDT"))
|
|
End If
|
|
|
|
|
|
|
|
VERAG_NCTS.NCTS_Data.DepartureCustomsOffice = SQL.isleernothing(SQL.getValueTxtBySql("SELECT Ref FROM zsAnmDepCO WHERE AnmID=" & AnmID & " ORDER BY GeaendertAm DESC", "EZOLL"))
|
|
VERAG_NCTS.NCTS_Data.DatDeterminationLimit = SQL.isleernothing(SQL.getValueTxtBySql("SELECT DLimit FROM zsAnmCtrlRslt WHERE AnmID=" & AnmID & " ORDER BY GeaendertAm DESC", "EZOLL"))
|
|
|
|
'BestimmungsstelleDienststelle
|
|
Dim DTzsAnmDestCo As DataTable = SQL.loadDgvBySql("SELECT Ref FROM zsAnmDestCo WHERE (LizenzNr = '" & r.Item("LizenzNr") & "') And (OperatorID = " & r.Item("OperatorID") & ") And (VorgangID = '" & r.Item("VorgangID") & "') And (AnmID = " & AnmID & ")", "EZOLL")
|
|
If DTzsAnmDestCo.Rows().Count > 0 Then
|
|
If Not SQL.IsNull(DTzsAnmDestCo.Rows(0).Item("ref")) Then VERAG_NCTS.NCTS_Data.DestinationCustomsOffice = DTzsAnmDestCo.Rows(0).Item("ref")
|
|
End If
|
|
|
|
' Kennzeichen
|
|
Dim DTzsAnmTransp As DataTable = SQL.loadDgvBySql("SELECT DepIdnt FROM zsAnmTransp WHERE (LizenzNr = '" & r.Item("LizenzNr") & "') And (OperatorID = " & r.Item("OperatorID") & ") And (VorgangID = '" & r.Item("VorgangID") & "') And (AnmID = " & AnmID & ")", "EZOLL")
|
|
If DTzsAnmTransp.Rows().Count > 0 Then
|
|
If Not SQL.IsNull(DTzsAnmTransp.Rows(0).Item("DepIdnt")) Then
|
|
VERAG_NCTS.NCTS_Data.LicensePlate = DTzsAnmTransp.Rows(0).Item("DepIdnt")
|
|
End If
|
|
End If
|
|
|
|
'Versender
|
|
Dim DTzsAnmSender As DataTable = SQL.loadDgvBySql("SELECT * FROM [zsAnmConorTra] WHERE (LizenzNr = '" & r.Item("LizenzNr") & "') And (OperatorID = " & r.Item("OperatorID") & ") And (VorgangID = '" & r.Item("VorgangID") & "') And (AnmID = " & AnmID & ")", "EZOLL")
|
|
If DTzsAnmSender.Rows().Count > 0 Then
|
|
'VERAG_NCTS.NCTS_Data.Sender.Name = DTzsAnmSender.Rows(0).Item("Na")
|
|
If Not SQL.IsNull(DTzsAnmSender.Rows(0).Item("Na")) Then VERAG_NCTS.NCTS_Data.Consignee.Name = DTzsAnmSender.Rows(0).Item("Na")
|
|
If Not SQL.IsNull(DTzsAnmSender.Rows(0).Item("Pst")) Then VERAG_NCTS.NCTS_Data.Sender.Adress.Postcode = DTzsAnmSender.Rows(0).Item("Pst")
|
|
If Not SQL.IsNull(DTzsAnmSender.Rows(0).Item("Strt")) Then VERAG_NCTS.NCTS_Data.Sender.Adress.Street = DTzsAnmSender.Rows(0).Item("Strt")
|
|
If Not SQL.IsNull(DTzsAnmSender.Rows(0).Item("Cty")) Then VERAG_NCTS.NCTS_Data.Sender.Adress.City = DTzsAnmSender.Rows(0).Item("Cty")
|
|
If Not SQL.IsNull(DTzsAnmSender.Rows(0).Item("Ctry")) Then
|
|
VERAG_NCTS.NCTS_Data.Sender.Adress.Country = DTzsAnmSender.Rows(0).Item("Ctry")
|
|
VERAG_NCTS.NCTS_Data.DepartureCountry = DTzsAnmSender.Rows(0).Item("Ctry")
|
|
End If
|
|
If Not SQL.IsNull(DTzsAnmSender.Rows(0).Item("TIN")) Then VERAG_NCTS.NCTS_Data.Sender.EORI = DTzsAnmSender.Rows(0).Item("TIN")
|
|
'VERAG_NCTS.NCTS_Data.Sender.EORI_NL = If(NCTS_TMP.ncts_Empfaenger_NLNR, "")
|
|
'VERAG_NCTS.NCTS_Data.Sender.UID_Nr = If(NCTS_TMP.ncts_Empfaenger_NLNR, "")
|
|
End If
|
|
|
|
|
|
'Empfänger
|
|
Dim DTzsAnmConeeTra As DataTable = SQL.loadDgvBySql("SELECT * FROM zsAnmConeeTra WHERE (LizenzNr = '" & r.Item("LizenzNr") & "') And (OperatorID = " & r.Item("OperatorID") & ") And (VorgangID = '" & r.Item("VorgangID") & "') And (AnmID = " & AnmID & ")", "EZOLL")
|
|
If DTzsAnmConeeTra.Rows().Count > 0 Then
|
|
If Not SQL.IsNull(DTzsAnmConeeTra.Rows(0).Item("Na")) Then VERAG_NCTS.NCTS_Data.Consignee.Name = DTzsAnmConeeTra.Rows(0).Item("Na")
|
|
If Not SQL.IsNull(DTzsAnmConeeTra.Rows(0).Item("Pst")) Then VERAG_NCTS.NCTS_Data.Consignee.Adress.Postcode = DTzsAnmConeeTra.Rows(0).Item("Pst")
|
|
If Not SQL.IsNull(DTzsAnmConeeTra.Rows(0).Item("Strt")) Then VERAG_NCTS.NCTS_Data.Consignee.Adress.Street = DTzsAnmConeeTra.Rows(0).Item("Strt")
|
|
If Not SQL.IsNull(DTzsAnmConeeTra.Rows(0).Item("Cty")) Then VERAG_NCTS.NCTS_Data.Consignee.Adress.City = DTzsAnmConeeTra.Rows(0).Item("Cty")
|
|
If Not SQL.IsNull(DTzsAnmConeeTra.Rows(0).Item("Ctry")) Then
|
|
VERAG_NCTS.NCTS_Data.Consignee.Adress.Country = DTzsAnmConeeTra.Rows(0).Item("Ctry")
|
|
VERAG_NCTS.NCTS_Data.DestinationCountry = DTzsAnmConeeTra.Rows(0).Item("Ctry")
|
|
End If
|
|
If Not SQL.IsNull(DTzsAnmConeeTra.Rows(0).Item("TIN")) Then VERAG_NCTS.NCTS_Data.Consignee.EORI = DTzsAnmConeeTra.Rows(0).Item("TIN")
|
|
'VERAG_NCTS.NCTS_Data.Consignee.EORI_NL = If(NCTS_TMP.ncts_Empfaenger_NLNR, "")
|
|
'VERAG_NCTS.NCTS_Data.Consignee.UID_Nr = If(NCTS_TMP.ncts_Empfaenger_NLNR, "")
|
|
End If
|
|
|
|
|
|
'Frächter
|
|
If GLO_AVISO IsNot Nothing AndAlso GLO_AVISO.Frächter_KdNr > 0 Then
|
|
Dim AD = New VERAG_PROG_ALLGEMEIN.cAdressen(GLO_AVISO.Frächter_KdNr)
|
|
Dim KD = New VERAG_PROG_ALLGEMEIN.cKunde(GLO_AVISO.Frächter_KdNr)
|
|
VERAG_NCTS.NCTS_Data.Carrier.Name = If(AD.Name_1, "")
|
|
VERAG_NCTS.NCTS_Data.Carrier.EORI = If(KD.EORITIN, "")
|
|
VERAG_NCTS.NCTS_Data.Carrier.EORI_NL = If(KD.EORITIN_NL, "")
|
|
VERAG_NCTS.NCTS_Data.Carrier.UID_Nr = If(AD.UstIdKz, "") & If(AD.UstIdNr, "")
|
|
VERAG_NCTS.NCTS_Data.Carrier.Adress.Country = If(AD.LandKz, "")
|
|
VERAG_NCTS.NCTS_Data.Carrier.Adress.Postcode = If(AD.PLZ, "")
|
|
VERAG_NCTS.NCTS_Data.Carrier.Adress.Street = If(AD.Straße, "")
|
|
VERAG_NCTS.NCTS_Data.Carrier.Adress.City = If(AD.Ort, "")
|
|
VERAG_NCTS.NCTS_Data.Carrier.CustomerCode = GLO_AVISO.Frächter_KdNr
|
|
Else
|
|
Dim DTzsAnmCarrier As DataTable = SQL.loadDgvBySql("SELECT * FROM [zsAnmCarrTra] WHERE (LizenzNr = '" & r.Item("LizenzNr") & "') And (OperatorID = " & r.Item("OperatorID") & ") And (VorgangID = '" & r.Item("VorgangID") & "') And (AnmID = " & AnmID & ")", "EZOLL")
|
|
If DTzsAnmCarrier.Rows().Count > 0 Then
|
|
If Not SQL.IsNull(DTzsAnmCarrier.Rows(0).Item("Na")) Then VERAG_NCTS.NCTS_Data.Consignee.Name = DTzsAnmCarrier.Rows(0).Item("Na")
|
|
If Not SQL.IsNull(DTzsAnmCarrier.Rows(0).Item("Pst")) Then VERAG_NCTS.NCTS_Data.Carrier.Adress.Postcode = DTzsAnmCarrier.Rows(0).Item("Pst")
|
|
If Not SQL.IsNull(DTzsAnmCarrier.Rows(0).Item("Strt")) Then VERAG_NCTS.NCTS_Data.Carrier.Adress.Street = DTzsAnmCarrier.Rows(0).Item("Strt")
|
|
If Not SQL.IsNull(DTzsAnmCarrier.Rows(0).Item("Cty")) Then VERAG_NCTS.NCTS_Data.Carrier.Adress.City = DTzsAnmCarrier.Rows(0).Item("Cty")
|
|
If Not SQL.IsNull(DTzsAnmCarrier.Rows(0).Item("Ctry")) Then VERAG_NCTS.NCTS_Data.Carrier.Adress.Country = DTzsAnmCarrier.Rows(0).Item("Ctry")
|
|
If Not SQL.IsNull(DTzsAnmCarrier.Rows(0).Item("TIN")) Then VERAG_NCTS.NCTS_Data.Carrier.EORI = DTzsAnmCarrier.Rows(0).Item("TIN")
|
|
'VERAG_NCTS.NCTS_Data.Carrier.EORI_NL = If(NCTS_TMP.ncts_Empfaenger_NLNR, "")
|
|
'VERAG_NCTS.NCTS_Data.Carrier.UID_Nr = If(NCTS_TMP.ncts_Empfaenger_NLNR, "")
|
|
End If
|
|
End If
|
|
|
|
' Tabelle zsAnmGrteeGrteeRef lesen.
|
|
Dim DTzsAnmGrteeGrteeRef As DataTable = SQL.loadDgvBySql("SELECT GRN, GVal" &
|
|
" FROM zsAnmGrteeGrteeRef" &
|
|
" WHERE (LizenzNr = '" & r.Item("LizenzNr") & "') And (OperatorID = " & r.Item("OperatorID") & ") And (VorgangID = '" & r.Item("VorgangID") & "') And (AnmID = " & AnmID & ")" &
|
|
" ORDER BY GrteeID, GrteeRefID", "EZOLL")
|
|
|
|
If DTzsAnmGrteeGrteeRef.Rows().Count > 0 Then
|
|
VERAG_NCTS.NCTS_Data.Guarantee.Amount = 0
|
|
For Each DTzsAnmGrteeGrteeRef_row In DTzsAnmGrteeGrteeRef.Rows()
|
|
If Not SQL.IsNull(DTzsAnmGrteeGrteeRef_row.item("GRN")) Then VERAG_NCTS.NCTS_Data.Guarantee.GRN = DTzsAnmGrteeGrteeRef_row.item("GRN")
|
|
If Not SQL.IsNull(DTzsAnmGrteeGrteeRef_row.item("GVal")) Then VERAG_NCTS.NCTS_Data.Guarantee.Amount += DTzsAnmGrteeGrteeRef_row.item("GVal")
|
|
Next
|
|
End If
|
|
|
|
'POSITIONEN
|
|
Dim cntPos = 1
|
|
Dim DTzsAnmGdsitem As DataTable = SQL.loadDgvBySql("SELECT * FROM zsAnmGdsitem WHERE (LizenzNr = '" & r.Item("LizenzNr") & "') And (OperatorID = " & r.Item("OperatorID") & ") And (VorgangID = '" & r.Item("VorgangID") & "') And (AnmID = " & AnmID & ") ORDER BY GdsItemID", "EZOLL")
|
|
If DTzsAnmGdsitem.Rows().Count > 0 Then
|
|
For Each DTzsAnmGdsitem_row In DTzsAnmGdsitem.Rows()
|
|
Dim V_POS As New VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS_V2_0_1.VERAG_out_nctsNCTS_DataPosition
|
|
V_POS.PosNr = cntPos
|
|
Dim pkGes = 0
|
|
Dim pkArt = ""
|
|
|
|
Dim DTzsAnmGdsitemPk As DataTable = SQL.loadDgvBySql("SELECT * FROM [zsAnmGdsItemPack] WHERE (LizenzNr = '" & r.Item("LizenzNr") & "') And (OperatorID = " & r.Item("OperatorID") & ") And (VorgangID = '" & r.Item("VorgangID") & "') And (AnmID = " & AnmID & ") AND GdsItemID='" & DTzsAnmGdsitem_row.Item("GdsItemID") & "' ORDER BY GdsItemID", "EZOLL")
|
|
If DTzsAnmGdsitemPk.Rows().Count > 0 Then
|
|
For Each DTzsAnmGdsitemPk_row In DTzsAnmGdsitemPk.Rows()
|
|
If Not SQL.IsNull(DTzsAnmGdsitemPk_row.item("Kind")) Then pkArt = DTzsAnmGdsitemPk_row.item("Kind")
|
|
If Not SQL.IsNull(DTzsAnmGdsitemPk_row.item("Nr")) Then pkGes += DTzsAnmGdsitemPk_row.item("Nr")
|
|
Next
|
|
End If
|
|
|
|
V_POS.Quantity = pkGes
|
|
V_POS.Packaging = pkArt
|
|
If Not SQL.IsNull(DTzsAnmGdsitem_row.item("Gross")) Then V_POS.GrossWeight = DTzsAnmGdsitem_row.item("Gross")
|
|
|
|
V_POS.GoodsDescription = DTzsAnmGdsitem_row.item("GdsDes")
|
|
|
|
VERAG_NCTS.NCTS_Data.Position.Add(V_POS)
|
|
cntPos += 1
|
|
Next
|
|
End If
|
|
|
|
|
|
UniqueId = AnmID
|
|
Catch ex As Exception
|
|
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & vbNewLine & "BezugsNr: " & LRN, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
|
Return Nothing
|
|
End Try
|
|
Return VERAG_NCTS
|
|
|
|
End Function
|
|
|
|
|
|
Shared Function genVERAG_OUT_NCTS_FromEZOLLByAnmId_V2_0_2(AnmID As String, ByRef UniqueId As String) As VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS_V2_0_2.VERAG_out_ncts
|
|
Dim VERAG_NCTS As New VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS_V2_0_2.VERAG_out_ncts
|
|
Dim LRN = ""
|
|
Try
|
|
|
|
VERAG_NCTS.Version = "2.0.2" ' Automaitsch, weil default ' doch nicht?
|
|
|
|
Dim Bestimmungszollstelle = ""
|
|
Dim Bürgschaft = ""
|
|
|
|
Dim dEZOLL As DataTable = SQL.loadDgvBySql("SELECT LizenzNr, OperatorID, VorgangID, AnmID, GeaendertAm, GeaendertVon, CRN, LRN" &
|
|
" FROM zsAnmRefs" &
|
|
" WHERE (VorgangID = 'AV') AND (AnmID = '" & AnmID & "')" &
|
|
" ORDER BY GeaendertAm DESC", "EZOLL")
|
|
|
|
If dEZOLL Is Nothing Then Return Nothing
|
|
If dEZOLL.Rows.Count = 0 Then Return Nothing
|
|
|
|
'TextBox2.ForeColor = Color.Green
|
|
Dim r As DataRow = dEZOLL.Rows(0)
|
|
|
|
LRN = r.Item("LRN")
|
|
|
|
If Not SQL.IsNull(r.Item("OperatorID")) Then
|
|
Select Case r.Item("OperatorID")
|
|
Case "1"
|
|
VERAG_NCTS.Company = "VERAG"
|
|
VERAG_NCTS.Department = "SUB"
|
|
Case "2"
|
|
VERAG_NCTS.Company = "VERAG"
|
|
VERAG_NCTS.Department = "SBG"
|
|
|
|
Case "3"
|
|
VERAG_NCTS.Company = "VERAG"
|
|
VERAG_NCTS.Department = "NKD"
|
|
Case "4", "5"
|
|
VERAG_NCTS.Company = "ATILLA"
|
|
VERAG_NCTS.Department = "SUB"
|
|
Case "6"
|
|
If LRN.StartsWith("4801") Then
|
|
VERAG_NCTS.Company = "ATILLA"
|
|
Else
|
|
VERAG_NCTS.Company = "VERAG"
|
|
End If
|
|
VERAG_NCTS.Department = "SUB"
|
|
Case "8"
|
|
VERAG_NCTS.Company = "DURMAZ"
|
|
VERAG_NCTS.Department = "SBG"
|
|
Return Nothing
|
|
Case Else
|
|
VERAG_NCTS.Company = "ATILLA"
|
|
VERAG_NCTS.Department = "SUB"
|
|
|
|
End Select
|
|
End If
|
|
|
|
|
|
If r.Item("GeaendertAm") IsNot DBNull.Value AndAlso IsDate(r.Item("GeaendertAm")) Then
|
|
VERAG_NCTS.ProcessData.TransactionDate = CDate(r.Item("GeaendertAm")) 'default
|
|
Else
|
|
VERAG_NCTS.ProcessData.TransactionDate = Now.ToShortDateString
|
|
End If
|
|
|
|
VERAG_NCTS.ProcessData.MRN = If(r.Item("CRN") IsNot DBNull.Value, r.Item("CRN"), "")
|
|
VERAG_NCTS.ProcessData.ReferenzNumber = LRN
|
|
|
|
Select Case (SQL.getValueTxtBySql("SELECT isnull(ErledigungsTypID,'') FROM zsAnmDHFRefs WHERE AnmID=" & AnmID & " ORDER BY GeaendertAm DESC", "EZOLL"))
|
|
Case "F"
|
|
VERAG_NCTS.ProcessData.Status = 50
|
|
Case "FB"
|
|
VERAG_NCTS.ProcessData.Status = 60
|
|
Case Else
|
|
VERAG_NCTS.ProcessData.Status = 0
|
|
End Select
|
|
|
|
Dim DTzsAnmHea As DataTable = SQL.loadDgvBySql("SELECT * FROM zsAnmHea WHERE (LizenzNr = '" & r.Item("LizenzNr") & "') And (OperatorID = " & r.Item("OperatorID") & ") And (VorgangID = '" & r.Item("VorgangID") & "') And (AnmID = " & AnmID & ")", "EZOLL")
|
|
If DTzsAnmHea.Rows().Count > 0 Then
|
|
Dim rDTzsAnmHea = DTzsAnmHea.Rows(0)
|
|
VERAG_NCTS.ProcessData.ProcedureCode = rDTzsAnmHea("DecTy")
|
|
VERAG_NCTS.NCTS_Data.SumGrossWeight = rDTzsAnmHea("TotGross") 'If(NCTS_TMP.ncts_GesamtRohmasse, "0")
|
|
VERAG_NCTS.ProcessData.TransactionDate = CDate(rDTzsAnmHea("DecDT"))
|
|
End If
|
|
|
|
|
|
|
|
VERAG_NCTS.NCTS_Data.DepartureCustomsOffice = SQL.isleernothing(SQL.getValueTxtBySql("SELECT Ref FROM zsAnmDepCO WHERE AnmID=" & AnmID & " ORDER BY GeaendertAm DESC", "EZOLL"))
|
|
VERAG_NCTS.NCTS_Data.DatDeterminationLimit = SQL.isleernothing(SQL.getValueTxtBySql("SELECT DLimit FROM zsAnmCtrlRslt WHERE AnmID=" & AnmID & " ORDER BY GeaendertAm DESC", "EZOLL"))
|
|
|
|
'BestimmungsstelleDienststelle
|
|
Dim DTzsAnmDestCo As DataTable = SQL.loadDgvBySql("SELECT Ref FROM zsAnmDestCo WHERE (LizenzNr = '" & r.Item("LizenzNr") & "') And (OperatorID = " & r.Item("OperatorID") & ") And (VorgangID = '" & r.Item("VorgangID") & "') And (AnmID = " & AnmID & ")", "EZOLL")
|
|
If DTzsAnmDestCo.Rows().Count > 0 Then
|
|
If Not SQL.IsNull(DTzsAnmDestCo.Rows(0).Item("ref")) Then VERAG_NCTS.NCTS_Data.DestinationCustomsOffice = DTzsAnmDestCo.Rows(0).Item("ref")
|
|
End If
|
|
|
|
' Kennzeichen
|
|
Dim DTzsAnmTransp As DataTable = SQL.loadDgvBySql("SELECT DepIdnt FROM zsAnmTransp WHERE (LizenzNr = '" & r.Item("LizenzNr") & "') And (OperatorID = " & r.Item("OperatorID") & ") And (VorgangID = '" & r.Item("VorgangID") & "') And (AnmID = " & AnmID & ")", "EZOLL")
|
|
If DTzsAnmTransp.Rows().Count > 0 Then
|
|
If Not SQL.IsNull(DTzsAnmTransp.Rows(0).Item("DepIdnt")) Then
|
|
VERAG_NCTS.NCTS_Data.LicensePlate = DTzsAnmTransp.Rows(0).Item("DepIdnt")
|
|
End If
|
|
End If
|
|
|
|
'Versender
|
|
Dim DTzsAnmSender As DataTable = SQL.loadDgvBySql("SELECT * FROM [zsAnmConorTra] WHERE (LizenzNr = '" & r.Item("LizenzNr") & "') And (OperatorID = " & r.Item("OperatorID") & ") And (VorgangID = '" & r.Item("VorgangID") & "') And (AnmID = " & AnmID & ")", "EZOLL")
|
|
If DTzsAnmSender.Rows().Count > 0 Then
|
|
'VERAG_NCTS.NCTS_Data.Sender.Name = DTzsAnmSender.Rows(0).Item("Na")
|
|
If Not SQL.IsNull(DTzsAnmSender.Rows(0).Item("Na")) Then VERAG_NCTS.NCTS_Data.Consignee.Name = DTzsAnmSender.Rows(0).Item("Na")
|
|
If Not SQL.IsNull(DTzsAnmSender.Rows(0).Item("Pst")) Then VERAG_NCTS.NCTS_Data.Sender.Adress.Postcode = DTzsAnmSender.Rows(0).Item("Pst")
|
|
If Not SQL.IsNull(DTzsAnmSender.Rows(0).Item("Strt")) Then VERAG_NCTS.NCTS_Data.Sender.Adress.Street = DTzsAnmSender.Rows(0).Item("Strt")
|
|
If Not SQL.IsNull(DTzsAnmSender.Rows(0).Item("Cty")) Then VERAG_NCTS.NCTS_Data.Sender.Adress.City = DTzsAnmSender.Rows(0).Item("Cty")
|
|
If Not SQL.IsNull(DTzsAnmSender.Rows(0).Item("Ctry")) Then
|
|
VERAG_NCTS.NCTS_Data.Sender.Adress.Country = DTzsAnmSender.Rows(0).Item("Ctry")
|
|
VERAG_NCTS.NCTS_Data.DepartureCountry = DTzsAnmSender.Rows(0).Item("Ctry")
|
|
End If
|
|
If Not SQL.IsNull(DTzsAnmSender.Rows(0).Item("TIN")) Then VERAG_NCTS.NCTS_Data.Sender.EORI = DTzsAnmSender.Rows(0).Item("TIN")
|
|
'VERAG_NCTS.NCTS_Data.Sender.EORI_NL = If(NCTS_TMP.ncts_Empfaenger_NLNR, "")
|
|
'VERAG_NCTS.NCTS_Data.Sender.UID_Nr = If(NCTS_TMP.ncts_Empfaenger_NLNR, "")
|
|
End If
|
|
|
|
|
|
'Empfänger
|
|
Dim DTzsAnmConeeTra As DataTable = SQL.loadDgvBySql("SELECT * FROM zsAnmConeeTra WHERE (LizenzNr = '" & r.Item("LizenzNr") & "') And (OperatorID = " & r.Item("OperatorID") & ") And (VorgangID = '" & r.Item("VorgangID") & "') And (AnmID = " & AnmID & ")", "EZOLL")
|
|
If DTzsAnmConeeTra.Rows().Count > 0 Then
|
|
If Not SQL.IsNull(DTzsAnmConeeTra.Rows(0).Item("Na")) Then VERAG_NCTS.NCTS_Data.Consignee.Name = DTzsAnmConeeTra.Rows(0).Item("Na")
|
|
If Not SQL.IsNull(DTzsAnmConeeTra.Rows(0).Item("Pst")) Then VERAG_NCTS.NCTS_Data.Consignee.Adress.Postcode = DTzsAnmConeeTra.Rows(0).Item("Pst")
|
|
If Not SQL.IsNull(DTzsAnmConeeTra.Rows(0).Item("Strt")) Then VERAG_NCTS.NCTS_Data.Consignee.Adress.Street = DTzsAnmConeeTra.Rows(0).Item("Strt")
|
|
If Not SQL.IsNull(DTzsAnmConeeTra.Rows(0).Item("Cty")) Then VERAG_NCTS.NCTS_Data.Consignee.Adress.City = DTzsAnmConeeTra.Rows(0).Item("Cty")
|
|
If Not SQL.IsNull(DTzsAnmConeeTra.Rows(0).Item("Ctry")) Then
|
|
VERAG_NCTS.NCTS_Data.Consignee.Adress.Country = DTzsAnmConeeTra.Rows(0).Item("Ctry")
|
|
VERAG_NCTS.NCTS_Data.DestinationCountry = DTzsAnmConeeTra.Rows(0).Item("Ctry")
|
|
End If
|
|
If Not SQL.IsNull(DTzsAnmConeeTra.Rows(0).Item("TIN")) Then VERAG_NCTS.NCTS_Data.Consignee.EORI = DTzsAnmConeeTra.Rows(0).Item("TIN")
|
|
'VERAG_NCTS.NCTS_Data.Consignee.EORI_NL = If(NCTS_TMP.ncts_Empfaenger_NLNR, "")
|
|
'VERAG_NCTS.NCTS_Data.Consignee.UID_Nr = If(NCTS_TMP.ncts_Empfaenger_NLNR, "")
|
|
End If
|
|
|
|
|
|
'Frächter
|
|
If GLO_AVISO IsNot Nothing AndAlso GLO_AVISO.Frächter_KdNr > 0 Then
|
|
Dim AD = New VERAG_PROG_ALLGEMEIN.cAdressen(GLO_AVISO.Frächter_KdNr)
|
|
Dim KD = New VERAG_PROG_ALLGEMEIN.cKunde(GLO_AVISO.Frächter_KdNr)
|
|
VERAG_NCTS.NCTS_Data.Carrier.Name = If(AD.Name_1, "")
|
|
VERAG_NCTS.NCTS_Data.Carrier.EORI = If(KD.EORITIN, "")
|
|
VERAG_NCTS.NCTS_Data.Carrier.EORI_NL = If(KD.EORITIN_NL, "")
|
|
VERAG_NCTS.NCTS_Data.Carrier.UID_Nr = If(AD.UstIdKz, "") & If(AD.UstIdNr, "")
|
|
VERAG_NCTS.NCTS_Data.Carrier.Adress.Country = If(AD.LandKz, "")
|
|
VERAG_NCTS.NCTS_Data.Carrier.Adress.Postcode = If(AD.PLZ, "")
|
|
VERAG_NCTS.NCTS_Data.Carrier.Adress.Street = If(AD.Straße, "")
|
|
VERAG_NCTS.NCTS_Data.Carrier.Adress.City = If(AD.Ort, "")
|
|
VERAG_NCTS.NCTS_Data.Carrier.CustomerCode = GLO_AVISO.Frächter_KdNr
|
|
Else
|
|
Dim DTzsAnmCarrier As DataTable = SQL.loadDgvBySql("SELECT * FROM [zsAnmCarrTra] WHERE (LizenzNr = '" & r.Item("LizenzNr") & "') And (OperatorID = " & r.Item("OperatorID") & ") And (VorgangID = '" & r.Item("VorgangID") & "') And (AnmID = " & AnmID & ")", "EZOLL")
|
|
If DTzsAnmCarrier.Rows().Count > 0 Then
|
|
If Not SQL.IsNull(DTzsAnmCarrier.Rows(0).Item("Na")) Then VERAG_NCTS.NCTS_Data.Consignee.Name = DTzsAnmCarrier.Rows(0).Item("Na")
|
|
If Not SQL.IsNull(DTzsAnmCarrier.Rows(0).Item("Pst")) Then VERAG_NCTS.NCTS_Data.Carrier.Adress.Postcode = DTzsAnmCarrier.Rows(0).Item("Pst")
|
|
If Not SQL.IsNull(DTzsAnmCarrier.Rows(0).Item("Strt")) Then VERAG_NCTS.NCTS_Data.Carrier.Adress.Street = DTzsAnmCarrier.Rows(0).Item("Strt")
|
|
If Not SQL.IsNull(DTzsAnmCarrier.Rows(0).Item("Cty")) Then VERAG_NCTS.NCTS_Data.Carrier.Adress.City = DTzsAnmCarrier.Rows(0).Item("Cty")
|
|
If Not SQL.IsNull(DTzsAnmCarrier.Rows(0).Item("Ctry")) Then VERAG_NCTS.NCTS_Data.Carrier.Adress.Country = DTzsAnmCarrier.Rows(0).Item("Ctry")
|
|
If Not SQL.IsNull(DTzsAnmCarrier.Rows(0).Item("TIN")) Then VERAG_NCTS.NCTS_Data.Carrier.EORI = DTzsAnmCarrier.Rows(0).Item("TIN")
|
|
'VERAG_NCTS.NCTS_Data.Carrier.EORI_NL = If(NCTS_TMP.ncts_Empfaenger_NLNR, "")
|
|
'VERAG_NCTS.NCTS_Data.Carrier.UID_Nr = If(NCTS_TMP.ncts_Empfaenger_NLNR, "")
|
|
End If
|
|
End If
|
|
|
|
If GLO_AVISO IsNot Nothing Then
|
|
If GLO_AVISO.KdAuftragsNr_Avisierer IsNot Nothing Then VERAG_NCTS.ClientReference = GLO_AVISO.KdAuftragsNr_Avisierer
|
|
End If
|
|
|
|
' Tabelle zsAnmGrteeGrteeRef lesen.
|
|
Dim DTzsAnmGrteeGrteeRef As DataTable = SQL.loadDgvBySql("SELECT GRN, GVal" &
|
|
" FROM zsAnmGrteeGrteeRef" &
|
|
" WHERE (LizenzNr = '" & r.Item("LizenzNr") & "') And (OperatorID = " & r.Item("OperatorID") & ") And (VorgangID = '" & r.Item("VorgangID") & "') And (AnmID = " & AnmID & ")" &
|
|
" ORDER BY GrteeID, GrteeRefID", "EZOLL")
|
|
|
|
If DTzsAnmGrteeGrteeRef.Rows().Count > 0 Then
|
|
VERAG_NCTS.NCTS_Data.Guarantee.Amount = 0
|
|
For Each DTzsAnmGrteeGrteeRef_row In DTzsAnmGrteeGrteeRef.Rows()
|
|
If Not SQL.IsNull(DTzsAnmGrteeGrteeRef_row.item("GRN")) Then VERAG_NCTS.NCTS_Data.Guarantee.GRN = DTzsAnmGrteeGrteeRef_row.item("GRN")
|
|
If Not SQL.IsNull(DTzsAnmGrteeGrteeRef_row.item("GVal")) Then VERAG_NCTS.NCTS_Data.Guarantee.Amount += DTzsAnmGrteeGrteeRef_row.item("GVal")
|
|
Next
|
|
End If
|
|
|
|
'POSITIONEN
|
|
Dim cntPos = 1
|
|
Dim DTzsAnmGdsitem As DataTable = SQL.loadDgvBySql("SELECT * FROM zsAnmGdsitem WHERE (LizenzNr = '" & r.Item("LizenzNr") & "') And (OperatorID = " & r.Item("OperatorID") & ") And (VorgangID = '" & r.Item("VorgangID") & "') And (AnmID = " & AnmID & ") ORDER BY GdsItemID", "EZOLL")
|
|
If DTzsAnmGdsitem.Rows().Count > 0 Then
|
|
For Each DTzsAnmGdsitem_row In DTzsAnmGdsitem.Rows()
|
|
Dim V_POS As New VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS_V2_0_2.VERAG_out_nctsNCTS_DataPosition
|
|
V_POS.PosNr = cntPos
|
|
Dim pkGes = 0
|
|
Dim pkArt = ""
|
|
|
|
Dim DTzsAnmGdsitemPk As DataTable = SQL.loadDgvBySql("SELECT * FROM [zsAnmGdsItemPack] WHERE (LizenzNr = '" & r.Item("LizenzNr") & "') And (OperatorID = " & r.Item("OperatorID") & ") And (VorgangID = '" & r.Item("VorgangID") & "') And (AnmID = " & AnmID & ") AND GdsItemID='" & DTzsAnmGdsitem_row.Item("GdsItemID") & "' ORDER BY GdsItemID", "EZOLL")
|
|
If DTzsAnmGdsitemPk.Rows().Count > 0 Then
|
|
For Each DTzsAnmGdsitemPk_row In DTzsAnmGdsitemPk.Rows()
|
|
If Not SQL.IsNull(DTzsAnmGdsitemPk_row.item("Kind")) Then pkArt = DTzsAnmGdsitemPk_row.item("Kind")
|
|
If Not SQL.IsNull(DTzsAnmGdsitemPk_row.item("Nr")) Then pkGes += DTzsAnmGdsitemPk_row.item("Nr")
|
|
Next
|
|
End If
|
|
|
|
V_POS.Quantity = pkGes
|
|
V_POS.Packaging = pkArt
|
|
If Not SQL.IsNull(DTzsAnmGdsitem_row.item("Gross")) Then V_POS.GrossWeight = DTzsAnmGdsitem_row.item("Gross")
|
|
|
|
V_POS.GoodsDescription = DTzsAnmGdsitem_row.item("GdsDes")
|
|
|
|
VERAG_NCTS.NCTS_Data.Position.Add(V_POS)
|
|
cntPos += 1
|
|
Next
|
|
End If
|
|
|
|
|
|
UniqueId = AnmID
|
|
Catch ex As Exception
|
|
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & vbNewLine & "BezugsNr: " & LRN, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
|
Return Nothing
|
|
End Try
|
|
Return VERAG_NCTS
|
|
|
|
End Function
|
|
|
|
Shared Function getGRTY_fromEZOLL(LRN As String) As String
|
|
Try
|
|
Return SQL.getValueTxtBySql("SELECT TOP 1 GRN FROM zsAnmRefs inner join zsAnmGrteeGrteeRef on zsAnmGrteeGrteeRef.AnmID=zsAnmRefs.AnmID WHERE (zsAnmRefs.VorgangID = 'AV') AND (LRN = '" & LRN & "')", "EZOLL")
|
|
Catch ex As Exception
|
|
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & vbNewLine & "BezugsNr: " & LRN, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
|
End Try
|
|
Return ""
|
|
End Function
|
|
|
|
|
|
|
|
Shared Function genVERAG_OUT_NCTS_FromTELOTEC_V2_0_1(NCTS_TMP As TELOTEC_Worker.cTelotec_Anmeldung, ByRef UniqueId As String) As VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS_V2_0_1.VERAG_out_ncts
|
|
Dim VERAG_NCTS As New VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS_V2_0_1.VERAG_out_ncts
|
|
Try
|
|
If NCTS_TMP Is Nothing Then Return Nothing
|
|
If NCTS_TMP.telanm_BezugsNr Is Nothing Then Return Nothing
|
|
If NCTS_TMP.Hea_DecTy Is Nothing Then Return Nothing
|
|
If NCTS_TMP.Hea_DecTy <> "T1" And NCTS_TMP.Hea_DecTy <> "T2" And NCTS_TMP.Hea_DecTy <> "T2L" And NCTS_TMP.Hea_DecTy <> "T-" Then Return Nothing
|
|
|
|
VERAG_NCTS.Version = "2.0.1" ' Automaitsch, weil default ' doch nicht?
|
|
|
|
If NCTS_TMP.telanm_firma <> "" Then
|
|
VERAG_NCTS.Company = NCTS_TMP.telanm_firma
|
|
Else
|
|
VERAG_NCTS.Company = "IMEX"
|
|
End If
|
|
VERAG_NCTS.Department = NCTS_TMP.telanm_niederlassung
|
|
|
|
|
|
'VERAG_NCTS.InternalReference.OfficeCode = If(
|
|
'VERAG_NCTS.InternalReference.PositionNumber = NCTS_TMP.ncts_niederlassung
|
|
Select Case NCTS_TMP.telanm_Status
|
|
Case < 50
|
|
VERAG_NCTS.ProcessData.Status = 0
|
|
Case 50, 53
|
|
VERAG_NCTS.ProcessData.Status = 50
|
|
Case 60
|
|
VERAG_NCTS.ProcessData.Status = 60
|
|
End Select
|
|
|
|
VERAG_NCTS.ProcessData.TransactionDate = NCTS_TMP.dec_CreateDate
|
|
|
|
VERAG_NCTS.ProcessData.MRN = If(NCTS_TMP.telanm_CRN, "")
|
|
VERAG_NCTS.ProcessData.ReferenzNumber = If(NCTS_TMP.telanm_BezugsNr, "")
|
|
VERAG_NCTS.ProcessData.ProcedureCode = If(NCTS_TMP.telanm_ART, "")
|
|
|
|
If NCTS_TMP.CtrlRslt_DLimit IsNot Nothing AndAlso NCTS_TMP.CtrlRslt_DLimit.ToString <> "" Then
|
|
VERAG_NCTS.NCTS_Data.DatDeterminationLimit = CDate(NCTS_TMP.CtrlRslt_DLimit)
|
|
End If
|
|
VERAG_NCTS.NCTS_Data.LicensePlate = If(NCTS_TMP.Transp_DepIdnt, "")
|
|
VERAG_NCTS.NCTS_Data.DepartureCustomsOffice = If(NCTS_TMP.DepCO_Ref, "")
|
|
VERAG_NCTS.NCTS_Data.DestinationCustomsOffice = If(NCTS_TMP.DestCO_Ref, "")
|
|
VERAG_NCTS.NCTS_Data.DepartureCountry = NCTS_TMP.Locs_Disp
|
|
VERAG_NCTS.NCTS_Data.DestinationCountry = If(NCTS_TMP.Locs_Dest, "")
|
|
|
|
'Versender
|
|
VERAG_NCTS.NCTS_Data.Sender.Name = If(NCTS_TMP.ConorTra_Na, "")
|
|
VERAG_NCTS.NCTS_Data.Sender.EORI = If(NCTS_TMP.ConorTra_TIN, "")
|
|
'VERAG_NCTS.NCTS_Data.Sender.EORI_NL = If(NCTS_TMP.ncts_Versender_NLNR, "")
|
|
VERAG_NCTS.NCTS_Data.Sender.UID_Nr = If(NCTS_TMP.ConorTra_UIDCtry, "") & If(NCTS_TMP.ConorTra_UID, "")
|
|
VERAG_NCTS.NCTS_Data.Sender.Adress.Country = If(NCTS_TMP.ConorTra_Ctry, "")
|
|
VERAG_NCTS.NCTS_Data.Sender.Adress.Postcode = If(NCTS_TMP.ConorTra_Pst, "")
|
|
VERAG_NCTS.NCTS_Data.Sender.Adress.Street = If(NCTS_TMP.ConorTra_Strt, "")
|
|
VERAG_NCTS.NCTS_Data.Sender.Adress.City = If(NCTS_TMP.ConorTra_Cty, "")
|
|
|
|
'Empfänger
|
|
VERAG_NCTS.NCTS_Data.Consignee.Name = If(NCTS_TMP.ConeeTra_Na, "")
|
|
VERAG_NCTS.NCTS_Data.Consignee.EORI = If(NCTS_TMP.ConeeTra_TIN, "")
|
|
'VERAG_NCTS.NCTS_Data.Consignee.EORI_NL = If(NCTS_TMP.ncts_Versender_NLNR, "")
|
|
VERAG_NCTS.NCTS_Data.Consignee.UID_Nr = If(NCTS_TMP.ConeeTra_UIDCtry, "") & If(NCTS_TMP.ConeeTra_UID, "")
|
|
VERAG_NCTS.NCTS_Data.Consignee.Adress.Country = If(NCTS_TMP.ConeeTra_Ctry, "")
|
|
VERAG_NCTS.NCTS_Data.Consignee.Adress.Postcode = If(NCTS_TMP.ConeeTra_Pst, "")
|
|
VERAG_NCTS.NCTS_Data.Consignee.Adress.Street = If(NCTS_TMP.ConeeTra_Strt, "")
|
|
VERAG_NCTS.NCTS_Data.Consignee.Adress.City = If(NCTS_TMP.ConeeTra_Cty, "")
|
|
|
|
''Frächter
|
|
If GLO_AVISO IsNot Nothing AndAlso GLO_AVISO.Frächter_KdNr > 0 Then
|
|
Dim AD = New VERAG_PROG_ALLGEMEIN.cAdressen(GLO_AVISO.Frächter_KdNr)
|
|
Dim KD = New VERAG_PROG_ALLGEMEIN.cKunde(GLO_AVISO.Frächter_KdNr)
|
|
VERAG_NCTS.NCTS_Data.Carrier.Name = If(AD.Name_1, "")
|
|
VERAG_NCTS.NCTS_Data.Carrier.EORI = If(KD.EORITIN, "")
|
|
VERAG_NCTS.NCTS_Data.Carrier.EORI_NL = If(KD.EORITIN_NL, "")
|
|
VERAG_NCTS.NCTS_Data.Carrier.UID_Nr = If(AD.UstIdKz, "") & If(AD.UstIdNr, "")
|
|
VERAG_NCTS.NCTS_Data.Carrier.Adress.Country = If(AD.LandKz, "")
|
|
VERAG_NCTS.NCTS_Data.Carrier.Adress.Postcode = If(AD.PLZ, "")
|
|
VERAG_NCTS.NCTS_Data.Carrier.Adress.Street = If(AD.Straße, "")
|
|
VERAG_NCTS.NCTS_Data.Carrier.Adress.City = If(AD.Ort, "")
|
|
VERAG_NCTS.NCTS_Data.Carrier.CustomerCode = GLO_AVISO.Frächter_KdNr
|
|
Else
|
|
|
|
'VERAG_NCTS.NCTS_Data.Carrier.Name = If(NCTS_TMP.ConorTra_Na, "")
|
|
'VERAG_NCTS.NCTS_Data.Carrier.EORI = If(NCTS_TMP.ConorTra_TIN, "")
|
|
''VERAG_NCTS.NCTS_Data.Carrier.EORI_NL = If(NCTS_TMP.ncts_Versender_NLNR, "")
|
|
'VERAG_NCTS.NCTS_Data.Carrier.UID_Nr = If(NCTS_TMP.ConorTra_UIDCtry, "") & If(NCTS_TMP.ConorTra_UID, "")
|
|
'VERAG_NCTS.NCTS_Data.Carrier.Adress.Country = If(NCTS_TMP.ConorTra_Ctry, "")
|
|
'VERAG_NCTS.NCTS_Data.Carrier.Adress.Postcode = If(NCTS_TMP.ConorTra_Pst, "")
|
|
'VERAG_NCTS.NCTS_Data.Carrier.Adress.Street = If(NCTS_TMP.ConorTra_Strt, "")
|
|
'VERAG_NCTS.NCTS_Data.Carrier.Adress.City = If(NCTS_TMP.ConorTra_Cty, "")
|
|
End If
|
|
|
|
If NCTS_TMP.SICHERHEIT IsNot Nothing AndAlso NCTS_TMP.SICHERHEIT.Count > 0 Then
|
|
VERAG_NCTS.NCTS_Data.Guarantee.GRN = If(NCTS_TMP.SICHERHEIT(0).GRN, "")
|
|
VERAG_NCTS.NCTS_Data.Guarantee.Amount = If(NCTS_TMP.SICHERHEIT(0).GVal, "0")
|
|
End If
|
|
|
|
VERAG_NCTS.NCTS_Data.SumGrossWeight = If(NCTS_TMP.Hea_TotGross, "0")
|
|
Dim cntPos = 1
|
|
If NCTS_TMP.POSITIONSDATEN IsNot Nothing Then
|
|
For Each POS In NCTS_TMP.POSITIONSDATEN
|
|
Dim V_POS As New VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS_V2_0_1.VERAG_out_nctsNCTS_DataPosition
|
|
V_POS.PosNr = cntPos
|
|
Dim pkGes = 0
|
|
Dim pkArt = ""
|
|
If POS.PACKSTUECKE IsNot Nothing Then
|
|
For Each PK In POS.PACKSTUECKE
|
|
If PK.Pack_Nr IsNot Nothing Then pkGes += PK.Pack_Nr 'verpackt
|
|
If PK.Pack_Piec IsNot Nothing Then pkGes += PK.Pack_Piec 'unverpackt
|
|
If PK.Pack_Kind IsNot Nothing Then pkArt = PK.Pack_Kind
|
|
Next
|
|
End If
|
|
V_POS.Quantity = pkGes
|
|
V_POS.Packaging = pkArt
|
|
V_POS.GrossWeight = POS.Item_Gross
|
|
V_POS.GoodsDescription = POS.Item_GdsDes
|
|
|
|
VERAG_NCTS.NCTS_Data.Position.Add(V_POS)
|
|
cntPos += 1
|
|
Next
|
|
End If
|
|
UniqueId = NCTS_TMP.telanm_id
|
|
|
|
'If XMLFilePath = "" Then
|
|
' Dim dir = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "ZOLL_SCHNITTSTELLEN\VERAG\NCTS_OUT\TC\" & Now.Year & "\" & Now.ToShortDateString & "\"
|
|
' If Not IO.Directory.Exists(dir) Then IO.Directory.CreateDirectory(dir)
|
|
' XMLFilePath = dir & "VERAG_NCTS_OUT_" & Now.ToString("ddMMyyyHHmmss") & "_TC_" & NCTS_TMP.telanm_id & ".xml"
|
|
'End If
|
|
|
|
|
|
'VERAG_NCTS.SaveToFile(XMLFilePath)
|
|
|
|
Catch ex As Exception
|
|
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & vbNewLine & "BezugsNr: " & NCTS_TMP.telanm_BezugsNr, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
|
Return Nothing
|
|
End Try
|
|
Return VERAG_NCTS
|
|
|
|
End Function
|
|
|
|
|
|
Shared Function genVERAG_OUT_NCTS_FromTELOTEC_V2_0_2(NCTS_TMP As TELOTEC_Worker.cTelotec_Anmeldung, ByRef UniqueId As String) As VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS_V2_0_2.VERAG_out_ncts
|
|
Dim VERAG_NCTS As New VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS_V2_0_2.VERAG_out_ncts
|
|
Try
|
|
If NCTS_TMP Is Nothing Then Return Nothing
|
|
If NCTS_TMP.telanm_BezugsNr Is Nothing Then Return Nothing
|
|
If NCTS_TMP.Hea_DecTy Is Nothing Then Return Nothing
|
|
If NCTS_TMP.Hea_DecTy <> "T1" And NCTS_TMP.Hea_DecTy <> "T2" And NCTS_TMP.Hea_DecTy <> "T2L" And NCTS_TMP.Hea_DecTy <> "T-" Then Return Nothing
|
|
|
|
VERAG_NCTS.Version = "2.0.2" ' Automaitsch, weil default ' doch nicht?
|
|
|
|
If NCTS_TMP.telanm_firma <> "" Then
|
|
VERAG_NCTS.Company = NCTS_TMP.telanm_firma
|
|
Else
|
|
VERAG_NCTS.Company = "IMEX"
|
|
End If
|
|
VERAG_NCTS.Department = NCTS_TMP.telanm_niederlassung
|
|
|
|
|
|
'VERAG_NCTS.InternalReference.OfficeCode = If(
|
|
'VERAG_NCTS.InternalReference.PositionNumber = NCTS_TMP.ncts_niederlassung
|
|
Select Case NCTS_TMP.telanm_Status
|
|
Case < 50
|
|
VERAG_NCTS.ProcessData.Status = 0
|
|
Case 50, 53
|
|
VERAG_NCTS.ProcessData.Status = 50
|
|
Case 60
|
|
VERAG_NCTS.ProcessData.Status = 60
|
|
End Select
|
|
|
|
VERAG_NCTS.ProcessData.TransactionDate = NCTS_TMP.dec_CreateDate
|
|
|
|
VERAG_NCTS.ProcessData.MRN = If(NCTS_TMP.telanm_CRN, "")
|
|
VERAG_NCTS.ProcessData.ReferenzNumber = If(NCTS_TMP.telanm_BezugsNr, "")
|
|
VERAG_NCTS.ProcessData.ProcedureCode = If(NCTS_TMP.telanm_ART, "")
|
|
|
|
If NCTS_TMP.CtrlRslt_DLimit IsNot Nothing AndAlso NCTS_TMP.CtrlRslt_DLimit.ToString <> "" Then
|
|
VERAG_NCTS.NCTS_Data.DatDeterminationLimit = CDate(NCTS_TMP.CtrlRslt_DLimit)
|
|
End If
|
|
VERAG_NCTS.NCTS_Data.LicensePlate = If(NCTS_TMP.Transp_DepIdnt, "")
|
|
VERAG_NCTS.NCTS_Data.DepartureCustomsOffice = If(NCTS_TMP.DepCO_Ref, "")
|
|
VERAG_NCTS.NCTS_Data.DestinationCustomsOffice = If(NCTS_TMP.DestCO_Ref, "")
|
|
VERAG_NCTS.NCTS_Data.DepartureCountry = NCTS_TMP.Locs_Disp
|
|
VERAG_NCTS.NCTS_Data.DestinationCountry = If(NCTS_TMP.Locs_Dest, "")
|
|
|
|
'Versender
|
|
VERAG_NCTS.NCTS_Data.Sender.Name = If(NCTS_TMP.ConorTra_Na, "")
|
|
VERAG_NCTS.NCTS_Data.Sender.EORI = If(NCTS_TMP.ConorTra_TIN, "")
|
|
'VERAG_NCTS.NCTS_Data.Sender.EORI_NL = If(NCTS_TMP.ncts_Versender_NLNR, "")
|
|
VERAG_NCTS.NCTS_Data.Sender.UID_Nr = If(NCTS_TMP.ConorTra_UIDCtry, "") & If(NCTS_TMP.ConorTra_UID, "")
|
|
VERAG_NCTS.NCTS_Data.Sender.Adress.Country = If(NCTS_TMP.ConorTra_Ctry, "")
|
|
VERAG_NCTS.NCTS_Data.Sender.Adress.Postcode = If(NCTS_TMP.ConorTra_Pst, "")
|
|
VERAG_NCTS.NCTS_Data.Sender.Adress.Street = If(NCTS_TMP.ConorTra_Strt, "")
|
|
VERAG_NCTS.NCTS_Data.Sender.Adress.City = If(NCTS_TMP.ConorTra_Cty, "")
|
|
|
|
'Empfänger
|
|
VERAG_NCTS.NCTS_Data.Consignee.Name = If(NCTS_TMP.ConeeTra_Na, "")
|
|
VERAG_NCTS.NCTS_Data.Consignee.EORI = If(NCTS_TMP.ConeeTra_TIN, "")
|
|
'VERAG_NCTS.NCTS_Data.Consignee.EORI_NL = If(NCTS_TMP.ncts_Versender_NLNR, "")
|
|
VERAG_NCTS.NCTS_Data.Consignee.UID_Nr = If(NCTS_TMP.ConeeTra_UIDCtry, "") & If(NCTS_TMP.ConeeTra_UID, "")
|
|
VERAG_NCTS.NCTS_Data.Consignee.Adress.Country = If(NCTS_TMP.ConeeTra_Ctry, "")
|
|
VERAG_NCTS.NCTS_Data.Consignee.Adress.Postcode = If(NCTS_TMP.ConeeTra_Pst, "")
|
|
VERAG_NCTS.NCTS_Data.Consignee.Adress.Street = If(NCTS_TMP.ConeeTra_Strt, "")
|
|
VERAG_NCTS.NCTS_Data.Consignee.Adress.City = If(NCTS_TMP.ConeeTra_Cty, "")
|
|
|
|
''Frächter
|
|
If GLO_AVISO IsNot Nothing AndAlso GLO_AVISO.Frächter_KdNr > 0 Then
|
|
Dim AD = New VERAG_PROG_ALLGEMEIN.cAdressen(GLO_AVISO.Frächter_KdNr)
|
|
Dim KD = New VERAG_PROG_ALLGEMEIN.cKunde(GLO_AVISO.Frächter_KdNr)
|
|
VERAG_NCTS.NCTS_Data.Carrier.Name = If(AD.Name_1, "")
|
|
VERAG_NCTS.NCTS_Data.Carrier.EORI = If(KD.EORITIN, "")
|
|
VERAG_NCTS.NCTS_Data.Carrier.EORI_NL = If(KD.EORITIN_NL, "")
|
|
VERAG_NCTS.NCTS_Data.Carrier.UID_Nr = If(AD.UstIdKz, "") & If(AD.UstIdNr, "")
|
|
VERAG_NCTS.NCTS_Data.Carrier.Adress.Country = If(AD.LandKz, "")
|
|
VERAG_NCTS.NCTS_Data.Carrier.Adress.Postcode = If(AD.PLZ, "")
|
|
VERAG_NCTS.NCTS_Data.Carrier.Adress.Street = If(AD.Straße, "")
|
|
VERAG_NCTS.NCTS_Data.Carrier.Adress.City = If(AD.Ort, "")
|
|
VERAG_NCTS.NCTS_Data.Carrier.CustomerCode = GLO_AVISO.Frächter_KdNr
|
|
Else
|
|
|
|
'VERAG_NCTS.NCTS_Data.Carrier.Name = If(NCTS_TMP.ConorTra_Na, "")
|
|
'VERAG_NCTS.NCTS_Data.Carrier.EORI = If(NCTS_TMP.ConorTra_TIN, "")
|
|
''VERAG_NCTS.NCTS_Data.Carrier.EORI_NL = If(NCTS_TMP.ncts_Versender_NLNR, "")
|
|
'VERAG_NCTS.NCTS_Data.Carrier.UID_Nr = If(NCTS_TMP.ConorTra_UIDCtry, "") & If(NCTS_TMP.ConorTra_UID, "")
|
|
'VERAG_NCTS.NCTS_Data.Carrier.Adress.Country = If(NCTS_TMP.ConorTra_Ctry, "")
|
|
'VERAG_NCTS.NCTS_Data.Carrier.Adress.Postcode = If(NCTS_TMP.ConorTra_Pst, "")
|
|
'VERAG_NCTS.NCTS_Data.Carrier.Adress.Street = If(NCTS_TMP.ConorTra_Strt, "")
|
|
'VERAG_NCTS.NCTS_Data.Carrier.Adress.City = If(NCTS_TMP.ConorTra_Cty, "")
|
|
End If
|
|
|
|
If GLO_AVISO IsNot Nothing Then
|
|
If GLO_AVISO.KdAuftragsNr_Avisierer IsNot Nothing Then VERAG_NCTS.ClientReference = GLO_AVISO.KdAuftragsNr_Avisierer
|
|
End If
|
|
|
|
If NCTS_TMP.SICHERHEIT IsNot Nothing AndAlso NCTS_TMP.SICHERHEIT.Count > 0 Then
|
|
VERAG_NCTS.NCTS_Data.Guarantee.GRN = If(NCTS_TMP.SICHERHEIT(0).GRN, "")
|
|
VERAG_NCTS.NCTS_Data.Guarantee.Amount = If(NCTS_TMP.SICHERHEIT(0).GVal, "0")
|
|
End If
|
|
|
|
VERAG_NCTS.NCTS_Data.SumGrossWeight = If(NCTS_TMP.Hea_TotGross, "0")
|
|
Dim cntPos = 1
|
|
If NCTS_TMP.POSITIONSDATEN IsNot Nothing Then
|
|
For Each POS In NCTS_TMP.POSITIONSDATEN
|
|
Dim V_POS As New VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS_V2_0_2.VERAG_out_nctsNCTS_DataPosition
|
|
V_POS.PosNr = cntPos
|
|
Dim pkGes = 0
|
|
Dim pkArt = ""
|
|
If POS.PACKSTUECKE IsNot Nothing Then
|
|
For Each PK In POS.PACKSTUECKE
|
|
If PK.Pack_Nr IsNot Nothing Then pkGes += PK.Pack_Nr 'verpackt
|
|
If PK.Pack_Piec IsNot Nothing Then pkGes += PK.Pack_Piec 'unverpackt
|
|
If PK.Pack_Kind IsNot Nothing Then pkArt = PK.Pack_Kind
|
|
Next
|
|
End If
|
|
V_POS.Quantity = pkGes
|
|
V_POS.Packaging = pkArt
|
|
V_POS.GrossWeight = POS.Item_Gross
|
|
V_POS.GoodsDescription = POS.Item_GdsDes
|
|
|
|
VERAG_NCTS.NCTS_Data.Position.Add(V_POS)
|
|
cntPos += 1
|
|
Next
|
|
End If
|
|
UniqueId = NCTS_TMP.telanm_id
|
|
|
|
'If XMLFilePath = "" Then
|
|
' Dim dir = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "ZOLL_SCHNITTSTELLEN\VERAG\NCTS_OUT\TC\" & Now.Year & "\" & Now.ToShortDateString & "\"
|
|
' If Not IO.Directory.Exists(dir) Then IO.Directory.CreateDirectory(dir)
|
|
' XMLFilePath = dir & "VERAG_NCTS_OUT_" & Now.ToString("ddMMyyyHHmmss") & "_TC_" & NCTS_TMP.telanm_id & ".xml"
|
|
'End If
|
|
|
|
|
|
'VERAG_NCTS.SaveToFile(XMLFilePath)
|
|
|
|
Catch ex As Exception
|
|
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & vbNewLine & "BezugsNr: " & NCTS_TMP.telanm_BezugsNr, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
|
Return Nothing
|
|
End Try
|
|
Return VERAG_NCTS
|
|
|
|
|
|
End Function
|
|
Shared Function genVERAG_OUT_NCTS_FromTELOTEC(NCTS_TMP As TELOTEC_Worker.cTelotec_Anmeldung, ByRef UniqueId As String) As VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS.VERAG_out_ncts
|
|
Dim VERAG_NCTS As New VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS.VERAG_out_ncts
|
|
Try
|
|
If NCTS_TMP Is Nothing Then Return Nothing
|
|
If NCTS_TMP.telanm_BezugsNr Is Nothing Then Return Nothing
|
|
If NCTS_TMP.Hea_DecTy Is Nothing Then Return Nothing
|
|
If NCTS_TMP.Hea_DecTy <> "T1" And NCTS_TMP.Hea_DecTy <> "T2" And NCTS_TMP.Hea_DecTy <> "T2L" And NCTS_TMP.Hea_DecTy <> "T-" Then Return Nothing
|
|
|
|
VERAG_NCTS.Version = "2.0.0" ' Automaitsch, weil default ' doch nicht?
|
|
|
|
If NCTS_TMP.telanm_firma <> "" Then
|
|
VERAG_NCTS.Company = NCTS_TMP.telanm_firma
|
|
Else
|
|
VERAG_NCTS.Company = "IMEX"
|
|
End If
|
|
VERAG_NCTS.Department = NCTS_TMP.telanm_niederlassung
|
|
|
|
|
|
'VERAG_NCTS.InternalReference.OfficeCode = If(
|
|
'VERAG_NCTS.InternalReference.PositionNumber = NCTS_TMP.ncts_niederlassung
|
|
Select Case NCTS_TMP.telanm_Status
|
|
Case < 50
|
|
VERAG_NCTS.ProcessData.Status = 0
|
|
Case 50, 53
|
|
VERAG_NCTS.ProcessData.Status = 50
|
|
Case 60
|
|
VERAG_NCTS.ProcessData.Status = 60
|
|
End Select
|
|
|
|
VERAG_NCTS.ProcessData.TransactionDate = NCTS_TMP.dec_CreateDate
|
|
|
|
VERAG_NCTS.ProcessData.MRN = If(NCTS_TMP.telanm_CRN, "")
|
|
VERAG_NCTS.ProcessData.ReferenzNumber = If(NCTS_TMP.telanm_BezugsNr, "")
|
|
VERAG_NCTS.ProcessData.ProcedureCode = If(NCTS_TMP.telanm_ART, "")
|
|
|
|
If NCTS_TMP.CtrlRslt_DLimit IsNot Nothing AndAlso NCTS_TMP.CtrlRslt_DLimit.ToString <> "" Then
|
|
VERAG_NCTS.NCTS_Data.DatDeterminationLimit = CDate(NCTS_TMP.CtrlRslt_DLimit)
|
|
End If
|
|
VERAG_NCTS.NCTS_Data.LicensePlate = If(NCTS_TMP.Transp_DepIdnt, "")
|
|
VERAG_NCTS.NCTS_Data.DepartureCustomsOffice = If(NCTS_TMP.DepCO_Ref, "")
|
|
VERAG_NCTS.NCTS_Data.DestinationCustomsOffice = If(NCTS_TMP.DestCO_Ref, "")
|
|
VERAG_NCTS.NCTS_Data.DepartureCountry = NCTS_TMP.Locs_Disp
|
|
VERAG_NCTS.NCTS_Data.DestinationCountry = If(NCTS_TMP.Locs_Dest, "")
|
|
|
|
'Versender
|
|
VERAG_NCTS.NCTS_Data.Sender.Name = If(NCTS_TMP.ConorTra_Na, "")
|
|
VERAG_NCTS.NCTS_Data.Sender.EORI = If(NCTS_TMP.ConorTra_TIN, "")
|
|
'VERAG_NCTS.NCTS_Data.Sender.EORI_NL = If(NCTS_TMP.ncts_Versender_NLNR, "")
|
|
VERAG_NCTS.NCTS_Data.Sender.UID_Nr = If(NCTS_TMP.ConorTra_UIDCtry, "") & If(NCTS_TMP.ConorTra_UID, "")
|
|
VERAG_NCTS.NCTS_Data.Sender.Adress.Country = If(NCTS_TMP.ConorTra_Ctry, "")
|
|
VERAG_NCTS.NCTS_Data.Sender.Adress.Postcode = If(NCTS_TMP.ConorTra_Pst, "")
|
|
VERAG_NCTS.NCTS_Data.Sender.Adress.Street = If(NCTS_TMP.ConorTra_Strt, "")
|
|
VERAG_NCTS.NCTS_Data.Sender.Adress.City = If(NCTS_TMP.ConorTra_Cty, "")
|
|
|
|
'Empfänger
|
|
VERAG_NCTS.NCTS_Data.Consignee.Name = If(NCTS_TMP.ConeeTra_Na, "")
|
|
VERAG_NCTS.NCTS_Data.Consignee.EORI = If(NCTS_TMP.ConeeTra_TIN, "")
|
|
'VERAG_NCTS.NCTS_Data.Consignee.EORI_NL = If(NCTS_TMP.ncts_Versender_NLNR, "")
|
|
VERAG_NCTS.NCTS_Data.Consignee.UID_Nr = If(NCTS_TMP.ConeeTra_UIDCtry, "") & If(NCTS_TMP.ConeeTra_UID, "")
|
|
VERAG_NCTS.NCTS_Data.Consignee.Adress.Country = If(NCTS_TMP.ConeeTra_Ctry, "")
|
|
VERAG_NCTS.NCTS_Data.Consignee.Adress.Postcode = If(NCTS_TMP.ConeeTra_Pst, "")
|
|
VERAG_NCTS.NCTS_Data.Consignee.Adress.Street = If(NCTS_TMP.ConeeTra_Strt, "")
|
|
VERAG_NCTS.NCTS_Data.Consignee.Adress.City = If(NCTS_TMP.ConeeTra_Cty, "")
|
|
|
|
''Frächter
|
|
'VERAG_NCTS.NCTS_Data.Carrier.Name = If(NCTS_TMP.ConorTra_Na, "")
|
|
'VERAG_NCTS.NCTS_Data.Carrier.EORI = If(NCTS_TMP.ConorTra_TIN, "")
|
|
''VERAG_NCTS.NCTS_Data.Carrier.EORI_NL = If(NCTS_TMP.ncts_Versender_NLNR, "")
|
|
'VERAG_NCTS.NCTS_Data.Carrier.UID_Nr = If(NCTS_TMP.ConorTra_UIDCtry, "") & If(NCTS_TMP.ConorTra_UID, "")
|
|
'VERAG_NCTS.NCTS_Data.Carrier.Adress.Country = If(NCTS_TMP.ConorTra_Ctry, "")
|
|
'VERAG_NCTS.NCTS_Data.Carrier.Adress.Postcode = If(NCTS_TMP.ConorTra_Pst, "")
|
|
'VERAG_NCTS.NCTS_Data.Carrier.Adress.Street = If(NCTS_TMP.ConorTra_Strt, "")
|
|
'VERAG_NCTS.NCTS_Data.Carrier.Adress.City = If(NCTS_TMP.ConorTra_Cty, "")
|
|
|
|
If NCTS_TMP.SICHERHEIT IsNot Nothing AndAlso NCTS_TMP.SICHERHEIT.Count > 0 Then
|
|
VERAG_NCTS.NCTS_Data.Guarantee.GRN = If(NCTS_TMP.SICHERHEIT(0).GRN, "")
|
|
VERAG_NCTS.NCTS_Data.Guarantee.Amount = If(NCTS_TMP.SICHERHEIT(0).GVal, "0")
|
|
End If
|
|
|
|
VERAG_NCTS.NCTS_Data.SumGrossWeight = If(NCTS_TMP.Hea_TotGross, "0")
|
|
Dim cntPos = 1
|
|
If NCTS_TMP.POSITIONSDATEN IsNot Nothing Then
|
|
For Each POS In NCTS_TMP.POSITIONSDATEN
|
|
Dim V_POS As New VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS.VERAG_out_nctsNCTS_DataPosition
|
|
V_POS.PosNr = cntPos
|
|
Dim pkGes = 0
|
|
Dim pkArt = ""
|
|
If POS.PACKSTUECKE IsNot Nothing Then
|
|
For Each PK In POS.PACKSTUECKE
|
|
If PK.Pack_Nr IsNot Nothing Then pkGes += PK.Pack_Nr 'verpackt
|
|
If PK.Pack_Piec IsNot Nothing Then pkGes += PK.Pack_Piec 'unverpackt
|
|
If PK.Pack_Kind IsNot Nothing Then pkArt = PK.Pack_Kind
|
|
Next
|
|
End If
|
|
V_POS.Quantity = pkGes
|
|
V_POS.Packaging = pkArt
|
|
V_POS.GrossWeight = POS.Item_Gross
|
|
V_POS.GoodsDescription = POS.Item_GdsDes
|
|
|
|
VERAG_NCTS.NCTS_Data.Position.Add(V_POS)
|
|
cntPos += 1
|
|
Next
|
|
End If
|
|
UniqueId = NCTS_TMP.telanm_id
|
|
|
|
'If XMLFilePath = "" Then
|
|
' Dim dir = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "ZOLL_SCHNITTSTELLEN\VERAG\NCTS_OUT\TC\" & Now.Year & "\" & Now.ToShortDateString & "\"
|
|
' If Not IO.Directory.Exists(dir) Then IO.Directory.CreateDirectory(dir)
|
|
' XMLFilePath = dir & "VERAG_NCTS_OUT_" & Now.ToString("ddMMyyyHHmmss") & "_TC_" & NCTS_TMP.telanm_id & ".xml"
|
|
'End If
|
|
|
|
|
|
'VERAG_NCTS.SaveToFile(XMLFilePath)
|
|
|
|
Catch ex As Exception
|
|
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & vbNewLine & "BezugsNr: " & NCTS_TMP.telanm_BezugsNr, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
|
Return Nothing
|
|
End Try
|
|
Return VERAG_NCTS
|
|
|
|
End Function
|
|
|
|
|
|
Shared Function insertFTPLOG(filePath As String, user As String, ReferenzNumber As String, ProcedureCode As String, Status As String, vorsystem As String)
|
|
Return SQL.doSQL("INSERT INTO tblFTP_Log (ftp_filepath,ftp_user,ftp_BezugsNr,ftp_art,ftp_status,ftp_vorsystem) VALUES ('" & filePath & "','" & user & "','" & ReferenzNumber & "','" & ProcedureCode & "','" & Status & "','" & vorsystem & "')", "FMZOLL")
|
|
End Function
|
|
|
|
|
|
Shared Function insertFTPLOG(filePath, user, ftp_BezugsNr, ftp_art, ftp_status, ftp_vorsystem)
|
|
Return SQL.doSQL("INSERT INTO tblFTP_Log (ftp_filepath,ftp_user,ftp_BezugsNr,ftp_art,ftp_status,ftp_vorsystem) VALUES ('" & filePath & "','" & user & "','" & ftp_BezugsNr & "','" & ftp_art & "','" & ftp_status & "','" & ftp_vorsystem & "')", "FMZOLL")
|
|
End Function
|
|
|
|
|
|
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 |