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

new

Browse Source
This commit is contained in:
Andreas Luxbauer
2021-09-07 08:31:25 +02:00
parent 2c80644224
commit 289037b7f3
28 changed files with 1882 additions and 702 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
DAKOSY_Worker/DAKOSY/ATLAS/NCTS/cDakosyNCTSOut.vb
View File

@@ -921,7 +921,7 @@ Public Class cDakosyNCTSOut
SPEDITIONSBUCH.Abfertigungsart = 6 SPEDITIONSBUCH.Abfertigungsart = 6
For Each s In DY.ncts_SICHERHEITSANGABEN For Each s In DY.ncts_SICHERHEITSANGABEN
Select Case If(s.nctsSA_GRN, "") Select Case If(s.nctsSA_GRN, "")
Case "15TR0004000020917", "12TR0004000004665", "17TR0004000032349", "17TR0004000029518" : SPEDITIONSBUCH.Abfertigungsart = 34 Case "15TR0004000020917", "12TR0004000004665", "17TR0004000032349", "17TR0004000029518", "21TR0004000079552", "21TR0004000078157" : SPEDITIONSBUCH.Abfertigungsart = 34
Case "16DE0000000068410" : SPEDITIONSBUCH.Abfertigungsart = 33 Case "16DE0000000068410" : SPEDITIONSBUCH.Abfertigungsart = 33
Case "15TR0004000020908", "13TR0004000005094", "18DE0000000073276" : SPEDITIONSBUCH.Abfertigungsart = 37 Case "15TR0004000020908", "13TR0004000005094", "18DE0000000073276" : SPEDITIONSBUCH.Abfertigungsart = 37
End Select End Select
@@ -944,7 +944,7 @@ Public Class cDakosyNCTSOut
End If End If
End If End If
VERAG_PROG_ALLGEMEIN.cAllgemein.ERR_OP_GLOBAL = VERAG_PROG_ALLGEMEIN.ERROR_OP.SHOW
Try Try
Dim ANM As New DAKOSY_Worker.cDakosy_Zollanmeldungen(DY.ncts_dyaAnmID) Dim ANM As New DAKOSY_Worker.cDakosy_Zollanmeldungen(DY.ncts_dyaAnmID)

1
DAKOSY_Worker/DAKOSY_Worker_lib.vbproj
View File

@@ -21,6 +21,7 @@
<OutputPath>bin\Debug\</OutputPath> <OutputPath>bin\Debug\</OutputPath>
<DocumentationFile>DAKOSY_Worker.xml</DocumentationFile> <DocumentationFile>DAKOSY_Worker.xml</DocumentationFile>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn> <NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
<PlatformTarget>x64</PlatformTarget>
</PropertyGroup> </PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' "> <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<DebugType>pdbonly</DebugType> <DebugType>pdbonly</DebugType>

5
DAKOSY_Worker/cDakosy_Statusmeldungen.vb
View File

@@ -55,9 +55,12 @@ Public Class cDakosy_Statusmeldungen
Dim STATUS As New cDakosy_Statusmeldungen Dim STATUS As New cDakosy_Statusmeldungen
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
'Primär wird nach erg_datum geprüft! 'Primär wird nach erg_datum geprüft!
Dim cntNewerTrans As Integer = SQL.getValueTxtBySql("SELECT COUNT(*) FROM [tblDakosy_Statusmeldungen] where dySt_BezugsNr='" & BezugsNr & "' and isnull([dySt_ergZeitpunkt],dySt_DakosyTransaktionsDatum)> '" & ergDate & "'", "FMZOLL") Dim cntNewerTrans As Integer = SQL.getValueTxtBySql("SELECT COUNT(*) FROM [tblDakosy_Statusmeldungen] where dySt_BezugsNr='" & BezugsNr & "' and isnull(isnull([dySt_ergZeitpunkt],dySt_DakosyTransaktionsDatum),[dySt_ts])> '" & ergDate & "' AND [dySt_status] > 5 ", "FMZOLL")
' AND [dySt_status] > 5 --> Weil bei den 5er Status keine korrekte Zeitangabe vorliegt und die hoheren Staten sind immer danach.
' MsgBox("SELECT COUNT(*) FROM [tblDakosy_Statusmeldungen] where dySt_BezugsNr='" & BezugsNr & "' and isnull([dySt_ergZeitpunkt],dySt_DakosyTransaktionsDatum)> '" & ergDate & "'" & " - " & cntNewerTrans & " - " & BezugsNr) ' MsgBox("SELECT COUNT(*) FROM [tblDakosy_Statusmeldungen] where dySt_BezugsNr='" & BezugsNr & "' and isnull([dySt_ergZeitpunkt],dySt_DakosyTransaktionsDatum)> '" & ergDate & "'" & " - " & cntNewerTrans & " - " & BezugsNr)
Return cntNewerTrans = 0 Return cntNewerTrans = 0
Catch ex As Exception Catch ex As Exception

57
DAKOSY_Worker/cZOLL_IMPORT.vb
View File

@@ -139,6 +139,17 @@ Public Class cZOLL_IMPORT
Dim errHInweis = "ATC: " & ABGABEN.Registriernummer & " - BezugsNr: " & ABGABEN.Bezugsnummer Dim errHInweis = "ATC: " & ABGABEN.Registriernummer & " - BezugsNr: " & ABGABEN.Bezugsnummer
ABGABEN.SAVE(errHInweis) ABGABEN.SAVE(errHInweis)
Dim EDIFACTNachrichtenNr = ""
'Aufschub - Überwachung:
Select Case CInt(ABGABEN.AKTO)
Case 3027279 : tryToInsertProgramm(ABGABEN.Eingabedatum, ABGABEN.Betrag, 1, EDIFACTNachrichtenNr, ABGABEN.Registriernummer, 0, ABGABEN.Fälligkeitsdatum)
'UNISPED Case XXX: tryToInsertProgramm(ABGABEN.Eingabedatum, ABGABEN.Betrag,XXX, EDIFACTNachrichtenNr, ABGABEN.Registriernummer, 0, ABGABEN.Fälligkeitsdatum)
'Case 2718 : VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMailTEST("al@verag.ag", "AUFSCHUB IMEX: " & ABGABEN.Betrag, "AUFSCHUB IMEX: " & ABGABEN.Betrag & vbNewLine & ABGABEN.Bezugsnummer)
End Select
End If End If
End If End If
End If End If
@@ -147,6 +158,52 @@ Public Class cZOLL_IMPORT
End If End If
End Sub End Sub
Public Function tryToInsertProgramm(brgak_datum, brgak_betrag, brgak_brgaktoId, brgak_filename, brgak_atc, brgak_fileline, brgak_faelligkeitsdatum) As Boolean
Dim sql As String = " begin tran" &
" if Not exists (select * from tblBrgAufschub with (updlock,serializable) where brgak_filename = @brgak_filename AND brgak_fileline=@brgak_fileline ) " &
" begin " &
" INSERT INTO tblBrgAufschub " &
" (brgak_datum, brgak_betrag, brgak_brgaktoId, brgak_filename, brgak_atc,brgak_fileline,brgak_faelligkeitsdatum) VALUES " &
" (@brgak_datum, @brgak_betrag, @brgak_brgaktoId, @brgak_filename, @brgak_atc,@brgak_fileline,@brgak_faelligkeitsdatum) " &
" End " &
" commit tran "
Dim cn As System.Data.SqlClient.SqlConnection = VERAG_PROG_ALLGEMEIN.SQL.GetNewOpenConnectionADMIN
Using cn
Using cmd As New System.Data.SqlClient.SqlCommand(sql, cn)
cmd.Parameters.AddWithValue("@brgak_datum", brgak_datum)
cmd.Parameters.AddWithValue("@brgak_betrag", brgak_betrag)
cmd.Parameters.AddWithValue("@brgak_brgaktoId", brgak_brgaktoId)
cmd.Parameters.AddWithValue("@brgak_filename", brgak_filename)
cmd.Parameters.AddWithValue("@brgak_atc", brgak_atc)
cmd.Parameters.AddWithValue("@brgak_fileline", brgak_fileline)
cmd.Parameters.AddWithValue("@brgak_faelligkeitsdatum", brgak_faelligkeitsdatum)
Try
cmd.ExecuteNonQuery()
'Lösche File:
Return True
Catch ex As System.Data.SqlClient.SqlException
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
End Using
End Using
cn.Close()
Return False
End Function
Shared Function getLeistungsBez(LeistungsBez) Shared Function getLeistungsBez(LeistungsBez)
Select Case LeistungsBez Select Case LeistungsBez
Case "0ML" Case "0ML"

89
MailSender/MAILSender.vb
View File

@@ -35,6 +35,38 @@ Module Mail
'Dim _erg = VERAG_PROG_ALLGEMEIN.cNCTS_Helper.getXLS_FremdBRG("ATILLA/VERAG", "TOBB - 15TR0004000020917 / 12TR0004000004665 / 17TR0004000032349 / 17TR0004000029518 ", " '12TR0004000004665','15TR0004000020917','17TR0004000032349','17TR0004000029518 '", CDate("01.08.2021 00:00:00"), CDate("12.08.2021 23:59:59"), True)
'Dim _list As New List(Of String) : _list.Add(_erg)
'VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("al@verag.ag", "TOBB " & "ATILLA/VERAG", "*Automatic generated e-mail*",,,, "", "al@verag.ag", _list)
'_erg = VERAG_PROG_ALLGEMEIN.cNCTS_Helper.getXLS_FremdBRG("IMEX", "TOBB - 15TR0004000020917 / 12TR0004000004665 / 17TR0004000032349 / 17TR0004000029518 ", " '12TR0004000004665','15TR0004000020917','17TR0004000032349','17TR0004000029518 '", CDate("01.08.2021 00:00:00"), CDate("12.08.2021 23:59:59"), True)
'_list.Clear() : _list.Add(_erg)
'VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("al@verag.ag", "TOBB " & "IMEX", "*Automatic generated e-mail*",,,, "", "al@verag.ag", _list)
'Dim _erg = VERAG_PROG_ALLGEMEIN.cNCTS_Helper.getXLS_FremdBRG("UNISPED", "TOBB - 15TR0004000020917 / 12TR0004000004665 / 17TR0004000032349 / 17TR0004000029518 ", " '12TR0004000004665','15TR0004000020917','17TR0004000032349','17TR0004000029518 '", CDate("01.08.2021 00:00:00"), CDate("12.08.2021 23:59:59"), True)
'Dim _list As New List(Of String) : _list.Add(_erg)
'' VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("al@verag.ag", "TOBB " & "UNISPED", "*Automatic generated e-mail*",,,, "", "al@verag.ag", _list)
'VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("eysan.sans@tobbund.com.tr;pinar.dogan@tobbund.com.tr;kerem.gozutok@tobbund.com.tr", "TOBB " & "UNISPED", "*Automatic generated e-mail*",,,, "Katharina.Haas@unisped.at;Sabine.Muehlboeck@unisped.at;Ernst.Stolzlechner@unisped.at", "al@verag.ag", _list)
'Exit Sub
'SendEmail_QS_Auswertung("01.01.2021", "31.01.2021")
'SendEmail_QS_Auswertung("01.02.2021", "28.02.2021")
'SendEmail_QS_Auswertung("01.03.2021", "31.03.2021")
'SendEmail_QS_Auswertung("01.04.2021", "30.04.2021")
'SendEmail_QS_Auswertung("01.05.2021", "31.05.2021")
'SendEmail_QS_Auswertung("01.06.2021", "30.06.2021")
'SendEmail_QS_Auswertung("01.07.2021", "31.07.2021")
'Threading.Thread.Sleep(165000)
'Exit Sub
'------------------------------------------------------------------------------------ '------------------------------------------------------------------------------------
@@ -44,7 +76,10 @@ Module Mail
'Dim _erg = VERAG_PROG_ALLGEMEIN.cNCTS_Helper.getXLS_FremdBRG("VERAG/ATILLA", "TOBB - 15TR0004000020917 / 12TR0004000004665 / 17TR0004000032349 / 17TR0004000029518 ", " '12TR0004000004665','15TR0004000020917','17TR0004000032349','17TR0004000029518 '", CDate("07.06.2021 00:00:00"), CDate("07.06.2021 23:59:59"), True)
'Dim _list As New List(Of String) : _list.Add(_erg)
'VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("al@verag.ag", "TOBB " & "VERAG/ATILLA test", "*Automatic generated e-mail*",,,, , , _list)
'Exit Sub
@@ -64,7 +99,6 @@ Module Mail
System.Console.WriteLine("MailSender konnte nicht gestartet werden, da eine Insatanz noch läuft...") System.Console.WriteLine("MailSender konnte nicht gestartet werden, da eine Insatanz noch läuft...")
Else Else
'Select Case firma 'Select Case firma
' Case "ATILLA" ' Case "ATILLA"
' Msg.Subject = "Kunden TR - Offene Rechnungen - ATILLA" ' Msg.Subject = "Kunden TR - Offene Rechnungen - ATILLA"
@@ -148,7 +182,11 @@ Module Mail
Case "QS_AUFTEILUNG" Case "QS_AUFTEILUNG"
System.Console.WriteLine("OPTION erkannt: QS_AUFTEILUNG _ Erstellt die Auswertung der QS-AUFTEILUNG.") System.Console.WriteLine("OPTION erkannt: QS_AUFTEILUNG _ Erstellt die Auswertung der QS-AUFTEILUNG.")
System.Console.WriteLine("Auswertung gestartet...") System.Console.WriteLine("Auswertung gestartet...")
If SendEmail_QS_Auswertung() Then 'für Andreas Details
Dim von = CDate("01." & Now.AddMonths(-1).Month & "." & Now.AddMonths(-1).Year)
Dim bis = CDate("01." & Now.Month & "." & Now.Year).AddDays(-1)
If SendEmail_QS_Auswertung(von, bis) Then 'für Andreas Details
System.Console.WriteLine("Vorgang erfolgreich abgeschlossen ...") System.Console.WriteLine("Vorgang erfolgreich abgeschlossen ...")
End If End If
Case "CS_AUFTEILUNG" Case "CS_AUFTEILUNG"
@@ -218,7 +256,7 @@ Module Mail
End Sub End Sub
Sub sendTOBB(FirmaTmp, datVon, datBis) Sub sendTOBB(FirmaTmp, datVon, datBis)
Dim _erg = VERAG_PROG_ALLGEMEIN.cNCTS_Helper.getXLS_FremdBRG(FirmaTmp, "TOBB - 15TR0004000020917 / 12TR0004000004665 / 17TR0004000032349 / 17TR0004000029518 ", " '12TR0004000004665','15TR0004000020917','17TR0004000032349','17TR0004000029518 '", datVon, datBis, True) Dim _erg = VERAG_PROG_ALLGEMEIN.cNCTS_Helper.getXLS_FremdBRG(FirmaTmp, "TOBB - 15TR0004000020917 / 12TR0004000004665 / 17TR0004000032349 / 17TR0004000029518 / 21TR0004000079552 / 21TR0004000078157", " '12TR0004000004665','15TR0004000020917','17TR0004000032349','17TR0004000029518','21TR0004000079552','21TR0004000078157'", datVon, datBis, True)
Select Case _erg Select Case _erg
Case "NO_RESULT" Case "NO_RESULT"
System.Console.WriteLine("Keine Einträge gefunden.") System.Console.WriteLine("Keine Einträge gefunden.")
@@ -495,7 +533,7 @@ Module Mail
Return False Return False
End Function End Function
Private Function SendEmail_QS_Auswertung() As Boolean Private Function SendEmail_QS_Auswertung(von, bis) As Boolean
Dim Msg As New MailMessage Dim Msg As New MailMessage
Dim myCredentials As New System.Net.NetworkCredential Dim myCredentials As New System.Net.NetworkCredential
myCredentials.UserName = "al@verag.ag" myCredentials.UserName = "al@verag.ag"
@@ -515,15 +553,15 @@ Module Mail
Try Try
Dim datum As String = Now.AddDays(-1).ToShortDateString Dim datum As String = Now.AddDays(-1).ToShortDateString
System.Console.WriteLine("Erstelle EXCEL...") System.Console.WriteLine("Erstelle EXCEL...")
Dim excel As String = genEXCEL_QS() Dim excel As String = genEXCEL_QS(von, bis)
System.Console.WriteLine("EXCEL erstellt...") System.Console.WriteLine("EXCEL erstellt..." & excel)
If excel <> "" And Not excel.StartsWith("ERROR: ") Then If excel <> "" And Not excel.StartsWith("ERROR: ") Then
System.Console.WriteLine("Sende E-Mail...") System.Console.WriteLine("Sende E-Mail...")
Msg.From = New MailAddress("al@verag.ag") Msg.From = New MailAddress("al@verag.ag")
Msg.To.Add("jl@verag.ag") Msg.To.Add("al@verag.ag")
Msg.Bcc.Add("al@verag.ag") Msg.Bcc.Add("al@verag.ag")
' Msg.Bcc.Add("ga@verag.ag") ' Msg.Bcc.Add("ga@verag.ag")
@@ -995,28 +1033,25 @@ Module Mail
End Try End Try
End Function End Function
Public Function genEXCEL_QS() As String Public Function genEXCEL_QS(von As Date, bis As Date) As String
Try Try
Dim sqlstr As String = "" Dim sqlstr As String = ""
Dim von = CDate("01." & Now.AddMonths(-1).Month & "." & Now.AddMonths(-1).Year)
Dim bis = CDate("01." & Now.Month & "." & Now.Year).AddDays(-1)
'sqlstr &= " SELECT Aviso.[Grenzstelle], SUM(Speditionsbuch.Abfertigungsanzahl) as Anzahl FROM Speditionsbuch INNER JOIN [SQLGUIDE01.verag.ost.dmn].AVISO.dbo.AVISO on Aviso.avisoid=Speditionsbuch.AvisoID " 'sqlstr &= " SELECT Aviso.[Grenzstelle], SUM(Speditionsbuch.Abfertigungsanzahl) as Anzahl FROM Speditionsbuch INNER JOIN [SQLGUIDE01.verag.ost.dmn].AVISO.dbo.AVISO on Aviso.avisoid=Speditionsbuch.AvisoID "
'sqlstr &= " WHERE PersonalnummerQS is not null " 'sqlstr &= " WHERE PersonalnummerQS is not null "
'sqlstr &= " and FilialenNr NOT IN ( 4801,4806,5501 ) " 'sqlstr &= " and FilialenNr NOT IN ( 4801,4806,5501 ) "
'sqlstr &= " and Abfertigungsdatum between '" & von.ToShortDateString & "' and '" & bis.ToShortDateString & "' " & 'sqlstr &= " and Abfertigungsdatum between '" & von.ToShortDateString & "' and '" & bis.ToShortDateString & "' " &
' " GROUP BY Aviso.[Grenzstelle]" & ' " GROUP BY Aviso.[Grenzstelle]" &
' " ORDER BY Anzahl DESC" ' " ORDER BY Anzahl DESC"
sqlstr &= " SELECT [Grenzstelle], SUM(Speditionsbuch.Abfertigungsanzahl) as Anzahl FROM Speditionsbuch " sqlstr &= " SELECT Speditionsbuch.[Grenzstelle], SUM(Speditionsbuch.Abfertigungsanzahl) as Anzahl FROM Speditionsbuch inner join Filialen on filialen.FilialenNr=Speditionsbuch.FilialenNr "
sqlstr &= " WHERE FilialenNrAbklaerung ='4803' " 'QS SUB sqlstr &= " WHERE FilialenNrAbklaerung ='4803' " 'QS SUB
' sqlstr &= " WHERE Filiale " ' sqlstr &= " WHERE Filiale "
sqlstr &= " and FilialenNr NOT IN ( 4801,4806,5501 ) " sqlstr &= " and Filialen.Firma='VERAG' "
sqlstr &= " and Abfertigungsdatum between '" & von.ToShortDateString & "' and '" & bis.ToShortDateString & "' " & sqlstr &= " and Abfertigungsdatum between '" & von.ToShortDateString & "' and '" & bis.ToShortDateString & "' " &
" GROUP BY [Grenzstelle]" & " GROUP BY Speditionsbuch.[Grenzstelle]" &
" ORDER BY Anzahl DESC" " ORDER BY Anzahl DESC"
Dim dt As DataTable = loadDgvBySqlFMZOLL(sqlstr) Dim dt As DataTable = loadDgvBySqlFMZOLL(sqlstr)
@@ -1029,6 +1064,9 @@ Module Mail
With exclApp With exclApp
.Visible = False .Visible = False
Dim filepath = sPath & "QS_Auswertung.xlsx" Dim filepath = sPath & "QS_Auswertung.xlsx"
While IO.File.Exists(filepath)
filepath = sPath & "QS_Auswertung_" & Now.ToString("ddMMyyy_HHmmss_fff") & ".xlsx"
End While
Try Try
My.Computer.FileSystem.WriteAllBytes(filepath, My.Resources.QS_Aufteilung, False) My.Computer.FileSystem.WriteAllBytes(filepath, My.Resources.QS_Aufteilung, False)
Catch ex As System.Exception Catch ex As System.Exception
@@ -1049,9 +1087,14 @@ Module Mail
Blatt.Range("F1").Value = bis.ToShortDateString Blatt.Range("F1").Value = bis.ToShortDateString
Datei.Save() Datei.Save()
Try : Datei.close() : Catch ex As System.Exception
Return "ERROR 03: " & ex.Message & vbNewLine & ex.StackTrace
End Try
.DisplayAlerts = False .DisplayAlerts = False
.quit() .quit()
Try : Datei.close(True) : Catch : End Try releaseObject(exclApp)
releaseObject(Datei)
Return filepath Return filepath
End With End With
@@ -1061,6 +1104,16 @@ Module Mail
End Try End Try
End Function End Function
Private Sub releaseObject(ByVal obj As Object)
Try
System.Runtime.InteropServices.Marshal.ReleaseComObject(obj)
obj = Nothing
Catch ex As Exception
obj = Nothing
Finally
GC.Collect()
End Try
End Sub
Public Function genEXCEL_CS() As String Public Function genEXCEL_CS() As String
Try Try

