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

neu

Browse Source
This commit is contained in:
Andreas Luxbauer
2019-11-06 16:31:56 +01:00
parent e2c05a5ea3
commit d4dfcd1744
46 changed files with 3412 additions and 678 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
initATLASAufschubkonten/App.config
View File

@@ -1,6 +1,6 @@
<?xml version="1.0" encoding="utf-8"?>
<configuration>
<startup>
<supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.5"/>
<supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.7"/>
</startup>
</configuration>

2
initATLASAufschubkonten/EZollAufschubEinlesen.vb
View File

@@ -21,7 +21,7 @@ Public Class EZollAufschubEinlesen
Dim saveAbgaben = True
Select Case d1.Abgabenart
Case "2EU", "2IG", "2PE", "5EU"
Case "2EU", "2IG", "5EU" ' "2PE",
LeistungsNr = "20"
Case "B00" 'EUST
LeistungsNr = "20"

4
initATLASAufschubkonten/My Project/Application.Designer.vb generated
View File

@@ -14,8 +14,8 @@ Option Explicit On
Namespace My
'HINWEIS: Diese Datei wird automatisch generiert. Ändern Sie sie nicht direkt. Zum Ändern
' oder bei in dieser Datei auftretenden Buildfehlern wechseln Sie zum Projekt-Designer.
'HINWEIS: Diese Datei wird automatisch generiert und darf nicht direkt bearbeitet werden. Wenn Sie Änderungen vornehmen möchten
' oder in dieser Datei Buildfehler auftreten, wechseln Sie zum Projekt-Designer.
' (Wechseln Sie dazu zu den Projekteigenschaften, oder doppelklicken Sie auf den Knoten "Mein Projekt" im
' Projektmappen-Explorer). Nehmen Sie auf der Registerkarte "Anwendung" entsprechende Änderungen vor.
'

2
initATLASAufschubkonten/My Project/Resources.Designer.vb generated
View File

