From 918386d7eae7e43b57bd8705ec92751330b93927 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Mon, 2 Mar 2026 08:37:12 +0100 Subject: [PATCH 1/6] Datenarchiv, Pose, StartOptions, EZOLL-Einarbeitung, etc. --- DAKOSY_Worker/cZOLL_IMPORT.vb | 130 +- MDM_Worker/cPLOSE_Inv_Data.vb | 2 +- UID/usrCntlDatenarchiv.vb | 6 +- .../frmStartOptions.Designer.vb | 1840 +++++++++-------- initATLASAufschubkonten/frmStartOptions.resx | 195 +- initATLASAufschubkonten/frmStartOptions.vb | 155 +- 6 files changed, 1236 insertions(+), 1092 deletions(-) diff --git a/DAKOSY_Worker/cZOLL_IMPORT.vb b/DAKOSY_Worker/cZOLL_IMPORT.vb index 8f7053d..7cf2360 100644 --- a/DAKOSY_Worker/cZOLL_IMPORT.vb +++ b/DAKOSY_Worker/cZOLL_IMPORT.vb @@ -1,4 +1,5 @@ -Imports com.sun.tools.corba.se +Imports System.Security.Cryptography +Imports com.sun.tools.corba.se Imports VERAG_PROG_ALLGEMEIN Public Class cZOLL_IMPORT Public Aviso As cAviso @@ -63,7 +64,7 @@ Public Class cZOLL_IMPORT Dim AbfertigungsNr = getAbfertigungsnummer(TC.telanm_BezugsNr) Dim FilialenNr = getFilialenNr(TC.telanm_BezugsNr) - + If FilialenNr <> "" AndAlso AbfertigungsNr <> "" AndAlso countSpedbuchEntrysTC(FilialenNr, TC.telanm_BezugsNr, TC.telanm_ART) = 0 AndAlso countSpedbuchEntrys_AbfertigungsNr(FilialenNr, AbfertigungsNr) = 0 Then @@ -350,45 +351,84 @@ Public Class cZOLL_IMPORT If tryFindAviso(LRN, SPEDBUCH.AvisoID, SPEDBUCH.SendungID) Then SPEDBUCH_TMP = SPEDBUCH If filiale <> "" And abfertigungsnummer <> "" Then - If countSpedbuchEntrys(filiale, LRN, art) = 0 Then - SPEDBUCH.FilialenNr = filiale - SPEDBUCH.AbfertigungsNr = abfertigungsnummer - SPEDBUCH.NewUNTER_NR() + If countSpedbuchEntrys(filiale, LRN, art) = 0 Then 'gibts einen SPED mit BezugsNr -> - SPEDBUCH.Abfertigungsanzahl = 1 - SPEDBUCH.Fakturiert = 0 - ' SPEDBUCH.AtlasBezNrEZA = LRN - SPEDBUCH.Zollsystem = "E" - SPEDBUCH.Sachbearbeiter = "AUTO" + If countSpedbuchEntrys(filiale, abfertigungsnummer, "") = 0 Then 'gibts einen SPED mit Filiale-AbfertiungsNr - Dim ZOLL_IMPORT As New cZOLL_IMPORT - Dim notfound = False - Dim posAnzahl = 0 + SPEDBUCH.FilialenNr = filiale + SPEDBUCH.AbfertigungsNr = abfertigungsnummer + SPEDBUCH.NewUNTER_NR() - Select Case art - Case "NCTS" : SPEDBUCH.AtlasBezNrNCTS = LRN - Case "AES" : SPEDBUCH.AtlasBezNrAES = LRN - Case Else : SPEDBUCH.AtlasBezNrEZA = LRN - End Select + SPEDBUCH.Abfertigungsanzahl = 1 + SPEDBUCH.Fakturiert = 0 + ' SPEDBUCH.AtlasBezNrEZA = LRN + SPEDBUCH.Zollsystem = "E" + SPEDBUCH.Sachbearbeiter = "AUTO" - SPEDBUCH = ZOLL_IMPORT.IMPORT(SPEDBUCH, SPEDBUCH.AvisoID, SPEDBUCH.SendungID, "VERA", filialeBez, 1, SPEDBUCH.AtlasBezNrEZA, SPEDBUCH.AtlasBezNrNCTS, notfound, True,, SPEDBUCH.AtlasBezNrAES) + Dim ZOLL_IMPORT As New cZOLL_IMPORT + Dim notfound = False + Dim posAnzahl = 0 - SPEDBUCH_TMP = SPEDBUCH - If notfound Then Return False - ' VERAG_PROG_ALLGEMEIN.cErrorHandler.sendERRORperMail("HEUREKA EZA !!", "" & Me.eza_ObjectName, Now.ToString("yyyy.MM.dd HH:mm"), "al@verag.ag", "") + Select Case art + Case "NCTS" : SPEDBUCH.AtlasBezNrNCTS = LRN + Case "AES" : SPEDBUCH.AtlasBezNrAES = LRN + Case Else : SPEDBUCH.AtlasBezNrEZA = LRN + End Select + + SPEDBUCH = ZOLL_IMPORT.IMPORT(SPEDBUCH, SPEDBUCH.AvisoID, SPEDBUCH.SendungID, "VERA", filialeBez, 1, SPEDBUCH.AtlasBezNrEZA, SPEDBUCH.AtlasBezNrNCTS, notfound, True,, SPEDBUCH.AtlasBezNrAES) + + SPEDBUCH_TMP = SPEDBUCH + If notfound Then Return False + ' VERAG_PROG_ALLGEMEIN.cErrorHandler.sendERRORperMail("HEUREKA EZA !!", "" & Me.eza_ObjectName, Now.ToString("yyyy.MM.dd HH:mm"), "al@verag.ag", "") + + ' MsgBox(SPEDBUCH.FilialenNr & " - " & SPEDBUCH.AbfertigungsNr) + VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = firmaTmp + + If SPEDBUCH.SAVE Then + VERAG_PROG_ALLGEMEIN.cSendungen.SET_SpedbuchEntry(SPEDBUCH.SendungID, True) + Return True + Else + Return False + End If + + + ElseIf art <> "" Then + + Dim SPEDITIONSBUCH_UPDATE As New VERAG_PROG_ALLGEMEIN.cSpeditionsbuch(filiale, abfertigungsnummer, 0) + + If SPEDITIONSBUCH_UPDATE.hasEntry Then + + If SPEDITIONSBUCH_UPDATE.Zollsystem = "" Then + SPEDITIONSBUCH_UPDATE.Zollsystem = "E" + End If + + Select Case art + Case "NCTS" + If SPEDITIONSBUCH_UPDATE.AtlasBezNrNCTS = "" Then + SPEDITIONSBUCH_UPDATE.AtlasBezNrNCTS = LRN + + SPEDITIONSBUCH_UPDATE.SAVE() + End If + + Case "AES" + If SPEDITIONSBUCH_UPDATE.AtlasBezNrAES = "" Then + SPEDITIONSBUCH_UPDATE.AtlasBezNrAES = LRN + SPEDITIONSBUCH_UPDATE.SAVE() + End If + + Case "EZA" + If SPEDITIONSBUCH_UPDATE.AtlasBezNrEZA = "" Then + SPEDITIONSBUCH_UPDATE.AtlasBezNrEZA = LRN + SPEDITIONSBUCH_UPDATE.SAVE() + End If + + End Select + End If - ' MsgBox(SPEDBUCH.FilialenNr & " - " & SPEDBUCH.AbfertigungsNr) - VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = firmaTmp - If SPEDBUCH.SAVE Then - VERAG_PROG_ALLGEMEIN.cSendungen.SET_SpedbuchEntry(SPEDBUCH.SendungID, True) - Return True - Else - Return False End If - ' MsgBox(SQL.getValueTxtBySql("select count(*) FROM [VERAG].[dbo].[Speditionsbuch] where AbfertigungsNr = 18035380", "FMZOLL")) End If @@ -444,8 +484,12 @@ Public Class cZOLL_IMPORT Shared Function countSpedbuchEntrys(filiale, bezugsnr, art) As Integer If art = "NCTS" Then Return countSpedbuchEntrysNCTS(filiale, bezugsnr) - Else + ElseIf art = "EZA" Then Return countSpedbuchEntrysEZA(filiale, bezugsnr) + ElseIf art = "AES" Then + Return countSpedbuchEntrysAES(filiale, bezugsnr) + Else + Return countSpedbuchEntryALL(filiale, bezugsnr) End If End Function Shared Function countSpedbuchEntrysNCTS(filiale, ncts) As Integer @@ -458,6 +502,16 @@ Public Class cZOLL_IMPORT Return SQL.getValueTxtBySqlVarList("SELECT isnull(count(*),0) FROM Speditionsbuch WHERE [FilialenNr]='" & filiale & "' AND AtlasBezNrEZA='" & eza & "'", "FMZOLL") End Function + Shared Function countSpedbuchEntrysAES(filiale, AES) As Integer + If If(AES, "") = "" Then Return 0 + Return SQL.getValueTxtBySqlVarList("SELECT isnull(count(*),0) FROM Speditionsbuch WHERE [FilialenNr]='" & filiale & "' AND AtlasBezNrAES='" & AES & "'", "FMZOLL") + End Function + + Shared Function countSpedbuchEntryALL(filiale, bezugsnr) As Integer + If If(bezugsnr, "") = "" Then Return 0 + Return SQL.getValueTxtBySqlVarList("SELECT isnull(count(*),0) FROM Speditionsbuch WHERE [FilialenNr]='" & filiale & "' AND AbfertigungsNr='" & bezugsnr & "'", "FMZOLL") + End Function + Shared Function getFiliale(ByVal bezugsNr, ByRef filialeBez) As String If If(bezugsNr, "").ToString.Length > 4 Then Select Case bezugsNr.ToString.Substring(0, 4) @@ -578,9 +632,9 @@ Public Class cZOLL_IMPORT SPEDITIONSBUCH.Zollsystem = "E" If EZA_Nr <> "" Then ' SPEDITIONSBUCH.AtlasBezNrEZA = EZA_Nr - EZollEZADatenbereitstellung(EZA_Nr) + EZollEZADatenbereitstellung(EZA_Nr, False) ElseIf AES_Nr <> "" Then - EZollEZADatenbereitstellung(AES_Nr) ' ???? + EZollEZADatenbereitstellung(AES_Nr, True) ' ???? Warum wird hier nur auf EF geprüft??? AES ist doch -> AF!!!! ElseIf NCTS_Nr <> "" Then ' SPEDITIONSBUCH.AtlasBezNrNCTS = NCTS_Nr EZollNCTSDatenbereitstellung(NCTS_Nr) @@ -1662,14 +1716,18 @@ Public Class cZOLL_IMPORT SPEDITIONSBUCH.Bürgschaft = Bürgschaft End Sub - Private Sub EZollEZADatenbereitstellung(EZA_Nr) + Private Sub EZollEZADatenbereitstellung(EZA_Nr, isAES) ' Dim fNEF = DirectCast(Me.Owner, frmNacherfassungNEU) + Dim VorgangID As String = "EF" + If isAES Then + VorgangID = "AF" + End If Dim dEZOLL As DataTable = KDSQL.loadDgvBySql("SELECT LizenzNr, OperatorID, VorgangID, AnmID, GeaendertAm, GeaendertVon, CRN, LRN" & " FROM zsAnmRefs" & - " WHERE (VorgangID = 'EF') AND (LRN = '" & EZA_Nr & "')" & + " WHERE (VorgangID = '" & VorgangID &') AND (LRN = '" & EZA_Nr & "')" & " ORDER BY GeaendertAm DESC", EZOLL_SQL) If dEZOLL Is Nothing Then notFound = True : Exit Sub diff --git a/MDM_Worker/cPLOSE_Inv_Data.vb b/MDM_Worker/cPLOSE_Inv_Data.vb index 5a10fae..677c1d8 100644 --- a/MDM_Worker/cPLOSE_Inv_Data.vb +++ b/MDM_Worker/cPLOSE_Inv_Data.vb @@ -329,7 +329,7 @@ Public Class cPLOSE_Inv_Data order by plose_Dateiname" Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL - Dim dtMehrfachImportiert_DT As DataTable = SQL.loadDgvBySql(mehrfachIMportiert_SQL, "FMZOLL") + Dim dtMehrfachImportiert_DT As DataTable = SQL.loadDgvBySql(mehrfachIMportiert_SQL, "FMZOLL", 40) If dtMehrfachImportiert_DT.Rows.Count > 0 Then diff --git a/UID/usrCntlDatenarchiv.vb b/UID/usrCntlDatenarchiv.vb index f0f77eb..69db81b 100644 --- a/UID/usrCntlDatenarchiv.vb +++ b/UID/usrCntlDatenarchiv.vb @@ -51,8 +51,8 @@ Public Class usrCntlDatenarchiv Function getDatenarchivwhere() As String - Dim sqlstr = "" - If cboPartnersystem._value <> "" Then sqlstr &= " AND [Param_system] = '" & cboPartnersystem._value & "'" + Dim sqlstr = " and Param_testsystem = " & IIf(cbxTestsystem.Checked, "1 ", "0 ") + If cboPartnersystem._value <> "" Then sqlstr &= " And [Param_system] = '" & cboPartnersystem._value & "'" Return sqlstr End Function @@ -74,7 +74,7 @@ Public Class usrCntlDatenarchiv Private Sub cbxProduktivsystem_CheckedChanged(sender As Object, e As EventArgs) Handles cbxTestsystem.CheckedChanged - VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = cbxTestsystem.Checked + 'VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = cbxTestsystem.Checked DatenarchivBind = New cEasyBinding(BIND_DB) diff --git a/initATLASAufschubkonten/frmStartOptions.Designer.vb b/initATLASAufschubkonten/frmStartOptions.Designer.vb index 1cad695..a05e799 100644 --- a/initATLASAufschubkonten/frmStartOptions.Designer.vb +++ b/initATLASAufschubkonten/frmStartOptions.Designer.vb @@ -37,10 +37,10 @@ Partial Class frmStartOptions Me.LinkLabel63 = New System.Windows.Forms.LinkLabel() Me.PictureBox23 = New System.Windows.Forms.PictureBox() Me.Label27 = New System.Windows.Forms.Label() + Me.MyTextBox3 = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.LinkLabel51 = New System.Windows.Forms.LinkLabel() Me.PictureBox22 = New System.Windows.Forms.PictureBox() Me.Button22 = New System.Windows.Forms.Button() - Me.LinkLabel48 = New System.Windows.Forms.LinkLabel() Me.cbxVermerk = New System.Windows.Forms.CheckBox() Me.cbxDatevTest = New System.Windows.Forms.CheckBox() Me.cbxDatevOpen = New System.Windows.Forms.CheckBox() @@ -54,16 +54,20 @@ Partial Class frmStartOptions Me.Label20 = New System.Windows.Forms.Label() Me.Label19 = New System.Windows.Forms.Label() Me.Label18 = New System.Windows.Forms.Label() + Me.MyTextBox2 = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.LinkLabel36 = New System.Windows.Forms.LinkLabel() Me.Button13 = New System.Windows.Forms.Button() Me.Button12 = New System.Windows.Forms.Button() Me.cbxSyskaWdh = New System.Windows.Forms.CheckBox() + Me.txtSyskaWdhDateiname = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Button10 = New System.Windows.Forms.Button() Me.piceZollAnh = New System.Windows.Forms.PictureBox() + Me.txtEZOLLAnhDat = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.lblEZOLLDat = New System.Windows.Forms.LinkLabel() Me.Button6 = New System.Windows.Forms.Button() Me.CheckBox6 = New System.Windows.Forms.CheckBox() Me.Button7 = New System.Windows.Forms.Button() + Me.cboSYSKAFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.CheckBox7 = New System.Windows.Forms.CheckBox() Me.Label16 = New System.Windows.Forms.Label() Me.LinkLabel33 = New System.Windows.Forms.LinkLabel() @@ -72,15 +76,16 @@ Partial Class frmStartOptions Me.Button4 = New System.Windows.Forms.Button() Me.CheckBox5 = New System.Windows.Forms.CheckBox() Me.Button3 = New System.Windows.Forms.Button() + Me.cboBMDUnispedFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.CheckBox4 = New System.Windows.Forms.CheckBox() Me.Label13 = New System.Windows.Forms.Label() - Me.CheckBox3 = New System.Windows.Forms.CheckBox() Me.tbcntr = New System.Windows.Forms.TabControl() Me.TabPage1 = New System.Windows.Forms.TabPage() Me.Button29 = New System.Windows.Forms.Button() Me.LinkLabel68 = New System.Windows.Forms.LinkLabel() Me.PictureBox26 = New System.Windows.Forms.PictureBox() Me.cbxGestellungspeichern = New System.Windows.Forms.CheckBox() + Me.MyTextBox4 = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label41 = New System.Windows.Forms.Label() Me.LinkLabel99 = New System.Windows.Forms.LinkLabel() Me.PictureBox99 = New System.Windows.Forms.PictureBox() @@ -150,6 +155,15 @@ Partial Class frmStartOptions Me.Label6 = New System.Windows.Forms.Label() Me.PictureBox15 = New System.Windows.Forms.PictureBox() Me.PictureBox14 = New System.Windows.Forms.PictureBox() + Me.dgvMRN = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) + Me.clmnMRN = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.txtVRGOut_MRN = New VERAG_PROG_ALLGEMEIN.MyTextBox() + 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.TabPage3 = New System.Windows.Forms.TabPage() Me.btnTesttc = New System.Windows.Forms.Button() Me.cboTCAPI_Call = New System.Windows.Forms.Button() @@ -180,10 +194,17 @@ Partial Class frmStartOptions Me.cbxTCAnhEinlesen = New System.Windows.Forms.CheckBox() Me.cboTCAPI_Files = New System.Windows.Forms.Button() Me.cbxTCVB_Versand = New System.Windows.Forms.CheckBox() + Me.cboTCAPI_Firma = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.MyTextBox06 = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtCheckATEZMRN = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.datTranscodeBis = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.datTranscodeVon = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.TabPage4 = New System.Windows.Forms.TabPage() Me.TabControl1 = New System.Windows.Forms.TabControl() Me.Asfinag = New System.Windows.Forms.TabPage() Me.Label28 = New System.Windows.Forms.Label() + Me.txtTWLNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtTBLNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label24 = New System.Windows.Forms.Label() Me.LinkLabel44 = New System.Windows.Forms.LinkLabel() Me.LinkLabel43 = New System.Windows.Forms.LinkLabel() @@ -214,6 +235,7 @@ Partial Class frmStartOptions Me.IDS_RE = New System.Windows.Forms.LinkLabel() Me.cbxIDSUmbenenen = New System.Windows.Forms.CheckBox() Me.TextBox3 = New System.Windows.Forms.TextBox() + Me.txtIDSYear = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.MSE = New System.Windows.Forms.TabPage() Me.Label56 = New System.Windows.Forms.Label() Me.lblBackToCustomer_MSE = New System.Windows.Forms.LinkLabel() @@ -238,6 +260,10 @@ Partial Class frmStartOptions Me.Label42 = New System.Windows.Forms.Label() Me.cbxOnlyBilledTransactions = New System.Windows.Forms.CheckBox() Me.cbxUploadDA = New System.Windows.Forms.CheckBox() + Me.txtTransactionID = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.cbxMSEBatchNr = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.txtBatchNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtBatchNrofTransaction = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.RMC = New System.Windows.Forms.TabPage() Me.Label58 = New System.Windows.Forms.Label() Me.Label57 = New System.Windows.Forms.Label() @@ -248,6 +274,7 @@ Partial Class frmStartOptions Me.RMC_import = New System.Windows.Forms.LinkLabel() Me.cbxDateienlöschenRMC = New System.Windows.Forms.CheckBox() Me.TextBox2 = New System.Windows.Forms.TextBox() + Me.cbxRMC = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.UTA = New System.Windows.Forms.TabPage() Me.lblBackToCustomer_UTA = New System.Windows.Forms.LinkLabel() Me.Label31 = New System.Windows.Forms.Label() @@ -259,6 +286,8 @@ Partial Class frmStartOptions Me.TextBox1 = New System.Windows.Forms.TextBox() Me.UTA_Laender = New System.Windows.Forms.LinkLabel() Me.lblUTAPDFvollst = New System.Windows.Forms.LinkLabel() + Me.txtUTAYear = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtUTADate = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.PLOSE = New System.Windows.Forms.TabPage() Me.lblBackToCustomer_PLOSE = New System.Windows.Forms.LinkLabel() Me.lblPlosefoppelteIMporte = New System.Windows.Forms.LinkLabel() @@ -269,7 +298,10 @@ Partial Class frmStartOptions Me.LinkLabel24 = New System.Windows.Forms.LinkLabel() Me.LinkLabel23 = New System.Windows.Forms.LinkLabel() Me.PlosePdfRE = New System.Windows.Forms.LinkLabel() + Me.txtPloseJahr = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtPLoseKdNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.TabPage5 = New System.Windows.Forms.TabPage() + Me.btnCheckPDF_USTVA = New System.Windows.Forms.Button() Me.cbxPloseNeu = New System.Windows.Forms.CheckBox() Me.Label44 = New System.Windows.Forms.Label() Me.cbxITalt = New System.Windows.Forms.CheckBox() @@ -287,10 +319,12 @@ Partial Class frmStartOptions Me.cbxMSEalt = New System.Windows.Forms.CheckBox() Me.cbxUTAalt = New System.Windows.Forms.CheckBox() Me.cbxUTANeu = New System.Windows.Forms.CheckBox() + Me.txtKdNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.TabPage8 = New System.Windows.Forms.TabPage() Me.PictureBox27 = New System.Windows.Forms.PictureBox() Me.Label60 = New System.Windows.Forms.Label() Me.dtp_MDM_Einarbeitung = New System.Windows.Forms.DateTimePicker() + Me.dgv_MDMEinarbeitung = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) Me.KN8_DESTAT = New System.Windows.Forms.LinkLabel() Me.Button24 = New System.Windows.Forms.Button() Me.cbxTestFTP = New System.Windows.Forms.CheckBox() @@ -300,6 +334,7 @@ Partial Class frmStartOptions Me.lblAbDat = New System.Windows.Forms.Label() Me.Button27 = New System.Windows.Forms.Button() Me.lblWartungen = New System.Windows.Forms.Label() + Me.txtWartungFaelligkeitAbDat = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.TabPage7 = New System.Windows.Forms.TabPage() Me.cbxEventtriggered = New System.Windows.Forms.CheckBox() Me.Label50 = New System.Windows.Forms.Label() @@ -317,13 +352,13 @@ Partial Class frmStartOptions Me.lblMissingCS = New System.Windows.Forms.Label() Me.Button28 = New System.Windows.Forms.Button() Me.btnCreditsaveLauf = New System.Windows.Forms.Button() - Me.CheckBox2 = New System.Windows.Forms.CheckBox() - Me.LinkLabel25 = New System.Windows.Forms.LinkLabel() + Me.txtCSDate = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.CheckBox1 = New System.Windows.Forms.CheckBox() Me.cbxBu = New System.Windows.Forms.CheckBox() Me.cbxKd = New System.Windows.Forms.CheckBox() Me.Button9 = New System.Windows.Forms.Button() Me.Label3 = New System.Windows.Forms.Label() + Me.MyTextBox1 = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.PictureBox12 = New System.Windows.Forms.PictureBox() Me.LinkLabel20 = New System.Windows.Forms.LinkLabel() Me.PictureBox11 = New System.Windows.Forms.PictureBox() @@ -339,48 +374,13 @@ Partial Class frmStartOptions Me.LinkLabel3 = New System.Windows.Forms.LinkLabel() Me.lklAufschubkontenATLASEZOLL = New System.Windows.Forms.LinkLabel() Me.lblRoutineManager = New System.Windows.Forms.Label() - Me.Button21 = New System.Windows.Forms.Button() - Me.MyTextBox3 = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.MyTextBox2 = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtSyskaWdhDateiname = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtEZOLLAnhDat = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.cboSYSKAFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.cboBMDUnispedFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.MyTextBox4 = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.dgvMRN = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) - Me.clmnMRN = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.txtVRGOut_MRN = New VERAG_PROG_ALLGEMEIN.MyTextBox() - 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.cboTCAPI_Firma = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.MyTextBox06 = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtCheckATEZMRN = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.datTranscodeBis = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.datTranscodeVon = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtTWLNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtTBLNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtIDSYear = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtTransactionID = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.cbxMSEBatchNr = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.txtBatchNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtBatchNrofTransaction = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.cbxRMC = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.txtUTAYear = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtUTADate = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtPloseJahr = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtPLoseKdNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtKdNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.dgv_MDMEinarbeitung = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) - Me.txtWartungFaelligkeitAbDat = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtCSDate = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.MyTextBox1 = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtGJ_UNISPED = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Button21 = New System.Windows.Forms.Button() Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.btnCheckPDF_USTVA = New System.Windows.Forms.Button() + Me.cbxSendEZOLL_INFO = New System.Windows.Forms.CheckBox() + Me.cbxEZOLLUNISPED = New System.Windows.Forms.CheckBox() + Me.btnEZOLL_7days = New System.Windows.Forms.Button() + Me.btnEZOLL_1month = New System.Windows.Forms.Button() Me.pnl.SuspendLayout() CType(Me.pbEmailscheck, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox24, System.ComponentModel.ISupportInitialize).BeginInit() @@ -407,6 +407,7 @@ Partial Class frmStartOptions Me.TabPage2.SuspendLayout() CType(Me.PictureBox15, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox14, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.dgvMRN, System.ComponentModel.ISupportInitialize).BeginInit() Me.TabPage3.SuspendLayout() Me.Panel1.SuspendLayout() Me.TabPage4.SuspendLayout() @@ -424,20 +425,23 @@ Partial Class frmStartOptions CType(Me.PictureBox25, System.ComponentModel.ISupportInitialize).BeginInit() Me.TabPage8.SuspendLayout() CType(Me.PictureBox27, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.dgv_MDMEinarbeitung, System.ComponentModel.ISupportInitialize).BeginInit() Me.TabPage6.SuspendLayout() Me.TabPage7.SuspendLayout() CType(Me.PictureBox12, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox11, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox10, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox9, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.dgvMRN, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.dgv_MDMEinarbeitung, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' 'pnl ' Me.pnl.BackColor = System.Drawing.Color.White Me.pnl.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnl.Controls.Add(Me.btnEZOLL_1month) + Me.pnl.Controls.Add(Me.btnEZOLL_7days) + Me.pnl.Controls.Add(Me.cbxEZOLLUNISPED) + Me.pnl.Controls.Add(Me.cbxSendEZOLL_INFO) Me.pnl.Controls.Add(Me.Button30) Me.pnl.Controls.Add(Me.pbEmailscheck) Me.pnl.Controls.Add(Me.btnKKEmailscheck) @@ -454,7 +458,6 @@ Partial Class frmStartOptions Me.pnl.Controls.Add(Me.LinkLabel51) Me.pnl.Controls.Add(Me.PictureBox22) Me.pnl.Controls.Add(Me.Button22) - Me.pnl.Controls.Add(Me.LinkLabel48) Me.pnl.Controls.Add(Me.cbxVermerk) Me.pnl.Controls.Add(Me.cbxDatevTest) Me.pnl.Controls.Add(Me.cbxDatevOpen) @@ -493,10 +496,7 @@ Partial Class frmStartOptions Me.pnl.Controls.Add(Me.cboBMDUnispedFirma) Me.pnl.Controls.Add(Me.CheckBox4) Me.pnl.Controls.Add(Me.Label13) - Me.pnl.Controls.Add(Me.CheckBox3) Me.pnl.Controls.Add(Me.tbcntr) - Me.pnl.Controls.Add(Me.CheckBox2) - Me.pnl.Controls.Add(Me.LinkLabel25) Me.pnl.Controls.Add(Me.CheckBox1) Me.pnl.Controls.Add(Me.cbxBu) Me.pnl.Controls.Add(Me.cbxKd) @@ -655,6 +655,29 @@ Partial Class frmStartOptions Me.Label27.TabIndex = 87 Me.Label27.Text = "älter als Tage" ' + 'MyTextBox3 + ' + Me.MyTextBox3._DateTimeOnly = False + Me.MyTextBox3._numbersOnly = True + Me.MyTextBox3._numbersOnlyKommastellen = "" + Me.MyTextBox3._numbersOnlyTrennzeichen = True + Me.MyTextBox3._Prozent = False + Me.MyTextBox3._ShortDateNew = False + Me.MyTextBox3._ShortDateOnly = False + Me.MyTextBox3._TimeOnly = False + Me.MyTextBox3._TimeOnly_Seconds = False + Me.MyTextBox3._value = "" + Me.MyTextBox3._Waehrung = False + Me.MyTextBox3._WaehrungZeichen = True + Me.MyTextBox3.ForeColor = System.Drawing.Color.Red + Me.MyTextBox3.Location = New System.Drawing.Point(127, 232) + Me.MyTextBox3.MaxLineLength = -1 + Me.MyTextBox3.MaxLines_Warning = "" + Me.MyTextBox3.MaxLines_Warning_Label = Nothing + Me.MyTextBox3.Name = "MyTextBox3" + Me.MyTextBox3.Size = New System.Drawing.Size(53, 20) + Me.MyTextBox3.TabIndex = 86 + ' 'LinkLabel51 ' Me.LinkLabel51.AutoSize = True @@ -689,17 +712,6 @@ Partial Class frmStartOptions Me.Button22.Text = "Kd-Umsätze akt." Me.Button22.UseVisualStyleBackColor = True ' - 'LinkLabel48 - ' - Me.LinkLabel48.AutoSize = True - Me.LinkLabel48.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.LinkLabel48.Location = New System.Drawing.Point(405, 159) - Me.LinkLabel48.Name = "LinkLabel48" - Me.LinkLabel48.Size = New System.Drawing.Size(129, 13) - Me.LinkLabel48.TabIndex = 77 - Me.LinkLabel48.TabStop = True - Me.LinkLabel48.Text = "ZOLARIS Anh. UNISPED" - ' 'cbxVermerk ' Me.cbxVermerk.AutoSize = True @@ -844,6 +856,29 @@ Partial Class frmStartOptions Me.Label18.TabIndex = 64 Me.Label18.Text = "Max" ' + 'MyTextBox2 + ' + Me.MyTextBox2._DateTimeOnly = False + Me.MyTextBox2._numbersOnly = True + Me.MyTextBox2._numbersOnlyKommastellen = "" + Me.MyTextBox2._numbersOnlyTrennzeichen = True + Me.MyTextBox2._Prozent = False + Me.MyTextBox2._ShortDateNew = False + Me.MyTextBox2._ShortDateOnly = False + Me.MyTextBox2._TimeOnly = False + Me.MyTextBox2._TimeOnly_Seconds = False + Me.MyTextBox2._value = "" + Me.MyTextBox2._Waehrung = False + Me.MyTextBox2._WaehrungZeichen = True + Me.MyTextBox2.ForeColor = System.Drawing.Color.Red + Me.MyTextBox2.Location = New System.Drawing.Point(151, 176) + Me.MyTextBox2.MaxLineLength = -1 + Me.MyTextBox2.MaxLines_Warning = "" + Me.MyTextBox2.MaxLines_Warning_Label = Nothing + Me.MyTextBox2.Name = "MyTextBox2" + Me.MyTextBox2.Size = New System.Drawing.Size(53, 20) + Me.MyTextBox2.TabIndex = 63 + ' 'LinkLabel36 ' Me.LinkLabel36.AutoSize = True @@ -890,6 +925,30 @@ Partial Class frmStartOptions Me.cbxSyskaWdh.Text = "Buchungen wiederh." Me.cbxSyskaWdh.UseVisualStyleBackColor = True ' + 'txtSyskaWdhDateiname + ' + Me.txtSyskaWdhDateiname._DateTimeOnly = False + Me.txtSyskaWdhDateiname._numbersOnly = False + Me.txtSyskaWdhDateiname._numbersOnlyKommastellen = "" + Me.txtSyskaWdhDateiname._numbersOnlyTrennzeichen = True + Me.txtSyskaWdhDateiname._Prozent = False + Me.txtSyskaWdhDateiname._ShortDateNew = False + Me.txtSyskaWdhDateiname._ShortDateOnly = False + Me.txtSyskaWdhDateiname._TimeOnly = False + Me.txtSyskaWdhDateiname._TimeOnly_Seconds = False + Me.txtSyskaWdhDateiname._value = "" + Me.txtSyskaWdhDateiname._Waehrung = False + Me.txtSyskaWdhDateiname._WaehrungZeichen = True + Me.txtSyskaWdhDateiname.ForeColor = System.Drawing.Color.Black + Me.txtSyskaWdhDateiname.Location = New System.Drawing.Point(692, 318) + Me.txtSyskaWdhDateiname.MaxLength = 50 + Me.txtSyskaWdhDateiname.MaxLineLength = -1 + Me.txtSyskaWdhDateiname.MaxLines_Warning = "" + Me.txtSyskaWdhDateiname.MaxLines_Warning_Label = Nothing + Me.txtSyskaWdhDateiname.Name = "txtSyskaWdhDateiname" + Me.txtSyskaWdhDateiname.Size = New System.Drawing.Size(136, 20) + Me.txtSyskaWdhDateiname.TabIndex = 58 + ' 'Button10 ' Me.Button10.FlatStyle = System.Windows.Forms.FlatStyle.Flat @@ -907,18 +966,42 @@ Partial Class frmStartOptions ' Me.piceZollAnh.BackgroundImage = CType(resources.GetObject("piceZollAnh.BackgroundImage"), System.Drawing.Image) Me.piceZollAnh.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom - Me.piceZollAnh.Location = New System.Drawing.Point(500, 214) + Me.piceZollAnh.Location = New System.Drawing.Point(518, 209) Me.piceZollAnh.Name = "piceZollAnh" Me.piceZollAnh.Size = New System.Drawing.Size(18, 18) Me.piceZollAnh.TabIndex = 56 Me.piceZollAnh.TabStop = False Me.piceZollAnh.Visible = False ' + 'txtEZOLLAnhDat + ' + Me.txtEZOLLAnhDat._DateTimeOnly = False + Me.txtEZOLLAnhDat._numbersOnly = False + Me.txtEZOLLAnhDat._numbersOnlyKommastellen = "" + Me.txtEZOLLAnhDat._numbersOnlyTrennzeichen = True + Me.txtEZOLLAnhDat._Prozent = False + Me.txtEZOLLAnhDat._ShortDateNew = True + Me.txtEZOLLAnhDat._ShortDateOnly = False + Me.txtEZOLLAnhDat._TimeOnly = False + Me.txtEZOLLAnhDat._TimeOnly_Seconds = False + Me.txtEZOLLAnhDat._value = "" + Me.txtEZOLLAnhDat._Waehrung = False + Me.txtEZOLLAnhDat._WaehrungZeichen = True + Me.txtEZOLLAnhDat.ForeColor = System.Drawing.Color.Black + Me.txtEZOLLAnhDat.Location = New System.Drawing.Point(425, 207) + Me.txtEZOLLAnhDat.MaxLength = 10 + Me.txtEZOLLAnhDat.MaxLineLength = -1 + Me.txtEZOLLAnhDat.MaxLines_Warning = "" + Me.txtEZOLLAnhDat.MaxLines_Warning_Label = Nothing + Me.txtEZOLLAnhDat.Name = "txtEZOLLAnhDat" + Me.txtEZOLLAnhDat.Size = New System.Drawing.Size(87, 20) + Me.txtEZOLLAnhDat.TabIndex = 55 + ' 'lblEZOLLDat ' Me.lblEZOLLDat.AutoSize = True Me.lblEZOLLDat.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.lblEZOLLDat.Location = New System.Drawing.Point(300, 217) + Me.lblEZOLLDat.Location = New System.Drawing.Point(318, 210) Me.lblEZOLLDat.Name = "lblEZOLLDat" Me.lblEZOLLDat.Size = New System.Drawing.Size(105, 13) Me.lblEZOLLDat.TabIndex = 54 @@ -962,6 +1045,17 @@ Partial Class frmStartOptions Me.Button7.Text = "Buchungen --> Syska" Me.Button7.UseVisualStyleBackColor = True ' + 'cboSYSKAFirma + ' + Me.cboSYSKAFirma._allowedValuesFreiText = Nothing + Me.cboSYSKAFirma._allowFreiText = False + Me.cboSYSKAFirma._value = "" + Me.cboSYSKAFirma.FormattingEnabled = True + Me.cboSYSKAFirma.Location = New System.Drawing.Point(564, 299) + Me.cboSYSKAFirma.Name = "cboSYSKAFirma" + Me.cboSYSKAFirma.Size = New System.Drawing.Size(129, 21) + Me.cboSYSKAFirma.TabIndex = 51 + ' 'CheckBox7 ' Me.CheckBox7.AutoSize = True @@ -1054,6 +1148,17 @@ Partial Class frmStartOptions Me.Button3.Text = "Buchungen --> BMD" Me.Button3.UseVisualStyleBackColor = True ' + 'cboBMDUnispedFirma + ' + Me.cboBMDUnispedFirma._allowedValuesFreiText = Nothing + Me.cboBMDUnispedFirma._allowFreiText = False + Me.cboBMDUnispedFirma._value = "" + Me.cboBMDUnispedFirma.FormattingEnabled = True + Me.cboBMDUnispedFirma.Location = New System.Drawing.Point(268, 300) + Me.cboBMDUnispedFirma.Name = "cboBMDUnispedFirma" + Me.cboBMDUnispedFirma.Size = New System.Drawing.Size(124, 21) + Me.cboBMDUnispedFirma.TabIndex = 42 + ' 'CheckBox4 ' Me.CheckBox4.AutoSize = True @@ -1075,16 +1180,6 @@ Partial Class frmStartOptions Me.Label13.TabIndex = 39 Me.Label13.Text = "Routine Manager UNISPED" ' - 'CheckBox3 - ' - Me.CheckBox3.AutoSize = True - Me.CheckBox3.Location = New System.Drawing.Point(302, 197) - Me.CheckBox3.Name = "CheckBox3" - Me.CheckBox3.Size = New System.Drawing.Size(103, 17) - Me.CheckBox3.TabIndex = 38 - Me.CheckBox3.Text = "History (1Monat)" - Me.CheckBox3.UseVisualStyleBackColor = True - ' 'tbcntr ' Me.tbcntr.Controls.Add(Me.TabPage1) @@ -1202,6 +1297,30 @@ Partial Class frmStartOptions Me.cbxGestellungspeichern.Text = "Gestellungen speichern" Me.cbxGestellungspeichern.UseVisualStyleBackColor = True ' + 'MyTextBox4 + ' + Me.MyTextBox4._DateTimeOnly = False + Me.MyTextBox4._numbersOnly = False + Me.MyTextBox4._numbersOnlyKommastellen = "" + Me.MyTextBox4._numbersOnlyTrennzeichen = True + Me.MyTextBox4._Prozent = False + Me.MyTextBox4._ShortDateNew = True + Me.MyTextBox4._ShortDateOnly = False + Me.MyTextBox4._TimeOnly = False + Me.MyTextBox4._TimeOnly_Seconds = False + Me.MyTextBox4._value = "" + Me.MyTextBox4._Waehrung = False + Me.MyTextBox4._WaehrungZeichen = True + Me.MyTextBox4.ForeColor = System.Drawing.Color.Black + Me.MyTextBox4.Location = New System.Drawing.Point(775, 277) + Me.MyTextBox4.MaxLength = 10 + Me.MyTextBox4.MaxLineLength = -1 + Me.MyTextBox4.MaxLines_Warning = "" + Me.MyTextBox4.MaxLines_Warning_Label = Nothing + Me.MyTextBox4.Name = "MyTextBox4" + Me.MyTextBox4.Size = New System.Drawing.Size(80, 20) + Me.MyTextBox4.TabIndex = 90 + ' 'Label41 ' Me.Label41.AutoSize = True @@ -1996,6 +2115,165 @@ Partial Class frmStartOptions Me.PictureBox14.TabStop = False Me.PictureBox14.Visible = False ' + 'dgvMRN + ' + Me.dgvMRN.AKTUALISIERUNGS_INTERVALL = -1 + Me.dgvMRN.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.dgvMRN.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.clmnMRN}) + Me.dgvMRN.Location = New System.Drawing.Point(637, 63) + Me.dgvMRN.Name = "dgvMRN" + Me.dgvMRN.RowHeadersWidth = 62 + Me.dgvMRN.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect + Me.dgvMRN.Size = New System.Drawing.Size(207, 134) + Me.dgvMRN.TabIndex = 75 + ' + 'clmnMRN + ' + Me.clmnMRN.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill + Me.clmnMRN.HeaderText = "MRN" + Me.clmnMRN.MinimumWidth = 8 + Me.clmnMRN.Name = "clmnMRN" + ' + 'txtVRGOut_MRN + ' + Me.txtVRGOut_MRN._DateTimeOnly = False + Me.txtVRGOut_MRN._numbersOnly = False + Me.txtVRGOut_MRN._numbersOnlyKommastellen = "" + Me.txtVRGOut_MRN._numbersOnlyTrennzeichen = True + Me.txtVRGOut_MRN._Prozent = False + Me.txtVRGOut_MRN._ShortDateNew = False + Me.txtVRGOut_MRN._ShortDateOnly = False + Me.txtVRGOut_MRN._TimeOnly = False + Me.txtVRGOut_MRN._TimeOnly_Seconds = False + Me.txtVRGOut_MRN._value = "" + Me.txtVRGOut_MRN._Waehrung = False + Me.txtVRGOut_MRN._WaehrungZeichen = False + Me.txtVRGOut_MRN.ForeColor = System.Drawing.Color.Red + Me.txtVRGOut_MRN.Location = New System.Drawing.Point(359, 84) + Me.txtVRGOut_MRN.MaxLineLength = -1 + Me.txtVRGOut_MRN.MaxLines_Warning = "" + Me.txtVRGOut_MRN.MaxLines_Warning_Label = Nothing + Me.txtVRGOut_MRN.Name = "txtVRGOut_MRN" + Me.txtVRGOut_MRN.Size = New System.Drawing.Size(153, 20) + Me.txtVRGOut_MRN.TabIndex = 73 + ' + 'txtVRGOut_FilialenNr + ' + Me.txtVRGOut_FilialenNr._DateTimeOnly = False + Me.txtVRGOut_FilialenNr._numbersOnly = False + Me.txtVRGOut_FilialenNr._numbersOnlyKommastellen = "" + Me.txtVRGOut_FilialenNr._numbersOnlyTrennzeichen = True + Me.txtVRGOut_FilialenNr._Prozent = False + Me.txtVRGOut_FilialenNr._ShortDateNew = False + Me.txtVRGOut_FilialenNr._ShortDateOnly = False + Me.txtVRGOut_FilialenNr._TimeOnly = False + Me.txtVRGOut_FilialenNr._TimeOnly_Seconds = 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._numbersOnlyTrennzeichen = True + Me.txtVRGOut_AbfertigungsNr._Prozent = False + Me.txtVRGOut_AbfertigungsNr._ShortDateNew = False + Me.txtVRGOut_AbfertigungsNr._ShortDateOnly = False + Me.txtVRGOut_AbfertigungsNr._TimeOnly = False + Me.txtVRGOut_AbfertigungsNr._TimeOnly_Seconds = 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._numbersOnlyTrennzeichen = True + Me.txtVRGOutEZA_BezugsNr._Prozent = False + Me.txtVRGOutEZA_BezugsNr._ShortDateNew = False + Me.txtVRGOutEZA_BezugsNr._ShortDateOnly = False + Me.txtVRGOutEZA_BezugsNr._TimeOnly = False + Me.txtVRGOutEZA_BezugsNr._TimeOnly_Seconds = 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._numbersOnlyTrennzeichen = True + Me.txtVRGOut_BezugsNr._Prozent = False + Me.txtVRGOut_BezugsNr._ShortDateNew = False + Me.txtVRGOut_BezugsNr._ShortDateOnly = False + Me.txtVRGOut_BezugsNr._TimeOnly = False + Me.txtVRGOut_BezugsNr._TimeOnly_Seconds = False + Me.txtVRGOut_BezugsNr._value = "" + Me.txtVRGOut_BezugsNr._Waehrung = False + Me.txtVRGOut_BezugsNr._WaehrungZeichen = False + Me.txtVRGOut_BezugsNr.ForeColor = System.Drawing.Color.Red + Me.txtVRGOut_BezugsNr.Location = New System.Drawing.Point(359, 62) + Me.txtVRGOut_BezugsNr.MaxLineLength = -1 + Me.txtVRGOut_BezugsNr.MaxLines_Warning = "" + Me.txtVRGOut_BezugsNr.MaxLines_Warning_Label = Nothing + Me.txtVRGOut_BezugsNr.Name = "txtVRGOut_BezugsNr" + Me.txtVRGOut_BezugsNr.Size = New System.Drawing.Size(153, 20) + Me.txtVRGOut_BezugsNr.TabIndex = 5 + ' 'TabPage3 ' Me.TabPage3.Controls.Add(Me.btnTesttc) @@ -2355,6 +2633,116 @@ Partial Class frmStartOptions Me.cbxTCVB_Versand.Text = "ZB Versand" Me.cbxTCVB_Versand.UseVisualStyleBackColor = True ' + 'cboTCAPI_Firma + ' + Me.cboTCAPI_Firma._allowedValuesFreiText = Nothing + Me.cboTCAPI_Firma._allowFreiText = False + Me.cboTCAPI_Firma._value = "" + Me.cboTCAPI_Firma.FormattingEnabled = True + Me.cboTCAPI_Firma.Items.AddRange(New Object() {"ALLE", "ATILLA", "IMEX", "DURMAZ"}) + Me.cboTCAPI_Firma.Location = New System.Drawing.Point(570, 381) + Me.cboTCAPI_Firma.Name = "cboTCAPI_Firma" + Me.cboTCAPI_Firma.Size = New System.Drawing.Size(88, 21) + Me.cboTCAPI_Firma.TabIndex = 152 + Me.cboTCAPI_Firma.Text = "ALLE" + ' + 'MyTextBox06 + ' + Me.MyTextBox06._DateTimeOnly = False + Me.MyTextBox06._numbersOnly = False + Me.MyTextBox06._numbersOnlyKommastellen = "" + Me.MyTextBox06._numbersOnlyTrennzeichen = False + Me.MyTextBox06._Prozent = False + Me.MyTextBox06._ShortDateNew = False + Me.MyTextBox06._ShortDateOnly = False + Me.MyTextBox06._TimeOnly = False + Me.MyTextBox06._TimeOnly_Seconds = False + Me.MyTextBox06._value = "200" + Me.MyTextBox06._Waehrung = False + Me.MyTextBox06._WaehrungZeichen = False + Me.MyTextBox06.ForeColor = System.Drawing.Color.Black + Me.MyTextBox06.Location = New System.Drawing.Point(583, 302) + Me.MyTextBox06.MaxLength = 18 + Me.MyTextBox06.MaxLineLength = -1 + Me.MyTextBox06.MaxLines_Warning = "" + Me.MyTextBox06.MaxLines_Warning_Label = Nothing + Me.MyTextBox06.Name = "MyTextBox06" + Me.MyTextBox06.Size = New System.Drawing.Size(150, 20) + Me.MyTextBox06.TabIndex = 148 + Me.MyTextBox06.Text = "200" + ' + 'txtCheckATEZMRN + ' + Me.txtCheckATEZMRN._DateTimeOnly = False + Me.txtCheckATEZMRN._numbersOnly = False + Me.txtCheckATEZMRN._numbersOnlyKommastellen = "" + Me.txtCheckATEZMRN._numbersOnlyTrennzeichen = False + Me.txtCheckATEZMRN._Prozent = False + Me.txtCheckATEZMRN._ShortDateNew = False + Me.txtCheckATEZMRN._ShortDateOnly = False + Me.txtCheckATEZMRN._TimeOnly = False + Me.txtCheckATEZMRN._TimeOnly_Seconds = False + Me.txtCheckATEZMRN._value = "" + Me.txtCheckATEZMRN._Waehrung = False + Me.txtCheckATEZMRN._WaehrungZeichen = False + Me.txtCheckATEZMRN.ForeColor = System.Drawing.Color.Black + Me.txtCheckATEZMRN.Location = New System.Drawing.Point(548, 272) + Me.txtCheckATEZMRN.MaxLength = 18 + Me.txtCheckATEZMRN.MaxLineLength = -1 + Me.txtCheckATEZMRN.MaxLines_Warning = "" + Me.txtCheckATEZMRN.MaxLines_Warning_Label = Nothing + Me.txtCheckATEZMRN.Name = "txtCheckATEZMRN" + Me.txtCheckATEZMRN.Size = New System.Drawing.Size(185, 20) + Me.txtCheckATEZMRN.TabIndex = 139 + ' + 'datTranscodeBis + ' + Me.datTranscodeBis._DateTimeOnly = False + Me.datTranscodeBis._numbersOnly = False + Me.datTranscodeBis._numbersOnlyKommastellen = "" + Me.datTranscodeBis._numbersOnlyTrennzeichen = True + Me.datTranscodeBis._Prozent = False + Me.datTranscodeBis._ShortDateNew = True + Me.datTranscodeBis._ShortDateOnly = False + Me.datTranscodeBis._TimeOnly = False + Me.datTranscodeBis._TimeOnly_Seconds = False + Me.datTranscodeBis._value = "" + Me.datTranscodeBis._Waehrung = False + Me.datTranscodeBis._WaehrungZeichen = True + Me.datTranscodeBis.ForeColor = System.Drawing.Color.Black + Me.datTranscodeBis.Location = New System.Drawing.Point(646, 245) + Me.datTranscodeBis.MaxLength = 10 + Me.datTranscodeBis.MaxLineLength = -1 + Me.datTranscodeBis.MaxLines_Warning = "" + Me.datTranscodeBis.MaxLines_Warning_Label = Nothing + Me.datTranscodeBis.Name = "datTranscodeBis" + Me.datTranscodeBis.Size = New System.Drawing.Size(87, 20) + Me.datTranscodeBis.TabIndex = 143 + ' + 'datTranscodeVon + ' + Me.datTranscodeVon._DateTimeOnly = False + Me.datTranscodeVon._numbersOnly = False + Me.datTranscodeVon._numbersOnlyKommastellen = "" + Me.datTranscodeVon._numbersOnlyTrennzeichen = True + Me.datTranscodeVon._Prozent = False + Me.datTranscodeVon._ShortDateNew = True + Me.datTranscodeVon._ShortDateOnly = False + Me.datTranscodeVon._TimeOnly = False + Me.datTranscodeVon._TimeOnly_Seconds = False + Me.datTranscodeVon._value = "" + Me.datTranscodeVon._Waehrung = False + Me.datTranscodeVon._WaehrungZeichen = True + Me.datTranscodeVon.ForeColor = System.Drawing.Color.Black + Me.datTranscodeVon.Location = New System.Drawing.Point(548, 245) + Me.datTranscodeVon.MaxLength = 10 + Me.datTranscodeVon.MaxLineLength = -1 + Me.datTranscodeVon.MaxLines_Warning = "" + Me.datTranscodeVon.MaxLines_Warning_Label = Nothing + Me.datTranscodeVon.Name = "datTranscodeVon" + Me.datTranscodeVon.Size = New System.Drawing.Size(87, 20) + Me.datTranscodeVon.TabIndex = 142 + ' 'TabPage4 ' Me.TabPage4.Controls.Add(Me.TabControl1) @@ -2423,6 +2811,54 @@ Partial Class frmStartOptions Me.Label28.TabIndex = 81 Me.Label28.Text = "ASFINAG" ' + 'txtTWLNr + ' + Me.txtTWLNr._DateTimeOnly = False + Me.txtTWLNr._numbersOnly = True + Me.txtTWLNr._numbersOnlyKommastellen = "" + Me.txtTWLNr._numbersOnlyTrennzeichen = False + Me.txtTWLNr._Prozent = False + Me.txtTWLNr._ShortDateNew = False + Me.txtTWLNr._ShortDateOnly = False + Me.txtTWLNr._TimeOnly = False + Me.txtTWLNr._TimeOnly_Seconds = False + Me.txtTWLNr._value = "" + Me.txtTWLNr._Waehrung = False + Me.txtTWLNr._WaehrungZeichen = True + Me.txtTWLNr.ForeColor = System.Drawing.Color.Red + Me.txtTWLNr.Location = New System.Drawing.Point(168, 152) + Me.txtTWLNr.MaxLineLength = -1 + Me.txtTWLNr.MaxLines_Warning = "" + Me.txtTWLNr.MaxLines_Warning_Label = Nothing + Me.txtTWLNr.Name = "txtTWLNr" + Me.txtTWLNr.ReadOnly = True + Me.txtTWLNr.Size = New System.Drawing.Size(53, 20) + Me.txtTWLNr.TabIndex = 78 + ' + 'txtTBLNr + ' + Me.txtTBLNr._DateTimeOnly = False + Me.txtTBLNr._numbersOnly = True + Me.txtTBLNr._numbersOnlyKommastellen = "" + Me.txtTBLNr._numbersOnlyTrennzeichen = False + Me.txtTBLNr._Prozent = False + Me.txtTBLNr._ShortDateNew = False + Me.txtTBLNr._ShortDateOnly = False + Me.txtTBLNr._TimeOnly = False + Me.txtTBLNr._TimeOnly_Seconds = False + Me.txtTBLNr._value = "" + Me.txtTBLNr._Waehrung = False + Me.txtTBLNr._WaehrungZeichen = True + Me.txtTBLNr.ForeColor = System.Drawing.Color.Red + Me.txtTBLNr.Location = New System.Drawing.Point(168, 180) + Me.txtTBLNr.MaxLineLength = -1 + Me.txtTBLNr.MaxLines_Warning = "" + Me.txtTBLNr.MaxLines_Warning_Label = Nothing + Me.txtTBLNr.Name = "txtTBLNr" + Me.txtTBLNr.ReadOnly = True + Me.txtTBLNr.Size = New System.Drawing.Size(53, 20) + Me.txtTBLNr.TabIndex = 79 + ' 'Label24 ' Me.Label24.AutoSize = True @@ -2759,6 +3195,32 @@ Partial Class frmStartOptions Me.TextBox3.TabIndex = 154 Me.TextBox3.Text = "Dateien nach Import von FTP umbenennen" ' + 'txtIDSYear + ' + Me.txtIDSYear._DateTimeOnly = False + Me.txtIDSYear._numbersOnly = True + Me.txtIDSYear._numbersOnlyKommastellen = "" + Me.txtIDSYear._numbersOnlyTrennzeichen = False + Me.txtIDSYear._Prozent = False + Me.txtIDSYear._ShortDateNew = False + Me.txtIDSYear._ShortDateOnly = False + Me.txtIDSYear._TimeOnly = False + Me.txtIDSYear._TimeOnly_Seconds = False + Me.txtIDSYear._value = "" + Me.txtIDSYear._Waehrung = False + Me.txtIDSYear._WaehrungZeichen = True + Me.txtIDSYear.BackColor = System.Drawing.SystemColors.Window + Me.txtIDSYear.ForeColor = System.Drawing.Color.Red + Me.txtIDSYear.Location = New System.Drawing.Point(12, 61) + Me.txtIDSYear.MaxLength = 10 + Me.txtIDSYear.MaxLineLength = -1 + Me.txtIDSYear.MaxLines_Warning = "" + Me.txtIDSYear.MaxLines_Warning_Label = Nothing + Me.txtIDSYear.Name = "txtIDSYear" + Me.txtIDSYear.Size = New System.Drawing.Size(66, 20) + Me.txtIDSYear.TabIndex = 155 + Me.txtIDSYear.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' 'MSE ' Me.MSE.Controls.Add(Me.Label56) @@ -3034,6 +3496,98 @@ Partial Class frmStartOptions Me.cbxUploadDA.Text = "PDF ins DS" Me.cbxUploadDA.UseVisualStyleBackColor = True ' + 'txtTransactionID + ' + Me.txtTransactionID._DateTimeOnly = False + Me.txtTransactionID._numbersOnly = True + Me.txtTransactionID._numbersOnlyKommastellen = "" + Me.txtTransactionID._numbersOnlyTrennzeichen = False + Me.txtTransactionID._Prozent = False + Me.txtTransactionID._ShortDateNew = False + Me.txtTransactionID._ShortDateOnly = False + Me.txtTransactionID._TimeOnly = False + Me.txtTransactionID._TimeOnly_Seconds = False + Me.txtTransactionID._value = "" + Me.txtTransactionID._Waehrung = False + Me.txtTransactionID._WaehrungZeichen = True + Me.txtTransactionID.BackColor = System.Drawing.SystemColors.Window + Me.txtTransactionID.ForeColor = System.Drawing.Color.Black + Me.txtTransactionID.Location = New System.Drawing.Point(41, 207) + Me.txtTransactionID.MaxLength = 10 + Me.txtTransactionID.MaxLineLength = -1 + Me.txtTransactionID.MaxLines_Warning = "" + Me.txtTransactionID.MaxLines_Warning_Label = Nothing + Me.txtTransactionID.Name = "txtTransactionID" + Me.txtTransactionID.Size = New System.Drawing.Size(85, 20) + Me.txtTransactionID.TabIndex = 115 + Me.txtTransactionID.Text = "1001723285" + Me.txtTransactionID.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'cbxMSEBatchNr + ' + Me.cbxMSEBatchNr._allowedValuesFreiText = Nothing + Me.cbxMSEBatchNr._allowFreiText = True + Me.cbxMSEBatchNr._value = "" + Me.cbxMSEBatchNr.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cbxMSEBatchNr.DropDownWidth = 20 + Me.cbxMSEBatchNr.FormattingEnabled = True + Me.cbxMSEBatchNr.Location = New System.Drawing.Point(30, 156) + Me.cbxMSEBatchNr.Name = "cbxMSEBatchNr" + Me.cbxMSEBatchNr.Size = New System.Drawing.Size(44, 21) + Me.cbxMSEBatchNr.TabIndex = 122 + ' + 'txtBatchNr + ' + Me.txtBatchNr._DateTimeOnly = False + Me.txtBatchNr._numbersOnly = True + Me.txtBatchNr._numbersOnlyKommastellen = "" + Me.txtBatchNr._numbersOnlyTrennzeichen = False + Me.txtBatchNr._Prozent = False + Me.txtBatchNr._ShortDateNew = False + Me.txtBatchNr._ShortDateOnly = False + Me.txtBatchNr._TimeOnly = False + Me.txtBatchNr._TimeOnly_Seconds = False + Me.txtBatchNr._value = "" + Me.txtBatchNr._Waehrung = False + Me.txtBatchNr._WaehrungZeichen = True + Me.txtBatchNr.BackColor = System.Drawing.SystemColors.Window + Me.txtBatchNr.ForeColor = System.Drawing.Color.Red + Me.txtBatchNr.Location = New System.Drawing.Point(81, 156) + Me.txtBatchNr.MaxLength = 10 + Me.txtBatchNr.MaxLineLength = -1 + Me.txtBatchNr.MaxLines_Warning = "" + Me.txtBatchNr.MaxLines_Warning_Label = Nothing + Me.txtBatchNr.Name = "txtBatchNr" + Me.txtBatchNr.Size = New System.Drawing.Size(36, 20) + Me.txtBatchNr.TabIndex = 127 + Me.txtBatchNr.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'txtBatchNrofTransaction + ' + Me.txtBatchNrofTransaction._DateTimeOnly = False + Me.txtBatchNrofTransaction._numbersOnly = True + Me.txtBatchNrofTransaction._numbersOnlyKommastellen = "" + Me.txtBatchNrofTransaction._numbersOnlyTrennzeichen = False + Me.txtBatchNrofTransaction._Prozent = False + Me.txtBatchNrofTransaction._ShortDateNew = False + Me.txtBatchNrofTransaction._ShortDateOnly = False + Me.txtBatchNrofTransaction._TimeOnly = False + Me.txtBatchNrofTransaction._TimeOnly_Seconds = False + Me.txtBatchNrofTransaction._value = "" + Me.txtBatchNrofTransaction._Waehrung = False + Me.txtBatchNrofTransaction._WaehrungZeichen = True + Me.txtBatchNrofTransaction.BackColor = System.Drawing.SystemColors.Window + Me.txtBatchNrofTransaction.ForeColor = System.Drawing.Color.Red + Me.txtBatchNrofTransaction.Location = New System.Drawing.Point(177, 207) + Me.txtBatchNrofTransaction.MaxLength = 10 + Me.txtBatchNrofTransaction.MaxLineLength = -1 + Me.txtBatchNrofTransaction.MaxLines_Warning = "" + Me.txtBatchNrofTransaction.MaxLines_Warning_Label = Nothing + Me.txtBatchNrofTransaction.Name = "txtBatchNrofTransaction" + Me.txtBatchNrofTransaction.Size = New System.Drawing.Size(36, 20) + Me.txtBatchNrofTransaction.TabIndex = 129 + Me.txtBatchNrofTransaction.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' 'RMC ' Me.RMC.Controls.Add(Me.Label58) @@ -3147,6 +3701,17 @@ Partial Class frmStartOptions Me.TextBox2.TabIndex = 101 Me.TextBox2.Text = "Dateien nach Import von FTP löschen" ' + 'cbxRMC + ' + Me.cbxRMC._allowedValuesFreiText = Nothing + Me.cbxRMC._allowFreiText = False + Me.cbxRMC._value = "" + Me.cbxRMC.FormattingEnabled = True + Me.cbxRMC.Location = New System.Drawing.Point(13, 115) + Me.cbxRMC.Name = "cbxRMC" + Me.cbxRMC.Size = New System.Drawing.Size(80, 21) + Me.cbxRMC.TabIndex = 90 + ' 'UTA ' Me.UTA.Controls.Add(Me.lblBackToCustomer_UTA) @@ -3275,6 +3840,58 @@ Partial Class frmStartOptions Me.lblUTAPDFvollst.TabStop = True Me.lblUTAPDFvollst.Text = "PDF Daten vollständig" ' + 'txtUTAYear + ' + Me.txtUTAYear._DateTimeOnly = False + Me.txtUTAYear._numbersOnly = True + Me.txtUTAYear._numbersOnlyKommastellen = "" + Me.txtUTAYear._numbersOnlyTrennzeichen = False + Me.txtUTAYear._Prozent = False + Me.txtUTAYear._ShortDateNew = False + Me.txtUTAYear._ShortDateOnly = False + Me.txtUTAYear._TimeOnly = False + Me.txtUTAYear._TimeOnly_Seconds = False + Me.txtUTAYear._value = "" + Me.txtUTAYear._Waehrung = False + Me.txtUTAYear._WaehrungZeichen = True + Me.txtUTAYear.BackColor = System.Drawing.SystemColors.Window + Me.txtUTAYear.ForeColor = System.Drawing.Color.Red + Me.txtUTAYear.Location = New System.Drawing.Point(58, 113) + Me.txtUTAYear.MaxLength = 10 + Me.txtUTAYear.MaxLineLength = -1 + Me.txtUTAYear.MaxLines_Warning = "" + Me.txtUTAYear.MaxLines_Warning_Label = Nothing + Me.txtUTAYear.Name = "txtUTAYear" + Me.txtUTAYear.Size = New System.Drawing.Size(66, 20) + Me.txtUTAYear.TabIndex = 133 + Me.txtUTAYear.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'txtUTADate + ' + Me.txtUTADate._DateTimeOnly = False + Me.txtUTADate._numbersOnly = False + Me.txtUTADate._numbersOnlyKommastellen = "" + Me.txtUTADate._numbersOnlyTrennzeichen = False + Me.txtUTADate._Prozent = False + Me.txtUTADate._ShortDateNew = False + Me.txtUTADate._ShortDateOnly = True + Me.txtUTADate._TimeOnly = False + Me.txtUTADate._TimeOnly_Seconds = False + Me.txtUTADate._value = "" + Me.txtUTADate._Waehrung = False + Me.txtUTADate._WaehrungZeichen = True + Me.txtUTADate.BackColor = System.Drawing.SystemColors.Window + Me.txtUTADate.ForeColor = System.Drawing.Color.Red + Me.txtUTADate.Location = New System.Drawing.Point(243, 83) + Me.txtUTADate.MaxLength = 10 + Me.txtUTADate.MaxLineLength = -1 + Me.txtUTADate.MaxLines_Warning = "" + Me.txtUTADate.MaxLines_Warning_Label = Nothing + Me.txtUTADate.Name = "txtUTADate" + Me.txtUTADate.Size = New System.Drawing.Size(66, 20) + Me.txtUTADate.TabIndex = 156 + Me.txtUTADate.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' 'PLOSE ' Me.PLOSE.Controls.Add(Me.lblBackToCustomer_PLOSE) @@ -3391,6 +4008,58 @@ Partial Class frmStartOptions Me.PlosePdfRE.TabStop = True Me.PlosePdfRE.Text = "PDF mit RE verknüpfen" ' + 'txtPloseJahr + ' + Me.txtPloseJahr._DateTimeOnly = False + Me.txtPloseJahr._numbersOnly = True + Me.txtPloseJahr._numbersOnlyKommastellen = "" + Me.txtPloseJahr._numbersOnlyTrennzeichen = False + Me.txtPloseJahr._Prozent = False + Me.txtPloseJahr._ShortDateNew = False + Me.txtPloseJahr._ShortDateOnly = False + Me.txtPloseJahr._TimeOnly = False + Me.txtPloseJahr._TimeOnly_Seconds = False + Me.txtPloseJahr._value = "" + Me.txtPloseJahr._Waehrung = False + Me.txtPloseJahr._WaehrungZeichen = False + Me.txtPloseJahr.BackColor = System.Drawing.SystemColors.Window + Me.txtPloseJahr.ForeColor = System.Drawing.Color.Red + Me.txtPloseJahr.Location = New System.Drawing.Point(342, 52) + Me.txtPloseJahr.MaxLength = 10 + Me.txtPloseJahr.MaxLineLength = -1 + Me.txtPloseJahr.MaxLines_Warning = "" + Me.txtPloseJahr.MaxLines_Warning_Label = Nothing + Me.txtPloseJahr.Name = "txtPloseJahr" + Me.txtPloseJahr.Size = New System.Drawing.Size(66, 20) + Me.txtPloseJahr.TabIndex = 158 + Me.txtPloseJahr.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'txtPLoseKdNr + ' + Me.txtPLoseKdNr._DateTimeOnly = False + Me.txtPLoseKdNr._numbersOnly = True + Me.txtPLoseKdNr._numbersOnlyKommastellen = "" + Me.txtPLoseKdNr._numbersOnlyTrennzeichen = False + Me.txtPLoseKdNr._Prozent = False + Me.txtPLoseKdNr._ShortDateNew = False + Me.txtPLoseKdNr._ShortDateOnly = False + Me.txtPLoseKdNr._TimeOnly = False + Me.txtPLoseKdNr._TimeOnly_Seconds = False + Me.txtPLoseKdNr._value = "" + Me.txtPLoseKdNr._Waehrung = False + Me.txtPLoseKdNr._WaehrungZeichen = False + Me.txtPLoseKdNr.BackColor = System.Drawing.SystemColors.Window + Me.txtPLoseKdNr.ForeColor = System.Drawing.Color.Red + Me.txtPLoseKdNr.Location = New System.Drawing.Point(342, 75) + Me.txtPLoseKdNr.MaxLength = 10 + Me.txtPLoseKdNr.MaxLineLength = -1 + Me.txtPLoseKdNr.MaxLines_Warning = "" + Me.txtPLoseKdNr.MaxLines_Warning_Label = Nothing + Me.txtPLoseKdNr.Name = "txtPLoseKdNr" + Me.txtPLoseKdNr.Size = New System.Drawing.Size(66, 20) + Me.txtPLoseKdNr.TabIndex = 162 + Me.txtPLoseKdNr.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' 'TabPage5 ' Me.TabPage5.Controls.Add(Me.btnCheckPDF_USTVA) @@ -3419,6 +4088,18 @@ Partial Class frmStartOptions Me.TabPage5.Text = "USTVA-Summen" Me.TabPage5.UseVisualStyleBackColor = True ' + 'btnCheckPDF_USTVA + ' + Me.btnCheckPDF_USTVA.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnCheckPDF_USTVA.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.btnCheckPDF_USTVA.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnCheckPDF_USTVA.Location = New System.Drawing.Point(656, 37) + Me.btnCheckPDF_USTVA.Name = "btnCheckPDF_USTVA" + Me.btnCheckPDF_USTVA.Size = New System.Drawing.Size(187, 38) + Me.btnCheckPDF_USTVA.TabIndex = 168 + Me.btnCheckPDF_USTVA.Text = "Check PDF" + Me.btnCheckPDF_USTVA.UseVisualStyleBackColor = True + ' 'cbxPloseNeu ' Me.cbxPloseNeu.AutoSize = True @@ -3625,6 +4306,30 @@ Partial Class frmStartOptions Me.cbxUTANeu.Text = "UTA" Me.cbxUTANeu.UseVisualStyleBackColor = True ' + 'txtKdNr + ' + Me.txtKdNr._DateTimeOnly = False + Me.txtKdNr._numbersOnly = True + Me.txtKdNr._numbersOnlyKommastellen = "" + Me.txtKdNr._numbersOnlyTrennzeichen = False + Me.txtKdNr._Prozent = False + Me.txtKdNr._ShortDateNew = False + Me.txtKdNr._ShortDateOnly = False + Me.txtKdNr._TimeOnly = False + Me.txtKdNr._TimeOnly_Seconds = False + Me.txtKdNr._value = "" + Me.txtKdNr._Waehrung = False + Me.txtKdNr._WaehrungZeichen = True + Me.txtKdNr.ForeColor = System.Drawing.Color.Black + Me.txtKdNr.Location = New System.Drawing.Point(77, 69) + Me.txtKdNr.MaxLength = 50 + Me.txtKdNr.MaxLineLength = -1 + Me.txtKdNr.MaxLines_Warning = "" + Me.txtKdNr.MaxLines_Warning_Label = Nothing + Me.txtKdNr.Name = "txtKdNr" + Me.txtKdNr.Size = New System.Drawing.Size(136, 20) + Me.txtKdNr.TabIndex = 95 + ' 'TabPage8 ' Me.TabPage8.Controls.Add(Me.PictureBox27) @@ -3668,6 +4373,15 @@ Partial Class frmStartOptions Me.dtp_MDM_Einarbeitung.Size = New System.Drawing.Size(77, 20) Me.dtp_MDM_Einarbeitung.TabIndex = 1 ' + 'dgv_MDMEinarbeitung + ' + Me.dgv_MDMEinarbeitung.AKTUALISIERUNGS_INTERVALL = -1 + Me.dgv_MDMEinarbeitung.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.dgv_MDMEinarbeitung.Location = New System.Drawing.Point(13, 35) + Me.dgv_MDMEinarbeitung.Name = "dgv_MDMEinarbeitung" + Me.dgv_MDMEinarbeitung.Size = New System.Drawing.Size(458, 170) + Me.dgv_MDMEinarbeitung.TabIndex = 0 + ' 'KN8_DESTAT ' Me.KN8_DESTAT.AutoSize = True @@ -3772,6 +4486,30 @@ Partial Class frmStartOptions Me.lblWartungen.TabIndex = 15 Me.lblWartungen.Text = "Wartungen" ' + 'txtWartungFaelligkeitAbDat + ' + Me.txtWartungFaelligkeitAbDat._DateTimeOnly = False + Me.txtWartungFaelligkeitAbDat._numbersOnly = False + Me.txtWartungFaelligkeitAbDat._numbersOnlyKommastellen = "" + Me.txtWartungFaelligkeitAbDat._numbersOnlyTrennzeichen = True + Me.txtWartungFaelligkeitAbDat._Prozent = False + Me.txtWartungFaelligkeitAbDat._ShortDateNew = True + Me.txtWartungFaelligkeitAbDat._ShortDateOnly = False + Me.txtWartungFaelligkeitAbDat._TimeOnly = False + Me.txtWartungFaelligkeitAbDat._TimeOnly_Seconds = False + Me.txtWartungFaelligkeitAbDat._value = "" + Me.txtWartungFaelligkeitAbDat._Waehrung = False + Me.txtWartungFaelligkeitAbDat._WaehrungZeichen = True + Me.txtWartungFaelligkeitAbDat.ForeColor = System.Drawing.Color.Red + Me.txtWartungFaelligkeitAbDat.Location = New System.Drawing.Point(75, 76) + Me.txtWartungFaelligkeitAbDat.MaxLength = 10 + Me.txtWartungFaelligkeitAbDat.MaxLineLength = -1 + Me.txtWartungFaelligkeitAbDat.MaxLines_Warning = "" + Me.txtWartungFaelligkeitAbDat.MaxLines_Warning_Label = Nothing + Me.txtWartungFaelligkeitAbDat.Name = "txtWartungFaelligkeitAbDat" + Me.txtWartungFaelligkeitAbDat.Size = New System.Drawing.Size(101, 20) + Me.txtWartungFaelligkeitAbDat.TabIndex = 141 + ' 'TabPage7 ' Me.TabPage7.Controls.Add(Me.cbxEventtriggered) @@ -3980,26 +4718,32 @@ Partial Class frmStartOptions Me.btnCreditsaveLauf.Text = "CS Portfolio-Upload" Me.btnCreditsaveLauf.UseVisualStyleBackColor = True ' - 'CheckBox2 + 'txtCSDate ' - Me.CheckBox2.AutoSize = True - Me.CheckBox2.Location = New System.Drawing.Point(302, 175) - Me.CheckBox2.Name = "CheckBox2" - Me.CheckBox2.Size = New System.Drawing.Size(98, 17) - Me.CheckBox2.TabIndex = 13 - Me.CheckBox2.Text = "History (7Tage)" - Me.CheckBox2.UseVisualStyleBackColor = True - ' - 'LinkLabel25 - ' - Me.LinkLabel25.AutoSize = True - Me.LinkLabel25.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.LinkLabel25.Location = New System.Drawing.Point(299, 159) - Me.LinkLabel25.Name = "LinkLabel25" - Me.LinkLabel25.Size = New System.Drawing.Size(99, 13) - Me.LinkLabel25.TabIndex = 12 - Me.LinkLabel25.TabStop = True - Me.LinkLabel25.Text = "ZOLARIS Anhänge" + Me.txtCSDate._DateTimeOnly = False + Me.txtCSDate._numbersOnly = False + Me.txtCSDate._numbersOnlyKommastellen = "" + Me.txtCSDate._numbersOnlyTrennzeichen = False + Me.txtCSDate._Prozent = False + Me.txtCSDate._ShortDateNew = False + Me.txtCSDate._ShortDateOnly = True + Me.txtCSDate._TimeOnly = False + Me.txtCSDate._TimeOnly_Seconds = False + Me.txtCSDate._value = "" + Me.txtCSDate._Waehrung = False + Me.txtCSDate._WaehrungZeichen = True + Me.txtCSDate.BackColor = System.Drawing.SystemColors.Window + Me.txtCSDate.Enabled = False + Me.txtCSDate.ForeColor = System.Drawing.Color.Red + Me.txtCSDate.Location = New System.Drawing.Point(96, 174) + Me.txtCSDate.MaxLength = 10 + Me.txtCSDate.MaxLineLength = -1 + Me.txtCSDate.MaxLines_Warning = "" + Me.txtCSDate.MaxLines_Warning_Label = Nothing + Me.txtCSDate.Name = "txtCSDate" + Me.txtCSDate.Size = New System.Drawing.Size(66, 20) + Me.txtCSDate.TabIndex = 157 + Me.txtCSDate.TextAlign = System.Windows.Forms.HorizontalAlignment.Center ' 'CheckBox1 ' @@ -4058,6 +4802,30 @@ Partial Class frmStartOptions Me.Label3.TabIndex = 14 Me.Label3.Text = "Routine Manager IMEX" ' + 'MyTextBox1 + ' + Me.MyTextBox1._DateTimeOnly = False + Me.MyTextBox1._numbersOnly = True + Me.MyTextBox1._numbersOnlyKommastellen = "" + Me.MyTextBox1._numbersOnlyTrennzeichen = True + Me.MyTextBox1._Prozent = False + Me.MyTextBox1._ShortDateNew = False + Me.MyTextBox1._ShortDateOnly = False + Me.MyTextBox1._TimeOnly = False + Me.MyTextBox1._TimeOnly_Seconds = False + Me.MyTextBox1._value = "100000" + Me.MyTextBox1._Waehrung = False + Me.MyTextBox1._WaehrungZeichen = True + Me.MyTextBox1.ForeColor = System.Drawing.Color.Black + Me.MyTextBox1.Location = New System.Drawing.Point(151, 156) + 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 = "100000" + ' 'PictureBox12 ' Me.PictureBox12.BackgroundImage = CType(resources.GetObject("PictureBox12.BackgroundImage"), System.Drawing.Image) @@ -4226,816 +4994,6 @@ Partial Class frmStartOptions Me.lblRoutineManager.TabIndex = 1 Me.lblRoutineManager.Text = "Routine Manager" ' - 'Button21 - ' - Me.Button21.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button21.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.Button21.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.Button21.Location = New System.Drawing.Point(581, 346) - Me.Button21.Name = "Button21" - Me.Button21.Size = New System.Drawing.Size(211, 24) - Me.Button21.TabIndex = 81 - Me.Button21.Text = "AAS Sendung 24h" - Me.Button21.UseVisualStyleBackColor = True - ' - 'MyTextBox3 - ' - Me.MyTextBox3._DateTimeOnly = False - Me.MyTextBox3._numbersOnly = True - Me.MyTextBox3._numbersOnlyKommastellen = "" - Me.MyTextBox3._numbersOnlyTrennzeichen = True - Me.MyTextBox3._Prozent = False - Me.MyTextBox3._ShortDateNew = False - Me.MyTextBox3._ShortDateOnly = False - Me.MyTextBox3._TimeOnly = False - Me.MyTextBox3._TimeOnly_Seconds = False - Me.MyTextBox3._value = "" - Me.MyTextBox3._Waehrung = False - Me.MyTextBox3._WaehrungZeichen = True - Me.MyTextBox3.ForeColor = System.Drawing.Color.Red - Me.MyTextBox3.Location = New System.Drawing.Point(127, 232) - Me.MyTextBox3.MaxLineLength = -1 - Me.MyTextBox3.MaxLines_Warning = "" - Me.MyTextBox3.MaxLines_Warning_Label = Nothing - Me.MyTextBox3.Name = "MyTextBox3" - Me.MyTextBox3.Size = New System.Drawing.Size(53, 20) - Me.MyTextBox3.TabIndex = 86 - ' - 'MyTextBox2 - ' - Me.MyTextBox2._DateTimeOnly = False - Me.MyTextBox2._numbersOnly = True - Me.MyTextBox2._numbersOnlyKommastellen = "" - Me.MyTextBox2._numbersOnlyTrennzeichen = True - Me.MyTextBox2._Prozent = False - Me.MyTextBox2._ShortDateNew = False - Me.MyTextBox2._ShortDateOnly = False - Me.MyTextBox2._TimeOnly = False - Me.MyTextBox2._TimeOnly_Seconds = False - Me.MyTextBox2._value = "" - Me.MyTextBox2._Waehrung = False - Me.MyTextBox2._WaehrungZeichen = True - Me.MyTextBox2.ForeColor = System.Drawing.Color.Red - Me.MyTextBox2.Location = New System.Drawing.Point(151, 176) - Me.MyTextBox2.MaxLineLength = -1 - Me.MyTextBox2.MaxLines_Warning = "" - Me.MyTextBox2.MaxLines_Warning_Label = Nothing - Me.MyTextBox2.Name = "MyTextBox2" - Me.MyTextBox2.Size = New System.Drawing.Size(53, 20) - Me.MyTextBox2.TabIndex = 63 - ' - 'txtSyskaWdhDateiname - ' - Me.txtSyskaWdhDateiname._DateTimeOnly = False - Me.txtSyskaWdhDateiname._numbersOnly = False - Me.txtSyskaWdhDateiname._numbersOnlyKommastellen = "" - Me.txtSyskaWdhDateiname._numbersOnlyTrennzeichen = True - Me.txtSyskaWdhDateiname._Prozent = False - Me.txtSyskaWdhDateiname._ShortDateNew = False - Me.txtSyskaWdhDateiname._ShortDateOnly = False - Me.txtSyskaWdhDateiname._TimeOnly = False - Me.txtSyskaWdhDateiname._TimeOnly_Seconds = False - Me.txtSyskaWdhDateiname._value = "" - Me.txtSyskaWdhDateiname._Waehrung = False - Me.txtSyskaWdhDateiname._WaehrungZeichen = True - Me.txtSyskaWdhDateiname.ForeColor = System.Drawing.Color.Black - Me.txtSyskaWdhDateiname.Location = New System.Drawing.Point(692, 318) - Me.txtSyskaWdhDateiname.MaxLength = 50 - Me.txtSyskaWdhDateiname.MaxLineLength = -1 - Me.txtSyskaWdhDateiname.MaxLines_Warning = "" - Me.txtSyskaWdhDateiname.MaxLines_Warning_Label = Nothing - Me.txtSyskaWdhDateiname.Name = "txtSyskaWdhDateiname" - Me.txtSyskaWdhDateiname.Size = New System.Drawing.Size(136, 20) - Me.txtSyskaWdhDateiname.TabIndex = 58 - ' - 'txtEZOLLAnhDat - ' - Me.txtEZOLLAnhDat._DateTimeOnly = False - Me.txtEZOLLAnhDat._numbersOnly = False - Me.txtEZOLLAnhDat._numbersOnlyKommastellen = "" - Me.txtEZOLLAnhDat._numbersOnlyTrennzeichen = True - Me.txtEZOLLAnhDat._Prozent = False - Me.txtEZOLLAnhDat._ShortDateNew = True - Me.txtEZOLLAnhDat._ShortDateOnly = False - Me.txtEZOLLAnhDat._TimeOnly = False - Me.txtEZOLLAnhDat._TimeOnly_Seconds = False - Me.txtEZOLLAnhDat._value = "" - Me.txtEZOLLAnhDat._Waehrung = False - Me.txtEZOLLAnhDat._WaehrungZeichen = True - Me.txtEZOLLAnhDat.ForeColor = System.Drawing.Color.Black - Me.txtEZOLLAnhDat.Location = New System.Drawing.Point(408, 214) - Me.txtEZOLLAnhDat.MaxLength = 10 - Me.txtEZOLLAnhDat.MaxLineLength = -1 - Me.txtEZOLLAnhDat.MaxLines_Warning = "" - Me.txtEZOLLAnhDat.MaxLines_Warning_Label = Nothing - Me.txtEZOLLAnhDat.Name = "txtEZOLLAnhDat" - Me.txtEZOLLAnhDat.Size = New System.Drawing.Size(87, 20) - Me.txtEZOLLAnhDat.TabIndex = 55 - ' - 'cboSYSKAFirma - ' - Me.cboSYSKAFirma._allowedValuesFreiText = Nothing - Me.cboSYSKAFirma._allowFreiText = False - Me.cboSYSKAFirma._value = "" - Me.cboSYSKAFirma.FormattingEnabled = True - Me.cboSYSKAFirma.Location = New System.Drawing.Point(564, 299) - 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, 300) - Me.cboBMDUnispedFirma.Name = "cboBMDUnispedFirma" - Me.cboBMDUnispedFirma.Size = New System.Drawing.Size(124, 21) - Me.cboBMDUnispedFirma.TabIndex = 42 - ' - 'MyTextBox4 - ' - Me.MyTextBox4._DateTimeOnly = False - Me.MyTextBox4._numbersOnly = False - Me.MyTextBox4._numbersOnlyKommastellen = "" - Me.MyTextBox4._numbersOnlyTrennzeichen = True - Me.MyTextBox4._Prozent = False - Me.MyTextBox4._ShortDateNew = True - Me.MyTextBox4._ShortDateOnly = False - Me.MyTextBox4._TimeOnly = False - Me.MyTextBox4._TimeOnly_Seconds = False - Me.MyTextBox4._value = "" - Me.MyTextBox4._Waehrung = False - Me.MyTextBox4._WaehrungZeichen = True - Me.MyTextBox4.ForeColor = System.Drawing.Color.Black - Me.MyTextBox4.Location = New System.Drawing.Point(775, 277) - Me.MyTextBox4.MaxLength = 10 - Me.MyTextBox4.MaxLineLength = -1 - Me.MyTextBox4.MaxLines_Warning = "" - Me.MyTextBox4.MaxLines_Warning_Label = Nothing - Me.MyTextBox4.Name = "MyTextBox4" - Me.MyTextBox4.Size = New System.Drawing.Size(80, 20) - Me.MyTextBox4.TabIndex = 90 - ' - 'dgvMRN - ' - Me.dgvMRN.AKTUALISIERUNGS_INTERVALL = -1 - Me.dgvMRN.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - Me.dgvMRN.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.clmnMRN}) - Me.dgvMRN.Location = New System.Drawing.Point(637, 63) - Me.dgvMRN.Name = "dgvMRN" - Me.dgvMRN.RowHeadersWidth = 62 - Me.dgvMRN.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect - Me.dgvMRN.Size = New System.Drawing.Size(207, 134) - Me.dgvMRN.TabIndex = 75 - ' - 'clmnMRN - ' - Me.clmnMRN.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill - Me.clmnMRN.HeaderText = "MRN" - Me.clmnMRN.MinimumWidth = 8 - Me.clmnMRN.Name = "clmnMRN" - ' - 'txtVRGOut_MRN - ' - Me.txtVRGOut_MRN._DateTimeOnly = False - Me.txtVRGOut_MRN._numbersOnly = False - Me.txtVRGOut_MRN._numbersOnlyKommastellen = "" - Me.txtVRGOut_MRN._numbersOnlyTrennzeichen = True - Me.txtVRGOut_MRN._Prozent = False - Me.txtVRGOut_MRN._ShortDateNew = False - Me.txtVRGOut_MRN._ShortDateOnly = False - Me.txtVRGOut_MRN._TimeOnly = False - Me.txtVRGOut_MRN._TimeOnly_Seconds = False - Me.txtVRGOut_MRN._value = "" - Me.txtVRGOut_MRN._Waehrung = False - Me.txtVRGOut_MRN._WaehrungZeichen = False - Me.txtVRGOut_MRN.ForeColor = System.Drawing.Color.Red - Me.txtVRGOut_MRN.Location = New System.Drawing.Point(359, 84) - Me.txtVRGOut_MRN.MaxLineLength = -1 - Me.txtVRGOut_MRN.MaxLines_Warning = "" - Me.txtVRGOut_MRN.MaxLines_Warning_Label = Nothing - Me.txtVRGOut_MRN.Name = "txtVRGOut_MRN" - Me.txtVRGOut_MRN.Size = New System.Drawing.Size(153, 20) - Me.txtVRGOut_MRN.TabIndex = 73 - ' - 'txtVRGOut_FilialenNr - ' - Me.txtVRGOut_FilialenNr._DateTimeOnly = False - Me.txtVRGOut_FilialenNr._numbersOnly = False - Me.txtVRGOut_FilialenNr._numbersOnlyKommastellen = "" - Me.txtVRGOut_FilialenNr._numbersOnlyTrennzeichen = True - Me.txtVRGOut_FilialenNr._Prozent = False - Me.txtVRGOut_FilialenNr._ShortDateNew = False - Me.txtVRGOut_FilialenNr._ShortDateOnly = False - Me.txtVRGOut_FilialenNr._TimeOnly = False - Me.txtVRGOut_FilialenNr._TimeOnly_Seconds = 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._numbersOnlyTrennzeichen = True - Me.txtVRGOut_AbfertigungsNr._Prozent = False - Me.txtVRGOut_AbfertigungsNr._ShortDateNew = False - Me.txtVRGOut_AbfertigungsNr._ShortDateOnly = False - Me.txtVRGOut_AbfertigungsNr._TimeOnly = False - Me.txtVRGOut_AbfertigungsNr._TimeOnly_Seconds = 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._numbersOnlyTrennzeichen = True - Me.txtVRGOutEZA_BezugsNr._Prozent = False - Me.txtVRGOutEZA_BezugsNr._ShortDateNew = False - Me.txtVRGOutEZA_BezugsNr._ShortDateOnly = False - Me.txtVRGOutEZA_BezugsNr._TimeOnly = False - Me.txtVRGOutEZA_BezugsNr._TimeOnly_Seconds = 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._numbersOnlyTrennzeichen = True - Me.txtVRGOut_BezugsNr._Prozent = False - Me.txtVRGOut_BezugsNr._ShortDateNew = False - Me.txtVRGOut_BezugsNr._ShortDateOnly = False - Me.txtVRGOut_BezugsNr._TimeOnly = False - Me.txtVRGOut_BezugsNr._TimeOnly_Seconds = 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 - ' - 'cboTCAPI_Firma - ' - Me.cboTCAPI_Firma._allowedValuesFreiText = Nothing - Me.cboTCAPI_Firma._allowFreiText = False - Me.cboTCAPI_Firma._value = "" - Me.cboTCAPI_Firma.FormattingEnabled = True - Me.cboTCAPI_Firma.Items.AddRange(New Object() {"ALLE", "ATILLA", "IMEX", "DURMAZ"}) - Me.cboTCAPI_Firma.Location = New System.Drawing.Point(570, 381) - Me.cboTCAPI_Firma.Name = "cboTCAPI_Firma" - Me.cboTCAPI_Firma.Size = New System.Drawing.Size(88, 21) - Me.cboTCAPI_Firma.TabIndex = 152 - Me.cboTCAPI_Firma.Text = "ALLE" - ' - 'MyTextBox06 - ' - Me.MyTextBox06._DateTimeOnly = False - Me.MyTextBox06._numbersOnly = False - Me.MyTextBox06._numbersOnlyKommastellen = "" - Me.MyTextBox06._numbersOnlyTrennzeichen = False - Me.MyTextBox06._Prozent = False - Me.MyTextBox06._ShortDateNew = False - Me.MyTextBox06._ShortDateOnly = False - Me.MyTextBox06._TimeOnly = False - Me.MyTextBox06._TimeOnly_Seconds = False - Me.MyTextBox06._value = "200" - Me.MyTextBox06._Waehrung = False - Me.MyTextBox06._WaehrungZeichen = False - Me.MyTextBox06.ForeColor = System.Drawing.Color.Black - Me.MyTextBox06.Location = New System.Drawing.Point(583, 302) - Me.MyTextBox06.MaxLength = 18 - Me.MyTextBox06.MaxLineLength = -1 - Me.MyTextBox06.MaxLines_Warning = "" - Me.MyTextBox06.MaxLines_Warning_Label = Nothing - Me.MyTextBox06.Name = "MyTextBox06" - Me.MyTextBox06.Size = New System.Drawing.Size(150, 20) - Me.MyTextBox06.TabIndex = 148 - Me.MyTextBox06.Text = "200" - ' - 'txtCheckATEZMRN - ' - Me.txtCheckATEZMRN._DateTimeOnly = False - Me.txtCheckATEZMRN._numbersOnly = False - Me.txtCheckATEZMRN._numbersOnlyKommastellen = "" - Me.txtCheckATEZMRN._numbersOnlyTrennzeichen = False - Me.txtCheckATEZMRN._Prozent = False - Me.txtCheckATEZMRN._ShortDateNew = False - Me.txtCheckATEZMRN._ShortDateOnly = False - Me.txtCheckATEZMRN._TimeOnly = False - Me.txtCheckATEZMRN._TimeOnly_Seconds = False - Me.txtCheckATEZMRN._value = "" - Me.txtCheckATEZMRN._Waehrung = False - Me.txtCheckATEZMRN._WaehrungZeichen = False - Me.txtCheckATEZMRN.ForeColor = System.Drawing.Color.Black - Me.txtCheckATEZMRN.Location = New System.Drawing.Point(548, 272) - Me.txtCheckATEZMRN.MaxLength = 18 - Me.txtCheckATEZMRN.MaxLineLength = -1 - Me.txtCheckATEZMRN.MaxLines_Warning = "" - Me.txtCheckATEZMRN.MaxLines_Warning_Label = Nothing - Me.txtCheckATEZMRN.Name = "txtCheckATEZMRN" - Me.txtCheckATEZMRN.Size = New System.Drawing.Size(185, 20) - Me.txtCheckATEZMRN.TabIndex = 139 - ' - 'datTranscodeBis - ' - Me.datTranscodeBis._DateTimeOnly = False - Me.datTranscodeBis._numbersOnly = False - Me.datTranscodeBis._numbersOnlyKommastellen = "" - Me.datTranscodeBis._numbersOnlyTrennzeichen = True - Me.datTranscodeBis._Prozent = False - Me.datTranscodeBis._ShortDateNew = True - Me.datTranscodeBis._ShortDateOnly = False - Me.datTranscodeBis._TimeOnly = False - Me.datTranscodeBis._TimeOnly_Seconds = False - Me.datTranscodeBis._value = "" - Me.datTranscodeBis._Waehrung = False - Me.datTranscodeBis._WaehrungZeichen = True - Me.datTranscodeBis.ForeColor = System.Drawing.Color.Black - Me.datTranscodeBis.Location = New System.Drawing.Point(646, 245) - Me.datTranscodeBis.MaxLength = 10 - Me.datTranscodeBis.MaxLineLength = -1 - Me.datTranscodeBis.MaxLines_Warning = "" - Me.datTranscodeBis.MaxLines_Warning_Label = Nothing - Me.datTranscodeBis.Name = "datTranscodeBis" - Me.datTranscodeBis.Size = New System.Drawing.Size(87, 20) - Me.datTranscodeBis.TabIndex = 143 - ' - 'datTranscodeVon - ' - Me.datTranscodeVon._DateTimeOnly = False - Me.datTranscodeVon._numbersOnly = False - Me.datTranscodeVon._numbersOnlyKommastellen = "" - Me.datTranscodeVon._numbersOnlyTrennzeichen = True - Me.datTranscodeVon._Prozent = False - Me.datTranscodeVon._ShortDateNew = True - Me.datTranscodeVon._ShortDateOnly = False - Me.datTranscodeVon._TimeOnly = False - Me.datTranscodeVon._TimeOnly_Seconds = False - Me.datTranscodeVon._value = "" - Me.datTranscodeVon._Waehrung = False - Me.datTranscodeVon._WaehrungZeichen = True - Me.datTranscodeVon.ForeColor = System.Drawing.Color.Black - Me.datTranscodeVon.Location = New System.Drawing.Point(548, 245) - Me.datTranscodeVon.MaxLength = 10 - Me.datTranscodeVon.MaxLineLength = -1 - Me.datTranscodeVon.MaxLines_Warning = "" - Me.datTranscodeVon.MaxLines_Warning_Label = Nothing - Me.datTranscodeVon.Name = "datTranscodeVon" - Me.datTranscodeVon.Size = New System.Drawing.Size(87, 20) - Me.datTranscodeVon.TabIndex = 142 - ' - 'txtTWLNr - ' - Me.txtTWLNr._DateTimeOnly = False - Me.txtTWLNr._numbersOnly = True - Me.txtTWLNr._numbersOnlyKommastellen = "" - Me.txtTWLNr._numbersOnlyTrennzeichen = False - Me.txtTWLNr._Prozent = False - Me.txtTWLNr._ShortDateNew = False - Me.txtTWLNr._ShortDateOnly = False - Me.txtTWLNr._TimeOnly = False - Me.txtTWLNr._TimeOnly_Seconds = False - Me.txtTWLNr._value = "" - Me.txtTWLNr._Waehrung = False - Me.txtTWLNr._WaehrungZeichen = True - Me.txtTWLNr.ForeColor = System.Drawing.Color.Red - Me.txtTWLNr.Location = New System.Drawing.Point(168, 152) - Me.txtTWLNr.MaxLineLength = -1 - Me.txtTWLNr.MaxLines_Warning = "" - Me.txtTWLNr.MaxLines_Warning_Label = Nothing - Me.txtTWLNr.Name = "txtTWLNr" - Me.txtTWLNr.ReadOnly = True - Me.txtTWLNr.Size = New System.Drawing.Size(53, 20) - Me.txtTWLNr.TabIndex = 78 - ' - 'txtTBLNr - ' - Me.txtTBLNr._DateTimeOnly = False - Me.txtTBLNr._numbersOnly = True - Me.txtTBLNr._numbersOnlyKommastellen = "" - Me.txtTBLNr._numbersOnlyTrennzeichen = False - Me.txtTBLNr._Prozent = False - Me.txtTBLNr._ShortDateNew = False - Me.txtTBLNr._ShortDateOnly = False - Me.txtTBLNr._TimeOnly = False - Me.txtTBLNr._TimeOnly_Seconds = False - Me.txtTBLNr._value = "" - Me.txtTBLNr._Waehrung = False - Me.txtTBLNr._WaehrungZeichen = True - Me.txtTBLNr.ForeColor = System.Drawing.Color.Red - Me.txtTBLNr.Location = New System.Drawing.Point(168, 180) - Me.txtTBLNr.MaxLineLength = -1 - Me.txtTBLNr.MaxLines_Warning = "" - Me.txtTBLNr.MaxLines_Warning_Label = Nothing - Me.txtTBLNr.Name = "txtTBLNr" - Me.txtTBLNr.ReadOnly = True - Me.txtTBLNr.Size = New System.Drawing.Size(53, 20) - Me.txtTBLNr.TabIndex = 79 - ' - 'txtIDSYear - ' - Me.txtIDSYear._DateTimeOnly = False - Me.txtIDSYear._numbersOnly = True - Me.txtIDSYear._numbersOnlyKommastellen = "" - Me.txtIDSYear._numbersOnlyTrennzeichen = False - Me.txtIDSYear._Prozent = False - Me.txtIDSYear._ShortDateNew = False - Me.txtIDSYear._ShortDateOnly = False - Me.txtIDSYear._TimeOnly = False - Me.txtIDSYear._TimeOnly_Seconds = False - Me.txtIDSYear._value = "" - Me.txtIDSYear._Waehrung = False - Me.txtIDSYear._WaehrungZeichen = True - Me.txtIDSYear.BackColor = System.Drawing.SystemColors.Window - Me.txtIDSYear.ForeColor = System.Drawing.Color.Red - Me.txtIDSYear.Location = New System.Drawing.Point(12, 61) - Me.txtIDSYear.MaxLength = 10 - Me.txtIDSYear.MaxLineLength = -1 - Me.txtIDSYear.MaxLines_Warning = "" - Me.txtIDSYear.MaxLines_Warning_Label = Nothing - Me.txtIDSYear.Name = "txtIDSYear" - Me.txtIDSYear.Size = New System.Drawing.Size(66, 20) - Me.txtIDSYear.TabIndex = 155 - Me.txtIDSYear.TextAlign = System.Windows.Forms.HorizontalAlignment.Center - ' - 'txtTransactionID - ' - Me.txtTransactionID._DateTimeOnly = False - Me.txtTransactionID._numbersOnly = True - Me.txtTransactionID._numbersOnlyKommastellen = "" - Me.txtTransactionID._numbersOnlyTrennzeichen = False - Me.txtTransactionID._Prozent = False - Me.txtTransactionID._ShortDateNew = False - Me.txtTransactionID._ShortDateOnly = False - Me.txtTransactionID._TimeOnly = False - Me.txtTransactionID._TimeOnly_Seconds = False - Me.txtTransactionID._value = "" - Me.txtTransactionID._Waehrung = False - Me.txtTransactionID._WaehrungZeichen = True - Me.txtTransactionID.BackColor = System.Drawing.SystemColors.Window - Me.txtTransactionID.ForeColor = System.Drawing.Color.Black - Me.txtTransactionID.Location = New System.Drawing.Point(41, 207) - Me.txtTransactionID.MaxLength = 10 - Me.txtTransactionID.MaxLineLength = -1 - Me.txtTransactionID.MaxLines_Warning = "" - Me.txtTransactionID.MaxLines_Warning_Label = Nothing - Me.txtTransactionID.Name = "txtTransactionID" - Me.txtTransactionID.Size = New System.Drawing.Size(85, 20) - Me.txtTransactionID.TabIndex = 115 - Me.txtTransactionID.Text = "1001723285" - Me.txtTransactionID.TextAlign = System.Windows.Forms.HorizontalAlignment.Center - ' - 'cbxMSEBatchNr - ' - Me.cbxMSEBatchNr._allowedValuesFreiText = Nothing - Me.cbxMSEBatchNr._allowFreiText = True - Me.cbxMSEBatchNr._value = "" - Me.cbxMSEBatchNr.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList - Me.cbxMSEBatchNr.DropDownWidth = 20 - Me.cbxMSEBatchNr.FormattingEnabled = True - Me.cbxMSEBatchNr.Location = New System.Drawing.Point(30, 156) - Me.cbxMSEBatchNr.Name = "cbxMSEBatchNr" - Me.cbxMSEBatchNr.Size = New System.Drawing.Size(44, 21) - Me.cbxMSEBatchNr.TabIndex = 122 - ' - 'txtBatchNr - ' - Me.txtBatchNr._DateTimeOnly = False - Me.txtBatchNr._numbersOnly = True - Me.txtBatchNr._numbersOnlyKommastellen = "" - Me.txtBatchNr._numbersOnlyTrennzeichen = False - Me.txtBatchNr._Prozent = False - Me.txtBatchNr._ShortDateNew = False - Me.txtBatchNr._ShortDateOnly = False - Me.txtBatchNr._TimeOnly = False - Me.txtBatchNr._TimeOnly_Seconds = False - Me.txtBatchNr._value = "" - Me.txtBatchNr._Waehrung = False - Me.txtBatchNr._WaehrungZeichen = True - Me.txtBatchNr.BackColor = System.Drawing.SystemColors.Window - Me.txtBatchNr.ForeColor = System.Drawing.Color.Red - Me.txtBatchNr.Location = New System.Drawing.Point(81, 156) - Me.txtBatchNr.MaxLength = 10 - Me.txtBatchNr.MaxLineLength = -1 - Me.txtBatchNr.MaxLines_Warning = "" - Me.txtBatchNr.MaxLines_Warning_Label = Nothing - Me.txtBatchNr.Name = "txtBatchNr" - Me.txtBatchNr.Size = New System.Drawing.Size(36, 20) - Me.txtBatchNr.TabIndex = 127 - Me.txtBatchNr.TextAlign = System.Windows.Forms.HorizontalAlignment.Center - ' - 'txtBatchNrofTransaction - ' - Me.txtBatchNrofTransaction._DateTimeOnly = False - Me.txtBatchNrofTransaction._numbersOnly = True - Me.txtBatchNrofTransaction._numbersOnlyKommastellen = "" - Me.txtBatchNrofTransaction._numbersOnlyTrennzeichen = False - Me.txtBatchNrofTransaction._Prozent = False - Me.txtBatchNrofTransaction._ShortDateNew = False - Me.txtBatchNrofTransaction._ShortDateOnly = False - Me.txtBatchNrofTransaction._TimeOnly = False - Me.txtBatchNrofTransaction._TimeOnly_Seconds = False - Me.txtBatchNrofTransaction._value = "" - Me.txtBatchNrofTransaction._Waehrung = False - Me.txtBatchNrofTransaction._WaehrungZeichen = True - Me.txtBatchNrofTransaction.BackColor = System.Drawing.SystemColors.Window - Me.txtBatchNrofTransaction.ForeColor = System.Drawing.Color.Red - Me.txtBatchNrofTransaction.Location = New System.Drawing.Point(177, 207) - Me.txtBatchNrofTransaction.MaxLength = 10 - Me.txtBatchNrofTransaction.MaxLineLength = -1 - Me.txtBatchNrofTransaction.MaxLines_Warning = "" - Me.txtBatchNrofTransaction.MaxLines_Warning_Label = Nothing - Me.txtBatchNrofTransaction.Name = "txtBatchNrofTransaction" - Me.txtBatchNrofTransaction.Size = New System.Drawing.Size(36, 20) - Me.txtBatchNrofTransaction.TabIndex = 129 - Me.txtBatchNrofTransaction.TextAlign = System.Windows.Forms.HorizontalAlignment.Center - ' - 'cbxRMC - ' - Me.cbxRMC._allowedValuesFreiText = Nothing - Me.cbxRMC._allowFreiText = False - Me.cbxRMC._value = "" - Me.cbxRMC.FormattingEnabled = True - Me.cbxRMC.Location = New System.Drawing.Point(13, 115) - Me.cbxRMC.Name = "cbxRMC" - Me.cbxRMC.Size = New System.Drawing.Size(80, 21) - Me.cbxRMC.TabIndex = 90 - ' - 'txtUTAYear - ' - Me.txtUTAYear._DateTimeOnly = False - Me.txtUTAYear._numbersOnly = True - Me.txtUTAYear._numbersOnlyKommastellen = "" - Me.txtUTAYear._numbersOnlyTrennzeichen = False - Me.txtUTAYear._Prozent = False - Me.txtUTAYear._ShortDateNew = False - Me.txtUTAYear._ShortDateOnly = False - Me.txtUTAYear._TimeOnly = False - Me.txtUTAYear._TimeOnly_Seconds = False - Me.txtUTAYear._value = "" - Me.txtUTAYear._Waehrung = False - Me.txtUTAYear._WaehrungZeichen = True - Me.txtUTAYear.BackColor = System.Drawing.SystemColors.Window - Me.txtUTAYear.ForeColor = System.Drawing.Color.Red - Me.txtUTAYear.Location = New System.Drawing.Point(58, 113) - Me.txtUTAYear.MaxLength = 10 - Me.txtUTAYear.MaxLineLength = -1 - Me.txtUTAYear.MaxLines_Warning = "" - Me.txtUTAYear.MaxLines_Warning_Label = Nothing - Me.txtUTAYear.Name = "txtUTAYear" - Me.txtUTAYear.Size = New System.Drawing.Size(66, 20) - Me.txtUTAYear.TabIndex = 133 - Me.txtUTAYear.TextAlign = System.Windows.Forms.HorizontalAlignment.Center - ' - 'txtUTADate - ' - Me.txtUTADate._DateTimeOnly = False - Me.txtUTADate._numbersOnly = False - Me.txtUTADate._numbersOnlyKommastellen = "" - Me.txtUTADate._numbersOnlyTrennzeichen = False - Me.txtUTADate._Prozent = False - Me.txtUTADate._ShortDateNew = False - Me.txtUTADate._ShortDateOnly = True - Me.txtUTADate._TimeOnly = False - Me.txtUTADate._TimeOnly_Seconds = False - Me.txtUTADate._value = "" - Me.txtUTADate._Waehrung = False - Me.txtUTADate._WaehrungZeichen = True - Me.txtUTADate.BackColor = System.Drawing.SystemColors.Window - Me.txtUTADate.ForeColor = System.Drawing.Color.Red - Me.txtUTADate.Location = New System.Drawing.Point(243, 83) - Me.txtUTADate.MaxLength = 10 - Me.txtUTADate.MaxLineLength = -1 - Me.txtUTADate.MaxLines_Warning = "" - Me.txtUTADate.MaxLines_Warning_Label = Nothing - Me.txtUTADate.Name = "txtUTADate" - Me.txtUTADate.Size = New System.Drawing.Size(66, 20) - Me.txtUTADate.TabIndex = 156 - Me.txtUTADate.TextAlign = System.Windows.Forms.HorizontalAlignment.Center - ' - 'txtPloseJahr - ' - Me.txtPloseJahr._DateTimeOnly = False - Me.txtPloseJahr._numbersOnly = True - Me.txtPloseJahr._numbersOnlyKommastellen = "" - Me.txtPloseJahr._numbersOnlyTrennzeichen = False - Me.txtPloseJahr._Prozent = False - Me.txtPloseJahr._ShortDateNew = False - Me.txtPloseJahr._ShortDateOnly = False - Me.txtPloseJahr._TimeOnly = False - Me.txtPloseJahr._TimeOnly_Seconds = False - Me.txtPloseJahr._value = "" - Me.txtPloseJahr._Waehrung = False - Me.txtPloseJahr._WaehrungZeichen = False - Me.txtPloseJahr.BackColor = System.Drawing.SystemColors.Window - Me.txtPloseJahr.ForeColor = System.Drawing.Color.Red - Me.txtPloseJahr.Location = New System.Drawing.Point(342, 52) - Me.txtPloseJahr.MaxLength = 10 - Me.txtPloseJahr.MaxLineLength = -1 - Me.txtPloseJahr.MaxLines_Warning = "" - Me.txtPloseJahr.MaxLines_Warning_Label = Nothing - Me.txtPloseJahr.Name = "txtPloseJahr" - Me.txtPloseJahr.Size = New System.Drawing.Size(66, 20) - Me.txtPloseJahr.TabIndex = 158 - Me.txtPloseJahr.TextAlign = System.Windows.Forms.HorizontalAlignment.Center - ' - 'txtPLoseKdNr - ' - Me.txtPLoseKdNr._DateTimeOnly = False - Me.txtPLoseKdNr._numbersOnly = True - Me.txtPLoseKdNr._numbersOnlyKommastellen = "" - Me.txtPLoseKdNr._numbersOnlyTrennzeichen = False - Me.txtPLoseKdNr._Prozent = False - Me.txtPLoseKdNr._ShortDateNew = False - Me.txtPLoseKdNr._ShortDateOnly = False - Me.txtPLoseKdNr._TimeOnly = False - Me.txtPLoseKdNr._TimeOnly_Seconds = False - Me.txtPLoseKdNr._value = "" - Me.txtPLoseKdNr._Waehrung = False - Me.txtPLoseKdNr._WaehrungZeichen = False - Me.txtPLoseKdNr.BackColor = System.Drawing.SystemColors.Window - Me.txtPLoseKdNr.ForeColor = System.Drawing.Color.Red - Me.txtPLoseKdNr.Location = New System.Drawing.Point(342, 75) - Me.txtPLoseKdNr.MaxLength = 10 - Me.txtPLoseKdNr.MaxLineLength = -1 - Me.txtPLoseKdNr.MaxLines_Warning = "" - Me.txtPLoseKdNr.MaxLines_Warning_Label = Nothing - Me.txtPLoseKdNr.Name = "txtPLoseKdNr" - Me.txtPLoseKdNr.Size = New System.Drawing.Size(66, 20) - Me.txtPLoseKdNr.TabIndex = 162 - Me.txtPLoseKdNr.TextAlign = System.Windows.Forms.HorizontalAlignment.Center - ' - 'txtKdNr - ' - Me.txtKdNr._DateTimeOnly = False - Me.txtKdNr._numbersOnly = True - Me.txtKdNr._numbersOnlyKommastellen = "" - Me.txtKdNr._numbersOnlyTrennzeichen = False - Me.txtKdNr._Prozent = False - Me.txtKdNr._ShortDateNew = False - Me.txtKdNr._ShortDateOnly = False - Me.txtKdNr._TimeOnly = False - Me.txtKdNr._TimeOnly_Seconds = False - Me.txtKdNr._value = "" - Me.txtKdNr._Waehrung = False - Me.txtKdNr._WaehrungZeichen = True - Me.txtKdNr.ForeColor = System.Drawing.Color.Black - Me.txtKdNr.Location = New System.Drawing.Point(77, 69) - Me.txtKdNr.MaxLength = 50 - Me.txtKdNr.MaxLineLength = -1 - Me.txtKdNr.MaxLines_Warning = "" - Me.txtKdNr.MaxLines_Warning_Label = Nothing - Me.txtKdNr.Name = "txtKdNr" - Me.txtKdNr.Size = New System.Drawing.Size(136, 20) - Me.txtKdNr.TabIndex = 95 - ' - 'dgv_MDMEinarbeitung - ' - Me.dgv_MDMEinarbeitung.AKTUALISIERUNGS_INTERVALL = -1 - Me.dgv_MDMEinarbeitung.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - Me.dgv_MDMEinarbeitung.Location = New System.Drawing.Point(13, 35) - Me.dgv_MDMEinarbeitung.Name = "dgv_MDMEinarbeitung" - Me.dgv_MDMEinarbeitung.Size = New System.Drawing.Size(458, 170) - Me.dgv_MDMEinarbeitung.TabIndex = 0 - ' - 'txtWartungFaelligkeitAbDat - ' - Me.txtWartungFaelligkeitAbDat._DateTimeOnly = False - Me.txtWartungFaelligkeitAbDat._numbersOnly = False - Me.txtWartungFaelligkeitAbDat._numbersOnlyKommastellen = "" - Me.txtWartungFaelligkeitAbDat._numbersOnlyTrennzeichen = True - Me.txtWartungFaelligkeitAbDat._Prozent = False - Me.txtWartungFaelligkeitAbDat._ShortDateNew = True - Me.txtWartungFaelligkeitAbDat._ShortDateOnly = False - Me.txtWartungFaelligkeitAbDat._TimeOnly = False - Me.txtWartungFaelligkeitAbDat._TimeOnly_Seconds = False - Me.txtWartungFaelligkeitAbDat._value = "" - Me.txtWartungFaelligkeitAbDat._Waehrung = False - Me.txtWartungFaelligkeitAbDat._WaehrungZeichen = True - Me.txtWartungFaelligkeitAbDat.ForeColor = System.Drawing.Color.Red - Me.txtWartungFaelligkeitAbDat.Location = New System.Drawing.Point(75, 76) - Me.txtWartungFaelligkeitAbDat.MaxLength = 10 - Me.txtWartungFaelligkeitAbDat.MaxLineLength = -1 - Me.txtWartungFaelligkeitAbDat.MaxLines_Warning = "" - Me.txtWartungFaelligkeitAbDat.MaxLines_Warning_Label = Nothing - Me.txtWartungFaelligkeitAbDat.Name = "txtWartungFaelligkeitAbDat" - Me.txtWartungFaelligkeitAbDat.Size = New System.Drawing.Size(101, 20) - Me.txtWartungFaelligkeitAbDat.TabIndex = 141 - ' - 'txtCSDate - ' - Me.txtCSDate._DateTimeOnly = False - Me.txtCSDate._numbersOnly = False - Me.txtCSDate._numbersOnlyKommastellen = "" - Me.txtCSDate._numbersOnlyTrennzeichen = False - Me.txtCSDate._Prozent = False - Me.txtCSDate._ShortDateNew = False - Me.txtCSDate._ShortDateOnly = True - Me.txtCSDate._TimeOnly = False - Me.txtCSDate._TimeOnly_Seconds = False - Me.txtCSDate._value = "" - Me.txtCSDate._Waehrung = False - Me.txtCSDate._WaehrungZeichen = True - Me.txtCSDate.BackColor = System.Drawing.SystemColors.Window - Me.txtCSDate.Enabled = False - Me.txtCSDate.ForeColor = System.Drawing.Color.Red - Me.txtCSDate.Location = New System.Drawing.Point(96, 174) - Me.txtCSDate.MaxLength = 10 - Me.txtCSDate.MaxLineLength = -1 - Me.txtCSDate.MaxLines_Warning = "" - Me.txtCSDate.MaxLines_Warning_Label = Nothing - Me.txtCSDate.Name = "txtCSDate" - Me.txtCSDate.Size = New System.Drawing.Size(66, 20) - Me.txtCSDate.TabIndex = 157 - Me.txtCSDate.TextAlign = System.Windows.Forms.HorizontalAlignment.Center - ' - 'MyTextBox1 - ' - Me.MyTextBox1._DateTimeOnly = False - Me.MyTextBox1._numbersOnly = True - Me.MyTextBox1._numbersOnlyKommastellen = "" - Me.MyTextBox1._numbersOnlyTrennzeichen = True - Me.MyTextBox1._Prozent = False - Me.MyTextBox1._ShortDateNew = False - Me.MyTextBox1._ShortDateOnly = False - Me.MyTextBox1._TimeOnly = False - Me.MyTextBox1._TimeOnly_Seconds = False - Me.MyTextBox1._value = "100000" - Me.MyTextBox1._Waehrung = False - Me.MyTextBox1._WaehrungZeichen = True - Me.MyTextBox1.ForeColor = System.Drawing.Color.Black - Me.MyTextBox1.Location = New System.Drawing.Point(151, 156) - 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 = "100000" - ' 'txtGJ_UNISPED ' Me.txtGJ_UNISPED._DateTimeOnly = False @@ -5060,6 +5018,18 @@ Partial Class frmStartOptions Me.txtGJ_UNISPED.Size = New System.Drawing.Size(53, 20) Me.txtGJ_UNISPED.TabIndex = 68 ' + 'Button21 + ' + Me.Button21.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button21.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.Button21.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button21.Location = New System.Drawing.Point(581, 346) + Me.Button21.Name = "Button21" + Me.Button21.Size = New System.Drawing.Size(211, 24) + Me.Button21.TabIndex = 81 + Me.Button21.Text = "AAS Sendung 24h" + Me.Button21.UseVisualStyleBackColor = True + ' 'DataGridViewTextBoxColumn1 ' Me.DataGridViewTextBoxColumn1.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill @@ -5067,17 +5037,51 @@ Partial Class frmStartOptions Me.DataGridViewTextBoxColumn1.MinimumWidth = 8 Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1" ' - 'btnCheckPDF_USTVA + 'cbxSendEZOLL_INFO ' - Me.btnCheckPDF_USTVA.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnCheckPDF_USTVA.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.btnCheckPDF_USTVA.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnCheckPDF_USTVA.Location = New System.Drawing.Point(656, 37) - Me.btnCheckPDF_USTVA.Name = "btnCheckPDF_USTVA" - Me.btnCheckPDF_USTVA.Size = New System.Drawing.Size(187, 38) - Me.btnCheckPDF_USTVA.TabIndex = 168 - Me.btnCheckPDF_USTVA.Text = "Check PDF" - Me.btnCheckPDF_USTVA.UseVisualStyleBackColor = True + Me.cbxSendEZOLL_INFO.AutoSize = True + Me.cbxSendEZOLL_INFO.Checked = True + Me.cbxSendEZOLL_INFO.CheckState = System.Windows.Forms.CheckState.Checked + Me.cbxSendEZOLL_INFO.Location = New System.Drawing.Point(403, 158) + Me.cbxSendEZOLL_INFO.Name = "cbxSendEZOLL_INFO" + Me.cbxSendEZOLL_INFO.Size = New System.Drawing.Size(134, 17) + Me.cbxSendEZOLL_INFO.TabIndex = 144 + Me.cbxSendEZOLL_INFO.Text = "Sende Mail an Kunden" + Me.cbxSendEZOLL_INFO.UseVisualStyleBackColor = True + ' + 'cbxEZOLLUNISPED + ' + Me.cbxEZOLLUNISPED.AutoSize = True + Me.cbxEZOLLUNISPED.Location = New System.Drawing.Point(319, 158) + Me.cbxEZOLLUNISPED.Name = "cbxEZOLLUNISPED" + Me.cbxEZOLLUNISPED.Size = New System.Drawing.Size(74, 17) + Me.cbxEZOLLUNISPED.TabIndex = 145 + Me.cbxEZOLLUNISPED.Text = "UNISPED" + Me.cbxEZOLLUNISPED.UseVisualStyleBackColor = True + ' + 'btnEZOLL_7days + ' + Me.btnEZOLL_7days.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnEZOLL_7days.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.btnEZOLL_7days.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnEZOLL_7days.Location = New System.Drawing.Point(319, 178) + Me.btnEZOLL_7days.Name = "btnEZOLL_7days" + Me.btnEZOLL_7days.Size = New System.Drawing.Size(103, 24) + Me.btnEZOLL_7days.TabIndex = 146 + Me.btnEZOLL_7days.Text = "History (7 Tage)" + Me.btnEZOLL_7days.UseVisualStyleBackColor = True + ' + 'btnEZOLL_1month + ' + Me.btnEZOLL_1month.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnEZOLL_1month.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.btnEZOLL_1month.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnEZOLL_1month.Location = New System.Drawing.Point(428, 178) + Me.btnEZOLL_1month.Name = "btnEZOLL_1month" + Me.btnEZOLL_1month.Size = New System.Drawing.Size(103, 24) + Me.btnEZOLL_1month.TabIndex = 147 + Me.btnEZOLL_1month.Text = "History (1 Monat)" + Me.btnEZOLL_1month.UseVisualStyleBackColor = True ' 'frmStartOptions ' @@ -5121,6 +5125,7 @@ Partial Class frmStartOptions Me.TabPage2.PerformLayout() CType(Me.PictureBox15, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PictureBox14, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.dgvMRN, System.ComponentModel.ISupportInitialize).EndInit() Me.TabPage3.ResumeLayout(False) Me.TabPage3.PerformLayout() Me.Panel1.ResumeLayout(False) @@ -5149,6 +5154,7 @@ Partial Class frmStartOptions Me.TabPage8.ResumeLayout(False) Me.TabPage8.PerformLayout() CType(Me.PictureBox27, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.dgv_MDMEinarbeitung, System.ComponentModel.ISupportInitialize).EndInit() Me.TabPage6.ResumeLayout(False) Me.TabPage6.PerformLayout() Me.TabPage7.ResumeLayout(False) @@ -5157,8 +5163,6 @@ Partial Class frmStartOptions CType(Me.PictureBox11, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PictureBox10, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PictureBox9, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.dgvMRN, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.dgv_MDMEinarbeitung, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) End Sub @@ -5212,8 +5216,6 @@ Partial Class frmStartOptions Friend WithEvents LinkLabel21 As LinkLabel Friend WithEvents LinkLabel22 As LinkLabel Friend WithEvents Label4 As Label - Friend WithEvents LinkLabel25 As LinkLabel - Friend WithEvents CheckBox2 As CheckBox Friend WithEvents PictureBox13 As PictureBox Friend WithEvents LinkLabel26 As LinkLabel Friend WithEvents tbcntr As TabControl @@ -5245,7 +5247,6 @@ Partial Class frmStartOptions Friend WithEvents LinkLabel29 As LinkLabel Friend WithEvents LinkLabel30 As LinkLabel Friend WithEvents Label11 As Label - Friend WithEvents CheckBox3 As CheckBox Friend WithEvents LinkLabel31 As LinkLabel Friend WithEvents Label12 As Label Friend WithEvents CheckBox4 As CheckBox @@ -5331,7 +5332,6 @@ Partial Class frmStartOptions Friend WithEvents LinkLabel46 As LinkLabel Friend WithEvents LinkLabel47 As LinkLabel Friend WithEvents PictureBox21 As PictureBox - Friend WithEvents LinkLabel48 As LinkLabel Friend WithEvents cbxTestsystem As CheckBox Friend WithEvents cbxTestFTP As CheckBox Friend WithEvents txtTBLNr As VERAG_PROG_ALLGEMEIN.MyTextBox @@ -5519,4 +5519,8 @@ Partial Class frmStartOptions Friend WithEvents PictureBox27 As PictureBox Friend WithEvents Button30 As Button Friend WithEvents btnCheckPDF_USTVA As Button + Friend WithEvents cbxSendEZOLL_INFO As CheckBox + Friend WithEvents cbxEZOLLUNISPED As CheckBox + Friend WithEvents btnEZOLL_1month As Button + Friend WithEvents btnEZOLL_7days As Button End Class diff --git a/initATLASAufschubkonten/frmStartOptions.resx b/initATLASAufschubkonten/frmStartOptions.resx index 06047ac..047aec1 100644 --- a/initATLASAufschubkonten/frmStartOptions.resx +++ b/initATLASAufschubkonten/frmStartOptions.resx @@ -236,6 +236,102 @@ +z1oZ9B6syqzaGEdYX5mdmYqt4qgQDVINcVjocfByBORr63brCulbaW10NVQHYibiNsHbQ+6L24q7oAu RxPAxs8mJG4iDmp1USehIAMuLi4GeXl5NlNTU347OzsRe3t7UWRsZ2cnbG5uzicrK8vKxcVFXOmCD0hK SjJ6enoK1NXVqU6aNMlg2rRpxsh48uTJus3NzYqurq68EhISJGd6ADkzAttxL7feAAAAAElFTkSuQmCC + + + + + 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 + + + + + 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 + + + + + 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 + + + + + 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 @@ -649,6 +745,9 @@ True + + True + iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABGdJREFUSEtj @@ -767,102 +866,6 @@ +z1oZ9B6syqzaGEdYX5mdmYqt4qgQDVINcVjocfByBORr63brCulbaW10NVQHYibiNsHbQ+6L24q7oAu RxPAxs8mJG4iDmp1USehIAMuLi4GeXl5NlNTU347OzsRe3t7UWRsZ2cnbG5uzicrK8vKxcVFXOmCD0hK SjJ6enoK1NXVqU6aNMlg2rRpxsh48uTJus3NzYqurq68EhISJGd6ADkzAttxL7feAAAAAElFTkSuQmCC - - - - - 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 - - - - - 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 - - - - - 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 - - - - - 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 diff --git a/initATLASAufschubkonten/frmStartOptions.vb b/initATLASAufschubkonten/frmStartOptions.vb index 35f36ef..f7b3bb2 100644 --- a/initATLASAufschubkonten/frmStartOptions.vb +++ b/initATLASAufschubkonten/frmStartOptions.vb @@ -690,7 +690,7 @@ Public Class frmStartOptions If fehler <> "" Then API.UPDTAE_ERR("Batch-Nr: " & batchrequestNr & "-" & totalPages, fehler, "getTransactionsFromBatchNrAndPage") closeMe() - Exit Sub + Exit For Else counTrans += dt.Rows.Count End If @@ -930,7 +930,24 @@ Public Class frmStartOptions End Try End Function - Function importFileFromEZOLL(datum As Date) As Boolean + + Private Sub addTODatatable(dtSPEDEintrageAusEinarbeitung_HISTORY As DataTable, Anhaenge As cDHF_Anhaenge, SPEDBUCH_TMP As cSpeditionsbuch, datumImport As Date) + + If SPEDBUCH_TMP IsNot Nothing Then + Dim R As DataRow = dtSPEDEintrageAusEinarbeitung_HISTORY.NewRow + R("FilialNr") = SPEDBUCH_TMP.FilialenNr + R("AbfertigungsNr") = SPEDBUCH_TMP.AbfertigungsNr + R("Abfertigungsdatum") = SPEDBUCH_TMP.Abfertigungsdatum + R("LNR") = Anhaenge.LRN + R("CRN") = Anhaenge.CRN + R("Abfertigungsart") = R("AbfertigungsNr") = SPEDBUCH_TMP.Abfertigungsart + R("Firma") = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA + R("AnhaengeAbDatum") = datumImport.ToShortDateString + dtSPEDEintrageAusEinarbeitung_HISTORY.Rows.Add(R) + End If + + End Sub + Function importFileFromEZOLL(datum As Date, Optional sendMail As Boolean = True) As Boolean Try Dim db = "EZOLL" Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA @@ -938,7 +955,23 @@ Public Class frmStartOptions End Select 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,zsAnmRefs.LRN,zsAnmRefs.CRN ,[zzAktivitaet].VorgangID FROM [zzAktivitaet] INNER JOIN zsAnmRefs On zsAnmrefs.AnmID=zzAktivitaet.AnmID - where MsgTyp IN ('EZ922','EZ923','TR109', 'EX431') and ErstelltAm>='" & datum.ToShortDateString & " 00:00:00' and pfad is not null", db, 200) + where MsgTyp IN ('EZ922','EZ923','TR109', 'EX431', 'CC529C', 'CC599C', 'CC029C') and ErstelltAm>='" & datum.ToShortDateString & " 00:00:00' and pfad is not null", db, 200) + + Dim dtSPEDEintrageAusEinarbeitung_HISTORY As New DataTable + + With dtSPEDEintrageAusEinarbeitung_HISTORY + .Columns.Add("FilialNr", GetType(Integer)) + .Columns.Add("AbfertigungsNr", GetType(Integer)) + .Columns.Add("Abfertigungsdatum", GetType(String)) + .Columns.Add("LNR", GetType(String)) + .Columns.Add("CRN", GetType(String)) + .Columns.Add("Abfertigungsart", GetType(String)) + .Columns.Add("AnhaengeAbDatum", GetType(String)) + .Columns.Add("Firma", GetType(String)) + End With + + + If dt IsNot Nothing Then For Each row In dt.Rows Dim cDHF_Anhaenge As New VERAG_PROG_ALLGEMEIN.cDHF_Anhaenge(row("AnmID"), row("MsgTyp"), row("LizenzNr")) @@ -959,15 +992,16 @@ Public Class frmStartOptions Dim Bezeichnung = "" Select Case row("MsgTyp") Case "EZ922" : Bezeichnung = "STEUERBESCHEID" - Case "EZ923" + Case "EZ923", "CC529C" Select Case row("VorgangID") - Case "AF" + Case "AF" ' -> CC529C ist immer AF! Bezeichnung = "ABD" Case Else '"EF" Bezeichnung = "STEUERBESCHEID_MITT" End Select - Case "TR109" : Bezeichnung = "VBD" - Case "EX431" : Bezeichnung = "AVM" + + Case "TR109", "CC029C" : Bezeichnung = "VBD" + Case "EX431", "CC599C" : Bezeichnung = "AVM" End Select Try @@ -1003,7 +1037,10 @@ Public Class frmStartOptions If cDHF_Anhaenge.docID > 0 AndAlso cDHF_Anhaenge.LRN <> "" Then Select Case row("MsgTyp") Case "EZ922" 'STEUERBESCHEID - DAKOSY_Worker.cZOLL_IMPORT.EZOLLImport(cDHF_Anhaenge.LRN, "EZA", SPEDBUCH_TMP) 'Versucht den SpedBucheintrag, falls noch nicht vorhanden + If DAKOSY_Worker.cZOLL_IMPORT.EZOLLImport(cDHF_Anhaenge.LRN, "EZA", SPEDBUCH_TMP) And Not sendMail Then 'Versucht den SpedBucheintrag, falls noch nicht vorhanden + 'Eintrag aus Nacharbeitung -> Protokollieren + addTODatatable(dtSPEDEintrageAusEinarbeitung_HISTORY, cDHF_Anhaenge, SPEDBUCH_TMP, datum) + End If '=====IMPORT IN VERAG DATENMODELL========== Dim IMP As New DAKOSY_Worker.cImporter_DHFToVERAG @@ -1014,38 +1051,57 @@ Public Class frmStartOptions '========================================== sql.doSQL("Update Speditionsbuch SET [DokumentId_Steuerbeleg]='" & cDHF_Anhaenge.docID & "' WHERE AtlasBezNrEZA='" & cDHF_Anhaenge.LRN & "' AND [DokumentId_Steuerbeleg] is null", "FMZOLL") - doMailZollbeleg(destFull, "STB", SPEDBUCH_TMP.SendungID, cDHF_Anhaenge.LRN) - Case "TR109" - DAKOSY_Worker.cZOLL_IMPORT.EZOLLImport(cDHF_Anhaenge.LRN, "NCTS", SPEDBUCH_TMP) 'Versucht den SpedBucheintrag, falls noch nicht vorhanden - sql.doSQL("Update Speditionsbuch SET [DokumentId_VBD]='" & cDHF_Anhaenge.docID & "' WHERE AtlasBezNrEZA='" & cDHF_Anhaenge.LRN & "' AND [DokumentId_VBD] is null", "FMZOLL") + If sendMail Then doMailZollbeleg(destFull, "STB", SPEDBUCH_TMP.SendungID, cDHF_Anhaenge.LRN) + Case "TR109", "CC029C" + If DAKOSY_Worker.cZOLL_IMPORT.EZOLLImport(cDHF_Anhaenge.LRN, "NCTS", SPEDBUCH_TMP) And Not sendMail Then + addTODatatable(dtSPEDEintrageAusEinarbeitung_HISTORY, cDHF_Anhaenge, SPEDBUCH_TMP, datum) + End If 'Versucht den SpedBucheintrag, falls noch nicht vorhanden + sql.doSQL("Update Speditionsbuch SET [DokumentId_VBD]='" & cDHF_Anhaenge.docID & "' WHERE AtlasBezNrNCTS='" & cDHF_Anhaenge.LRN & "' AND [DokumentId_VBD] is null", "FMZOLL") ' BEREITSTELLUNG DER DATEN AN FREMDSYSTEME - cVERAG_out_ncts.copyFileFTP_VERAGncts_EZOLL(cDHF_Anhaenge.AnmID) - doMailZollbeleg(destFull, "VBD", SPEDBUCH_TMP.SendungID, cDHF_Anhaenge.LRN) - Case "EZ923" ' STB/ABD + If sendMail Then + cVERAG_out_ncts.copyFileFTP_VERAGncts_EZOLL(cDHF_Anhaenge.AnmID) + doMailZollbeleg(destFull, "VBD", SPEDBUCH_TMP.SendungID, cDHF_Anhaenge.LRN) + End If + + Case "EZ923", "CC529C" ' STB/ABD Select Case row("VorgangID") Case "AF" ' --> AUSFUHR --> ABD 'AES Stuff.... - DAKOSY_Worker.cZOLL_IMPORT.EZOLLImport(cDHF_Anhaenge.LRN, "AES", SPEDBUCH_TMP) 'Versucht den SpedBucheintrag, falls noch nicht vorhanden - sql.doSQL("Update Speditionsbuch SET [DokumentId_ABD]='" & cDHF_Anhaenge.docID & "' WHERE AtlasBezNrEZA='" & cDHF_Anhaenge.LRN & "' AND DokumentId_ABD is null", "FMZOLL") + If DAKOSY_Worker.cZOLL_IMPORT.EZOLLImport(cDHF_Anhaenge.LRN, "AES", SPEDBUCH_TMP) And Not sendMail Then 'Versucht den SpedBucheintrag, falls noch nicht vorhanden + addTODatatable(dtSPEDEintrageAusEinarbeitung_HISTORY, cDHF_Anhaenge, SPEDBUCH_TMP, datum) + End If + sql.doSQL("Update Speditionsbuch SET [DokumentId_ABD]='" & cDHF_Anhaenge.docID & "' WHERE AtlasBezNrAES='" & cDHF_Anhaenge.LRN & "' AND DokumentId_ABD is null", "FMZOLL") + 'Zeitspanne ? 3 Tage , älter nicht senden.. If destFull <> "" AndAlso SPEDBUCH_TMP IsNot Nothing AndAlso SPEDBUCH_TMP.SendungID IsNot Nothing Then - doMailZollbeleg(destFull, "ABD", SPEDBUCH_TMP.SendungID, cDHF_Anhaenge.LRN) + If sendMail Then doMailZollbeleg(destFull, "ABD", SPEDBUCH_TMP.SendungID, cDHF_Anhaenge.LRN) End If Case Else '' --> EINFUHR --> 'Ergänzung STB - Mitteilung - DAKOSY_Worker.cZOLL_IMPORT.EZOLLImport(cDHF_Anhaenge.LRN, "EZA", SPEDBUCH_TMP) 'Versucht den SpedBucheintrag, falls noch nicht vorhanden + If DAKOSY_Worker.cZOLL_IMPORT.EZOLLImport(cDHF_Anhaenge.LRN, "EZA", SPEDBUCH_TMP) And Not sendMail Then + addTODatatable(dtSPEDEintrageAusEinarbeitung_HISTORY, cDHF_Anhaenge, SPEDBUCH_TMP, datum) + End If 'Versucht den SpedBucheintrag, falls noch nicht vorhanden sql.doSQL("Update Speditionsbuch SET DokumentId_Mitteilung='" & cDHF_Anhaenge.docID & "' WHERE AtlasBezNrEZA='" & cDHF_Anhaenge.LRN & "' AND DokumentId_Mitteilung is null", "FMZOLL") - doMailZollbeleg(destFull, "STB", SPEDBUCH_TMP.SendungID, cDHF_Anhaenge.LRN) + If sendMail Then doMailZollbeleg(destFull, "STB", SPEDBUCH_TMP.SendungID, cDHF_Anhaenge.LRN) End Select - Case "EX431" 'AVM --> EZoll Anhänge & Mail senden + + 'Select Case art + ' Case "NCTS" : SPEDBUCH.AtlasBezNrNCTS = LRN + ' Case "AES" : SPEDBUCH.AtlasBezNrAES = LRN + ' Case Else : SPEDBUCH.AtlasBezNrEZA = LRN + 'End Select + + Case "EX431", "CC599C" '-> Ausgangsvermerk 'AVM --> EZoll Anhänge & Mail senden 'AES Stuff.... - DAKOSY_Worker.cZOLL_IMPORT.EZOLLImport(cDHF_Anhaenge.LRN, "AES", SPEDBUCH_TMP) 'Versucht den SpedBucheintrag, falls noch nicht vorhanden - sql.doSQL("Update Speditionsbuch SET [DokumentId_AVM]='" & cDHF_Anhaenge.docID & "' WHERE AtlasBezNrEZA='" & cDHF_Anhaenge.LRN & "' AND DokumentId_AVM is null", "FMZOLL") + If DAKOSY_Worker.cZOLL_IMPORT.EZOLLImport(cDHF_Anhaenge.LRN, "AES", SPEDBUCH_TMP) And Not sendMail Then + addTODatatable(dtSPEDEintrageAusEinarbeitung_HISTORY, cDHF_Anhaenge, SPEDBUCH_TMP, datum) + End If 'Versucht den SpedBucheintrag, falls noch nicht vorhanden + sql.doSQL("Update Speditionsbuch SET [DokumentId_AVM]='" & cDHF_Anhaenge.docID & "' WHERE AtlasBezNrAES='" & cDHF_Anhaenge.LRN & "' AND DokumentId_AVM is null", "FMZOLL") If destFull <> "" AndAlso SPEDBUCH_TMP IsNot Nothing AndAlso SPEDBUCH_TMP.SendungID IsNot Nothing Then - doMailZollbeleg(destFull, "AVM", SPEDBUCH_TMP.SendungID, cDHF_Anhaenge.LRN) + If sendMail Then doMailZollbeleg(destFull, "AVM", SPEDBUCH_TMP.SendungID, cDHF_Anhaenge.LRN) End If End Select @@ -1055,6 +1111,18 @@ Public Class frmStartOptions End If Next End If + + If dtSPEDEintrageAusEinarbeitung_HISTORY.Rows.Count > 0 Then + + Dim filepath = VERAG_PROG_ALLGEMEIN.cProgramFunctions.genExcelFromDT_NEW(dtSPEDEintrageAusEinarbeitung_HISTORY,,,,, False) + If filepath <> "" Then + Dim anhenge As New List(Of String) + anhenge.Add(filepath) + VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("d.breimaier@verag.ag", "E-ZOLL nachträgliche Einarbeitung", "Im Anhang befinden sich die Speditionsbucheintrag, die bei der nachträglichen Einarbeitung angelegt wurden: " & vbNewLine & "*Automatic generated e-mail*",,,,, "d.breimaier@verag.ag", anhenge) + End If + + + End If Return True Catch ex As Exception @@ -3932,10 +4000,6 @@ Public Class frmStartOptions Me.Visible = True End Sub - Private Sub LinkLabel25_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel25.LinkClicked - importFileFromEZOLL(If(CheckBox2.Checked, Now.AddDays(-7), If(CheckBox3.Checked, Now.AddMonths(-1), Now))) - End Sub - Private Sub Button1_Click(sender As Object, e As EventArgs) For Each d In System.IO.Directory.GetDirectories(VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\Nachrichtendaten_Ablage\2019") Dim fid As New FileInfo(d) @@ -4475,11 +4539,25 @@ Public Class frmStartOptions Private Sub lblEZOLLDat_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles lblEZOLLDat.LinkClicked VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False - Dim bool = importFileFromEZOLL(txtEZOLLAnhDat._value) - showPic(bool, piceZollAnh) + + If cbxEZOLLUNISPED.Checked Then + + Dim f = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA + VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "UNISPED" + Dim bool = importFileFromEZOLL(txtEZOLLAnhDat._value, cbxSendEZOLL_INFO.Checked) + showPic(bool, piceZollAnh) + VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = f + + Else + Dim bool = importFileFromEZOLL(txtEZOLLAnhDat._value, cbxSendEZOLL_INFO.Checked) + showPic(bool, piceZollAnh) + + End If + + End Sub - Private Sub CheckBox2_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox2.CheckedChanged + Private Sub CheckBox2_CheckedChanged(sender As Object, e As EventArgs) End Sub @@ -5028,13 +5106,6 @@ Public Class frmStartOptions Me.Cursor = Cursors.Default End Sub - Private Sub LinkLabel48_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel48.LinkClicked - Dim f = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA - VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "UNISPED" - importFileFromEZOLL(If(CheckBox2.Checked, Now.AddDays(-7), If(CheckBox3.Checked, Now.AddMonths(-1), Now))) - VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = f - End Sub - Private Function checkTestsystemSettings() As Boolean Dim check As Boolean = False If cbxTestFTP.Checked And Not cbxTestsystem.Checked Then @@ -7556,4 +7627,12 @@ repeatRequest: End Sub + + Private Sub Button31_Click(sender As Object, e As EventArgs) Handles btnEZOLL_7days.Click + txtEZOLLAnhDat._value = Now().AddDays(-7).ToShortDateString + End Sub + + Private Sub Button32_Click(sender As Object, e As EventArgs) Handles btnEZOLL_1month.Click + txtEZOLLAnhDat._value = Now().AddMonths(-1).ToShortDateString + End Sub End Class \ No newline at end of file From 3e842f853f379bbf411f8d197dbbc3a89a7bd211 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Mon, 2 Mar 2026 09:50:29 +0100 Subject: [PATCH 2/6] Mailsender --- MailSender/MAILSender.vb | 38 +++++++++++++++++++++----------------- 1 file changed, 21 insertions(+), 17 deletions(-) diff --git a/MailSender/MAILSender.vb b/MailSender/MAILSender.vb index ca88aa3..66223cf 100644 --- a/MailSender/MAILSender.vb +++ b/MailSender/MAILSender.vb @@ -1,10 +1,9 @@ -Imports System.Runtime.InteropServices -Imports System.Data.SqlClient +Imports System.Data.SqlClient Imports System.IO Imports System.Net Imports System.Net.Mail +Imports System.Runtime.InteropServices Imports ClosedXML.Excel -Imports com.sun.xml.internal.rngom.digested Imports DAKOSY_Worker Imports VERAG_PROG_ALLGEMEIN @@ -58,7 +57,7 @@ Module Mail ' PARAM = "MDM_IT_Verguetung" 'PARAM = "JAHRESABRECHNUNG AG-ZS" - ' PARAM = "UID_OPS_SYSKA_ABGLEICH" + 'PARAM = "ZF" '------------------------------------------------------------------------------------ @@ -285,13 +284,17 @@ Module Mail Dim KdNr As String = "714869" - If dtParam.Rows.Count = 1 Then + If dtParam.Rows.Count > 1 Then + + For Each r As DataRow In dtParam.Rows + + System.Console.WriteLine("OPTION erkannt: " & r.Item("ms_info")) + System.Console.WriteLine("Auswertung Details gestartet...") + If SendEmail_ZF(r.Item("ms_an"), KdNr, von, bis, "monthly", r.Item("ms_cc"), r.Item("ms_bcc"), r.Item("ms_subject"), r.Item("ms_mailtext")) Then + System.Console.WriteLine("Vorgang erfolgreich abgeschlossen ...") + End If + Next - System.Console.WriteLine("OPTION erkannt: " & dtParam.Rows(0).Item("ms_info")) - System.Console.WriteLine("Auswertung Details gestartet...") - If SendEmail_ZF(dtParam.Rows(0).Item("ms_an"), KdNr, von, bis, "monthly", dtParam.Rows(0).Item("ms_cc"), dtParam.Rows(0).Item("ms_bcc"), dtParam.Rows(0).Item("ms_subject"), dtParam.Rows(0).Item("ms_mailtext")) Then - System.Console.WriteLine("Vorgang erfolgreich abgeschlossen ...") - End If Else @@ -314,13 +317,14 @@ Module Mail KdNr = "764755" - If dtParam.Rows.Count = 1 Then + If dtParam.Rows.Count > 1 Then + 'wurde bereits oben durchgeführt! - System.Console.WriteLine("OPTION erkannt: " & dtParam.Rows(0).Item("ms_info")) - System.Console.WriteLine("Auswertung Details gestartet...") - If SendEmail_ZF(dtParam.Rows(0).Item("ms_an"), KdNr, von, bis, "monthly", dtParam.Rows(0).Item("ms_cc"), dtParam.Rows(0).Item("ms_bcc"), dtParam.Rows(0).Item("ms_subject"), dtParam.Rows(0).Item("ms_mailtext")) Then - System.Console.WriteLine("Vorgang erfolgreich abgeschlossen ...") - End If + 'System.Console.WriteLine("OPTION erkannt: " & dtParam.Rows(0).Item("ms_info")) + 'System.Console.WriteLine("Auswertung Details gestartet...") + 'If SendEmail_ZF(dtParam.Rows(0).Item("ms_an"), KdNr, von, bis, "monthly", dtParam.Rows(0).Item("ms_cc"), dtParam.Rows(0).Item("ms_bcc"), dtParam.Rows(0).Item("ms_subject"), dtParam.Rows(0).Item("ms_mailtext")) Then + ' System.Console.WriteLine("Vorgang erfolgreich abgeschlossen ...") + 'End If Else @@ -360,7 +364,7 @@ Module Mail System.Console.WriteLine("OPTION erkannt: " & dtParam.Rows(0).Item("ms_info")) System.Console.WriteLine("Auswertung Details gestartet...") - If SendEmail_ZF(dtParam.Rows(0).Item("ms_an"), KdNr, von, bis, "quarter", dtParam.Rows(0).Item("ms_cc"), dtParam.Rows(0).Item("ms_bcc"), dtParam.Rows(0).Item("ms_subject"), dtParam.Rows(0).Item("ms_mailtext")) Then + If SendEmail_ZF(dtParam.Rows(0).Item("ms_an"), dtParam.Rows(0).Item("ms_kundenNr"), von, bis, "quarter", dtParam.Rows(0).Item("ms_cc"), dtParam.Rows(0).Item("ms_bcc"), dtParam.Rows(0).Item("ms_subject"), dtParam.Rows(0).Item("ms_mailtext")) Then System.Console.WriteLine("Vorgang erfolgreich abgeschlossen ...") End If From bffceedf6f362c7e02783594cf5c89c63a54e189 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Mon, 2 Mar 2026 13:17:14 +0100 Subject: [PATCH 3/6] cZoll_Import --- DAKOSY_Worker/cZOLL_IMPORT.vb | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/DAKOSY_Worker/cZOLL_IMPORT.vb b/DAKOSY_Worker/cZOLL_IMPORT.vb index 7cf2360..a1d8307 100644 --- a/DAKOSY_Worker/cZOLL_IMPORT.vb +++ b/DAKOSY_Worker/cZOLL_IMPORT.vb @@ -1720,14 +1720,14 @@ Public Class cZOLL_IMPORT ' Dim fNEF = DirectCast(Me.Owner, frmNacherfassungNEU) - Dim VorgangID As String = "EF" + Dim VorgangID As String = "'EF'" If isAES Then - VorgangID = "AF" + VorgangID = "'AF'" End If Dim dEZOLL As DataTable = KDSQL.loadDgvBySql("SELECT LizenzNr, OperatorID, VorgangID, AnmID, GeaendertAm, GeaendertVon, CRN, LRN" & " FROM zsAnmRefs" & - " WHERE (VorgangID = '" & VorgangID &') AND (LRN = '" & EZA_Nr & "')" & + " WHERE (VorgangID = " & VorgangID & " ) AND (LRN = '" & EZA_Nr & "')" & " ORDER BY GeaendertAm DESC", EZOLL_SQL) If dEZOLL Is Nothing Then notFound = True : Exit Sub From 15330ca861a6e39402754fc8bac77c355aa1b6cf Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Mon, 2 Mar 2026 13:18:34 +0100 Subject: [PATCH 4/6] Bugfix --- DAKOSY_Worker/cZOLL_IMPORT.vb | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/DAKOSY_Worker/cZOLL_IMPORT.vb b/DAKOSY_Worker/cZOLL_IMPORT.vb index a1d8307..edc15d0 100644 --- a/DAKOSY_Worker/cZOLL_IMPORT.vb +++ b/DAKOSY_Worker/cZOLL_IMPORT.vb @@ -1720,14 +1720,14 @@ Public Class cZOLL_IMPORT ' Dim fNEF = DirectCast(Me.Owner, frmNacherfassungNEU) - Dim VorgangID As String = "'EF'" + Dim VorgangID As String = "EF" If isAES Then - VorgangID = "'AF'" + VorgangID = "AF" End If Dim dEZOLL As DataTable = KDSQL.loadDgvBySql("SELECT LizenzNr, OperatorID, VorgangID, AnmID, GeaendertAm, GeaendertVon, CRN, LRN" & " FROM zsAnmRefs" & - " WHERE (VorgangID = " & VorgangID & " ) AND (LRN = '" & EZA_Nr & "')" & + " WHERE (VorgangID = '" & VorgangID & "' ) AND (LRN = '" & EZA_Nr & "')" & " ORDER BY GeaendertAm DESC", EZOLL_SQL) If dEZOLL Is Nothing Then notFound = True : Exit Sub From aed3851cbd8a59c96746b475401f57d6ff34257b Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Mon, 2 Mar 2026 14:46:15 +0100 Subject: [PATCH 5/6] Mailsender fix --- MailSender/MAILSender.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/MailSender/MAILSender.vb b/MailSender/MAILSender.vb index 66223cf..9650278 100644 --- a/MailSender/MAILSender.vb +++ b/MailSender/MAILSender.vb @@ -290,7 +290,7 @@ Module Mail System.Console.WriteLine("OPTION erkannt: " & r.Item("ms_info")) System.Console.WriteLine("Auswertung Details gestartet...") - If SendEmail_ZF(r.Item("ms_an"), KdNr, von, bis, "monthly", r.Item("ms_cc"), r.Item("ms_bcc"), r.Item("ms_subject"), r.Item("ms_mailtext")) Then + If SendEmail_ZF(r.Item("ms_an"), r.Item("ms_kundenNr"), von, bis, "monthly", r.Item("ms_cc"), r.Item("ms_bcc"), r.Item("ms_subject"), r.Item("ms_mailtext")) Then System.Console.WriteLine("Vorgang erfolgreich abgeschlossen ...") End If Next From 1eac4a3e50a39e6a1cbd9e83cbe183ed6be08cc6 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Thu, 5 Mar 2026 08:43:01 +0100 Subject: [PATCH 6/6] =?UTF-8?q?Mailsender,=20cWorker=20(f=C3=BCr=20Gesamts?= =?UTF-8?q?icherheiten).?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- MailSender/MAILSender.vb | 2 +- UID/My Project/Resources.Designer.vb | 9 + UID/My Project/Resources.resx | 3 + UID/cSqlDb.vb | 9 +- UID/usrctlProcedures.vb | 40 ++- initATLASAufschubkonten/cWorker_Verwahrung.vb | 282 ++++++++---------- ...richtenVerarbeitung_MDM_divers.Designer.vb | 26 +- 7 files changed, 178 insertions(+), 193 deletions(-) diff --git a/MailSender/MAILSender.vb b/MailSender/MAILSender.vb index 9650278..f7b7242 100644 --- a/MailSender/MAILSender.vb +++ b/MailSender/MAILSender.vb @@ -57,7 +57,7 @@ Module Mail ' PARAM = "MDM_IT_Verguetung" 'PARAM = "JAHRESABRECHNUNG AG-ZS" - 'PARAM = "ZF" + 'PARAM = "BRG_AUSWERTUNG_STANDARD" '------------------------------------------------------------------------------------ diff --git a/UID/My Project/Resources.Designer.vb b/UID/My Project/Resources.Designer.vb index 023baeb..b9d3a42 100644 --- a/UID/My Project/Resources.Designer.vb +++ b/UID/My Project/Resources.Designer.vb @@ -264,6 +264,15 @@ Namespace My.Resources End Get End Property + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=VERAG;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$; ähnelt. + ''' + Friend ReadOnly Property connStringFMZOLL_NEW() As String + Get + Return ResourceManager.GetString("connStringFMZOLL_NEW", resourceCulture) + End Get + End Property + ''' ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. ''' diff --git a/UID/My Project/Resources.resx b/UID/My Project/Resources.resx index 093ca70..e637cd8 100644 --- a/UID/My Project/Resources.resx +++ b/UID/My Project/Resources.resx @@ -322,4 +322,7 @@ ..\Resources\MDM_IT_Verguetung.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=VERAG;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$; + \ No newline at end of file diff --git a/UID/cSqlDb.vb b/UID/cSqlDb.vb index 5268faa..7f007f8 100644 --- a/UID/cSqlDb.vb +++ b/UID/cSqlDb.vb @@ -14,8 +14,15 @@ Public Class cSqlDb Return cn End Function Public Shared Function GetNewOpenConnectionFMZOLL() As SqlConnection + Dim cn As New SqlConnection() - cn.ConnectionString = My.Resources.connStringFMZOLL + + If VERAG_PROG_ALLGEMEIN.cAllgemein.SQLGUIDE01_USED Then + cn.ConnectionString = My.Resources.connStringFMZOLL_NEW + Else + cn.ConnectionString = My.Resources.connStringFMZOLL + End If + cn.Open() Return cn End Function diff --git a/UID/usrctlProcedures.vb b/UID/usrctlProcedures.vb index 2167b06..844d832 100644 --- a/UID/usrctlProcedures.vb +++ b/UID/usrctlProcedures.vb @@ -4043,22 +4043,22 @@ Public Class usrctlProcedures Dim STDOF As New cStandardofferten(currentRow(0), currentRow(1), currentRow(2), currentRow(3)) If STDOF.hasEntry Then - Dim save As Boolean = False + 'Dim save As Boolean = False - If isleernothing(currentRow(12)) IsNot Nothing AndAlso isleernothing(currentRow(12)) <> "NULL" Then - save = True - STDOF.LeistungsBez_EN = isleernothing(currentRow(12)) - End If - If isleernothing(currentRow(13)) IsNot Nothing AndAlso isleernothing(currentRow(13)) <> "NULL" Then - save = True - STDOF.LeistungsBez_RO = isleernothing(currentRow(13)) - End If - If isleernothing(currentRow(14)) IsNot Nothing AndAlso isleernothing(currentRow(14)) <> "NULL" Then - save = True - STDOF.LeistungsBez_TR = isleernothing(currentRow(14)) - End If + 'If isleernothing(currentRow(12)) IsNot Nothing AndAlso isleernothing(currentRow(12)) <> "NULL" Then + ' save = True + ' STDOF.LeistungsBez_EN = isleernothing(currentRow(12)) + 'End If + 'If isleernothing(currentRow(13)) IsNot Nothing AndAlso isleernothing(currentRow(13)) <> "NULL" Then + ' save = True + ' STDOF.LeistungsBez_RO = isleernothing(currentRow(13)) + 'End If + 'If isleernothing(currentRow(14)) IsNot Nothing AndAlso isleernothing(currentRow(14)) <> "NULL" Then + ' save = True + ' STDOF.LeistungsBez_TR = isleernothing(currentRow(14)) + 'End If - If save Then STDOF.SAVE() + 'If save Then STDOF.SAVE() ElseIf currentRow(2) = 117 Or currentRow(2) = 118 Or currentRow(2) = 119 Then @@ -4068,6 +4068,18 @@ Public Class usrctlProcedures End If + + + If (isleernothing(currentRow(1)) IsNot Nothing AndAlso isleernothing(currentRow(1)) <> "NULL") AndAlso (isleernothing(currentRow(2)) IsNot Nothing AndAlso isleernothing(currentRow(2)) <> "NULL") AndAlso (isleernothing(currentRow(3)) IsNot Nothing AndAlso isleernothing(currentRow(3)) <> "NULL") Then + + Dim temp As cStandardofferten + 'update ohne OffertenNr! + temp.updateBezeichnung_MULTILINGUAL(isleernothing(currentRow(1)), isleernothing(currentRow(2)), isleernothing(currentRow(3)), isleernothing(currentRow(12)), isleernothing(currentRow(13)), isleernothing(currentRow(14))) + + + + End If + End If diff --git a/initATLASAufschubkonten/cWorker_Verwahrung.vb b/initATLASAufschubkonten/cWorker_Verwahrung.vb index 7a3fe0b..5312b1a 100644 --- a/initATLASAufschubkonten/cWorker_Verwahrung.vb +++ b/initATLASAufschubkonten/cWorker_Verwahrung.vb @@ -91,12 +91,10 @@ Public Class cWorker_Verwahrung STATUS.SAVE() - 'NOCHT NICHT!!!!!!!!!!!!!!!!!!!!!!!!!!!!! - If False Then - 'LINKE SEITE BEI GESAMTSICHERHEITEN!!!!!!!!!!!!! + 'LINKE SEITE BEI GESAMTSICHERHEITEN!!!!!!!!!!!!! - If saveVerwahrung Then + If saveVerwahrung Then '---------------------------------------------------------------- @@ -150,98 +148,64 @@ Public Class cWorker_Verwahrung If SND IsNot Nothing AndAlso SND.tblSnd_Abfertigungsart_ID = 44 Then Dim existingEntry As Integer = 0 - existingEntry = CInt((New SQL).getValueTxtBySql("Select count(*) from [tblGesamtsicherheit] where [gs_ATBNr] = '" & RegistriernummerATLAS & "' order by gs_datum desc",,,, "0")) - If existingEntry <> 0 Then GoTo Anzeige - existingEntry = CInt((New SQL).getValueTxtBySql("Select count(*) from [tblGesamtsicherheit] where ([gs_filialenNr] = '" & SND.FilialenNr & "' and [gs_abfertigungsNr] = " & SND.AbfertigungsNr & " ) or gs_avisoId = '" & SND.tblSnd_AvisoID & "' order by gs_datum desc",,,, "0")) - If existingEntry <> 0 Then GoTo Anzeige + existingEntry = CInt((New SQL).getValueTxtBySql("Select gs_gsnr from [tblGesamtsicherheit] where [gs_ATBNr] = '" & Vorpapiernummer & "' order by gs_datum desc", "AVISO",,,, "0")) + If existingEntry = 0 Then + existingEntry = CInt((New SQL).getValueTxtBySql("Select gs_gsnr from [tblGesamtsicherheit] where ([gs_filialenNr] = '" & SND.FilialenNr & "' and [gs_abfertigungsNr] = " & SND.AbfertigungsNr & ") or (gs_avisoId = " & SND.tblSnd_AvisoID & ") order by gs_datum desc", "AVISO",,, "0")) + End If - ''sonderfälle lt. Mestan - If SND.tblSnd_Zollsystem_Land = "DE" Then + If existingEntry > 0 Then - Select Case SND.FilialenNr - Case 5501, 4803, 4809, 5103 - Standort = "VERAG GmbH" - End Select - - ElseIf SND.tblSnd_Zollsystem_Land = "AT" Then - - If SND.tblSnd_Abfertigungsart_ID = 1 Then 'ZA - Standort = "VERAG CS" - ElseIf SND.tblSnd_Abfertigungsart_ID = 38 Then 'EV-Verz - Select Case SND.FilialenNr - Case 4803, 5303, 4809, 5103 - Standort = "VERAG CS" - End Select - - End If - - End If + Dim urspringsSicherheit As New cSicherheiten(existingEntry) - Dim GesSichRef = New VERAG_PROG_ALLGEMEIN.cAufschubKonten(Standort) + Dim GesSichRef = New VERAG_PROG_ALLGEMEIN.cGesamtsicherheitsReferenz(urspringsSicherheit.gs_standort) Dim saldo = GesSichRef.CalcSaldo() If SND.FilialenNr > 0 Then filiale = SND.FilialenNr If SND.AbfertigungsNr > 0 Then abfertigungsnummer = SND.AbfertigungsNr 'Verwahrung ANSCHREIBUNG - Dim ANSCHREIBUNG As New cSicherheiten() - Dim gsId As Integer - With ANSCHREIBUNG - .gs_ATBNr = RegistriernummerATLAS - .gs_posNr = 1 - .gs_datum = gestellungsdatum - .gs_warenwert = IIf(SND.tblSnd_Warenwert IsNot Nothing AndAlso IsNumeric(SND.tblSnd_Warenwert), CDbl(SND.tblSnd_Warenwert), 0) - .gs_sicherheitsbetrag = IIf(SND.tblSnd_Warenwert IsNot Nothing AndAlso IsNumeric(SND.tblSnd_Warenwert), CDbl(SND.tblSnd_Warenwert) * (GesSichRef.brgakto_gs_zollsatz / 100), 0) - .gs_standort = Standort - .gs_art = "OPEN" - .gs_gsNr = AddNewGesamtSichNr() - .gs_erstellungsdatum = Now() - .gs_freitext = "" - .gs_saldo = saldo - .gs_atr = "" - .gs_filialenNr = filiale - .gs_abfertigungsnr = abfertigungsnummer - .gs_LKWKZ = SND.tblSnd_AvisoID - .gs_warenort = warenort - '.grenzstelle = AVISO.Grenzstelle.ToString.Replace("WO_", "") - .gs_systemuser = "DAKOSY-AUTO" - .gs_zollsatz = GesSichRef.brgakto_gs_zollsatz - .gs_avisoId = SND.tblSnd_AvisoID - End With + Dim gsId As Integer + + urspringsSicherheit.gs_systemuser = "DAKOSY-AUTO" + urspringsSicherheit.gs_posNr = CInt(posGestellung.Rows(0).Item("PosNr")) + urspringsSicherheit.gs_freitext = RegistriernummerATLAS + urspringsSicherheit.gs_MRNNr = RegistriernummerATLAS + VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True - gsId = ANSCHREIBUNG.SAVEOBJECT() + gsId = urspringsSicherheit.SAVEOBJECT() VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False If posGestellung.Rows.Count > 1 Then - For i As Integer = 2 To posGestellung.Rows.Count + For i As Integer = 2 To posGestellung.Rows.Count - 1 Dim ANSCHREIBUNG_POS As New cSicherheiten() With ANSCHREIBUNG_POS .gs_gsNr = gsId - .gs_ATBNr = RegistriernummerATLAS + .gs_ATBNr = urspringsSicherheit.gs_ATBNr + .gs_freitext = RegistriernummerATLAS .gs_posNr = i .gs_datum = gestellungsdatum - .gs_gsNr = ANSCHREIBUNG.gs_gsNr + .gs_gsNr = urspringsSicherheit.gs_gsNr .gs_warenwert = 0 .gs_sicherheitsbetrag = 0 .gs_standort = Standort .gs_art = "OPEN" .gs_erstellungsdatum = DateTime.Now - .gs_freitext = "" + .gs_MRNNr = RegistriernummerATLAS .gs_saldo = saldo .gs_atr = "" - .gs_systemuser = ANSCHREIBUNG.gs_systemuser - .gs_zollsatz = GesSichRef.brgakto_gs_zollsatz + .gs_systemuser = urspringsSicherheit.gs_systemuser + .gs_zollsatz = GesSichRef.gsr_zollsatz .gs_avisoId = SND.tblSnd_AvisoID - .gs_warenort = ANSCHREIBUNG.gs_warenort + .gs_warenort = urspringsSicherheit.gs_warenort End With VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True - ANSCHREIBUNG.SAVE() + ANSCHREIBUNG_POS.SAVE() VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False Next @@ -249,10 +213,13 @@ Public Class cWorker_Verwahrung End If End If + End If + End If + Catch ex As Exception @@ -267,7 +234,6 @@ Anzeige: End If - End If Catch ex As Exception VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name) @@ -399,123 +365,111 @@ Anzeige: '---------------------------------------------------------------- - 'Verwahrung ABSCHREIBUNG - RECHTE Seite bei Gesamtsicherheiten + 'Verwahrung ABSCHREIBUNG - rechte Seite bei Gesamtsicherheiten If saveAbschreibung Then If posErledigung IsNot Nothing AndAlso posErledigung.Rows.Count > 0 Then + If regNR <> "" Then - For Each POS As DataRow In posErledigung.Rows + Dim dtGesamtsicherheit = SQL.loadDgvBySql("Select * From [tblGesamtsicherheit] where [gs_MRNNr] = '" & regNR & "' or [gs_ATBNr]= '" & regNR & "'", "AVISO") - Dim ATBNR As String = "" - Dim existingEntryID As Integer = 0 - Dim dtGesamtsicherheit As New DataTable + If dtGesamtsicherheit.Rows.Count > 0 Then - If Not IsDBNull(POS.Item("IDRegNrSumA")) AndAlso POS.Item("IDRegNrSumA") IsNot Nothing AndAlso POS.Item("IDRegNrSumA") <> "" Then + For Each POS As DataRow In posErledigung.Rows - Dim POSNr = POS.Item("IDRegNrSumAPos") - - If ATBNR <> POS.Item("IDRegNrSumA") Then - ATBNR = POS.Item("IDRegNrSumA") - - dtGesamtsicherheit = SQL.loadDgvBySql("Select * From [tblGesamtsicherheit] where [gs_ATBNr] = '" & ATBNR & "'", "AVISO") - - End If + Dim MRNNR As String = "" + Dim existingEntryID As Integer = 0 + If Not IsDBNull(POS.Item("IDRegNrSumA")) AndAlso POS.Item("IDRegNrSumA") IsNot Nothing AndAlso POS.Item("IDRegNrSumA") <> "" Then + + Dim POSNr As Integer = CInt(POS.Item("IDRegNrSumAPos")) + + If MRNNR <> POS.Item("IDRegNrSumA") Then + MRNNR = POS.Item("IDRegNrSumA") + + Dim firmaID = -1 + + 'Select Case dtGesamtsicherheit.Rows(0).Item("gs_standort") + + ' Case "VERAG GmbH" + ' firmaID = 23 + ' Case "Verag AG" + ' firmaId = 1 + ' Case "Unisped GmbH" + ' firmaId = 21 + ' Case "AMBAR GmbH" + ' firmaId = 24 + ' Case "Verag CS" + ' firmaId = 11 + ' Case "IMEX" + ' firmaId = 20 + + + 'End Select + + VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True + + Dim GesSichRef = New VERAG_PROG_ALLGEMEIN.cGesamtsicherheitsReferenz(dtGesamtsicherheit.Rows(0).Item("gs_standort")) + Dim saldo As Double = GesSichRef.CalcSaldo() + + Try + + 'innerhalb der gs_gsnr muss mithilfe der gs_gsid die richtige PosNr ermittelt werden! + + Dim Warenwert As Double = 0 + + Dim dtSendungen = SQL.loadDgvBySql("SELECT") + + Dim SicherheitsPos As New cGesamtsicherheitsPositionen() + With SicherheitsPos + .gsp_gsId = dtGesamtsicherheit.Rows(0).Item("gs_gsId") + '.gsp_gspPosId = CInt(POSNr) + .gsp_gspPosId = dtGesamtsicherheit.Rows(0).Item("gs_posNr") + .gsp_warenwert = 0 + .gsp_sicherheitsbetrag = 0 + .gsp_freitext = "DASKOY-IMPORT" + .gsp_filialenNr = dtGesamtsicherheit.Rows(0).Item("gs_filialenNr") + .gsp_art = "CLOSE" + .gsp_gsNr = dtGesamtsicherheit.Rows(0).Item("gs_gsnr") + .gsp_abfertigungsNr = dtGesamtsicherheit.Rows(0).Item("gs_abfertigungsnr") + .gsp_datum = DateTime.Now + .gsp_erstellungsdatum = DateTime.Now + .gsp_ust = dtGesamtsicherheit.Rows(0).Item("gs_ust") + .gsp_ATCNr = POS.Item("IDRegNrSumA") + .gsp_avisoId = dtGesamtsicherheit.Rows(0).Item("gs_avisoID") + .gsp_systemuser = "DAKOSY-AUTO" + End With + + + SicherheitsPos.SAVE() + + GesSichRef.CalcSaldo() + VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False + + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name) + VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False + End Try + + + + + + End If + + + End If + + Next End If - - - Next - - - - - - ' If existingEntryID > 0 Then GoTo Anzeige - ' existingEntryID = CInt((New SQL).getValueTxtBySql("Select count(*) From [tblGesamtsicherheitsPositionen] inner join [tblGesamtsicherheit] on gs_gsId = gsp_gsId where ([gs_filialenNr] = '" & SND.FilialenNr & "' and [gs_abfertigungsNr] = " & SND.AbfertigungsNr & " ) or gs_avisoId = '" & SND.tblSnd_AvisoID & "' order by gs_datum desc")) - ' If existingEntryID > 0 Then GoTo Anzeige - - ' Dim gsNr As Integer = 0 - ' gsNr = CInt((New SQL).getValueTxtBySql("Select gsNr From [tblGesamtsicherheit] where [gs_ATBNr] = '" & RegistriernummerATLAS & "' order by gs_datum desc")) - ' If gsNr > 0 Then GoTo Insert - ' gsNr = CInt((New SQL).getValueTxtBySql("Select gsNr From [tblGesamtsicherheit] where ([gs_filialenNr] = '" & SND.FilialenNr & "' and [gs_abfertigungsNr] = " & SND.AbfertigungsNr & " ) or gs_avisoId = '" & SND.tblSnd_AvisoID & "' order by gs_datum desc")) - ' If gsNr > 0 Then - ' GoTo Insert - ' Else - ' GoTo Anzeige - ' End If - - - ' ''sonderfälle lt. Mestan - ' If SND.tblSnd_Zollsystem_Land = "DE" Then - - ' Select Case SND.FilialenNr - ' Case 5501, 4803, 4809, 5103 - ' Standort = "VERAG GmbH" - ' End Select - - ' ElseIf SND.tblSnd_Zollsystem_Land = "AT" Then - - ' If SND.tblSnd_Abfertigungsart_ID = 1 Then 'ZA - ' Standort = "VERAG CS" - ' ElseIf SND.tblSnd_Abfertigungsart_ID = 38 Then 'EV-Verz - ' Select Case SND.FilialenNr - ' Case 4803, 5303, 4809, 5103 - ' Standort = "VERAG CS" - ' End Select - - ' End If - - ' End If - - 'Insert: - - ' Dim GesSichRef = New VERAG_PROG_ALLGEMEIN.cAufschubKonten(Standort) - ' Dim saldo = GesSichRef.CalcSaldo() - - ' Try - - - ' Dim SicherheitsPos As New cGesamtsicherheitsPositionen() - ' With SicherheitsPos - ' '.gsp_gsId = gs_gsId - ' ''.gsp_gspPosId = Me.getLatestPosNr(currentSicherheit.gs_gsNr, ) + 1 - ' '.gsp_gspPosId = OPEN.gs_posNr - ' '.gsp_warenwert = Double.Parse(txtPosWarenwert.Text) - ' '.gsp_sicherheitsbetrag = Double.Parse(txtPosSicherheitsbetrag.Text) - ' '.gsp_freitext = txtPosFreitext.Text - ' '.gsp_filialenNr = currentSicherheit.gs_filialenNr - ' '.gsp_art = "CLOSE" - ' .gsp_gsNr = gsNr - ' '.gsp_abfertigungsNr = currentSicherheit.gs_abfertigungsnr - ' .gsp_datum = 'DateTimeString2DateTimeKonvertinator(txtPosDat.Text, txtPosTime.Text) - ' .gsp_erstellungsdatum = DateTime.Now - ' .gsp_ust = 'currentSicherheit.gs_ust - ' .gsp_ATCNr = 'txtPositionenCRN.Text - ' .gsp_avisoId = 'Me.avisoID' - ' .gsp_systemuser = "DAKOSY-AUTO" - ' End With - - ' 'VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True - ' SicherheitsPos.SAVE() - ' 'VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False - - ' Catch ex As Exception - - - ' End Try - - - - ' End If - - ' End If + End If End If diff --git a/initATLASAufschubkonten/frmNachrichtenVerarbeitung_MDM_divers.Designer.vb b/initATLASAufschubkonten/frmNachrichtenVerarbeitung_MDM_divers.Designer.vb index e3b3017..253ce2f 100644 --- a/initATLASAufschubkonten/frmNachrichtenVerarbeitung_MDM_divers.Designer.vb +++ b/initATLASAufschubkonten/frmNachrichtenVerarbeitung_MDM_divers.Designer.vb @@ -54,7 +54,7 @@ Partial Class frmNachrichtenVerarbeitung_MDM_divers 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.ForeColor = System.Drawing.Color.White - Me.btn.Location = New System.Drawing.Point(379, -1) + Me.btn.Location = New System.Drawing.Point(464, -1) Me.btn.Margin = New System.Windows.Forms.Padding(0) Me.btn.Name = "btn" Me.btn.Size = New System.Drawing.Size(75, 22) @@ -84,7 +84,7 @@ Partial Class frmNachrichtenVerarbeitung_MDM_divers Me.pnl.Dock = System.Windows.Forms.DockStyle.Fill Me.pnl.Location = New System.Drawing.Point(0, 0) Me.pnl.Name = "pnl" - Me.pnl.Size = New System.Drawing.Size(456, 319) + Me.pnl.Size = New System.Drawing.Size(541, 319) Me.pnl.TabIndex = 1 ' 'lblFTP @@ -102,7 +102,7 @@ Partial Class frmNachrichtenVerarbeitung_MDM_divers Me.lblTestsystem.AutoSize = True Me.lblTestsystem.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.lblTestsystem.ForeColor = System.Drawing.Color.Red - Me.lblTestsystem.Location = New System.Drawing.Point(274, 8) + Me.lblTestsystem.Location = New System.Drawing.Point(323, 4) Me.lblTestsystem.Name = "lblTestsystem" Me.lblTestsystem.Size = New System.Drawing.Size(89, 13) Me.lblTestsystem.TabIndex = 20 @@ -113,7 +113,7 @@ Partial Class frmNachrichtenVerarbeitung_MDM_divers ' Me.lblDatenCnt.AutoSize = True Me.lblDatenCnt.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.lblDatenCnt.Location = New System.Drawing.Point(309, 132) + Me.lblDatenCnt.Location = New System.Drawing.Point(387, 132) Me.lblDatenCnt.Name = "lblDatenCnt" Me.lblDatenCnt.Size = New System.Drawing.Size(13, 13) Me.lblDatenCnt.TabIndex = 19 @@ -134,7 +134,7 @@ Partial Class frmNachrichtenVerarbeitung_MDM_divers Me.dgvEinarbeitung.Location = New System.Drawing.Point(12, 164) Me.dgvEinarbeitung.Name = "dgvEinarbeitung" Me.dgvEinarbeitung.RowHeadersVisible = False - Me.dgvEinarbeitung.Size = New System.Drawing.Size(291, 145) + Me.dgvEinarbeitung.Size = New System.Drawing.Size(351, 145) Me.dgvEinarbeitung.TabIndex = 18 ' 'clmnArt @@ -153,7 +153,7 @@ Partial Class frmNachrichtenVerarbeitung_MDM_divers ' Me.Label9.AutoSize = True Me.Label9.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label9.Location = New System.Drawing.Point(306, 103) + Me.Label9.Location = New System.Drawing.Point(384, 103) Me.Label9.Name = "Label9" Me.Label9.Size = New System.Drawing.Size(44, 13) Me.Label9.TabIndex = 17 @@ -163,7 +163,7 @@ Partial Class frmNachrichtenVerarbeitung_MDM_divers 'btnEinlesen ' Me.btnEinlesen.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnEinlesen.Location = New System.Drawing.Point(309, 50) + Me.btnEinlesen.Location = New System.Drawing.Point(387, 50) Me.btnEinlesen.Name = "btnEinlesen" Me.btnEinlesen.Size = New System.Drawing.Size(141, 50) Me.btnEinlesen.TabIndex = 16 @@ -185,13 +185,13 @@ Partial Class frmNachrichtenVerarbeitung_MDM_divers Me.ListBox3.FormattingEnabled = True Me.ListBox3.Location = New System.Drawing.Point(11, 50) Me.ListBox3.Name = "ListBox3" - Me.ListBox3.Size = New System.Drawing.Size(292, 95) + Me.ListBox3.Size = New System.Drawing.Size(352, 95) Me.ListBox3.TabIndex = 12 ' 'Label6 ' Me.Label6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label6.Location = New System.Drawing.Point(306, 240) + Me.Label6.Location = New System.Drawing.Point(384, 240) Me.Label6.Name = "Label6" Me.Label6.Size = New System.Drawing.Size(144, 37) Me.Label6.TabIndex = 11 @@ -202,7 +202,7 @@ Partial Class frmNachrichtenVerarbeitung_MDM_divers ' Me.Label5.AutoSize = True Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label5.Location = New System.Drawing.Point(306, 217) + Me.Label5.Location = New System.Drawing.Point(384, 217) Me.Label5.Name = "Label5" Me.Label5.Size = New System.Drawing.Size(44, 13) Me.Label5.TabIndex = 10 @@ -212,7 +212,7 @@ Partial Class frmNachrichtenVerarbeitung_MDM_divers 'btnEinarbeiten ' Me.btnEinarbeiten.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnEinarbeiten.Location = New System.Drawing.Point(309, 164) + Me.btnEinarbeiten.Location = New System.Drawing.Point(387, 164) Me.btnEinarbeiten.Name = "btnEinarbeiten" Me.btnEinarbeiten.Size = New System.Drawing.Size(141, 50) Me.btnEinarbeiten.TabIndex = 9 @@ -222,7 +222,7 @@ Partial Class frmNachrichtenVerarbeitung_MDM_divers 'btnOK ' Me.btnOK.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnOK.Location = New System.Drawing.Point(309, 280) + Me.btnOK.Location = New System.Drawing.Point(387, 280) Me.btnOK.Name = "btnOK" Me.btnOK.Size = New System.Drawing.Size(141, 29) Me.btnOK.TabIndex = 9 @@ -254,7 +254,7 @@ Partial Class frmNachrichtenVerarbeitung_MDM_divers ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font - Me.ClientSize = New System.Drawing.Size(456, 319) + Me.ClientSize = New System.Drawing.Size(541, 319) Me.Controls.Add(Me.pnl) Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)