Compare commits
3 Commits
9c7d332d52
...
ea85aed73d
| Author | SHA1 | Date | |
|---|---|---|---|
| ea85aed73d | |||
| c22a536646 | |||
| c174cd55c7 |
@@ -57,7 +57,7 @@ Module Mail
|
||||
|
||||
' PARAM = "MDM_IT_Verguetung"
|
||||
'PARAM = "JAHRESABRECHNUNG AG-ZS"
|
||||
'PARAM = "TETRAPAK"
|
||||
'PARAM = "KANADEVIA_DETAIL"
|
||||
|
||||
|
||||
'------------------------------------------------------------------------------------
|
||||
@@ -275,6 +275,105 @@ Module Mail
|
||||
End If
|
||||
|
||||
|
||||
|
||||
Case "KANADEVIA_DETAIL"
|
||||
|
||||
Dim von As Date
|
||||
Dim bis As Date
|
||||
|
||||
If Now.Month = 1 Then
|
||||
von = New Date(Now.Year - 1, 1, 1)
|
||||
bis = New Date(Now.Year - 1, 12, 31)
|
||||
Else
|
||||
von = New Date(Now.Year, 1, 1)
|
||||
bis = New Date(Now.Year, Now.Month, 1).AddDays(-1)
|
||||
End If
|
||||
|
||||
Dim mailTo = "Julie.Garton@kanadevia-inova.com; Mark.Stauffer@kanadevia-inova.com;Sevda.Aksoy@kanadevia-inova.com; Iryna.Hauser@kanadevia-inova.com"
|
||||
Dim mailToBCC = "ml@verag.ag;al@verag.ag"
|
||||
|
||||
'mailToBCC = "d.breimaier@verag.ag"
|
||||
'mailTo = "d.breimaier@verag.ag"
|
||||
|
||||
|
||||
Dim ListOfKdNr As New List(Of Integer)
|
||||
|
||||
ListOfKdNr.Add(770931)
|
||||
ListOfKdNr.Add(772819)
|
||||
ListOfKdNr.Add(773157)
|
||||
ListOfKdNr.Add(773143)
|
||||
|
||||
For Each kdNr As Integer In ListOfKdNr
|
||||
|
||||
Dim Adr As New cAdressen(kdNr)
|
||||
|
||||
Dim Body As String = "Please find attached the reports on customs declarations for the period from " & von.ToShortDateString & " to " & bis.ToShortDateString & " from " & Adr.Name_1 & " (Customer-No.: " & Adr.AdressenNr & ") " &
|
||||
"<br><br>Generated on: " & Now.ToShortDateString & ", um " & Now.ToShortTimeString &
|
||||
"<br><br><br>This is an automatically generated email. Please do not reply to this email." &
|
||||
"<br><br>VERAG SPEDITION AG"
|
||||
|
||||
Dim RPT As New VERAG_PROG_ALLGEMEIN.cSpeditionsbuchReport
|
||||
|
||||
System.Console.WriteLine("Auswertung " & PARAM & " gestartet...")
|
||||
|
||||
If SendEmail_KANADEVIA(mailTo, RPT.RunReport_VERAG_ZA_DETAIL(kdNr, von, bis, , False,, False), von, bis,, mailToBCC, PARAM, Body) Then
|
||||
System.Console.WriteLine("Vorgang erfolgreich abgeschlossen ...")
|
||||
End If
|
||||
Next
|
||||
|
||||
|
||||
Case "KANADEVIA_GENERAL"
|
||||
|
||||
Dim von As Date
|
||||
Dim bis As Date
|
||||
|
||||
If Now.Month = 1 Then
|
||||
von = New Date(Now.Year - 1, 1, 1)
|
||||
bis = New Date(Now.Year - 1, 12, 31)
|
||||
Else
|
||||
von = New Date(Now.Year, 1, 1)
|
||||
bis = New Date(Now.Year, Now.Month, 1).AddDays(-1)
|
||||
End If
|
||||
|
||||
Dim mailTo = "Julie.Garton@kanadevia-inova.com; Mark.Stauffer@kanadevia-inova.com;Sevda.Aksoy@kanadevia-inova.com; Iryna.Hauser@kanadevia-inova.com;"
|
||||
Dim mailToBCC = "ml@verag.ag;al@verag.ag;"
|
||||
|
||||
'mailToBCC = "d.breimaier@verag.ag;"
|
||||
'mailTo = "d.breimaier@verag.ag;"
|
||||
|
||||
|
||||
Dim ListOfKdNr As New List(Of Integer)
|
||||
|
||||
|
||||
ListOfKdNr.Add(770931)
|
||||
ListOfKdNr.Add(772819)
|
||||
ListOfKdNr.Add(773157)
|
||||
ListOfKdNr.Add(773143)
|
||||
|
||||
For Each kdNr As Integer In ListOfKdNr
|
||||
|
||||
Dim Adr As New cAdressen(kdNr)
|
||||
|
||||
Dim Body As String = "Please find attached the reports on customs declarations for the period from " & von.ToShortDateString & " to " & bis.ToShortDateString & " from " & Adr.Name_1 & " (Customer-No.: " & Adr.AdressenNr & ") " &
|
||||
"<br><br>Generated on: " & Now.ToShortDateString & ", um " & Now.ToShortTimeString &
|
||||
"<br><br><br>This is an automatically generated email. Please do not reply to this email." &
|
||||
"<br><br>VERAG SPEDITION AG"
|
||||
|
||||
|
||||
|
||||
Dim RPT As New VERAG_PROG_ALLGEMEIN.cSpeditionsbuchReport
|
||||
System.Console.WriteLine("Auswertung " & PARAM & " gestartet...")
|
||||
|
||||
If SendEmail_KANADEVIA(mailTo, RPT.RunReport_VERAG_ZA_GENERAL(kdNr, von, bis, , False, True,, False), von, bis,, mailToBCC, PARAM, Body) Then
|
||||
System.Console.WriteLine("Vorgang erfolgreich abgeschlossen ...")
|
||||
End If
|
||||
|
||||
Next
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
Case "ZF" 'umgebaut auf neue Mailsender-Logik
|
||||
Dim von = CDate("01." & Now.AddMonths(-1).Month & "." & Now.AddMonths(-1).Year)
|
||||
Dim bis = CDate("01." & Now.Month & "." & Now.Year).AddDays(-1)
|
||||
@@ -328,7 +427,7 @@ Module Mail
|
||||
|
||||
Else
|
||||
|
||||
System.Console.WriteLine("OPTION erkannt: ZF _ Erstellt eine monaltiche Auswertung der Abfertigungen für ZF.")
|
||||
System.Console.WriteLine("OPTION erkannt: ZF _ Erstellt eine monatliche Auswertung der Abfertigungen für ZF.")
|
||||
System.Console.WriteLine("Auswertung Details gestartet...")
|
||||
|
||||
If SendEmail_ZF("teresa.elster@zf.com;manfred.lindbichler@zf.com;walter.gnadlinger@zf.com", KdNr, von, bis, "monthly") Then
|
||||
@@ -1019,6 +1118,50 @@ Module Mail
|
||||
End Try
|
||||
End Function
|
||||
|
||||
Private Function SendEmail_KANADEVIA(Mailto As String, Path As String, von As Date, bis As Date, Optional cc As String = "", Optional bcc As String = "", Optional Subject As String = "", Optional Body As String = "") As Boolean
|
||||
Try
|
||||
Dim excel As String = Path
|
||||
System.Console.WriteLine("EXCEL erstellt...")
|
||||
If excel <> "" And Not excel.StartsWith("ERROR: ") Then
|
||||
|
||||
System.Console.WriteLine("Sende E-Mail...")
|
||||
|
||||
If Subject = "" Then
|
||||
Subject = "Auswertungen KANADEVIA"
|
||||
End If
|
||||
|
||||
If Body = "" Then
|
||||
Body = "Anbei befinden sich die Auswertungen Zollanmeldungen von " & von.ToShortDateString & " bis " & bis.ToShortDateString & "." &
|
||||
"<br><br>Erstellt am: " & Now.ToShortDateString & ", um " & Now.ToShortTimeString &
|
||||
"<br><br><br>Automatisch generiertes E-Mail. Bitte Antworten Sie nicht an dieses E-Mail." &
|
||||
"<br><br>VERAG SPEDITION AG"
|
||||
Else
|
||||
Body = replaceBodyVariable(Body, von, bis)
|
||||
End If
|
||||
|
||||
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA_ID = 0 Then VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA_ID = 1
|
||||
|
||||
Dim anhenge As New List(Of String)
|
||||
anhenge.Add(excel)
|
||||
If VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(Mailto, Subject, Body, getAbsenderEmail(),, False, cc, bcc, anhenge) Then
|
||||
System.Console.WriteLine("E-Mail gesendet.")
|
||||
System.Console.WriteLine("Erfolgreich!")
|
||||
Else
|
||||
System.Console.WriteLine("ERROR BEIM SENDEN DER MAIL!")
|
||||
|
||||
End If
|
||||
|
||||
Return True
|
||||
Else
|
||||
System.Console.WriteLine(excel)
|
||||
End If
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL)
|
||||
System.Console.WriteLine(ex.Message & ex.StackTrace)
|
||||
Return False
|
||||
End Try
|
||||
End Function
|
||||
|
||||
Private Function SendEmail_ZF(Mailto As String, KdNr As String, von As Date, bis As Date, Auswertungstyp As String, Optional cc As String = "", Optional bcc As String = "", Optional Subject As String = "", Optional Body As String = "") As Boolean
|
||||
Try
|
||||
Dim excel As String = genEXCEL_ZF(KdNr, von, bis, Auswertungstyp)
|
||||
|
||||
@@ -249,6 +249,7 @@ Public Class usrCntlMitarbeiter
|
||||
' MsgBox("ALLE:" & dt.Rows.Count & vbNewLine & "AKIVE:" & dt_onlyActive.Rows.Count)
|
||||
|
||||
End If
|
||||
|
||||
With dgvTimasNew
|
||||
|
||||
.RowTemplate.Height = 20
|
||||
@@ -263,9 +264,22 @@ Public Class usrCntlMitarbeiter
|
||||
.SelectionMode = DataGridViewSelectionMode.FullRowSelect
|
||||
.AllowUserToOrderColumns = True
|
||||
If .ColumnCount > 5 Then .Columns(6).AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
|
||||
|
||||
|
||||
For i As Integer = 0 To .Rows.Count - 1
|
||||
|
||||
.Rows(i).DefaultCellStyle.BackColor = If(.Rows(i).Cells("Ausweis-Nr").Value = "0", Color.IndianRed, Color.LightBlue)
|
||||
|
||||
|
||||
Next
|
||||
|
||||
|
||||
|
||||
End With
|
||||
|
||||
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
@@ -1005,6 +1019,7 @@ Public Class usrCntlMitarbeiter
|
||||
dt_Employee.Columns.Add("employeeId", GetType(Integer))
|
||||
dt_Employee.Columns.Add("Vorname", GetType(String))
|
||||
dt_Employee.Columns.Add("Nachname", GetType(String))
|
||||
dt_Employee.Columns.Add("Ausweis-Nr", GetType(Integer))
|
||||
|
||||
Dim dt_result As New DataTable
|
||||
|
||||
@@ -1022,6 +1037,7 @@ Public Class usrCntlMitarbeiter
|
||||
ROW("employeeId") = r.Cells("Id").Value
|
||||
ROW("Vorname") = r.Cells("Vorname").Value
|
||||
ROW("Nachname") = r.Cells("Nachname").Value
|
||||
ROW("Ausweis-Nr") = r.Cells("Ausweis-Nr").Value
|
||||
dt_Employee.Rows.Add(ROW)
|
||||
Next
|
||||
|
||||
@@ -1053,7 +1069,7 @@ Public Class usrCntlMitarbeiter
|
||||
|
||||
Else
|
||||
dt_result_temp = dt_result.Select("multiplier = '-'", "date").CopyToDataTable
|
||||
Info = "falsch ausbezahlte Überstunden (ÜS sind negativ -> Erhöhen den Saldo)"
|
||||
Info = "falsch ausbezahlte Überstunden (ÜS sind negativ -> Erhöhen den Saldo); Ausweis-Nr = 0 -> Mitarbeiter archiviert"
|
||||
End If
|
||||
|
||||
If dt_result_temp.Rows.Count = 0 Then
|
||||
@@ -1063,7 +1079,7 @@ Public Class usrCntlMitarbeiter
|
||||
|
||||
Dim query = From fa In dt_result_temp.AsEnumerable()
|
||||
Join emp In dt_Employee.AsEnumerable() On fa.Field(Of Integer)("employeeId") Equals emp.Field(Of Integer)("employeeId")
|
||||
Select result = fa.ItemArray.Concat({emp.Field(Of String)("Vorname"), emp.Field(Of String)("Nachname")}).ToArray()
|
||||
Select result = fa.ItemArray.Concat({emp.Field(Of String)("Vorname"), emp.Field(Of String)("Nachname"), emp.Field(Of Integer)("Ausweis-Nr")}).ToArray()
|
||||
|
||||
' Neue Tabelle erstellen (Struktur erweitern)
|
||||
Dim dt_merged As New DataTable
|
||||
@@ -1076,6 +1092,7 @@ Public Class usrCntlMitarbeiter
|
||||
' Neue Spalten hinzufügen
|
||||
dt_merged.Columns.Add("Vorname", GetType(String))
|
||||
dt_merged.Columns.Add("Nachname", GetType(String))
|
||||
dt_merged.Columns.Add("Ausweis-Nr", GetType(Integer))
|
||||
|
||||
' Daten einfügen
|
||||
For Each row In query
|
||||
|
||||
@@ -4,6 +4,7 @@ Imports System.Text
|
||||
Imports System.Text.RegularExpressions
|
||||
Imports System.Web
|
||||
Imports System.Xml
|
||||
Imports io.konik.zugferd
|
||||
Imports Renci.SshNet
|
||||
Imports Renci.SshNet.Sftp
|
||||
Imports VERAG_PROG_ALLGEMEIN
|
||||
@@ -589,7 +590,7 @@ Public Class frmNachrichtenVerarbeitung_MDM_divers
|
||||
Case 2
|
||||
|
||||
'------------------------------------------
|
||||
'------------------ PDF ------------------
|
||||
'---- PDF - RECHNUNGEN AUS PDF-Datensatz --
|
||||
'------------------------------------------
|
||||
If fi.Extension.ToLower = ".pdf" Then
|
||||
|
||||
@@ -599,7 +600,7 @@ Public Class frmNachrichtenVerarbeitung_MDM_divers
|
||||
|
||||
'File in Datenarchiv sichern:
|
||||
'd.breimaier: 2024-06-05 aktuell nur die RMC-Dateien! (später, wenn CSV vollständig, dann alle PDFs importieren!
|
||||
'd.breimaier: 2024-06-17 laut Christian Schuster von Comcore (EDV-BEtr. von RMC) nicht möglich CSV mit easytrip und sofico Datensätzen zu ergängen!
|
||||
'd.breimaier: 2024-06-17 laut Christian Schuster von Comcore (EDV-BEtr. von RMC) nicht möglich CSV mit easytrip und sofico Datensätzen zu ergänzen!
|
||||
'd.breimaier: 2025-09-15 laut Christian Schuster erhalten wir nun die Rechnungen mit folgenden Aufbau:
|
||||
|
||||
'• fixwert invoice
|
||||
@@ -629,11 +630,11 @@ Public Class frmNachrichtenVerarbeitung_MDM_divers
|
||||
|
||||
End If
|
||||
|
||||
If fi.Name.ToString.StartsWith("invoice_") OrElse (fi.Name.ToString.StartsWith("maut_") AndAlso fi.Name.ToString.Contains("EGR") AndAlso Not fi.Name.ToString.Contains("ALL")) Then 'RMC Eigenrechnungen
|
||||
If fi.Name.ToString.StartsWith("invoice_") OrElse (fi.Name.ToString.StartsWith("maut_") AndAlso fi.Name.ToString.Contains("EGR") AndAlso Not fi.Name.ToString.Contains("ALL")) Then
|
||||
|
||||
If fi.Name.ToString.StartsWith("invoice_") Then
|
||||
|
||||
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("MDM", "MDM_DATEN", "RMC", Now.Year, Now.ToString("yyyyMMdd"), frmStartOptions.getFileName(fileNamePath))
|
||||
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("MDM", "MDM_DATEN", "RMC", Now.Year, Now.ToString("yyyyMMdd"), frmStartOptions.getFileName(fileNamePath)) 'RMC Eigenrechnungen
|
||||
|
||||
DS.uploadDataToDATENSERVER(fileNamePath,,,,,, True)
|
||||
|
||||
@@ -643,7 +644,7 @@ Public Class frmNachrichtenVerarbeitung_MDM_divers
|
||||
If fi.Name.ToLower.Contains("pdf") Then addDGVEinarbeitung("PDF", fi.Name)
|
||||
dgvEinarbeitung.Refresh()
|
||||
found = True
|
||||
ElseIf (fi.Name.ToString.StartsWith("maut_") AndAlso fi.Name.ToString.Contains("EGR") AndAlso Not fi.Name.ToString.Contains("ALL")) Then 'EasyTrip IT Rechnungen
|
||||
ElseIf (fi.Name.ToString.StartsWith("maut_") AndAlso fi.Name.ToString.Contains("EGR") AndAlso Not fi.Name.ToString.Contains("ALL")) Then 'EasyTrip Italy Rechnungen
|
||||
|
||||
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("MDM", "MDM_DATEN", "RMC", Now.Year, Now.ToString("yyyyMMdd"), frmStartOptions.getFileName(fileNamePath))
|
||||
|
||||
@@ -723,28 +724,19 @@ Public Class frmNachrichtenVerarbeitung_MDM_divers
|
||||
|
||||
End If
|
||||
|
||||
'copy file to lydia - nicht mehr notwendig!!!
|
||||
'If Not VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
|
||||
' Dim filepathToLydia = IIf(rmc.PDFRECHNUNGEN <> "", rmc.PDFRECHNUNGEN, "\\share01\F\Juricevic Datensicherung\RMC_RECHNUNGEN\")
|
||||
' If fileNamePath.ToString.ToLower.Contains("nto") Then
|
||||
' frmStartOptions.copyFile(fileNamePath, filepathToLydia & "NETTO\")
|
||||
' Else
|
||||
' frmStartOptions.copyFile(fileNamePath, filepathToLydia & "BRUTTO\")
|
||||
' End If
|
||||
'End If
|
||||
|
||||
|
||||
|
||||
End If
|
||||
|
||||
Case 3
|
||||
|
||||
If (fi.Name.ToString.StartsWith("maut_") AndAlso fi.Name.ToString.Contains("EGR") AndAlso fi.Name.ToString.Contains("ALL")) Then
|
||||
'------------------------------------------
|
||||
'---- PDF - Anhänge AUS PDF-Datensatz -----
|
||||
'------------------------------------------
|
||||
|
||||
|
||||
If (fi.Name.ToString.StartsWith("maut_") AndAlso fi.Name.ToString.Contains("EGR") AndAlso fi.Name.ToString.Contains("ALL")) Then 'bekommen wir diese PDFS noch??
|
||||
|
||||
Dim fileNamePath As String = d
|
||||
|
||||
|
||||
|
||||
Dim fileNameEasyTrip As String = fi.Name
|
||||
|
||||
fileNameEasyTrip = fileNameEasyTrip.Replace("maut_", "")
|
||||
@@ -769,10 +761,67 @@ Public Class frmNachrichtenVerarbeitung_MDM_divers
|
||||
RMC.SAVE()
|
||||
End If
|
||||
|
||||
frmStartOptions.moveFile_DateBack(fileNamePath, zielpfad & "Invoice_PDF\" & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\")
|
||||
frmStartOptions.moveFile_DateBack(fileNamePath, zielpfad & "Attachments_PDF\" & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\")
|
||||
If fi.Name.ToLower.Contains("pdf") Then addDGVEinarbeitung("PDF", fi.Name)
|
||||
dgvEinarbeitung.Refresh()
|
||||
found = True
|
||||
|
||||
ElseIf (fi.Name.ToString.StartsWith("mauteets_")) Then
|
||||
|
||||
Dim fileNamePath As String = d
|
||||
Dim fileNameMauteets As String = fi.Name
|
||||
fileNameMauteets = fileNameMauteets.Replace("mauteets_", "")
|
||||
|
||||
' Dateiendung entfernen
|
||||
Dim fileNameWithoutExtension As String = Path.GetFileNameWithoutExtension(fileNameMauteets)
|
||||
|
||||
' Dateiname anhand "_" aufteilen
|
||||
Dim parts() As String = fileNameWithoutExtension.Split("_"c)
|
||||
|
||||
Dim kdNr As String = parts(0)
|
||||
Dim mautteetsDate As String = parts(2)
|
||||
Dim mauteetsCountry As String = parts(3)
|
||||
|
||||
' Datum aus yyyyMMdd
|
||||
Dim parsedDate As DateTime = DateTime.ParseExact(mautteetsDate, "yyyyMMdd", System.Globalization.CultureInfo.InvariantCulture)
|
||||
|
||||
' Nächsthöheres RMC-Datum ermitteln:
|
||||
' 01. - 14. -> 15. des Monats
|
||||
' 15. - Monatsende -> Monatsende
|
||||
' Monatsende -> 15. des Folgemonats
|
||||
|
||||
Dim getNextRMCDate As Date
|
||||
|
||||
Dim tag15 As Date = New Date(parsedDate.Year, parsedDate.Month, 15)
|
||||
Dim monatsende As Date = New Date(parsedDate.Year, parsedDate.Month, 1).AddMonths(1).AddDays(-1)
|
||||
|
||||
If parsedDate < tag15 Then
|
||||
getNextRMCDate = tag15
|
||||
ElseIf parsedDate < monatsende Then
|
||||
getNextRMCDate = monatsende
|
||||
Else
|
||||
getNextRMCDate = New Date(parsedDate.Year, parsedDate.Month, 1).AddMonths(1).AddDays(14)
|
||||
End If
|
||||
|
||||
' BTO prüfen
|
||||
Dim isBTO As Boolean = parts.Any(Function(p) p.Equals("bto", StringComparison.OrdinalIgnoreCase)
|
||||
)
|
||||
|
||||
Dim RMC As New cRMC(kdNr, getNextRMCDate.ToString("dd.MM.yyyy"), mauteetsCountry, isBTO)
|
||||
If RMC.hasEntry AndAlso RMC.rmc_daId_InvAtt Is Nothing Then
|
||||
|
||||
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("MDM", "MDM_DATEN", "RMC_ATT", Now.Year, Now.ToString("yyyyMMdd"), frmStartOptions.getFileName(fileNamePath))
|
||||
DS.uploadDataToDATENSERVER(fileNamePath,,,,,, True)
|
||||
RMC.rmc_daId_InvAtt = DS.da_id
|
||||
RMC.SAVE()
|
||||
End If
|
||||
|
||||
frmStartOptions.moveFile_DateBack(fileNamePath, zielpfad & "Attachments_PDF\" & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\")
|
||||
If fi.Name.ToLower.Contains("pdf") Then addDGVEinarbeitung("PDF", fi.Name)
|
||||
dgvEinarbeitung.Refresh()
|
||||
found = True
|
||||
|
||||
|
||||
End If
|
||||
|
||||
|
||||
@@ -1441,6 +1490,12 @@ Public Class frmNachrichtenVerarbeitung_MDM_divers
|
||||
RMC.rmc_betragMWST = SQL.isleernothing(currentRow(10))
|
||||
RMC.rmc_betragBrutto = SQL.isleernothing(currentRow(11))
|
||||
|
||||
If fileType = "brutto" Then
|
||||
RMC.rmc_isBTO = True
|
||||
Else
|
||||
RMC.rmc_isBTO = False
|
||||
End If
|
||||
|
||||
Dim waherung = SQL.isleernothing(currentRow(12))
|
||||
If waherung IsNot Nothing Then
|
||||
RMC.rmc_waehrung = IIf(waherung.ToString.Length > 3, waherung.ToString.Substring(0, 3), waherung)
|
||||
|
||||
99
initATLASAufschubkonten/frmStartOptions.Designer.vb
generated
99
initATLASAufschubkonten/frmStartOptions.Designer.vb
generated
@@ -83,6 +83,9 @@ Partial Class frmStartOptions
|
||||
Me.Label13 = New System.Windows.Forms.Label()
|
||||
Me.tbcntr = New System.Windows.Forms.TabControl()
|
||||
Me.TabPage1 = New System.Windows.Forms.TabPage()
|
||||
Me.ll_MIC_Einarbeitung_TEST = New System.Windows.Forms.LinkLabel()
|
||||
Me.ll_MIC_Einarbeitung_PROD = New System.Windows.Forms.LinkLabel()
|
||||
Me.Label67 = New System.Windows.Forms.Label()
|
||||
Me.cbxGESTELLUNG_TESTLAUF = New System.Windows.Forms.CheckBox()
|
||||
Me.cbxVW_Infomail = New System.Windows.Forms.CheckBox()
|
||||
Me.LinkLabel68 = New System.Windows.Forms.LinkLabel()
|
||||
@@ -412,9 +415,7 @@ Partial Class frmStartOptions
|
||||
Me.MyTextBox1 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.txtGJ_UNISPED = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.Label67 = New System.Windows.Forms.Label()
|
||||
Me.ll_MIC_Einarbeitung_TEST = New System.Windows.Forms.LinkLabel()
|
||||
Me.ll_MIC_Einarbeitung_PROD = New System.Windows.Forms.LinkLabel()
|
||||
Me.Button36 = New System.Windows.Forms.Button()
|
||||
Me.pnl.SuspendLayout()
|
||||
CType(Me.pbEmailscheck, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.PictureBox24, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
@@ -474,6 +475,7 @@ Partial Class frmStartOptions
|
||||
'
|
||||
Me.pnl.BackColor = System.Drawing.Color.White
|
||||
Me.pnl.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
||||
Me.pnl.Controls.Add(Me.Button36)
|
||||
Me.pnl.Controls.Add(Me.Button35)
|
||||
Me.pnl.Controls.Add(Me.Button33)
|
||||
Me.pnl.Controls.Add(Me.LinkLabel54)
|
||||
@@ -570,11 +572,11 @@ Partial Class frmStartOptions
|
||||
Me.Button35.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button35.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
|
||||
Me.Button35.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
Me.Button35.Location = New System.Drawing.Point(996, 312)
|
||||
Me.Button35.Location = New System.Drawing.Point(1036, 207)
|
||||
Me.Button35.Name = "Button35"
|
||||
Me.Button35.Size = New System.Drawing.Size(103, 40)
|
||||
Me.Button35.Size = New System.Drawing.Size(185, 40)
|
||||
Me.Button35.TabIndex = 152
|
||||
Me.Button35.Text = "check Sped-Einrtäge"
|
||||
Me.Button35.Text = "Sped-Einträge prüfen (grünes S)"
|
||||
Me.Button35.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Button33
|
||||
@@ -582,12 +584,13 @@ Partial Class frmStartOptions
|
||||
Me.Button33.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button33.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
|
||||
Me.Button33.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
Me.Button33.Location = New System.Drawing.Point(1126, 155)
|
||||
Me.Button33.Location = New System.Drawing.Point(1118, 120)
|
||||
Me.Button33.Name = "Button33"
|
||||
Me.Button33.Size = New System.Drawing.Size(90, 40)
|
||||
Me.Button33.Size = New System.Drawing.Size(105, 40)
|
||||
Me.Button33.TabIndex = 151
|
||||
Me.Button33.Text = "EB-Highway"
|
||||
Me.Button33.UseVisualStyleBackColor = True
|
||||
Me.Button33.Visible = False
|
||||
'
|
||||
'LinkLabel54
|
||||
'
|
||||
@@ -605,9 +608,9 @@ Partial Class frmStartOptions
|
||||
Me.Button32.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button32.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
|
||||
Me.Button32.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
Me.Button32.Location = New System.Drawing.Point(996, 269)
|
||||
Me.Button32.Location = New System.Drawing.Point(1118, 162)
|
||||
Me.Button32.Name = "Button32"
|
||||
Me.Button32.Size = New System.Drawing.Size(103, 40)
|
||||
Me.Button32.Size = New System.Drawing.Size(105, 40)
|
||||
Me.Button32.TabIndex = 148
|
||||
Me.Button32.Text = "ZuGFerD-Check"
|
||||
Me.Button32.UseVisualStyleBackColor = True
|
||||
@@ -663,12 +666,13 @@ Partial Class frmStartOptions
|
||||
Me.Button30.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button30.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
|
||||
Me.Button30.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
Me.Button30.Location = New System.Drawing.Point(1014, 147)
|
||||
Me.Button30.Location = New System.Drawing.Point(1118, 55)
|
||||
Me.Button30.Name = "Button30"
|
||||
Me.Button30.Size = New System.Drawing.Size(105, 59)
|
||||
Me.Button30.TabIndex = 143
|
||||
Me.Button30.Text = "Preislisten - Übersetzungen einfügen"
|
||||
Me.Button30.UseVisualStyleBackColor = True
|
||||
Me.Button30.Visible = False
|
||||
'
|
||||
'pbEmailscheck
|
||||
'
|
||||
@@ -1279,6 +1283,38 @@ Partial Class frmStartOptions
|
||||
Me.TabPage1.Text = "Zollverfahren"
|
||||
Me.TabPage1.UseVisualStyleBackColor = True
|
||||
'
|
||||
'll_MIC_Einarbeitung_TEST
|
||||
'
|
||||
Me.ll_MIC_Einarbeitung_TEST.AutoSize = True
|
||||
Me.ll_MIC_Einarbeitung_TEST.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
|
||||
Me.ll_MIC_Einarbeitung_TEST.Location = New System.Drawing.Point(284, 323)
|
||||
Me.ll_MIC_Einarbeitung_TEST.Name = "ll_MIC_Einarbeitung_TEST"
|
||||
Me.ll_MIC_Einarbeitung_TEST.Size = New System.Drawing.Size(177, 13)
|
||||
Me.ll_MIC_Einarbeitung_TEST.TabIndex = 155
|
||||
Me.ll_MIC_Einarbeitung_TEST.TabStop = True
|
||||
Me.ll_MIC_Einarbeitung_TEST.Text = "Eingangsnachrichten abrufen TEST"
|
||||
'
|
||||
'll_MIC_Einarbeitung_PROD
|
||||
'
|
||||
Me.ll_MIC_Einarbeitung_PROD.AutoSize = True
|
||||
Me.ll_MIC_Einarbeitung_PROD.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
|
||||
Me.ll_MIC_Einarbeitung_PROD.Location = New System.Drawing.Point(284, 348)
|
||||
Me.ll_MIC_Einarbeitung_PROD.Name = "ll_MIC_Einarbeitung_PROD"
|
||||
Me.ll_MIC_Einarbeitung_PROD.Size = New System.Drawing.Size(180, 13)
|
||||
Me.ll_MIC_Einarbeitung_PROD.TabIndex = 156
|
||||
Me.ll_MIC_Einarbeitung_PROD.TabStop = True
|
||||
Me.ll_MIC_Einarbeitung_PROD.Text = "Eingangsnachrichten abrufen PROD"
|
||||
'
|
||||
'Label67
|
||||
'
|
||||
Me.Label67.AutoSize = True
|
||||
Me.Label67.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label67.Location = New System.Drawing.Point(284, 296)
|
||||
Me.Label67.Name = "Label67"
|
||||
Me.Label67.Size = New System.Drawing.Size(177, 13)
|
||||
Me.Label67.TabIndex = 154
|
||||
Me.Label67.Text = "MIC Nachrichtenverarbeitung:"
|
||||
'
|
||||
'cbxGESTELLUNG_TESTLAUF
|
||||
'
|
||||
Me.cbxGESTELLUNG_TESTLAUF.AutoSize = True
|
||||
@@ -5559,37 +5595,17 @@ Partial Class frmStartOptions
|
||||
Me.DataGridViewTextBoxColumn1.MinimumWidth = 8
|
||||
Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1"
|
||||
'
|
||||
'Label67
|
||||
'Button36
|
||||
'
|
||||
Me.Label67.AutoSize = True
|
||||
Me.Label67.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label67.Location = New System.Drawing.Point(284, 296)
|
||||
Me.Label67.Name = "Label67"
|
||||
Me.Label67.Size = New System.Drawing.Size(177, 13)
|
||||
Me.Label67.TabIndex = 154
|
||||
Me.Label67.Text = "MIC Nachrichtenverarbeitung:"
|
||||
'
|
||||
'll_MIC_Einarbeitung_TEST
|
||||
'
|
||||
Me.ll_MIC_Einarbeitung_TEST.AutoSize = True
|
||||
Me.ll_MIC_Einarbeitung_TEST.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
|
||||
Me.ll_MIC_Einarbeitung_TEST.Location = New System.Drawing.Point(284, 323)
|
||||
Me.ll_MIC_Einarbeitung_TEST.Name = "ll_MIC_Einarbeitung_TEST"
|
||||
Me.ll_MIC_Einarbeitung_TEST.Size = New System.Drawing.Size(177, 13)
|
||||
Me.ll_MIC_Einarbeitung_TEST.TabIndex = 155
|
||||
Me.ll_MIC_Einarbeitung_TEST.TabStop = True
|
||||
Me.ll_MIC_Einarbeitung_TEST.Text = "Eingangsnachrichten abrufen TEST"
|
||||
'
|
||||
'll_MIC_Einarbeitung_PROD
|
||||
'
|
||||
Me.ll_MIC_Einarbeitung_PROD.AutoSize = True
|
||||
Me.ll_MIC_Einarbeitung_PROD.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
|
||||
Me.ll_MIC_Einarbeitung_PROD.Location = New System.Drawing.Point(284, 348)
|
||||
Me.ll_MIC_Einarbeitung_PROD.Name = "ll_MIC_Einarbeitung_PROD"
|
||||
Me.ll_MIC_Einarbeitung_PROD.Size = New System.Drawing.Size(180, 13)
|
||||
Me.ll_MIC_Einarbeitung_PROD.TabIndex = 156
|
||||
Me.ll_MIC_Einarbeitung_PROD.TabStop = True
|
||||
Me.ll_MIC_Einarbeitung_PROD.Text = "Eingangsnachrichten abrufen PROD"
|
||||
Me.Button36.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button36.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
|
||||
Me.Button36.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
Me.Button36.Location = New System.Drawing.Point(1118, 253)
|
||||
Me.Button36.Name = "Button36"
|
||||
Me.Button36.Size = New System.Drawing.Size(103, 40)
|
||||
Me.Button36.TabIndex = 153
|
||||
Me.Button36.Text = "QS-Mitarbeiter in SPED-BUCH"
|
||||
Me.Button36.UseVisualStyleBackColor = True
|
||||
'
|
||||
'frmStartOptions
|
||||
'
|
||||
@@ -6068,4 +6084,5 @@ Partial Class frmStartOptions
|
||||
Friend WithEvents ll_MIC_Einarbeitung_TEST As LinkLabel
|
||||
Friend WithEvents ll_MIC_Einarbeitung_PROD As LinkLabel
|
||||
Friend WithEvents Label67 As Label
|
||||
Friend WithEvents Button36 As Button
|
||||
End Class
|
||||
|
||||
@@ -236,6 +236,102 @@
|
||||
+z1oZ9B6syqzaGEdYX5mdmYqt4qgQDVINcVjocfByBORr63brCulbaW10NVQHYibiNsHbQ+6L24q7oAu
|
||||
RxPAxs8mJG4iDmp1USehIAMuLi4GeXl5NlNTU347OzsRe3t7UWRsZ2cnbG5uzicrK8vKxcVFXOmCD0hK
|
||||
SjJ6enoK1NXVqU6aNMlg2rRpxsh48uTJus3NzYqurq68EhISJGd6ADkzAttxL7feAAAAAElFTkSuQmCC
|
||||
</value>
|
||||
</data>
|
||||
<data name="PictureBox12.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABGdJREFUSEtj
|
||||
YKAyYOFk4Za0knSzzrXOd8x2jJeUlGRgZ2dHV0YFwMjAKKInomlUYJRl32e/wn+Z/0Gf2T4L9eP1rQRV
|
||||
BQWZ2JnQdVAGBNQEFI2KjHLCj4Qfjz0f+zX+Uvz/iKMR9z2XeU7USdNxENYVFmZkYWRE10c2sGqyKgg/
|
||||
FH4s7mLcPxAGWQhjR5+Pnm5Wa+bAxs/Ggq6PbODQ77Aw5mzMO5BF6DjuYtzDoB1BU5ynO9uh6yMZcIpy
|
||||
Sin5KsX5rva9gMWiP3EX4354LPDYb9VkVWpSZmKIrp8kwMrDyifnLBcUtCPoYfSp6G9oln2PPh39InRf
|
||||
6EXVYNUYLjEuCXT9JAMFT4UI5+nO22POxPyMuxD3F83CK/4b/CdoJ2hb8CnwiTIyM5Iff8yczNxSVlJu
|
||||
Nm02i8P2h72EJRKwRRfifsScibnts9Kn0yjfyIZfkZ+bhZOFGd0MkgC7ALuIXppeDXq8xZ6L/Rl+MPyR
|
||||
2xy3iXpperai+qLUyfG4LIw8GvnGY57HVnFDcTk2bjZ0beQBHikeeWV/5QTvpd4nI49FfoRZFnM+5rdd
|
||||
j91KEV0REzY+Ng5GZgJ5nJmDmZtPgU9dwUPBUsZeRoNLgosNXRO7ILsIOKFMdd4adTzqE7Lv/Pf6b9JM
|
||||
1wxB0YALgFIQrxyvmlacVrHfer/prnNccxW9FWXZBdhZGZCKQEENQUOzKrMpaKnxR9zFuOeWMyy9JDwl
|
||||
WJHNxQk4xTilVAJVkkP2hjyLPhP9NvJE5C7PJZ7J4ibikqw8rPDkjMPCazEXYorkveWVWHiISPnMHMxc
|
||||
qsGqKe7z3Q+Cy75LcSBDXkQcjdjuMMEhStJKUo6JlYmVlZdVQD9Lv8F3je9FeKq8EHvZf5N/j26Grg6P
|
||||
LA8PutlYgYKbQqjzVOdtyK6GuvxD7IXYlea15v5ixmISXBJcsm5z3PZC5X7FXYx7Grg9cKpZlZkzuxA7
|
||||
GxMrE4FUAgXIpTuahWDxmPMx011mudiiWQhyzBKzSjMvQQ1BXnQz8QJpG2lPZX/lKMs6y464i3H34y/F
|
||||
g+syJIsfhh8KPw6yLPxQ+GuQWOSRyNc27Tbd0rbSZizcZJQibHxsvBImEsamFaaVrjNdNwXvDH6A7mMY
|
||||
BlnqNtttj5yrXDAosaGbRTKQdZYNsOu2WxZ9MvpD3IW43/GX4hHl5MW4n75rfI/pZ+kXsouwC6HrJQuw
|
||||
cLPwKngqeLvPc18adTLqRfyl+F9IFt73We0zQTdd14BdkIotI25JbgkZBxkHtVC1JLc5brtjz8f+jL0Q
|
||||
+z1oZ9B6syqzaGEdYX5mdmYqt4qgQDVINcVjocfByBORr63brCulbaW10NVQHYibiNsHbQ+6L24q7oAu
|
||||
RxPAxs8mJG4iDmp1USehIAMuLi4GeXl5NlNTU347OzsRe3t7UWRsZ2cnbG5uzicrK8vKxcVFXOmCD0hK
|
||||
SjJ6enoK1NXVqU6aNMlg2rRpxsh48uTJus3NzYqurq68EhISJGd6ADkzAttxL7feAAAAAElFTkSuQmCC
|
||||
</value>
|
||||
</data>
|
||||
<data name="PictureBox11.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABGdJREFUSEtj
|
||||
YKAyYOFk4Za0knSzzrXOd8x2jJeUlGRgZ2dHV0YFwMjAKKInomlUYJRl32e/wn+Z/0Gf2T4L9eP1rQRV
|
||||
BQWZ2JnQdVAGBNQEFI2KjHLCj4Qfjz0f+zX+Uvz/iKMR9z2XeU7USdNxENYVFmZkYWRE10c2sGqyKgg/
|
||||
FH4s7mLcPxAGWQhjR5+Pnm5Wa+bAxs/Ggq6PbODQ77Aw5mzMO5BF6DjuYtzDoB1BU5ynO9uh6yMZcIpy
|
||||
Sin5KsX5rva9gMWiP3EX4354LPDYb9VkVWpSZmKIrp8kwMrDyifnLBcUtCPoYfSp6G9oln2PPh39InRf
|
||||
6EXVYNUYLjEuCXT9JAMFT4UI5+nO22POxPyMuxD3F83CK/4b/CdoJ2hb8CnwiTIyM5Iff8yczNxSVlJu
|
||||
Nm02i8P2h72EJRKwRRfifsScibnts9Kn0yjfyIZfkZ+bhZOFGd0MkgC7ALuIXppeDXq8xZ6L/Rl+MPyR
|
||||
2xy3iXpperai+qLUyfG4LIw8GvnGY57HVnFDcTk2bjZ0beQBHikeeWV/5QTvpd4nI49FfoRZFnM+5rdd
|
||||
j91KEV0REzY+Ng5GZgJ5nJmDmZtPgU9dwUPBUsZeRoNLgosNXRO7ILsIOKFMdd4adTzqE7Lv/Pf6b9JM
|
||||
1wxB0YALgFIQrxyvmlacVrHfer/prnNccxW9FWXZBdhZGZCKQEENQUOzKrMpaKnxR9zFuOeWMyy9JDwl
|
||||
WJHNxQk4xTilVAJVkkP2hjyLPhP9NvJE5C7PJZ7J4ibikqw8rPDkjMPCazEXYorkveWVWHiISPnMHMxc
|
||||
qsGqKe7z3Q+Cy75LcSBDXkQcjdjuMMEhStJKUo6JlYmVlZdVQD9Lv8F3je9FeKq8EHvZf5N/j26Grg6P
|
||||
LA8PutlYgYKbQqjzVOdtyK6GuvxD7IXYlea15v5ixmISXBJcsm5z3PZC5X7FXYx7Grg9cKpZlZkzuxA7
|
||||
GxMrE4FUAgXIpTuahWDxmPMx011mudiiWQhyzBKzSjMvQQ1BXnQz8QJpG2lPZX/lKMs6y464i3H34y/F
|
||||
g+syJIsfhh8KPw6yLPxQ+GuQWOSRyNc27Tbd0rbSZizcZJQibHxsvBImEsamFaaVrjNdNwXvDH6A7mMY
|
||||
BlnqNtttj5yrXDAosaGbRTKQdZYNsOu2WxZ9MvpD3IW43/GX4hHl5MW4n75rfI/pZ+kXsouwC6HrJQuw
|
||||
cLPwKngqeLvPc18adTLqRfyl+F9IFt73We0zQTdd14BdkIotI25JbgkZBxkHtVC1JLc5brtjz8f+jL0Q
|
||||
+z1oZ9B6syqzaGEdYX5mdmYqt4qgQDVINcVjocfByBORr63brCulbaW10NVQHYibiNsHbQ+6L24q7oAu
|
||||
RxPAxs8mJG4iDmp1USehIAMuLi4GeXl5NlNTU347OzsRe3t7UWRsZ2cnbG5uzicrK8vKxcVFXOmCD0hK
|
||||
SjJ6enoK1NXVqU6aNMlg2rRpxsh48uTJus3NzYqurq68EhISJGd6ADkzAttxL7feAAAAAElFTkSuQmCC
|
||||
</value>
|
||||
</data>
|
||||
<data name="PictureBox10.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABGdJREFUSEtj
|
||||
YKAyYOFk4Za0knSzzrXOd8x2jJeUlGRgZ2dHV0YFwMjAKKInomlUYJRl32e/wn+Z/0Gf2T4L9eP1rQRV
|
||||
BQWZ2JnQdVAGBNQEFI2KjHLCj4Qfjz0f+zX+Uvz/iKMR9z2XeU7USdNxENYVFmZkYWRE10c2sGqyKgg/
|
||||
FH4s7mLcPxAGWQhjR5+Pnm5Wa+bAxs/Ggq6PbODQ77Aw5mzMO5BF6DjuYtzDoB1BU5ynO9uh6yMZcIpy
|
||||
Sin5KsX5rva9gMWiP3EX4354LPDYb9VkVWpSZmKIrp8kwMrDyifnLBcUtCPoYfSp6G9oln2PPh39InRf
|
||||
6EXVYNUYLjEuCXT9JAMFT4UI5+nO22POxPyMuxD3F83CK/4b/CdoJ2hb8CnwiTIyM5Iff8yczNxSVlJu
|
||||
Nm02i8P2h72EJRKwRRfifsScibnts9Kn0yjfyIZfkZ+bhZOFGd0MkgC7ALuIXppeDXq8xZ6L/Rl+MPyR
|
||||
2xy3iXpperai+qLUyfG4LIw8GvnGY57HVnFDcTk2bjZ0beQBHikeeWV/5QTvpd4nI49FfoRZFnM+5rdd
|
||||
j91KEV0REzY+Ng5GZgJ5nJmDmZtPgU9dwUPBUsZeRoNLgosNXRO7ILsIOKFMdd4adTzqE7Lv/Pf6b9JM
|
||||
1wxB0YALgFIQrxyvmlacVrHfer/prnNccxW9FWXZBdhZGZCKQEENQUOzKrMpaKnxR9zFuOeWMyy9JDwl
|
||||
WJHNxQk4xTilVAJVkkP2hjyLPhP9NvJE5C7PJZ7J4ibikqw8rPDkjMPCazEXYorkveWVWHiISPnMHMxc
|
||||
qsGqKe7z3Q+Cy75LcSBDXkQcjdjuMMEhStJKUo6JlYmVlZdVQD9Lv8F3je9FeKq8EHvZf5N/j26Grg6P
|
||||
LA8PutlYgYKbQqjzVOdtyK6GuvxD7IXYlea15v5ixmISXBJcsm5z3PZC5X7FXYx7Grg9cKpZlZkzuxA7
|
||||
GxMrE4FUAgXIpTuahWDxmPMx011mudiiWQhyzBKzSjMvQQ1BXnQz8QJpG2lPZX/lKMs6y464i3H34y/F
|
||||
g+syJIsfhh8KPw6yLPxQ+GuQWOSRyNc27Tbd0rbSZizcZJQibHxsvBImEsamFaaVrjNdNwXvDH6A7mMY
|
||||
BlnqNtttj5yrXDAosaGbRTKQdZYNsOu2WxZ9MvpD3IW43/GX4hHl5MW4n75rfI/pZ+kXsouwC6HrJQuw
|
||||
cLPwKngqeLvPc18adTLqRfyl+F9IFt73We0zQTdd14BdkIotI25JbgkZBxkHtVC1JLc5brtjz8f+jL0Q
|
||||
+z1oZ9B6syqzaGEdYX5mdmYqt4qgQDVINcVjocfByBORr63brCulbaW10NVQHYibiNsHbQ+6L24q7oAu
|
||||
RxPAxs8mJG4iDmp1USehIAMuLi4GeXl5NlNTU347OzsRe3t7UWRsZ2cnbG5uzicrK8vKxcVFXOmCD0hK
|
||||
SjJ6enoK1NXVqU6aNMlg2rRpxsh48uTJus3NzYqurq68EhISJGd6ADkzAttxL7feAAAAAElFTkSuQmCC
|
||||
</value>
|
||||
</data>
|
||||
<data name="PictureBox9.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABGdJREFUSEtj
|
||||
YKAyYOFk4Za0knSzzrXOd8x2jJeUlGRgZ2dHV0YFwMjAKKInomlUYJRl32e/wn+Z/0Gf2T4L9eP1rQRV
|
||||
BQWZ2JnQdVAGBNQEFI2KjHLCj4Qfjz0f+zX+Uvz/iKMR9z2XeU7USdNxENYVFmZkYWRE10c2sGqyKgg/
|
||||
FH4s7mLcPxAGWQhjR5+Pnm5Wa+bAxs/Ggq6PbODQ77Aw5mzMO5BF6DjuYtzDoB1BU5ynO9uh6yMZcIpy
|
||||
Sin5KsX5rva9gMWiP3EX4354LPDYb9VkVWpSZmKIrp8kwMrDyifnLBcUtCPoYfSp6G9oln2PPh39InRf
|
||||
6EXVYNUYLjEuCXT9JAMFT4UI5+nO22POxPyMuxD3F83CK/4b/CdoJ2hb8CnwiTIyM5Iff8yczNxSVlJu
|
||||
Nm02i8P2h72EJRKwRRfifsScibnts9Kn0yjfyIZfkZ+bhZOFGd0MkgC7ALuIXppeDXq8xZ6L/Rl+MPyR
|
||||
2xy3iXpperai+qLUyfG4LIw8GvnGY57HVnFDcTk2bjZ0beQBHikeeWV/5QTvpd4nI49FfoRZFnM+5rdd
|
||||
j91KEV0REzY+Ng5GZgJ5nJmDmZtPgU9dwUPBUsZeRoNLgosNXRO7ILsIOKFMdd4adTzqE7Lv/Pf6b9JM
|
||||
1wxB0YALgFIQrxyvmlacVrHfer/prnNccxW9FWXZBdhZGZCKQEENQUOzKrMpaKnxR9zFuOeWMyy9JDwl
|
||||
WJHNxQk4xTilVAJVkkP2hjyLPhP9NvJE5C7PJZ7J4ibikqw8rPDkjMPCazEXYorkveWVWHiISPnMHMxc
|
||||
qsGqKe7z3Q+Cy75LcSBDXkQcjdjuMMEhStJKUo6JlYmVlZdVQD9Lv8F3je9FeKq8EHvZf5N/j26Grg6P
|
||||
LA8PutlYgYKbQqjzVOdtyK6GuvxD7IXYlea15v5ixmISXBJcsm5z3PZC5X7FXYx7Grg9cKpZlZkzuxA7
|
||||
GxMrE4FUAgXIpTuahWDxmPMx011mudiiWQhyzBKzSjMvQQ1BXnQz8QJpG2lPZX/lKMs6y464i3H34y/F
|
||||
g+syJIsfhh8KPw6yLPxQ+GuQWOSRyNc27Tbd0rbSZizcZJQibHxsvBImEsamFaaVrjNdNwXvDH6A7mMY
|
||||
BlnqNtttj5yrXDAosaGbRTKQdZYNsOu2WxZ9MvpD3IW43/GX4hHl5MW4n75rfI/pZ+kXsouwC6HrJQuw
|
||||
cLPwKngqeLvPc18adTLqRfyl+F9IFt73We0zQTdd14BdkIotI25JbgkZBxkHtVC1JLc5brtjz8f+jL0Q
|
||||
+z1oZ9B6syqzaGEdYX5mdmYqt4qgQDVINcVjocfByBORr63brCulbaW10NVQHYibiNsHbQ+6L24q7oAu
|
||||
RxPAxs8mJG4iDmp1USehIAMuLi4GeXl5NlNTU347OzsRe3t7UWRsZ2cnbG5uzicrK8vKxcVFXOmCD0hK
|
||||
SjJ6enoK1NXVqU6aNMlg2rRpxsh48uTJus3NzYqurq68EhISJGd6ADkzAttxL7feAAAAAElFTkSuQmCC
|
||||
</value>
|
||||
</data>
|
||||
<data name="PictureBox26.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
@@ -596,102 +692,6 @@
|
||||
+z1oZ9B6syqzaGEdYX5mdmYqt4qgQDVINcVjocfByBORr63brCulbaW10NVQHYibiNsHbQ+6L24q7oAu
|
||||
RxPAxs8mJG4iDmp1USehIAMuLi4GeXl5NlNTU347OzsRe3t7UWRsZ2cnbG5uzicrK8vKxcVFXOmCD0hK
|
||||
SjJ6enoK1NXVqU6aNMlg2rRpxsh48uTJus3NzYqurq68EhISJGd6ADkzAttxL7feAAAAAElFTkSuQmCC
|
||||
</value>
|
||||
</data>
|
||||
<data name="PictureBox12.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABGdJREFUSEtj
|
||||
YKAyYOFk4Za0knSzzrXOd8x2jJeUlGRgZ2dHV0YFwMjAKKInomlUYJRl32e/wn+Z/0Gf2T4L9eP1rQRV
|
||||
BQWZ2JnQdVAGBNQEFI2KjHLCj4Qfjz0f+zX+Uvz/iKMR9z2XeU7USdNxENYVFmZkYWRE10c2sGqyKgg/
|
||||
FH4s7mLcPxAGWQhjR5+Pnm5Wa+bAxs/Ggq6PbODQ77Aw5mzMO5BF6DjuYtzDoB1BU5ynO9uh6yMZcIpy
|
||||
Sin5KsX5rva9gMWiP3EX4354LPDYb9VkVWpSZmKIrp8kwMrDyifnLBcUtCPoYfSp6G9oln2PPh39InRf
|
||||
6EXVYNUYLjEuCXT9JAMFT4UI5+nO22POxPyMuxD3F83CK/4b/CdoJ2hb8CnwiTIyM5Iff8yczNxSVlJu
|
||||
Nm02i8P2h72EJRKwRRfifsScibnts9Kn0yjfyIZfkZ+bhZOFGd0MkgC7ALuIXppeDXq8xZ6L/Rl+MPyR
|
||||
2xy3iXpperai+qLUyfG4LIw8GvnGY57HVnFDcTk2bjZ0beQBHikeeWV/5QTvpd4nI49FfoRZFnM+5rdd
|
||||
j91KEV0REzY+Ng5GZgJ5nJmDmZtPgU9dwUPBUsZeRoNLgosNXRO7ILsIOKFMdd4adTzqE7Lv/Pf6b9JM
|
||||
1wxB0YALgFIQrxyvmlacVrHfer/prnNccxW9FWXZBdhZGZCKQEENQUOzKrMpaKnxR9zFuOeWMyy9JDwl
|
||||
WJHNxQk4xTilVAJVkkP2hjyLPhP9NvJE5C7PJZ7J4ibikqw8rPDkjMPCazEXYorkveWVWHiISPnMHMxc
|
||||
qsGqKe7z3Q+Cy75LcSBDXkQcjdjuMMEhStJKUo6JlYmVlZdVQD9Lv8F3je9FeKq8EHvZf5N/j26Grg6P
|
||||
LA8PutlYgYKbQqjzVOdtyK6GuvxD7IXYlea15v5ixmISXBJcsm5z3PZC5X7FXYx7Grg9cKpZlZkzuxA7
|
||||
GxMrE4FUAgXIpTuahWDxmPMx011mudiiWQhyzBKzSjMvQQ1BXnQz8QJpG2lPZX/lKMs6y464i3H34y/F
|
||||
g+syJIsfhh8KPw6yLPxQ+GuQWOSRyNc27Tbd0rbSZizcZJQibHxsvBImEsamFaaVrjNdNwXvDH6A7mMY
|
||||
BlnqNtttj5yrXDAosaGbRTKQdZYNsOu2WxZ9MvpD3IW43/GX4hHl5MW4n75rfI/pZ+kXsouwC6HrJQuw
|
||||
cLPwKngqeLvPc18adTLqRfyl+F9IFt73We0zQTdd14BdkIotI25JbgkZBxkHtVC1JLc5brtjz8f+jL0Q
|
||||
+z1oZ9B6syqzaGEdYX5mdmYqt4qgQDVINcVjocfByBORr63brCulbaW10NVQHYibiNsHbQ+6L24q7oAu
|
||||
RxPAxs8mJG4iDmp1USehIAMuLi4GeXl5NlNTU347OzsRe3t7UWRsZ2cnbG5uzicrK8vKxcVFXOmCD0hK
|
||||
SjJ6enoK1NXVqU6aNMlg2rRpxsh48uTJus3NzYqurq68EhISJGd6ADkzAttxL7feAAAAAElFTkSuQmCC
|
||||
</value>
|
||||
</data>
|
||||
<data name="PictureBox11.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABGdJREFUSEtj
|
||||
YKAyYOFk4Za0knSzzrXOd8x2jJeUlGRgZ2dHV0YFwMjAKKInomlUYJRl32e/wn+Z/0Gf2T4L9eP1rQRV
|
||||
BQWZ2JnQdVAGBNQEFI2KjHLCj4Qfjz0f+zX+Uvz/iKMR9z2XeU7USdNxENYVFmZkYWRE10c2sGqyKgg/
|
||||
FH4s7mLcPxAGWQhjR5+Pnm5Wa+bAxs/Ggq6PbODQ77Aw5mzMO5BF6DjuYtzDoB1BU5ynO9uh6yMZcIpy
|
||||
Sin5KsX5rva9gMWiP3EX4354LPDYb9VkVWpSZmKIrp8kwMrDyifnLBcUtCPoYfSp6G9oln2PPh39InRf
|
||||
6EXVYNUYLjEuCXT9JAMFT4UI5+nO22POxPyMuxD3F83CK/4b/CdoJ2hb8CnwiTIyM5Iff8yczNxSVlJu
|
||||
Nm02i8P2h72EJRKwRRfifsScibnts9Kn0yjfyIZfkZ+bhZOFGd0MkgC7ALuIXppeDXq8xZ6L/Rl+MPyR
|
||||
2xy3iXpperai+qLUyfG4LIw8GvnGY57HVnFDcTk2bjZ0beQBHikeeWV/5QTvpd4nI49FfoRZFnM+5rdd
|
||||
j91KEV0REzY+Ng5GZgJ5nJmDmZtPgU9dwUPBUsZeRoNLgosNXRO7ILsIOKFMdd4adTzqE7Lv/Pf6b9JM
|
||||
1wxB0YALgFIQrxyvmlacVrHfer/prnNccxW9FWXZBdhZGZCKQEENQUOzKrMpaKnxR9zFuOeWMyy9JDwl
|
||||
WJHNxQk4xTilVAJVkkP2hjyLPhP9NvJE5C7PJZ7J4ibikqw8rPDkjMPCazEXYorkveWVWHiISPnMHMxc
|
||||
qsGqKe7z3Q+Cy75LcSBDXkQcjdjuMMEhStJKUo6JlYmVlZdVQD9Lv8F3je9FeKq8EHvZf5N/j26Grg6P
|
||||
LA8PutlYgYKbQqjzVOdtyK6GuvxD7IXYlea15v5ixmISXBJcsm5z3PZC5X7FXYx7Grg9cKpZlZkzuxA7
|
||||
GxMrE4FUAgXIpTuahWDxmPMx011mudiiWQhyzBKzSjMvQQ1BXnQz8QJpG2lPZX/lKMs6y464i3H34y/F
|
||||
g+syJIsfhh8KPw6yLPxQ+GuQWOSRyNc27Tbd0rbSZizcZJQibHxsvBImEsamFaaVrjNdNwXvDH6A7mMY
|
||||
BlnqNtttj5yrXDAosaGbRTKQdZYNsOu2WxZ9MvpD3IW43/GX4hHl5MW4n75rfI/pZ+kXsouwC6HrJQuw
|
||||
cLPwKngqeLvPc18adTLqRfyl+F9IFt73We0zQTdd14BdkIotI25JbgkZBxkHtVC1JLc5brtjz8f+jL0Q
|
||||
+z1oZ9B6syqzaGEdYX5mdmYqt4qgQDVINcVjocfByBORr63brCulbaW10NVQHYibiNsHbQ+6L24q7oAu
|
||||
RxPAxs8mJG4iDmp1USehIAMuLi4GeXl5NlNTU347OzsRe3t7UWRsZ2cnbG5uzicrK8vKxcVFXOmCD0hK
|
||||
SjJ6enoK1NXVqU6aNMlg2rRpxsh48uTJus3NzYqurq68EhISJGd6ADkzAttxL7feAAAAAElFTkSuQmCC
|
||||
</value>
|
||||
</data>
|
||||
<data name="PictureBox10.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABGdJREFUSEtj
|
||||
YKAyYOFk4Za0knSzzrXOd8x2jJeUlGRgZ2dHV0YFwMjAKKInomlUYJRl32e/wn+Z/0Gf2T4L9eP1rQRV
|
||||
BQWZ2JnQdVAGBNQEFI2KjHLCj4Qfjz0f+zX+Uvz/iKMR9z2XeU7USdNxENYVFmZkYWRE10c2sGqyKgg/
|
||||
FH4s7mLcPxAGWQhjR5+Pnm5Wa+bAxs/Ggq6PbODQ77Aw5mzMO5BF6DjuYtzDoB1BU5ynO9uh6yMZcIpy
|
||||
Sin5KsX5rva9gMWiP3EX4354LPDYb9VkVWpSZmKIrp8kwMrDyifnLBcUtCPoYfSp6G9oln2PPh39InRf
|
||||
6EXVYNUYLjEuCXT9JAMFT4UI5+nO22POxPyMuxD3F83CK/4b/CdoJ2hb8CnwiTIyM5Iff8yczNxSVlJu
|
||||
Nm02i8P2h72EJRKwRRfifsScibnts9Kn0yjfyIZfkZ+bhZOFGd0MkgC7ALuIXppeDXq8xZ6L/Rl+MPyR
|
||||
2xy3iXpperai+qLUyfG4LIw8GvnGY57HVnFDcTk2bjZ0beQBHikeeWV/5QTvpd4nI49FfoRZFnM+5rdd
|
||||
j91KEV0REzY+Ng5GZgJ5nJmDmZtPgU9dwUPBUsZeRoNLgosNXRO7ILsIOKFMdd4adTzqE7Lv/Pf6b9JM
|
||||
1wxB0YALgFIQrxyvmlacVrHfer/prnNccxW9FWXZBdhZGZCKQEENQUOzKrMpaKnxR9zFuOeWMyy9JDwl
|
||||
WJHNxQk4xTilVAJVkkP2hjyLPhP9NvJE5C7PJZ7J4ibikqw8rPDkjMPCazEXYorkveWVWHiISPnMHMxc
|
||||
qsGqKe7z3Q+Cy75LcSBDXkQcjdjuMMEhStJKUo6JlYmVlZdVQD9Lv8F3je9FeKq8EHvZf5N/j26Grg6P
|
||||
LA8PutlYgYKbQqjzVOdtyK6GuvxD7IXYlea15v5ixmISXBJcsm5z3PZC5X7FXYx7Grg9cKpZlZkzuxA7
|
||||
GxMrE4FUAgXIpTuahWDxmPMx011mudiiWQhyzBKzSjMvQQ1BXnQz8QJpG2lPZX/lKMs6y464i3H34y/F
|
||||
g+syJIsfhh8KPw6yLPxQ+GuQWOSRyNc27Tbd0rbSZizcZJQibHxsvBImEsamFaaVrjNdNwXvDH6A7mMY
|
||||
BlnqNtttj5yrXDAosaGbRTKQdZYNsOu2WxZ9MvpD3IW43/GX4hHl5MW4n75rfI/pZ+kXsouwC6HrJQuw
|
||||
cLPwKngqeLvPc18adTLqRfyl+F9IFt73We0zQTdd14BdkIotI25JbgkZBxkHtVC1JLc5brtjz8f+jL0Q
|
||||
+z1oZ9B6syqzaGEdYX5mdmYqt4qgQDVINcVjocfByBORr63brCulbaW10NVQHYibiNsHbQ+6L24q7oAu
|
||||
RxPAxs8mJG4iDmp1USehIAMuLi4GeXl5NlNTU347OzsRe3t7UWRsZ2cnbG5uzicrK8vKxcVFXOmCD0hK
|
||||
SjJ6enoK1NXVqU6aNMlg2rRpxsh48uTJus3NzYqurq68EhISJGd6ADkzAttxL7feAAAAAElFTkSuQmCC
|
||||
</value>
|
||||
</data>
|
||||
<data name="PictureBox9.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABGdJREFUSEtj
|
||||
YKAyYOFk4Za0knSzzrXOd8x2jJeUlGRgZ2dHV0YFwMjAKKInomlUYJRl32e/wn+Z/0Gf2T4L9eP1rQRV
|
||||
BQWZ2JnQdVAGBNQEFI2KjHLCj4Qfjz0f+zX+Uvz/iKMR9z2XeU7USdNxENYVFmZkYWRE10c2sGqyKgg/
|
||||
FH4s7mLcPxAGWQhjR5+Pnm5Wa+bAxs/Ggq6PbODQ77Aw5mzMO5BF6DjuYtzDoB1BU5ynO9uh6yMZcIpy
|
||||
Sin5KsX5rva9gMWiP3EX4354LPDYb9VkVWpSZmKIrp8kwMrDyifnLBcUtCPoYfSp6G9oln2PPh39InRf
|
||||
6EXVYNUYLjEuCXT9JAMFT4UI5+nO22POxPyMuxD3F83CK/4b/CdoJ2hb8CnwiTIyM5Iff8yczNxSVlJu
|
||||
Nm02i8P2h72EJRKwRRfifsScibnts9Kn0yjfyIZfkZ+bhZOFGd0MkgC7ALuIXppeDXq8xZ6L/Rl+MPyR
|
||||
2xy3iXpperai+qLUyfG4LIw8GvnGY57HVnFDcTk2bjZ0beQBHikeeWV/5QTvpd4nI49FfoRZFnM+5rdd
|
||||
j91KEV0REzY+Ng5GZgJ5nJmDmZtPgU9dwUPBUsZeRoNLgosNXRO7ILsIOKFMdd4adTzqE7Lv/Pf6b9JM
|
||||
1wxB0YALgFIQrxyvmlacVrHfer/prnNccxW9FWXZBdhZGZCKQEENQUOzKrMpaKnxR9zFuOeWMyy9JDwl
|
||||
WJHNxQk4xTilVAJVkkP2hjyLPhP9NvJE5C7PJZ7J4ibikqw8rPDkjMPCazEXYorkveWVWHiISPnMHMxc
|
||||
qsGqKe7z3Q+Cy75LcSBDXkQcjdjuMMEhStJKUo6JlYmVlZdVQD9Lv8F3je9FeKq8EHvZf5N/j26Grg6P
|
||||
LA8PutlYgYKbQqjzVOdtyK6GuvxD7IXYlea15v5ixmISXBJcsm5z3PZC5X7FXYx7Grg9cKpZlZkzuxA7
|
||||
GxMrE4FUAgXIpTuahWDxmPMx011mudiiWQhyzBKzSjMvQQ1BXnQz8QJpG2lPZX/lKMs6y464i3H34y/F
|
||||
g+syJIsfhh8KPw6yLPxQ+GuQWOSRyNc27Tbd0rbSZizcZJQibHxsvBImEsamFaaVrjNdNwXvDH6A7mMY
|
||||
BlnqNtttj5yrXDAosaGbRTKQdZYNsOu2WxZ9MvpD3IW43/GX4hHl5MW4n75rfI/pZ+kXsouwC6HrJQuw
|
||||
cLPwKngqeLvPc18adTLqRfyl+F9IFt73We0zQTdd14BdkIotI25JbgkZBxkHtVC1JLc5brtjz8f+jL0Q
|
||||
+z1oZ9B6syqzaGEdYX5mdmYqt4qgQDVINcVjocfByBORr63brCulbaW10NVQHYibiNsHbQ+6L24q7oAu
|
||||
RxPAxs8mJG4iDmp1USehIAMuLi4GeXl5NlNTU347OzsRe3t7UWRsZ2cnbG5uzicrK8vKxcVFXOmCD0hK
|
||||
SjJ6enoK1NXVqU6aNMlg2rRpxsh48uTJus3NzYqurq68EhISJGd6ADkzAttxL7feAAAAAElFTkSuQmCC
|
||||
</value>
|
||||
</data>
|
||||
<data name="PictureBox15.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
|
||||
@@ -6,6 +6,7 @@ Imports System.Security.Cryptography.X509Certificates
|
||||
Imports System.Text
|
||||
Imports System.Threading
|
||||
Imports System.Xml
|
||||
Imports com.sun.xml.internal.rngom.digested
|
||||
Imports iTextSharp.text
|
||||
Imports javax
|
||||
Imports MDM_Worker
|
||||
@@ -8203,12 +8204,13 @@ repeatRequest:
|
||||
'aktuell verwendet Verag360 kein Zugferd und Sammelrechnung 6 geht aktuell noch nicht - 29.04.2026 Start der neuen Funktion!
|
||||
|
||||
Dim DateString = "and CONVERT(DATE, GETDATE())"
|
||||
|
||||
Dim top As String = ""
|
||||
If InvoicesUntilYesterday Then
|
||||
top = " top(1000) "
|
||||
DateString = "CONVERT(DATE, DATEADD(DAY, -1, GETDATE()))"
|
||||
End If
|
||||
|
||||
Dim dt As DataTable = SQL.loadDgvBySql("SELECT RK_ID, dsId, Firma_ID, RechnungsNr FROM [Rechnungsausgang] where [zugferdcheck_daid] is null and [zugferdcheck_datetime] is null and dsId is not null and cast(RechnungsDatum as Date) between '29.04.2026' and " & DateString & " and Sammelrechnung <> 6 and Firma_ID <> 19 ", "FMZOLL", 100, False)
|
||||
Dim dt As DataTable = SQL.loadDgvBySql("SELECT " & top & " RK_ID, dsId, Firma_ID, RechnungsNr FROM [Rechnungsausgang] where [zugferdcheck_daid] is null and [zugferdcheck_datetime] is null and dsId is not null and cast(RechnungsDatum as Date) between '29.04.2026' and " & DateString & " and Sammelrechnung <> 6 and Firma_ID <> 19 order by ReErfZeitstempel desc", "FMZOLL", 100, False)
|
||||
|
||||
Dim sumTotal_IMEX As Integer = 0
|
||||
Dim sumTotal_VERAG As Integer = 0
|
||||
@@ -8273,12 +8275,21 @@ repeatRequest:
|
||||
|
||||
|
||||
Dim psi As New ProcessStartInfo()
|
||||
|
||||
If Environment.MachineName = "H6CCWP3" Then
|
||||
'Workstation Daniel
|
||||
psi.FileName = "C:\Program Files\Eclipse Adoptium\jre-11.0.32.101-hotspot\bin\java.exe"
|
||||
psi.Arguments = "-jar ""C:\Users\d.breimaier\Downloads\Mustang-CLI-2.21.0.jar"" --no-notices --action validate --source " & Path
|
||||
|
||||
Else
|
||||
psi.FileName = fileName
|
||||
psi.Arguments = arguments & Path
|
||||
End If
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
'Workstation Daniel
|
||||
'psi.FileName = "C:\Program Files\Eclipse Adoptium\jre-11.0.28.6-hotspot\bin\java.exe"
|
||||
'psi.Arguments = "-jar ""C:\Users\d.breimaier\Downloads\Mustang-CLI-2.21.0.jar"" --no-notices --action validate --source " & Path & ""
|
||||
|
||||
psi.RedirectStandardOutput = True
|
||||
psi.RedirectStandardError = True
|
||||
@@ -8392,7 +8403,7 @@ repeatRequest:
|
||||
If dt.Rows.Count > 0 Then
|
||||
|
||||
If Not sendNotificationEmails Then
|
||||
'VERAG_PROG_ALLGEMEIN.cProgramFunctions.genExcelFromDT_NEW(dt,,,,, True,,, True)
|
||||
If Environment.MachineName = "H6CCWP3" Then VERAG_PROG_ALLGEMEIN.cProgramFunctions.genExcelFromDT_NEW(dt,,,,, True,,, True)
|
||||
Else
|
||||
|
||||
|
||||
@@ -8497,7 +8508,7 @@ repeatRequest:
|
||||
|
||||
Private Function createMailTextZugferd(total As Integer, valid As Integer, invalid As Integer, Firma As String) As String
|
||||
|
||||
Dim MailText = "Auflistung der gültigen/ungültigen ZUGFeRD-Prüfungen vom " & Today.AddDays(-1).ToShortDateString & " für " & Firma & " <br><br>"
|
||||
Dim MailText = "Auflistung der gültigen/ungültigen ZUGFeRD-Prüfungen vom " & Today.ToShortDateString & " für " & Firma & " <br><br>"
|
||||
MailText &= "<table border=1>"
|
||||
MailText &= "<tr><td>Gültig</td><td>Ungültig</td><td>Gesamt</td></tr>"
|
||||
MailText &= "<tr>"
|
||||
@@ -9016,5 +9027,57 @@ repeatRequest:
|
||||
Dim f As New frmMICNachrichtenVerarbeitung
|
||||
f.ShowDialog()
|
||||
Me.Visible = True
|
||||
End Sub
|
||||
|
||||
Private Sub Button36_Click(sender As Object, e As EventArgs) Handles Button36.Click
|
||||
|
||||
|
||||
|
||||
Dim input = InputBox("Bitte geben Sie die FilialNr für die zu prüfenden SPED-Einträge an:", "FilialNr angeben")
|
||||
If input <> "" AndAlso IsNumeric(input) AndAlso input.Length = 4 Then
|
||||
|
||||
Else
|
||||
Exit Sub
|
||||
|
||||
End If
|
||||
|
||||
|
||||
Dim sqlString = "SELECT count(*) FROM Speditionsbuch AS sb INNER JOIN [AVISO].dbo.tblSendungen AS s ON s.tblSnd_SendungID = sb.SendungID WHERE sb.PersonalnummerQS IS NULL AND s.tblSnd_QS_MA IS NOT NULL AND YEAR(sb.Abfertigungsdatum) = Year(GETDATE()) AND sb.FilialenNr = " & input
|
||||
|
||||
|
||||
Dim MissingEntries As Integer = CInt((New SQL).getValueTxtBySql(sqlString, "FMZOLL",,, "0"))
|
||||
|
||||
If MissingEntries > 0 Then
|
||||
|
||||
|
||||
If Not vbYes = MsgBox("Aktuell ist in " & MissingEntries & " Speditionsbucheinträgen des aktuellen Jahres der QS-Sachbearbeiter nicht gesetzt." & vbNewLine & "Sollen diese nachträglich vervollständigt werden?", vbYesNoCancel) Then
|
||||
Me.Visible = True
|
||||
Exit Sub
|
||||
|
||||
Else
|
||||
|
||||
Dim SQLStringUpdate = " UPDATE sb SET sb.PersonalnummerQS = s.tblSnd_QS_MA FROM Speditionsbuch AS sb INNER JOIN [AVISO].dbo.tblSendungen AS s ON s.tblSnd_SendungID = sb.SendungID WHERE sb.PersonalnummerQS IS NULL AND s.tblSnd_QS_MA IS NOT NULL AND YEAR(sb.Abfertigungsdatum) = Year(GETDATE()) AND sb.FilialenNr = " & input
|
||||
|
||||
Dim result = (New SQL).doSQL(SQLStringUpdate, "FMZOLL")
|
||||
|
||||
If result Then
|
||||
|
||||
Else
|
||||
|
||||
End If
|
||||
|
||||
|
||||
|
||||
End If
|
||||
|
||||
Else
|
||||
|
||||
MsgBox("keine fehlenden Einträge für FilialenNr " & input & " gefunden")
|
||||
|
||||
End If
|
||||
|
||||
|
||||
|
||||
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
Reference in New Issue
Block a user