BIN
MailSender/Resources/QS_Aufteilung.xlsx
View File

Binary file not shown.

1
TELOTEK_Worker_lib/TELOTEC_Worker_lib.vbproj
View File

@@ -22,6 +22,7 @@
<OutputPath>bin\Debug\</OutputPath> <OutputPath>bin\Debug\</OutputPath>
<DocumentationFile>TELOTEC_Worker.xml</DocumentationFile> <DocumentationFile>TELOTEC_Worker.xml</DocumentationFile>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn> <NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
<PlatformTarget>x64</PlatformTarget>
</PropertyGroup> </PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' "> <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<DebugType>pdbonly</DebugType> <DebugType>pdbonly</DebugType>

9
TELOTEK_Worker_lib/cTelokec.vb
View File

@@ -392,7 +392,14 @@ Public Class cTelotec_Anmeldung
If srchStrFiliale.Length <> 4 Then Return False If srchStrFiliale.Length <> 4 Then Return False
'If srchStrAbf.Length > 8 Then srchStrAbf = srchStrAbf.Substring(0, 8) 'If srchStrAbf.Length > 8 Then srchStrAbf = srchStrAbf.Substring(0, 8)
If srchStrAbf.Length < 8 Then srchStrAbf = Me.telanm_Erstellung.ToString("yy") & CInt(srchStrAbf).ToString("000000") If srchStrAbf.Length < 8 Then
If Me.telanm_Erstellung IsNot Nothing Then
srchStrAbf = CDate(Me.telanm_Erstellung).ToString("yy") & CInt(srchStrAbf).ToString("000000")
Else
srchStrAbf = Now.ToString("yy") & CInt(srchStrAbf).ToString("000000")
End If
End If
Dim sqlstr = " Select [tblSnd_SendungID],[tblSnd_AvisoID] FROM [tblSendungen] where '" & srchStrAbf & "' like ('%' + cast(AbfertigungsNr as varchar(10))+ '%') and FilialenNr ='" & srchStrFiliale & "' and AbfertigungsNr >0" Dim sqlstr = " Select [tblSnd_SendungID],[tblSnd_AvisoID] FROM [tblSendungen] where '" & srchStrAbf & "' like ('%' + cast(AbfertigungsNr as varchar(10))+ '%') and FilialenNr ='" & srchStrFiliale & "' and AbfertigungsNr >0"

70
UID/cProgramFunctions.vb
View File

@@ -25,7 +25,7 @@ Public Class cProgramFunctions
Try Try
Dim BRG As New cBrgDb Dim BRG As New cBrgDb
Dim brg_AT As String = "05AT510000G000FP7" Dim brg_AT As String = "05AT510000G000FP7"
Dim brg_DE As String = "05DE0000000009345" Dim brg_DE As String = "05DE0000000009345" 'ALT _ NICHT MEHR IN VERWENDUNG
Dim brg_DE_NEU As String = "17DE0000000071678" Dim brg_DE_NEU As String = "17DE0000000071678"
' BRG.getBrgFromFMZOLL(datEinlesenVon.Value.ToShortDateString, datEinlesenBis.Value.ToShortDateString, "50", "60","05AT510000G000FP7") ' BRG.getBrgFromFMZOLL(datEinlesenVon.Value.ToShortDateString, datEinlesenBis.Value.ToShortDateString, "50", "60","05AT510000G000FP7")
@@ -36,23 +36,27 @@ Public Class cProgramFunctions
' Dim datvon As Date = datEinlesenVon.Value ' Dim datvon As Date = datEinlesenVon.Value
' MsgBox(datvon.ToShortDateString & " - " & datbis.ToShortDateString) ' MsgBox(datvon.ToShortDateString & " - " & datbis.ToShortDateString)
While datvon <= datbis While datvon <= datbis
' MsgBox(datvon.ToShortDateString) ' MsgBox(datvon.ToShortDateString)
Dim AtWoche_atlas As String = BRG.getBrgSumFromFMZOLL_Zabis(datvon.ToShortDateString, datbis.ToShortDateString, "50", "60", brg_AT) Dim AtWoche_atlas As Double = 0 'BRG.getBrgSumFromFMZOLL_Zabis(datvon.ToShortDateString, datbisWo.ToShortDateString, "50", "60", brg_AT)
AtWoche_atlas += BRG.getBrgSumFromFMZOLL_Zodiak(datvon.ToShortDateString, datbis.ToShortDateString, "50", "60", brg_AT) ' DATEN AUS DAKOSY/ZODIAK EINLESEN AtWoche_atlas += BRG.getBrgSumFromFMZOLL_Zodiak(datvon.ToShortDateString, datvon.ToShortDateString, "50", "60", brg_AT) ' DATEN AUS DAKOSY/ZODIAK EINLESEN
AtWoche_atlas += BRG.getBrgSumFrom_NCTS_TR(datvon.ToShortDateString, datbis.ToShortDateString, "50", "60", brg_AT) ' DATEN AUS DAKOSY/ZODIAK EINLESEN AtWoche_atlas += BRG.getBrgSumFrom_NCTS_TR(datvon.ToShortDateString, datvon.ToShortDateString, "50", "60", brg_AT) ' DATEN AUS DAKOSY/ZODIAK EINLESEN
Dim DeWoche As String = BRG.getBrgSumFromFMZOLL_Zabis(datvon.ToShortDateString, datbis.ToShortDateString, "50", "60", brg_DE) ' Dim DeWoche As String = BRG.getBrgSumFromFMZOLL_Zabis(datvon.ToShortDateString, datbisWo.ToShortDateString, "50", "60", brg_DE)
'DeWoche += BRG.getBrgSumFromFMZOLL_Zodiak(datvon.ToShortDateString, datbis.ToShortDateString, "50", "60", brg_DE) 'DeWoche += BRG.getBrgSumFromFMZOLL_Zodiak(datvon.ToShortDateString, datbisWo.ToShortDateString, "50", "60", brg_DE)
Dim De2Woche As String = BRG.getBrgSumFromFMZOLL_Zabis(datvon.ToShortDateString, datbis.ToShortDateString, "50", "60", brg_DE_NEU) Dim De2Woche As Double = 0 'BRG.getBrgSumFromFMZOLL_Zabis(datvon.ToShortDateString, datbisWo.ToShortDateString, "50", "60", brg_DE_NEU)
De2Woche += BRG.getBrgSumFromFMZOLL_Zodiak(datvon.ToShortDateString, datbis.ToShortDateString, "50", "60", brg_DE_NEU) ' DATEN AUS DAKOSY/ZODIAK EINLESEN De2Woche += BRG.getBrgSumFromFMZOLL_Zodiak(datvon.ToShortDateString, datvon.ToShortDateString, "50", "60", brg_DE_NEU) ' DATEN AUS DAKOSY/ZODIAK EINLESEN
De2Woche += BRG.getBrgSumFrom_NCTS_TR(datvon.ToShortDateString, datbis.ToShortDateString, "50", "60", brg_DE_NEU) ' DATEN AUS DAKOSY/ZODIAK EINLESEN De2Woche += BRG.getBrgSumFromFMZOLL_TELOTEC(datvon.ToShortDateString, datvon.ToShortDateString, "50", "60", brg_DE_NEU) ' DATEN AUS DAKOSY/ZODIAK EINLESEN
De2Woche += BRG.getBrgSumFrom_NCTS_TR(datvon.ToShortDateString, datvon.ToShortDateString, "50", "60", brg_DE_NEU) ' DATEN AUS DAKOSY/ZODIAK EINLESEN
' MsgBox(BRG.getBrgSumFromFMZOLL_Zodiak(datvon.ToShortDateString, datbis.ToShortDateString, "50", "60", brg_DE_NEU)) ' MsgBox(BRG.getBrgSumFromFMZOLL_Zodiak(datvon.ToShortDateString, datbisWo.ToShortDateString, "50", "60", brg_DE_NEU))
' Dim test As Double = BRG.getBrgSumFromFMZOLL_Zabis(datvon.ToShortDateString, datbis.ToShortDateString, "50", "60", brg_DE_NEU) ' Dim test As Double = BRG.getBrgSumFromFMZOLL_Zabis(datvon.ToShortDateString, datbisWo.ToShortDateString, "50", "60", brg_DE_NEU)
Dim AtWoche_zolaris As String = BRG.getBrgSumFromFMZOLL_Zolaris(datvon.ToShortDateString, datbis.ToShortDateString, "50", "60", brg_AT) Dim AtWoche_zolaris As Double = 0
AtWoche_zolaris += BRG.getBrgSumFromFMZOLL_TELOTEC(datvon.ToShortDateString, datbis.ToShortDateString, "50", "60", brg_AT) ' DATEN AUS TELOTEC EINLESEN AtWoche_zolaris += BRG.getBrgSumFromFMZOLL_Zolaris(datvon.ToShortDateString, datvon.ToShortDateString, "50", "60", brg_AT)
AtWoche_zolaris += BRG.getBrgSumFromFMZOLL_TELOTEC(datvon.ToShortDateString, datvon.ToShortDateString, "50", "60", brg_AT) ' DATEN AUS TELOTEC EINLESEN
' MsgBox("getBrgSumFromFMZOLL_Zolaris: " & BRG.getBrgSumFromFMZOLL_Zolaris(datvon.ToShortDateString, datbisWo.ToShortDateString, "50", "60", brg_AT))
' MsgBox("getBrgSumFromFMZOLL_TELOTEC: " & BRG.getBrgSumFromFMZOLL_TELOTEC(datvon.ToShortDateString, datbisWo.ToShortDateString, "50", "60", brg_AT))
'UPDATE 'UPDATE
Dim buergschaft As cBuergschaft Dim buergschaft As cBuergschaft
@@ -66,33 +70,33 @@ Public Class cProgramFunctions
' buergschaft.brg_at_tag_zolaris = "" ' buergschaft.brg_at_tag_zolaris = ""
buergschaft.brg_at_woche_atlas = StrIntValue(toDec(AtWoche_atlas)) buergschaft.brg_at_woche_atlas = StrIntValue(toDec(AtWoche_atlas))
buergschaft.brg_at_woche_zolaris = StrIntValue(toDec(AtWoche_zolaris)) buergschaft.brg_at_woche_zolaris = StrIntValue(toDec(AtWoche_zolaris))
' buergschaft.brg_de_tag_atlas = "" buergschaft.brg_de_tag_atlas = ""
buergschaft.brg_de_woche_atlas = StrIntValue(toDec(DeWoche)) buergschaft.brg_de_woche_atlas = "" 'StrIntValue(toDec(DeWoche))
buergschaft.brg_de2_woche_atlas = StrIntValue(toDec(De2Woche)) buergschaft.brg_de2_woche_atlas = StrIntValue(toDec(De2Woche))
' buergschaft.brg_at_tag = "" ' buergschaft.brg_at_tag = ""
buergschaft.brg_at_woche = StrIntValue(toDec(buergschaft.brg_at_woche_atlas) + toDec(buergschaft.brg_at_woche_zolaris)) buergschaft.brg_at_woche = StrIntValue(toDec(buergschaft.brg_at_woche_atlas) + toDec(buergschaft.brg_at_woche_zolaris))
If datvon.ToShortDateString = Now.ToShortDateString Then If datvon.ToShortDateString = Now.ToShortDateString Then
buergschaft.brg_de2_tag_atlas = buergschaft.brg_de2_tag_atlas = 0 + 'BRG.getBrgSumFromFMZOLL_Zabis(datvon.AddMonths(-3).ToShortDateString, datvon.ToShortDateString, "50", "50", brg_DE_NEU) +
BRG.getBrgSumFromFMZOLL_Zabis(datvon.AddMonths(-3).ToShortDateString, datvon.ToShortDateString, "50", "50", brg_DE_NEU) + BRG.getBrgSumFromFMZOLL_Zodiak(datvon.AddMonths(-3).ToShortDateString, datvon.ToShortDateString, "50", "50", brg_DE_NEU) +
BRG.getBrgSumFromFMZOLL_Zodiak(datvon.AddMonths(-3).ToShortDateString, datvon.ToShortDateString, "50", "50", brg_DE_NEU) + BRG.getBrgSumFromFMZOLL_TELOTEC(datvon.AddMonths(-3).ToShortDateString, datvon.ToShortDateString, "50", "50", brg_DE_NEU) +
BRG.getBrgSumFrom_NCTS_TR(datvon.AddMonths(-3).ToShortDateString, datvon.ToShortDateString, "50", "50", brg_DE_NEU) BRG.getBrgSumFrom_NCTS_TR(datvon.AddMonths(-3).ToShortDateString, datvon.ToShortDateString, "50", "50", brg_DE_NEU)
buergschaft.brg_de_tag_atlas = BRG.getBrgSumFromFMZOLL_Zabis(datvon.AddMonths(-3).ToShortDateString, datvon.ToShortDateString, "50", "50", brg_DE) 'buergschaft.brg_de_tag_atlas = BRG.getBrgSumFromFMZOLL_Zabis(datvon.AddMonths(-3).ToShortDateString, datvon.ToShortDateString, "50", "50", brg_DE)
buergschaft.brg_at_tag_atlas = buergschaft.brg_at_tag_atlas = 0 + ' BRG.getBrgSumFromFMZOLL_Zabis(datvon.AddMonths(-3).ToShortDateString, datvon.ToShortDateString, "50", "50", brg_AT) +
BRG.getBrgSumFromFMZOLL_Zabis(datvon.AddMonths(-3).ToShortDateString, datvon.ToShortDateString, "50", "50", brg_AT) + BRG.getBrgSumFromFMZOLL_Zodiak(datvon.AddMonths(-3).ToShortDateString, datvon.ToShortDateString, "50", "50", brg_AT) +
BRG.getBrgSumFromFMZOLL_Zodiak(datvon.AddMonths(-3).ToShortDateString, datvon.ToShortDateString, "50", "50", brg_AT) + BRG.getBrgSumFromFMZOLL_TELOTEC(datvon.AddMonths(-3).ToShortDateString, datvon.ToShortDateString, "50", "50", brg_AT) +
BRG.getBrgSumFrom_NCTS_TR(datvon.AddMonths(-3).ToShortDateString, datvon.ToShortDateString, "50", "50", brg_AT) BRG.getBrgSumFrom_NCTS_TR(datvon.AddMonths(-3).ToShortDateString, datvon.ToShortDateString, "50", "50", brg_AT)
Dim AtTag_zolaris As Double = BRG.getBrgSumFromFMZOLL_Zolaris(datvon.AddMonths(-3).ToShortDateString, datvon.ToShortDateString, "50", "50", brg_AT, " AND DatumBestimmungErreicht IS NULL ")
AtTag_zolaris += BRG.getBrgSumFromFMZOLL_TELOTEC(datvon.AddMonths(-3).ToShortDateString, datvon.ToShortDateString, "50", "50", brg_AT) ' DATEN AUS TELOTEC EINLESEN
buergschaft.brg_at_tag_zolaris = BRG.getBrgSumFromFMZOLL_Zolaris(datvon.AddMonths(-3).ToShortDateString, datvon.ToShortDateString, "50", "50", brg_AT, " AND DatumBestimmungErreicht IS NULL ") buergschaft.brg_at_tag_zolaris = AtTag_zolaris 'BRG.getBrgSumFromFMZOLL_Zolaris(datvon.AddMonths(-3).ToShortDateString, datvon.ToShortDateString, "50", "50", brg_AT, " AND DatumBestimmungErreicht IS NULL ")
buergschaft.brg_at_tag = StrIntValue(toDec(buergschaft.brg_at_tag_atlas) + toDec(buergschaft.brg_at_tag_zolaris)) buergschaft.brg_at_tag = StrIntValue(toDec(buergschaft.brg_at_tag_atlas) + toDec(AtTag_zolaris))
End If End If
buergschaft.brg_de_tag = buergschaft.brg_de_tag_atlas ' buergschaft.brg_de_tag = "" 'buergschaft.brg_de_tag_atlas
buergschaft.brg_de_woche = buergschaft.brg_de_woche_atlas ' buergschaft.brg_de_woche = buergschaft.brg_de_woche_atlas
buergschaft.brg_de2_tag = buergschaft.brg_de2_tag_atlas buergschaft.brg_de2_tag = buergschaft.brg_de2_tag_atlas
buergschaft.brg_de2_woche = buergschaft.brg_de2_woche_atlas buergschaft.brg_de2_woche = buergschaft.brg_de2_woche_atlas
@@ -125,7 +129,9 @@ Public Class cProgramFunctions
Private Function toDec(ByVal s As Object) As Decimal Private Function toDec(ByVal s As Object) As Decimal
Try Try
If s = "" Then Return 0 If s Is Nothing Then Return 0
If s.ToString = "" Then Return 0
Return CDec(s) Return CDec(s)
Catch ex As System.Exception Catch ex As System.Exception
Return 0 Return 0

24
UID/cSqlDb.vb
View File

