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
2021-06-24 23:06:47 +02:00
parent 569991b011
commit 2c80644224
22 changed files with 2133 additions and 926 deletions
Download Patch File Download Diff File Expand all files Collapse all files

381
initATLASAufschubkonten/VERAG_Interface/cVERAG_out_ncts.vb
View File

@@ -47,17 +47,25 @@
Shared Function copyFileFTP_VERAGncts_DY_ByBezugsNr(BezugsNr As String, ISett As cVERAG_Interface_Settings) As Boolean
Shared Function copyFileFTP_VERAGncts_DY_ByBezugsNr(BezugsNr As String, ISett As cVERAG_Interface_Settings, Optional FilialenNrTmp As Object = Nothing, Optional AbfertigungsNrTmp As Object = Nothing) As Boolean
cVERAG_Interface_Settings = ISett
Dim DY_TMP = DAKOSY_Worker.cDakosy_Zollanmeldungen.LOADByBezugsNr(BezugsNr)
Dim NCTS_TMP = DAKOSY_Worker.cDakosyNCTSOut.LOADByBezugsNr(BezugsNr, True)
If DY_TMP Is Nothing Then Return False
If NCTS_TMP Is Nothing Then Return False
Return copyFileFTP_VERAGncts_DY(NCTS_TMP, DY_TMP, False)
Return copyFileFTP_VERAGncts_DY(NCTS_TMP, DY_TMP, False, FilialenNrTmp, AbfertigungsNrTmp)
End Function
Shared Function getLRN_ByCRN(CRN As String) As String
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Return SQL.getValueTxtBySql("SELECT TOP 1 LRN FROM zsAnmRefs WHERE CRN = '" & CRN & "' ORDER BY GeaendertAm DESC", "EZOLL")
End Function
Shared Function getBezugnNr_ByMRN(MRN As String) As String
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Return SQL.getValueTxtBySql(" SELECT TOP 1 ncts_ObjectName FROM tblDakosy_NCTSOut WHERE ncts_MRN = '" & MRN & "' ORDER BY ncts_Trans_DatumZeit DESC", "FMZOLL")
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
Shared Function copyFileFTP_VERAGncts_DY(NCTS_TMP As DAKOSY_Worker.cDakosyNCTSOut, DY_TMP As DAKOSY_Worker.cDakosy_Zollanmeldungen, Optional checkAlreadyProvided As Boolean = True, Optional FilialenNrTmp As Object = Nothing, Optional AbfertigungsNrTmp As Object = Nothing) As Boolean
Try
If NCTS_TMP Is Nothing Then Return False
If NCTS_TMP.ncts_ObjectName Is Nothing Then Return False
@@ -72,13 +80,16 @@
If DY_TMP.dy_SendungsId IsNot Nothing AndAlso DY_TMP.dy_SendungsId > 0 Then
GLO_SND = New VERAG_PROG_ALLGEMEIN.cSendungen(DY_TMP.dy_SendungsId)
ElseIf FilialenNrTmp IsNot Nothing And AbfertigungsNrTmp IsNot Nothing Then
GLO_SND = VERAG_PROG_ALLGEMEIN.cSendungen.LOADByFilialenNrAbfertigungsNr(FilialenNrTmp, AbfertigungsNrTmp)
End If
If DY_TMP.dy_AvisoId IsNot Nothing AndAlso DY_TMP.dy_AvisoId > 0 Then
GLO_AVISO = VERAG_PROG_ALLGEMEIN.cAviso.getAvisoById(DY_TMP.dy_AvisoId)
ElseIf GLO_SND IsNot Nothing Then
GLO_AVISO = VERAG_PROG_ALLGEMEIN.cAviso.getAvisoById(GLO_SND.tblSnd_AvisoID)
End If
' Dim filePath = SQL.getValueTxtBySql("select [dySt_pfad] from [tblDakosy_Statusmeldungen] where dySt_BezugsNr='" & NCTS_TMP.ncts_ObjectName & "' and [dySt_status]=5 and [dySt_pfad] is not null ", "FMZOLL")
Dim GRN = ""
@@ -98,7 +109,6 @@
Dim IF_Obj As New List(Of cVERAG_InterfaceSharedObjects)
If getFTP_Paths(GRN, IF_Obj) Then
For Each o In IF_Obj
Select Case o.CooName
'Case "EKOL", "TOBB"
@@ -119,10 +129,19 @@
'filePath???
cGASTON_SCHUL_Interface.copyNCTSToFTP_V1_0_0(GASTON_SCHUL_EX, o, vorsystem, "", destFile, UniqueId, checkAlreadyProvided, found)
Case "TOBB"
' VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("KONTROLLE --------- TOBB: BezugsNr: " & NCTS_TMP.ncts_ObjectName, "", System.Reflection.MethodInfo.GetCurrentMethod.Name, , "BezugsNr: " & NCTS_TMP.ncts_ObjectName & " (DAKOSY)")
'Wenn TOBB, nur mit KDNR:
If getTOBBKdnr() > 0 Then
Dim NCTS_VERAG_OUT = genVERAG_OUT_NCTS_FromDAKOSY_V2_0_2(NCTS_TMP, DY_TMP, UniqueId, getTOBBKdnr)
If NCTS_VERAG_OUT IsNot Nothing Then copyNCTSToFTP_V2_0_2(NCTS_VERAG_OUT, o, vorsystem, filePath, destFile, UniqueId, checkAlreadyProvided, found)
Else
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("TOBB: KEINE KDNR | BezugsNr: " & NCTS_TMP.ncts_ObjectName & vbNewLine & getTOBBDetails, "", System.Reflection.MethodInfo.GetCurrentMethod.Name, , "BezugsNr: " & NCTS_TMP.ncts_ObjectName & " (DAKOSY)")
End If
Case Else
Dim NCTS_VERAG_OUT = genVERAG_OUT_NCTS_FromDAKOSY_V2_0_2(NCTS_TMP, DY_TMP, UniqueId)
copyNCTSToFTP_V2_0_2(NCTS_VERAG_OUT, o, vorsystem, filePath, destFile, UniqueId, checkAlreadyProvided, found)
If NCTS_VERAG_OUT IsNot Nothing Then copyNCTSToFTP_V2_0_2(NCTS_VERAG_OUT, o, vorsystem, filePath, destFile, UniqueId, checkAlreadyProvided, found)
'Dim NCTS_VERAG_OUT = genVERAG_OUT_NCTS_FromDAKOSY(NCTS_TMP, DY_TMP, UniqueId)
'copyNCTSToFTP(NCTS_VERAG_OUT, o, vorsystem, filePath, destFile, UniqueId, checkAlreadyProvided, found)
End Select
@@ -178,13 +197,13 @@
End Try
End Function
Shared Function copyFileFTP_VERAGncts_TC_ByBezugsNr(BezugsNr As String, ISett As cVERAG_Interface_Settings) As Boolean
Shared Function copyFileFTP_VERAGncts_TC_ByBezugsNr(BezugsNr As String, ISett As cVERAG_Interface_Settings, Optional FilialenNrTmp As Object = Nothing, Optional AbfertigungsNrTmp As Object = Nothing) As Boolean
cVERAG_Interface_Settings = ISett
Dim NCTS_TMP = TELOTEC_Worker.cTelotec_Anmeldung.LOAD_ByBezugsNr(BezugsNr)
If NCTS_TMP Is Nothing Then Return False
Return copyFileFTP_VERAGncts_TC(NCTS_TMP, False)
Return copyFileFTP_VERAGncts_TC(NCTS_TMP, False, FilialenNrTmp, AbfertigungsNrTmp)
End Function
Shared Function copyFileFTP_VERAGncts_TC(NCTS_TMP As TELOTEC_Worker.cTelotec_Anmeldung, Optional checkAlreadyProvided As Boolean = True) As Boolean
Shared Function copyFileFTP_VERAGncts_TC(NCTS_TMP As TELOTEC_Worker.cTelotec_Anmeldung, Optional checkAlreadyProvided As Boolean = True, Optional FilialenNrTmp As Object = Nothing, Optional AbfertigungsNrTmp As Object = Nothing) As Boolean
Try
If NCTS_TMP Is Nothing Then Return False
If NCTS_TMP.telanm_BezugsNr Is Nothing Then Return False
@@ -201,10 +220,14 @@
If NCTS_TMP.telanm_SendungsId IsNot Nothing AndAlso NCTS_TMP.telanm_SendungsId > 0 Then
GLO_SND = New VERAG_PROG_ALLGEMEIN.cSendungen(NCTS_TMP.telanm_SendungsId)
ElseIf FilialenNrTmp IsNot Nothing And AbfertigungsNrTmp IsNot Nothing Then
GLO_SND = VERAG_PROG_ALLGEMEIN.cSendungen.LOADByFilialenNrAbfertigungsNr(FilialenNrTmp, AbfertigungsNrTmp)
End If
If NCTS_TMP.telanm_AvisoId IsNot Nothing AndAlso NCTS_TMP.telanm_AvisoId > 0 Then
GLO_AVISO = VERAG_PROG_ALLGEMEIN.cAviso.getAvisoById(NCTS_TMP.telanm_AvisoId)
ElseIf GLO_SND IsNot Nothing Then
GLO_AVISO = VERAG_PROG_ALLGEMEIN.cAviso.getAvisoById(GLO_SND.tblSnd_AvisoID)
End If
' Dim filePath = SQL.getValueTxtBySql("select [dySt_pfad] from [tblDakosy_Statusmeldungen] where dySt_BezugsNr='" & NCTS_TMP.ncts_ObjectName & "' and [dySt_status]=5 and [dySt_pfad] is not null ", "FMZOLL")
@@ -232,6 +255,16 @@
' 'copyNCTSToFTP_V2_0_1(NCTS_VERAG_OUT, o, vorsystem, filePath, destFile, UniqueId, checkAlreadyProvided, found)
' Dim NCTS_VERAG_OUT = genVERAG_OUT_NCTS_FromTELOTEC_V2_0_2(NCTS_TMP, UniqueId)
' copyNCTSToFTP_V2_0_2(NCTS_VERAG_OUT, o, vorsystem, filePath, destFile, UniqueId, checkAlreadyProvided, found)
Case "TOBB"
' VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("KONTROLLE --------- TOBB: BezugsNr: " & NCTS_TMP.telanm_BezugsNr, "", System.Reflection.MethodInfo.GetCurrentMethod.Name, , "BezugsNr: " & NCTS_TMP.telanm_BezugsNr & " (TELOTEC)")
'Wenn TOBB, nur mit KDNR:
If getTOBBKdnr() > 0 Then
Dim NCTS_VERAG_OUT = genVERAG_OUT_NCTS_FromTELOTEC_V2_0_2(NCTS_TMP, UniqueId, getTOBBKdnr)
copyNCTSToFTP_V2_0_2(NCTS_VERAG_OUT, o, vorsystem, filePath, destFile, UniqueId, checkAlreadyProvided, found)
Else
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("TOBB: KEINE KDNR | BezugsNr: " & NCTS_TMP.telanm_BezugsNr & vbNewLine & getTOBBDetails, "", System.Reflection.MethodInfo.GetCurrentMethod.Name, , "BezugsNr: " & NCTS_TMP.telanm_BezugsNr & " (TELOTEC)")
End If
Case Else
Dim NCTS_VERAG_OUT = genVERAG_OUT_NCTS_FromTELOTEC_V2_0_2(NCTS_TMP, UniqueId)
copyNCTSToFTP_V2_0_2(NCTS_VERAG_OUT, o, vorsystem, filePath, destFile, UniqueId, checkAlreadyProvided, found)
@@ -331,14 +364,14 @@
End Sub
Shared Function copyFileFTP_VERAGncts_EZOLL_ByBezugsNr(LRN As String, ISett As cVERAG_Interface_Settings) As Boolean
Shared Function copyFileFTP_VERAGncts_EZOLL_ByBezugsNr(LRN As String, ISett As cVERAG_Interface_Settings, Optional FilialenNrTmp As Object = Nothing, Optional AbfertigungsNrTmp As Object = Nothing) As Boolean
cVERAG_Interface_Settings = ISett
Dim AnmId = SQL.getValueTxtBySql("SELECT TOP 1 AnmId FROM zsAnmRefs WHERE (VorgangID = 'AV') AND (LRN = '" & LRN & "')", "EZOLL")
If AnmId = "" Then Return False
Return copyFileFTP_VERAGncts_EZOLL(AnmId, False)
Return copyFileFTP_VERAGncts_EZOLL(AnmId, False, FilialenNrTmp, AbfertigungsNrTmp)
End Function
Shared Function copyFileFTP_VERAGncts_EZOLL(AnmId As String, Optional checkAlreadyProvided As Boolean = True) As Boolean
Shared Function copyFileFTP_VERAGncts_EZOLL(AnmId As String, Optional checkAlreadyProvided As Boolean = True, Optional FilialenNrTmp As Object = Nothing, Optional AbfertigungsNrTmp As Object = Nothing) As Boolean
Dim LRN = ""
Try
@@ -352,13 +385,36 @@
If dEZOLL.Rows.Count <= 0 Then Return False
'If NCTS_TMP.telanm_firma.ToString = "DURMAZ" Then Return False
LRN = dEZOLL.Rows(0)("LRN")
GLO_SND = Nothing
GLO_AVISO = Nothing
LRN = dEZOLL.Rows(0)("LRN")
'Versuche
Dim f_tmp As Integer = -1
Dim a_tmp As Integer = -1
If LRN.Length >= 13 Then
If IsNumeric(LRN.Substring(0, 4)) Then
f_tmp = LRN.Substring(0, 4)
End If
If IsNumeric(LRN.Substring(5, 8)) Then
a_tmp = LRN.Substring(5, 8)
End If
End If
If f_tmp > 0 And a_tmp > 0 Then
GLO_SND = VERAG_PROG_ALLGEMEIN.cSendungen.LOADByFilialenNrAbfertigungsNr(f_tmp, a_tmp)
ElseIf FilialenNrTmp IsNot Nothing And AbfertigungsNrTmp IsNot Nothing Then
GLO_SND = VERAG_PROG_ALLGEMEIN.cSendungen.LOADByFilialenNrAbfertigungsNr(FilialenNrTmp, AbfertigungsNrTmp)
End If
If GLO_SND IsNot Nothing Then
GLO_AVISO = VERAG_PROG_ALLGEMEIN.cAviso.getAvisoById(GLO_SND.tblSnd_AvisoID)
End If
Select Case SQL.getValueTxtBySql("SELECT TOP 1 DecTy FROM zsAnmHea WHERE (VorgangID = 'AV') AND (AnmId = '" & AnmId & "')", "EZOLL")
Case "T1", "T2", "T2L", "T-"
Case Else
@@ -383,9 +439,19 @@
' 'copyNCTSToFTP_V2_0_1(NCTS_VERAG_OUT, o, vorsystem, filePath, destFile, UniqueId, checkAlreadyProvided, found)
' Dim NCTS_VERAG_OUT = genVERAG_OUT_NCTS_FromEZOLLByAnmId_V2_0_2(AnmId, UniqueId)
' copyNCTSToFTP_V2_0_2(NCTS_VERAG_OUT, o, vorsystem, filePath, destFile, UniqueId, checkAlreadyProvided, found)
Case "TOBB"
'VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("KONTROLLE --------- TOBB: BezugsNr: " & LRN, "", System.Reflection.MethodInfo.GetCurrentMethod.Name, , "BezugsNr: " & LRN & " (DHF/EZOLL)")
'Wenn TOBB, nur mit KDNR:
If getTOBBKdnr() > 0 Then
Dim NCTS_VERAG_OUT = genVERAG_OUT_NCTS_FromEZOLLByAnmId_V2_0_2(AnmId, UniqueId, getTOBBKdnr)
If NCTS_VERAG_OUT IsNot Nothing Then copyNCTSToFTP_V2_0_2(NCTS_VERAG_OUT, o, vorsystem, filePath, destFile, UniqueId, checkAlreadyProvided, found)
Else
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("TOBB: KEINE KDNR | BezugsNr: " & LRN & vbNewLine & getTOBBDetails, "", System.Reflection.MethodInfo.GetCurrentMethod.Name, , "BezugsNr: " & LRN & " (DHF/EZOLL)")
End If
Case Else
Dim NCTS_VERAG_OUT = genVERAG_OUT_NCTS_FromEZOLLByAnmId_V2_0_2(AnmId, UniqueId)
copyNCTSToFTP_V2_0_2(NCTS_VERAG_OUT, o, vorsystem, filePath, destFile, UniqueId, checkAlreadyProvided, found)
If NCTS_VERAG_OUT IsNot Nothing Then copyNCTSToFTP_V2_0_2(NCTS_VERAG_OUT, o, vorsystem, filePath, destFile, UniqueId, checkAlreadyProvided, found)
'Dim NCTS_VERAG_OUT = genVERAG_OUT_NCTS_FromEZOLLByAnmId(AnmId, UniqueId)
'copyNCTSToFTP(NCTS_VERAG_OUT, o, vorsystem, filePath, destFile, UniqueId, checkAlreadyProvided, found)
End Select
@@ -412,14 +478,16 @@
Shared Function getFTP_Paths(GRN As String, ByRef IF_Obj As List(Of cVERAG_InterfaceSharedObjects)) As Boolean
IF_Obj = New List(Of cVERAG_InterfaceSharedObjects)
Try
Select Case GRN
Case "15TR0004000020917", "12TR0004000004665", "17TR0004000032349", "17TR0004000029518"
If cVERAG_Interface_Settings.acticeInterface_TOBB Then IF_Obj.Add(New cVERAG_InterfaceSharedObjects("\\ftps.verag.ag\FTP\TOBB\OUT\", "TOBB"))
Case "18DE0000000073276", "19DE0000000075520", "18DE0000000075520", "15TR0004000020500"
If cVERAG_Interface_Settings.acticeInterface_OREGON Then IF_Obj.Add(New cVERAG_InterfaceSharedObjects("\\ftps.verag.ag\FTP\OREGON\OUT\", " "))
If cVERAG_Interface_Settings.acticeInterface_TOBB Then IF_Obj.Add(New cVERAG_InterfaceSharedObjects("\\ftps.verag.ag\FTP\TOBB\OUT\", "TOBB")) : IF_Obj.Add(New cVERAG_InterfaceSharedObjects("\\datenarchiv\Datenarchiv\DAKOSY\ECHTSYSTEM\FTP\TOBB\", "TOBB"))
Case "18DE0000000073276", "19DE0000000075520", "18DE0000000075520", "15TR0004000020500", "ITTR0000000000153"
If cVERAG_Interface_Settings.acticeInterface_OREGON Then IF_Obj.Add(New cVERAG_InterfaceSharedObjects("\\ftps.verag.ag\FTP\OREGON\OUT\", "OREGON")) : IF_Obj.Add(New cVERAG_InterfaceSharedObjects("\\datenarchiv\Datenarchiv\DAKOSY\ECHTSYSTEM\FTP\OREGON\", "OREGON"))
Case "17DE0000000071678", "05AT510000G000FP7" 'VERAG
If cVERAG_Interface_Settings.acticeInterface_VERAG Then IF_Obj.Add(New cVERAG_InterfaceSharedObjects(VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\FTP\VERAG\", "VERAG"))
Case "16AT520000G000VA6" 'IMEX
@@ -440,22 +508,47 @@
End Function
'Shared Function isFTP_EKOL_NCTS_OLD() As Boolean
' Try
' If GLO_AVISO IsNot Nothing Then ' FRÄCHTER,AVISIERER
' If GLO_AVISO.Frächter_KdNr > 0 Then
' Select Case GLO_AVISO.Frächter_KdNr
' Case 724284, 717845, 709869, 629246, 100041, 609759, 703729, 711217 'Zukunft: Kundenstamm--> NCTS_OUT_Partnersystem = "EKOL"
' Return True
' End Select
' Select Case GLO_AVISO.Auftraggeber_KdNr
' Case 724284, 717845, 709869, 629246, 100041, 609759, 703729, 711217
' Return True
' End Select
' End If
' If GLO_AVISO.Frächter.ToUpper.StartsWith("EKOL") Then Return True
' If GLO_AVISO.Auftraggeber.ToUpper.StartsWith("EKOL") Then Return True
' End If
' Catch ex As Exception
' VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & vbNewLine, System.Reflection.MethodInfo.GetCurrentMethod.Name)
' End Try
' Return False
'End Function
Shared Function isFTP_EKOL_NCTS() As Boolean
Try
If GLO_AVISO IsNot Nothing Then ' FRÄCHTER,AVISIERER
If GLO_AVISO.Frächter_KdNr > 0 Then
Select Case GLO_AVISO.Frächter_KdNr
If GLO_SND IsNot Nothing Then ' FRÄCHTER,AVISIERER
If GLO_SND.tblSnd_FrachtfuehrerKdNr > 0 Then
Select Case GLO_SND.tblSnd_FrachtfuehrerKdNr
Case 724284, 717845, 709869, 629246, 100041, 609759, 703729, 711217 'Zukunft: Kundenstamm--> NCTS_OUT_Partnersystem = "EKOL"
Return True
End Select
Select Case GLO_AVISO.Auftraggeber_KdNr
Select Case GLO_SND.tblSnd_AvisiererKdNr
Case 724284, 717845, 709869, 629246, 100041, 609759, 703729, 711217
Return True
End Select
End If
If GLO_AVISO.Frächter.ToUpper.StartsWith("EKOL") Then Return True
If GLO_AVISO.Auftraggeber.ToUpper.StartsWith("EKOL") Then Return True
If If(GLO_SND.tblSnd_Frachtfuehrer, "").ToUpper.StartsWith("EKOL") Then Return True
If If(GLO_SND.tblSnd_Avisierer, "").ToUpper.StartsWith("EKOL") Then Return True
End If
Catch ex As Exception
@@ -483,9 +576,9 @@
Shared Function isFTP_TEST_NCTS() As Boolean
Try
If GLO_AVISO IsNot Nothing Then ' AndAlso GLO_AVISO.Frächter_KdNr > 0 Then ' FRÄCHTER,AVISIERER
If GLO_AVISO.Frächter.ToUpper.StartsWith("IBRAH") Then Return True
If GLO_AVISO.Auftraggeber.ToUpper.StartsWith("IBRAH") Then Return True
If GLO_SND IsNot Nothing Then ' AndAlso GLO_snd.Frächter_KdNr > 0 Then ' FRÄCHTER,AVISIERER
If GLO_SND.tblSnd_Frachtfuehrer.ToUpper.StartsWith("IBRAH") Then Return True
If GLO_SND.tblSnd_Avisierer.ToUpper.StartsWith("IBRAH") Then Return True
End If
Catch ex As Exception
@@ -494,6 +587,21 @@
Return False
End Function
'Shared Function isFTP_TEST_NCTS() As Boolean
' Try
' If GLO_AVISO IsNot Nothing Then ' AndAlso GLO_AVISO.Frächter_KdNr > 0 Then ' FRÄCHTER,AVISIERER
' If GLO_AVISO.Frächter.ToUpper.StartsWith("IBRAH") Then Return True
' If GLO_AVISO.Auftraggeber.ToUpper.StartsWith("IBRAH") Then Return True
' End If
' Catch ex As Exception
' VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & vbNewLine, System.Reflection.MethodInfo.GetCurrentMethod.Name)
' End Try
' Return False
'End Function
Shared Function alreadyProvidedInInterface(ReferenzNumber As String, ProcedureCode As String, Status As String, vorsystem As String, ftp_CooName As String, Optional checkAlreadyProvided As Boolean = True) As Boolean
If Not checkAlreadyProvided Then Return False ' wenn es nicht geprüft werden soll, dann wird "Nicht bereitgestellt" zurückgegeben
Try
@@ -777,9 +885,10 @@
VERAG_NCTS.NCTS_Data.Consignee.Adress.City = If(NCTS_TMP.ncts_Empfaenger_Ort, "")
'Frächter
If GLO_AVISO IsNot Nothing AndAlso GLO_AVISO.Frächter_KdNr > 0 Then
Dim AD = New VERAG_PROG_ALLGEMEIN.cAdressen(GLO_AVISO.Frächter_KdNr)
Dim KD = New VERAG_PROG_ALLGEMEIN.cKunde(GLO_AVISO.Frächter_KdNr)
Dim FRAECHTER_KDNR = getFraechterKdnr()
If FRAECHTER_KDNR > 0 Then
Dim AD = New VERAG_PROG_ALLGEMEIN.cAdressen(FRAECHTER_KDNR)
Dim KD = New VERAG_PROG_ALLGEMEIN.cKunde(FRAECHTER_KDNR)
VERAG_NCTS.NCTS_Data.Carrier.Name = If(AD.Name_1, "")
VERAG_NCTS.NCTS_Data.Carrier.EORI = If(KD.EORITIN, "")
VERAG_NCTS.NCTS_Data.Carrier.EORI_NL = If(KD.EORITIN_NL, "")
@@ -788,7 +897,7 @@
VERAG_NCTS.NCTS_Data.Carrier.Adress.Postcode = If(AD.PLZ, "")
VERAG_NCTS.NCTS_Data.Carrier.Adress.Street = If(AD.Straße, "")
VERAG_NCTS.NCTS_Data.Carrier.Adress.City = If(AD.Ort, "")
VERAG_NCTS.NCTS_Data.Carrier.CustomerCode = GLO_AVISO.Frächter_KdNr
VERAG_NCTS.NCTS_Data.Carrier.CustomerCode = FRAECHTER_KDNR
Else
VERAG_NCTS.NCTS_Data.Carrier.Name = If(NCTS_TMP.ncts_SumA_Befoerderer_Name, "")
VERAG_NCTS.NCTS_Data.Carrier.EORI = If(NCTS_TMP.ncts_SumA_Befoerderer_EORI, "")
@@ -800,6 +909,8 @@
VERAG_NCTS.NCTS_Data.Carrier.Adress.City = If(NCTS_TMP.ncts_SumA_Befoerderer_Ort, "")
End If
If NCTS_TMP.ncts_SICHERHEITSANGABEN IsNot Nothing AndAlso NCTS_TMP.ncts_SICHERHEITSANGABEN.Count > 0 Then
VERAG_NCTS.NCTS_Data.Guarantee.GRN = If(NCTS_TMP.ncts_SICHERHEITSANGABEN(0).nctsSA_GRN, "")
VERAG_NCTS.NCTS_Data.Guarantee.Amount = If(NCTS_TMP.ncts_SICHERHEITSANGABEN(0).nctsSA_AbgabenBetrag, "0")
@@ -867,8 +978,112 @@
End Function
Shared Function getAuftraggeberKdnr() As Integer
If GLO_SND IsNot Nothing Then
If GLO_SND.tblSnd_AuftraggeberKdNr > 0 Then
Return GLO_SND.tblSnd_AuftraggeberKdNr
End If
End If
Shared Function genVERAG_OUT_NCTS_FromDAKOSY_V2_0_2(NCTS_TMP As DAKOSY_Worker.cDakosyNCTSOut, DY_TMP As DAKOSY_Worker.cDakosy_Zollanmeldungen, ByRef UniqueId As String) As VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS_V2_0_2.VERAG_out_ncts
Return -1
End Function
Shared Function getFraechterKdnr() As Integer
If GLO_SND IsNot Nothing Then
If GLO_SND.tblSnd_FrachtfuehrerKdNr > 0 Then
Return GLO_SND.tblSnd_FrachtfuehrerKdNr
End If
End If
If GLO_AVISO IsNot Nothing Then
If GLO_AVISO.Frächter_KdNr > 0 Then
Return GLO_AVISO.Frächter_KdNr
End If
End If
Return -1
End Function
Shared Function getFraechterKdNrName() As String
If GLO_SND IsNot Nothing Then
If GLO_SND.tblSnd_FrachtfuehrerKdNr > 0 Then
Return "KDNR: " & GLO_SND.tblSnd_FrachtfuehrerKdNr & " NAME: " & GLO_SND.tblSnd_Frachtfuehrer
ElseIf GLO_SND.tblSnd_Frachtfuehrer <> "" Then
Return " NAME: " & GLO_SND.tblSnd_Frachtfuehrer
End If
End If
If GLO_AVISO IsNot Nothing Then
If GLO_AVISO.Frächter_KdNr > 0 Then
Return "KDNR: " & GLO_AVISO.Frächter_KdNr & " NAME: " & GLO_AVISO.Frächter
Else
Return " NAME: " & GLO_AVISO.Frächter
End If
End If
Return ""
End Function
Shared Function getAvisiererKdNrName() As String
If GLO_SND IsNot Nothing Then
If GLO_SND.tblSnd_AvisiererKdNr > 0 Then
Return "KDNR: " & GLO_SND.tblSnd_AvisiererKdNr & " NAME: " & GLO_SND.tblSnd_Avisierer
ElseIf GLO_SND.tblSnd_Avisierer <> "" Then
Return " NAME: " & GLO_SND.tblSnd_Avisierer
End If
End If
If GLO_AVISO IsNot Nothing Then
If GLO_AVISO.Auftraggeber_KdNr > 0 Then
Return "KDNR: " & GLO_AVISO.Auftraggeber_KdNr & " NAME: " & GLO_AVISO.Auftraggeber
ElseIf GLO_AVISO.Auftraggeber <> "" Then
Return " NAME: " & GLO_AVISO.Auftraggeber_KdNr
End If
End If
Return ""
End Function
Shared Function getAuftraggeberKdNrName() As String
If GLO_SND IsNot Nothing Then
If GLO_SND.tblSnd_AuftraggeberKdNr > 0 Then
Return "KDNR: " & GLO_SND.tblSnd_AuftraggeberKdNr & " NAME: " & GLO_SND.tblSnd_Auftraggeber
Else
Return " NAME: " & GLO_SND.tblSnd_Auftraggeber
End If
End If
Return ""
End Function
Shared Function getTOBBKdnr() As Integer
Dim KdNr = -1
If KdNr < 0 Then KdNr = getTOBBKdnrFromKdNr(getAuftraggeberKdnr())
If KdNr < 0 Then KdNr = getTOBBKdnrFromKdNr(getFraechterKdnr())
If KdNr < 0 Then KdNr = getTOBBKdnrFromKdNr(getAvisiererKdnr())
Return KdNr
End Function
Shared Function getTOBBKdnrFromKdNr(KdNr) As Integer
If KdNr > 0 Then
Dim KD_ERW As New VERAG_PROG_ALLGEMEIN.cKundenErweitert(KdNr)
Return If(KD_ERW.kde_TOBB_KundenNr, -1)
End If
Return -1
End Function
Shared Function getTOBBDetails() As String
getTOBBDetails = vbNewLine & "Auftraggeber: " & getAuftraggeberKdNrName() & vbNewLine & "Frächter: " & getFraechterKdNrName() & vbNewLine & "Avisierer: " & getAvisiererKdNrName()
getTOBBDetails &= vbNewLine & "AVISO: " & If(GLO_AVISO Is Nothing, "keine Zuweisung ", GLO_AVISO.AvisoID)
getTOBBDetails &= vbNewLine & "SENDUNG: " & If(GLO_SND Is Nothing, "keine Zuweisung ", GLO_SND.tblSnd_SendungID)
End Function
Shared Function getAvisiererKdnr() As Integer
If GLO_SND IsNot Nothing Then
If GLO_SND.tblSnd_AvisiererKdNr > 0 Then
Return GLO_SND.tblSnd_AvisiererKdNr
End If
End If
If GLO_AVISO IsNot Nothing Then
If GLO_AVISO.Auftraggeber_KdNr > 0 Then
Return GLO_AVISO.Auftraggeber_KdNr
End If
End If
Return -1
End Function
Shared Function genVERAG_OUT_NCTS_FromDAKOSY_V2_0_2(NCTS_TMP As DAKOSY_Worker.cDakosyNCTSOut, DY_TMP As DAKOSY_Worker.cDakosy_Zollanmeldungen, ByRef UniqueId As String, Optional ClientReference As String = "") As VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS_V2_0_2.VERAG_out_ncts
Dim VERAG_NCTS As New VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS_V2_0_2.VERAG_out_ncts
Try
If DY_TMP Is Nothing Then Return Nothing
@@ -883,6 +1098,9 @@
Else
VERAG_NCTS.Company = "VERAG"
End If
' If VERAG_NCTS.Company = "UNISPED" Then Return Nothing ' ---> KEIN UNISPED, erst klären!!!!!!!
VERAG_NCTS.Department = NCTS_TMP.ncts_niederlassung
'VERAG_NCTS.InternalReference.OfficeCode = If(
@@ -931,9 +1149,10 @@
VERAG_NCTS.NCTS_Data.Consignee.Adress.City = If(NCTS_TMP.ncts_Empfaenger_Ort, "")
'Frächter
If GLO_AVISO IsNot Nothing AndAlso GLO_AVISO.Frächter_KdNr > 0 Then
Dim AD = New VERAG_PROG_ALLGEMEIN.cAdressen(GLO_AVISO.Frächter_KdNr)
Dim KD = New VERAG_PROG_ALLGEMEIN.cKunde(GLO_AVISO.Frächter_KdNr)
Dim FRAECHTER_KDNR = getFraechterKdnr()
If FRAECHTER_KDNR > 0 Then
Dim AD = New VERAG_PROG_ALLGEMEIN.cAdressen(FRAECHTER_KDNR)
Dim KD = New VERAG_PROG_ALLGEMEIN.cKunde(FRAECHTER_KDNR)
VERAG_NCTS.NCTS_Data.Carrier.Name = If(AD.Name_1, "")
VERAG_NCTS.NCTS_Data.Carrier.EORI = If(KD.EORITIN, "")
VERAG_NCTS.NCTS_Data.Carrier.EORI_NL = If(KD.EORITIN_NL, "")
@@ -942,7 +1161,7 @@
VERAG_NCTS.NCTS_Data.Carrier.Adress.Postcode = If(AD.PLZ, "")
VERAG_NCTS.NCTS_Data.Carrier.Adress.Street = If(AD.Straße, "")
VERAG_NCTS.NCTS_Data.Carrier.Adress.City = If(AD.Ort, "")
VERAG_NCTS.NCTS_Data.Carrier.CustomerCode = GLO_AVISO.Frächter_KdNr
VERAG_NCTS.NCTS_Data.Carrier.CustomerCode = FRAECHTER_KDNR
Else
VERAG_NCTS.NCTS_Data.Carrier.Name = If(NCTS_TMP.ncts_SumA_Befoerderer_Name, "")
@@ -955,11 +1174,17 @@
VERAG_NCTS.NCTS_Data.Carrier.Adress.City = If(NCTS_TMP.ncts_SumA_Befoerderer_Ort, "")
End If
If GLO_AVISO IsNot Nothing Then
If GLO_AVISO.KdAuftragsNr_Avisierer IsNot Nothing Then VERAG_NCTS.ClientReference = GLO_AVISO.KdAuftragsNr_Avisierer
If ClientReference <> "" Then
VERAG_NCTS.ClientReference = ClientReference
Else
Dim AVISIERER_KDNR = getAvisiererKdnr()
If AVISIERER_KDNR > 0 Then
VERAG_NCTS.ClientReference = AVISIERER_KDNR
Else
VERAG_NCTS.ClientReference = ""
End If
End If
If NCTS_TMP.ncts_SICHERHEITSANGABEN IsNot Nothing AndAlso NCTS_TMP.ncts_SICHERHEITSANGABEN.Count > 0 Then
VERAG_NCTS.NCTS_Data.Guarantee.GRN = If(NCTS_TMP.ncts_SICHERHEITSANGABEN(0).nctsSA_GRN, "")
VERAG_NCTS.NCTS_Data.Guarantee.Amount = If(NCTS_TMP.ncts_SICHERHEITSANGABEN(0).nctsSA_AbgabenBetrag, "0")
@@ -1384,9 +1609,10 @@
'Frächter
If GLO_AVISO IsNot Nothing AndAlso GLO_AVISO.Frächter_KdNr > 0 Then
Dim AD = New VERAG_PROG_ALLGEMEIN.cAdressen(GLO_AVISO.Frächter_KdNr)
Dim KD = New VERAG_PROG_ALLGEMEIN.cKunde(GLO_AVISO.Frächter_KdNr)
Dim FRAECHTER_KDNR = getFraechterKdnr()
If FRAECHTER_KDNR > 0 Then
Dim AD = New VERAG_PROG_ALLGEMEIN.cAdressen(FRAECHTER_KDNR)
Dim KD = New VERAG_PROG_ALLGEMEIN.cKunde(FRAECHTER_KDNR)
VERAG_NCTS.NCTS_Data.Carrier.Name = If(AD.Name_1, "")
VERAG_NCTS.NCTS_Data.Carrier.EORI = If(KD.EORITIN, "")
VERAG_NCTS.NCTS_Data.Carrier.EORI_NL = If(KD.EORITIN_NL, "")
@@ -1395,7 +1621,7 @@
VERAG_NCTS.NCTS_Data.Carrier.Adress.Postcode = If(AD.PLZ, "")
VERAG_NCTS.NCTS_Data.Carrier.Adress.Street = If(AD.Straße, "")
VERAG_NCTS.NCTS_Data.Carrier.Adress.City = If(AD.Ort, "")
VERAG_NCTS.NCTS_Data.Carrier.CustomerCode = GLO_AVISO.Frächter_KdNr
VERAG_NCTS.NCTS_Data.Carrier.CustomerCode = FRAECHTER_KDNR
Else
Dim DTzsAnmCarrier As DataTable = SQL.loadDgvBySql("SELECT * FROM [zsAnmCarrTra] WHERE (LizenzNr = '" & r.Item("LizenzNr") & "') And (OperatorID = " & r.Item("OperatorID") & ") And (VorgangID = '" & r.Item("VorgangID") & "') And (AnmID = " & AnmID & ")", "EZOLL")
If DTzsAnmCarrier.Rows().Count > 0 Then
@@ -1410,6 +1636,8 @@
End If
End If
' Tabelle zsAnmGrteeGrteeRef lesen.
Dim DTzsAnmGrteeGrteeRef As DataTable = SQL.loadDgvBySql("SELECT GRN, GVal" &
" FROM zsAnmGrteeGrteeRef" &
@@ -1464,7 +1692,7 @@
End Function
Shared Function genVERAG_OUT_NCTS_FromEZOLLByAnmId_V2_0_2(AnmID As String, ByRef UniqueId As String) As VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS_V2_0_2.VERAG_out_ncts
Shared Function genVERAG_OUT_NCTS_FromEZOLLByAnmId_V2_0_2(AnmID As String, ByRef UniqueId As String, Optional ClientReference As String = "") As VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS_V2_0_2.VERAG_out_ncts
Dim VERAG_NCTS As New VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS_V2_0_2.VERAG_out_ncts
Dim LRN = ""
Try
@@ -1600,11 +1828,12 @@
'VERAG_NCTS.NCTS_Data.Consignee.UID_Nr = If(NCTS_TMP.ncts_Empfaenger_NLNR, "")
End If
'Frächter
If GLO_AVISO IsNot Nothing AndAlso GLO_AVISO.Frächter_KdNr > 0 Then
Dim AD = New VERAG_PROG_ALLGEMEIN.cAdressen(GLO_AVISO.Frächter_KdNr)
Dim KD = New VERAG_PROG_ALLGEMEIN.cKunde(GLO_AVISO.Frächter_KdNr)
Dim FRAECHTER_KDNR = getFraechterKdnr()
If FRAECHTER_KDNR > 0 Then
Dim AD = New VERAG_PROG_ALLGEMEIN.cAdressen(FRAECHTER_KDNR)
Dim KD = New VERAG_PROG_ALLGEMEIN.cKunde(FRAECHTER_KDNR)
VERAG_NCTS.NCTS_Data.Carrier.Name = If(AD.Name_1, "")
VERAG_NCTS.NCTS_Data.Carrier.EORI = If(KD.EORITIN, "")
VERAG_NCTS.NCTS_Data.Carrier.EORI_NL = If(KD.EORITIN_NL, "")
@@ -1613,7 +1842,7 @@
VERAG_NCTS.NCTS_Data.Carrier.Adress.Postcode = If(AD.PLZ, "")
VERAG_NCTS.NCTS_Data.Carrier.Adress.Street = If(AD.Straße, "")
VERAG_NCTS.NCTS_Data.Carrier.Adress.City = If(AD.Ort, "")
VERAG_NCTS.NCTS_Data.Carrier.CustomerCode = GLO_AVISO.Frächter_KdNr
VERAG_NCTS.NCTS_Data.Carrier.CustomerCode = FRAECHTER_KDNR
Else
Dim DTzsAnmCarrier As DataTable = SQL.loadDgvBySql("SELECT * FROM [zsAnmCarrTra] WHERE (LizenzNr = '" & r.Item("LizenzNr") & "') And (OperatorID = " & r.Item("OperatorID") & ") And (VorgangID = '" & r.Item("VorgangID") & "') And (AnmID = " & AnmID & ")", "EZOLL")
If DTzsAnmCarrier.Rows().Count > 0 Then
@@ -1628,10 +1857,21 @@
End If
End If
If GLO_AVISO IsNot Nothing Then
If GLO_AVISO.KdAuftragsNr_Avisierer IsNot Nothing Then VERAG_NCTS.ClientReference = GLO_AVISO.KdAuftragsNr_Avisierer
If ClientReference <> "" Then
VERAG_NCTS.ClientReference = ClientReference
Else
Dim AVISIERER_KDNR = getAvisiererKdnr()
If AVISIERER_KDNR > 0 Then
VERAG_NCTS.ClientReference = AVISIERER_KDNR
Else
VERAG_NCTS.ClientReference = ""
End If
End If
' Tabelle zsAnmGrteeGrteeRef lesen.
Dim DTzsAnmGrteeGrteeRef As DataTable = SQL.loadDgvBySql("SELECT GRN, GVal" &
" FROM zsAnmGrteeGrteeRef" &
@@ -1760,10 +2000,12 @@
VERAG_NCTS.NCTS_Data.Consignee.Adress.Street = If(NCTS_TMP.ConeeTra_Strt, "")
VERAG_NCTS.NCTS_Data.Consignee.Adress.City = If(NCTS_TMP.ConeeTra_Cty, "")
''Frächter
If GLO_AVISO IsNot Nothing AndAlso GLO_AVISO.Frächter_KdNr > 0 Then
Dim AD = New VERAG_PROG_ALLGEMEIN.cAdressen(GLO_AVISO.Frächter_KdNr)
Dim KD = New VERAG_PROG_ALLGEMEIN.cKunde(GLO_AVISO.Frächter_KdNr)
Dim FRAECHTER_KDNR = getFraechterKdnr()
If FRAECHTER_KDNR > 0 Then
Dim AD = New VERAG_PROG_ALLGEMEIN.cAdressen(FRAECHTER_KDNR)
Dim KD = New VERAG_PROG_ALLGEMEIN.cKunde(FRAECHTER_KDNR)
VERAG_NCTS.NCTS_Data.Carrier.Name = If(AD.Name_1, "")
VERAG_NCTS.NCTS_Data.Carrier.EORI = If(KD.EORITIN, "")
VERAG_NCTS.NCTS_Data.Carrier.EORI_NL = If(KD.EORITIN_NL, "")
@@ -1772,7 +2014,7 @@
VERAG_NCTS.NCTS_Data.Carrier.Adress.Postcode = If(AD.PLZ, "")
VERAG_NCTS.NCTS_Data.Carrier.Adress.Street = If(AD.Straße, "")
VERAG_NCTS.NCTS_Data.Carrier.Adress.City = If(AD.Ort, "")
VERAG_NCTS.NCTS_Data.Carrier.CustomerCode = GLO_AVISO.Frächter_KdNr
VERAG_NCTS.NCTS_Data.Carrier.CustomerCode = FRAECHTER_KDNR
Else
'VERAG_NCTS.NCTS_Data.Carrier.Name = If(NCTS_TMP.ConorTra_Na, "")
@@ -1783,8 +2025,10 @@
'VERAG_NCTS.NCTS_Data.Carrier.Adress.Postcode = If(NCTS_TMP.ConorTra_Pst, "")
'VERAG_NCTS.NCTS_Data.Carrier.Adress.Street = If(NCTS_TMP.ConorTra_Strt, "")
'VERAG_NCTS.NCTS_Data.Carrier.Adress.City = If(NCTS_TMP.ConorTra_Cty, "")
End If
If NCTS_TMP.SICHERHEIT IsNot Nothing AndAlso NCTS_TMP.SICHERHEIT.Count > 0 Then
VERAG_NCTS.NCTS_Data.Guarantee.GRN = If(NCTS_TMP.SICHERHEIT(0).GRN, "")
VERAG_NCTS.NCTS_Data.Guarantee.Amount = If(NCTS_TMP.SICHERHEIT(0).GVal, "0")
@@ -1834,7 +2078,7 @@
End Function
Shared Function genVERAG_OUT_NCTS_FromTELOTEC_V2_0_2(NCTS_TMP As TELOTEC_Worker.cTelotec_Anmeldung, ByRef UniqueId As String) As VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS_V2_0_2.VERAG_out_ncts
Shared Function genVERAG_OUT_NCTS_FromTELOTEC_V2_0_2(NCTS_TMP As TELOTEC_Worker.cTelotec_Anmeldung, ByRef UniqueId As String, Optional ClientReference As String = "") As VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS_V2_0_2.VERAG_out_ncts
Dim VERAG_NCTS As New VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS_V2_0_2.VERAG_out_ncts
Try
If NCTS_TMP Is Nothing Then Return Nothing
@@ -1898,10 +2142,12 @@
VERAG_NCTS.NCTS_Data.Consignee.Adress.Street = If(NCTS_TMP.ConeeTra_Strt, "")
VERAG_NCTS.NCTS_Data.Consignee.Adress.City = If(NCTS_TMP.ConeeTra_Cty, "")
''Frächter
If GLO_AVISO IsNot Nothing AndAlso GLO_AVISO.Frächter_KdNr > 0 Then
Dim AD = New VERAG_PROG_ALLGEMEIN.cAdressen(GLO_AVISO.Frächter_KdNr)
Dim KD = New VERAG_PROG_ALLGEMEIN.cKunde(GLO_AVISO.Frächter_KdNr)
Dim FRAECHTER_KDNR = getFraechterKdnr()
If FRAECHTER_KDNR > 0 Then
Dim AD = New VERAG_PROG_ALLGEMEIN.cAdressen(FRAECHTER_KDNR)
Dim KD = New VERAG_PROG_ALLGEMEIN.cKunde(FRAECHTER_KDNR)
VERAG_NCTS.NCTS_Data.Carrier.Name = If(AD.Name_1, "")
VERAG_NCTS.NCTS_Data.Carrier.EORI = If(KD.EORITIN, "")
VERAG_NCTS.NCTS_Data.Carrier.EORI_NL = If(KD.EORITIN_NL, "")
@@ -1910,7 +2156,7 @@
VERAG_NCTS.NCTS_Data.Carrier.Adress.Postcode = If(AD.PLZ, "")
VERAG_NCTS.NCTS_Data.Carrier.Adress.Street = If(AD.Straße, "")
VERAG_NCTS.NCTS_Data.Carrier.Adress.City = If(AD.Ort, "")
VERAG_NCTS.NCTS_Data.Carrier.CustomerCode = GLO_AVISO.Frächter_KdNr
VERAG_NCTS.NCTS_Data.Carrier.CustomerCode = FRAECHTER_KDNR
Else
'VERAG_NCTS.NCTS_Data.Carrier.Name = If(NCTS_TMP.ConorTra_Na, "")
@@ -1923,10 +2169,21 @@
'VERAG_NCTS.NCTS_Data.Carrier.Adress.City = If(NCTS_TMP.ConorTra_Cty, "")
End If
If GLO_AVISO IsNot Nothing Then
If GLO_AVISO.KdAuftragsNr_Avisierer IsNot Nothing Then VERAG_NCTS.ClientReference = GLO_AVISO.KdAuftragsNr_Avisierer
If ClientReference <> "" Then
VERAG_NCTS.ClientReference = ClientReference
Else
Dim AVISIERER_KDNR = getAvisiererKdnr()
If AVISIERER_KDNR > 0 Then
VERAG_NCTS.ClientReference = AVISIERER_KDNR
Else
VERAG_NCTS.ClientReference = ""
End If
End If
If NCTS_TMP.SICHERHEIT IsNot Nothing AndAlso NCTS_TMP.SICHERHEIT.Count > 0 Then
VERAG_NCTS.NCTS_Data.Guarantee.GRN = If(NCTS_TMP.SICHERHEIT(0).GRN, "")
VERAG_NCTS.NCTS_Data.Guarantee.Amount = If(NCTS_TMP.SICHERHEIT(0).GVal, "0")

6
initATLASAufschubkonten/cMAVIWorker.vb
View File

@@ -42,10 +42,12 @@ Public Class cMAVIWorker
NCTS.ncts_Partnersystem = "MAVI"
If doc.GetElementsByTagName("GuaRefNumGRNREF1").Count > 0 AndAlso doc.GetElementsByTagName("AmoConREF7").Count > 0 Then
If doc.GetElementsByTagName("GuaRefNumGRNREF1").Count > 0 Then ' AndAlso doc.GetElementsByTagName("AmoConREF7").Count > 0 Then
Dim BRG As New VERAG_PROG_ALLGEMEIN.cNCTS_TR_Sicherheitsangaben
BRG.nctsSA_GRN = doc.GetElementsByTagName("GuaRefNumGRNREF1")(0).InnerText
Dim Betrag = doc.GetElementsByTagName("AmoConREF7")(0).InnerText
Dim Betrag = 0.0
If doc.GetElementsByTagName("AmoConREF7").Count > 0 Then Betrag = doc.GetElementsByTagName("AmoConREF7")(0).InnerText
If IsNumeric(Betrag) Then
BRG.nctsSA_AbgabenBetrag = CDbl(Betrag)
End If

592
initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb
View File

@@ -206,331 +206,333 @@ Public Class frmDYNachrichtenVerarbeitung
Dim statusTMP As DAKOSY_Worker.cDakosy_Statusmeldungen = Nothing
Dim fi As FileInfo = New FileInfo(d)
If Not fi.Name.StartsWith(".") Then
' EDIFACT
' If fi.Extension = ".edi" Then
Dim alreadyMoved = False
If fi.Extension = ".nlc" Then ' Or fi.Name.StartsWith("ZA") Then
If Not IO.Directory.Exists(VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\nlc\") Then IO.Directory.CreateDirectory(VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\nlc\")
frmStartOptions.moveFile(d, VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\nlc\")
alreadyMoved = True
addDGVEinarbeitung("** NLC-Datei **", fi.Name)
ElseIf fi.Extension = ".edi" Then ' Or fi.Name.StartsWith("ZA") Then
Dim s As String = File.ReadAllText(d, System.Text.UTF8Encoding.Default)
If s.Contains("'") Then
Dim lines = s.Split("'")
For i = 0 To lines.Count - 1
lines(i) = lines(i).Replace("?+", "|plus|").Replace("?:", "|dppkt|").Replace("?.", "|pkt|") ' Da '+' ein Splitter ist, wird ein '+' als Text wie folgt dargestellt: '?+', --> Ersezten
Next
'NCTS: Versandanmeldung
If Not found AndAlso cGetMsgType.isNCTS_Versandanmeldung(lines) Then
Dim bezugsNr = cWorker_NCTS.readNCTS_Versandanmeldung(Me, lines)
If bezugsNr <> "" Then addDGVEinarbeitung("NCTS: Versandanmeldung", bezugsNr) : found = True
End If
'EZA: FreierVerkehrAktVeredelUmwandlung
If Not found AndAlso cGetMsgType.isEZA_FreierVerkehrAktVeredelUmwandlung(lines) Then
Dim bezugsNr = readEZA_FreierVerkehrAktVeredelUmwandlung(lines)
If bezugsNr <> "" Then
addDGVEinarbeitung("EZA: FreierVerkehr", bezugsNr) : found = True
found = True
End If
End If
'NCTS: Ankunftsanzeige
If Not found AndAlso cGetMsgType.isNCTS_Ankunftsanzeige(lines) Then
Dim bezugsNr = cWorker_NCTS.readNCTS_Ankunftsanzeige(Me, lines)
If bezugsNr <> "" Then addDGVEinarbeitung("NCTS: Ankunftsanzeige", bezugsNr) : found = True
End If
' EDIFACT
' If fi.Extension = ".edi" Then
Dim alreadyMoved = False
If fi.Extension = ".nlc" Then ' Or fi.Name.StartsWith("ZA") Then
If Not IO.Directory.Exists(VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\nlc\") Then IO.Directory.CreateDirectory(VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\nlc\")
frmStartOptions.moveFile(d, VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\nlc\")
alreadyMoved = True
addDGVEinarbeitung("** NLC-Datei **", fi.Name)
ElseIf fi.Extension = ".edi" Then ' Or fi.Name.StartsWith("ZA") Then
Dim s As String = File.ReadAllText(d, System.Text.UTF8Encoding.Default)
If s.Contains("'") Then
Dim lines = s.Split("'")
For i = 0 To lines.Count - 1
lines(i) = lines(i).Replace("?+", "|plus|").Replace("?:", "|dppkt|").Replace("?.", "|pkt|") ' Da '+' ein Splitter ist, wird ein '+' als Text wie folgt dargestellt: '?+', --> Ersezten
Next
'NCTS: Versandanmeldung
If Not found AndAlso cGetMsgType.isNCTS_Versandanmeldung(lines) Then
Dim bezugsNr = cWorker_NCTS.readNCTS_Versandanmeldung(Me, lines)
If bezugsNr <> "" Then addDGVEinarbeitung("NCTS: Versandanmeldung", bezugsNr) : found = True
End If
'EZA: FreierVerkehrAktVeredelUmwandlung
If Not found AndAlso cGetMsgType.isEZA_FreierVerkehrAktVeredelUmwandlung(lines) Then
Dim bezugsNr = readEZA_FreierVerkehrAktVeredelUmwandlung(lines)
'XML
ElseIf fi.Extension = ".xml" Then
Dim xmlWriterSettings As XmlWriterSettings = New XmlWriterSettings With {.Encoding = System.Text.Encoding.UTF8, .CheckCharacters = True}
Dim doc As New XmlDocument()
Dim XML_Code = System.IO.File.ReadAllText(d, System.Text.UTF8Encoding.Default)
doc.LoadXml(SanitizeXmlString(XML_Code))
Dim VERSION As String = ""
'------------------------------------------------------------------------------------------------------------------------------
' ATLAS
'------------------------------------------------------------------------------------------------------------------------------
'------------------------------------------
'------------------ NCTS ------------------
'------------------------------------------
'NCTS: Versandanmeldung
If Not found AndAlso cGetMsgType.isNCTS_VersandanmeldungXML(doc) Then
If cWorker_NCTS.readNCTS_VersandanmeldungXML(Me, doc, statusTMP) <> "" Then found = True
End If
'NCTS: Ankunftsanzeige
If Not found AndAlso cGetMsgType.isNCTS_AnkunftsanzeigeXML(doc) Then
If cWorker_NCTS.readNCTS_AnkunftsanzeigeXML(doc) <> "" Then found = True
End If
'NCTS: Versandbestätigung
If Not found And cGetMsgType.isNCTS_Versandbestaetigung(doc) Then
If cWorker_NCTS.readNCTS_Versandbestaetigung(Me, d) <> "" Then found = True
' If bezugsNr <> "" Then addDGVEinarbeitung("NCTS: Versandbestätigung", bezugsNr) : found = True
End If
'NCTS: Ueberlassungsmeldung
If Not found And cGetMsgType.isNCTS_Ueberlassungsmeldung(doc, VERSION) Then
Select Case VERSION
Case "007" : If cWorker_NCTS.readNCTS_Ueberlassungsmeldung007(Me, d, statusTMP) <> "" Then found = True ': MsgBox("005!")
Case "006" : If cWorker_NCTS.readNCTS_Ueberlassungsmeldung006(Me, d, statusTMP) <> "" Then found = True ': MsgBox("005!")
Case "005" : If cWorker_NCTS.readNCTS_Ueberlassungsmeldung005(Me, d, statusTMP) <> "" Then found = True ': MsgBox("005!")
Case Else : If cWorker_NCTS.readNCTS_Ueberlassungsmeldung(Me, d, statusTMP) <> "" Then found = True
End Select
End If
'NCTS: AnrechnungReferenzbetraege
If Not found And cGetMsgType.isNCTS_AnrechnungReferenzbetraege(doc) Then
If cWorker_NCTS.readNCTS_AnrechnungReferenzbetraege(Me, d) <> "" Then found = True
End If
'NCTS: Erledigungsmeldung
If Not found And cGetMsgType.isNCTS_Erledigungsmeldung(doc) Then
If cWorker_NCTS.readNCTS_Erledigungsmeldung(Me, d) <> "" Then found = True
End If
'NCTS: StatusmeldungNCTSDE
If Not found And cGetMsgType.isNCTS_StatusmeldungNCTSDE(doc) Then
If cWorker_NCTS.readNCTS_StatusmeldungNCTSDE(Me, d) <> "" Then found = True
End If
'NCTS: UngueltigkeitSicherheitenNCTSDE
If Not found And cGetMsgType.isNCTS_UngueltigkeitSicherheitenNCTSDE(doc, VERSION) Then
Select Case VERSION
Case "003" : If cWorker_NCTS.readNCTS_UngueltigkeitSicherheitenNCTSDE003(Me, d) <> "" Then found = True ': MsgBox("005!")
Case Else : If cWorker_NCTS.readNCTS_UngueltigkeitSicherheitenNCTSDE(Me, d) <> "" Then found = True
End Select
End If
'------------------------------------------
'------------------ EZA ------------------
'------------------------------------------
'EZA: FreierVerkehrAktVeredelUmwandlung NEU XML
If Not found AndAlso cGetMsgType.isEZA_FreierVerkehrAktVeredelUmwandlungXML(doc) Then
Dim bezugsNr = readEZA_FreierVerkehrAktVeredelUmwandlungXML(doc)
If bezugsNr <> "" Then
found = True
End If
End If
'EZA: FreierVerkehrAktVeredelUmwandlung NEU XML
If Not found AndAlso cGetMsgType.isEZA_FreierVerkehrAktVeredelUmwandlungXML_FCFCDD(doc) Then
Dim bezugsNr = readEZA_FreierVerkehrAktVeredelUmwandlungXML_FCFCDD(doc)
If bezugsNr <> "" Then
addDGVEinarbeitung("EZA: FreierVerkehr", bezugsNr) : found = True
found = True
End If
End If
'NCTS: Ankunftsanzeige
If Not found AndAlso cGetMsgType.isNCTS_Ankunftsanzeige(lines) Then
Dim bezugsNr = cWorker_NCTS.readNCTS_Ankunftsanzeige(Me, lines)
If bezugsNr <> "" Then addDGVEinarbeitung("NCTS: Ankunftsanzeige", bezugsNr) : found = True
'EZA: EntscheidungAnmeldung
If Not found And cGetMsgType.isEZA_EntscheidungAnmeldung(doc) Then
If readEZA_EntscheidungAnmeldung(d) <> "" Then found = True
End If
'EZA: SumAErledigungsinformationVorpapier
If Not found And cGetMsgType.isEZA_SumAErledigungsinformationVorpapier(doc) Then
If readEZA_SumAErledigungsinformationVorpapier(d) <> "" Then found = True
End If
'EZA: Abgabenbescheid
If Not found And cGetMsgType.isEZA_Abgabenbescheid(doc, VERSION) Then
Select Case VERSION
Case "009" : If readEZA_Abgabenbescheid009(d, statusTMP) <> "" Then found = True
Case "008" : If readEZA_Abgabenbescheid008(d) <> "" Then found = True
Case Else : If readEZA_Abgabenbescheid(d) <> "" Then found = True
End Select
End If
End If
'EZA: NichtAbschliessendeFestsetzung
If Not found And cGetMsgType.isEZA_NichtAbschliessendeFestsetzung(doc, VERSION) Then
Select Case VERSION
Case "003" : If readEZA_NichtAbschliessendeFestsetzung003(d) <> "" Then found = True
Case Else : If readEZA_NichtAbschliessendeFestsetzung(d) <> "" Then found = True
End Select
End If
'XML
ElseIf fi.Extension = ".xml" Then
Dim xmlWriterSettings As XmlWriterSettings = New XmlWriterSettings With {.Encoding = System.Text.Encoding.UTF8, .CheckCharacters = True}
'EZA: AbschliessendeFestsetzung
If Not found And cGetMsgType.isEZA_AbschliessendeFestsetzung(doc, VERSION) Then
Select Case VERSION
Case "004" : If readEZA_AbschliessendeFestsetzung004(d) <> "" Then found = True
Case Else : If readEZA_AbschliessendeFestsetzung(d) <> "" Then found = True
End Select
Dim doc As New XmlDocument()
End If
'EZA: StornierungBescheid
If Not found And cGetMsgType.isEZA_StornierungBescheid(doc) Then
If readEZA_StornierungBescheid(d) <> "" Then found = True
End If
'EZA: BefundVereinfachteZollanmeldung
If Not found And cGetMsgType.isEZA_BefundVereinfachteZollanmeldung(doc, VERSION) Then
Select Case VERSION
Case "006" : found = True : addDGVEinarbeitung("*EZA: BefundVereinfachteZollanmeldung", "-")
Case "007" : found = True : addDGVEinarbeitung("*EZA: BefundVereinfachteZollanmeldung", "-")
Case Else : found = True : addDGVEinarbeitung("*EZA: BefundVereinfachteZollanmeldung", "-")
End Select
Dim XML_Code = System.IO.File.ReadAllText(d, System.Text.UTF8Encoding.Default)
End If
doc.LoadXml(SanitizeXmlString(XML_Code))
'EZA: MitteilungAbschreibung
If Not found And cGetMsgType.isEZA_MitteilungAbschreibung(doc) Then
found = True : addDGVEinarbeitung("*EZA: MitteilungAbschreibung", "-")
End If
Dim VERSION As String = ""
'------------------------------------------------------------------------------------------------------------------------------
' ATLAS
'------------------------------------------------------------------------------------------------------------------------------
'------------------------------------------
'------------------ NCTS ------------------
'------------------------------------------
'NCTS: Versandanmeldung
If Not found AndAlso cGetMsgType.isNCTS_VersandanmeldungXML(doc) Then
If cWorker_NCTS.readNCTS_VersandanmeldungXML(Me, doc, statusTMP) <> "" Then found = True
End If
'NCTS: Ankunftsanzeige
If Not found AndAlso cGetMsgType.isNCTS_AnkunftsanzeigeXML(doc) Then
If cWorker_NCTS.readNCTS_AnkunftsanzeigeXML(doc) <> "" Then found = True
End If
'NCTS: Versandbestätigung
If Not found And cGetMsgType.isNCTS_Versandbestaetigung(doc) Then
If cWorker_NCTS.readNCTS_Versandbestaetigung(Me, d) <> "" Then found = True
' If bezugsNr <> "" Then addDGVEinarbeitung("NCTS: Versandbestätigung", bezugsNr) : found = True
End If
'NCTS: Ueberlassungsmeldung
If Not found And cGetMsgType.isNCTS_Ueberlassungsmeldung(doc, VERSION) Then
Select Case VERSION
Case "007" : If cWorker_NCTS.readNCTS_Ueberlassungsmeldung007(Me, d, statusTMP) <> "" Then found = True ': MsgBox("005!")
Case "006" : If cWorker_NCTS.readNCTS_Ueberlassungsmeldung006(Me, d, statusTMP) <> "" Then found = True ': MsgBox("005!")
Case "005" : If cWorker_NCTS.readNCTS_Ueberlassungsmeldung005(Me, d, statusTMP) <> "" Then found = True ': MsgBox("005!")
Case Else : If cWorker_NCTS.readNCTS_Ueberlassungsmeldung(Me, d, statusTMP) <> "" Then found = True
End Select
End If
'NCTS: AnrechnungReferenzbetraege
If Not found And cGetMsgType.isNCTS_AnrechnungReferenzbetraege(doc) Then
If cWorker_NCTS.readNCTS_AnrechnungReferenzbetraege(Me, d) <> "" Then found = True
End If
'NCTS: Erledigungsmeldung
If Not found And cGetMsgType.isNCTS_Erledigungsmeldung(doc) Then
If cWorker_NCTS.readNCTS_Erledigungsmeldung(Me, d) <> "" Then found = True
End If
'NCTS: StatusmeldungNCTSDE
If Not found And cGetMsgType.isNCTS_StatusmeldungNCTSDE(doc) Then
If cWorker_NCTS.readNCTS_StatusmeldungNCTSDE(Me, d) <> "" Then found = True
End If
'NCTS: UngueltigkeitSicherheitenNCTSDE
If Not found And cGetMsgType.isNCTS_UngueltigkeitSicherheitenNCTSDE(doc, VERSION) Then
Select Case VERSION
Case "003" : If cWorker_NCTS.readNCTS_UngueltigkeitSicherheitenNCTSDE003(Me, d) <> "" Then found = True ': MsgBox("005!")
Case Else : If cWorker_NCTS.readNCTS_UngueltigkeitSicherheitenNCTSDE(Me, d) <> "" Then found = True
End Select
End If
'------------------------------------------
'------------------ EZA ------------------
'------------------------------------------
'EZA: FreierVerkehrAktVeredelUmwandlung NEU XML
If Not found AndAlso cGetMsgType.isEZA_FreierVerkehrAktVeredelUmwandlungXML(doc) Then
Dim bezugsNr = readEZA_FreierVerkehrAktVeredelUmwandlungXML(doc)
If bezugsNr <> "" Then
'EZA: WeitergabeHauptzollamt
If Not found And cGetMsgType.isEZA_WeitergabeHauptzollamt(doc) Then
found = True
End If
End If
'EZA: FreierVerkehrAktVeredelUmwandlung NEU XML
If Not found AndAlso cGetMsgType.isEZA_FreierVerkehrAktVeredelUmwandlungXML_FCFCDD(doc) Then
Dim bezugsNr = readEZA_FreierVerkehrAktVeredelUmwandlungXML_FCFCDD(doc)
If bezugsNr <> "" Then
found = True
End If
End If
'EZA: EntscheidungAnmeldung
If Not found And cGetMsgType.isEZA_EntscheidungAnmeldung(doc) Then
If readEZA_EntscheidungAnmeldung(d) <> "" Then found = True
End If
'EZA: SumAErledigungsinformationVorpapier
If Not found And cGetMsgType.isEZA_SumAErledigungsinformationVorpapier(doc) Then
If readEZA_SumAErledigungsinformationVorpapier(d) <> "" Then found = True
End If
'EZA: Abgabenbescheid
If Not found And cGetMsgType.isEZA_Abgabenbescheid(doc, VERSION) Then
Select Case VERSION
Case "009" : If readEZA_Abgabenbescheid009(d, statusTMP) <> "" Then found = True
Case "008" : If readEZA_Abgabenbescheid008(d) <> "" Then found = True
Case Else : If readEZA_Abgabenbescheid(d) <> "" Then found = True
End Select
End If
'EZA: NichtAbschliessendeFestsetzung
If Not found And cGetMsgType.isEZA_NichtAbschliessendeFestsetzung(doc, VERSION) Then
Select Case VERSION
Case "003" : If readEZA_NichtAbschliessendeFestsetzung003(d) <> "" Then found = True
Case Else : If readEZA_NichtAbschliessendeFestsetzung(d) <> "" Then found = True
End Select
End If
'EZA: AbschliessendeFestsetzung
If Not found And cGetMsgType.isEZA_AbschliessendeFestsetzung(doc, VERSION) Then
Select Case VERSION
Case "004" : If readEZA_AbschliessendeFestsetzung004(d) <> "" Then found = True
Case Else : If readEZA_AbschliessendeFestsetzung(d) <> "" Then found = True
End Select
End If
'EZA: StornierungBescheid
If Not found And cGetMsgType.isEZA_StornierungBescheid(doc) Then
If readEZA_StornierungBescheid(d) <> "" Then found = True
End If
'EZA: BefundVereinfachteZollanmeldung
If Not found And cGetMsgType.isEZA_BefundVereinfachteZollanmeldung(doc, VERSION) Then
Select Case VERSION
Case "006" : found = True : addDGVEinarbeitung("*EZA: BefundVereinfachteZollanmeldung", "-")
Case "007" : found = True : addDGVEinarbeitung("*EZA: BefundVereinfachteZollanmeldung", "-")
Case Else : found = True : addDGVEinarbeitung("*EZA: BefundVereinfachteZollanmeldung", "-")
End Select
End If
'EZA: MitteilungAbschreibung
If Not found And cGetMsgType.isEZA_MitteilungAbschreibung(doc) Then
found = True : addDGVEinarbeitung("*EZA: MitteilungAbschreibung", "-")
End If
'EZA: WeitergabeHauptzollamt
If Not found And cGetMsgType.isEZA_WeitergabeHauptzollamt(doc) Then
found = True
addDGVEinarbeitung("*EZA: WeitergabeHauptzollamt", "-")
End If
'------------------------------------------
'------------------ AES ------------------
'------------------------------------------
If Not found Then
Dim doc2 As New XmlDocument()
Dim XML_Code2 = System.IO.File.ReadAllText(d, System.Text.ASCIIEncoding.UTF8)
doc2.LoadXml(SanitizeXmlString(XML_Code2))
'AES: VollstaendigeAusfuhr
If Not found And cGetMsgType.isAES_DEXPDD(doc2) Then
If readAES_DEXPDD(doc2) <> "" Then found = True
End If
'AES: VollstaendigeAusfuhr
If Not found And cGetMsgType.isAES_DEXPDE(doc2) Then
If readAES_DEXPDE(doc2) <> "" Then found = True
addDGVEinarbeitung("*EZA: WeitergabeHauptzollamt", "-")
End If
'AES: Statusmeldung
If Not found And cGetMsgType.isAES_DEXPSD(doc2) Then
If readAES_DEXPSD(doc2) <> "" Then found = True
End If
'AES: DeliveryNotification
If Not found And cGetMsgType.isAES_DeliveryNotification(doc2) Then
found = True
addDGVEinarbeitung("*AES: DeliveryNotification", "-")
End If
'------------------------------------------
'------------------ AES ------------------
'------------------------------------------
'AES: DEXPRE - Überlassung 2.3
If Not found And cGetMsgType.isAES_DEXPRD(doc2) Then
If readAES_DEXPRD(doc2) <> "" Then found = True
End If
If Not found Then
'AES: DEXPRE - Überlassung 2.4
If Not found And cGetMsgType.isAES_DEXPRE(doc2) Then
If readAES_DEXPRE(doc2) <> "" Then found = True
End If
Dim doc2 As New XmlDocument()
Dim XML_Code2 = System.IO.File.ReadAllText(d, System.Text.ASCIIEncoding.UTF8)
doc2.LoadXml(SanitizeXmlString(XML_Code2))
'AES: Error
If Not found And cGetMsgType.isAES_DEERRE(doc2) Then
readAES_DEERRE(doc2)
found = True
End If
'AES: DEXPNE - Mitteilung
If Not found And (cGetMsgType.isAES_DEXPNE(doc2) Or cGetMsgType.isAES_DEXPND(doc2)) Then
found = True
addDGVEinarbeitung("*AES: Mitteilung", "-")
End If
'AES: Storno
If Not found And cGetMsgType.isAES_DEXPCC(doc2) Then
readAES_DEXPCC(doc2)
found = True
'kann sein, dass keine Bezugsnr gefunden, nur MRN...
End If
End If
'------------------------------------------
'------------------ Diverse ------------------
'------------------------------------------
'SONDERFALL: Betrifft div. Arten von Anmeldungen: GenerellesEreignis
If Not found And cGetMsgType.isNCTS_GenerellesEreignis(doc) Then
If readNCTS_GenerellesEreignis(d) Then
found = True
End If
End If
'------------------------------------------------------------------------------------------------------------------------------
' EZOLL
'------------------------------------------------------------------------------------------------------------------------------
'------------------------------------------
'------------------ NCTS ------------------
'------------------------------------------
'NCTS: TR100 Versandanmeldung
If Not found And cGetMsgType.isNCTS_AT_TR100_Versandanmeldung(doc) Then
If readNCTS_AT_TR100_Versandanmeldung(doc) <> "" Then found = True
End If
'------------------------------------------------------------------------------------------------------------------------------
' VERAG
'------------------------------------------------------------------------------------------------------------------------------
'VERAG KD TEST
If Not found And cGetMsgType.isVERAG_KD(doc) Then
If readVERAG_KD(d) <> "" Then found = True
' If bezugsNr <> "" Then addDGVEinarbeitung("NCTS: UngueltigkeitSicherheitenNCTSDE", bezugsNr) : found = True
End If
' If found = False Then getString(doc)
End If
If True Then
If Not alreadyMoved Then
If found Then
Dim dest = ZIEL_PFAD & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\"
If Not IO.Directory.Exists(dest) Then IO.Directory.CreateDirectory(dest)
Dim destFile = ""
If frmStartOptions.moveFile(d, dest, destFile) Then ' dest: Filename wird angefügt
If statusTMP IsNot Nothing Then
statusTMP.updatePfad(destFile)
End If
'AES: VollstaendigeAusfuhr
If Not found And cGetMsgType.isAES_DEXPDD(doc2) Then
If readAES_DEXPDD(doc2) <> "" Then found = True
End If
Else
frmStartOptions.moveFile(d, ERROR_PFAD)
'AES: VollstaendigeAusfuhr
If Not found And cGetMsgType.isAES_DEXPDE(doc2) Then
If readAES_DEXPDE(doc2) <> "" Then found = True
End If
'AES: Statusmeldung
If Not found And cGetMsgType.isAES_DEXPSD(doc2) Then
If readAES_DEXPSD(doc2) <> "" Then found = True
End If
'AES: DeliveryNotification
If Not found And cGetMsgType.isAES_DeliveryNotification(doc2) Then
found = True
addDGVEinarbeitung("*AES: DeliveryNotification", "-")
End If
'AES: DEXPRE - Überlassung 2.3
If Not found And cGetMsgType.isAES_DEXPRD(doc2) Then
If readAES_DEXPRD(doc2) <> "" Then found = True
End If
'AES: DEXPRE - Überlassung 2.4
If Not found And cGetMsgType.isAES_DEXPRE(doc2) Then
If readAES_DEXPRE(doc2) <> "" Then found = True
End If
'AES: Error
If Not found And cGetMsgType.isAES_DEERRE(doc2) Then
readAES_DEERRE(doc2)
found = True
End If
'AES: DEXPNE - Mitteilung
If Not found And (cGetMsgType.isAES_DEXPNE(doc2) Or cGetMsgType.isAES_DEXPND(doc2)) Then
found = True
addDGVEinarbeitung("*AES: Mitteilung", "-")
End If
'AES: Storno
If Not found And cGetMsgType.isAES_DEXPCC(doc2) Then
readAES_DEXPCC(doc2)
found = True
'kann sein, dass keine Bezugsnr gefunden, nur MRN...
End If
End If
'------------------------------------------
'------------------ Diverse ------------------
'------------------------------------------
'SONDERFALL: Betrifft div. Arten von Anmeldungen: GenerellesEreignis
If Not found And cGetMsgType.isNCTS_GenerellesEreignis(doc) Then
If readNCTS_GenerellesEreignis(d) Then
found = True
End If
End If
'------------------------------------------------------------------------------------------------------------------------------
' EZOLL
'------------------------------------------------------------------------------------------------------------------------------
'------------------------------------------
'------------------ NCTS ------------------
'------------------------------------------
'NCTS: TR100 Versandanmeldung
If Not found And cGetMsgType.isNCTS_AT_TR100_Versandanmeldung(doc) Then
If readNCTS_AT_TR100_Versandanmeldung(doc) <> "" Then found = True
End If
'------------------------------------------------------------------------------------------------------------------------------
' VERAG
'------------------------------------------------------------------------------------------------------------------------------
'VERAG KD TEST
If Not found And cGetMsgType.isVERAG_KD(doc) Then
If readVERAG_KD(d) <> "" Then found = True
' If bezugsNr <> "" Then addDGVEinarbeitung("NCTS: UngueltigkeitSicherheitenNCTSDE", bezugsNr) : found = True
End If
' If found = False Then getString(doc)
End If
End If
If True Then
If Not alreadyMoved Then
If found Then
Dim dest = ZIEL_PFAD & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\"
If Not IO.Directory.Exists(dest) Then IO.Directory.CreateDirectory(dest)
Dim destFile = ""
If frmStartOptions.moveFile(d, dest, destFile) Then ' dest: Filename wird angefügt
If statusTMP IsNot Nothing Then
statusTMP.updatePfad(destFile)
End If
End If
Else
frmStartOptions.moveFile(d, ERROR_PFAD)
End If
End If
Me.Refresh()
If found Then cntDatenEingelesen += 1 Else dsNichtErkannt += 1
End If
Me.Refresh()
If found Then cntDatenEingelesen += 1 Else dsNichtErkannt += 1
End If
End If
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name)

63
initATLASAufschubkonten/frmMDMNachrichtenVerarbeitung.vb
View File

@@ -269,12 +269,19 @@ Public Class frmMDMNachrichtenVerarbeitung
If True Then
' Temp.DownloadPfad
Dim destFilenameTMP = VERARBEITUNGS_PFAD & "." & If(IO.File.Exists(VERARBEITUNGS_PFAD & "." & name), name.Replace(".csv", "_") & Now.ToString("yyMMdd_HHmmss.fff") & ".csv", name)
Dim downloadRequest As FtpWebRequest = WebRequest.Create(fileUrl)
downloadRequest.Method = WebRequestMethods.Ftp.DownloadFile
downloadRequest.Credentials = credentials
Dim fileDateTmp As Date = ServerDateFile(credentials, fileUrl)
'Dim destFilenameTMP = VERARBEITUNGS_PFAD & "." & If(IO.File.Exists(VERARBEITUNGS_PFAD & "." & name), name.Replace(".csv", "_") & " RGDAT_" & fileDateTmp.ToShortDateString & "_" & Now.ToString("yyMMdd_HHmmss.fff") & ".csv", name)
' Dim FimeNameTmp = If(IO.File.Exists(VERARBEITUNGS_PFAD & "." & name), name.Replace(".csv", "_") & " RGDAT_" & fileDateTmp.ToShortDateString & "_" & Now.ToString("yyMMdd_HHmmss.fff") & ".csv", name)
name = name.Replace(".csv", "_RGDAT_" & fileDateTmp.ToShortDateString & ".csv")
Dim destFilenameTMP = VERARBEITUNGS_PFAD & "." & If(IO.File.Exists(VERARBEITUNGS_PFAD & "." & name), name.Replace(".csv", "_") & Now.ToString("yyMMdd_HHmmss.fff") & ".csv", name)
Using downloadResponse As FtpWebResponse = downloadRequest.GetResponse(),
sourceStream As Stream = downloadResponse.GetResponseStream(),
targetStream As Stream = File.OpenWrite(destFilenameTMP)
@@ -291,7 +298,8 @@ Public Class frmMDMNachrichtenVerarbeitung
targetStream.Dispose()
downloadResponse.Dispose()
Dim destFilename = VERARBEITUNGS_PFAD & "." & If(IO.File.Exists(VERARBEITUNGS_PFAD & "." & name), name.Replace(".csv", "_") & Now.ToString("yyMMdd_HHmmss.fff") & ".csv", name)
Dim destFilename = VERARBEITUNGS_PFAD & If(IO.File.Exists(VERARBEITUNGS_PFAD & name), name.Replace(".csv", "_") & Now.ToString("yyMMdd_HHmmss.fff") & ".csv", name)
IO.File.Move(destFilenameTMP, destFilename) 'Datei umbenennen
@@ -316,6 +324,28 @@ Public Class frmMDMNachrichtenVerarbeitung
End Sub
Private Function ServerDateFile(credentials As NetworkCredential, fileUrl As String) As Date
Dim ServerDate As DateTime
Try
Dim request As FtpWebRequest = WebRequest.Create(fileUrl)
request.Method = WebRequestMethods.Ftp.GetDateTimestamp
request.Credentials = credentials
Using response = CType(request.GetResponse(), Net.FtpWebResponse)
ServerDate = response.LastModified.ToShortDateString
End Using
Return ServerDate
Catch ex As WebException
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "PLOSE GET DATE FILE: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
Return ServerDate
End Function
Function getNachrichtenDatenFromMDMServices_ALTERNATIV() As Integer
Dim cnt = 0
Try
@@ -567,14 +597,36 @@ Public Class frmMDMNachrichtenVerarbeitung
Dim fi As FileInfo = New FileInfo(d)
If fi.Name.Length > 8 Then
Dim plose_RechnungsNr = fi.Name.Substring(0, 8)
'Dim plose_RechnungsNr = fi.Name.Substring(0, 8)
Dim plose_RechnungsJahr = fi.Name.Substring(0, 2)
Dim plose_RechnungsLieferantCode = fi.Name.Substring(2, 1)
Dim plose_RechnungsNr = fi.Name.Substring(3, 5)
Dim plose_RechnungsDat = Nothing
Dim plose_Lieferant = Nothing
Select Case plose_RechnungsLieferantCode
Case "0" : plose_Lieferant = "PLOSE Sistem Service"
Case "7" : plose_Lieferant = "Consortio PLOSE"
End Select
If fi.FullName.Contains("_RGDAT_") Then
Try
plose_RechnungsDat = CDate(fi.FullName.Substring(fi.FullName.IndexOf("_RGDAT_") + 7, 10))
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "PLOSE RG DATUM, FILE: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
End If
If currentRow.Length > 24 AndAlso currentRow(12) <> "839160" Then 'KDNR <> VERAG --> Die Kosten bleiben uns
Dim PLOSE As New MDM_Worker.cPLOSE
PLOSE.plose_Dateiname = fi.Name
PLOSE.plose_RechnungsNr = plose_RechnungsNr
PLOSE.plose_Lieferant = plose_Lieferant
PLOSE.plose_LieferantCode = plose_RechnungsLieferantCode
PLOSE.plose_RechnungsJahr = plose_RechnungsJahr
If plose_RechnungsDat IsNot Nothing Then PLOSE.plose_RechnungsDatum = plose_RechnungsDat
PLOSE.plose_Datensatztyp = SQL.isleernothing(currentRow(0))
PLOSE.plose_KodexMautTankstelle = SQL.isleernothing(currentRow(1))
PLOSE.plose_BeschreibungMautTankstelle = SQL.isleernothing(currentRow(2))
@@ -663,6 +715,11 @@ Public Class frmMDMNachrichtenVerarbeitung
Function readPLOSE_Header(d As String) As String
Try
Return "" ' Keine Übernahme der Daten (RgDatum) --> Falsches Format!!!
readPLOSE_Header = ""
Dim KdnR = ""

446
initATLASAufschubkonten/frmStartOptions.Designer.vb generated
View File

@@ -24,7 +24,13 @@ 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.LinkLabel33 = New System.Windows.Forms.LinkLabel()
Me.Button5 = New System.Windows.Forms.Button()
Me.LinkLabel32 = New System.Windows.Forms.LinkLabel()
Me.Button4 = New System.Windows.Forms.Button()
Me.CheckBox5 = New System.Windows.Forms.CheckBox()
Me.Button3 = New System.Windows.Forms.Button()
Me.cboBMDUnispedFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.CheckBox4 = New System.Windows.Forms.CheckBox()
Me.Label13 = New System.Windows.Forms.Label()
Me.CheckBox3 = New System.Windows.Forms.CheckBox()
@@ -64,6 +70,10 @@ Partial Class frmStartOptions
Me.LinkLabel16 = New System.Windows.Forms.LinkLabel()
Me.PictureBox8 = New System.Windows.Forms.PictureBox()
Me.TabPage2 = New System.Windows.Forms.TabPage()
Me.Label14 = New System.Windows.Forms.Label()
Me.txtVRGOut_FilialenNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtVRGOut_AbfertigungsNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.cbxOUT_NCTS_TESTORDNER = New System.Windows.Forms.CheckBox()
Me.cbxISettEZA_VERAG = New System.Windows.Forms.CheckBox()
Me.PictureBox15 = New System.Windows.Forms.PictureBox()
Me.Label9 = New System.Windows.Forms.Label()
@@ -81,6 +91,10 @@ Partial Class frmStartOptions
Me.Label7 = New System.Windows.Forms.Label()
Me.LinkLabel27 = New System.Windows.Forms.LinkLabel()
Me.Label6 = New System.Windows.Forms.Label()
Me.MyComboBox2 = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.txtVRGOutEZA_BezugsNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.MyComboBox1 = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.txtVRGOut_BezugsNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.TabPage3 = New System.Windows.Forms.TabPage()
Me.LinkLabel31 = New System.Windows.Forms.LinkLabel()
Me.Label12 = New System.Windows.Forms.Label()
@@ -94,6 +108,7 @@ Partial Class frmStartOptions
Me.cbxKd = New System.Windows.Forms.CheckBox()
Me.Button9 = New System.Windows.Forms.Button()
Me.Label3 = New System.Windows.Forms.Label()
Me.MyTextBox1 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.PictureBox12 = New System.Windows.Forms.PictureBox()
Me.LinkLabel20 = New System.Windows.Forms.LinkLabel()
Me.PictureBox11 = New System.Windows.Forms.PictureBox()
@@ -109,14 +124,8 @@ Partial Class frmStartOptions
Me.LinkLabel3 = New System.Windows.Forms.LinkLabel()
Me.lklAufschubkontenATLASEZOLL = New System.Windows.Forms.LinkLabel()
Me.lblRoutineManager = New System.Windows.Forms.Label()
Me.CheckBox5 = New System.Windows.Forms.CheckBox()
Me.cboBMDUnispedFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.MyComboBox2 = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.txtVRGOutEZA_BezugsNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.MyComboBox1 = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.txtVRGOut_BezugsNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.MyTextBox1 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Button4 = New System.Windows.Forms.Button()
Me.txtVRGOut_MRN = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label15 = New System.Windows.Forms.Label()
Me.pnl.SuspendLayout()
Me.tbcntr.SuspendLayout()
Me.TabPage1.SuspendLayout()
@@ -144,6 +153,9 @@ Partial Class frmStartOptions
'
Me.pnl.BackColor = System.Drawing.Color.White
Me.pnl.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.pnl.Controls.Add(Me.LinkLabel33)
Me.pnl.Controls.Add(Me.Button5)
Me.pnl.Controls.Add(Me.LinkLabel32)
Me.pnl.Controls.Add(Me.Button4)
Me.pnl.Controls.Add(Me.CheckBox5)
Me.pnl.Controls.Add(Me.Button3)
@@ -181,6 +193,65 @@ Partial Class frmStartOptions
Me.pnl.Size = New System.Drawing.Size(790, 720)
Me.pnl.TabIndex = 0
'
'LinkLabel33
'
Me.LinkLabel33.AutoSize = True
Me.LinkLabel33.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.LinkLabel33.Location = New System.Drawing.Point(15, 170)
Me.LinkLabel33.Name = "LinkLabel33"
Me.LinkLabel33.Size = New System.Drawing.Size(107, 13)
Me.LinkLabel33.TabIndex = 47
Me.LinkLabel33.TabStop = True
Me.LinkLabel33.Text = "UID-Prüfung AMBAR"
'
'Button5
'
Me.Button5.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button5.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Button5.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button5.Location = New System.Drawing.Point(482, 141)
Me.Button5.Name = "Button5"
Me.Button5.Size = New System.Drawing.Size(211, 24)
Me.Button5.TabIndex = 46
Me.Button5.Text = "SMS Status Update"
Me.Button5.UseVisualStyleBackColor = True
'
'LinkLabel32
'
Me.LinkLabel32.AutoSize = True
Me.LinkLabel32.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.LinkLabel32.Location = New System.Drawing.Point(15, 152)
Me.LinkLabel32.Name = "LinkLabel32"
Me.LinkLabel32.Size = New System.Drawing.Size(95, 13)
Me.LinkLabel32.TabIndex = 45
Me.LinkLabel32.TabStop = True
Me.LinkLabel32.Text = "UID-Prüfung IMEX"
'
'Button4
'
Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button4.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Button4.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button4.Location = New System.Drawing.Point(449, 228)
Me.Button4.Name = "Button4"
Me.Button4.Size = New System.Drawing.Size(149, 24)
Me.Button4.TabIndex = 44
Me.Button4.Text = "Stammdaten --> BMD"
Me.Button4.UseVisualStyleBackColor = True
'
'CheckBox5
'
Me.CheckBox5.AutoSize = True
Me.CheckBox5.Checked = True
Me.CheckBox5.CheckState = System.Windows.Forms.CheckState.Checked
Me.CheckBox5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.CheckBox5.Location = New System.Drawing.Point(519, 255)
Me.CheckBox5.Name = "CheckBox5"
Me.CheckBox5.Size = New System.Drawing.Size(79, 17)
Me.CheckBox5.TabIndex = 43
Me.CheckBox5.Text = "Testsystem"
Me.CheckBox5.UseVisualStyleBackColor = True
'
'Button3
'
Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
@@ -193,6 +264,17 @@ Partial Class frmStartOptions
Me.Button3.Text = "Buchungen --> BMD"
Me.Button3.UseVisualStyleBackColor = True
'
'cboBMDUnispedFirma
'
Me.cboBMDUnispedFirma._allowedValuesFreiText = Nothing
Me.cboBMDUnispedFirma._allowFreiText = False
Me.cboBMDUnispedFirma._value = ""
Me.cboBMDUnispedFirma.FormattingEnabled = True
Me.cboBMDUnispedFirma.Location = New System.Drawing.Point(302, 251)
Me.cboBMDUnispedFirma.Name = "cboBMDUnispedFirma"
Me.cboBMDUnispedFirma.Size = New System.Drawing.Size(148, 21)
Me.cboBMDUnispedFirma.TabIndex = 42
'
'CheckBox4
'
Me.CheckBox4.AutoSize = True
@@ -640,6 +722,12 @@ Partial Class frmStartOptions
'
'TabPage2
'
Me.TabPage2.Controls.Add(Me.Label15)
Me.TabPage2.Controls.Add(Me.txtVRGOut_MRN)
Me.TabPage2.Controls.Add(Me.Label14)
Me.TabPage2.Controls.Add(Me.txtVRGOut_FilialenNr)
Me.TabPage2.Controls.Add(Me.txtVRGOut_AbfertigungsNr)
Me.TabPage2.Controls.Add(Me.cbxOUT_NCTS_TESTORDNER)
Me.TabPage2.Controls.Add(Me.cbxISettEZA_VERAG)
Me.TabPage2.Controls.Add(Me.PictureBox15)
Me.TabPage2.Controls.Add(Me.Label9)
@@ -669,12 +757,77 @@ Partial Class frmStartOptions
Me.TabPage2.Text = "VERAG Interface"
Me.TabPage2.UseVisualStyleBackColor = True
'
'Label14
'
Me.Label14.AutoSize = True
Me.Label14.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label14.Location = New System.Drawing.Point(395, 160)
Me.Label14.Name = "Label14"
Me.Label14.Size = New System.Drawing.Size(156, 13)
Me.Label14.TabIndex = 72
Me.Label14.Text = "Zuordnung Filiale/Abf.Nr ( opt.):"
'
'txtVRGOut_FilialenNr
'
Me.txtVRGOut_FilialenNr._DateTimeOnly = False
Me.txtVRGOut_FilialenNr._numbersOnly = False
Me.txtVRGOut_FilialenNr._numbersOnlyKommastellen = ""
Me.txtVRGOut_FilialenNr._Prozent = False
Me.txtVRGOut_FilialenNr._ShortDateNew = False
Me.txtVRGOut_FilialenNr._ShortDateOnly = False
Me.txtVRGOut_FilialenNr._TimeOnly = False
Me.txtVRGOut_FilialenNr._value = ""
Me.txtVRGOut_FilialenNr._Waehrung = False
Me.txtVRGOut_FilialenNr._WaehrungZeichen = False
Me.txtVRGOut_FilialenNr.ForeColor = System.Drawing.Color.Red
Me.txtVRGOut_FilialenNr.Location = New System.Drawing.Point(398, 176)
Me.txtVRGOut_FilialenNr.MaxLineLength = -1
Me.txtVRGOut_FilialenNr.MaxLines_Warning = ""
Me.txtVRGOut_FilialenNr.MaxLines_Warning_Label = Nothing
Me.txtVRGOut_FilialenNr.Multiline = True
Me.txtVRGOut_FilialenNr.Name = "txtVRGOut_FilialenNr"
Me.txtVRGOut_FilialenNr.Size = New System.Drawing.Size(56, 21)
Me.txtVRGOut_FilialenNr.TabIndex = 71
'
'txtVRGOut_AbfertigungsNr
'
Me.txtVRGOut_AbfertigungsNr._DateTimeOnly = False
Me.txtVRGOut_AbfertigungsNr._numbersOnly = False
Me.txtVRGOut_AbfertigungsNr._numbersOnlyKommastellen = ""
Me.txtVRGOut_AbfertigungsNr._Prozent = False
Me.txtVRGOut_AbfertigungsNr._ShortDateNew = False
Me.txtVRGOut_AbfertigungsNr._ShortDateOnly = False
Me.txtVRGOut_AbfertigungsNr._TimeOnly = False
Me.txtVRGOut_AbfertigungsNr._value = ""
Me.txtVRGOut_AbfertigungsNr._Waehrung = False
Me.txtVRGOut_AbfertigungsNr._WaehrungZeichen = False
Me.txtVRGOut_AbfertigungsNr.ForeColor = System.Drawing.Color.Red
Me.txtVRGOut_AbfertigungsNr.Location = New System.Drawing.Point(453, 176)
Me.txtVRGOut_AbfertigungsNr.MaxLineLength = -1
Me.txtVRGOut_AbfertigungsNr.MaxLines_Warning = ""
Me.txtVRGOut_AbfertigungsNr.MaxLines_Warning_Label = Nothing
Me.txtVRGOut_AbfertigungsNr.Multiline = True
Me.txtVRGOut_AbfertigungsNr.Name = "txtVRGOut_AbfertigungsNr"
Me.txtVRGOut_AbfertigungsNr.Size = New System.Drawing.Size(137, 21)
Me.txtVRGOut_AbfertigungsNr.TabIndex = 70
'
'cbxOUT_NCTS_TESTORDNER
'
Me.cbxOUT_NCTS_TESTORDNER.AutoSize = True
Me.cbxOUT_NCTS_TESTORDNER.Location = New System.Drawing.Point(518, 111)
Me.cbxOUT_NCTS_TESTORDNER.Name = "cbxOUT_NCTS_TESTORDNER"
Me.cbxOUT_NCTS_TESTORDNER.Size = New System.Drawing.Size(101, 17)
Me.cbxOUT_NCTS_TESTORDNER.TabIndex = 69
Me.cbxOUT_NCTS_TESTORDNER.Text = "TESTORDNER"
Me.cbxOUT_NCTS_TESTORDNER.UseVisualStyleBackColor = True
Me.cbxOUT_NCTS_TESTORDNER.Visible = False
'
'cbxISettEZA_VERAG
'
Me.cbxISettEZA_VERAG.AutoSize = True
Me.cbxISettEZA_VERAG.Checked = True
Me.cbxISettEZA_VERAG.CheckState = System.Windows.Forms.CheckState.Checked
Me.cbxISettEZA_VERAG.Location = New System.Drawing.Point(297, 257)
Me.cbxISettEZA_VERAG.Location = New System.Drawing.Point(297, 279)
Me.cbxISettEZA_VERAG.Name = "cbxISettEZA_VERAG"
Me.cbxISettEZA_VERAG.Size = New System.Drawing.Size(63, 17)
Me.cbxISettEZA_VERAG.TabIndex = 68
@@ -685,7 +838,7 @@ Partial Class frmStartOptions
'
Me.PictureBox15.BackgroundImage = CType(resources.GetObject("PictureBox15.BackgroundImage"), System.Drawing.Image)
Me.PictureBox15.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.PictureBox15.Location = New System.Drawing.Point(562, 233)
Me.PictureBox15.Location = New System.Drawing.Point(596, 255)
Me.PictureBox15.Name = "PictureBox15"
Me.PictureBox15.Size = New System.Drawing.Size(18, 18)
Me.PictureBox15.TabIndex = 67
@@ -696,7 +849,7 @@ Partial Class frmStartOptions
'
Me.Label9.AutoSize = True
Me.Label9.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label9.Location = New System.Drawing.Point(295, 214)
Me.Label9.Location = New System.Drawing.Point(295, 236)
Me.Label9.Name = "Label9"
Me.Label9.Size = New System.Drawing.Size(176, 13)
Me.Label9.TabIndex = 63
@@ -707,7 +860,7 @@ Partial Class frmStartOptions
Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button2.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Button2.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button2.Location = New System.Drawing.Point(484, 213)
Me.Button2.Location = New System.Drawing.Point(518, 235)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(72, 38)
Me.Button2.TabIndex = 66
@@ -718,7 +871,7 @@ Partial Class frmStartOptions
'
Me.Label10.AutoSize = True
Me.Label10.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label10.Location = New System.Drawing.Point(295, 188)
Me.Label10.Location = New System.Drawing.Point(295, 210)
Me.Label10.Name = "Label10"
Me.Label10.Size = New System.Drawing.Size(115, 13)
Me.Label10.TabIndex = 62
@@ -729,7 +882,7 @@ Partial Class frmStartOptions
Me.cbxISett_IMEX.AutoSize = True
Me.cbxISett_IMEX.Checked = True
Me.cbxISett_IMEX.CheckState = System.Windows.Forms.CheckState.Checked
Me.cbxISett_IMEX.Location = New System.Drawing.Point(298, 158)
Me.cbxISett_IMEX.Location = New System.Drawing.Point(298, 180)
Me.cbxISett_IMEX.Name = "cbxISett_IMEX"
Me.cbxISett_IMEX.Size = New System.Drawing.Size(52, 17)
Me.cbxISett_IMEX.TabIndex = 61
@@ -741,7 +894,7 @@ Partial Class frmStartOptions
Me.cbxISett_VERAG.AutoSize = True
Me.cbxISett_VERAG.Checked = True
Me.cbxISett_VERAG.CheckState = System.Windows.Forms.CheckState.Checked
Me.cbxISett_VERAG.Location = New System.Drawing.Point(298, 135)
Me.cbxISett_VERAG.Location = New System.Drawing.Point(298, 157)
Me.cbxISett_VERAG.Name = "cbxISett_VERAG"
Me.cbxISett_VERAG.Size = New System.Drawing.Size(63, 17)
Me.cbxISett_VERAG.TabIndex = 60
@@ -753,7 +906,7 @@ Partial Class frmStartOptions
Me.cbxISett_TEST.AutoSize = True
Me.cbxISett_TEST.Checked = True
Me.cbxISett_TEST.CheckState = System.Windows.Forms.CheckState.Checked
Me.cbxISett_TEST.Location = New System.Drawing.Point(377, 112)
Me.cbxISett_TEST.Location = New System.Drawing.Point(377, 134)
Me.cbxISett_TEST.Name = "cbxISett_TEST"
Me.cbxISett_TEST.Size = New System.Drawing.Size(54, 17)
Me.cbxISett_TEST.TabIndex = 59
@@ -765,7 +918,7 @@ Partial Class frmStartOptions
Me.cbxISett_EKOL.AutoSize = True
Me.cbxISett_EKOL.Checked = True
Me.cbxISett_EKOL.CheckState = System.Windows.Forms.CheckState.Checked
Me.cbxISett_EKOL.Location = New System.Drawing.Point(377, 89)
Me.cbxISett_EKOL.Location = New System.Drawing.Point(377, 111)
Me.cbxISett_EKOL.Name = "cbxISett_EKOL"
Me.cbxISett_EKOL.Size = New System.Drawing.Size(54, 17)
Me.cbxISett_EKOL.TabIndex = 58
@@ -777,7 +930,7 @@ Partial Class frmStartOptions
Me.cbxISett_TOBB.AutoSize = True
Me.cbxISett_TOBB.Checked = True
Me.cbxISett_TOBB.CheckState = System.Windows.Forms.CheckState.Checked
Me.cbxISett_TOBB.Location = New System.Drawing.Point(298, 112)
Me.cbxISett_TOBB.Location = New System.Drawing.Point(298, 134)
Me.cbxISett_TOBB.Name = "cbxISett_TOBB"
Me.cbxISett_TOBB.Size = New System.Drawing.Size(55, 17)
Me.cbxISett_TOBB.TabIndex = 57
@@ -789,7 +942,7 @@ Partial Class frmStartOptions
Me.cbxISett_OREGON.AutoSize = True
Me.cbxISett_OREGON.Checked = True
Me.cbxISett_OREGON.CheckState = System.Windows.Forms.CheckState.Checked
Me.cbxISett_OREGON.Location = New System.Drawing.Point(298, 89)
Me.cbxISett_OREGON.Location = New System.Drawing.Point(298, 111)
Me.cbxISett_OREGON.Name = "cbxISett_OREGON"
Me.cbxISett_OREGON.Size = New System.Drawing.Size(73, 17)
Me.cbxISett_OREGON.TabIndex = 38
@@ -800,7 +953,7 @@ Partial Class frmStartOptions
'
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.Location = New System.Drawing.Point(596, 65)
Me.PictureBox14.Name = "PictureBox14"
Me.PictureBox14.Size = New System.Drawing.Size(18, 18)
Me.PictureBox14.TabIndex = 56
@@ -822,9 +975,9 @@ Partial Class frmStartOptions
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.Location = New System.Drawing.Point(518, 62)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(72, 38)
Me.Button1.Size = New System.Drawing.Size(72, 43)
Me.Button1.TabIndex = 6
Me.Button1.Text = "Daten --> FTP"
Me.Button1.UseVisualStyleBackColor = True
@@ -861,6 +1014,71 @@ Partial Class frmStartOptions
Me.Label6.TabIndex = 0
Me.Label6.Text = "VERAG IN"
'
'MyComboBox2
'
Me.MyComboBox2._allowedValuesFreiText = Nothing
Me.MyComboBox2._allowFreiText = False
Me.MyComboBox2._value = ""
Me.MyComboBox2.FormattingEnabled = True
Me.MyComboBox2.Location = New System.Drawing.Point(298, 252)
Me.MyComboBox2.Name = "MyComboBox2"
Me.MyComboBox2.Size = New System.Drawing.Size(62, 21)
Me.MyComboBox2.TabIndex = 64
'
'txtVRGOutEZA_BezugsNr
'
Me.txtVRGOutEZA_BezugsNr._DateTimeOnly = False
Me.txtVRGOutEZA_BezugsNr._numbersOnly = False
Me.txtVRGOutEZA_BezugsNr._numbersOnlyKommastellen = ""
Me.txtVRGOutEZA_BezugsNr._Prozent = False
Me.txtVRGOutEZA_BezugsNr._ShortDateNew = False
Me.txtVRGOutEZA_BezugsNr._ShortDateOnly = False
Me.txtVRGOutEZA_BezugsNr._TimeOnly = False
Me.txtVRGOutEZA_BezugsNr._value = ""
Me.txtVRGOutEZA_BezugsNr._Waehrung = False
Me.txtVRGOutEZA_BezugsNr._WaehrungZeichen = False
Me.txtVRGOutEZA_BezugsNr.ForeColor = System.Drawing.Color.Red
Me.txtVRGOutEZA_BezugsNr.Location = New System.Drawing.Point(359, 252)
Me.txtVRGOutEZA_BezugsNr.MaxLineLength = -1
Me.txtVRGOutEZA_BezugsNr.MaxLines_Warning = ""
Me.txtVRGOutEZA_BezugsNr.MaxLines_Warning_Label = Nothing
Me.txtVRGOutEZA_BezugsNr.Multiline = True
Me.txtVRGOutEZA_BezugsNr.Name = "txtVRGOutEZA_BezugsNr"
Me.txtVRGOutEZA_BezugsNr.Size = New System.Drawing.Size(153, 21)
Me.txtVRGOutEZA_BezugsNr.TabIndex = 65
'
'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
'
'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.Name = "txtVRGOut_BezugsNr"
Me.txtVRGOut_BezugsNr.Size = New System.Drawing.Size(153, 20)
Me.txtVRGOut_BezugsNr.TabIndex = 5
'
'TabPage3
'
Me.TabPage3.Controls.Add(Me.LinkLabel31)
@@ -1006,11 +1224,33 @@ Partial Class frmStartOptions
Me.Label3.TabIndex = 14
Me.Label3.Text = "Routine Manager IMEX"
'
'MyTextBox1
'
Me.MyTextBox1._DateTimeOnly = False
Me.MyTextBox1._numbersOnly = True
Me.MyTextBox1._numbersOnlyKommastellen = ""
Me.MyTextBox1._Prozent = False
Me.MyTextBox1._ShortDateNew = False
Me.MyTextBox1._ShortDateOnly = False
Me.MyTextBox1._TimeOnly = False
Me.MyTextBox1._value = "10000"
Me.MyTextBox1._Waehrung = False
Me.MyTextBox1._WaehrungZeichen = True
Me.MyTextBox1.ForeColor = System.Drawing.Color.Black
Me.MyTextBox1.Location = New System.Drawing.Point(151, 132)
Me.MyTextBox1.MaxLineLength = -1
Me.MyTextBox1.MaxLines_Warning = ""
Me.MyTextBox1.MaxLines_Warning_Label = Nothing
Me.MyTextBox1.Name = "MyTextBox1"
Me.MyTextBox1.Size = New System.Drawing.Size(53, 20)
Me.MyTextBox1.TabIndex = 11
Me.MyTextBox1.Text = "10000"
'
'PictureBox12
'
Me.PictureBox12.BackgroundImage = CType(resources.GetObject("PictureBox12.BackgroundImage"), System.Drawing.Image)
Me.PictureBox12.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.PictureBox12.Location = New System.Drawing.Point(87, 130)
Me.PictureBox12.Location = New System.Drawing.Point(127, 130)
Me.PictureBox12.Name = "PictureBox12"
Me.PictureBox12.Size = New System.Drawing.Size(18, 18)
Me.PictureBox12.TabIndex = 37
@@ -1023,10 +1263,10 @@ Partial Class frmStartOptions
Me.LinkLabel20.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.LinkLabel20.Location = New System.Drawing.Point(15, 135)
Me.LinkLabel20.Name = "LinkLabel20"
Me.LinkLabel20.Size = New System.Drawing.Size(66, 13)
Me.LinkLabel20.Size = New System.Drawing.Size(106, 13)
Me.LinkLabel20.TabIndex = 10
Me.LinkLabel20.TabStop = True
Me.LinkLabel20.Text = "UID-Prüfung"
Me.LinkLabel20.Text = "UID-Prüfung VERAG"
'
'PictureBox11
'
@@ -1173,129 +1413,36 @@ Partial Class frmStartOptions
Me.lblRoutineManager.TabIndex = 1
Me.lblRoutineManager.Text = "Routine Manager"
'
'CheckBox5
'txtVRGOut_MRN
'
Me.CheckBox5.AutoSize = True
Me.CheckBox5.Checked = True
Me.CheckBox5.CheckState = System.Windows.Forms.CheckState.Checked
Me.CheckBox5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.CheckBox5.Location = New System.Drawing.Point(519, 255)
Me.CheckBox5.Name = "CheckBox5"
Me.CheckBox5.Size = New System.Drawing.Size(79, 17)
Me.CheckBox5.TabIndex = 43
Me.CheckBox5.Text = "Testsystem"
Me.CheckBox5.UseVisualStyleBackColor = True
Me.txtVRGOut_MRN._DateTimeOnly = False
Me.txtVRGOut_MRN._numbersOnly = False
Me.txtVRGOut_MRN._numbersOnlyKommastellen = ""
Me.txtVRGOut_MRN._Prozent = False
Me.txtVRGOut_MRN._ShortDateNew = False
Me.txtVRGOut_MRN._ShortDateOnly = False
Me.txtVRGOut_MRN._TimeOnly = False
Me.txtVRGOut_MRN._value = ""
Me.txtVRGOut_MRN._Waehrung = False
Me.txtVRGOut_MRN._WaehrungZeichen = False
Me.txtVRGOut_MRN.ForeColor = System.Drawing.Color.Red
Me.txtVRGOut_MRN.Location = New System.Drawing.Point(359, 84)
Me.txtVRGOut_MRN.MaxLineLength = -1
Me.txtVRGOut_MRN.MaxLines_Warning = ""
Me.txtVRGOut_MRN.MaxLines_Warning_Label = Nothing
Me.txtVRGOut_MRN.Name = "txtVRGOut_MRN"
Me.txtVRGOut_MRN.Size = New System.Drawing.Size(153, 20)
Me.txtVRGOut_MRN.TabIndex = 73
'
'cboBMDUnispedFirma
'Label15
'
Me.cboBMDUnispedFirma._allowedValuesFreiText = Nothing
Me.cboBMDUnispedFirma._allowFreiText = False
Me.cboBMDUnispedFirma._value = ""
Me.cboBMDUnispedFirma.FormattingEnabled = True
Me.cboBMDUnispedFirma.Location = New System.Drawing.Point(302, 251)
Me.cboBMDUnispedFirma.Name = "cboBMDUnispedFirma"
Me.cboBMDUnispedFirma.Size = New System.Drawing.Size(148, 21)
Me.cboBMDUnispedFirma.TabIndex = 42
'
'MyComboBox2
'
Me.MyComboBox2._allowedValuesFreiText = Nothing
Me.MyComboBox2._allowFreiText = False
Me.MyComboBox2._value = ""
Me.MyComboBox2.FormattingEnabled = True
Me.MyComboBox2.Location = New System.Drawing.Point(298, 230)
Me.MyComboBox2.Name = "MyComboBox2"
Me.MyComboBox2.Size = New System.Drawing.Size(62, 21)
Me.MyComboBox2.TabIndex = 64
'
'txtVRGOutEZA_BezugsNr
'
Me.txtVRGOutEZA_BezugsNr._DateTimeOnly = False
Me.txtVRGOutEZA_BezugsNr._numbersOnly = False
Me.txtVRGOutEZA_BezugsNr._numbersOnlyKommastellen = ""
Me.txtVRGOutEZA_BezugsNr._Prozent = False
Me.txtVRGOutEZA_BezugsNr._ShortDateNew = False
Me.txtVRGOutEZA_BezugsNr._ShortDateOnly = False
Me.txtVRGOutEZA_BezugsNr._TimeOnly = False
Me.txtVRGOutEZA_BezugsNr._value = ""
Me.txtVRGOutEZA_BezugsNr._Waehrung = False
Me.txtVRGOutEZA_BezugsNr._WaehrungZeichen = False
Me.txtVRGOutEZA_BezugsNr.ForeColor = System.Drawing.Color.Red
Me.txtVRGOutEZA_BezugsNr.Location = New System.Drawing.Point(359, 230)
Me.txtVRGOutEZA_BezugsNr.MaxLineLength = -1
Me.txtVRGOutEZA_BezugsNr.MaxLines_Warning = ""
Me.txtVRGOutEZA_BezugsNr.MaxLines_Warning_Label = Nothing
Me.txtVRGOutEZA_BezugsNr.Multiline = True
Me.txtVRGOutEZA_BezugsNr.Name = "txtVRGOutEZA_BezugsNr"
Me.txtVRGOutEZA_BezugsNr.Size = New System.Drawing.Size(119, 21)
Me.txtVRGOutEZA_BezugsNr.TabIndex = 65
'
'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
'
'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
'
'MyTextBox1
'
Me.MyTextBox1._DateTimeOnly = False
Me.MyTextBox1._numbersOnly = True
Me.MyTextBox1._numbersOnlyKommastellen = ""
Me.MyTextBox1._Prozent = False
Me.MyTextBox1._ShortDateNew = False
Me.MyTextBox1._ShortDateOnly = False
Me.MyTextBox1._TimeOnly = False
Me.MyTextBox1._value = "10000"
Me.MyTextBox1._Waehrung = False
Me.MyTextBox1._WaehrungZeichen = True
Me.MyTextBox1.ForeColor = System.Drawing.Color.Black
Me.MyTextBox1.Location = New System.Drawing.Point(111, 132)
Me.MyTextBox1.MaxLineLength = -1
Me.MyTextBox1.MaxLines_Warning = ""
Me.MyTextBox1.MaxLines_Warning_Label = Nothing
Me.MyTextBox1.Name = "MyTextBox1"
Me.MyTextBox1.Size = New System.Drawing.Size(53, 20)
Me.MyTextBox1.TabIndex = 11
Me.MyTextBox1.Text = "10000"
'
'Button4
'
Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button4.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Button4.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button4.Location = New System.Drawing.Point(449, 228)
Me.Button4.Name = "Button4"
Me.Button4.Size = New System.Drawing.Size(149, 24)
Me.Button4.TabIndex = 44
Me.Button4.Text = "Stammdaten --> BMD"
Me.Button4.UseVisualStyleBackColor = True
Me.Label15.AutoSize = True
Me.Label15.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label15.Location = New System.Drawing.Point(295, 87)
Me.Label15.Name = "Label15"
Me.Label15.Size = New System.Drawing.Size(59, 13)
Me.Label15.TabIndex = 74
Me.Label15.Text = "oder MRN:"
'
'frmStartOptions
'
@@ -1432,4 +1579,13 @@ Partial Class frmStartOptions
Friend WithEvents cboBMDUnispedFirma As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents CheckBox5 As CheckBox
Friend WithEvents Button4 As Button
Friend WithEvents LinkLabel32 As LinkLabel
Friend WithEvents cbxOUT_NCTS_TESTORDNER As CheckBox
Friend WithEvents Button5 As Button
Friend WithEvents LinkLabel33 As LinkLabel
Friend WithEvents Label14 As Label
Friend WithEvents txtVRGOut_FilialenNr As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents txtVRGOut_AbfertigungsNr As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label15 As Label
Friend WithEvents txtVRGOut_MRN As VERAG_PROG_ALLGEMEIN.MyTextBox
End Class

288
initATLASAufschubkonten/frmStartOptions.resx
View File

@@ -118,6 +118,150 @@
<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="PictureBox15.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="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
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="PictureBox11.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="PictureBox10.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="PictureBox9.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="PictureBox13.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABEhJREFUSEtj
@@ -356,150 +500,6 @@
WOhxEFgYvLZus64EJhQtqBTtALDEsQ/aHnRf3FTcASpEWwBsbQkBLQW1uqiTUJABFxcXg7y8PJupqSm/
nZ2diL29vSgyBooJm5ub88nKyrIC1VLezgQ2zRk9PT0F6urqVCdNmmQwbdo0Y2Q8efJk3ebmZkVXV1de
CQkJEjM9AwMAOTMC2xlgxuQAAAAASUVORK5CYII=
</value>
</data>
<data name="PictureBox15.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="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
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="PictureBox11.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="PictureBox10.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="PictureBox9.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="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">

413
initATLASAufschubkonten/frmStartOptions.vb
View File

@@ -110,6 +110,11 @@ Public Class frmStartOptions
AddHandler f.FormClosed, AddressOf closeMe
Case "UPDATE_SMS"
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG"
UPDATE_SMS()
Case "DY_EINARBEITUNG_UNISPED"
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "UNISPED"
@@ -174,17 +179,23 @@ Public Class frmStartOptions
VERAG_PROG_ALLGEMEIN.SDL_Functions.SDL_GueltigBis_UTA_IDS()
closeMe()
Case "dakosy_mail_attach"
Case "zoll_mail_attach"
Dim pfad = ""
Dim betreff = ""
Dim von = ""
If (parameter.Count - 1) >= 3 Then 'Höher als 1 weil der index 0 der Pfad zum programm ist
pfad = parameter(2)
betreff = parameter(3)
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
If (parameter.Count - 1) >= 5 Then von = parameter(5)
importFileFromDyMailAnhang(pfad, betreff)
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
If von.Contains("@miccustoms.com") Or betreff.Contains("FORWARDING EMAIL | BEZUGSNUMMER") Then
importFileFromMICMailAnhang(pfad, betreff)
Else
importFileFromDyMailAnhang(pfad, betreff)
End If
End If
closeMe()
@@ -350,7 +361,8 @@ Public Class frmStartOptions
Dim Emails_list_sent As New VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigungList
VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigung.eMails_einlesen(KundenNr, 2, EMails, EMails_CC, EMails_BCC, Emails_list_sent)
body = body.Replace("%Platzhalter%", "E-Mails: " & EMails & " CC: " & EMails_CC & " BCC:" & EMails_BCC)
' body = body.Replace("%Platzhalter%", "E-Mails: " & EMails & " CC: " & EMails_CC & " BCC:" & EMails_BCC)
body = body.Replace("%Platzhalter%", "")
EMails = "al@verag.ag"
EMails_CC = ""
@@ -398,6 +410,236 @@ Public Class frmStartOptions
Case Else : Return "noreply@verag.ag"
End Select
End Function
Sub importFileFromMICMailAnhang(pfad, betreff)
Try
Dim sql As New VERAG_PROG_ALLGEMEIN.SQL
Dim DS As VERAG_PROG_ALLGEMEIN.cDATENSERVER = Nothing
'moveFile(d, VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\nlc\")
'IO.Directory.CreateDirectory(VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\ZOLLDATEN\TEST3\" & betreff.ToString.Replace(",", ""))
'Report nctsTransDeclGuarantees generated successfully
'If betreff.ToString.Contains("VBD FORWARDING EMAIL | BEZUGSNUMMER = ") Then
If betreff.ToString.Contains("TAD FORWARDING EMAIL | ") Then
betreff = betreff.replace("WG: ", "")
betreff = betreff.replace("FW: ", "")
betreff = betreff.replace("TAD FORWARDING EMAIL | ", "")
betreff = betreff.trim
Dim split = betreff.ToString.Split("|")
Dim MRN = ""
Dim LRN = ""
For Each s In split
If s.Trim.StartsWith("MRN") Then
MRN = s.Replace("MRN", "").Trim
End If
If s.Trim.StartsWith("LRN") Then
LRN = s.Replace("LRN", "").Trim
End If
Next
Dim tmp_filialenNr = ""
Dim tmp_abfertigungsNr = ""
Dim SPEDBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch = Nothing
If LRN.ToString.Length >= 13 And LRN.ToString.Replace("-", "/").Contains("/") Then
Dim sp = LRN.ToString.Replace("-", "/").Split("/")
If sp(0).Length = 4 And sp(1).Length >= 8 Then
tmp_filialenNr = sp(0)
tmp_abfertigungsNr = sp(1).Substring(0, 8)
If IsNumeric(tmp_filialenNr) And IsNumeric(tmp_abfertigungsNr) Then
SPEDBUCH = New VERAG_PROG_ALLGEMEIN.cSpeditionsbuch(tmp_filialenNr, tmp_abfertigungsNr)
insertIntoSpedBuch_MIC(tmp_filialenNr, tmp_abfertigungsNr, LRN, "", SPEDBUCH, MRN) 'SPEDBUCH GENEREITERENERENRNERNERNERN!!!!
End If
End If
End If
DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER("ZOLLDATEN", "VBD", tmp_filialenNr & tmp_abfertigungsNr, "", "", LRN.ToString.Replace("/", "-").Replace(",", "-").Replace("\", "-").Replace(":", "."), 0, False)
DS.da_vorlage = False
Dim ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "MIC\ECHTSYSTEM\ZOLLDATEN\VBD\NOT_IDENTIFIED\"
If SPEDBUCH IsNot Nothing AndAlso SPEDBUCH.hasEntry Then ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "MIC\ECHTSYSTEM\ZOLLDATEN\VBD\" & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\"
If Not IO.Directory.Exists(ZIEL_PFAD) Then IO.Directory.CreateDirectory(ZIEL_PFAD)
Dim destFull = ""
moveFile(pfad, ZIEL_PFAD, destFull)
If DS.insertDataToDATENSERVER(destFull) Then
If SPEDBUCH IsNot Nothing AndAlso SPEDBUCH.hasEntry Then
SPEDBUCH.DokumentId_VBD = DS.da_id
SPEDBUCH.SAVE()
'doMailZollbeleg(DS.GET_TOP1_PATH, "VBD", dy_id)
End If
End If
''ABD
ElseIf betreff.ToString.Contains("EAD FORWARDING EMAIL | ") Then
betreff = betreff.replace("WG: ", "")
betreff = betreff.replace("FW: ", "")
betreff = betreff.replace("EAD FORWARDING EMAIL | ", "")
betreff = betreff.trim
Dim split = betreff.ToString.Split("|")
Dim BEZUGSNUMMER = ""
For Each s In split
If s.Trim.StartsWith("BEZUGSNUMMER ") Then
BEZUGSNUMMER = s.Replace("BEZUGSNUMMER ", "").Trim
End If
Next
Dim tmp_filialenNr = ""
Dim tmp_abfertigungsNr = ""
Dim SPEDBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch = Nothing
If BEZUGSNUMMER.ToString.Length >= 13 And BEZUGSNUMMER.ToString.Replace("-", "/").Contains("/") Then
Dim sp = BEZUGSNUMMER.ToString.Replace("-", "/").Split("/")
If sp(0).Length = 4 And sp(1).Length >= 8 Then
tmp_filialenNr = sp(0)
tmp_abfertigungsNr = sp(1).Substring(0, 8)
If IsNumeric(tmp_filialenNr) And IsNumeric(tmp_abfertigungsNr) Then
SPEDBUCH = New VERAG_PROG_ALLGEMEIN.cSpeditionsbuch(tmp_filialenNr, tmp_abfertigungsNr)
insertIntoSpedBuch_MIC(tmp_filialenNr, tmp_abfertigungsNr, "", BEZUGSNUMMER, SPEDBUCH, "")
End If
End If
End If
DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER("ZOLLDATEN", "ABD", tmp_filialenNr & tmp_abfertigungsNr, "", "", BEZUGSNUMMER.ToString.Replace("/", "-").Replace(",", "-").Replace("\", "-").Replace(":", "."), 0, False)
DS.da_vorlage = False
Dim ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "MIC\ECHTSYSTEM\ZOLLDATEN\ABD\NOT_IDENTIFIED\"
If SPEDBUCH IsNot Nothing AndAlso SPEDBUCH.hasEntry Then ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "MIC\ECHTSYSTEM\ZOLLDATEN\ABD\" & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\"
If Not IO.Directory.Exists(ZIEL_PFAD) Then IO.Directory.CreateDirectory(ZIEL_PFAD)
Dim destFull = ""
moveFile(pfad, ZIEL_PFAD, destFull)
If DS.insertDataToDATENSERVER(destFull) Then
If SPEDBUCH IsNot Nothing AndAlso SPEDBUCH.hasEntry Then
SPEDBUCH.DokumentId_ABD = DS.da_id
SPEDBUCH.SAVE()
'doMailZollbeleg(DS.GET_TOP1_PATH, "ABD", dy_id)
End If
End If
'AVM
ElseIf betreff.ToString.Contains("AVM - Ausgangsvermerk (DE), ") Then
betreff = betreff.replace("WG: ", "")
betreff = betreff.replace("FW: ", "")
betreff = betreff.replace("AVM - Ausgangsvermerk (DE), ", "")
If betreff.ToString.Contains(",") Then
Dim sp = betreff.ToString.Split(",")
betreff = sp(0).Trim
Dim dy_id As String = ""
If betreff.ToString.Length > 15 Then
dy_id = sql.getValueTxtBySql("SELECT isnull(aes_dyaAnmID,-1) FROM [tblDakosy_AES] inner join tblDakosy_Zollanmeldungen on dy_id=aes_dyaAnmID where '" & betreff.ToString.Trim & "' LIKE aes_ObjectName +'%' and LEN(aes_ObjectName)>=13", "FMZOLL")
Else
dy_id = sql.getValueTxtBySql("SELECT isnull(aes_dyaAnmID,-1) FROM [tblDakosy_AES] inner join tblDakosy_Zollanmeldungen on dy_id=aes_dyaAnmID where aes_ObjectName='" & betreff.ToString.Trim & "'", "FMZOLL")
End If
' IO.Directory.CreateDirectory(VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\ZOLLDATEN\TEST3\")
DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER("ZOLLDATEN", "AVM", dy_id, "", "", betreff.ToString.Replace("/", "-").Replace(",", "-").Replace("\", "-").Replace(":", "."), 0, False)
DS.da_vorlage = False
Dim ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\ZOLLDATEN\AVM\NOT_IDENTIFIED\"
If IsNumeric(dy_id) AndAlso dy_id > 0 Then ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\ZOLLDATEN\AVM\" & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\"
If Not IO.Directory.Exists(ZIEL_PFAD) Then IO.Directory.CreateDirectory(ZIEL_PFAD)
Dim destFull = ""
moveFile(pfad, ZIEL_PFAD, destFull)
If DS.insertDataToDATENSERVER(destFull) Then
If IsNumeric(dy_id) AndAlso dy_id > 0 Then
sql.doSQL("UPDATE tblDakosy_Zollanmeldungen SET dy_AVM_dsId='" & DS.da_id & "' where dy_id='" & dy_id & "'", "FMZOLL")
sql.doSQL("UPDATE Speditionsbuch SET DokumentId_AVM='" & DS.da_id & "' where AtlasBezNrEZA='" & betreff.ToString.Trim & "' AND DokumentId_AVM is null", "FMZOLL") 'Falls Spedbuch schon zuvor generiert wurde!
doMailZollbeleg(DS.GET_TOP1_PATH, "AVM", dy_id)
End If
End If
End If
End If
' GENERELLES NOT IDENTIFIED!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
'""""""""""""
' If Not alreadyMoved Then
' End If
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL)
End Try
End Sub
Function insertIntoSpedBuch_MIC(FilialenNr As Integer, AbfertigungsNr As Integer, AtlasBezNrNCTS As String, AtlasBezNrEZA As String, ByRef SPEDBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch, MRN As String) As Boolean
'Dim SPEDBUCH As New VERAG_PROG_ALLGEMEIN.cSpeditionsbuch
Dim firmaTmp = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale2(FilialenNr)
If Not SPEDBUCH.hasEntry Then 'countSpedbuchEntrysFilialeAbf(FilialenNr, AbfertigungsNr) = 0 Then
' VERAG_PROG_ALLGEMEIN.cErrorHandler.sendERRORperMail("HEUREKA EZA ", "" & Me.eza_ObjectName, Now.ToString("yyyy.MM.dd HH:mm"), "al@verag.ag", "")
SPEDBUCH.FilialenNr = FilialenNr
SPEDBUCH.AbfertigungsNr = AbfertigungsNr
SPEDBUCH.NewUNTER_NR()
SPEDBUCH.Abfertigungsanzahl = 1
SPEDBUCH.Fakturiert = 0
SPEDBUCH.AtlasBezNrEZA = AtlasBezNrEZA
SPEDBUCH.AtlasBezNrNCTS = AtlasBezNrNCTS
SPEDBUCH.Zollsystem = "D"
SPEDBUCH.Sachbearbeiter = "AUTO"
SPEDBUCH.BelegNr = MRN
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
SPEDBUCH.AvisoID = SQL.DLookup("tblSnd_AvisoID", "tblSendungen", " FilialenNr='" & FilialenNr & "' and AbfertigungsNr='" & AbfertigungsNr & "' ", "AVISO", 0)
SPEDBUCH.SendungID = SQL.DLookup("tblSnd_SendungID", "tblSendungen", " FilialenNr='" & FilialenNr & "' and AbfertigungsNr='" & AbfertigungsNr & "' ", "AVISO", 0)
Dim ZOLL_IMPORT As New DAKOSY_Worker.cZOLL_IMPORT
Dim notfound = False
Dim posAnzahl = 0
Dim filialeBez = ""
SPEDBUCH = ZOLL_IMPORT.IMPORT(SPEDBUCH, SPEDBUCH.AvisoID, SPEDBUCH.SendungID, "VERA", filialeBez, 2, AtlasBezNrEZA, "", notfound, True)
If notfound Then Return False
' VERAG_PROG_ALLGEMEIN.cErrorHandler.sendERRORperMail("HEUREKA EZA !!", "" & Me.eza_ObjectName, Now.ToString("yyyy.MM.dd HH:mm"), "al@verag.ag", "")
' MsgBox(SPEDBUCH.FilialenNr & " - " & SPEDBUCH.AbfertigungsNr)
VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = firmaTmp
If SPEDBUCH.SAVE Then
VERAG_PROG_ALLGEMEIN.cSendungen.SET_SpedbuchEntry(SPEDBUCH.SendungID, True)
Return True
Else
Return False
End If
End If
Return False
End Function
'Function countSpedbuchEntrysFilialeAbf(filiale, abfertigungsnummer) As Integer
' Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
' If If(abfertigungsnummer, "") = "" Then Return 0
' Return Sql.getValueTxtBySqlVarList("SELECT isnull(count(*),0) FROM Speditionsbuch WHERE [FilialenNr]='" & filiale & "' AND AbfertigungsNr='" & abfertigungsnummer & "'", "FMZOLL")
'End Function
Sub importFileFromDyMailAnhang(pfad, betreff)
@@ -766,9 +1008,9 @@ Public Class frmStartOptions
If Not IO.File.Exists(file) Then Return False
If Not IO.Directory.Exists(toDirectory) Then IO.Directory.CreateDirectory(toDirectory)
dest = toDirectory & ".tmp_" & cut_file(file)
If IO.File.Exists(dest) Then
While IO.File.Exists(dest) Or IO.File.Exists(dest).ToString.Replace(".tmp_", "") 'wenn mit oder ohen .tmp_ existiert...
dest = toDirectory & ".tmp_" & Now.ToString("yyMMdd_HHmmss.fff_") & cut_file(file)
End If
End While
IO.File.Copy(file, dest) ' Verschiebt die Datei
IO.File.Move(dest, dest.ToString.Replace(".tmp_", "")) ' Umbenennen der Datei --> der "." am Anfang dient dazu, dass die Datei nicht abgegriffen wird, während sie kopiert wird!
dest = dest.ToString.Replace(".tmp_", "")
@@ -874,7 +1116,73 @@ Public Class frmStartOptions
Function getUID_Pruefung(maxAnz As Integer) As Boolean
getUID_Pruefung(maxAnz, "VERAG", "UID Prüfung VERAG", "mm@verag.ag;la@verag.ag", "al@verag.ag")
getUID_Pruefung(maxAnz, "IMEX", "UID Prüfung IMEX", "Viktoria.Leirich@imex-group.at;la@verag.ag", "al@verag.ag")
getUID_Pruefung(maxAnz, "AMBAR", "UID Prüfung AMBAR", "la@verag.ag", "al@verag.ag")
getUID_Pruefung(maxAnz, "UNISPED", "UID Prüfung UNISPED", "al@verag.ag", "al@verag.ag")
'getUID_Pruefung(maxAnz, "VERAG", "UID Prüfung VERAG", "mm@verag.ag;la@verag.ag", "al@verag.ag")
End Function
Function getUID_Pruefung(maxAnz As Integer, Mail_FIMRA As String, Mail_betreff As String, Mail_To As String, Optional Mail_CC As String = "", Optional Mail_BCC As String = "") As Boolean
Dim firmatmp = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Try
VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = Mail_FIMRA
Dim dt = VERAG_PROG_ALLGEMEIN.cUIDPruefung.doUIDPruefungALL(CDate(Now.ToString("01.MM.yyyy")).AddMonths(-1), True, False, maxAnz, False)
If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
Dim PDF = VERAG_PROG_ALLGEMEIN.cProgramFunctions.genExcelFromDT_NEW(dt,,,,, False)
If PDF <> "" Then
Dim list As New List(Of String)
list.Add(PDF)
Dim Body = "Anbei befinden sich die Auflistung der geprüfen UID-Nummern.<br>Bei UID-Nummer mit dem Prüfungserbnis 'OK' wurde das Prüfdatum in den Kundenstamm eingetragen. "
Body &= "<br><b>Ungültige UID-Nummern bitte manuell bearbeiten!</b>"
Body &= "<br><br>Erstellt am: " & Now.ToShortDateString & ", um " & Now.ToShortTimeString
Body &= "<br><br>Automatisch generiertes E-Mail."
VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(Mail_To, Mail_betreff, Body,,, False, Mail_CC, Mail_BCC, list)
' VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("al@verag.ag", "UID Prüfung", Body,,, False, ,, list)
End If
End If
VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = firmatmp
Return True
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = firmatmp
MsgBox(ex.Message & ex.StackTrace)
Return False
End Try
End Function
Function getUID_PruefungVERAG(maxAnz As Integer) As Boolean
Dim firmatmp = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Try
VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG"
Dim dt = VERAG_PROG_ALLGEMEIN.cUIDPruefung.doUIDPruefungALL(CDate(Now.ToString("01.MM.yyyy")).AddMonths(-1), True, False, maxAnz, False)
If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
Dim PDF = VERAG_PROG_ALLGEMEIN.cProgramFunctions.genExcelFromDT_NEW(dt,,,,, False)
If PDF <> "" Then
Dim list As New List(Of String)
list.Add(PDF)
Dim Body = "Anbei befinden sich die Auflistung der geprüfen UID-Nummern.<br>Bei UID-Nummer mit dem Prüfungserbnis 'OK' wurde das Prüfdatum in den Kundenstamm eingetragen. "
Body &= "<br><b>Ungültige UID-Nummern bitte manuell bearbeiten!</b>"
Body &= "<br><br>Erstellt am: " & Now.ToShortDateString & ", um " & Now.ToShortTimeString
Body &= "<br><br>Automatisch generiertes E-Mail."
VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("mm@verag.ag;la@verag.ag", "UID Prüfung VERAG", Body,,, False, "al@verag.ag",, list)
' VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("al@verag.ag", "UID Prüfung", Body,,, False, ,, list)
End If
End If
VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = firmatmp
Return True
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = firmatmp
MsgBox(ex.Message & ex.StackTrace)
Return False
End Try
End Function
Function getUID_PruefungIMEX(maxAnz As Integer) As Boolean
Dim firmatmp = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Try
VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "IMEX"
Dim dt = VERAG_PROG_ALLGEMEIN.cUIDPruefung.doUIDPruefungALL(CDate(Now.ToString("01.MM.yyyy")).AddMonths(-1), True, False, maxAnz, False)
If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
@@ -883,21 +1191,50 @@ Public Class frmStartOptions
Dim list As New List(Of String)
list.Add(PDF)
Dim Body = "Anbei befinden sich die Auflistung der geprüfen UID-Nummern.<br>Bei UID-Nummer mit dem Prüfungserbnis 'OK' wurde das Prüfdatum in den Kundenstamm eingetragen. "
Body &= "<br><b>Ungültige UID-Nummern bitte manuell bearbeiten!</b>"
Body &= "<br><b>Ungültige UID-Nummern bitte manuell bearbeiten!</b>"
Body &= "<br><br>Erstellt am: " & Now.ToShortDateString & ", um " & Now.ToShortTimeString
Body &= "<br><br>Automatisch generiertes E-Mail."
VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("cw@verag.ag;mm@verag.ag", "UID Prüfung", Body,,, False, "al@verag.ag",, list)
VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("Viktoria.Leirich@imex-group.at;la@verag.ag", "UID Prüfung IMEX", Body,,, False, "al@verag.ag",, list)
' VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("al@verag.ag", "UID Prüfung", Body,,, False, ,, list)
End If
End If
VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = firmatmp
Return True
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = firmatmp
MsgBox(ex.Message & ex.StackTrace)
Return False
End Try
End Function
Function getUID_PruefungAMBAR(maxAnz As Integer) As Boolean
Dim firmatmp = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Try
VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "AMBAR"
Dim dt = VERAG_PROG_ALLGEMEIN.cUIDPruefung.doUIDPruefungALL(CDate(Now.ToString("01.MM.yyyy")).AddMonths(-1), True, False, maxAnz, False)
If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
Dim PDF = VERAG_PROG_ALLGEMEIN.cProgramFunctions.genExcelFromDT_NEW(dt,,,,, False)
If PDF <> "" Then
Dim list As New List(Of String)
list.Add(PDF)
Dim Body = "Anbei befinden sich die Auflistung der geprüfen UID-Nummern.<br>Bei UID-Nummer mit dem Prüfungserbnis 'OK' wurde das Prüfdatum in den Kundenstamm eingetragen. "
Body &= "<br><b>Ungültige UID-Nummern bitte manuell bearbeiten!</b>"
Body &= "<br><br>Erstellt am: " & Now.ToShortDateString & ", um " & Now.ToShortTimeString
Body &= "<br><br>Automatisch generiertes E-Mail."
VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("la@verag.ag", "UID Prüfung AMBAR", Body,,, False, "al@verag.ag",, list)
' VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("al@verag.ag", "UID Prüfung", Body,,, False, ,, list)
End If
End If
VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = firmatmp
Return True
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = firmatmp
MsgBox(ex.Message & ex.StackTrace)
Return False
End Try
End Function
Function getEZB_Waehrungskurse90D() As Boolean
Dim MyData As String = ""
@@ -1167,7 +1504,7 @@ Public Class frmStartOptions
Private Sub LinkLabel20_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel20.LinkClicked
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
Dim bool = getUID_Pruefung(MyTextBox1.Text)
Dim bool = getUID_PruefungVERAG(MyTextBox1.Text)
showPic(bool, PictureBox12)
End Sub
@@ -1268,11 +1605,29 @@ Public Class frmStartOptions
End Sub
Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click
Dim ftmp As Object = If(IsNumeric(txtVRGOut_FilialenNr.Text.Trim), txtVRGOut_FilialenNr.Text, Nothing)
Dim atmp As Object = If(IsNumeric(txtVRGOut_AbfertigungsNr.Text.Trim), txtVRGOut_AbfertigungsNr.Text, Nothing)
Dim BezugsNr = txtVRGOut_BezugsNr.Text
If txtVRGOut_BezugsNr.Text.Trim = "" And txtVRGOut_MRN.Text <> "" Then
Select Case MyComboBox1._value
Case "DY" : BezugsNr = cVERAG_out_ncts.getBezugnNr_ByMRN(txtVRGOut_MRN.Text)
Case "TC" : BezugsNr = TELOTEC_Worker.cTelotec_Anmeldung.getBezugnNr_ByMRN(txtVRGOut_MRN.Text)
Case "DHF" : BezugsNr = cVERAG_out_ncts.getLRN_ByCRN(txtVRGOut_MRN.Text)
End Select
End If
If BezugsNr = "" Then
MsgBox("Bezugsnummer leer!")
Exit Sub
End If
Dim ok As Boolean = False
Select Case MyComboBox1._value
Case "DY" : ok = cVERAG_out_ncts.copyFileFTP_VERAGncts_DY_ByBezugsNr(txtVRGOut_BezugsNr.Text, getISett)
Case "TC" : ok = cVERAG_out_ncts.copyFileFTP_VERAGncts_TC_ByBezugsNr(txtVRGOut_BezugsNr.Text, getISett)
Case "DHF" : ok = cVERAG_out_ncts.copyFileFTP_VERAGncts_EZOLL_ByBezugsNr(txtVRGOut_BezugsNr.Text, getISett)
Case "DY" : ok = cVERAG_out_ncts.copyFileFTP_VERAGncts_DY_ByBezugsNr(BezugsNr, getISett, ftmp, atmp)
Case "TC" : ok = cVERAG_out_ncts.copyFileFTP_VERAGncts_TC_ByBezugsNr(BezugsNr, getISett, ftmp, atmp)
Case "DHF" : ok = cVERAG_out_ncts.copyFileFTP_VERAGncts_EZOLL_ByBezugsNr(BezugsNr, getISett, ftmp, atmp)
End Select
showPic(ok, PictureBox14)
@@ -1491,4 +1846,38 @@ Public Class frmStartOptions
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = CheckBox5.Checked 'False
VERAG_PROG_ALLGEMEIN.cBMD_Interface.genDatensatzCSV_ALL(CheckBox4.Checked,, False)
End Sub
Private Sub LinkLabel32_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel32.LinkClicked
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
Dim bool = getUID_PruefungIMEX(MyTextBox1.Text)
showPic(bool, PictureBox12)
End Sub
Private Sub LinkLabel33_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel33.LinkClicked
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
Dim bool = getUID_PruefungAMBAR(MyTextBox1.Text)
showPic(bool, PictureBox12)
End Sub
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
UPDATE_SMS()
End Sub
Function UPDATE_SMS() As Boolean
Try
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Dim dt As DataTable = SQL.loadDgvBySql("SELECT * FROM tblSMS where sms_Status not IN(3,4) and sms_MessageIds is not null and sms_MessageIds not like 'https://api.esendex.com/%'", "FMZOLL")
If dt IsNot Nothing Then
For Each r In dt.Rows
Dim cSMS As New VERAG_PROG_ALLGEMEIN.cSMS(r("sms_id"))
cSMS.checkSMSStatus()
Next
End If
Return True
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name)
Return False
End Try
End Function
End Class

116
initATLASAufschubkonten/frmTCNachrichtenVerarbeitung.vb
View File

@@ -12,6 +12,7 @@ Public Class frmTCNachrichtenVerarbeitung
' Dim DY_PFAD = "C:\Users\DEVELOPER1\Desktop\test\TEST\"
Dim TELOTEC_PFAD = "" '"C:\Users\DEVELOPER1\Desktop\test\TEST\Nachrichtendaten_Einarbeitung\"
Dim TELOTEC_PFAD_VERAG = "" '"C:\Users\DEVELOPER1\Desktop\test\TEST\Nachrichtendaten_Einarbeitung\"
Dim VERARBEITUNGS_PFAD = "" '"C:\Users\DEVELOPER1\Desktop\test\TEST\Nachrichtendaten_Einarbeitung\"
Dim ZIEL_PFAD = "" '"C:\Users\DEVELOPER1\Desktop\test\TEST\Nachrichtendaten_Ablage\"
Dim ERROR_PFAD = "" '"C:\Users\DEVELOPER1\Desktop\test\TEST\Nachrichtendaten_ERROR\"
@@ -38,6 +39,7 @@ Public Class frmTCNachrichtenVerarbeitung
Sub initPfade()
Me.TELOTEC_PFAD = TELOTEC_Worker.cTC_Paramter.GET_PARAM_ByName("TELOTEC_PFAD", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM)
Me.TELOTEC_PFAD_VERAG = TELOTEC_Worker.cTC_Paramter.GET_PARAM_ByName("TELOTEC_PFAD_VERAG", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM)
Me.VERARBEITUNGS_PFAD = TELOTEC_Worker.cTC_Paramter.GET_PARAM_ByName("VERARBEITUNGS_PFAD", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM)
'VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\TESTSYSTEM\Nachrichtendaten_Einarbeitung\"
Me.ZIEL_PFAD = TELOTEC_Worker.cTC_Paramter.GET_PARAM_ByName("ZIEL_PFAD", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM)
@@ -59,6 +61,7 @@ Public Class frmTCNachrichtenVerarbeitung
ListBox3.Items.Add(frmStartOptions.cut_file(d))
Me.Refresh()
Next
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
@@ -66,6 +69,7 @@ Public Class frmTCNachrichtenVerarbeitung
Try
Label9.Visible = True
Dim cnt = getNachrichtenDatenFromTelotec()
cnt += getNachrichtenDatenFromTelotec_VERAG()
Label9.Text = cnt & " Datensätze empfangen."
Catch ex As Exception
@@ -165,7 +169,34 @@ Public Class frmTCNachrichtenVerarbeitung
'Return cnt
End Function
Function getNachrichtenDatenFromTelotec_VERAG() As Integer
Dim cnt = 0
Try
For Each f In IO.Directory.GetFiles(TELOTEC_PFAD_VERAG)
Dim FI As New FileInfo(f)
If Not FI.Name.StartsWith(".") Then
'Temp. DownloadPfad
Dim destFilenameTMP = VERARBEITUNGS_PFAD + "." & If(IO.File.Exists(VERARBEITUNGS_PFAD & "." & FI.Name), Now.ToString("yyMMdd_HHmmss.fff_"), "") & FI.Name
'Datei herunterladen
IO.File.Copy(f, destFilenameTMP)
If IO.File.Exists(destFilenameTMP) Then IO.File.Delete(f) 'Datei nach erfolgreichem Herunterladen vom Server löschen
'Gültiger Filename
Dim destFilename = VERARBEITUNGS_PFAD & If(IO.File.Exists(VERARBEITUNGS_PFAD & FI.Name), Now.ToString("yyMMdd_HHmmss.fff_"), "") & FI.Name
IO.File.Move(destFilenameTMP, destFilename) 'Datei umbenennen
Dim fi_dest As FileInfo = New FileInfo(destFilename)
ListBox3.Items.Add(frmStartOptions.cut_file(fi_dest.Name)) 'zur Liste hinzufügen
cnt += 1
End If
Next
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
Return cnt
End Function
@@ -204,7 +235,14 @@ Public Class frmTCNachrichtenVerarbeitung
Return (character = 9 OrElse character = 10 OrElse character = 13 OrElse (character >= 32 AndAlso character <= 55295) OrElse (character >= 57344 AndAlso character <= 65533) OrElse (character >= 65536 AndAlso character <= 1114111))
End Function
Private Function getFilesInOrder() As String()
Dim myDirectory As New IO.DirectoryInfo(VERARBEITUNGS_PFAD)
'Dim myfiles() As String = myDirectory.GetFiles.OrderBy(Function(x) x.LastWriteTime).Select(Function(x) x.FullName).Take(40).ToArray
Dim myfiles() As String = myDirectory.GetFiles.OrderBy(Function(x) x.CreationTime).Select(Function(x) x.FullName).ToArray
' Dim myfiles As FileInfo() = myDirectory.GetFiles().OrderBy(Function(p) p.CreationTime).Select(Function(x) x.FullName).ToArray
Return myfiles
End Function
Sub DatenEinlesen()
@@ -216,57 +254,60 @@ Public Class frmTCNachrichtenVerarbeitung
Exit Sub
End If
For Each d In System.IO.Directory.GetFiles(VERARBEITUNGS_PFAD)
For Each d In getFilesInOrder() 'System.IO.Directory.GetFiles(VERARBEITUNGS_PFAD)
Try
Dateiname = d
cWorker_NCTS.Dateiname = d
If IO.File.Exists(d) Then
Dim found = False
Dim fi As FileInfo = New FileInfo(d)
If Not fi.Name.StartsWith(".") Then
' EDIFACT
' If fi.Extension = ".edi" Then
Dim alreadyMoved = False
If fi.Extension = ".xml" Then
Dim xmlWriterSettings As XmlWriterSettings = New XmlWriterSettings With {.Encoding = System.Text.Encoding.UTF8, .CheckCharacters = True}
' EDIFACT
' If fi.Extension = ".edi" Then
Dim alreadyMoved = False
If fi.Extension = ".xml" Then
Dim xmlWriterSettings As XmlWriterSettings = New XmlWriterSettings With {.Encoding = System.Text.Encoding.UTF8, .CheckCharacters = True}
Dim doc As New XmlDocument()
Dim XML_Code = System.IO.File.ReadAllText(d, System.Text.UTF8Encoding.Default)
Dim doc As New XmlDocument()
Dim XML_Code = System.IO.File.ReadAllText(d, System.Text.UTF8Encoding.Default)
doc.LoadXml(SanitizeXmlString(XML_Code))
Dim VERSION As String = ""
doc.LoadXml(SanitizeXmlString(XML_Code))
Dim VERSION As String = ""
'------------------------------------------------------------------------------------------------------------------------------
' eZOLL
'------------------------------------------------------------------------------------------------------------------------------
'------------------------------------------------------------------------------------------------------------------------------
' eZOLL
'------------------------------------------------------------------------------------------------------------------------------
'------------------------------------------
'------------------ Anmeldung ------------------
'------------------------------------------
'TC: Versandbestätigung
If Not found And cGetMsgType.isTC_Anmeldung(doc) Then
If readTC_Anmeldung(doc, d) <> "" Then found = True
' If bezugsNr <> "" Then addDGVEinarbeitung("NCTS: Versandbestätigung", bezugsNr) : found = True
End If
End If
If True Then
If Not alreadyMoved Then
If found Then
If Not IO.Directory.Exists(ZIEL_PFAD & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\") Then IO.Directory.CreateDirectory(ZIEL_PFAD & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\")
frmStartOptions.moveFile(d, ZIEL_PFAD & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\")
Else
frmStartOptions.moveFile(d, ERROR_PFAD)
'------------------------------------------
'------------------ Anmeldung ------------------
'------------------------------------------
'TC: Versandbestätigung
If Not found And cGetMsgType.isTC_Anmeldung(doc) Then
If readTC_Anmeldung(doc, d) <> "" Then found = True
' If bezugsNr <> "" Then addDGVEinarbeitung("NCTS: Versandbestätigung", bezugsNr) : found = True
End If
End If
End If
If True Then
If Not alreadyMoved Then
If found Then
If Not IO.Directory.Exists(ZIEL_PFAD & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\") Then IO.Directory.CreateDirectory(ZIEL_PFAD & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\")
frmStartOptions.moveFile(d, ZIEL_PFAD & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\")
Else
frmStartOptions.moveFile(d, ERROR_PFAD)
End If
End If
Me.Refresh()
If found Then cntDatenEingelesen += 1 Else dsNichtErkannt += 1
End If
Me.Refresh()
If found Then cntDatenEingelesen += 1 Else dsNichtErkannt += 1
End If
End If
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name)
@@ -544,8 +585,11 @@ Public Class frmTCNachrichtenVerarbeitung
End Select
'Derzeit nur IMEX
TC.telanm_firma = "IMEX"
TC.telanm_niederlassung = "Sub"
TC.telanm_firma = vifDEC.Mandant_ID.ToUpper '"IMEX"
If TC.telanm_BezugsNr.ToString.StartsWith("5501") Then
TC.telanm_firma = "IMEX" 'VERAG WO
End If
TC.telanm_niederlassung = "SUB"
TC.telanm_Erstellung = Now
TC.telanm_LetzteBearbeitung = Now