875 lines
48 KiB
VB.net
875 lines
48 KiB
VB.net
Public Class cVERAG_out_eza
|
|
Shared SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
|
|
|
|
|
Shared GLO_EZA_DY As DAKOSY_Worker.cDakosyEZA = Nothing
|
|
Shared GLO_DY As DAKOSY_Worker.cDakosy_Zollanmeldungen = Nothing
|
|
Shared GLO_EZA_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(EZA_TMP As DAKOSY_Worker.cDakosyEZa, DY_TMP As DAKOSY_Worker.cDakosy_Zollanmeldungen) ', filePath As String)
|
|
' Try
|
|
' If EZA_TMP Is Nothing Then Return False
|
|
' If EZA_TMP.EZA_ObjectName Is Nothing Then Return False
|
|
' If EZA_TMP.EZA_ObjectName.ToString.StartsWith("DU") Then Return False
|
|
' If EZA_TMP.EZA_firma.ToString = "DURMAZ" Then Return False
|
|
|
|
' Dim filePath = SQL.getValueTxtBySql("select [dySt_pfad] from [tblDakosy_Statusmeldungen] where dySt_BezugsNr='" & EZA_TMP.EZA_ObjectName & "' and [dySt_status]=5 and [dySt_pfad] is not null ", "FMZOLL")
|
|
' If filePath = "" Then Return False
|
|
|
|
' EZA_TMP.LOAD_Sicherheitsangaben()
|
|
' If EZA_TMP.EZA_SICHERHEITSANGABEN IsNot Nothing AndAlso EZA_TMP.EZA_SICHERHEITSANGABEN.Count > 0 Then
|
|
' Dim GRN = EZA_TMP.EZA_SICHERHEITSANGABEN(0).EZASA_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 & EZA_TMP.EZA_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 & EZA_TMP.EZA_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 & EZA_TMP.EZA_ObjectName, "", "copyFileFTP")
|
|
' End Select
|
|
' End If
|
|
' Return True
|
|
' Catch ex As Exception
|
|
' VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & vbNewLine & "BezugsNr: " & EZA_TMP.EZA_ObjectName, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
|
' Return False
|
|
' End Try
|
|
'End Function
|
|
|
|
|
|
|
|
Shared Function copyFileFTP_VERAGEZA_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 EZA_TMP = DAKOSY_Worker.cDakosyEZA.LOADByBezugsNr(BezugsNr, True)
|
|
If DY_TMP Is Nothing Then Return False
|
|
If EZA_TMP Is Nothing Then Return False
|
|
Return copyFileFTP_VERAGEZA_DY(EZA_TMP, DY_TMP, False)
|
|
End Function
|
|
|
|
|
|
Shared Function copyFileFTP_VERAGEZA_DY(EZA_TMP As DAKOSY_Worker.cDakosyEZA, DY_TMP As DAKOSY_Worker.cDakosy_Zollanmeldungen, Optional checkAlreadyProvided As Boolean = True) As Boolean
|
|
Try
|
|
If EZA_TMP Is Nothing Then Return False
|
|
If EZA_TMP.eza_ObjectName Is Nothing Then Return False
|
|
If EZA_TMP.eza_ObjectName.ToString.StartsWith("DU") Then Return False
|
|
If If(EZA_TMP.eza_firma, "").ToString = "DURMAZ" Then Return False
|
|
|
|
GLO_EZA_DY = EZA_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='" & EZA_TMP.EZA_ObjectName & "' and [dySt_status]=5 and [dySt_pfad] is not null ", "FMZOLL")
|
|
|
|
|
|
|
|
Dim destFile = ""
|
|
Dim filePath = ""
|
|
Dim UniqueId = ""
|
|
' --> FTP Bereitstellung
|
|
' Dim VERAG_OUT_EZA As VERAG_PROG_ALLGEMEIN.VERAG_OUT_EZA.VERAG_out_eza = Nothing
|
|
|
|
Dim found As Boolean = False
|
|
Dim vorsystem = "DY"
|
|
Dim IF_Obj As New List(Of cVERAG_InterfaceSharedObjects)
|
|
|
|
If getFTP_Paths(IF_Obj) Then
|
|
|
|
For Each o In IF_Obj
|
|
Select Case o.CooName
|
|
' Case "EKOL"
|
|
Case Else
|
|
Dim VERAG_OUT_EZA = genVERAG_OUT_EZA_FromDAKOSY(EZA_TMP, DY_TMP, UniqueId)
|
|
copyEZAToFTP(VERAG_OUT_EZA, o, vorsystem, filePath, destFile, UniqueId, checkAlreadyProvided, found)
|
|
End Select
|
|
Next
|
|
End If
|
|
|
|
|
|
Return found
|
|
Catch ex As Exception
|
|
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & vbNewLine & "BezugsNr: " & EZA_TMP.eza_ObjectName, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
|
Return False
|
|
End Try
|
|
End Function
|
|
|
|
Shared Function copyFileFTP_VERAGEZA_TC_ByBezugsNr(BezugsNr As String, ISett As cVERAG_Interface_Settings) As Boolean
|
|
cVERAG_Interface_Settings = ISett
|
|
Dim EZA_TMP = TELOTEC_Worker.cTelotec_Anmeldung.LOAD_ByBezugsNr(BezugsNr)
|
|
If EZA_TMP Is Nothing Then Return False
|
|
Return copyFileFTP_VERAGEZA_TC(EZA_TMP, False)
|
|
End Function
|
|
|
|
Shared Function copyFileFTP_VERAGEZA_TC(EZA_TMP As TELOTEC_Worker.cTelotec_Anmeldung, Optional checkAlreadyProvided As Boolean = True) As Boolean
|
|
Return False
|
|
'Try
|
|
' If EZA_TMP Is Nothing Then Return False
|
|
' If EZA_TMP.telanm_BezugsNr Is Nothing Then Return False
|
|
' 'If EZA_TMP.telanm_firma.ToString = "DURMAZ" Then Return False
|
|
' 'Select Case EZA_TMP.telanm_ART
|
|
' ' Case "T1", "T2", "T2L", "T-"
|
|
' ' Case Else
|
|
' ' Return False
|
|
' 'End Select
|
|
|
|
' GLO_SND = Nothing
|
|
' GLO_AVISO = Nothing
|
|
' GLO_EZA_TC = EZA_TMP
|
|
|
|
' If EZA_TMP.telanm_SendungsId IsNot Nothing AndAlso EZA_TMP.telanm_SendungsId > 0 Then
|
|
' GLO_SND = New VERAG_PROG_ALLGEMEIN.cSendungen(EZA_TMP.telanm_SendungsId)
|
|
' End If
|
|
|
|
' If EZA_TMP.telanm_AvisoId IsNot Nothing AndAlso EZA_TMP.telanm_AvisoId > 0 Then
|
|
' GLO_AVISO = VERAG_PROG_ALLGEMEIN.cAviso.getAvisoById(EZA_TMP.telanm_AvisoId)
|
|
' End If
|
|
|
|
' ' Dim filePath = SQL.getValueTxtBySql("select [dySt_pfad] from [tblDakosy_Statusmeldungen] where dySt_BezugsNr='" & EZA_TMP.EZA_ObjectName & "' and [dySt_status]=5 and [dySt_pfad] is not null ", "FMZOLL")
|
|
|
|
' ' EZA_TMP.LOAD_Sicherheitsangaben()
|
|
|
|
' Dim destFile = ""
|
|
' Dim filePath = ""
|
|
' Dim UniqueId = ""
|
|
|
|
' ' --> FTP Bereitstellung
|
|
' 'Dim VERAG_OUT_EZA As VERAG_PROG_ALLGEMEIN.VERAG_OUT_EZA.VERAG_out_eza = Nothing
|
|
' Dim found As Boolean = False
|
|
' Dim vorsystem = "TC"
|
|
|
|
' Dim IF_Obj As New List(Of cVERAG_InterfaceSharedObjects)
|
|
' If getFTP_Paths(IF_Obj) Then
|
|
' For Each o In IF_Obj
|
|
' Select Case o.CooName
|
|
' ' Case ""
|
|
' Case Else
|
|
' Dim VERAG_OUT_EZA = genVERAG_OUT_EZA_FromTELOTEC(EZA_TMP, UniqueId)
|
|
' copyEZAToFTP(VERAG_OUT_EZA, o, vorsystem, filePath, destFile, UniqueId, checkAlreadyProvided, found)
|
|
' End Select
|
|
' Next
|
|
' End If
|
|
|
|
|
|
|
|
' Return found
|
|
'Catch ex As Exception
|
|
' VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & vbNewLine & "BezugsNr: " & EZA_TMP.telanm_BezugsNr, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
|
' Return False
|
|
'End Try
|
|
End Function
|
|
|
|
Shared Sub copyEZAToFTP(ByRef VERAG_OUT_EZA As VERAG_PROG_ALLGEMEIN.VERAG_OUT_EZA.VERAG_out_eza, 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 VERAG_OUT_EZA IsNot Nothing AndAlso Not alreadyProvidedInInterface(VERAG_OUT_EZA.ProcessData.ReferenzNumber, VERAG_OUT_EZA.ProcessData.ProcedureCode, VERAG_OUT_EZA.ProcessData.Status, vorsystem, IF_Obj.CooName, checkAlreadyProvided) Then
|
|
If genXMLFile(VERAG_OUT_EZA, filePath, vorsystem, UniqueId) <> "" Then
|
|
|
|
If Not IO.File.Exists(destFile) Then frmStartOptions.copyFile(filePath, IF_Obj.FTP_Path, destFile)
|
|
If IO.File.Exists(destFile) Then
|
|
insertFTPLOG(destFile, IF_Obj.CooName, VERAG_OUT_EZA.ProcessData.ReferenzNumber, VERAG_OUT_EZA.ProcessData.ProcedureCode, VERAG_OUT_EZA.ProcessData.Status, vorsystem)
|
|
found = True
|
|
Else
|
|
Try
|
|
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Datei existiert nicht: " & destFile, "", "copyEZAToFTP",,,,, VERAG_OUT_EZA.ProcessData.ReferenzNumber)
|
|
Catch
|
|
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Datei existiert nicht: " & destFile, "", "copyEZAToFTP")
|
|
End Try
|
|
End If
|
|
End If
|
|
End If
|
|
|
|
End Sub
|
|
|
|
Shared Function copyFileFTP_VERAGEZA_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_VERAGEZA_EZOLL(AnmId, False)
|
|
End Function
|
|
|
|
Shared Function copyFileFTP_VERAGEZA_EZOLL(AnmId As String, Optional checkAlreadyProvided As Boolean = True) As Boolean
|
|
Return False
|
|
'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 EZA_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 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(IF_Obj) Then
|
|
' For Each o In IF_Obj
|
|
' Select Case o.CooName
|
|
' ' Case "EKOL"
|
|
' Case Else
|
|
' Dim VERAG_OUT_EZA = genVERAG_OUT_EZA_FromEZOLLByAnmId(AnmId, UniqueId)
|
|
' copyEZAToFTP(VERAG_OUT_EZA, o, vorsystem, filePath, destFile, UniqueId, checkAlreadyProvided, found)
|
|
' End Select
|
|
' Next
|
|
' 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(ByRef IF_Obj As List(Of cVERAG_InterfaceSharedObjects)) As Boolean
|
|
IF_Obj = New List(Of cVERAG_InterfaceSharedObjects)
|
|
Try
|
|
|
|
If cVERAG_Interface_Settings.acticeInterface_VERAG Then IF_Obj.Add(New cVERAG_InterfaceSharedObjects(VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\FTP\VERAG\", "VERAG"))
|
|
|
|
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_TEST_EZA() 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 & "','" & VERAG_OUT_EZA.ProcessData.ReferenzNumber & "','" & VERAG_OUT_EZA.ProcessData.ProcedureCode & "','" & VERAG_OUT_EZA.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, 15) = 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_EZA As VERAG_PROG_ALLGEMEIN.VERAG_OUT_EZA.VERAG_out_eza, 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\EZA_OUT\" & Code & "\" & Now.Year & "\" & Now.ToShortDateString & "\"
|
|
If Not IO.Directory.Exists(dir) Then IO.Directory.CreateDirectory(dir)
|
|
XMLFilePath = dir & "VERAG_EZA_OUT_" & Now.ToString("ddMMyyyHHmmss") & "_" & Code & "_" & UniqueId & ".xml"
|
|
While IO.File.Exists(XMLFilePath)
|
|
XMLFilePath = dir & "VERAG_EZA_OUT_" & Now.ToString("ddMMyyyHHmmssffff") & "_" & Code & "_" & UniqueId & ".xml"
|
|
End While
|
|
End If
|
|
If VERAG_EZA IsNot Nothing Then
|
|
VERAG_EZA.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_EZA_FromDAKOSY(EZA_TMP As DAKOSY_Worker.cDakosyEZA, DY_TMP As DAKOSY_Worker.cDakosy_Zollanmeldungen, ByRef UniqueId As String) As VERAG_PROG_ALLGEMEIN.VERAG_OUT_EZA.VERAG_out_eza
|
|
Dim VERAG_EZA As New VERAG_PROG_ALLGEMEIN.VERAG_OUT_EZA.VERAG_out_eza
|
|
Try
|
|
If DY_TMP Is Nothing Then Return Nothing
|
|
If EZA_TMP Is Nothing Then Return Nothing
|
|
If EZA_TMP.eza_ObjectName Is Nothing Then Return Nothing
|
|
EZA_TMP.LOAD_Warenposition()
|
|
|
|
VERAG_EZA.Version = "1.0.0" ' Automaitsch, weil default ' doch nicht?
|
|
|
|
If EZA_TMP.eza_firma <> "" Then
|
|
VERAG_EZA.Company = EZA_TMP.eza_firma
|
|
Else
|
|
VERAG_EZA.Company = "VERAG"
|
|
End If
|
|
VERAG_EZA.Department = EZA_TMP.eza_niederlassung
|
|
|
|
'VERAG_EZA.InternalReference.OfficeCode = If(
|
|
'VERAG_EZA.InternalReference.PositionNumber = EZA_TMP.EZA_niederlassung
|
|
|
|
Select Case DY_TMP.dy_Status
|
|
Case < 50
|
|
VERAG_EZA.ProcessData.Status = 0
|
|
Case 50, 53
|
|
VERAG_EZA.ProcessData.Status = 50
|
|
Case 60
|
|
VERAG_EZA.ProcessData.Status = 60
|
|
End Select
|
|
If GLO_SND IsNot Nothing Then
|
|
VERAG_EZA.InternalReference.OfficeCode = GLO_SND.FilialenNr
|
|
VERAG_EZA.InternalReference.PositionNumber = GLO_SND.AbfertigungsNr
|
|
|
|
VERAG_EZA.EZA_Data.Sender.Name = GLO_SND.tblSnd_Absender
|
|
VERAG_EZA.EZA_Data.Consignee.Name = GLO_SND.tblSnd_Empfaenger
|
|
|
|
End If
|
|
|
|
If GLO_AVISO IsNot Nothing Then
|
|
VERAG_EZA.EZA_Data.LicensePlateContainerNo = GLO_AVISO.LKW_Nr
|
|
|
|
|
|
End If
|
|
|
|
VERAG_EZA.ProcessData.TransactionDate = EZA_TMP.eza_Trans_DatumZeit
|
|
VERAG_EZA.ProcessData.ReferenzNumber = EZA_TMP.eza_ObjectName
|
|
VERAG_EZA.ProcessData.CustomsReferenzNumber = EZA_TMP.eza_ANR
|
|
VERAG_EZA.EZA_Data.SumGrossWeight = If(EZA_TMP.eza_GesamtRohmasse, "0")
|
|
|
|
VERAG_EZA.ProcessData.ReferenzNumber = If(EZA_TMP.eza_ObjectName, "")
|
|
' VERAG_EZA.ProcessData.ProcedureCode = If(EZA_TMP.eza_AnmeldungArt, "") ______-----> ART
|
|
|
|
'VERAGCustomerCode
|
|
|
|
|
|
If VERAG_EZA.EZA_Data.LicensePlateContainerNo Is Nothing Then VERAG_EZA.EZA_Data.LicensePlateContainerNo = If(EZA_TMP.eza_BeförderungsmittelGrenze, "")
|
|
|
|
If EZA_TMP.eza_AdressierteZollstelle IsNot Nothing Then VERAG_EZA.EZA_Data.DestinationCustomsOffice = "DE00" & EZA_TMP.eza_AdressierteZollstelle
|
|
VERAG_EZA.EZA_Data.DepartureCountry = If(EZA_TMP.eza_VersendungsLandCode, "")
|
|
VERAG_EZA.EZA_Data.DestinationCountry = If(EZA_TMP.eza_Bestimmungsland, "")
|
|
|
|
|
|
|
|
''Versender
|
|
'VERAG_EZA.EZA_Data.Sender.Name = If(EZA_TMP.EZA_Versender_Name, "")
|
|
'VERAG_EZA.EZA_Data.Sender.EORI = If(EZA_TMP.EZA_Versender_EORI, "")
|
|
'VERAG_EZA.EZA_Data.Sender.EORI_NL = If(EZA_TMP.EZA_Versender_NLNR, "")
|
|
''VERAG_EZA.EZA_Data.Sender.UID_Nr = If(EZA_TMP.vers, "")
|
|
'VERAG_EZA.EZA_Data.Sender.Adress.Country = If(EZA_TMP.EZA_Versender_Land, "")
|
|
'VERAG_EZA.EZA_Data.Sender.Adress.Postcode = If(EZA_TMP.EZA_Versender_PLZ, "")
|
|
'VERAG_EZA.EZA_Data.Sender.Adress.Street = If(EZA_TMP.EZA_Versender_StrasseHausnummer, "")
|
|
'VERAG_EZA.EZA_Data.Sender.Adress.City = If(EZA_TMP.EZA_Versender_Ort, "")
|
|
|
|
''Empfänger
|
|
'VERAG_EZA.EZA_Data.Consignee.Name = If(EZA_TMP.EZA_Empfaenger_Name, "")
|
|
'VERAG_EZA.EZA_Data.Consignee.EORI = If(EZA_TMP.EZA_Empfaenger_EORI, "")
|
|
'VERAG_EZA.EZA_Data.Consignee.EORI_NL = If(EZA_TMP.EZA_Empfaenger_NLNR, "")
|
|
''VERAG_EZA.EZA_Data.Consignee.UID_Nr = If(EZA_TMP.vers, "")
|
|
'VERAG_EZA.EZA_Data.Consignee.Adress.Country = If(EZA_TMP.EZA_Empfaenger_Land, "")
|
|
'VERAG_EZA.EZA_Data.Consignee.Adress.Postcode = If(EZA_TMP.EZA_Empfaenger_PLZ, "")
|
|
'VERAG_EZA.EZA_Data.Consignee.Adress.Street = If(EZA_TMP.EZA_Empfaenger_StrasseHausnummer, "")
|
|
'VERAG_EZA.EZA_Data.Consignee.Adress.City = If(EZA_TMP.EZA_Empfaenger_Ort, "")
|
|
|
|
For Each ABG In EZA_TMP.eza_AUFSCHUB
|
|
If ABG.ezaAfb_Abgabenbetrag IsNot Nothing AndAlso ABG.ezaAfb_Abgabenbetrag > 0 Then
|
|
Dim V_ABG As New VERAG_PROG_ALLGEMEIN.VERAG_OUT_EZA.VERAG_out_ezaEZA_DataDuty
|
|
' V_ABG.Kind = ABG.ezaAfb_ArtAufschubantrag
|
|
V_ABG.EORI = ABG.ezaAfb_AufschubnehmerEORI
|
|
V_ABG.AccountNumber = ABG.ezaAfb_KontoNr
|
|
|
|
Select Case ABG.ezaAfb_ArtAufschubantrag
|
|
Case "A0000"
|
|
V_ABG.Kind = "01" ' ZOLL
|
|
Case "B0000"
|
|
V_ABG.Kind = "02" 'EUST
|
|
End Select
|
|
End If
|
|
Next
|
|
|
|
Dim cntPos = 1
|
|
If EZA_TMP.eza_WARENPOS IsNot Nothing Then
|
|
For Each POS In EZA_TMP.eza_WARENPOS
|
|
Dim V_POS As New VERAG_PROG_ALLGEMEIN.VERAG_OUT_EZA.VERAG_out_ezaEZA_DataPosition
|
|
V_POS.PosNr = cntPos
|
|
|
|
V_POS.Quantity = POS.ezaWP_PackstueckAnzahl
|
|
V_POS.Packaging = POS.ezaWP_PackstueckArt
|
|
V_POS.GrossWeight = POS.ezaWP_Rohmasse
|
|
V_POS.GoodsDescription = POS.ezaWP_Warenbezeichnung
|
|
'V_POS.DepartureCountry=POS.ezaWP_Aussenhandelsstatistik_Versendungsland
|
|
|
|
V_POS.TariffNumber = POS.ezaWP_WarennummerEZT
|
|
|
|
V_POS.GoodsValue.Value = POS.ezaWP_Artikelpreis
|
|
|
|
For Each UL In POS.ezaWP_UNTERLAGEN
|
|
If If(UL.ezaWpUl_Art, "") = "N380" Then 'Handelsrechnung
|
|
Dim V_DOC As New VERAG_PROG_ALLGEMEIN.VERAG_OUT_EZA.VERAG_out_ezaEZA_DataPositionDocuments
|
|
V_DOC.Invoice.InvoiceNumber = UL.ezaWpUl_Nummer
|
|
V_DOC.Invoice.InvoiceDate = UL.ezaWpUl_DatumAusstellung
|
|
End If
|
|
Next
|
|
VERAG_EZA.EZA_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_EZA.VERAG_out_ezaAttachment
|
|
' ATT.DocumentType = VERAG_PROG_ALLGEMEIN.VERAG_OUT_EZA.VERAG_out_ezaAttachmentDocumentType.EZA
|
|
ATT.FileType = "PDF"
|
|
ATT.Name = "EZA_VBD_" & If(VERAG_EZA.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_EZA.Attachments.Add(ATT)
|
|
End If
|
|
End If
|
|
Catch ex As Exception
|
|
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & vbNewLine & "BezugsNr: " & EZA_TMP.eza_ObjectName, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
|
End Try
|
|
|
|
End If
|
|
'If XMLFilePath = "" Then
|
|
' Dim dir = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "ZOLL_SCHNITTSTELLEN\VERAG\EZA_OUT\DY\" & Now.Year & "\" & Now.ToShortDateString & "\"
|
|
' If Not IO.Directory.Exists(dir) Then IO.Directory.CreateDirectory(dir)
|
|
' XMLFilePath = dir & "VERAG_EZA_OUT_" & Now.ToString("ddMMyyyHHmmss") & "_DY_" & DY_TMP.dy_Id & ".xml"
|
|
'End If
|
|
|
|
UniqueId = DY_TMP.dy_Id
|
|
'VERAG_EZA.SaveToFile(XMLFilePath)
|
|
|
|
Catch ex As Exception
|
|
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & vbNewLine & "BezugsNr: " & EZA_TMP.eza_ObjectName, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
|
Return Nothing
|
|
End Try
|
|
Return VERAG_EZA
|
|
|
|
End Function
|
|
|
|
|
|
|
|
|
|
|
|
Shared Function genVERAG_OUT_EZA_FromEZOLLByLRN(LRN As String, ByRef UniqueId As String) As VERAG_PROG_ALLGEMEIN.VERAG_OUT_EZA.VERAG_out_eza
|
|
|
|
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_EZA_FromEZOLLByAnmId(r.Item("AnmID"), UniqueId)
|
|
End Function
|
|
|
|
Shared Function genVERAG_OUT_EZA_FromEZOLLByAnmId(AnmID As String, ByRef UniqueId As String) As VERAG_PROG_ALLGEMEIN.VERAG_OUT_EZA.VERAG_out_eza
|
|
Return Nothing
|
|
'Dim VERAG_EZA As New VERAG_PROG_ALLGEMEIN.VERAG_OUT_EZA.VERAG_out_eza
|
|
'Dim LRN = ""
|
|
'Try
|
|
|
|
' VERAG_EZA.Version = "1.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_EZA.Company = "VERAG"
|
|
' VERAG_EZA.Department = "SUB"
|
|
' Case "2"
|
|
' VERAG_EZA.Company = "VERAG"
|
|
' VERAG_EZA.Department = "SBG"
|
|
|
|
' Case "3"
|
|
' VERAG_EZA.Company = "VERAG"
|
|
' VERAG_EZA.Department = "NKD"
|
|
' Case "4", "5"
|
|
' VERAG_EZA.Company = "ATILLA"
|
|
' VERAG_EZA.Department = "SUB"
|
|
' Case "6"
|
|
' If LRN.StartsWith("4801") Then
|
|
' VERAG_EZA.Company = "ATILLA"
|
|
' Else
|
|
' VERAG_EZA.Company = "VERAG"
|
|
' End If
|
|
' VERAG_EZA.Department = "SUB"
|
|
' Case "8"
|
|
' VERAG_EZA.Company = "DURMAZ"
|
|
' VERAG_EZA.Department = "SBG"
|
|
' Return Nothing
|
|
' Case Else
|
|
' VERAG_EZA.Company = "ATILLA"
|
|
' VERAG_EZA.Department = "SUB"
|
|
|
|
' End Select
|
|
' End If
|
|
|
|
|
|
' If r.Item("GeaendertAm") IsNot DBNull.Value AndAlso IsDate(r.Item("GeaendertAm")) Then
|
|
' VERAG_EZA.ProcessData.TransactionDate = CDate(r.Item("GeaendertAm")) 'default
|
|
' Else
|
|
' VERAG_EZA.ProcessData.TransactionDate = Now.ToShortDateString
|
|
' End If
|
|
|
|
' VERAG_EZA.ProcessData.MRN = r.Item("CRN")
|
|
' VERAG_EZA.ProcessData.ReferenzNumber = LRN
|
|
|
|
' Select Case (SQL.getValueTxtBySql("SELECT ErledigungsTypID FROM zsAnmDHFRefs WHERE AnmID=" & AnmID & " ORDER BY GeaendertAm DESC", "EZOLL"))
|
|
' Case "F"
|
|
' VERAG_EZA.ProcessData.Status = 50
|
|
' Case "FB"
|
|
' VERAG_EZA.ProcessData.Status = 60
|
|
' Case Else
|
|
' VERAG_EZA.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_EZA.ProcessData.ProcedureCode = rDTzsAnmHea("DecTy")
|
|
' VERAG_EZA.EZA_Data.SumGrossWeight = rDTzsAnmHea("TotGross") 'If(EZA_TMP.EZA_GesamtRohmasse, "0")
|
|
' VERAG_EZA.ProcessData.TransactionDate = CDate(rDTzsAnmHea("DecDT"))
|
|
' End If
|
|
|
|
|
|
|
|
' VERAG_EZA.EZA_Data.DepartureCustomsOffice = SQL.isleernothing(SQL.getValueTxtBySql("SELECT Ref FROM zsAnmDepCO WHERE AnmID=" & AnmID & " ORDER BY GeaendertAm DESC", "EZOLL"))
|
|
' VERAG_EZA.EZA_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_EZA.EZA_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_EZA.EZA_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_EZA.EZA_Data.Sender.Name = DTzsAnmSender.Rows(0).Item("Na")
|
|
' If Not SQL.IsNull(DTzsAnmSender.Rows(0).Item("Na")) Then VERAG_EZA.EZA_Data.Consignee.Name = DTzsAnmSender.Rows(0).Item("Na")
|
|
' If Not SQL.IsNull(DTzsAnmSender.Rows(0).Item("Pst")) Then VERAG_EZA.EZA_Data.Sender.Adress.Postcode = DTzsAnmSender.Rows(0).Item("Pst")
|
|
' If Not SQL.IsNull(DTzsAnmSender.Rows(0).Item("Strt")) Then VERAG_EZA.EZA_Data.Sender.Adress.Street = DTzsAnmSender.Rows(0).Item("Strt")
|
|
' If Not SQL.IsNull(DTzsAnmSender.Rows(0).Item("Cty")) Then VERAG_EZA.EZA_Data.Sender.Adress.City = DTzsAnmSender.Rows(0).Item("Cty")
|
|
' If Not SQL.IsNull(DTzsAnmSender.Rows(0).Item("Ctry")) Then
|
|
' VERAG_EZA.EZA_Data.Sender.Adress.Country = DTzsAnmSender.Rows(0).Item("Ctry")
|
|
' VERAG_EZA.EZA_Data.DepartureCountry = DTzsAnmSender.Rows(0).Item("Ctry")
|
|
' End If
|
|
' If Not SQL.IsNull(DTzsAnmSender.Rows(0).Item("TIN")) Then VERAG_EZA.EZA_Data.Sender.EORI = DTzsAnmSender.Rows(0).Item("TIN")
|
|
' 'VERAG_EZA.EZA_Data.Sender.EORI_NL = If(EZA_TMP.EZA_Empfaenger_NLNR, "")
|
|
' 'VERAG_EZA.EZA_Data.Sender.UID_Nr = If(EZA_TMP.EZA_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_EZA.EZA_Data.Consignee.Name = DTzsAnmConeeTra.Rows(0).Item("Na")
|
|
' If Not SQL.IsNull(DTzsAnmConeeTra.Rows(0).Item("Pst")) Then VERAG_EZA.EZA_Data.Consignee.Adress.Postcode = DTzsAnmConeeTra.Rows(0).Item("Pst")
|
|
' If Not SQL.IsNull(DTzsAnmConeeTra.Rows(0).Item("Strt")) Then VERAG_EZA.EZA_Data.Consignee.Adress.Street = DTzsAnmConeeTra.Rows(0).Item("Strt")
|
|
' If Not SQL.IsNull(DTzsAnmConeeTra.Rows(0).Item("Cty")) Then VERAG_EZA.EZA_Data.Consignee.Adress.City = DTzsAnmConeeTra.Rows(0).Item("Cty")
|
|
' If Not SQL.IsNull(DTzsAnmConeeTra.Rows(0).Item("Ctry")) Then
|
|
' VERAG_EZA.EZA_Data.Consignee.Adress.Country = DTzsAnmConeeTra.Rows(0).Item("Ctry")
|
|
' VERAG_EZA.EZA_Data.DestinationCountry = DTzsAnmConeeTra.Rows(0).Item("Ctry")
|
|
' End If
|
|
' If Not SQL.IsNull(DTzsAnmConeeTra.Rows(0).Item("TIN")) Then VERAG_EZA.EZA_Data.Consignee.EORI = DTzsAnmConeeTra.Rows(0).Item("TIN")
|
|
' 'VERAG_EZA.EZA_Data.Consignee.EORI_NL = If(EZA_TMP.EZA_Empfaenger_NLNR, "")
|
|
' 'VERAG_EZA.EZA_Data.Consignee.UID_Nr = If(EZA_TMP.EZA_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_EZA.EZA_Data.Consignee.Name = DTzsAnmCarrier.Rows(0).Item("Na")
|
|
' If Not SQL.IsNull(DTzsAnmCarrier.Rows(0).Item("Pst")) Then VERAG_EZA.EZA_Data.Carrier.Adress.Postcode = DTzsAnmCarrier.Rows(0).Item("Pst")
|
|
' If Not SQL.IsNull(DTzsAnmCarrier.Rows(0).Item("Strt")) Then VERAG_EZA.EZA_Data.Carrier.Adress.Street = DTzsAnmCarrier.Rows(0).Item("Strt")
|
|
' If Not SQL.IsNull(DTzsAnmCarrier.Rows(0).Item("Cty")) Then VERAG_EZA.EZA_Data.Carrier.Adress.City = DTzsAnmCarrier.Rows(0).Item("Cty")
|
|
' If Not SQL.IsNull(DTzsAnmCarrier.Rows(0).Item("Ctry")) Then VERAG_EZA.EZA_Data.Carrier.Adress.Country = DTzsAnmCarrier.Rows(0).Item("Ctry")
|
|
' If Not SQL.IsNull(DTzsAnmCarrier.Rows(0).Item("TIN")) Then VERAG_EZA.EZA_Data.Carrier.EORI = DTzsAnmCarrier.Rows(0).Item("TIN")
|
|
' 'VERAG_EZA.EZA_Data.Carrier.EORI_NL = If(EZA_TMP.EZA_Empfaenger_NLNR, "")
|
|
' 'VERAG_EZA.EZA_Data.Carrier.UID_Nr = If(EZA_TMP.EZA_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_EZA.EZA_Data.Guarantee.Amount = 0
|
|
' For Each DTzsAnmGrteeGrteeRef_row In DTzsAnmGrteeGrteeRef.Rows()
|
|
' If Not SQL.IsNull(DTzsAnmGrteeGrteeRef_row.item("GRN")) Then VERAG_EZA.EZA_Data.Guarantee.GRN = DTzsAnmGrteeGrteeRef_row.item("GRN")
|
|
' If Not SQL.IsNull(DTzsAnmGrteeGrteeRef_row.item("GVal")) Then VERAG_EZA.EZA_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_EZA.VERAG_out_ezaEZA_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_EZA.EZA_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_EZA
|
|
|
|
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_EZA_FromTELOTEC(EZA_TMP As TELOTEC_Worker.cTelotec_Anmeldung, ByRef UniqueId As String) As VERAG_PROG_ALLGEMEIN.VERAG_OUT_EZA.VERAG_out_eza
|
|
Return Nothing
|
|
'Dim VERAG_EZA As New VERAG_PROG_ALLGEMEIN.VERAG_OUT_EZA.VERAG_out_eza
|
|
'Try
|
|
' If EZA_TMP Is Nothing Then Return Nothing
|
|
' If EZA_TMP.telanm_BezugsNr Is Nothing Then Return Nothing
|
|
' If EZA_TMP.Hea_DecTy Is Nothing Then Return Nothing
|
|
' If EZA_TMP.Hea_DecTy <> "T1" And EZA_TMP.Hea_DecTy <> "T2" And EZA_TMP.Hea_DecTy <> "T2L" And EZA_TMP.Hea_DecTy <> "T-" Then Return Nothing
|
|
|
|
' VERAG_EZA.Version = "1.0.0" ' Automaitsch, weil default ' doch nicht?
|
|
|
|
' If EZA_TMP.telanm_firma <> "" Then
|
|
' VERAG_EZA.Company = EZA_TMP.telanm_firma
|
|
' Else
|
|
' VERAG_EZA.Company = "IMEX"
|
|
' End If
|
|
' VERAG_EZA.Department = EZA_TMP.telanm_niederlassung
|
|
|
|
|
|
' 'VERAG_EZA.InternalReference.OfficeCode = If(
|
|
' 'VERAG_EZA.InternalReference.PositionNumber = EZA_TMP.EZA_niederlassung
|
|
' Select Case EZA_TMP.telanm_Status
|
|
' Case < 50
|
|
' VERAG_EZA.ProcessData.Status = 0
|
|
' Case 50, 53
|
|
' VERAG_EZA.ProcessData.Status = 50
|
|
' Case 60
|
|
' VERAG_EZA.ProcessData.Status = 60
|
|
' End Select
|
|
|
|
' VERAG_EZA.ProcessData.TransactionDate = EZA_TMP.dec_CreateDate
|
|
|
|
' VERAG_EZA.ProcessData.MRN = If(EZA_TMP.telanm_CRN, "")
|
|
' VERAG_EZA.ProcessData.ReferenzNumber = If(EZA_TMP.telanm_BezugsNr, "")
|
|
' VERAG_EZA.ProcessData.ProcedureCode = If(EZA_TMP.telanm_ART, "")
|
|
|
|
' If EZA_TMP.CtrlRslt_DLimit IsNot Nothing AndAlso EZA_TMP.CtrlRslt_DLimit.ToString <> "" Then
|
|
' VERAG_EZA.EZA_Data.DatDeterminationLimit = CDate(EZA_TMP.CtrlRslt_DLimit)
|
|
' End If
|
|
' VERAG_EZA.EZA_Data.LicensePlate = If(EZA_TMP.Transp_DepIdnt, "")
|
|
' VERAG_EZA.EZA_Data.DepartureCustomsOffice = If(EZA_TMP.DepCO_Ref, "")
|
|
' VERAG_EZA.EZA_Data.DestinationCustomsOffice = If(EZA_TMP.DestCO_Ref, "")
|
|
' VERAG_EZA.EZA_Data.DepartureCountry = EZA_TMP.Locs_Disp
|
|
' VERAG_EZA.EZA_Data.DestinationCountry = If(EZA_TMP.Locs_Dest, "")
|
|
|
|
' 'Versender
|
|
' VERAG_EZA.EZA_Data.Sender.Name = If(EZA_TMP.ConorTra_Na, "")
|
|
' VERAG_EZA.EZA_Data.Sender.EORI = If(EZA_TMP.ConorTra_TIN, "")
|
|
' 'VERAG_EZA.EZA_Data.Sender.EORI_NL = If(EZA_TMP.EZA_Versender_NLNR, "")
|
|
' VERAG_EZA.EZA_Data.Sender.UID_Nr = If(EZA_TMP.ConorTra_UIDCtry, "") & If(EZA_TMP.ConorTra_UID, "")
|
|
' VERAG_EZA.EZA_Data.Sender.Adress.Country = If(EZA_TMP.ConorTra_Ctry, "")
|
|
' VERAG_EZA.EZA_Data.Sender.Adress.Postcode = If(EZA_TMP.ConorTra_Pst, "")
|
|
' VERAG_EZA.EZA_Data.Sender.Adress.Street = If(EZA_TMP.ConorTra_Strt, "")
|
|
' VERAG_EZA.EZA_Data.Sender.Adress.City = If(EZA_TMP.ConorTra_Cty, "")
|
|
|
|
' 'Empfänger
|
|
' VERAG_EZA.EZA_Data.Consignee.Name = If(EZA_TMP.ConeeTra_Na, "")
|
|
' VERAG_EZA.EZA_Data.Consignee.EORI = If(EZA_TMP.ConeeTra_TIN, "")
|
|
' 'VERAG_EZA.EZA_Data.Consignee.EORI_NL = If(EZA_TMP.EZA_Versender_NLNR, "")
|
|
' VERAG_EZA.EZA_Data.Consignee.UID_Nr = If(EZA_TMP.ConeeTra_UIDCtry, "") & If(EZA_TMP.ConeeTra_UID, "")
|
|
' VERAG_EZA.EZA_Data.Consignee.Adress.Country = If(EZA_TMP.ConeeTra_Ctry, "")
|
|
' VERAG_EZA.EZA_Data.Consignee.Adress.Postcode = If(EZA_TMP.ConeeTra_Pst, "")
|
|
' VERAG_EZA.EZA_Data.Consignee.Adress.Street = If(EZA_TMP.ConeeTra_Strt, "")
|
|
' VERAG_EZA.EZA_Data.Consignee.Adress.City = If(EZA_TMP.ConeeTra_Cty, "")
|
|
|
|
' ''Frächter
|
|
' 'VERAG_EZA.EZA_Data.Carrier.Name = If(EZA_TMP.ConorTra_Na, "")
|
|
' 'VERAG_EZA.EZA_Data.Carrier.EORI = If(EZA_TMP.ConorTra_TIN, "")
|
|
' ''VERAG_EZA.EZA_Data.Carrier.EORI_NL = If(EZA_TMP.EZA_Versender_NLNR, "")
|
|
' 'VERAG_EZA.EZA_Data.Carrier.UID_Nr = If(EZA_TMP.ConorTra_UIDCtry, "") & If(EZA_TMP.ConorTra_UID, "")
|
|
' 'VERAG_EZA.EZA_Data.Carrier.Adress.Country = If(EZA_TMP.ConorTra_Ctry, "")
|
|
' 'VERAG_EZA.EZA_Data.Carrier.Adress.Postcode = If(EZA_TMP.ConorTra_Pst, "")
|
|
' 'VERAG_EZA.EZA_Data.Carrier.Adress.Street = If(EZA_TMP.ConorTra_Strt, "")
|
|
' 'VERAG_EZA.EZA_Data.Carrier.Adress.City = If(EZA_TMP.ConorTra_Cty, "")
|
|
|
|
' If EZA_TMP.SICHERHEIT IsNot Nothing AndAlso EZA_TMP.SICHERHEIT.Count > 0 Then
|
|
' VERAG_EZA.EZA_Data.Guarantee.GRN = If(EZA_TMP.SICHERHEIT(0).GRN, "")
|
|
' VERAG_EZA.EZA_Data.Guarantee.Amount = If(EZA_TMP.SICHERHEIT(0).GVal, "0")
|
|
' End If
|
|
|
|
' VERAG_EZA.EZA_Data.SumGrossWeight = If(EZA_TMP.Hea_TotGross, "0")
|
|
' Dim cntPos = 1
|
|
' If EZA_TMP.POSITIONSDATEN IsNot Nothing Then
|
|
' For Each POS In EZA_TMP.POSITIONSDATEN
|
|
' Dim V_POS As New VERAG_PROG_ALLGEMEIN.VERAG_OUT_EZA.VERAG_out_ezaEZA_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_EZA.EZA_Data.Position.Add(V_POS)
|
|
' cntPos += 1
|
|
' Next
|
|
' End If
|
|
' UniqueId = EZA_TMP.telanm_id
|
|
|
|
' 'If XMLFilePath = "" Then
|
|
' ' Dim dir = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "ZOLL_SCHNITTSTELLEN\VERAG\EZA_OUT\TC\" & Now.Year & "\" & Now.ToShortDateString & "\"
|
|
' ' If Not IO.Directory.Exists(dir) Then IO.Directory.CreateDirectory(dir)
|
|
' ' XMLFilePath = dir & "VERAG_EZA_OUT_" & Now.ToString("ddMMyyyHHmmss") & "_TC_" & EZA_TMP.telanm_id & ".xml"
|
|
' 'End If
|
|
|
|
|
|
' 'VERAG_EZA.SaveToFile(XMLFilePath)
|
|
|
|
'Catch ex As Exception
|
|
' VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & vbNewLine & "BezugsNr: " & EZA_TMP.telanm_BezugsNr, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
|
' Return Nothing
|
|
'End Try
|
|
'Return VERAG_EZA
|
|
|
|
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
|
|
|