@@ -156,9 +156,9 @@ Public Class cBrgDb
Public Function getBrgSumFrom_NCTS_TR(ByVal datumVon As DateTime, ByVal datumBis As DateTime, ByVal statusVon As String, ByVal statusBis As String, ByVal buergschaft As String, Optional where As String = "") As String Public Function getBrgSumFrom_NCTS_TR(ByVal datumVon As DateTime, ByVal datumBis As DateTime, ByVal statusVon As String, ByVal statusBis As String, ByVal buergschaft As String, Optional where As String = "") As Double
'Return Nothing 'Return Nothing
Dim sql As String = "SELECT sum(nctsSA_AbgabenBetrag)" Dim sql As String = "SELECT isnull(sum(cast(nctsSA_AbgabenBetrag as float)),0)"
sql &= " from tblNCTS_TR_Sicherheitsangaben inner join [tblNCTS_TR] on ncts_Id = nctsSA_NctsId" sql &= " from tblNCTS_TR_Sicherheitsangaben inner join [tblNCTS_TR] on ncts_Id = nctsSA_NctsId"
sql &= " where [ncts_Eroeffnung] BETWEEN '" & datumVon.ToShortDateString & " 00:00:00' AND '" & datumBis.ToShortDateString & " 23:23:59' AND ncts_Status BETWEEN '" & statusVon & "' AND '" & statusBis & "' AND nctsSA_GRN = '" & buergschaft & "' " & where sql &= " where [ncts_Eroeffnung] BETWEEN '" & datumVon.ToShortDateString & " 00:00:00' AND '" & datumBis.ToShortDateString & " 23:23:59' AND ncts_Status BETWEEN '" & statusVon & "' AND '" & statusBis & "' AND nctsSA_GRN = '" & buergschaft & "' " & where
'MsgBox(sql) 'MsgBox(sql)
@@ -176,7 +176,7 @@ Public Class cBrgDb
End If End If
End If End If
Return "0" Return 0
Catch ex As Exception Catch ex As Exception
MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Fehler mit der Datenbankverbindung:" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Datenbankfehler") MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Fehler mit der Datenbankverbindung:" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Datenbankfehler")
Finally Finally
@@ -184,7 +184,7 @@ Public Class cBrgDb
End Try End Try
End Using End Using
End Using End Using
Return Nothing Return 0
End Function End Function
Public Function getBrgSumFromFMZOLL_Zabis(ByVal datumVon As DateTime, ByVal datumBis As DateTime, ByVal statusVon As String, ByVal statusBis As String, ByVal buergschaft As String, Optional where As String = "") As Double Public Function getBrgSumFromFMZOLL_Zabis(ByVal datumVon As DateTime, ByVal datumBis As DateTime, ByVal statusVon As String, ByVal statusBis As String, ByVal buergschaft As String, Optional where As String = "") As Double
@@ -206,7 +206,7 @@ Public Class cBrgDb
Return dr.GetValue(0) Return dr.GetValue(0)
End If End If
End If End If
Return "" Return 0
Catch ex As Exception Catch ex As Exception
MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Fehler mit der Datenbankverbindung:" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Datenbankfehler") MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Fehler mit der Datenbankverbindung:" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Datenbankfehler")
Finally Finally
@@ -214,7 +214,7 @@ Public Class cBrgDb
End Try End Try
End Using End Using
End Using End Using
Return Nothing Return 0
End Function End Function
Public Function getBrgSumFromFMZOLL_Zodiak(ByVal datumVon As DateTime, ByVal datumBis As DateTime, ByVal statusVon As String, ByVal statusBis As String, ByVal buergschaft As String, Optional where As String = "") As Double Public Function getBrgSumFromFMZOLL_Zodiak(ByVal datumVon As DateTime, ByVal datumBis As DateTime, ByVal statusVon As String, ByVal statusBis As String, ByVal buergschaft As String, Optional where As String = "") As Double
@@ -240,7 +240,7 @@ Public Class cBrgDb
Return dr.GetValue(0) Return dr.GetValue(0)
End If End If
End If End If
Return "" Return 0
Catch ex As Exception Catch ex As Exception
MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Fehler mit der Datenbankverbindung:" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Datenbankfehler") MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Fehler mit der Datenbankverbindung:" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Datenbankfehler")
Finally Finally
@@ -248,7 +248,7 @@ Public Class cBrgDb
End Try End Try
End Using End Using
End Using End Using
Return Nothing Return 0
End Function End Function
@@ -256,11 +256,11 @@ Public Class cBrgDb
' Dim sql As String = "SELECT ISNULL(SUM(veoerz_sicbtg),0) " & ' Dim sql As String = "SELECT ISNULL(SUM(veoerz_sicbtg),0) " &
' " FROM tblZabis_Atlas_NCTS WHERE ( veoant_andat BETWEEN '" & datumVon & "' AND '" & datumBis & "') AND ( veoant_stat BETWEEN '" & statusVon & "' AND '" & statusBis & "') AND veoerz_sicbsc = '" & buergschaft & "' " & where ' " FROM tblZabis_Atlas_NCTS WHERE ( veoant_andat BETWEEN '" & datumVon & "' AND '" & datumBis & "') AND ( veoant_stat BETWEEN '" & statusVon & "' AND '" & statusBis & "') AND veoerz_sicbsc = '" & buergschaft & "' " & where
Dim sql As String = " SELECT ISNULL(sum(GVal),0) Dim sql As String = " SELECT ISNULL(sum(cast(GVal as float)),0)
from [tblTelotec_Sicherheit] inner join [tblTelotec_Anmeldung] on telanm_id = telgrt_telanmId from [tblTelotec_Sicherheit] inner join [tblTelotec_Anmeldung] on telanm_id = telgrt_telanmId
where dec_CreateDate BETWEEN '" & datumVon & "' AND '" & datumBis & "' AND telanm_Status BETWEEN '" & statusVon & "' AND '" & statusBis & "' AND GRN = '" & buergschaft & "' AND [telnam_aktuellsteNachricht]=1 " & where where dec_CreateDate BETWEEN '" & datumVon.ToShortDateString & " 00:00:000' AND '" & datumBis.ToShortDateString & " 23:59:59' AND telanm_Status BETWEEN '" & statusVon & "' AND '" & statusBis & "' AND GRN = '" & buergschaft & "' AND [telnam_aktuellsteNachricht]=1 " & where
' MsgBox(sql) ' MsgBox(sql)
' Dim daten As New List(Of cEntry) ' Dim daten As New List(Of cEntry)
Dim dr As SqlDataReader Dim dr As SqlDataReader
Dim daten As New List(Of cBuergschaft) Dim daten As New List(Of cBuergschaft)
@@ -336,7 +336,7 @@ Public Class cBrgDb
Return Nothing Return Nothing
End Function End Function
Public Function getBrgSumFromFMZOLL_Zolaris(ByVal datumVon As DateTime, ByVal datumBis As DateTime, ByVal statusVon As String, ByVal statusBis As String, ByVal buergschaft As String, Optional where As String = "") As String Public Function getBrgSumFromFMZOLL_Zolaris(ByVal datumVon As DateTime, ByVal datumBis As DateTime, ByVal statusVon As String, ByVal statusBis As String, ByVal buergschaft As String, Optional where As String = "") As Double
Dim sql As String = "SELECT ISNULL(SUM(GarantieWert),0) " & Dim sql As String = "SELECT ISNULL(SUM(GarantieWert),0) " &
" FROM tblZolaris_EZoll_NCTS WHERE ( AnmeldungsDatum BETWEEN '" & datumVon & "' AND '" & datumBis & "') AND GRN = '" & buergschaft & "' " & where " FROM tblZolaris_EZoll_NCTS WHERE ( AnmeldungsDatum BETWEEN '" & datumVon & "' AND '" & datumBis & "') AND GRN = '" & buergschaft & "' " & where

22
VERAGMonitoring/My Project/Resources.Designer.vb generated
View File