@@ -22,7 +22,7 @@ Namespace My.Resources
'''<summary>
''' Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw.
'''</summary>
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "4.0.0.0"), _
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "15.0.0.0"), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _

6
initATLASAufschubkonten/My Project/Settings.Designer.vb generated
View File

@@ -15,21 +15,21 @@ Option Explicit On
Namespace My
<Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "12.0.0.0"), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "15.9.0.0"), _
Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Partial Friend NotInheritable Class MySettings
Inherits Global.System.Configuration.ApplicationSettingsBase
Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings)
#Region "Funktion zum automatischen Speichern von My.Settings"
#Region "Automatische My.Settings-Speicherfunktion"
#If _MyType = "WindowsForms" Then
Private Shared addedHandler As Boolean
Private Shared addedHandlerLockObject As New Object
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs)
Private Shared Sub AutoSaveSettings(sender As Global.System.Object, e As Global.System.EventArgs)
If My.Application.SaveMySettingsOnExit Then
My.Settings.Save()
End If

8
initATLASAufschubkonten/RoutineManager.vbproj
View File

@@ -11,7 +11,7 @@
<AssemblyName>RoutineManager</AssemblyName>
<FileAlignment>512</FileAlignment>
<MyType>WindowsForms</MyType>
<TargetFrameworkVersion>v4.5</TargetFrameworkVersion>
<TargetFrameworkVersion>v4.7</TargetFrameworkVersion>
<TargetFrameworkProfile />
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
@@ -72,6 +72,11 @@
<SpecificVersion>False</SpecificVersion>
<HintPath>..\..\..\dll\Ghostscript.NET.dll</HintPath>
</Reference>
<Reference Include="GrapeCity.ActiveReports.Chart.v12, Version=12.2.13986.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff" />
<Reference Include="GrapeCity.ActiveReports.Diagnostics.v12, Version=12.2.13986.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff" />
<Reference Include="GrapeCity.ActiveReports.Document.v12, Version=12.2.13986.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff" />
<Reference Include="GrapeCity.ActiveReports.Extensibility.v12, Version=12.2.13986.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff" />
<Reference Include="GrapeCity.ActiveReports.v12, Version=12.2.13986.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff" />
<Reference Include="itextsharp, Version=5.5.5.0, Culture=neutral, PublicKeyToken=8354ae6d2174ddca, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>..\..\..\dll\itextsharp.dll</HintPath>
@@ -111,6 +116,7 @@
<Compile Include="cBuergschaften.vb" />
<Compile Include="cEDI.vb" />
<Compile Include="cGetMsgType.vb" />
<Compile Include="cVERAG_Interface.vb" />
<Compile Include="cWorker_NCTS.vb" />
<Compile Include="EZollAufschubEinlesen.vb" />
<Compile Include="frmMDMNachrichtenVerarbeitung.Designer.vb">

775
initATLASAufschubkonten/cVERAG_Interface.vb Normal file
View File

@@ -0,0 +1,775 @@
Public Class cVERAG_Interface
Shared SQL As New VERAG_PROG_ALLGEMEIN.SQL
'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, "\\192.168.0.91\Datenarchiv\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) As Boolean
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 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")
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 = ""
Dim filePath = ""
Dim UniqueId = ""
' --> FTP Bereitstellung
Dim NCTS_VERAG_OUT As VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS.VERAG_out_ncts = Nothing
Dim FTP_Path = ""
Dim CooName = ""
Dim vorsystem = "DY"
If getPathsByGRN(GRN, FTP_Path, CooName) Then
NCTS_VERAG_OUT = genVERAG_OUT_NCTS_FromDAKOSY(NCTS_TMP, DY_TMP, 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, "", "copyFileFTP")
End If
End If
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, "\\192.168.0.91\Datenarchiv\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
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_TC_ByBezugsNr(BezugsNr As String) As Boolean
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
' 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()
If NCTS_TMP.SICHERHEIT IsNot Nothing AndAlso NCTS_TMP.SICHERHEIT.Count > 0 Then
Dim GRN = NCTS_TMP.SICHERHEIT(0).GRN
Dim destFile = ""
Dim filePath = ""
Dim UniqueId = ""
' --> FTP Bereitstellung
Dim NCTS_VERAG_OUT As VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS.VERAG_out_ncts = Nothing
Dim FTP_Path = ""
Dim CooName = ""
Dim vorsystem = "TC"
If getPathsByGRN(GRN, FTP_Path, CooName) Then
NCTS_VERAG_OUT = genVERAG_OUT_NCTS_FromTELOTEC(NCTS_TMP, 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, "", "copyFileFTP")
End If
End If
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, "\\192.168.0.91\Datenarchiv\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
End If
Return True
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 Function copyFileFTP_VERAGncts_EZOLL_ByBezugsNr(LRN As String) As Boolean
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
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 NCTS_VERAG_OUT As VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS.VERAG_out_ncts = Nothing
Dim FTP_Path = ""
Dim CooName = ""
Dim vorsystem = "DHF"
If getPathsByGRN(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 True
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 getPathsByGRN(GRN, ByRef FTP_Path, ByRef CooName) As Boolean
Select Case GRN
Case "15TR0004000020917", "12TR0004000004665", "17TR0004000032349", "17TR0004000029518"
FTP_Path = "\\ftps.verag.ag\FTP\TOBB\OUT\"
CooName = "TOBB"
Case "18DE0000000073276", "19DE0000000075520", "18DE0000000075520"
FTP_Path = "\\ftps.verag.ag\FTP\OREGON\OUT\"
CooName = "OREGON"
Case "17DE0000000071678", "05AT510000G000FP7" 'VERAG
FTP_Path = "\\192.168.0.91\Datenarchiv\DAKOSY\ECHTSYSTEM\FTP\VERAG\"
CooName = "VERAG"
Case "16AT520000G000VA6" 'IMEX
FTP_Path = "\\192.168.0.91\Datenarchiv\DAKOSY\ECHTSYSTEM\FTP\IMEX\"
CooName = "IMEX"
Case Else
Return False
End Select
Return True
End Function
Shared Function alreadyProvidedInInterface(NCTS_VERAG_OUT As VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS.VERAG_out_ncts, vorsystem 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]='" & NCTS_VERAG_OUT.ProcessData.ReferenzNumber & "' AND [ftp_art]='" & NCTS_VERAG_OUT.ProcessData.ProcedureCode & "' AND [ftp_status]='" & NCTS_VERAG_OUT.ProcessData.Status & "' AND [ftp_vorsystem]='" & vorsystem & "' ", "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 = "\\192.168.0.91\Datenarchiv\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
VERAG_NCTS.SaveToFile(XMLFilePath)
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, "")
VERAG_NCTS.NCTS_Data.DatDeterminationLimit = 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 = "\\192.168.0.91\Datenarchiv\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 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(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, "")
VERAG_NCTS.NCTS_Data.DatDeterminationLimit = If(NCTS_TMP.CtrlRslt_DLimit, "")
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 = "\\192.168.0.91\Datenarchiv\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, NCTS_VERAG_OUT As VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS.VERAG_out_ncts, 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 & "','" & NCTS_VERAG_OUT.ProcessData.ReferenzNumber & "','" & NCTS_VERAG_OUT.ProcessData.ProcedureCode & "','" & NCTS_VERAG_OUT.ProcessData.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

63
initATLASAufschubkonten/cWorker_NCTS.vb
View File

@@ -320,6 +320,18 @@ Public Class cWorker_NCTS
WP.nctsWP_PACKSTUECKE.Add(PST)
Next
End If
If GOODSITEM.Document IsNot Nothing AndAlso GOODSITEM.Document.Count > 0 Then
For Each ULdoc In GOODSITEM.Document
Dim UL = New DAKOSY_Worker.cDakosy_NCTSOut_WarenpositionVorgelegteUnterlagen()
UL.nctsWpUl_Referenz = ULdoc.ReferenceNumber
UL.nctsWpUl_Typ = ULdoc.Type
UL.nctsWpUl_Zusatz = ULdoc.Complement
WP.nctsWP_UNTERLAGEN.Add(UL)
Next
End If
NCTS.ncts_WARENPOS.Add(WP)
Next
End If
@@ -1461,9 +1473,10 @@ Public Class cWorker_NCTS
If DY_TMP IsNot Nothing Then STATUS.dySt_dyId = DY_TMP.dy_Id
STATUS.SAVE()
statusTMP = STATUS
copyFileFTP(NCTS_TMP, DY_TMP)
'If If(NCTS_TMP.ncts_firma, "") = "IMEX" Then NCTS_TMP.insertIntoSpedBuch(DY_TMP)
' BEREITSTELLUNG DER DATEN AN FREMDSYSTEME
cVERAG_Interface.copyFileFTP_VERAGncts_DY(NCTS_TMP, DY_TMP)
NCTS_TMP.insertIntoSpedBuch(DY_TMP)
@@ -1673,6 +1686,9 @@ Public Class cWorker_NCTS
If DY_TMP IsNot Nothing Then STATUS.dySt_dyId = DY_TMP.dy_Id
STATUS.SAVE()
' BEREITSTELLUNG DER DATEN AN FREMDSYSTEME
cVERAG_Interface.copyFileFTP_VERAGncts_DY(NCTS_TMP, DY_TMP)
FORM.addDGVEinarbeitung("NCTS: Erledigungsmeldung", STATUS.dySt_BezugsNr)
End If
@@ -1741,7 +1757,7 @@ Public Class cWorker_NCTS
If DY_TMP IsNot Nothing Then STATUS.dySt_dyId = DY_TMP.dy_Id
STATUS.SAVE()
statusTMP = STATUS
copyFileFTP(NCTS_TMP, DY_TMP)
cVERAG_Interface.copyFileFTP_VERAGncts_DY(NCTS_TMP, DY_TMP)
' If If(NCTS_TMP.ncts_firma, "") = "IMEX" Then
NCTS_TMP.insertIntoSpedBuch(DY_TMP)
@@ -1816,7 +1832,7 @@ Public Class cWorker_NCTS
If DY_TMP IsNot Nothing Then STATUS.dySt_dyId = DY_TMP.dy_Id
STATUS.SAVE()
statusTMP = STATUS
copyFileFTP(NCTS_TMP, DY_TMP)
cVERAG_Interface.copyFileFTP_VERAGncts_DY(NCTS_TMP, DY_TMP)
' If If(NCTS_TMP.ncts_firma, "") = "IMEX" Then
NCTS_TMP.insertIntoSpedBuch(DY_TMP)
@@ -1831,45 +1847,6 @@ Public Class cWorker_NCTS
End Try
End Function
Shared Function copyFileFTP(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"
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, "\\192.168.0.91\Datenarchiv\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 & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name)
Return False
End Try
End Function
Shared Function insertFTPLOG(filePath, user)
Return SQL.doSQL("INSERT INTO tblFTP_Log (ftp_filepath,ftp_user) VALUES ('" & filePath & "','" & user & "')", "FMZOLL")
End Function
Shared Sub SaveNCTS_WGDAT(ByRef NCTS_TMP As DAKOSY_Worker.cDakosyNCTSOut, WGDAT As Object)
If WGDAT IsNot Nothing AndAlso IsDate(WGDAT) Then

397
initATLASAufschubkonten/frmStartOptions.Designer.vb generated
View File

@@ -24,6 +24,8 @@ Partial Class frmStartOptions
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmStartOptions))
Me.pnl = New System.Windows.Forms.Panel()
Me.PictureBox13 = New System.Windows.Forms.PictureBox()
Me.LinkLabel26 = New System.Windows.Forms.LinkLabel()
Me.CheckBox2 = New System.Windows.Forms.CheckBox()
Me.LinkLabel25 = New System.Windows.Forms.LinkLabel()
Me.LinkLabel23 = New System.Windows.Forms.LinkLabel()
@@ -77,8 +79,19 @@ Partial Class frmStartOptions
Me.lklAufschubkontenATLASEZOLL = New System.Windows.Forms.LinkLabel()
Me.lblRoutineManager = New System.Windows.Forms.Label()
Me.MyTextBox1 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.tbcntr = New System.Windows.Forms.TabControl()
Me.TabPage1 = New System.Windows.Forms.TabPage()
Me.TabPage2 = New System.Windows.Forms.TabPage()
Me.LinkLabel27 = New System.Windows.Forms.LinkLabel()
Me.Label6 = New System.Windows.Forms.Label()
Me.Label7 = New System.Windows.Forms.Label()
Me.Button1 = New System.Windows.Forms.Button()
Me.txtVRGOut_BezugsNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label8 = New System.Windows.Forms.Label()
Me.MyComboBox1 = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.PictureBox14 = New System.Windows.Forms.PictureBox()
Me.pnl.SuspendLayout()
CType(Me.PictureBox13, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox12, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox11, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox10, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -92,21 +105,19 @@ Partial Class frmStartOptions
CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.picC0008, System.ComponentModel.ISupportInitialize).BeginInit()
Me.tbcntr.SuspendLayout()
Me.TabPage1.SuspendLayout()
Me.TabPage2.SuspendLayout()
CType(Me.PictureBox14, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'pnl
'
Me.pnl.BackColor = System.Drawing.Color.White
Me.pnl.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.pnl.Controls.Add(Me.Button1)
Me.pnl.Controls.Add(Me.tbcntr)
Me.pnl.Controls.Add(Me.CheckBox2)
Me.pnl.Controls.Add(Me.LinkLabel25)
Me.pnl.Controls.Add(Me.LinkLabel23)
Me.pnl.Controls.Add(Me.LinkLabel24)
Me.pnl.Controls.Add(Me.Label5)
Me.pnl.Controls.Add(Me.LinkLabel21)
Me.pnl.Controls.Add(Me.LinkLabel22)
Me.pnl.Controls.Add(Me.Label4)
Me.pnl.Controls.Add(Me.CheckBox1)
Me.pnl.Controls.Add(Me.cbxBu)
Me.pnl.Controls.Add(Me.cbxKd)
@@ -121,32 +132,8 @@ Partial Class frmStartOptions
Me.pnl.Controls.Add(Me.LinkLabel18)
Me.pnl.Controls.Add(Me.PictureBox9)
Me.pnl.Controls.Add(Me.LinkLabel17)
Me.pnl.Controls.Add(Me.PictureBox8)
Me.pnl.Controls.Add(Me.LinkLabel16)
Me.pnl.Controls.Add(Me.LinkLabel15)
Me.pnl.Controls.Add(Me.cbxHistory)
Me.pnl.Controls.Add(Me.PictureBox7)
Me.pnl.Controls.Add(Me.LinkLabel14)
Me.pnl.Controls.Add(Me.PictureBox6)
Me.pnl.Controls.Add(Me.LinkLabel13)
Me.pnl.Controls.Add(Me.PictureBox5)
Me.pnl.Controls.Add(Me.LinkLabel12)
Me.pnl.Controls.Add(Me.PictureBox4)
Me.pnl.Controls.Add(Me.LinkLabel11)
Me.pnl.Controls.Add(Me.PictureBox3)
Me.pnl.Controls.Add(Me.LinkLabel10)
Me.pnl.Controls.Add(Me.LinkLabel9)
Me.pnl.Controls.Add(Me.PictureBox2)
Me.pnl.Controls.Add(Me.LinkLabel8)
Me.pnl.Controls.Add(Me.PictureBox1)
Me.pnl.Controls.Add(Me.LinkLabel7)
Me.pnl.Controls.Add(Me.LinkLabel6)
Me.pnl.Controls.Add(Me.LinkLabel5)
Me.pnl.Controls.Add(Me.Label2)
Me.pnl.Controls.Add(Me.picC0008)
Me.pnl.Controls.Add(Me.btn)
Me.pnl.Controls.Add(Me.LinkLabel4)
Me.pnl.Controls.Add(Me.Label1)
Me.pnl.Controls.Add(Me.LinkLabel2)
Me.pnl.Controls.Add(Me.LinkLabel1)
Me.pnl.Controls.Add(Me.LinkLabel3)
@@ -158,13 +145,35 @@ Partial Class frmStartOptions
Me.pnl.Size = New System.Drawing.Size(790, 677)
Me.pnl.TabIndex = 0
'
'PictureBox13
'
Me.PictureBox13.BackgroundImage = CType(resources.GetObject("PictureBox13.BackgroundImage"), System.Drawing.Image)
Me.PictureBox13.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.PictureBox13.Location = New System.Drawing.Point(129, 120)
Me.PictureBox13.Name = "PictureBox13"
Me.PictureBox13.Size = New System.Drawing.Size(18, 18)
Me.PictureBox13.TabIndex = 54
Me.PictureBox13.TabStop = False
Me.PictureBox13.Visible = False
'
'LinkLabel26
'
Me.LinkLabel26.AutoSize = True
Me.LinkLabel26.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.LinkLabel26.Location = New System.Drawing.Point(13, 125)
Me.LinkLabel26.Name = "LinkLabel26"
Me.LinkLabel26.Size = New System.Drawing.Size(95, 13)
Me.LinkLabel26.TabIndex = 10
Me.LinkLabel26.TabStop = True
Me.LinkLabel26.Text = "I0700 - Maßeinheit"
'
'CheckBox2
'
Me.CheckBox2.AutoSize = True
Me.CheckBox2.Location = New System.Drawing.Point(302, 151)
Me.CheckBox2.Name = "CheckBox2"
Me.CheckBox2.Size = New System.Drawing.Size(98, 17)
Me.CheckBox2.TabIndex = 51
Me.CheckBox2.TabIndex = 13
Me.CheckBox2.Text = "History (7Tage)"
Me.CheckBox2.UseVisualStyleBackColor = True
'
@@ -175,7 +184,7 @@ Partial Class frmStartOptions
Me.LinkLabel25.Location = New System.Drawing.Point(299, 135)
Me.LinkLabel25.Name = "LinkLabel25"
Me.LinkLabel25.Size = New System.Drawing.Size(99, 13)
Me.LinkLabel25.TabIndex = 50
Me.LinkLabel25.TabIndex = 12
Me.LinkLabel25.TabStop = True
Me.LinkLabel25.Text = "ZOLARIS Anhänge"
'
@@ -183,10 +192,10 @@ Partial Class frmStartOptions
'
Me.LinkLabel23.AutoSize = True
Me.LinkLabel23.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.LinkLabel23.Location = New System.Drawing.Point(299, 620)
Me.LinkLabel23.Location = New System.Drawing.Point(295, 313)
Me.LinkLabel23.Name = "LinkLabel23"
Me.LinkLabel23.Size = New System.Drawing.Size(180, 13)
Me.LinkLabel23.TabIndex = 49
Me.LinkLabel23.TabIndex = 21
Me.LinkLabel23.TabStop = True
Me.LinkLabel23.Text = "Eingangsnachrichten abrufen PROD"
'
@@ -194,10 +203,10 @@ Partial Class frmStartOptions
'
Me.LinkLabel24.AutoSize = True
Me.LinkLabel24.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.LinkLabel24.Location = New System.Drawing.Point(299, 595)
Me.LinkLabel24.Location = New System.Drawing.Point(295, 288)
Me.LinkLabel24.Name = "LinkLabel24"
Me.LinkLabel24.Size = New System.Drawing.Size(177, 13)
Me.LinkLabel24.TabIndex = 48
Me.LinkLabel24.TabIndex = 19
Me.LinkLabel24.TabStop = True
Me.LinkLabel24.Text = "Eingangsnachrichten abrufen TEST"
'
@@ -205,20 +214,20 @@ Partial Class frmStartOptions
'
Me.Label5.AutoSize = True
Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label5.Location = New System.Drawing.Point(299, 568)
Me.Label5.Location = New System.Drawing.Point(295, 261)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(184, 13)
Me.Label5.TabIndex = 47
Me.Label5.TabIndex = 17
Me.Label5.Text = "MDM Nachrichtenverarbeitung:"
'
'LinkLabel21
'
Me.LinkLabel21.AutoSize = True
Me.LinkLabel21.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.LinkLabel21.Location = New System.Drawing.Point(15, 620)
Me.LinkLabel21.Location = New System.Drawing.Point(11, 313)
Me.LinkLabel21.Name = "LinkLabel21"
Me.LinkLabel21.Size = New System.Drawing.Size(180, 13)
Me.LinkLabel21.TabIndex = 46
Me.LinkLabel21.TabIndex = 20
Me.LinkLabel21.TabStop = True
Me.LinkLabel21.Text = "Eingangsnachrichten abrufen PROD"
'
@@ -226,10 +235,10 @@ Partial Class frmStartOptions
'
Me.LinkLabel22.AutoSize = True
Me.LinkLabel22.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.LinkLabel22.Location = New System.Drawing.Point(15, 595)
Me.LinkLabel22.Location = New System.Drawing.Point(11, 288)
Me.LinkLabel22.Name = "LinkLabel22"
Me.LinkLabel22.Size = New System.Drawing.Size(177, 13)
Me.LinkLabel22.TabIndex = 45
Me.LinkLabel22.TabIndex = 18
Me.LinkLabel22.TabStop = True
Me.LinkLabel22.Text = "Eingangsnachrichten abrufen TEST"
'
@@ -237,10 +246,10 @@ Partial Class frmStartOptions
'
Me.Label4.AutoSize = True
Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label4.Location = New System.Drawing.Point(15, 568)
Me.Label4.Location = New System.Drawing.Point(11, 261)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(211, 13)
Me.Label4.TabIndex = 44
Me.Label4.TabIndex = 16
Me.Label4.Text = "TELOTEC Nachrichtenverarbeitung:"
'
'CheckBox1
@@ -250,7 +259,7 @@ Partial Class frmStartOptions
Me.CheckBox1.Location = New System.Drawing.Point(173, 220)
Me.CheckBox1.Name = "CheckBox1"
Me.CheckBox1.Size = New System.Drawing.Size(56, 17)
Me.CheckBox1.TabIndex = 43
Me.CheckBox1.TabIndex = 18
Me.CheckBox1.Text = "öffnen"
Me.CheckBox1.UseVisualStyleBackColor = True
'
@@ -262,7 +271,7 @@ Partial Class frmStartOptions
Me.cbxBu.Location = New System.Drawing.Point(87, 220)
Me.cbxBu.Name = "cbxBu"
Me.cbxBu.Size = New System.Drawing.Size(81, 17)
Me.cbxBu.TabIndex = 42
Me.cbxBu.TabIndex = 17
Me.cbxBu.Text = "Buchungen"
Me.cbxBu.UseVisualStyleBackColor = True
'
@@ -274,7 +283,7 @@ Partial Class frmStartOptions
Me.cbxKd.Location = New System.Drawing.Point(18, 220)
Me.cbxKd.Name = "cbxKd"
Me.cbxKd.Size = New System.Drawing.Size(63, 17)
Me.cbxKd.TabIndex = 41
Me.cbxKd.TabIndex = 16
Me.cbxKd.Text = "Kunden"
Me.cbxKd.UseVisualStyleBackColor = True
'
@@ -286,7 +295,7 @@ Partial Class frmStartOptions
Me.Button9.Location = New System.Drawing.Point(18, 193)
Me.Button9.Name = "Button9"
Me.Button9.Size = New System.Drawing.Size(211, 24)
Me.Button9.TabIndex = 40
Me.Button9.TabIndex = 15
Me.Button9.Text = "Kunden --> DVO"
Me.Button9.UseVisualStyleBackColor = True
'
@@ -297,7 +306,7 @@ Partial Class frmStartOptions
Me.Label3.Location = New System.Drawing.Point(15, 177)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(138, 13)
Me.Label3.TabIndex = 39
Me.Label3.TabIndex = 14
Me.Label3.Text = "Routine Manager IMEX"
'
'PictureBox12
@@ -318,7 +327,7 @@ Partial Class frmStartOptions
Me.LinkLabel20.Location = New System.Drawing.Point(15, 135)
Me.LinkLabel20.Name = "LinkLabel20"
Me.LinkLabel20.Size = New System.Drawing.Size(66, 13)
Me.LinkLabel20.TabIndex = 36
Me.LinkLabel20.TabIndex = 10
Me.LinkLabel20.TabStop = True
Me.LinkLabel20.Text = "UID-Prüfung"
'
@@ -340,7 +349,7 @@ Partial Class frmStartOptions
Me.LinkLabel19.Location = New System.Drawing.Point(479, 99)
Me.LinkLabel19.Name = "LinkLabel19"
Me.LinkLabel19.Size = New System.Drawing.Size(129, 13)
Me.LinkLabel19.TabIndex = 34
Me.LinkLabel19.TabIndex = 9
Me.LinkLabel19.TabStop = True
Me.LinkLabel19.Text = "Währungskurse EZB 90D"
'
@@ -362,7 +371,7 @@ Partial Class frmStartOptions
Me.LinkLabel18.Location = New System.Drawing.Point(479, 78)
Me.LinkLabel18.Name = "LinkLabel18"
Me.LinkLabel18.Size = New System.Drawing.Size(106, 13)
Me.LinkLabel18.TabIndex = 32
Me.LinkLabel18.TabIndex = 7
Me.LinkLabel18.TabStop = True
Me.LinkLabel18.Text = "Währungskurse EZB"
'
@@ -384,7 +393,7 @@ Partial Class frmStartOptions
Me.LinkLabel17.Location = New System.Drawing.Point(479, 51)
Me.LinkLabel17.Name = "LinkLabel17"
Me.LinkLabel17.Size = New System.Drawing.Size(107, 13)
Me.LinkLabel17.TabIndex = 30
Me.LinkLabel17.TabIndex = 4
Me.LinkLabel17.TabStop = True
Me.LinkLabel17.Text = "Bundesanzeiger EZT"
'
@@ -392,7 +401,7 @@ Partial Class frmStartOptions
'
Me.PictureBox8.BackgroundImage = CType(resources.GetObject("PictureBox8.BackgroundImage"), System.Drawing.Image)
Me.PictureBox8.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.PictureBox8.Location = New System.Drawing.Point(634, 397)
Me.PictureBox8.Location = New System.Drawing.Point(630, 90)
Me.PictureBox8.Name = "PictureBox8"
Me.PictureBox8.Size = New System.Drawing.Size(18, 18)
Me.PictureBox8.TabIndex = 29
@@ -403,10 +412,10 @@ Partial Class frmStartOptions
'
Me.LinkLabel16.AutoSize = True
Me.LinkLabel16.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.LinkLabel16.Location = New System.Drawing.Point(479, 402)
Me.LinkLabel16.Location = New System.Drawing.Point(475, 95)
Me.LinkLabel16.Name = "LinkLabel16"
Me.LinkLabel16.Size = New System.Drawing.Size(149, 13)
Me.LinkLabel16.TabIndex = 28
Me.LinkLabel16.TabIndex = 9
Me.LinkLabel16.TabStop = True
Me.LinkLabel16.Text = "I0200 - Unterlageaerten (EZA)"
'
@@ -414,10 +423,10 @@ Partial Class frmStartOptions
'
Me.LinkLabel15.AutoSize = True
Me.LinkLabel15.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.LinkLabel15.Location = New System.Drawing.Point(299, 517)
Me.LinkLabel15.Location = New System.Drawing.Point(295, 210)
Me.LinkLabel15.Name = "LinkLabel15"
Me.LinkLabel15.Size = New System.Drawing.Size(183, 13)
Me.LinkLabel15.TabIndex = 27
Me.LinkLabel15.TabIndex = 15
Me.LinkLabel15.TabStop = True
Me.LinkLabel15.Text = "VERAG Kundendaten senden PROD"
'
@@ -427,7 +436,7 @@ Partial Class frmStartOptions
Me.cbxHistory.Location = New System.Drawing.Point(18, 95)
Me.cbxHistory.Name = "cbxHistory"
Me.cbxHistory.Size = New System.Drawing.Size(58, 17)
Me.cbxHistory.TabIndex = 26
Me.cbxHistory.TabIndex = 8
Me.cbxHistory.Text = "History"
Me.cbxHistory.UseVisualStyleBackColor = True
'
@@ -435,7 +444,7 @@ Partial Class frmStartOptions
'
Me.PictureBox7.BackgroundImage = CType(resources.GetObject("PictureBox7.BackgroundImage"), System.Drawing.Image)
Me.PictureBox7.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.PictureBox7.Location = New System.Drawing.Point(404, 397)
Me.PictureBox7.Location = New System.Drawing.Point(400, 90)
Me.PictureBox7.Name = "PictureBox7"
Me.PictureBox7.Size = New System.Drawing.Size(18, 18)
Me.PictureBox7.TabIndex = 25
@@ -446,10 +455,10 @@ Partial Class frmStartOptions
'
Me.LinkLabel14.AutoSize = True
Me.LinkLabel14.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.LinkLabel14.Location = New System.Drawing.Point(299, 402)
Me.LinkLabel14.Location = New System.Drawing.Point(295, 95)
Me.LinkLabel14.Name = "LinkLabel14"
Me.LinkLabel14.Size = New System.Drawing.Size(99, 13)
Me.LinkLabel14.TabIndex = 24
Me.LinkLabel14.TabIndex = 8
Me.LinkLabel14.TabStop = True
Me.LinkLabel14.Text = "C0013 - Unterlagen"
'
@@ -457,7 +466,7 @@ Partial Class frmStartOptions
'
Me.PictureBox6.BackgroundImage = CType(resources.GetObject("PictureBox6.BackgroundImage"), System.Drawing.Image)
Me.PictureBox6.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.PictureBox6.Location = New System.Drawing.Point(131, 397)
Me.PictureBox6.Location = New System.Drawing.Point(127, 90)
Me.PictureBox6.Name = "PictureBox6"
Me.PictureBox6.Size = New System.Drawing.Size(18, 18)
Me.PictureBox6.TabIndex = 23
@@ -468,10 +477,10 @@ Partial Class frmStartOptions
'
Me.LinkLabel13.AutoSize = True
Me.LinkLabel13.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.LinkLabel13.Location = New System.Drawing.Point(15, 402)
Me.LinkLabel13.Location = New System.Drawing.Point(11, 95)
Me.LinkLabel13.Name = "LinkLabel13"
Me.LinkLabel13.Size = New System.Drawing.Size(110, 13)
Me.LinkLabel13.TabIndex = 22
Me.LinkLabel13.TabIndex = 7
Me.LinkLabel13.TabStop = True
Me.LinkLabel13.Text = "I0400 - Währungsliste"
'
@@ -479,7 +488,7 @@ Partial Class frmStartOptions
'
Me.PictureBox5.BackgroundImage = CType(resources.GetObject("PictureBox5.BackgroundImage"), System.Drawing.Image)
Me.PictureBox5.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.PictureBox5.Location = New System.Drawing.Point(644, 339)
Me.PictureBox5.Location = New System.Drawing.Point(640, 32)
Me.PictureBox5.Name = "PictureBox5"
Me.PictureBox5.Size = New System.Drawing.Size(18, 18)
Me.PictureBox5.TabIndex = 21
@@ -490,10 +499,10 @@ Partial Class frmStartOptions
'
Me.LinkLabel12.AutoSize = True
Me.LinkLabel12.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.LinkLabel12.Location = New System.Drawing.Point(479, 344)
Me.LinkLabel12.Location = New System.Drawing.Point(475, 37)
Me.LinkLabel12.Name = "LinkLabel12"
Me.LinkLabel12.Size = New System.Drawing.Size(159, 13)
Me.LinkLabel12.TabIndex = 20
Me.LinkLabel12.TabIndex = 3
Me.LinkLabel12.TabStop = True
Me.LinkLabel12.Text = "A0127 - Beteiligten-Konstellation"
'
@@ -501,7 +510,7 @@ Partial Class frmStartOptions
'
Me.PictureBox4.BackgroundImage = CType(resources.GetObject("PictureBox4.BackgroundImage"), System.Drawing.Image)
Me.PictureBox4.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.PictureBox4.Location = New System.Drawing.Point(687, 367)
Me.PictureBox4.Location = New System.Drawing.Point(683, 60)
Me.PictureBox4.Name = "PictureBox4"
Me.PictureBox4.Size = New System.Drawing.Size(18, 18)
Me.PictureBox4.TabIndex = 19
@@ -512,10 +521,10 @@ Partial Class frmStartOptions
'
Me.LinkLabel11.AutoSize = True
Me.LinkLabel11.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.LinkLabel11.Location = New System.Drawing.Point(479, 372)
Me.LinkLabel11.Location = New System.Drawing.Point(475, 65)
Me.LinkLabel11.Name = "LinkLabel11"
Me.LinkLabel11.Size = New System.Drawing.Size(202, 13)
Me.LinkLabel11.TabIndex = 18
Me.LinkLabel11.TabIndex = 6
Me.LinkLabel11.TabStop = True
Me.LinkLabel11.Text = "A0122 - Art der Anmeldung (Überführung)"
'
@@ -523,7 +532,7 @@ Partial Class frmStartOptions
'
Me.PictureBox3.BackgroundImage = CType(resources.GetObject("PictureBox3.BackgroundImage"), System.Drawing.Image)
Me.PictureBox3.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.PictureBox3.Location = New System.Drawing.Point(409, 367)
Me.PictureBox3.Location = New System.Drawing.Point(405, 60)
Me.PictureBox3.Name = "PictureBox3"
Me.PictureBox3.Size = New System.Drawing.Size(18, 18)
Me.PictureBox3.TabIndex = 17
@@ -534,10 +543,10 @@ Partial Class frmStartOptions
'
Me.LinkLabel10.AutoSize = True
Me.LinkLabel10.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.LinkLabel10.Location = New System.Drawing.Point(299, 372)
Me.LinkLabel10.Location = New System.Drawing.Point(295, 65)
Me.LinkLabel10.Name = "LinkLabel10"
Me.LinkLabel10.Size = New System.Drawing.Size(104, 13)
Me.LinkLabel10.TabIndex = 16
Me.LinkLabel10.TabIndex = 5
Me.LinkLabel10.TabStop = True
Me.LinkLabel10.Text = "C0010 - AES Länder"
'
@@ -545,10 +554,10 @@ Partial Class frmStartOptions
'
Me.LinkLabel9.AutoSize = True
Me.LinkLabel9.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.LinkLabel9.Location = New System.Drawing.Point(15, 517)
Me.LinkLabel9.Location = New System.Drawing.Point(11, 210)
Me.LinkLabel9.Name = "LinkLabel9"
Me.LinkLabel9.Size = New System.Drawing.Size(180, 13)
Me.LinkLabel9.TabIndex = 15
Me.LinkLabel9.TabIndex = 14
Me.LinkLabel9.TabStop = True
Me.LinkLabel9.Text = "Eingangsnachrichten abrufen PROD"
'
@@ -556,7 +565,7 @@ Partial Class frmStartOptions
'
Me.PictureBox2.BackgroundImage = CType(resources.GetObject("PictureBox2.BackgroundImage"), System.Drawing.Image)
Me.PictureBox2.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.PictureBox2.Location = New System.Drawing.Point(425, 339)
Me.PictureBox2.Location = New System.Drawing.Point(421, 32)
Me.PictureBox2.Name = "PictureBox2"
Me.PictureBox2.Size = New System.Drawing.Size(18, 18)
Me.PictureBox2.TabIndex = 14
@@ -567,10 +576,10 @@ Partial Class frmStartOptions
'
Me.LinkLabel8.AutoSize = True
Me.LinkLabel8.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.LinkLabel8.Location = New System.Drawing.Point(299, 344)
Me.LinkLabel8.Location = New System.Drawing.Point(295, 37)
Me.LinkLabel8.Name = "LinkLabel8"
Me.LinkLabel8.Size = New System.Drawing.Size(120, 13)
Me.LinkLabel8.TabIndex = 13
Me.LinkLabel8.TabIndex = 2
Me.LinkLabel8.TabStop = True
Me.LinkLabel8.Text = "C0014 - Vorpapier Arten"
'
@@ -578,7 +587,7 @@ Partial Class frmStartOptions
'
Me.PictureBox1.BackgroundImage = CType(resources.GetObject("PictureBox1.BackgroundImage"), System.Drawing.Image)
Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.PictureBox1.Location = New System.Drawing.Point(209, 367)
Me.PictureBox1.Location = New System.Drawing.Point(205, 60)
Me.PictureBox1.Name = "PictureBox1"
Me.PictureBox1.Size = New System.Drawing.Size(18, 18)
Me.PictureBox1.TabIndex = 12
@@ -589,10 +598,10 @@ Partial Class frmStartOptions
'
Me.LinkLabel7.AutoSize = True
Me.LinkLabel7.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.LinkLabel7.Location = New System.Drawing.Point(15, 372)
Me.LinkLabel7.Location = New System.Drawing.Point(11, 65)
Me.LinkLabel7.Name = "LinkLabel7"
Me.LinkLabel7.Size = New System.Drawing.Size(188, 13)
Me.LinkLabel7.TabIndex = 11
Me.LinkLabel7.TabIndex = 4
Me.LinkLabel7.TabStop = True
Me.LinkLabel7.Text = "C0017 - Packstücke (Verpackungsart)"
'
@@ -600,10 +609,10 @@ Partial Class frmStartOptions
'
Me.LinkLabel6.AutoSize = True
Me.LinkLabel6.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.LinkLabel6.Location = New System.Drawing.Point(299, 492)
Me.LinkLabel6.Location = New System.Drawing.Point(295, 185)
Me.LinkLabel6.Name = "LinkLabel6"
Me.LinkLabel6.Size = New System.Drawing.Size(180, 13)
Me.LinkLabel6.TabIndex = 10
Me.LinkLabel6.TabIndex = 13
Me.LinkLabel6.TabStop = True
Me.LinkLabel6.Text = "VERAG Kundendaten senden TEST"
'
@@ -611,10 +620,10 @@ Partial Class frmStartOptions
'
Me.LinkLabel5.AutoSize = True
Me.LinkLabel5.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.LinkLabel5.Location = New System.Drawing.Point(15, 492)
Me.LinkLabel5.Location = New System.Drawing.Point(11, 185)
Me.LinkLabel5.Name = "LinkLabel5"
Me.LinkLabel5.Size = New System.Drawing.Size(177, 13)
Me.LinkLabel5.TabIndex = 9
Me.LinkLabel5.TabIndex = 12
Me.LinkLabel5.TabStop = True
Me.LinkLabel5.Text = "Eingangsnachrichten abrufen TEST"
'
@@ -622,17 +631,17 @@ Partial Class frmStartOptions
'
Me.Label2.AutoSize = True
Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label2.Location = New System.Drawing.Point(15, 465)
Me.Label2.Location = New System.Drawing.Point(11, 158)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(205, 13)
Me.Label2.TabIndex = 8
Me.Label2.TabIndex = 11
Me.Label2.Text = "DAKOSY Nachrichtenverarbeitung:"
'
'picC0008
'
Me.picC0008.BackgroundImage = CType(resources.GetObject("picC0008.BackgroundImage"), System.Drawing.Image)
Me.picC0008.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.picC0008.Location = New System.Drawing.Point(133, 339)
Me.picC0008.Location = New System.Drawing.Point(129, 32)
Me.picC0008.Name = "picC0008"
Me.picC0008.Size = New System.Drawing.Size(18, 18)
Me.picC0008.TabIndex = 7
@@ -650,7 +659,7 @@ Partial Class frmStartOptions
Me.btn.Margin = New System.Windows.Forms.Padding(0)
Me.btn.Name = "btn"
Me.btn.Size = New System.Drawing.Size(75, 22)
Me.btn.TabIndex = 6
Me.btn.TabIndex = 0
Me.btn.Text = "X"
Me.btn.UseVisualStyleBackColor = False
'
@@ -658,10 +667,10 @@ Partial Class frmStartOptions
'
Me.LinkLabel4.AutoSize = True
Me.LinkLabel4.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.LinkLabel4.Location = New System.Drawing.Point(15, 344)
Me.LinkLabel4.Location = New System.Drawing.Point(11, 37)
Me.LinkLabel4.Name = "LinkLabel4"
Me.LinkLabel4.Size = New System.Drawing.Size(112, 13)
Me.LinkLabel4.TabIndex = 5
Me.LinkLabel4.TabIndex = 1
Me.LinkLabel4.TabStop = True
Me.LinkLabel4.Text = "C0008 - NCTS Länder"
'
@@ -669,10 +678,10 @@ Partial Class frmStartOptions
'
Me.Label1.AutoSize = True
Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label1.Location = New System.Drawing.Point(15, 311)
Me.Label1.Location = New System.Drawing.Point(8, 11)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(177, 13)
Me.Label1.TabIndex = 4
Me.Label1.TabIndex = 0
Me.Label1.Text = "ZOLL.DE Codelisten einlesen:"
'
'LinkLabel2
@@ -682,7 +691,7 @@ Partial Class frmStartOptions
Me.LinkLabel2.Location = New System.Drawing.Point(299, 78)
Me.LinkLabel2.Name = "LinkLabel2"
Me.LinkLabel2.Size = New System.Drawing.Size(133, 13)
Me.LinkLabel2.TabIndex = 3
Me.LinkLabel2.TabIndex = 6
Me.LinkLabel2.TabStop = True
Me.LinkLabel2.Text = "Bürgschaftsdaten ZODIAK"
'
@@ -693,7 +702,7 @@ Partial Class frmStartOptions
Me.LinkLabel1.Location = New System.Drawing.Point(15, 78)
Me.LinkLabel1.Name = "LinkLabel1"
Me.LinkLabel1.Size = New System.Drawing.Size(182, 13)
Me.LinkLabel1.TabIndex = 2
Me.LinkLabel1.TabIndex = 5
Me.LinkLabel1.TabStop = True
Me.LinkLabel1.Text = "Bürgschaftsdaten ZABIS + ZOLARIS"
'
@@ -704,7 +713,7 @@ Partial Class frmStartOptions
Me.LinkLabel3.Location = New System.Drawing.Point(299, 51)
Me.LinkLabel3.Name = "LinkLabel3"
Me.LinkLabel3.Size = New System.Drawing.Size(128, 13)
Me.LinkLabel3.TabIndex = 1
Me.LinkLabel3.TabIndex = 3
Me.LinkLabel3.TabStop = True
Me.LinkLabel3.Text = "Aufschubkonten ZODIAK"
'
@@ -715,7 +724,7 @@ Partial Class frmStartOptions
Me.lklAufschubkontenATLASEZOLL.Location = New System.Drawing.Point(15, 51)
Me.lklAufschubkontenATLASEZOLL.Name = "lklAufschubkontenATLASEZOLL"
Me.lklAufschubkontenATLASEZOLL.Size = New System.Drawing.Size(177, 13)
Me.lklAufschubkontenATLASEZOLL.TabIndex = 1
Me.lklAufschubkontenATLASEZOLL.TabIndex = 2
Me.lklAufschubkontenATLASEZOLL.TabStop = True
Me.lklAufschubkontenATLASEZOLL.Text = "Aufschubkonten ZABIS + ZOLARIS"
'
@@ -726,7 +735,7 @@ Partial Class frmStartOptions
Me.lblRoutineManager.Location = New System.Drawing.Point(12, 12)
Me.lblRoutineManager.Name = "lblRoutineManager"
Me.lblRoutineManager.Size = New System.Drawing.Size(104, 13)
Me.lblRoutineManager.TabIndex = 0
Me.lblRoutineManager.TabIndex = 1
Me.lblRoutineManager.Text = "Routine Manager"
'
'MyTextBox1
@@ -748,17 +757,178 @@ Partial Class frmStartOptions
Me.MyTextBox1.MaxLines_Warning_Label = Nothing
Me.MyTextBox1.Name = "MyTextBox1"
Me.MyTextBox1.Size = New System.Drawing.Size(53, 20)
Me.MyTextBox1.TabIndex = 38
Me.MyTextBox1.TabIndex = 11
Me.MyTextBox1.Text = "10000"
'
'tbcntr
'
Me.tbcntr.Controls.Add(Me.TabPage1)
Me.tbcntr.Controls.Add(Me.TabPage2)
Me.tbcntr.Dock = System.Windows.Forms.DockStyle.Bottom
Me.tbcntr.Location = New System.Drawing.Point(0, 254)
Me.tbcntr.Name = "tbcntr"
Me.tbcntr.SelectedIndex = 0
Me.tbcntr.Size = New System.Drawing.Size(788, 421)
Me.tbcntr.TabIndex = 19
'
'TabPage1
'
Me.TabPage1.Controls.Add(Me.LinkLabel4)
Me.TabPage1.Controls.Add(Me.PictureBox13)
Me.TabPage1.Controls.Add(Me.picC0008)
Me.TabPage1.Controls.Add(Me.LinkLabel26)
Me.TabPage1.Controls.Add(Me.Label2)
Me.TabPage1.Controls.Add(Me.LinkLabel5)
Me.TabPage1.Controls.Add(Me.LinkLabel6)
Me.TabPage1.Controls.Add(Me.LinkLabel23)
Me.TabPage1.Controls.Add(Me.LinkLabel7)
Me.TabPage1.Controls.Add(Me.LinkLabel24)
Me.TabPage1.Controls.Add(Me.PictureBox1)
Me.TabPage1.Controls.Add(Me.Label5)
Me.TabPage1.Controls.Add(Me.LinkLabel8)
Me.TabPage1.Controls.Add(Me.LinkLabel21)
Me.TabPage1.Controls.Add(Me.PictureBox2)
Me.TabPage1.Controls.Add(Me.LinkLabel22)
Me.TabPage1.Controls.Add(Me.LinkLabel9)
Me.TabPage1.Controls.Add(Me.Label4)
Me.TabPage1.Controls.Add(Me.LinkLabel10)
Me.TabPage1.Controls.Add(Me.Label1)
Me.TabPage1.Controls.Add(Me.PictureBox3)
Me.TabPage1.Controls.Add(Me.LinkLabel11)
Me.TabPage1.Controls.Add(Me.PictureBox4)
Me.TabPage1.Controls.Add(Me.LinkLabel12)
Me.TabPage1.Controls.Add(Me.PictureBox5)
Me.TabPage1.Controls.Add(Me.LinkLabel13)
Me.TabPage1.Controls.Add(Me.PictureBox6)
Me.TabPage1.Controls.Add(Me.LinkLabel14)
Me.TabPage1.Controls.Add(Me.PictureBox7)
Me.TabPage1.Controls.Add(Me.LinkLabel15)
Me.TabPage1.Controls.Add(Me.LinkLabel16)
Me.TabPage1.Controls.Add(Me.PictureBox8)
Me.TabPage1.Location = New System.Drawing.Point(4, 22)
Me.TabPage1.Name = "TabPage1"
Me.TabPage1.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage1.Size = New System.Drawing.Size(780, 395)
Me.TabPage1.TabIndex = 0
Me.TabPage1.Text = "Zollverfahren"
Me.TabPage1.UseVisualStyleBackColor = True
'
'TabPage2
'
Me.TabPage2.Controls.Add(Me.PictureBox14)
Me.TabPage2.Controls.Add(Me.MyComboBox1)
Me.TabPage2.Controls.Add(Me.Label8)
Me.TabPage2.Controls.Add(Me.txtVRGOut_BezugsNr)
Me.TabPage2.Controls.Add(Me.Button1)
Me.TabPage2.Controls.Add(Me.Label7)
Me.TabPage2.Controls.Add(Me.LinkLabel27)
Me.TabPage2.Controls.Add(Me.Label6)
Me.TabPage2.Location = New System.Drawing.Point(4, 22)
Me.TabPage2.Name = "TabPage2"
Me.TabPage2.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage2.Size = New System.Drawing.Size(780, 395)
Me.TabPage2.TabIndex = 1
Me.TabPage2.Text = "VERAG Interface"
Me.TabPage2.UseVisualStyleBackColor = True
'
'LinkLabel27
'
Me.LinkLabel27.AutoSize = True
Me.LinkLabel27.Enabled = False
Me.LinkLabel27.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.LinkLabel27.Location = New System.Drawing.Point(14, 46)
Me.LinkLabel27.Name = "LinkLabel27"
Me.LinkLabel27.Size = New System.Drawing.Size(85, 13)
Me.LinkLabel27.TabIndex = 2
Me.LinkLabel27.TabStop = True
Me.LinkLabel27.Text = "Eingang abrufen"
'
'Label6
'
Me.Label6.AutoSize = True
Me.Label6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label6.Location = New System.Drawing.Point(11, 20)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(66, 13)
Me.Label6.TabIndex = 0
Me.Label6.Text = "VERAG IN"
'
'Label7
'
Me.Label7.AutoSize = True
Me.Label7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label7.Location = New System.Drawing.Point(295, 20)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(79, 13)
Me.Label7.TabIndex = 1
Me.Label7.Text = "VERAG OUT"
'
'Button1
'
Me.Button1.Location = New System.Drawing.Point(489, 221)
Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button1.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button1.Location = New System.Drawing.Point(484, 45)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(198, 34)
Me.Button1.TabIndex = 52
Me.Button1.Size = New System.Drawing.Size(72, 38)
Me.Button1.TabIndex = 6
Me.Button1.Text = "Daten --> FTP"
Me.Button1.UseVisualStyleBackColor = True
'
'txtVRGOut_BezugsNr
'
Me.txtVRGOut_BezugsNr._DateTimeOnly = False
Me.txtVRGOut_BezugsNr._numbersOnly = False
Me.txtVRGOut_BezugsNr._numbersOnlyKommastellen = ""
Me.txtVRGOut_BezugsNr._Prozent = False
Me.txtVRGOut_BezugsNr._ShortDateNew = False
Me.txtVRGOut_BezugsNr._ShortDateOnly = False
Me.txtVRGOut_BezugsNr._TimeOnly = False
Me.txtVRGOut_BezugsNr._value = ""
Me.txtVRGOut_BezugsNr._Waehrung = False
Me.txtVRGOut_BezugsNr._WaehrungZeichen = False
Me.txtVRGOut_BezugsNr.ForeColor = System.Drawing.Color.Red
Me.txtVRGOut_BezugsNr.Location = New System.Drawing.Point(359, 62)
Me.txtVRGOut_BezugsNr.MaxLineLength = -1
Me.txtVRGOut_BezugsNr.MaxLines_Warning = ""
Me.txtVRGOut_BezugsNr.MaxLines_Warning_Label = Nothing
Me.txtVRGOut_BezugsNr.Multiline = True
Me.txtVRGOut_BezugsNr.Name = "txtVRGOut_BezugsNr"
Me.txtVRGOut_BezugsNr.Size = New System.Drawing.Size(119, 21)
Me.txtVRGOut_BezugsNr.TabIndex = 5
'
'Label8
'
Me.Label8.AutoSize = True
Me.Label8.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label8.Location = New System.Drawing.Point(295, 46)
Me.Label8.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(176, 13)
Me.Label8.TabIndex = 3
Me.Label8.Text = "Bereitstellen - Zollysytem/BezugsNr:"
'
'MyComboBox1
'
Me.MyComboBox1._allowedValuesFreiText = Nothing
Me.MyComboBox1._allowFreiText = False
Me.MyComboBox1._value = ""
Me.MyComboBox1.FormattingEnabled = True
Me.MyComboBox1.Location = New System.Drawing.Point(298, 62)
Me.MyComboBox1.Name = "MyComboBox1"
Me.MyComboBox1.Size = New System.Drawing.Size(62, 21)
Me.MyComboBox1.TabIndex = 4
'
'PictureBox14
'
Me.PictureBox14.BackgroundImage = CType(resources.GetObject("PictureBox14.BackgroundImage"), System.Drawing.Image)
Me.PictureBox14.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.PictureBox14.Location = New System.Drawing.Point(562, 65)
Me.PictureBox14.Name = "PictureBox14"
Me.PictureBox14.Size = New System.Drawing.Size(18, 18)
Me.PictureBox14.TabIndex = 56
Me.PictureBox14.TabStop = False
Me.PictureBox14.Visible = False
'
'frmStartOptions
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -774,6 +944,7 @@ Partial Class frmStartOptions
Me.WindowState = System.Windows.Forms.FormWindowState.Minimized
Me.pnl.ResumeLayout(False)
Me.pnl.PerformLayout()
CType(Me.PictureBox13, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox12, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox11, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox10, System.ComponentModel.ISupportInitialize).EndInit()
@@ -787,6 +958,12 @@ Partial Class frmStartOptions
CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.picC0008, System.ComponentModel.ISupportInitialize).EndInit()
Me.tbcntr.ResumeLayout(False)
Me.TabPage1.ResumeLayout(False)
Me.TabPage1.PerformLayout()
Me.TabPage2.ResumeLayout(False)
Me.TabPage2.PerformLayout()
CType(Me.PictureBox14, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
End Sub
@@ -844,5 +1021,17 @@ Partial Class frmStartOptions
Friend WithEvents Label5 As Label
Friend WithEvents LinkLabel25 As LinkLabel
Friend WithEvents CheckBox2 As CheckBox
Friend WithEvents PictureBox13 As PictureBox
Friend WithEvents LinkLabel26 As LinkLabel
Friend WithEvents tbcntr As TabControl
Friend WithEvents TabPage1 As TabPage
Friend WithEvents TabPage2 As TabPage
Friend WithEvents Label7 As Label
Friend WithEvents LinkLabel27 As LinkLabel
Friend WithEvents Label6 As Label
Friend WithEvents MyComboBox1 As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents Label8 As Label
Friend WithEvents txtVRGOut_BezugsNr As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Button1 As Button
Friend WithEvents PictureBox14 As PictureBox
End Class

48
initATLASAufschubkonten/frmStartOptions.resx
View File

@@ -118,6 +118,30 @@
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="PictureBox14.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABEhJREFUSEtj
oDZg4WThlrSSdLPOtc53zHaMl5SUZGBnZ4fKUhMwMjCK6IloGhUYZdn32a/wX+Z/0Ge2z0L9eH0rQVVB
QSZ2JqhCKgEBNQFFoyKjnPAj4cdjz8d+jb8U/z/iaMR9z2WeE3XSdByEdYWFGVkYGaHKKQdWTVYF4YfC
j8VdjPsHwiALYezo89HTzWrNHNj42VigyikHDv0OC2POxrwDWYSOgZY+DNoRNMV5urMdVDn5gFOUU0rJ
VynOd7XvBSwW/QHiHx4LPPYDQ6DUpMzEEKqNPMDKw8on5ywXBHT9w+hT0d/QLPsefTr6Rei+0Iuqwaox
XGJcElBt5AMFT4UIYDBtjzkT8zPuQtxfNAuv+G/wn6CdoG3Bp8AnysjMSH78MXMyc0tZSbnZtNksDtsf
9hJoODiRgC26EPcD6IDbPit9Oo3yjWz4Ffm5gXmTGaqVPMAuwC6il6ZXgx5vsedif4YfDH/kNsdtIlDe
VlRflDo5HpeFkUcj33jM89gqbigux8bNBlVNIeCR4pFX9ldO8F7qfTLyWORHmGUx52N+2/XYrRTRFTFh
42PjAMYZVAcOwMzBzA2MXHUFDwVLGXsZDS4JLjZ0TeyC7CLghDLVeWvU8ahPyL7z3+u/STNdMwSqFD8A
pSBeOV41rTitYr/1ftNd57jmKnorygKDjpUBqQgU1BA0NKsym4JsESifAfFzyxmWXhKeEqxQpfgBpxin
lEqgSnLI3pBn0Wei30aeiNzlucQzWdxEXBKY1+DJGYeF12IuxBTJe8srsfAQkfKBQckFzJgp7vPdD4KS
d9ylOJAhL4AF73aHCQ5RwKpGjomViZWVl1VAP0u/wXeN70WYZbEXYi/7b/Lv0c3Q1eGR5eGBGokfKLgp
hALjZBuyq0EYaOkHoIErzWvN/cWMxSSAcSoLTO57oXK/gPhp4PbAqUAfO7MLsbMBHUVcTQD2FVLGRbIQ
LA5MfdNdZrnYolkIcswSs0ozL2Aw80KNIg5I20h7ApN5lGWdZQfQoPtAA8F1GZLFD4HVznGQZUD6NUgs
8kjka5t2m25pW2kzFm4yShFgvuGVMJEwNq0wrXSd6bopeGfwA2RLkTHIUrfZbnvkXOWCQYkNagT5QNZZ
NsCu225Z9MnoD8By8TfQEkQ5eTHuJzDRHAMmnkJ2EXYhqBbKADCIeIGZ29t9nvvSqJNRL4AW/UKy8L7P
ap8Juum6BsBCgHotI25JbgkZBxkHtVC1JGDc7Qa2UX4CE8n3oJ1B64GpMlpYR5ifmZ2Zyq0iKFANUk3x
WOhxEFgYvLZus64EJhQtqBTtALDEsQ/aHnRf3FTcASpEWwBsbQkBLQW1uqiTUJABFxcXg7y8PJupqSm/
nZ2diL29vSgyBooJm5ub88nKyrIC1VLezgQ2zRk9PT0F6urqVCdNmmQwbdo0Y2Q8efJk3ebmZkVXV1de
CQkJEjM9AwMAOTMC2xlgxuQAAAAASUVORK5CYII=
</value>
</data>
<data name="PictureBox12.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABEhJREFUSEtj
@@ -212,6 +236,30 @@
WOhxEFgYvLZus64EJhQtqBTtALDEsQ/aHnRf3FTcASpEWwBsbQkBLQW1uqiTUJABFxcXg7y8PJupqSm/
nZ2diL29vSgyBooJm5ub88nKyrIC1VLezgQ2zRk9PT0F6urqVCdNmmQwbdo0Y2Q8efJk3ebmZkVXV1de
CQkJEjM9AwMAOTMC2xlgxuQAAAAASUVORK5CYII=
</value>
</data>
<data name="PictureBox13.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABEhJREFUSEtj
oDZg4WThlrSSdLPOtc53zHaMl5SUZGBnZ4fKUhMwMjCK6IloGhUYZdn32a/wX+Z/0Ge2z0L9eH0rQVVB
QSZ2JqhCKgEBNQFFoyKjnPAj4cdjz8d+jb8U/z/iaMR9z2WeE3XSdByEdYWFGVkYGaHKKQdWTVYF4YfC
j8VdjPsHwiALYezo89HTzWrNHNj42VigyikHDv0OC2POxrwDWYSOgZY+DNoRNMV5urMdVDn5gFOUU0rJ
VynOd7XvBSwW/QHiHx4LPPYDQ6DUpMzEEKqNPMDKw8on5ywXBHT9w+hT0d/QLPsefTr6Rei+0Iuqwaox
XGJcElBt5AMFT4UIYDBtjzkT8zPuQtxfNAuv+G/wn6CdoG3Bp8AnysjMSH78MXMyc0tZSbnZtNksDtsf
9hJoODiRgC26EPcD6IDbPit9Oo3yjWz4Ffm5gXmTGaqVPMAuwC6il6ZXgx5vsedif4YfDH/kNsdtIlDe
VlRflDo5HpeFkUcj33jM89gqbigux8bNBlVNIeCR4pFX9ldO8F7qfTLyWORHmGUx52N+2/XYrRTRFTFh
42PjAMYZVAcOwMzBzA2MXHUFDwVLGXsZDS4JLjZ0TeyC7CLghDLVeWvU8ahPyL7z3+u/STNdMwSqFD8A
pSBeOV41rTitYr/1ftNd57jmKnorygKDjpUBqQgU1BA0NKsym4JsESifAfFzyxmWXhKeEqxQpfgBpxin
lEqgSnLI3pBn0Wei30aeiNzlucQzWdxEXBKY1+DJGYeF12IuxBTJe8srsfAQkfKBQckFzJgp7vPdD4KS
d9ylOJAhL4AF73aHCQ5RwKpGjomViZWVl1VAP0u/wXeN70WYZbEXYi/7b/Lv0c3Q1eGR5eGBGokfKLgp
hALjZBuyq0EYaOkHoIErzWvN/cWMxSSAcSoLTO57oXK/gPhp4PbAqUAfO7MLsbMBHUVcTQD2FVLGRbIQ
LA5MfdNdZrnYolkIcswSs0ozL2Aw80KNIg5I20h7ApN5lGWdZQfQoPtAA8F1GZLFD4HVznGQZUD6NUgs
8kjka5t2m25pW2kzFm4yShFgvuGVMJEwNq0wrXSd6bopeGfwA2RLkTHIUrfZbnvkXOWCQYkNagT5QNZZ
NsCu225Z9MnoD8By8TfQEkQ5eTHuJzDRHAMmnkJ2EXYhqBbKADCIeIGZ29t9nvvSqJNRL4AW/UKy8L7P
ap8Juum6BsBCgHotI25JbgkZBxkHtVC1JGDc7Qa2UX4CE8n3oJ1B64GpMlpYR5ifmZ2Zyq0iKFANUk3x
WOhxEFgYvLZus64EJhQtqBTtALDEsQ/aHnRf3FTcASpEWwBsbQkBLQW1uqiTUJABFxcXg7y8PJupqSm/
nZ2diL29vSgyBooJm5ub88nKyrIC1VLezgQ2zRk9PT0F6urqVCdNmmQwbdo0Y2Q8efJk3ebmZkVXV1de
CQkJEjM9AwMAOTMC2xlgxuQAAAAASUVORK5CYII=
</value>
</data>
<data name="PictureBox8.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">

44
initATLASAufschubkonten/frmStartOptions.vb
View File

@@ -39,6 +39,12 @@ Public Class frmStartOptions
timer.Interval = 2500
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
MyComboBox1.Items.Clear()
MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DAKOSY", "DY"))
MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("TELEOTEC", "TC"))
MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DHF", "DHF"))
Dim PARAM = ""
Dim parameter() As String = Environment.GetCommandLineArgs().ToArray
If (parameter.Count - 1) >= 1 Then 'Höher als 1 weil der index 0 der Pfad zum programm ist
@@ -215,6 +221,8 @@ Public Class frmStartOptions
Select Case row("MsgTyp")
Case "EZ922" : DAKOSY_Worker.cZOLL_IMPORT.EZOLLImport(cDHF_Anhaenge.LRN, "EZA")
Case "TR109" : DAKOSY_Worker.cZOLL_IMPORT.EZOLLImport(cDHF_Anhaenge.LRN, "NCTS")
' BEREITSTELLUNG DER DATEN AN FREMDSYSTEME
cVERAG_Interface.copyFileFTP_VERAGncts_EZOLL(cDHF_Anhaenge.AnmID)
Case "EZ923" 'Ergänzung STB - Mitteilung
sql.doSQL("Update Speditionsbuch SET DokumentId_Mitteilung='" & cDHF_Anhaenge.docID & "' WHERE AtlasBezNrEZA='" & cDHF_Anhaenge.LRN & "' AND DokumentId_Mitteilung is null", "FMZOLL")
End Select
@@ -344,7 +352,15 @@ Public Class frmStartOptions
PictureBox4.Visible = False
PictureBox5.Visible = False
PictureBox6.Visible = False
PictureBox7.Visible = False
PictureBox8.Visible = False
PictureBox9.Visible = False
PictureBox10.Visible = False
PictureBox11.Visible = False
PictureBox12.Visible = False
PictureBox13.Visible = False
PictureBox14.Visible = False
End Sub
Private Sub LinkLabel5_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel5.LinkClicked
@@ -902,7 +918,7 @@ Public Class frmStartOptions
importFileFromEZOLL(If(CheckBox2.Checked, Now.AddDays(-7), Now))
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Private Sub Button1_Click(sender As Object, e As EventArgs)
For Each d In System.IO.Directory.GetDirectories("\\192.168.0.91\Datenarchiv\DAKOSY\ECHTSYSTEM\Nachrichtendaten_Ablage\2019")
Dim fid As New FileInfo(d)
If fid.Name >= 20190820 Then
@@ -956,4 +972,30 @@ Public Class frmStartOptions
Next
End Sub
Private Sub LinkLabel26_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel26.LinkClicked
Me.Cursor = Cursors.WaitCursor
Try
DAKOSY_Worker.cIMPORT_Codelisten.IMPORT("I0700", True) 'TESTSYSTEM
Dim erg = DAKOSY_Worker.cIMPORT_Codelisten.IMPORT("I0700", False) 'ECHTSYSTEM
showPic(erg, PictureBox13)
Catch ex As Exception : VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name) : End Try
Me.Cursor = Cursors.Default
End Sub
Private Sub TabPage2_Click(sender As Object, e As EventArgs)
End Sub
Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click
Dim ok As Boolean = False
Select Case MyComboBox1._value
Case "DY" : ok = cVERAG_Interface.copyFileFTP_VERAGncts_DY_ByBezugsNr(txtVRGOut_BezugsNr.Text)
Case "TC" : ok = cVERAG_Interface.copyFileFTP_VERAGncts_TC_ByBezugsNr(txtVRGOut_BezugsNr.Text)
Case "DHF" : ok = cVERAG_Interface.copyFileFTP_VERAGncts_EZOLL_ByBezugsNr(txtVRGOut_BezugsNr.Text)
End Select
showPic(ok, PictureBox14)
End Sub
End Class

31
initATLASAufschubkonten/frmTCNachrichtenVerarbeitung.vb
View File

@@ -519,9 +519,8 @@ Public Class frmTCNachrichtenVerarbeitung
TC.Hea_DecTy = vifDEC.Hea_DecTy
'Art der Anmeldung
Select Case TC.Hea_DecTy
Case "T1" : TC.telanm_ART = "T1"
Case "T2" : TC.telanm_ART = "T2"
Case Else : TC.telanm_ART = TC.Hea_DecTy
Case "T1", "T2", "T2L" : TC.telanm_ART = TC.Hea_DecTy
Case Else : TC.telanm_ART = TC.Hea_DecTy '^^
End Select
TC.MsgType = vifDEC.MsgType
@@ -541,7 +540,7 @@ Public Class frmTCNachrichtenVerarbeitung
'Derzeit nur IMEX
TC.telanm_firma = "IMEX"
TC.telanm_niederlassung = "SUB"
TC.telanm_niederlassung = "Sub"
TC.telanm_Erstellung = Now
TC.telanm_LetzteBearbeitung = Now
@@ -764,7 +763,7 @@ Public Class frmTCNachrichtenVerarbeitung
''''Aktuellste Nachricht
If SQL.getValueTxtBySql("SELECT COUNT(*) FROM [tblTelotec_Anmeldung] WHERE telanm_BezugsNr='" & TC.telanm_BezugsNr & "' and telanm_Status>'" & TC.telanm_Status & "' ", "FMZOLL") > 0 Then
If SQL.getValueTxtBySql("Select COUNT(*) FROM [tblTelotec_Anmeldung] WHERE telanm_BezugsNr='" & TC.telanm_BezugsNr & "' and telanm_Status>'" & TC.telanm_Status & "' ", "FMZOLL") > 0 Then
TC.telnam_aktuellsteNachricht = 0
Else
TC.telnam_aktuellsteNachricht = 1
@@ -772,18 +771,24 @@ Public Class frmTCNachrichtenVerarbeitung
End If
If TC.SAVE() Then
' TELOTEC_Worker.cTELOTEC_Statusmeldungen.InsertStatusMeldung(DY_TMP, TELOTEC_Worker.cDY_Statusliste.S_05)
If If(TC.telanm_Status, 0) = TELOTEC_Worker.cTC_Statusliste.S_60 Then
' TC.insertIntoSpedBuch()
Dim ZOLLIMPORT As New DAKOSY_Worker.cZOLL_IMPORT
ZOLLIMPORT.TelotecImport(TC)
End If
' TELOTEC_Worker.cTELOTEC_Statusmeldungen.InsertStatusMeldung(DY_TMP, TELOTEC_Worker.cDY_Statusliste.S_05)
If If(TC.telanm_Status, 0) = TELOTEC_Worker.cTC_Statusliste.S_60 Then
' TC.insertIntoSpedBuch()
Dim ZOLLIMPORT As New DAKOSY_Worker.cZOLL_IMPORT
ZOLLIMPORT.TelotecImport(TC)
End If
' BEREITSTELLUNG DER DATEN AN FREMDSYSTEME
If TC.telanm_ART = "T1" Or TC.telanm_ART.ToString.Contains("T2") Or TC.telanm_ART.ToString.StartsWith("T-") Then
Select Case TC.telanm_Status
Case TELOTEC_Worker.cTC_Statusliste.S_50, TELOTEC_Worker.cTC_Statusliste.S_60
cVERAG_Interface.copyFileFTP_VERAGncts_TC(TC)
End Select
End If
End If
End If
Try
Try
' System.IO.File.Delete(p)
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name)