@@ -22,7 +22,7 @@ Namespace My.Resources
'''<summary> '''<summary>
''' Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw. ''' Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw.
'''</summary> '''</summary>
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "15.0.0.0"), _ <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "16.0.0.0"), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _ Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _ Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _
@@ -60,6 +60,15 @@ Namespace My.Resources
End Set End Set
End Property End Property
'''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die ähnelt.
'''</summary>
Friend ReadOnly Property dfsdfe333() As String
Get
Return ResourceManager.GetString("dfsdfe333", resourceCulture)
End Get
End Property
'''<summary> '''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary> '''</summary>
@@ -71,16 +80,7 @@ Namespace My.Resources
End Property End Property
'''<summary> '''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die ähnelt. ''' Sucht eine lokalisierte Zeichenfolge, die 1.3.8 ähnelt.
'''</summary>
Friend ReadOnly Property sdfsdfsdf3sdfsdf() As String
Get
Return ResourceManager.GetString("sdfsdfsdf3sdfsdf", resourceCulture)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die 1.3.6 ähnelt.
'''</summary> '''</summary>
Friend ReadOnly Property version() As String Friend ReadOnly Property version() As String
Get Get

4
VERAGMonitoring/My Project/Resources.resx
View File

@@ -118,13 +118,13 @@
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value> <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader> </resheader>
<data name="version" xml:space="preserve"> <data name="version" xml:space="preserve">
<value>1.3.6</value> <value>1.3.8</value>
</data> </data>
<assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" /> <assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
<data name="refresh" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="refresh" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\refresh.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\refresh.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="sdfsdfsdf3sdfsdf" xml:space="preserve"> <data name="dfsdfe333" xml:space="preserve">
<value /> <value />
</data> </data>
</root> </root>

51
VERAGMonitoring/cSqlDb.vb
View File

@@ -211,6 +211,32 @@ Public Class cBrgDb
Return Nothing Return Nothing
End Function End Function
Public Function loadDgvBySqlFromAufschubKto_Faelligkeit(ByVal faelligkeitWHERE As String, ByVal brgKto As String, Optional where As String = "") As DataTable
Dim sql As String = "SELECT [brgak_id] as Id,[brgak_datum] as Datum,[brgak_betrag] as Betrag,[brgak_filename] as Dateiname,[brgak_atc] as ATC " &
" FROM tblBrgAufschub WHERE brgak_brgaktoId = '" & brgKto & "' " & faelligkeitWHERE & where
While True 'Endlosschleife; wird verlassen durch Return oder Application.Exit()
Try
Dim myTable = New DataTable()
Using conn As SqlConnection = VERAG_PROG_ALLGEMEIN.SQL.GetNewOpenConnectionADMIN()
Using cmd As New SqlCommand(sql, conn)
Dim dr As SqlDataReader = cmd.ExecuteReader()
myTable.Load(dr)
dr.Close()
End Using
conn.Close()
End Using
Return myTable 'While Schleife wird hier verlassen
Catch ex As Exception
Dim antwort As MsgBoxResult = MsgBox(ex.Message, CType(MsgBoxStyle.RetryCancel + MsgBoxStyle.Exclamation, MsgBoxStyle),
"Problem in Function 'loadDgvBySqlZOLARIS'")
End Try
End While
Return Nothing
End Function
Public Function loadDgvBySqlFromBrgKtoAtlas(ByVal datumVon As DateTime, ByVal datumBis As DateTime, ByVal statusVon As String, ByVal statusBis As String, ByVal buergschaft As String, Optional where As String = "") As DataTable Public Function loadDgvBySqlFromBrgKtoAtlas(ByVal datumVon As DateTime, ByVal datumBis As DateTime, ByVal statusVon As String, ByVal statusBis As String, ByVal buergschaft As String, Optional where As String = "") As DataTable
Dim sql As String = "SELECT [ID_NCTS], [basman_nr], [basman_nl], [veoant_beznr], [veoant_lfdnr], [veoant_stat], [veoant_arbnr], [veoant_mrn], [veoant_abgdst], [veoant_bedst], [veoant_wgdat], [veoant_anzpos], [veoant_andat], [veoant_korant], [veoant_vrbdat], [veoant_sb], [veopos_posnr], [veopos_stat], [veopos_wbsch1], [veopos_rohmas], [veoerz_sicbsc], [veoerz_basbtg],[veoerz_sicbtg],[vegdat_erldat] " & Dim sql As String = "SELECT [ID_NCTS], [basman_nr], [basman_nl], [veoant_beznr], [veoant_lfdnr], [veoant_stat], [veoant_arbnr], [veoant_mrn], [veoant_abgdst], [veoant_bedst], [veoant_wgdat], [veoant_anzpos], [veoant_andat], [veoant_korant], [veoant_vrbdat], [veoant_sb], [veopos_posnr], [veopos_stat], [veopos_wbsch1], [veopos_rohmas], [veoerz_sicbsc], [veoerz_basbtg],[veoerz_sicbtg],[vegdat_erldat] " &
@@ -690,13 +716,32 @@ Public Class cBrgDb
Return Nothing Return Nothing
End Function End Function
Public Function getBrgSumFromBrgKto(ByVal datumVon As DateTime, ByVal datumBis As DateTime, ByVal brgKto As String, Optional where As String = "", Optional EinzahlungsbetraegeMitrechnen As Boolean = True) As String Public Function getBrgSumFromBrgKto(ByVal datumVon As DateTime, ByVal datumBis As DateTime, ByVal brgKto As String, Optional where As String = "", Optional EinzahlungsbetraegeMitrechnen As Boolean = True, Optional faelligkeitsTAG As String = "", Optional faelligkeit As Object = Nothing) As String
Dim einzahlung = "" Dim einzahlung = ""
If Not EinzahlungsbetraegeMitrechnen Then If Not EinzahlungsbetraegeMitrechnen Then
einzahlung = " AND [brgak_art] NOT IN ('einzahlung') " einzahlung = " AND [brgak_art] NOT IN ('einzahlung') "
End If End If
Dim sql As String = "SELECT SUM(brgak_betrag) " &
" FROM tblBrgAufschub WHERE ( brgak_datum BETWEEN '" & datumVon & " 00:00:00' AND '" & datumBis & " 23:59:59') AND brgak_brgaktoId = '" & brgKto & "' " & where & einzahlung Dim sql As String = ""
If faelligkeit Is Nothing Then
Dim faelligkeitWhere As String = ""
If faelligkeitsTAG <> "" Then
If faelligkeitsTAG = "16" Then
faelligkeitWhere = " And (DATEPART(day,[brgak_faelligkeitsdatum] )=" & faelligkeitsTAG & " Or [brgak_faelligkeitsdatum] Is null) "
Else
faelligkeitWhere = " And DATEPART(day,[brgak_faelligkeitsdatum] )=" & faelligkeitsTAG & " "
End If
End If
sql = "SELECT SUM(brgak_betrag) " &
" FROM tblBrgAufschub WHERE ( brgak_datum BETWEEN '" & datumVon & " 00:00:00' AND '" & datumBis & " 23:59:59') AND brgak_brgaktoId = '" & brgKto & "' " & where & einzahlung & faelligkeitWhere
Else
sql = "SELECT SUM(brgak_betrag) " &
" FROM tblBrgAufschub WHERE brgak_faelligkeitsdatum='" & CDate(faelligkeit).ToShortDateString & "' AND brgak_brgaktoId = '" & brgKto & "' " & where & einzahlung
End If
' MsgBox(sql) ' MsgBox(sql)
' Dim daten As New List(Of cEntry) ' Dim daten As New List(Of cEntry)

2
VERAGMonitoring/frmEinzahlung.vb
View File

@@ -6,6 +6,8 @@
cboBrg.Items.Add(New MyListItem("Aufschub VERAG Spedition AG (Österreich)", "2")) cboBrg.Items.Add(New MyListItem("Aufschub VERAG Spedition AG (Österreich)", "2"))
cboBrg.Items.Add(New MyListItem("Aufschub VERAG Customs Service GmbH (Österreich)", "3")) cboBrg.Items.Add(New MyListItem("Aufschub VERAG Customs Service GmbH (Österreich)", "3"))
cboBrg.Items.Add(New MyListItem("Aufschub VERAG Zollservice GmbH (Österreich)", "4")) cboBrg.Items.Add(New MyListItem("Aufschub VERAG Zollservice GmbH (Österreich)", "4"))
cboBrg.Items.Add(New MyListItem("Aufschub IMEX Customs Service GmbH", "8"))
cboBrg.Items.Add(New MyListItem("Aufschub IMEX Customs Service GmbH (Österreich)", "13"))
cboBrg.SelectedIndex = 0 cboBrg.SelectedIndex = 0
initDgv() initDgv()

878
VERAGMonitoring/frmMain.Designer.vb generated
View File

File diff suppressed because it is too large Load Diff

349
VERAGMonitoring/frmMain.vb
View File

@@ -76,6 +76,7 @@ Public Class frmMain
cbxAufschub_at_VeragCS.Enabled = False cbxAufschub_at_VeragCS.Enabled = False
cbxAufschub_at_VeragZS.Enabled = False cbxAufschub_at_VeragZS.Enabled = False
cbxAufschub_de_Imex.Checked = False
cbxAufschub_de_Imex.Enabled = False cbxAufschub_de_Imex.Enabled = False
cbxBrg_at_Imex.Enabled = False cbxBrg_at_Imex.Enabled = False
Button2.Visible = False Button2.Visible = False
@@ -96,6 +97,35 @@ Public Class frmMain
cbxAufschub_at_VeragZS.Enabled = False cbxAufschub_at_VeragZS.Enabled = False
Button2.Visible = False Button2.Visible = False
Button4.Enabled = False Button4.Enabled = False
cbxAufschub_de_Imex.Checked = True
cbxAufschub_de_Imex.Enabled = True
Case "UNISPED"
cbxBrg_at_VeragAG.Enabled = False
cbxBrg_de2_VeragAG.Enabled = False
cbxBrg_at_VeragAG.Checked = False
cbxBrg_de2_VeragAG.Checked = False
cbxBrg_at_Atilla.Enabled = False
cbxAufschub_de_VeragAG.Checked = False
cbxAufschub_at_VeragAG.Checked = False
cbxAufschub_at_VeragCS.Checked = False
cbxAufschub_at_VeragZS.Checked = False
cbxAufschub_de_VeragAG.Enabled = False
cbxAufschub_at_VeragAG.Enabled = False
cbxAufschub_at_VeragCS.Enabled = False
cbxAufschub_at_VeragZS.Enabled = False
Button2.Visible = False
Button4.Enabled = False
cbxAufschub_de_Imex.Checked = False
cbxAufschub_de_Imex.Enabled = False
cbxAufschub_de_Unisped.Checked = True
cbxAufschub_de_Unisped.Enabled = True
cbxAufschub_de_Unisped.Checked = True
cbxAufschub_de_Unisped.Enabled = True
cbxAufschubEUST_de_Unisped.Checked = True
cbxAufschubEUST_de_Unisped.Enabled = True
Case "VERIMEX" Case "VERIMEX"
'cbxBrg_at_VeragAG.Enabled = False 'cbxBrg_at_VeragAG.Enabled = False
@@ -325,59 +355,92 @@ Public Class frmMain
Dim von As Date = DateSerial(Now.Year, Now.Month, 1) Dim von As Date = DateSerial(Now.Year, Now.Month, 1)
Dim vonbrg As Date = von Dim vonbrg As Date = von
Dim vonFaell As Date = von
' Dim vonbrg26 As Date = von
If Now.Day <= 15 Then vonbrg = von.AddMonths(-1) If Now.Day <= 15 Then vonbrg = von.AddMonths(-1)
If Now.Day > 16 Then vonFaell = von.AddMonths(1)
'If Now.Day <= 26 Then vonbrg26 = von.AddMonths(-1)
'Aufschub DE VERAG AG ''Aufschub DE VERAG AG
Dim threadAufschub_de_VeragAG As _ 'Dim threadAufschub_de_VeragAG As _
New System.Threading.Thread(Sub() ' New System.Threading.Thread(Sub()
If cbxAufschub_de_VeragAG.Checked Then ' If cbxAufschub_de_VeragAG.Checked Then
Dim betragAktuell As Double = BRG.getBrgSumFromBrgKto(von.ToShortDateString, Now.ToShortDateString, brg_DE_VeragAG) ' ' Dim betragAktuell As Double = BRG.getBrgSumFromBrgKto(von.ToShortDateString, Now.ToShortDateString, brg_DE_VeragAG)
setLabel(lblAufschubAkt_de_VeragAG, String.Format("{0:C}", CDbl(betragAktuell))) ' ' setLabel(lblAufschubAkt_de_VeragAG, String.Format("{0:C}", CDbl(betragAktuell)))
Dim betragBrg As Double = BRG.getBrgSumFromBrgKto(vonbrg.ToShortDateString, Now.ToShortDateString, brg_DE_VeragAG) ' ' Dim betragBrg_16 As Double = BRG.getBrgSumFromBrgKto(vonbrg.ToShortDateString, Now.ToShortDateString, brg_DE_VeragAG,,, "16")
setLabel(lblAufschubBrg_de_VeragAG, String.Format("{0:C}", CDbl(betragBrg))) ' ' Dim betragBrg_26 As Double = BRG.getBrgSumFromBrgKto(vonbrg.AddMonths(-1).ToShortDateString, Now.ToShortDateString, brg_DE_VeragAG,,, "26")
setAlarm("Aufschubkonto DE - VERAG Spedition AG - HZA München", "1", Me.lblAufschubBrg_de_VeragAG, cMonitoringBrg.brgusrset_aufschub_AG_de_warn1, cMonitoringBrg.brgusrset_aufschub_AG_de_warn2, cMonitoringBrg.brgusrset_aufschub_AG_de_summe, lblAufschubStatus_de_VeragAG) ' Dim betragBrg_16 As Double = BRG.getBrgSumFromBrgKto(Nothing, Nothing, brg_DE_VeragAG,,, , CDate("16" & vonFaell.ToString(".MM.yyyy")))
' Dim betragBrg_26 As Double = 0
' If Now.Day <= 26 Then betragBrg_26 += BRG.getBrgSumFromBrgKto(Nothing, Nothing, brg_DE_VeragAG,, , , CDate("26" & Now.ToString(".MM.yyyy"))) '9
' betragBrg_26 += BRG.getBrgSumFromBrgKto(Nothing, Nothing, brg_DE_VeragAG,, , , CDate("26" & Now.AddMonths(1).ToString(".MM.yyyy"))) '9
' betragBrg_26 += BRG.getBrgSumFromBrgKto(Nothing, Nothing, brg_DE_VeragAG,, , , CDate("26" & Now.AddMonths(2).ToString(".MM.yyyy"))) '10
Dim betragBrg_oE As Double = BRG.getBrgSumFromBrgKto(vonbrg.ToShortDateString, Now.ToShortDateString, brg_DE_VeragAG,, False) ' setLabel(lblAufschubBrg_de_VeragAG, String.Format("{0:C}", CDbl(betragBrg_16) + CDbl(betragBrg_26)))
setLabel(lblAufschubBrg_de_VeragAG_oE, String.Format("{0:C}", CDbl(betragBrg_oE))) ' setAlarm("Aufschubkonto DE - VERAG Spedition AG - HZA München", "1", Me.lblAufschubBrg_de_VeragAG, cMonitoringBrg.brgusrset_aufschub_AG_de_warn1, cMonitoringBrg.brgusrset_aufschub_AG_de_warn2, cMonitoringBrg.brgusrset_aufschub_AG_de_summe, lblAufschubStatus_de_VeragAG)
Else
setLabel(lblAufschubAkt_de_VeragAG, "0.0")
setLabel(lblAufschubBrg_de_VeragAG, "0.0")
setLabel(lblAufschubBrg_de_VeragAG_oE, "0.0")
End If
End Sub)
threadAufschub_de_VeragAG.IsBackground = True
threadAufschub_de_VeragAG.Start()
threads.Add(threadAufschub_de_VeragAG)
lblAufschubAkt_de_VeragAG.ForeColor = Color.Black ' 'Dim betragBrg_oE_16 As Double = BRG.getBrgSumFromBrgKto(vonbrg.ToShortDateString, Now.ToShortDateString, brg_DE_VeragAG,, False, "16")
' 'Dim betragBrg_oE_26 As Double = BRG.getBrgSumFromBrgKto(vonbrg.AddMonths(-1).ToShortDateString, Now.ToShortDateString, brg_DE_VeragAG,, False, "26")
' Dim betragBrg_oE_16 As Double = BRG.getBrgSumFromBrgKto(Nothing, Nothing, brg_DE_VeragAG,, False, , CDate("16" & vonFaell.ToString(".MM.yyyy")))
' Dim betragBrg_oE_26 As Double = 0
' If Now.Day <= 26 Then betragBrg_oE_26 += BRG.getBrgSumFromBrgKto(Nothing, Nothing, brg_DE_VeragAG,, False, , CDate("26" & Now.ToString(".MM.yyyy"))) '9
' betragBrg_oE_26 += BRG.getBrgSumFromBrgKto(Nothing, Nothing, brg_DE_VeragAG,, False, , CDate("26" & Now.AddMonths(1).ToString(".MM.yyyy"))) '9
' betragBrg_oE_26 += BRG.getBrgSumFromBrgKto(Nothing, Nothing, brg_DE_VeragAG,, False, , CDate("26" & Now.AddMonths(2).ToString(".MM.yyyy"))) '10
'Aufschub DE IMEX ' setLabel(lblAufschubBrg_de_VeragAG_oE, String.Format("{0:C}", CDbl(betragBrg_oE_16) + CDbl(betragBrg_oE_26)))
Dim threadAufschub_de_Imex As _ ' Else
New System.Threading.Thread(Sub() ' ' setLabel(lblAufschubAkt_de_VeragAG, "0.0")
If cbxAufschub_de_Imex.Checked Then ' setLabel(lblAufschubBrg_de_VeragAG, "0.0")
' setLabel(lblAufschubBrg_de_VeragAG_oE, "0.0")
Dim betragAktuell As Double = BRG.getBrgSumFromBrgKto(von.ToShortDateString, Now.ToShortDateString, brg_DE_Imex) ' End If
setLabel(lblAufschubAkt_de_Imex, String.Format("{0:C}", CDbl(betragAktuell))) ' End Sub)
'threadAufschub_de_VeragAG.IsBackground = True
'threadAufschub_de_VeragAG.Start()
'threads.Add(threadAufschub_de_VeragAG)
Dim betragBrg As Double = BRG.getBrgSumFromBrgKto(vonbrg.ToShortDateString, Now.ToShortDateString, brg_DE_Imex) 'lblAufschubAkt_de_VeragAG.ForeColor = Color.Black
setLabel(lblAufschubBrg_de_Imex, String.Format("{0:C}", CDbl(betragBrg)))
setAlarm("Aufschubkonto DE - Imex Customs Service GmbH - HZA München", "8", Me.lblAufschubBrg_de_Imex, cMonitoringBrg.brgusrset_aufschub_AG_de_warn1, cMonitoringBrg.brgusrset_aufschub_AG_de_warn2, cMonitoringBrg.brgusrset_aufschub_AG_de_summe, lblAufschubStatus_de_Imex) ''Aufschub DE IMEX
'Dim threadAufschub_de_Imex As _
' New System.Threading.Thread(Sub()
' If cbxAufschub_de_Imex.Checked Then
' ' Dim betragAktuell As Double = BRG.getBrgSumFromBrgKto(von.ToShortDateString, Now.ToShortDateString, brg_DE_Imex)
' 'setLabel(lblAufschubAkt_de_Imex, String.Format("{0:C}", CDbl(betragAktuell)))
' 'Dim betragBrg_16 As Double = BRG.getBrgSumFromBrgKto(vonbrg.ToShortDateString, Now.ToShortDateString, brg_DE_Imex,,, "16")
' 'Dim betragBrg_26 As Double = BRG.getBrgSumFromBrgKto(vonbrg.ToShortDateString, Now.ToShortDateString, brg_DE_Imex,,, "26")
' Dim betragBrg_16 As Double = BRG.getBrgSumFromBrgKto(Nothing, Nothing, brg_DE_Imex,,, , CDate("16" & vonFaell.ToString(".MM.yyyy")))
' Dim betragBrg_26 As Double = 0
' If Now.Day <= 26 Then betragBrg_26 += BRG.getBrgSumFromBrgKto(Nothing, Nothing, brg_DE_Imex,, , , CDate("26" & Now.ToString(".MM.yyyy"))) '9
' betragBrg_26 += BRG.getBrgSumFromBrgKto(Nothing, Nothing, brg_DE_Imex,, , , CDate("26" & Now.AddMonths(1).ToString(".MM.yyyy"))) '9
' betragBrg_26 += BRG.getBrgSumFromBrgKto(Nothing, Nothing, brg_DE_Imex,, , , CDate("26" & Now.AddMonths(2).ToString(".MM.yyyy"))) '10
Dim betragBrg_oE As Double = BRG.getBrgSumFromBrgKto(vonbrg.ToShortDateString, Now.ToShortDateString, brg_DE_Imex,, False) ' setLabel(lblAufschubBrg_de_Imex, String.Format("{0:C}", CDbl(betragBrg_16) + CDbl(betragBrg_26)))
setLabel(lblAufschubBrg_de_Imex_oE, String.Format("{0:C}", CDbl(betragBrg_oE))) ' setAlarm("Aufschubkonto DE - Imex Customs Service GmbH - HZA München", "8", Me.lblAufschubBrg_de_Imex, cMonitoringBrg.brgusrset_aufschub_imex_de_warn1, cMonitoringBrg.brgusrset_aufschub_imex_de_warn2, cMonitoringBrg.brgusrset_aufschub_imex_de_summe, lblAufschubStatus_de_Imex)
Else
setLabel(lblAufschubAkt_de_Imex, "0.0") ' ' Dim betragBrg_oE_16 As Double = BRG.getBrgSumFromBrgKto(vonbrg.ToShortDateString, Now.ToShortDateString, brg_DE_Imex,, False, "16")
setLabel(lblAufschubBrg_de_Imex, "0.0") ' ' Dim betragBrg_oE_26 As Double = BRG.getBrgSumFromBrgKto(vonbrg.ToShortDateString, Now.ToShortDateString, brg_DE_Imex,, False, "26")
setLabel(lblAufschubBrg_de_Imex_oE, "0.0") ' Dim betragBrg_oE_16 As Double = BRG.getBrgSumFromBrgKto(Nothing, Nothing, brg_DE_Imex,, False, , CDate("16" & vonFaell.ToString(".MM.yyyy")))
End If ' Dim betragBrg_oE_26 As Double = 0
End Sub) ' If Now.Day <= 26 Then betragBrg_oE_26 += BRG.getBrgSumFromBrgKto(Nothing, Nothing, brg_DE_Imex,, False, , CDate("26" & Now.ToString(".MM.yyyy"))) '9
threadAufschub_de_Imex.IsBackground = True ' betragBrg_oE_26 += BRG.getBrgSumFromBrgKto(Nothing, Nothing, brg_DE_Imex,, False, , CDate("26" & Now.AddMonths(1).ToString(".MM.yyyy"))) '9
threadAufschub_de_Imex.Start() ' betragBrg_oE_26 += BRG.getBrgSumFromBrgKto(Nothing, Nothing, brg_DE_Imex,, False, , CDate("26" & Now.AddMonths(2).ToString(".MM.yyyy"))) '10
threads.Add(threadAufschub_de_Imex) ' setLabel(lblAufschubBrg_de_Imex_oE, String.Format("{0:C}", CDbl(betragBrg_oE_16) + CDbl(betragBrg_oE_26)))
lblAufschubAkt_de_Imex.ForeColor = Color.Black ' Else
' ' setLabel(lblAufschubAkt_de_Imex, "0.0")
' setLabel(lblAufschubBrg_de_Imex, "0.0")
' setLabel(lblAufschubBrg_de_Imex_oE, "0.0")
' End If
' End Sub)
'threadAufschub_de_Imex.IsBackground = True
'threadAufschub_de_Imex.Start()
'threads.Add(threadAufschub_de_Imex)
'lblAufschubAkt_de_Imex.ForeColor = Color.Black
Dim von_new = New Date(2015, 1, 1) 'KTOSTAND von Begin der Aufzeichnungen an... Dim von_new = New Date(2015, 1, 1) 'KTOSTAND von Begin der Aufzeichnungen an...
Dim vonbrg_new = von_new Dim vonbrg_new = von_new
@@ -480,8 +543,161 @@ Public Class frmMain
threadAufschub_at_VeragZS.Start() threadAufschub_at_VeragZS.Start()
threads.Add(threadAufschub_at_VeragZS) threads.Add(threadAufschub_at_VeragZS)
'Aufschub AT VERAG Zollservice Service GmbH
Dim threadAufschub_at_IMEX As _
New System.Threading.Thread(Sub()
If cbxAufschub_at_IMEX.Checked Then
'Dim betragAktuell As Double = CDbl(BRG.getBrgSumFromZolaris(von_new.ToShortDateString, Now.ToShortDateString, brg_AT_IMEX, True)) _
' + CDbl(BRG.getBrgSumFromBrgKto(von_new.ToShortDateString, Now.ToShortDateString, brg_AT_IMEX_Aufschub))
'setLabel(lblAufschubAkt_at_IMEX, String.Format("{0:C}", CDbl(betragAktuell)))
Dim betragBrg As Double = -CDbl(BRG.getBrgSumFromZolaris(vonbrg_new.ToShortDateString, Now.ToShortDateString, "3027279", True)) _
+ (-1 * CDbl(BRG.getBrgSumFromBrgKto(vonbrg_new.ToShortDateString, Now.ToShortDateString, 13)))
'Dim betragBrg As Double = BRG.getBrgSumFromBrgKto(vonbrg_new.ToShortDateString, Now.ToShortDateString, brg_AT_IMEX_Aufschub)
'Dim zolaris As Double = BRG.getBrgSumFromZolaris(vonbrg_new.ToShortDateString, Now.ToShortDateString, brg_AT_IMEX, True)
'betragBrg += zolaris
setLabel(lblAufschubBrg_at_IMEX, String.Format("{0:C}", CDbl(betragBrg)))
setAlarm2("Aufschubkonto AT - VERAG Zollsercvie GmbH - HZA Linz/Wels", "4", Me.lblAufschubBrg_at_IMEX, cMonitoringBrg.brgusrset_aufschub_ZS_at_warn1, cMonitoringBrg.brgusrset_aufschub_ZS_at_warn2, cMonitoringBrg.brgusrset_aufschub_ZS_at_summe, lblAufschubStatus_at_IMEX)
'Dim betragBrg_oE As Double = BRG.getBrgSumFromBrgKto(vonbrg.ToShortDateString, Now.ToShortDateString, brg_AT_IMEX,, False)
'betragBrg_oE += zolaris
'setLabel(lblAufschubBrg_at_IMEX_oE, String.Format("{0:C}", CDbl(betragBrg_oE)))
Else
' setLabel(lblAufschubAkt_at_IMEX, "0.0")
setLabel(lblAufschubBrg_at_IMEX, "0.0")
' setLabel(lblAufschubBrg_at_IMEX_oE, "0.0")
End If
End Sub)
threadAufschub_at_IMEX.IsBackground = True
threadAufschub_at_IMEX.Start()
threads.Add(threadAufschub_at_IMEX)
doAufschubCalc("ZOLL", 1, cbxAufschub_de_VeragAG, lblAufschubBrg_de_VeragAG, lblAufschubBrg_de_VeragAG_oE, lblAufschub_de_VeragAG, lblAufschubStatus_de_VeragAG) 'VERAG AG DE - ZOLL
doAufschubCalc("ZOLL", 8, cbxAufschub_de_Imex, lblAufschubBrg_de_Imex, lblAufschubBrg_de_Imex_oE, lblAufschub_de_Imex, lblAufschubStatus_de_Imex) 'IMEX DE - ZOLL
doAufschubCalc("ZOLL", 14, cbxAufschub_de_Unisped, lblAufschubBrg_de_UNISPED, lblAufschubBrg_de_UNISPED_oE, lblAufschub_de_UNISPED, lblAufschubStatus_de_UNISPED) 'UNISPED DE - ZOLL
doAufschubCalc("EUST", 15, cbxAufschubEUST_de_Unisped, lblAufschubBrgEUST_de_UNISPED, lblAufschubBrgEUST_de_UNISPED_oE, lblAufschubEUST_de_UNISPED, lblAufschubStatusEUST_de_UNISPED) 'UNISPED DE - EUST
doAufschubCalc("EUST", 12, cbxAufschubEUST_de_Imex, lblAufschubBrgEUST_de_Imex, lblAufschubBrgEUST_de_Imex_oE, lblAufschubEUST_de_Imex, lblAufschubStatusEUST_de_Imex) 'imex DE - EUST
doAufschubCalc("EUST", 10, cbxAufschubEUST_de_Global, lblAufschubBrgEUST_de_global, lblAufschubBrgEUST_de_global_oE, lblAufschubEUST_de_Global, lblAufschubStatusEUST_de_global) 'GLOBAL DE - EUST
doAufschubCalc("EUST", 11, cbxAufschubEUST_de_VeragAG, lblAufschubBrgEUST_de_VeragAG, lblAufschubBrgEUST_de_VeragAG_oE, lblAufschubEUST_de_VeragAG, lblAufschubStatusEUST_de_VeragAG) 'VERAG DE - EUST
doAufschubCalc("ZOLL", 16, cbxAufschub_de_UnispedDE, lblAufschubBrg_de_UNISPEDDE, lblAufschubBrg_de_UNISPEDDE_oE, lblAufschub_de_UNISPEDDE, lblAufschubStatus_de_UNISPEDDE) 'UNISPED(DE) DE - ZOLL
doAufschubCalc("EUST", 17, cbxAufschubEUST_de_UnispedDE, lblAufschubBrgEUST_de_UNISPEDDE, lblAufschubBrgEUST_de_UNISPEDDE_oE, lblAufschubEUST_de_UNISPEDDE, lblAufschubStatusEUST_de_UNISPEDDE) 'UNISPED(DE) DE - EUST
doAufschubCalc_AT("GESAMT", 13, cbxAufschub_at_IMEX, lblAufschubBrg_at_IMEX, Nothing, lblAufschub_at_IMEX, lblAufschubStatus_at_IMEX) 'IMEX AT - GESAMT
End Sub End Sub
Sub doAufschubCalc(ART As String, BRG_ID As Integer, cbx As CheckBox, lblBRG As Label, lblBRG_oE As Label, lblAufschub As Label, lblAStatus As Label)
Dim von As Date = DateSerial(Now.Year, Now.Month, 1)
Dim vonbrg As Date = von
Dim vonFaell As Date = von
If Now.Day <= 15 Then vonbrg = von.AddMonths(-1)
If Now.Day > 16 Then vonFaell = von.AddMonths(1)
lblAufschub.ForeColor = Color.Gray
lblBRG.ForeColor = Color.Gray
If lblBRG_oE IsNot Nothing Then lblBRG_oE.ForeColor = Color.Gray
Dim cAufschubKonten As New VERAG_PROG_ALLGEMEIN.cAufschubKonten(BRG_ID)
setLabel(lblAufschub, cAufschubKonten.brgakto_bez & " - " & CDbl(cAufschubKonten.brgakto_betrag).ToString("C0"))
Dim threadAufschub As _
New System.Threading.Thread(Sub()
If cbx.Checked Then
Dim betrag As Double = 0
Dim betrag_oE As Double = 0
If ART = "ZOLL" Then
Dim betragBrg_16 As Double = BRG.getBrgSumFromBrgKto(Nothing, Nothing, BRG_ID,,, , CDate("16" & vonFaell.ToString(".MM.yyyy")))
Dim betragBrg_26 As Double = 0
If Now.Day <= 26 Then betragBrg_26 += BRG.getBrgSumFromBrgKto(Nothing, Nothing, BRG_ID,, , , CDate("26" & Now.ToString(".MM.yyyy"))) '9
betragBrg_26 += BRG.getBrgSumFromBrgKto(Nothing, Nothing, BRG_ID,, , , CDate("26" & Now.AddMonths(1).ToString(".MM.yyyy"))) '9
betragBrg_26 += BRG.getBrgSumFromBrgKto(Nothing, Nothing, BRG_ID,, , , CDate("26" & Now.AddMonths(2).ToString(".MM.yyyy"))) '10
betrag = CDbl(betragBrg_16) + CDbl(betragBrg_26)
Dim betragBrg_oE_16 As Double = BRG.getBrgSumFromBrgKto(Nothing, Nothing, BRG_ID,, False, , CDate("16" & vonFaell.ToString(".MM.yyyy")))
Dim betragBrg_oE_26 As Double = 0
If Now.Day <= 26 Then betragBrg_oE_26 += BRG.getBrgSumFromBrgKto(Nothing, Nothing, BRG_ID,, False, , CDate("26" & Now.ToString(".MM.yyyy"))) '9
betragBrg_oE_26 += BRG.getBrgSumFromBrgKto(Nothing, Nothing, BRG_ID,, False, , CDate("26" & Now.AddMonths(1).ToString(".MM.yyyy"))) '9
betragBrg_oE_26 += BRG.getBrgSumFromBrgKto(Nothing, Nothing, BRG_ID,, False, , CDate("26" & Now.AddMonths(2).ToString(".MM.yyyy"))) '10
betrag_oE = CDbl(betragBrg_oE_16) + CDbl(betragBrg_oE_26)
Else
betrag = BRG.getBrgSumFromBrgKto(vonbrg.ToShortDateString, Now.ToShortDateString, BRG_ID)
betrag_oE = BRG.getBrgSumFromBrgKto(vonbrg.ToShortDateString, Now.ToShortDateString, BRG_ID,, False)
End If
setLabel(lblBRG, String.Format("{0:C}", betrag))
setAlarm(cAufschubKonten.brgakto_bez, BRG_ID, lblBRG, cAufschubKonten.brgakto_warn1, cAufschubKonten.brgakto_warn2, cAufschubKonten.brgakto_betrag, lblAStatus)
setLabel(lblBRG_oE, String.Format("{0:C}", betrag_oE))
setLabelvisible(lblAStatus, True)
Else
setLabel(lblBRG, "0.0")
setLabel(lblBRG_oE, "0.0")
setLabelvisible(lblAStatus, False)
End If
lblAufschub.ForeColor = Color.Black
lblBRG.ForeColor = Color.Black
lblBRG_oE.ForeColor = Color.Black
End Sub)
threadAufschub.IsBackground = True
threadAufschub.Start()
threads.Add(threadAufschub)
End Sub
Sub doAufschubCalc_AT(ART As String, BRG_ID As Integer, cbx As CheckBox, lblBRG As Label, lblBRG_oE As Label, lblAufschub As Label, lblAStatus As Label)
Dim von_new = New Date(2015, 1, 1) 'KTOSTAND von Begin der Aufzeichnungen an...
Dim vonbrg_new = von_new
' lblAufschub.ForeColor = Color.Gray
lblBRG.ForeColor = Color.Gray
If lblBRG_oE IsNot Nothing Then lblBRG_oE.ForeColor = Color.Gray
Dim cAufschubKonten As New VERAG_PROG_ALLGEMEIN.cAufschubKonten(BRG_ID)
'Aufschub AT VERAG Zollservice Service GmbH
Dim threadAufschub As _
New System.Threading.Thread(Sub()
If cbx.Checked Then
Dim betragBrg As Double = -CDbl(BRG.getBrgSumFromZolaris(vonbrg_new.ToShortDateString, Now.ToShortDateString, cAufschubKonten.brgakto_ktonr, True)) _
+ (-1 * CDbl(BRG.getBrgSumFromBrgKto(vonbrg_new.ToShortDateString, Now.ToShortDateString, BRG_ID)))
setLabel(lblBRG, String.Format("{0:C}", CDbl(betragBrg)))
setAlarm2(cAufschubKonten.brgakto_bez, BRG_ID, lblBRG, cAufschubKonten.brgakto_warn1, cAufschubKonten.brgakto_warn2, cAufschubKonten.brgakto_betrag, lblAStatus)
Else
setLabel(lblBRG, "0.0")
End If
End Sub)
threadAufschub.IsBackground = True
threadAufschub.Start()
threads.Add(threadAufschub)
End Sub
'threadsicherer Aufruf 'threadsicherer Aufruf
Delegate Sub setLabelCallback(l As Label, t As String) Delegate Sub setLabelCallback(l As Label, t As String)
Private Sub setLabel(l As Label, t As String) Private Sub setLabel(l As Label, t As String)
@@ -493,6 +709,16 @@ Public Class frmMain
End If End If
End Sub End Sub
'threadsicherer Aufruf
Delegate Sub setLabelCallbackvisible(l As Label, visible As Boolean)
Private Sub setLabelvisible(l As Label, visible As Boolean)
If Me.InvokeRequired Then
Dim d As New setLabelCallbackvisible(AddressOf setLabelvisible)
Me.Invoke(d, New Object() {l, visible})
Else
l.Visible = visible
End If
End Sub
Sub allinGray() Sub allinGray()
@@ -719,7 +945,7 @@ Public Class frmMain
End Try End Try
Return True Return True
End Function End Function
Private Sub cbxBrg_de_VeragAG_CheckedChanged(sender As Object, e As EventArgs) Handles cbxBrg_de2_VeragAG.CheckedChanged, cbxBrg_at_VeragAG.CheckedChanged, cbxAufschub_de_VeragAG.CheckedChanged, cbxAufschub_at_VeragAG.CheckedChanged, cbxAufschub_at_VeragCS.CheckedChanged, cbxAufschub_at_VeragZS.CheckedChanged Private Sub cbxBrg_de_VeragAG_CheckedChanged(sender As Object, e As EventArgs) Handles cbxBrg_de2_VeragAG.CheckedChanged, cbxBrg_at_VeragAG.CheckedChanged, cbxAufschub_de_VeragAG.CheckedChanged, cbxAufschub_at_VeragAG.CheckedChanged, cbxAufschub_at_VeragCS.CheckedChanged, cbxAufschub_at_VeragZS.CheckedChanged, cbxAufschubEUST_de_VeragAG.CheckedChanged, cbxAufschubEUST_de_Imex.CheckedChanged, cbxAufschubEUST_de_Global.CheckedChanged, cbxAufschub_de_Unisped.CheckedChanged, cbxAufschubEUST_de_Unisped.CheckedChanged, cbxAufschub_de_UnispedDE.CheckedChanged, cbxAufschubEUST_de_UnispedDE.CheckedChanged, cbxAufschub_at_IMEX.CheckedChanged, cbxBrg_at_UNISPED.CheckedChanged, cbxBrg_at_Atilla.CheckedChanged, cbxBrg_at_Imex.CheckedChanged
'MsgBox(sender.name) 'MsgBox(sender.name)
Me.Cursor = Cursors.WaitCursor Me.Cursor = Cursors.WaitCursor
If loaded Then If loaded Then
@@ -830,9 +1056,22 @@ Public Class frmMain
Dim brg_DE_VeragAG As String = "1" Dim brg_DE_VeragAG As String = "1"
Dim von As Date = DateSerial(Now.Year, Now.Month, 1) Dim von As Date = DateSerial(Now.Year, Now.Month, 1)
Dim vonbrg As Date = von Dim vonbrg As Date = von
Dim vonFaell As Date = von
If Now.Day <= 15 Then vonbrg = von.AddMonths(-1) If Now.Day <= 15 Then vonbrg = von.AddMonths(-1)
If Now.Day > 16 Then vonFaell = von.AddMonths(1)
frmShowData.Show() frmShowData.Show()
frmShowData.dgv.DataSource = BRG.loadDgvBySqlFromAufschubKto(vonbrg.ToShortDateString, Now.ToShortDateString, brg_DE_VeragAG)
Dim faelligkeitWhere = " AND brgak_faelligkeitsdatum IN ("
faelligkeitWhere &= "'" & CDate("16" & vonFaell.ToString(".MM.yyyy")).ToShortDateString & "'"
If Now.Day <= 26 Then faelligkeitWhere &= ",'" & CDate("26" & Now.ToString(".MM.yyyy")).ToShortDateString & "'"
faelligkeitWhere &= ",'" & CDate("26" & Now.AddMonths(1).ToString(".MM.yyyy")).ToShortDateString & "'"
faelligkeitWhere &= ",'" & CDate("26" & Now.AddMonths(2).ToString(".MM.yyyy")).ToShortDateString & "'"
faelligkeitWhere &= ") "
MsgBox(faelligkeitWhere)
frmShowData.dgv.DataSource = BRG.loadDgvBySqlFromAufschubKto_Faelligkeit(faelligkeitWhere, brg_DE_VeragAG)
' frmShowData.dgv.DataSource = BRG.loadDgvBySqlFromAufschubKto(vonbrg.ToShortDateString, Now.ToShortDateString, brg_DE_VeragAG)
frmShowData.Label2.Text = "Anzahl: " & frmShowData.dgv.RowCount frmShowData.Label2.Text = "Anzahl: " & frmShowData.dgv.RowCount
End Sub End Sub
@@ -983,9 +1222,22 @@ Public Class frmMain
Dim brg_DE_Imex As String = "8" Dim brg_DE_Imex As String = "8"
Dim von As Date = DateSerial(Now.Year, Now.Month, 1) Dim von As Date = DateSerial(Now.Year, Now.Month, 1)
Dim vonbrg As Date = von Dim vonbrg As Date = von
Dim vonFaell As Date = von
If Now.Day <= 15 Then vonbrg = von.AddMonths(-1) If Now.Day <= 15 Then vonbrg = von.AddMonths(-1)
If Now.Day > 16 Then vonFaell = von.AddMonths(1)
frmShowData.Show() frmShowData.Show()
frmShowData.dgv.DataSource = BRG.loadDgvBySqlFromAufschubKto(vonbrg.ToShortDateString, Now.ToShortDateString, brg_DE_Imex) ' frmShowData.dgv.DataSource = BRG.loadDgvBySqlFromAufschubKto(vonbrg.ToShortDateString, Now.ToShortDateString, brg_DE_Imex)
Dim faelligkeitWhere = " AND brgak_faelligkeitsdatum IN ("
faelligkeitWhere &= "'" & CDate("16" & vonFaell.ToString(".MM.yyyy")).ToShortDateString & "'"
If Now.Day <= 26 Then faelligkeitWhere &= ",'" & CDate("26" & Now.ToString(".MM.yyyy")).ToShortDateString & "'"
faelligkeitWhere &= ",'" & CDate("26" & Now.AddMonths(1).ToString(".MM.yyyy")).ToShortDateString & "'"
faelligkeitWhere &= ",'" & CDate("26" & Now.AddMonths(2).ToString(".MM.yyyy")).ToShortDateString & "'"
faelligkeitWhere &= ") "
frmShowData.dgv.DataSource = BRG.loadDgvBySqlFromAufschubKto_Faelligkeit(faelligkeitWhere, brg_DE_Imex)
frmShowData.Label2.Text = "Anzahl: " & frmShowData.dgv.RowCount frmShowData.Label2.Text = "Anzahl: " & frmShowData.dgv.RowCount
End Sub End Sub
@@ -1001,13 +1253,6 @@ Public Class frmMain
frmShowData.Show() frmShowData.Show()
End Sub End Sub
Private Sub cbxBrg_at_Atilla_CheckedChanged(sender As Object, e As EventArgs) Handles cbxBrg_at_Atilla.CheckedChanged
End Sub
Private Sub cbxBrg_at_Imex_CheckedChanged(sender As Object, e As EventArgs) Handles cbxBrg_at_Imex.CheckedChanged
End Sub
End Class End Class

1
cNCTSPartnerWorker/NCTSPartnerWorker.vbproj
View File

@@ -21,6 +21,7 @@
<OutputPath>bin\Debug\</OutputPath> <OutputPath>bin\Debug\</OutputPath>
<DocumentationFile>cNCTSPartnerWorker.xml</DocumentationFile> <DocumentationFile>cNCTSPartnerWorker.xml</DocumentationFile>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn> <NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
<PlatformTarget>x64</PlatformTarget>
</PropertyGroup> </PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' "> <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<DebugType>pdbonly</DebugType> <DebugType>pdbonly</DebugType>

2
initATLASAufschubkonten/AtlasAufschubDatenEinlesen.vb
View File

@@ -133,7 +133,7 @@ Module AtlasAufschubDatenEinlesen
Dim cn As SqlConnection = VERAG_PROG_ALLGEMEIN.SQL.GetNewOpenConnectionADMIN Dim cn As SqlConnection = VERAG_PROG_ALLGEMEIN.SQL.GetNewOpenConnectionADMIN
'cn.ConnectionString = "Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=ADMIN;Integrated Security=false;User ID=sa;Password=BmWr501956;" 'cn.ConnectionString = "Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=ADMIN;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$;"
'cn.Open() 'cn.Open()
Using cn Using cn
Using cmd As New SqlCommand(sql, cn) Using cmd As New SqlCommand(sql, cn)

4
initATLASAufschubkonten/EZollAufschubEinlesen.vb
View File

@@ -212,13 +212,13 @@ Public Class EZollAufschubEinlesen
Public Shared Function GetNewOpenConnectionZOLARIS() As SqlConnection Public Shared Function GetNewOpenConnectionZOLARIS() As SqlConnection
Dim cn As New SqlConnection() Dim cn As New SqlConnection()
cn.ConnectionString = "Data Source=BUCHHALTUNG\SQLEXPRESS;Initial Catalog=ezoll;Integrated Security=false;User ID=sa;Password=BmWr501956;" cn.ConnectionString = "Data Source=BUCHHALTUNG\SQLEXPRESS;Initial Catalog=ezoll;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$;"
cn.Open() cn.Open()
Return cn Return cn
End Function End Function
Public Shared Function GetNewOpenConnectionADMIN_OLD() As SqlConnection Public Shared Function GetNewOpenConnectionADMIN_OLD() As SqlConnection
Dim cn As New SqlConnection() Dim cn As New SqlConnection()
cn.ConnectionString = "Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=ADMIN;Integrated Security=false;User ID=sa;Password=BmWr501956;" cn.ConnectionString = "Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=ADMIN;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$;"
cn.Open() cn.Open()
Return cn Return cn
End Function End Function

8
initATLASAufschubkonten/VERAG_Interface/cVERAG_out_eza.vb
View File

@@ -181,7 +181,8 @@
Shared Sub copyEZAToFTP(ByRef VERAG_OUT_EZA As VERAG_PROG_ALLGEMEIN.VERAG_OUT_EZA.VERAG_out_eza, IF_Obj As cVERAG_InterfaceSharedObjects, ByRef vorsystem As String, ByRef filePath As String, ByRef destFile As String, ByRef UniqueId As String, Optional checkAlreadyProvided As Boolean = True, ByRef Optional found As Boolean = False) Shared Sub copyEZAToFTP(ByRef VERAG_OUT_EZA As VERAG_PROG_ALLGEMEIN.VERAG_OUT_EZA.VERAG_out_eza, IF_Obj As cVERAG_InterfaceSharedObjects, ByRef vorsystem As String, ByRef filePath As String, ByRef destFile As String, ByRef UniqueId As String, Optional checkAlreadyProvided As Boolean = True, ByRef Optional found As Boolean = False)
If VERAG_OUT_EZA IsNot Nothing AndAlso Not alreadyProvidedInInterface(VERAG_OUT_EZA.ProcessData.ReferenzNumber, VERAG_OUT_EZA.ProcessData.ProcedureCode, VERAG_OUT_EZA.ProcessData.Status, vorsystem, IF_Obj.CooName, checkAlreadyProvided) Then If VERAG_OUT_EZA IsNot Nothing AndAlso Not alreadyProvidedInInterface(VERAG_OUT_EZA.ProcessData.ReferenzNumber, VERAG_OUT_EZA.ProcessData.ProcedureCode, VERAG_OUT_EZA.ProcessData.Status, vorsystem, IF_Obj.CooName, checkAlreadyProvided) Then
If genXMLFile(VERAG_OUT_EZA, filePath, vorsystem, UniqueId) <> "" Then If genXMLFile(VERAG_OUT_EZA, filePath, vorsystem, UniqueId) <> "" Then
frmStartOptions.copyFile(filePath, IF_Obj.FTP_Path, destFile)
If Not IO.File.Exists(destFile) Then frmStartOptions.copyFile(filePath, IF_Obj.FTP_Path, destFile)
If IO.File.Exists(destFile) Then If IO.File.Exists(destFile) Then
insertFTPLOG(destFile, IF_Obj.CooName, VERAG_OUT_EZA.ProcessData.ReferenzNumber, VERAG_OUT_EZA.ProcessData.ProcedureCode, VERAG_OUT_EZA.ProcessData.Status, vorsystem) insertFTPLOG(destFile, IF_Obj.CooName, VERAG_OUT_EZA.ProcessData.ReferenzNumber, VERAG_OUT_EZA.ProcessData.ProcedureCode, VERAG_OUT_EZA.ProcessData.Status, vorsystem)
found = True found = True
@@ -294,7 +295,7 @@
If Not checkAlreadyProvided Then Return False ' wenn es nicht geprüft werden soll, dann wird "Nicht bereitgestellt" zurückgegeben If Not checkAlreadyProvided Then Return False ' wenn es nicht geprüft werden soll, dann wird "Nicht bereitgestellt" zurückgegeben
Try Try
'Return SQL.doSQL("INSERT INTO tblFTP_Log (ftp_filepath,ftp_user,ftp_BezugsNr,ftp_art,ftp_status,ftp_vorsystem) VALUES ('" & filePath & "','" & user & "','" & VERAG_OUT_EZA.ProcessData.ReferenzNumber & "','" & VERAG_OUT_EZA.ProcessData.ProcedureCode & "','" & VERAG_OUT_EZA.ProcessData.Status & "','')", "FMZOLL") 'Return SQL.doSQL("INSERT INTO tblFTP_Log (ftp_filepath,ftp_user,ftp_BezugsNr,ftp_art,ftp_status,ftp_vorsystem) VALUES ('" & filePath & "','" & user & "','" & VERAG_OUT_EZA.ProcessData.ReferenzNumber & "','" & VERAG_OUT_EZA.ProcessData.ProcedureCode & "','" & VERAG_OUT_EZA.ProcessData.Status & "','')", "FMZOLL")
If SQL.getValueTxtBySql("SELECT count(*) FROM [tblFTP_Log] where [ftp_BezugsNr]='" & ReferenzNumber & "' AND [ftp_art]='" & ProcedureCode & "' AND [ftp_status]='" & Status & "' AND [ftp_vorsystem]='" & vorsystem & "' AND [ftp_CooName]='" & ftp_CooName & "' ", "FMZOLL",,, 0) = 0 Then If SQL.getValueTxtBySql("SELECT count(*) FROM [tblFTP_Log] where [ftp_BezugsNr]='" & ReferenzNumber & "' AND [ftp_art]='" & ProcedureCode & "' AND [ftp_status]='" & Status & "' AND [ftp_vorsystem]='" & vorsystem & "' AND [ftp_CooName]='" & ftp_CooName & "' ", "FMZOLL",,, 0, 15) = 0 Then
Return False Return False
End If End If
Catch ex As Exception Catch ex As Exception
@@ -309,6 +310,9 @@
Dim dir = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "ZOLL_SCHNITTSTELLEN\VERAG\EZA_OUT\" & Code & "\" & Now.Year & "\" & Now.ToShortDateString & "\" Dim dir = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "ZOLL_SCHNITTSTELLEN\VERAG\EZA_OUT\" & Code & "\" & Now.Year & "\" & Now.ToShortDateString & "\"
If Not IO.Directory.Exists(dir) Then IO.Directory.CreateDirectory(dir) If Not IO.Directory.Exists(dir) Then IO.Directory.CreateDirectory(dir)
XMLFilePath = dir & "VERAG_EZA_OUT_" & Now.ToString("ddMMyyyHHmmss") & "_" & Code & "_" & UniqueId & ".xml" XMLFilePath = dir & "VERAG_EZA_OUT_" & Now.ToString("ddMMyyyHHmmss") & "_" & Code & "_" & UniqueId & ".xml"
While IO.File.Exists(XMLFilePath)
XMLFilePath = dir & "VERAG_EZA_OUT_" & Now.ToString("ddMMyyyHHmmssffff") & "_" & Code & "_" & UniqueId & ".xml"
End While
End If End If
If VERAG_EZA IsNot Nothing Then If VERAG_EZA IsNot Nothing Then
VERAG_EZA.SaveToFile(XMLFilePath) VERAG_EZA.SaveToFile(XMLFilePath)

5
initATLASAufschubkonten/VERAG_Interface/cVERAG_out_ncts.vb
View File

@@ -484,7 +484,7 @@
Try Try
Select Case GRN Select Case GRN
Case "15TR0004000020917", "12TR0004000004665", "17TR0004000032349", "17TR0004000029518" Case "15TR0004000020917", "12TR0004000004665", "17TR0004000032349", "17TR0004000029518", "21TR0004000079552", "21TR0004000078157"
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")) 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" 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")) 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"))
@@ -621,6 +621,9 @@
Dim dir = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "ZOLL_SCHNITTSTELLEN\VERAG\NCTS_OUT\" & Code & "\" & Now.Year & "\" & Now.ToShortDateString & "\" Dim dir = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "ZOLL_SCHNITTSTELLEN\VERAG\NCTS_OUT\" & Code & "\" & Now.Year & "\" & Now.ToShortDateString & "\"
If Not IO.Directory.Exists(dir) Then IO.Directory.CreateDirectory(dir) If Not IO.Directory.Exists(dir) Then IO.Directory.CreateDirectory(dir)
XMLFilePath = dir & "VERAG_NCTS_OUT_" & Now.ToString("ddMMyyyHHmmss") & "_" & Code & "_" & UniqueId & ".xml" XMLFilePath = dir & "VERAG_NCTS_OUT_" & Now.ToString("ddMMyyyHHmmss") & "_" & Code & "_" & UniqueId & ".xml"
While IO.File.Exists(XMLFilePath)
XMLFilePath = dir & "VERAG_NCTS_OUT_" & Now.ToString("ddMMyyyHHmmssffff") & "_" & Code & "_" & UniqueId & ".xml"
End While
End If End If
If VERAG_NCTS IsNot Nothing Then If VERAG_NCTS IsNot Nothing Then
VERAG_NCTS.SaveToFile(XMLFilePath) VERAG_NCTS.SaveToFile(XMLFilePath)

10
initATLASAufschubkonten/cBuergschaften.vb
View File

@@ -4,26 +4,26 @@ Public Class cBuergschaften
Public Shared Function GetNewOpenConnectionATLAS() As SqlConnection Public Shared Function GetNewOpenConnectionATLAS() As SqlConnection
Dim cn As New SqlConnection() Dim cn As New SqlConnection()
cn.ConnectionString = "Data Source=192.168.0.95\SQLATLAS;Initial Catalog=atlas;Integrated Security=false;User ID=sa;Password=BmWr501956;" cn.ConnectionString = "Data Source=192.168.0.95\SQLATLAS;Initial Catalog=atlas;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$;"
cn.Open() cn.Open()
Return cn Return cn
End Function End Function
Public Shared Function GetNewOpenConnectionATLAS_SBG() As SqlConnection Public Shared Function GetNewOpenConnectionATLAS_SBG() As SqlConnection
Dim cn As New SqlConnection() Dim cn As New SqlConnection()
cn.ConnectionString = "Data Source=192.168.133.98;Initial Catalog=atlas;Integrated Security=false;User ID=sa;Password=BmWr501956;" cn.ConnectionString = "Data Source=192.168.133.98;Initial Catalog=atlas;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$;"
cn.Open() cn.Open()
Return cn Return cn
End Function End Function
Public Shared Function GetNewOpenConnectionFMZOLL() As SqlConnection Public Shared Function GetNewOpenConnectionFMZOLL() As SqlConnection
Dim cn As New SqlConnection() Dim cn As New SqlConnection()
cn.ConnectionString = "Data Source=FMZOLL\SQLFMZOLL;Initial Catalog=VERAG;Integrated Security=false;User ID=sa;Password=BmWr501956;" cn.ConnectionString = "Data Source=FMZOLL\SQLFMZOLL;Initial Catalog=VERAG;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$;"
' cn.ConnectionString = "Data Source=DEVELOPER\DEVSQL;Initial Catalog=VERAG;Integrated Security=false;User ID=sa;Password=BmWr501956;" ' cn.ConnectionString = "Data Source=DEVELOPER\DEVSQL;Initial Catalog=VERAG;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$;"
cn.Open() cn.Open()
Return cn Return cn
End Function End Function
Public Shared Function GetNewOpenConnectionBUCHHALTUNG() As SqlConnection Public Shared Function GetNewOpenConnectionBUCHHALTUNG() As SqlConnection
Dim cn As New SqlConnection() Dim cn As New SqlConnection()
cn.ConnectionString = "Data Source=BUCHHALTUNG\SQLEXPRESS;Initial Catalog=ezoll;Integrated Security=false;User ID=sa;Password=BmWr501956;" cn.ConnectionString = "Data Source=BUCHHALTUNG\SQLEXPRESS;Initial Catalog=ezoll;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$;"
cn.Open() cn.Open()
Return cn Return cn
End Function End Function

76
initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb
View File

@@ -1353,10 +1353,12 @@ Public Class frmDYNachrichtenVerarbeitung
End If End If
End If End If
AES.aes_Status = DAKOSY_Worker.cDY_Statusliste.S_05
AES.aes_Status_KEWILL_Equivalent = DAKOSY_Worker.cDY_Statusliste.S_05
If If(AES.aes_Status, 0) <= 5 Then AES.aes_Status = DAKOSY_Worker.cDY_Statusliste.S_05
If If(AES.aes_Status_KEWILL_Equivalent, 0) <= 5 Then AES.aes_Status_KEWILL_Equivalent = DAKOSY_Worker.cDY_Statusliste.S_05
If AES.SAVE_ALL() Then If AES.SAVE_ALL() Then
DAKOSY_Worker.cDakosy_Statusmeldungen.InsertStatusMeldung(DY_TMP, DAKOSY_Worker.cDY_Statusliste.S_05) If If(AES.aes_Status, 0) <= 5 Then DAKOSY_Worker.cDakosy_Statusmeldungen.InsertStatusMeldung(DY_TMP, DAKOSY_Worker.cDY_Statusliste.S_05)
End If End If
End If End If
@@ -5465,7 +5467,6 @@ Public Class frmDYNachrichtenVerarbeitung
Dim DY_TMP As DAKOSY_Worker.cDakosy_Zollanmeldungen = saveDY_ZA(STATUS, EZA.Transaktion.IOReferenz, If(zp, EZA.Transaktion.IODatumZeit), "EZA") Dim DY_TMP As DAKOSY_Worker.cDakosy_Zollanmeldungen = saveDY_ZA(STATUS, EZA.Transaktion.IOReferenz, If(zp, EZA.Transaktion.IODatumZeit), "EZA")
If regNr <> "" Then If regNr <> "" Then
@@ -5553,14 +5554,22 @@ Public Class frmDYNachrichtenVerarbeitung
Function InsertAbgaben(EZA, division, STATUS, DY_TMP, regNr, Bezugsnummer, regDat, firma, nl, EDIFACTNachrichtenNr) Function InsertAbgaben(EZA, division, STATUS, DY_TMP, regNr, Bezugsnummer, regDat, firma, nl, EDIFACTNachrichtenNr)
Dim EZA_TMP As DAKOSY_Worker.cDakosyEZA = saveDY_EZA(STATUS, DY_TMP, EZA.Transaktion.IOReferenz, EZA.Transaktion.IODatumZeit, regNr) Dim EZA_TMP As DAKOSY_Worker.cDakosyEZA = saveDY_EZA(STATUS, DY_TMP, EZA.Transaktion.IOReferenz, EZA.Transaktion.IODatumZeit, regNr)
If EZA.EinzelAbgabenbescheid.KopfDaten.AbgabenNachArt IsNot Nothing Then If EZA.EinzelAbgabenbescheid.KopfDaten.AbgabenNachArt IsNot Nothing Then
For Each A In EZA.EinzelAbgabenbescheid.KopfDaten.AbgabenNachArt For Each A In EZA.EinzelAbgabenbescheid.KopfDaten.AbgabenNachArt
Dim LeistungsNr = 0 Dim LeistungsNr = 0
If A.AbgabeArt IsNot Nothing Then If A.AbgabeArt IsNot Nothing Then
' If A.Zahlungsart = "A" Then 'Nur wenn Zahlungsart=...? ' If A.Zahlungsart = "A" Then 'Nur wenn Zahlungsart=...?
If If(A.KennBuchstabenAufschub, "").Trim = "M" And (CInt(A.AufschubkontoNr) = 6128 Or CInt(A.AufschubkontoNr) = 6136 Or CInt(A.AufschubkontoNr) = 2718 Or CInt(A.AufschubkontoNr) = 2719 Or If If(A.KennBuchstabenAufschub, "").Trim = "M" And
CInt(A.AufschubkontoNr) = 6145 Or CInt(A.AufschubkontoNr) = 6146 Or CInt(A.AufschubkontoNr) = 6077) Then '_>TEST Or CInt(A.AufschubkontoNr) = 678010 (CInt(A.AufschubkontoNr) = 6128 Or
CInt(A.AufschubkontoNr) = 6136 Or
CInt(A.AufschubkontoNr) = 2718 Or
CInt(A.AufschubkontoNr) = 2719 Or
CInt(A.AufschubkontoNr) = 6145 Or
CInt(A.AufschubkontoNr) = 6146 Or
CInt(A.AufschubkontoNr) = 6077 Or
CInt(A.AufschubkontoNr) = 6078 Or
CInt(A.AufschubkontoNr) = 1994) Then '_>TEST Or CInt(A.AufschubkontoNr) = 678010
Select Case A.AbgabeArt.ToString Select Case A.AbgabeArt.ToString
Case "A0000", "10100" : LeistungsNr = 60 ' ZOLL Case "A0000", "10100" : LeistungsNr = 60 ' ZOLL
@@ -5595,21 +5604,29 @@ Public Class frmDYNachrichtenVerarbeitung
Dim errHInweis = "ATC: " & ABGABEN.Registriernummer & " - BezugsNr: " & ABGABEN.Bezugsnummer Dim errHInweis = "ATC: " & ABGABEN.Registriernummer & " - BezugsNr: " & ABGABEN.Bezugsnummer
ABGABEN.SAVE(errHInweis) ABGABEN.SAVE(errHInweis)
'Aufschub - Überwachung:
Select Case CInt(A.AufschubkontoNr)
Case 6128 : tryToInsertProgramm(ABGABEN.Eingabedatum, ABGABEN.Betrag, 1, EDIFACTNachrichtenNr, ABGABEN.Registriernummer, 0)
Case 2718 : tryToInsertProgramm(ABGABEN.Eingabedatum, ABGABEN.Betrag, 8, EDIFACTNachrichtenNr, ABGABEN.Registriernummer, 0)
'Case 2718 : VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMailTEST("al@verag.ag", "AUFSCHUB IMEX: " & ABGABEN.Betrag, "AUFSCHUB IMEX: " & ABGABEN.Betrag & vbNewLine & ABGABEN.Bezugsnummer)
End Select
If CInt(A.AufschubkontoNr) = 6128 Then 'Nur bei ZOLL ' --> TEST: Or CInt(A.AufschubkontoNr) = 678010
AtlasAufschubDatenEinlesen.tryToInsertProgramm(regDat, A.Abgabenbetrag, "1", "DY", regNr, "")
End If
End If End If
'Aufschub - Überwachung:
Select Case CInt(A.AufschubkontoNr)
Case 6128 : tryToInsertProgramm(ABGABEN.Eingabedatum, ABGABEN.Betrag, 1, EDIFACTNachrichtenNr, ABGABEN.Registriernummer, 0, ABGABEN.Fälligkeitsdatum)
Case 2718 : tryToInsertProgramm(ABGABEN.Eingabedatum, ABGABEN.Betrag, 8, EDIFACTNachrichtenNr, ABGABEN.Registriernummer, 0, ABGABEN.Fälligkeitsdatum)
Case 1994 : tryToInsertProgramm(ABGABEN.Eingabedatum, ABGABEN.Betrag, 10, EDIFACTNachrichtenNr, ABGABEN.Registriernummer, 0, ABGABEN.Fälligkeitsdatum) 'Global
Case 6136 : tryToInsertProgramm(ABGABEN.Eingabedatum, ABGABEN.Betrag, 11, EDIFACTNachrichtenNr, ABGABEN.Registriernummer, 0, ABGABEN.Fälligkeitsdatum) 'VERAG EUST
Case 2719 : tryToInsertProgramm(ABGABEN.Eingabedatum, ABGABEN.Betrag, 12, EDIFACTNachrichtenNr, ABGABEN.Registriernummer, 0, ABGABEN.Fälligkeitsdatum) 'IMEX EUST
Case 6145 : tryToInsertProgramm(ABGABEN.Eingabedatum, ABGABEN.Betrag, 14, EDIFACTNachrichtenNr, ABGABEN.Registriernummer, 0, ABGABEN.Fälligkeitsdatum) 'UNISPED ZOLL
Case 6146 : tryToInsertProgramm(ABGABEN.Eingabedatum, ABGABEN.Betrag, 15, EDIFACTNachrichtenNr, ABGABEN.Registriernummer, 0, ABGABEN.Fälligkeitsdatum) 'UNISPED EUST
Case 6078 : tryToInsertProgramm(ABGABEN.Eingabedatum, ABGABEN.Betrag, 16, EDIFACTNachrichtenNr, ABGABEN.Registriernummer, 0, ABGABEN.Fälligkeitsdatum) 'UNISPED(DE) ZOLL
Case 6077 : tryToInsertProgramm(ABGABEN.Eingabedatum, ABGABEN.Betrag, 17, EDIFACTNachrichtenNr, ABGABEN.Registriernummer, 0, ABGABEN.Fälligkeitsdatum) 'UNISPED(DE) EUST
'UNISPED Case XXX: tryToInsertProgramm(ABGABEN.Eingabedatum, ABGABEN.Betrag,XXX, EDIFACTNachrichtenNr, ABGABEN.Registriernummer, 0, ABGABEN.Fälligkeitsdatum)
'Case 2718 : VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMailTEST("al@verag.ag", "AUFSCHUB IMEX: " & ABGABEN.Betrag, "AUFSCHUB IMEX: " & ABGABEN.Betrag & vbNewLine & ABGABEN.Bezugsnummer)
End Select
'If CInt(A.AufschubkontoNr) = 6128 Then 'Nur bei ZOLL ' --> TEST: Or CInt(A.AufschubkontoNr) = 678010
' AtlasAufschubDatenEinlesen.tryToInsertProgramm(regDat, A.Abgabenbetrag, "1", "DY", regNr, "")
'End If
End If End If
' End If ' End If
@@ -5619,14 +5636,14 @@ Public Class frmDYNachrichtenVerarbeitung
End Function End Function
Public Function tryToInsertProgramm(brgak_datum, brgak_betrag, brgak_brgaktoId, brgak_filename, brgak_atc, brgak_fileline) As Boolean Shared Function tryToInsertProgramm(brgak_datum, brgak_betrag, brgak_brgaktoId, brgak_filename, brgak_atc, brgak_fileline, brgak_faelligkeitsdatum) As Boolean
Dim sql As String = " begin tran" & Dim sql As String = " begin tran" &
" if Not exists (select * from tblBrgAufschub with (updlock,serializable) where brgak_filename = @brgak_filename AND brgak_fileline=@brgak_fileline) " & " if Not exists (select * from tblBrgAufschub with (updlock,serializable) where brgak_filename = @brgak_filename AND brgak_fileline=@brgak_fileline ) " &
" begin " & " begin " &
" INSERT INTO tblBrgAufschub " & " INSERT INTO tblBrgAufschub " &
" (brgak_datum, brgak_betrag, brgak_brgaktoId, brgak_filename, brgak_atc,brgak_fileline) VALUES " & " (brgak_datum, brgak_betrag, brgak_brgaktoId, brgak_filename, brgak_atc,brgak_fileline,brgak_faelligkeitsdatum) VALUES " &
" (@brgak_datum, @brgak_betrag, @brgak_brgaktoId, @brgak_filename, @brgak_atc,@brgak_fileline) " & " (@brgak_datum, @brgak_betrag, @brgak_brgaktoId, @brgak_filename, @brgak_atc,@brgak_fileline,@brgak_faelligkeitsdatum) " &
" End " & " End " &
" commit tran " " commit tran "
'(brgak_fileline='' OR ... ) '(brgak_fileline='' OR ... )
@@ -5643,7 +5660,7 @@ Public Class frmDYNachrichtenVerarbeitung
Dim cn As System.Data.SqlClient.SqlConnection = VERAG_PROG_ALLGEMEIN.SQL.GetNewOpenConnectionADMIN Dim cn As System.Data.SqlClient.SqlConnection = VERAG_PROG_ALLGEMEIN.SQL.GetNewOpenConnectionADMIN
'Dim cn As New System.Data.SqlClient.SqlConnection() 'Dim cn As New System.Data.SqlClient.SqlConnection()
'cn.ConnectionString = "Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=ADMIN;Integrated Security=false;User ID=sa;Password=BmWr501956;" 'cn.ConnectionString = "Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=ADMIN;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$;"
'cn.Open() 'cn.Open()
Using cn Using cn
Using cmd As New System.Data.SqlClient.SqlCommand(sql, cn) Using cmd As New System.Data.SqlClient.SqlCommand(sql, cn)
@@ -5653,6 +5670,7 @@ Public Class frmDYNachrichtenVerarbeitung
cmd.Parameters.AddWithValue("@brgak_filename", brgak_filename) cmd.Parameters.AddWithValue("@brgak_filename", brgak_filename)
cmd.Parameters.AddWithValue("@brgak_atc", brgak_atc) cmd.Parameters.AddWithValue("@brgak_atc", brgak_atc)
cmd.Parameters.AddWithValue("@brgak_fileline", brgak_fileline) cmd.Parameters.AddWithValue("@brgak_fileline", brgak_fileline)
cmd.Parameters.AddWithValue("@brgak_faelligkeitsdatum", brgak_faelligkeitsdatum)
Try Try
cmd.ExecuteNonQuery() cmd.ExecuteNonQuery()
@@ -6143,10 +6161,10 @@ Public Class frmDYNachrichtenVerarbeitung
NCTS.nctsAt_Status = DAKOSY_Worker.cDY_Statusliste.S_05 If If(NCTS.nctsAt_Status, 0) <= 5 Then NCTS.nctsAt_Status = DAKOSY_Worker.cDY_Statusliste.S_05
NCTS.nctsAt_Status_KEWILL_Equivalent = DAKOSY_Worker.cDY_Statusliste.S_05 If If(NCTS.nctsAt_Status_KEWILL_Equivalent, 0) <= 5 Then NCTS.nctsAt_Status_KEWILL_Equivalent = DAKOSY_Worker.cDY_Statusliste.S_05
If NCTS.SAVE_ALL() Then If NCTS.SAVE_ALL() Then
DAKOSY_Worker.cDakosy_Statusmeldungen.InsertStatusMeldung(DY_TMP, DAKOSY_Worker.cDY_Statusliste.S_05) If If(NCTS.nctsAt_Status, 0) <= 5 Then DAKOSY_Worker.cDakosy_Statusmeldungen.InsertStatusMeldung(DY_TMP, DAKOSY_Worker.cDY_Statusliste.S_05)
End If End If

148
initATLASAufschubkonten/frmMDMNachrichtenVerarbeitung.vb
View File

@@ -66,7 +66,7 @@ Public Class frmMDMNachrichtenVerarbeitung
Me.Enabled = False Me.Enabled = False
Try Try
Label9.Visible = True Label9.Visible = True
Dim cnt = getNachrichtenDatenFromMDMServices() Dim cnt = getNachrichtenDatenFromMDMServices() ' If(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, getNachrichtenDatenFromMDMServicesTEST(), getNachrichtenDatenFromMDMServices())
Label9.Text = cnt & " Datensätze empfangen." Label9.Text = cnt & " Datensätze empfangen."
Catch ex As Exception Catch ex As Exception
@@ -108,125 +108,9 @@ Public Class frmMDMNachrichtenVerarbeitung
MDM_Worker.cMDMFunctions.getSFTPLoginData(MDM_server, MDM_name, MDM_pwd, MDM_port, "", MDM_PFAD_out) MDM_Worker.cMDMFunctions.getSFTPLoginData(MDM_server, MDM_name, MDM_pwd, MDM_port, "", MDM_PFAD_out)
DownloadFtpDirectory(MDM_server & "/"c & MDM_PFAD_out, New NetworkCredential(MDM_name, MDM_pwd), "", cnt, True)
' DownloadFtpDirectory("ftp://80.16.102.180" & "/"c & MDM_PFAD_out, New NetworkCredential(MDM_name, MDM_pwd), "", cnt, True)
DownloadFtpDirectory("ftp://ftp.plose.it" & "/"c & MDM_PFAD_out, New NetworkCredential(MDM_name, MDM_pwd), "", cnt, True)
'Dim request = WebRequest.Create("ftp://ftp.plose.it" & "/"c & MDM_PFAD_out)
''request.Method = WebRequestMethods.Ftp.DownloadFile
''request.Credentials = New NetworkCredential(MDM_name, MDM_pwd)
'request.Method = WebRequestMethods.Ftp.ListDirectory
'request.Credentials = New NetworkCredential(MDM_name, MDM_pwd)
'Dim response As FtpWebResponse = DirectCast(request.GetResponse(), FtpWebResponse)
'Dim responseStream As Stream = response.GetResponseStream
'Using reader As New StreamReader(responseStream)
' Do While reader.Peek <> -1
' Dim fName = reader.ReadLine
' MsgBox(fName)
' Loop
'End Using
' Dim dest = Path.Combine(MDM_PFAD_out, fileName)
' Using resp = request.GetResponse(), strmResp = resp.GetResponseStream,
'strmFile = New FileStream(dest, FileMode.Create)
' Dim buf(1023) As Byte
' Do
' Dim read = strmResp.Read(buf, 0, buf.Length)
' If read = 0 Then Exit Do 'end of Transmission
' strmFile.Write(buf, 0, read)
' Loop
' End Using
' Return False
'MsgBox(MDM_server & "/" & MDM_PFAD_out)
'Dim Dirlist As New List(Of String) 'I prefer List() instead of an array
'Dim request As New FtpWebRequest("http://ftp.plose.it") ' DirectCast(WebRequest.Create("http://ftp.plose.it"), FtpWebRequest) ' DirectCast(WebRequest.Create("ftp.plose.it"), FtpWebRequest)
'request.Method = WebRequestMethods.Ftp.ListDirectory
'request.Credentials = New NetworkCredential(MDM_name, MDM_pwd)
'Dim response As FtpWebResponse = DirectCast(request.GetResponse(), FtpWebResponse)
'Dim responseStream As Stream = response.GetResponseStream
'Using reader As New StreamReader(responseStream)
' Do While reader.Peek <> -1
' Dim fName = reader.ReadLine
' MsgBox(fName)
' Loop
'End Using
'response.Close()
'Try
' ' Setup session options
' Dim sessionOptions As New SessionOptions
' With sessionOptions
' .Protocol = Protocol.Ftp
' .HostName = "example.com"
' .UserName = "user"
' .Password = "mypassword"
' End With
' Using session As New Session
' ' Will continuously report progress of synchronization
' AddHandler session.FileTransferred, AddressOf FileTransferred
' ' Connect
' session.Open(sessionOptions)
' ' Synchronize files
' Dim synchronizationResult As SynchronizationResult
' synchronizationResult =
' session.SynchronizeDirectories(
' SynchronizationMode.Local, "d:\www", "/home/martin/public_html", False)
' ' Throw on any error
' synchronizationResult.Check()
' End Using
' Return 0
'Catch e As Exception
' Console.WriteLine("Error: {0}", e)
' Return 1
'End Try
'MsgBox(MDM_server & " - " & MDM_name & " - " & MDM_pwd & " - " & MDM_port)
'Dim ConnectionInfo As New ConnectionInfo(MDM_server, MDM_port, MDM_name, New PasswordAuthenticationMethod(MDM_name, MDM_pwd))
'Using client = New SftpClient(ConnectionInfo)
' client.Connect()
' For Each f In client.ListDirectory(MDM_PFAD_out)
' ' MsgBox(f.Name)
' If Not f.Name.StartsWith(".") Then
' 'Temp. DownloadPfad
' Dim destFilenameTMP = VERARBEITUNGS_PFAD + "." & If(IO.File.Exists(VERARBEITUNGS_PFAD & "." & f.Name), Now.ToString("yyMMdd_HHmmss.fff_"), "") & f.Name
' 'Datei herunterladen
' Dim downloadFileStream As Stream = File.OpenWrite(destFilenameTMP)
' client.DownloadFile(f.FullName, downloadFileStream)
' If IO.File.Exists(destFilenameTMP) Then client.DeleteFile(f.FullName) 'Datei nach erfolgreichem Herunterladen vom Server löschen
' downloadFileStream.Dispose()
' 'Gültiger Filename
' Dim destFilename = VERARBEITUNGS_PFAD & If(IO.File.Exists(VERARBEITUNGS_PFAD & f.Name), Now.ToString("yyMMdd_HHmmss.fff_"), "") & f.Name
' IO.File.Move(destFilenameTMP, destFilename) 'Datei umbenennen
' Dim fi As FileInfo = New FileInfo(destFilename)
' ListBox3.Items.Add(frmStartOptions.cut_file(fi.Name)) 'zur Liste hinzufügen
' cnt += 1
' End If
' Next
' client.Disconnect()
'End Using
Catch ex As Exception Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name) VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try End Try
@@ -234,6 +118,7 @@ Public Class frmMDMNachrichtenVerarbeitung
Return cnt Return cnt
End Function End Function
Sub DownloadFtpDirectory(url As String, credentials As NetworkCredential, localPath As String, ByRef cnt As Integer, deleteAfterDownload As Boolean) Sub DownloadFtpDirectory(url As String, credentials As NetworkCredential, localPath As String, ByRef cnt As Integer, deleteAfterDownload As Boolean)
Dim listRequest As FtpWebRequest = WebRequest.Create(url) Dim listRequest As FtpWebRequest = WebRequest.Create(url)
listRequest.Method = WebRequestMethods.Ftp.ListDirectoryDetails listRequest.Method = WebRequestMethods.Ftp.ListDirectoryDetails
@@ -259,7 +144,7 @@ Public Class frmMDMNachrichtenVerarbeitung
Dim localFilePath As String = Path.Combine(localPath, name) Dim localFilePath As String = Path.Combine(localPath, name)
Dim fileUrl As String = url + name Dim fileUrl As String = url + name
If permissions(0) = "d" Then If permissions(0) = "d" Then 'Ordner
If Not Directory.Exists(localFilePath) Then If Not Directory.Exists(localFilePath) Then
Directory.CreateDirectory(localFilePath) Directory.CreateDirectory(localFilePath)
End If End If
@@ -518,20 +403,27 @@ Public Class frmMDMNachrichtenVerarbeitung
End Select End Select
End If End If
If fi.Extension.ToLower = ".pdf" Then
found = False
If Not IO.Directory.Exists(ZIEL_PFAD & "Invoice_PDF\" & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\") Then IO.Directory.CreateDirectory(ZIEL_PFAD & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\")
frmStartOptions.moveFile_DateBack(d, ZIEL_PFAD & "Invoice_PDF\" & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\")
End If
If True Then If True Then
If Not alreadyMoved Then If Not alreadyMoved Then
If found 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") & "\") 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_DateBack(d, ZIEL_PFAD & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\") frmStartOptions.moveFile_DateBack(d, ZIEL_PFAD & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\")
End If
End If End If
End If End If
Me.Refresh()
End If End If
Me.Refresh()
End If
Catch ex As Exception Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name) VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try End Try

440
initATLASAufschubkonten/frmStartOptions.Designer.vb generated
View File

@@ -30,7 +30,6 @@ Partial Class frmStartOptions
Me.Button4 = New System.Windows.Forms.Button() Me.Button4 = New System.Windows.Forms.Button()
Me.CheckBox5 = New System.Windows.Forms.CheckBox() Me.CheckBox5 = New System.Windows.Forms.CheckBox()
Me.Button3 = New System.Windows.Forms.Button() Me.Button3 = New System.Windows.Forms.Button()
Me.cboBMDUnispedFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.CheckBox4 = New System.Windows.Forms.CheckBox() Me.CheckBox4 = New System.Windows.Forms.CheckBox()
Me.Label13 = New System.Windows.Forms.Label() Me.Label13 = New System.Windows.Forms.Label()
Me.CheckBox3 = New System.Windows.Forms.CheckBox() Me.CheckBox3 = New System.Windows.Forms.CheckBox()
@@ -70,9 +69,8 @@ Partial Class frmStartOptions
Me.LinkLabel16 = New System.Windows.Forms.LinkLabel() Me.LinkLabel16 = New System.Windows.Forms.LinkLabel()
Me.PictureBox8 = New System.Windows.Forms.PictureBox() Me.PictureBox8 = New System.Windows.Forms.PictureBox()
Me.TabPage2 = New System.Windows.Forms.TabPage() Me.TabPage2 = New System.Windows.Forms.TabPage()
Me.Label15 = New System.Windows.Forms.Label()
Me.Label14 = New System.Windows.Forms.Label() 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.cbxOUT_NCTS_TESTORDNER = New System.Windows.Forms.CheckBox()
Me.cbxISettEZA_VERAG = New System.Windows.Forms.CheckBox() Me.cbxISettEZA_VERAG = New System.Windows.Forms.CheckBox()
Me.PictureBox15 = New System.Windows.Forms.PictureBox() Me.PictureBox15 = New System.Windows.Forms.PictureBox()
@@ -91,10 +89,6 @@ Partial Class frmStartOptions
Me.Label7 = New System.Windows.Forms.Label() Me.Label7 = New System.Windows.Forms.Label()
Me.LinkLabel27 = New System.Windows.Forms.LinkLabel() Me.LinkLabel27 = New System.Windows.Forms.LinkLabel()
Me.Label6 = New System.Windows.Forms.Label() 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.TabPage3 = New System.Windows.Forms.TabPage()
Me.LinkLabel31 = New System.Windows.Forms.LinkLabel() Me.LinkLabel31 = New System.Windows.Forms.LinkLabel()
Me.Label12 = New System.Windows.Forms.Label() Me.Label12 = New System.Windows.Forms.Label()
@@ -108,7 +102,6 @@ Partial Class frmStartOptions
Me.cbxKd = New System.Windows.Forms.CheckBox() Me.cbxKd = New System.Windows.Forms.CheckBox()
Me.Button9 = New System.Windows.Forms.Button() Me.Button9 = New System.Windows.Forms.Button()
Me.Label3 = New System.Windows.Forms.Label() Me.Label3 = New System.Windows.Forms.Label()
Me.MyTextBox1 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.PictureBox12 = New System.Windows.Forms.PictureBox() Me.PictureBox12 = New System.Windows.Forms.PictureBox()
Me.LinkLabel20 = New System.Windows.Forms.LinkLabel() Me.LinkLabel20 = New System.Windows.Forms.LinkLabel()
Me.PictureBox11 = New System.Windows.Forms.PictureBox() Me.PictureBox11 = New System.Windows.Forms.PictureBox()
@@ -124,8 +117,21 @@ Partial Class frmStartOptions
Me.LinkLabel3 = New System.Windows.Forms.LinkLabel() Me.LinkLabel3 = New System.Windows.Forms.LinkLabel()
Me.lklAufschubkontenATLASEZOLL = New System.Windows.Forms.LinkLabel() Me.lklAufschubkontenATLASEZOLL = New System.Windows.Forms.LinkLabel()
Me.lblRoutineManager = New System.Windows.Forms.Label() Me.lblRoutineManager = New System.Windows.Forms.Label()
Me.Button6 = New System.Windows.Forms.Button()
Me.CheckBox6 = New System.Windows.Forms.CheckBox()
Me.Button7 = New System.Windows.Forms.Button()
Me.CheckBox7 = New System.Windows.Forms.CheckBox()
Me.Label16 = New System.Windows.Forms.Label()
Me.cboSYSKAFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.cboBMDUnispedFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.txtVRGOut_MRN = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtVRGOut_MRN = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label15 = New System.Windows.Forms.Label() Me.txtVRGOut_FilialenNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtVRGOut_AbfertigungsNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
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.pnl.SuspendLayout() Me.pnl.SuspendLayout()
Me.tbcntr.SuspendLayout() Me.tbcntr.SuspendLayout()
Me.TabPage1.SuspendLayout() Me.TabPage1.SuspendLayout()
@@ -153,6 +159,12 @@ Partial Class frmStartOptions
' '
Me.pnl.BackColor = System.Drawing.Color.White Me.pnl.BackColor = System.Drawing.Color.White
Me.pnl.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle Me.pnl.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.pnl.Controls.Add(Me.Button6)
Me.pnl.Controls.Add(Me.CheckBox6)
Me.pnl.Controls.Add(Me.Button7)
Me.pnl.Controls.Add(Me.cboSYSKAFirma)
Me.pnl.Controls.Add(Me.CheckBox7)
Me.pnl.Controls.Add(Me.Label16)
Me.pnl.Controls.Add(Me.LinkLabel33) Me.pnl.Controls.Add(Me.LinkLabel33)
Me.pnl.Controls.Add(Me.Button5) Me.pnl.Controls.Add(Me.Button5)
Me.pnl.Controls.Add(Me.LinkLabel32) Me.pnl.Controls.Add(Me.LinkLabel32)
@@ -190,7 +202,7 @@ Partial Class frmStartOptions
Me.pnl.Dock = System.Windows.Forms.DockStyle.Fill Me.pnl.Dock = System.Windows.Forms.DockStyle.Fill
Me.pnl.Location = New System.Drawing.Point(0, 0) Me.pnl.Location = New System.Drawing.Point(0, 0)
Me.pnl.Name = "pnl" Me.pnl.Name = "pnl"
Me.pnl.Size = New System.Drawing.Size(790, 720) Me.pnl.Size = New System.Drawing.Size(861, 720)
Me.pnl.TabIndex = 0 Me.pnl.TabIndex = 0
' '
'LinkLabel33 'LinkLabel33
@@ -232,9 +244,9 @@ Partial Class frmStartOptions
Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat 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.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.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button4.Location = New System.Drawing.Point(449, 228) Me.Button4.Location = New System.Drawing.Point(391, 228)
Me.Button4.Name = "Button4" Me.Button4.Name = "Button4"
Me.Button4.Size = New System.Drawing.Size(149, 24) Me.Button4.Size = New System.Drawing.Size(136, 24)
Me.Button4.TabIndex = 44 Me.Button4.TabIndex = 44
Me.Button4.Text = "Stammdaten --> BMD" Me.Button4.Text = "Stammdaten --> BMD"
Me.Button4.UseVisualStyleBackColor = True Me.Button4.UseVisualStyleBackColor = True
@@ -245,7 +257,7 @@ Partial Class frmStartOptions
Me.CheckBox5.Checked = True Me.CheckBox5.Checked = True
Me.CheckBox5.CheckState = System.Windows.Forms.CheckState.Checked 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.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.Location = New System.Drawing.Point(449, 255)
Me.CheckBox5.Name = "CheckBox5" Me.CheckBox5.Name = "CheckBox5"
Me.CheckBox5.Size = New System.Drawing.Size(79, 17) Me.CheckBox5.Size = New System.Drawing.Size(79, 17)
Me.CheckBox5.TabIndex = 43 Me.CheckBox5.TabIndex = 43
@@ -257,29 +269,18 @@ Partial Class frmStartOptions
Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button3.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) Me.Button3.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Button3.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.Button3.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button3.Location = New System.Drawing.Point(302, 228) Me.Button3.Location = New System.Drawing.Point(268, 228)
Me.Button3.Name = "Button3" Me.Button3.Name = "Button3"
Me.Button3.Size = New System.Drawing.Size(148, 24) Me.Button3.Size = New System.Drawing.Size(124, 24)
Me.Button3.TabIndex = 40 Me.Button3.TabIndex = 40
Me.Button3.Text = "Buchungen --> BMD" Me.Button3.Text = "Buchungen --> BMD"
Me.Button3.UseVisualStyleBackColor = True 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 'CheckBox4
' '
Me.CheckBox4.AutoSize = True Me.CheckBox4.AutoSize = True
Me.CheckBox4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.CheckBox4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.CheckBox4.Location = New System.Drawing.Point(457, 255) Me.CheckBox4.Location = New System.Drawing.Point(394, 255)
Me.CheckBox4.Name = "CheckBox4" Me.CheckBox4.Name = "CheckBox4"
Me.CheckBox4.Size = New System.Drawing.Size(56, 17) Me.CheckBox4.Size = New System.Drawing.Size(56, 17)
Me.CheckBox4.TabIndex = 41 Me.CheckBox4.TabIndex = 41
@@ -290,7 +291,7 @@ Partial Class frmStartOptions
' '
Me.Label13.AutoSize = True Me.Label13.AutoSize = True
Me.Label13.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label13.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label13.Location = New System.Drawing.Point(299, 212) Me.Label13.Location = New System.Drawing.Point(265, 212)
Me.Label13.Name = "Label13" Me.Label13.Name = "Label13"
Me.Label13.Size = New System.Drawing.Size(163, 13) Me.Label13.Size = New System.Drawing.Size(163, 13)
Me.Label13.TabIndex = 39 Me.Label13.TabIndex = 39
@@ -315,7 +316,7 @@ Partial Class frmStartOptions
Me.tbcntr.Location = New System.Drawing.Point(0, 297) Me.tbcntr.Location = New System.Drawing.Point(0, 297)
Me.tbcntr.Name = "tbcntr" Me.tbcntr.Name = "tbcntr"
Me.tbcntr.SelectedIndex = 0 Me.tbcntr.SelectedIndex = 0
Me.tbcntr.Size = New System.Drawing.Size(788, 421) Me.tbcntr.Size = New System.Drawing.Size(859, 421)
Me.tbcntr.TabIndex = 19 Me.tbcntr.TabIndex = 19
' '
'TabPage1 'TabPage1
@@ -356,7 +357,7 @@ Partial Class frmStartOptions
Me.TabPage1.Location = New System.Drawing.Point(4, 22) Me.TabPage1.Location = New System.Drawing.Point(4, 22)
Me.TabPage1.Name = "TabPage1" Me.TabPage1.Name = "TabPage1"
Me.TabPage1.Padding = New System.Windows.Forms.Padding(3) Me.TabPage1.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage1.Size = New System.Drawing.Size(780, 395) Me.TabPage1.Size = New System.Drawing.Size(851, 395)
Me.TabPage1.TabIndex = 0 Me.TabPage1.TabIndex = 0
Me.TabPage1.Text = "Zollverfahren" Me.TabPage1.Text = "Zollverfahren"
Me.TabPage1.UseVisualStyleBackColor = True Me.TabPage1.UseVisualStyleBackColor = True
@@ -723,10 +724,7 @@ Partial Class frmStartOptions
'TabPage2 'TabPage2
' '
Me.TabPage2.Controls.Add(Me.Label15) Me.TabPage2.Controls.Add(Me.Label15)
Me.TabPage2.Controls.Add(Me.txtVRGOut_MRN)
Me.TabPage2.Controls.Add(Me.Label14) 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.cbxOUT_NCTS_TESTORDNER)
Me.TabPage2.Controls.Add(Me.cbxISettEZA_VERAG) Me.TabPage2.Controls.Add(Me.cbxISettEZA_VERAG)
Me.TabPage2.Controls.Add(Me.PictureBox15) Me.TabPage2.Controls.Add(Me.PictureBox15)
@@ -745,6 +743,9 @@ Partial Class frmStartOptions
Me.TabPage2.Controls.Add(Me.Label7) Me.TabPage2.Controls.Add(Me.Label7)
Me.TabPage2.Controls.Add(Me.LinkLabel27) Me.TabPage2.Controls.Add(Me.LinkLabel27)
Me.TabPage2.Controls.Add(Me.Label6) Me.TabPage2.Controls.Add(Me.Label6)
Me.TabPage2.Controls.Add(Me.txtVRGOut_MRN)
Me.TabPage2.Controls.Add(Me.txtVRGOut_FilialenNr)
Me.TabPage2.Controls.Add(Me.txtVRGOut_AbfertigungsNr)
Me.TabPage2.Controls.Add(Me.MyComboBox2) Me.TabPage2.Controls.Add(Me.MyComboBox2)
Me.TabPage2.Controls.Add(Me.txtVRGOutEZA_BezugsNr) Me.TabPage2.Controls.Add(Me.txtVRGOutEZA_BezugsNr)
Me.TabPage2.Controls.Add(Me.MyComboBox1) Me.TabPage2.Controls.Add(Me.MyComboBox1)
@@ -752,11 +753,21 @@ Partial Class frmStartOptions
Me.TabPage2.Location = New System.Drawing.Point(4, 22) Me.TabPage2.Location = New System.Drawing.Point(4, 22)
Me.TabPage2.Name = "TabPage2" Me.TabPage2.Name = "TabPage2"
Me.TabPage2.Padding = New System.Windows.Forms.Padding(3) Me.TabPage2.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage2.Size = New System.Drawing.Size(780, 395) Me.TabPage2.Size = New System.Drawing.Size(851, 395)
Me.TabPage2.TabIndex = 1 Me.TabPage2.TabIndex = 1
Me.TabPage2.Text = "VERAG Interface" Me.TabPage2.Text = "VERAG Interface"
Me.TabPage2.UseVisualStyleBackColor = True Me.TabPage2.UseVisualStyleBackColor = True
' '
'Label15
'
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:"
'
'Label14 'Label14
' '
Me.Label14.AutoSize = True Me.Label14.AutoSize = True
@@ -767,50 +778,6 @@ Partial Class frmStartOptions
Me.Label14.TabIndex = 72 Me.Label14.TabIndex = 72
Me.Label14.Text = "Zuordnung Filiale/Abf.Nr ( opt.):" 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 'cbxOUT_NCTS_TESTORDNER
' '
Me.cbxOUT_NCTS_TESTORDNER.AutoSize = True Me.cbxOUT_NCTS_TESTORDNER.AutoSize = True
@@ -1014,71 +981,6 @@ Partial Class frmStartOptions
Me.Label6.TabIndex = 0 Me.Label6.TabIndex = 0
Me.Label6.Text = "VERAG IN" 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 'TabPage3
' '
Me.TabPage3.Controls.Add(Me.LinkLabel31) Me.TabPage3.Controls.Add(Me.LinkLabel31)
@@ -1088,7 +990,7 @@ Partial Class frmStartOptions
Me.TabPage3.Controls.Add(Me.Label11) Me.TabPage3.Controls.Add(Me.Label11)
Me.TabPage3.Location = New System.Drawing.Point(4, 22) Me.TabPage3.Location = New System.Drawing.Point(4, 22)
Me.TabPage3.Name = "TabPage3" Me.TabPage3.Name = "TabPage3"
Me.TabPage3.Size = New System.Drawing.Size(780, 395) Me.TabPage3.Size = New System.Drawing.Size(851, 395)
Me.TabPage3.TabIndex = 2 Me.TabPage3.TabIndex = 2
Me.TabPage3.Text = "Partner-Systeme" Me.TabPage3.Text = "Partner-Systeme"
Me.TabPage3.UseVisualStyleBackColor = True Me.TabPage3.UseVisualStyleBackColor = True
@@ -1224,28 +1126,6 @@ Partial Class frmStartOptions
Me.Label3.TabIndex = 14 Me.Label3.TabIndex = 14
Me.Label3.Text = "Routine Manager IMEX" 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 'PictureBox12
' '
Me.PictureBox12.BackgroundImage = CType(resources.GetObject("PictureBox12.BackgroundImage"), System.Drawing.Image) Me.PictureBox12.BackgroundImage = CType(resources.GetObject("PictureBox12.BackgroundImage"), System.Drawing.Image)
@@ -1346,12 +1226,13 @@ Partial Class frmStartOptions
' '
'btn 'btn
' '
Me.btn.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btn.BackColor = System.Drawing.Color.Red Me.btn.BackColor = System.Drawing.Color.Red
Me.btn.FlatAppearance.BorderColor = System.Drawing.Color.Gray Me.btn.FlatAppearance.BorderColor = System.Drawing.Color.Gray
Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.btn.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btn.ForeColor = System.Drawing.Color.White Me.btn.ForeColor = System.Drawing.Color.White
Me.btn.Location = New System.Drawing.Point(714, -1) Me.btn.Location = New System.Drawing.Point(785, -1)
Me.btn.Margin = New System.Windows.Forms.Padding(0) Me.btn.Margin = New System.Windows.Forms.Padding(0)
Me.btn.Name = "btn" Me.btn.Name = "btn"
Me.btn.Size = New System.Drawing.Size(75, 22) Me.btn.Size = New System.Drawing.Size(75, 22)
@@ -1413,6 +1294,86 @@ Partial Class frmStartOptions
Me.lblRoutineManager.TabIndex = 1 Me.lblRoutineManager.TabIndex = 1
Me.lblRoutineManager.Text = "Routine Manager" Me.lblRoutineManager.Text = "Routine Manager"
' '
'Button6
'
Me.Button6.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button6.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Button6.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button6.Location = New System.Drawing.Point(687, 228)
Me.Button6.Name = "Button6"
Me.Button6.Size = New System.Drawing.Size(136, 24)
Me.Button6.TabIndex = 53
Me.Button6.Text = "Stammdaten --> Syska"
Me.Button6.UseVisualStyleBackColor = True
'
'CheckBox6
'
Me.CheckBox6.AutoSize = True
Me.CheckBox6.Checked = True
Me.CheckBox6.CheckState = System.Windows.Forms.CheckState.Checked
Me.CheckBox6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.CheckBox6.Location = New System.Drawing.Point(745, 255)
Me.CheckBox6.Name = "CheckBox6"
Me.CheckBox6.Size = New System.Drawing.Size(79, 17)
Me.CheckBox6.TabIndex = 52
Me.CheckBox6.Text = "Testsystem"
Me.CheckBox6.UseVisualStyleBackColor = True
'
'Button7
'
Me.Button7.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button7.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Button7.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button7.Location = New System.Drawing.Point(559, 228)
Me.Button7.Name = "Button7"
Me.Button7.Size = New System.Drawing.Size(129, 24)
Me.Button7.TabIndex = 49
Me.Button7.Text = "Buchungen --> Syska"
Me.Button7.UseVisualStyleBackColor = True
'
'CheckBox7
'
Me.CheckBox7.AutoSize = True
Me.CheckBox7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.CheckBox7.Location = New System.Drawing.Point(690, 255)
Me.CheckBox7.Name = "CheckBox7"
Me.CheckBox7.Size = New System.Drawing.Size(56, 17)
Me.CheckBox7.TabIndex = 50
Me.CheckBox7.Text = "öffnen"
Me.CheckBox7.UseVisualStyleBackColor = True
'
'Label16
'
Me.Label16.AutoSize = True
Me.Label16.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label16.Location = New System.Drawing.Point(556, 212)
Me.Label16.Name = "Label16"
Me.Label16.Size = New System.Drawing.Size(150, 13)
Me.Label16.TabIndex = 48
Me.Label16.Text = "Routine Manager VERAG"
'
'cboSYSKAFirma
'
Me.cboSYSKAFirma._allowedValuesFreiText = Nothing
Me.cboSYSKAFirma._allowFreiText = False
Me.cboSYSKAFirma._value = ""
Me.cboSYSKAFirma.FormattingEnabled = True
Me.cboSYSKAFirma.Location = New System.Drawing.Point(559, 251)
Me.cboSYSKAFirma.Name = "cboSYSKAFirma"
Me.cboSYSKAFirma.Size = New System.Drawing.Size(129, 21)
Me.cboSYSKAFirma.TabIndex = 51
'
'cboBMDUnispedFirma
'
Me.cboBMDUnispedFirma._allowedValuesFreiText = Nothing
Me.cboBMDUnispedFirma._allowFreiText = False
Me.cboBMDUnispedFirma._value = ""
Me.cboBMDUnispedFirma.FormattingEnabled = True
Me.cboBMDUnispedFirma.Location = New System.Drawing.Point(268, 251)
Me.cboBMDUnispedFirma.Name = "cboBMDUnispedFirma"
Me.cboBMDUnispedFirma.Size = New System.Drawing.Size(124, 21)
Me.cboBMDUnispedFirma.TabIndex = 42
'
'txtVRGOut_MRN 'txtVRGOut_MRN
' '
Me.txtVRGOut_MRN._DateTimeOnly = False Me.txtVRGOut_MRN._DateTimeOnly = False
@@ -1434,22 +1395,143 @@ Partial Class frmStartOptions
Me.txtVRGOut_MRN.Size = New System.Drawing.Size(153, 20) Me.txtVRGOut_MRN.Size = New System.Drawing.Size(153, 20)
Me.txtVRGOut_MRN.TabIndex = 73 Me.txtVRGOut_MRN.TabIndex = 73
' '
'Label15 'txtVRGOut_FilialenNr
' '
Me.Label15.AutoSize = True Me.txtVRGOut_FilialenNr._DateTimeOnly = False
Me.Label15.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.txtVRGOut_FilialenNr._numbersOnly = False
Me.Label15.Location = New System.Drawing.Point(295, 87) Me.txtVRGOut_FilialenNr._numbersOnlyKommastellen = ""
Me.Label15.Name = "Label15" Me.txtVRGOut_FilialenNr._Prozent = False
Me.Label15.Size = New System.Drawing.Size(59, 13) Me.txtVRGOut_FilialenNr._ShortDateNew = False
Me.Label15.TabIndex = 74 Me.txtVRGOut_FilialenNr._ShortDateOnly = False
Me.Label15.Text = "oder MRN:" 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
'
'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
'
'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"
' '
'frmStartOptions 'frmStartOptions
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.White Me.BackColor = System.Drawing.Color.White
Me.ClientSize = New System.Drawing.Size(790, 720) Me.ClientSize = New System.Drawing.Size(861, 720)
Me.Controls.Add(Me.pnl) Me.Controls.Add(Me.pnl)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
@@ -1588,4 +1670,10 @@ Partial Class frmStartOptions
Friend WithEvents txtVRGOut_AbfertigungsNr As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents txtVRGOut_AbfertigungsNr As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label15 As Label Friend WithEvents Label15 As Label
Friend WithEvents txtVRGOut_MRN As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents txtVRGOut_MRN As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Button6 As Button
Friend WithEvents CheckBox6 As CheckBox
Friend WithEvents Button7 As Button
Friend WithEvents cboSYSKAFirma As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents CheckBox7 As CheckBox
Friend WithEvents Label16 As Label
End Class End Class

288
initATLASAufschubkonten/frmStartOptions.resx
View File

@@ -118,150 +118,6 @@
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value> <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader> </resheader>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" /> <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"> <data name="PictureBox13.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABEhJREFUSEtj iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABEhJREFUSEtj
@@ -500,6 +356,150 @@
WOhxEFgYvLZus64EJhQtqBTtALDEsQ/aHnRf3FTcASpEWwBsbQkBLQW1uqiTUJABFxcXg7y8PJupqSm/ WOhxEFgYvLZus64EJhQtqBTtALDEsQ/aHnRf3FTcASpEWwBsbQkBLQW1uqiTUJABFxcXg7y8PJupqSm/
nZ2diL29vSgyBooJm5ub88nKyrIC1VLezgQ2zRk9PT0F6urqVCdNmmQwbdo0Y2Q8efJk3ebmZkVXV1de nZ2diL29vSgyBooJm5ub88nKyrIC1VLezgQ2zRk9PT0F6urqVCdNmmQwbdo0Y2Q8efJk3ebmZkVXV1de
CQkJEjM9AwMAOTMC2xlgxuQAAAAASUVORK5CYII= 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> </value>
</data> </data>
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">

34
initATLASAufschubkonten/frmStartOptions.vb
View File

@@ -58,6 +58,15 @@ Public Class frmStartOptions
cboBMDUnispedFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("UNISPED Zollservice (AT)", "23")) cboBMDUnispedFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("UNISPED Zollservice (AT)", "23"))
cboBMDUnispedFirma.changeItem("") cboBMDUnispedFirma.changeItem("")
cboSYSKAFirma.Items.Clear()
cboSYSKAFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
cboSYSKAFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG Spedition AG", "1"))
cboSYSKAFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG Customs Service GmbH", "11"))
cboSYSKAFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ATILLA Spedition GmbH", "7"))
cboSYSKAFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Front-Office Suben eG", "17"))
cboSYSKAFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG 360 GmbH", "19"))
cboSYSKAFirma.changeItem("")
Dim PARAM = "" Dim PARAM = ""
Dim parameter() As String = Environment.GetCommandLineArgs().ToArray Dim parameter() As String = Environment.GetCommandLineArgs().ToArray
If (parameter.Count - 1) >= 1 Then 'Höher als 1 weil der index 0 de r Pfad zum programm ist If (parameter.Count - 1) >= 1 Then 'Höher als 1 weil der index 0 de r Pfad zum programm ist
@@ -114,7 +123,7 @@ Public Class frmStartOptions
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG" VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG"
UPDATE_SMS() UPDATE_SMS()
closeMe()
Case "DY_EINARBEITUNG_UNISPED" Case "DY_EINARBEITUNG_UNISPED"
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "UNISPED" VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "UNISPED"
@@ -123,7 +132,6 @@ Public Class frmStartOptions
f.Show() f.Show()
AddHandler f.FormClosed, AddressOf closeMe AddHandler f.FormClosed, AddressOf closeMe
Case "MDM_EINARBEITUNG" Case "MDM_EINARBEITUNG"
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
Dim f As New frmMDMNachrichtenVerarbeitung(True) Dim f As New frmMDMNachrichtenVerarbeitung(True)
@@ -226,7 +234,7 @@ Public Class frmStartOptions
Dim sql As New VERAG_PROG_ALLGEMEIN.SQL Dim sql As New VERAG_PROG_ALLGEMEIN.SQL
Dim dt As DataTable = sql.loadDgvBySql("SELECT [zzAktivitaet].LizenzNr,[zzAktivitaet].Operatorid,[zzAktivitaet].AnmID,MsgTyp,[zzAktivitaet].ErstelltAm,pfad,LRN,CRN FROM [zzAktivitaet] INNER JOIN zsAnmRefs On zsAnmrefs.AnmID=zzAktivitaet.AnmID Dim dt As DataTable = sql.loadDgvBySql("SELECT [zzAktivitaet].LizenzNr,[zzAktivitaet].Operatorid,[zzAktivitaet].AnmID,MsgTyp,[zzAktivitaet].ErstelltAm,pfad,LRN,CRN FROM [zzAktivitaet] INNER JOIN zsAnmRefs On zsAnmrefs.AnmID=zzAktivitaet.AnmID
where MsgTyp IN ('EZ922','EZ923','TR109') and ErstelltAm>='" & datum.ToShortDateString & " 00:00:00' and pfad is not null", "EZOLL") where MsgTyp IN ('EZ922','EZ923','TR109') and ErstelltAm>='" & datum.ToShortDateString & " 00:00:00' and pfad is not null", "EZOLL", 20)
If dt IsNot Nothing Then If dt IsNot Nothing Then
For Each row In dt.Rows For Each row In dt.Rows
Dim cDHF_Anhaenge As New VERAG_PROG_ALLGEMEIN.cDHF_Anhaenge(row("AnmID"), row("MsgTyp")) Dim cDHF_Anhaenge As New VERAG_PROG_ALLGEMEIN.cDHF_Anhaenge(row("AnmID"), row("MsgTyp"))
@@ -1865,11 +1873,11 @@ Public Class frmStartOptions
Function UPDATE_SMS() As Boolean Function UPDATE_SMS() As Boolean
Try Try
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL 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") 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/%' AND sms_Datum>DATEADD(DAY,-2, GETDATE())", "FMZOLL")
If dt IsNot Nothing Then If dt IsNot Nothing Then
For Each r In dt.Rows For Each r In dt.Rows
Dim cSMS As New VERAG_PROG_ALLGEMEIN.cSMS(r("sms_id")) Dim cSMS As New VERAG_PROG_ALLGEMEIN.cSMS(r("sms_id"))
cSMS.checkSMSStatus() cSMS.checkSMSStatus(True)
Next Next
End If End If
Return True Return True
@@ -1879,5 +1887,21 @@ Public Class frmStartOptions
End Try End Try
End Function End Function
Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = CheckBox6.Checked 'False
If cboSYSKAFirma._value = "" Then
VERAG_PROG_ALLGEMEIN.cSyska_Interface.genDatensatz_ALL(CheckBox7.Checked, False)
Else
VERAG_PROG_ALLGEMEIN.cSyska_Interface.genDatensatz_Buchungen(cboSYSKAFirma._value, CheckBox7.Checked)
End If
End Sub
Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = CheckBox6.Checked 'False
If cboSYSKAFirma._value = "" Then
VERAG_PROG_ALLGEMEIN.cSyska_Interface.genDatensatz_ALL(CheckBox7.Checked,, False)
Else
VERAG_PROG_ALLGEMEIN.cSyska_Interface.genDatensatz_Stammdaten(cboSYSKAFirma._value, CheckBox7.Checked)
End If
End Sub
End Class End Class

2
initATLASAufschubkonten/frmTCNachrichtenVerarbeitung.vb
View File

@@ -933,7 +933,7 @@ Public Class frmTCNachrichtenVerarbeitung
Dim cn As New System.Data.SqlClient.SqlConnection() Dim cn As New System.Data.SqlClient.SqlConnection()
cn.ConnectionString = "Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=ADMIN;Integrated Security=false;User ID=sa;Password=BmWr501956;" cn.ConnectionString = "Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=ADMIN;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$;"
cn.Open() cn.Open()
Using cn Using cn
Using cmd As New System.Data.SqlClient.SqlCommand(sql, cn) Using cmd As New System.Data.SqlClient.SqlCommand(sql, cn)