diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/EZA/cDakosyEZA.vb b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/cDakosyEZA.vb
index 9faf1f2..782cff9 100644
--- a/DAKOSY_Worker/DAKOSY/ATLAS/EZA/cDakosyEZA.vb
+++ b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/cDakosyEZA.vb
@@ -1,5 +1,6 @@
Imports System.Data.SqlClient
Imports System.Reflection
+Imports System.Windows.Forms
Imports VERAG_PROG_ALLGEMEIN.TESTJSON
Public Class cDakosyEZA
@@ -245,9 +246,17 @@ list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_BezugsnummerBEAnteilZL", eza_
Return Me.SAVE
End Function
+
+
+
Public Function SAVE() As Boolean
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
+ If Not VERAG_PROG_ALLGEMEIN.cProgramFunctions.ValidateSQLFieldLengths(list, "tblDakosy_EZA", "", "FMZOLL") Then
+ Return False
+ End If
+
+
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblDakosy_eza WITH(updlock,serializable) WHERE eza_Id=@eza_Id) " &
" BEGIN " & getUpdateCmd() & " END " &
" Else " &
diff --git a/MDM_Worker/cPLOSE.vb b/MDM_Worker/cPLOSE.vb
index a1bc238..b908914 100644
--- a/MDM_Worker/cPLOSE.vb
+++ b/MDM_Worker/cPLOSE.vb
@@ -128,6 +128,9 @@ Public Class cPLOSE
Public Function SAVE() As Boolean
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
+ If Not VERAG_PROG_ALLGEMEIN.cProgramFunctions.ValidateSQLFieldLengths(list, "tblPLOSE_Details", "", "FMZOLL") Then
+ Return False
+ End If
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblPLOSE_Details WITH(updlock,serializable) WHERE plose_id=@plose_id) " &
" BEGIN " & getUpdateCmd() & " End " &
diff --git a/initATLASAufschubkonten/cGetMsgType.vb b/initATLASAufschubkonten/cGetMsgType.vb
index 1a8fb21..f74f315 100644
--- a/initATLASAufschubkonten/cGetMsgType.vb
+++ b/initATLASAufschubkonten/cGetMsgType.vb
@@ -776,7 +776,17 @@ Public Class cGetMsgType
Shared Function isPLOSE_NewFormat_TR(doc As String) As Boolean
Dim lines() As String = System.IO.File.ReadAllLines(doc)
If lines.Count > 0 Then
- If lines(0).ToString.Replace("""", "").StartsWith("CustomerCode") Then
+ If lines(0).ToString.Replace("""", "").StartsWith("CustomerCode") AndAlso lines(0).ToString.Contains("ServiceDescription") AndAlso lines(0).ToString.Contains("ItalianDocNumber") Then
+ Return True
+ End If
+ End If
+ Return False
+ End Function
+
+ Shared Function isPLOSE_NewFormat_INV(doc As String) As Boolean
+ Dim lines() As String = System.IO.File.ReadAllLines(doc)
+ If lines.Count > 0 Then
+ If lines(0).ToString.Replace("""", "").StartsWith("CustomerCode") AndAlso lines(0).ToString.Contains("DocumentNumber") AndAlso lines(0).ToString.Contains("PdfFileName") AndAlso doc.ToUpper.Contains("RDOC") Then
Return True
End If
End If
diff --git a/initATLASAufschubkonten/frmMDMNachrichtenVerarbeitung.vb b/initATLASAufschubkonten/frmMDMNachrichtenVerarbeitung.vb
index 6e28896..e16ac41 100644
--- a/initATLASAufschubkonten/frmMDMNachrichtenVerarbeitung.vb
+++ b/initATLASAufschubkonten/frmMDMNachrichtenVerarbeitung.vb
@@ -20,6 +20,8 @@ Public Class frmMDMNachrichtenVerarbeitung
' Dim BOX_VERSION = "8.8"
Dim Dateiname = ""
+ Public newFormatTR As Boolean = False
+ Public newFormatINV As Boolean = False
Sub New()
@@ -46,10 +48,23 @@ Public Class frmMDMNachrichtenVerarbeitung
'VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\TESTSYSTEM\Nachrichtendaten_Ablage\"
Me.ERROR_PFAD = MDM_Worker.cMDM_Paramter.GET_PARAM_ByName("ERROR_PFAD", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM)
'VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\TESTSYSTEM\Nachrichtendaten_ERROR\"
+
+ If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
+ Me.TELOTEC_PFAD = Me.TELOTEC_PFAD.ToString.Replace("ECHTSYSTEM", "TESTSYSTEM")
+ Me.VERARBEITUNGS_PFAD = Me.VERARBEITUNGS_PFAD.ToString.Replace("ECHTSYSTEM", "TESTSYSTEM")
+ Me.ZIEL_PFAD = Me.ZIEL_PFAD.ToString.Replace("ECHTSYSTEM", "TESTSYSTEM")
+ Me.ERROR_PFAD = Me.ERROR_PFAD.ToString.Replace("ECHTSYSTEM", "TESTSYSTEM")
+
+
+ End If
+
+
If Not System.IO.Directory.Exists(VERARBEITUNGS_PFAD) Then System.IO.Directory.CreateDirectory(VERARBEITUNGS_PFAD)
If Not System.IO.Directory.Exists(ZIEL_PFAD) Then System.IO.Directory.CreateDirectory(ZIEL_PFAD)
If Not System.IO.Directory.Exists(ERROR_PFAD) Then System.IO.Directory.CreateDirectory(ERROR_PFAD)
+
+
'Me.BOX_VERSION = MDM_Worker.cDY_Paramter.GET_PARAM_ByName("BOX_VERSION", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM)
End Sub
@@ -356,7 +371,7 @@ Public Class frmMDMNachrichtenVerarbeitung
Exit Sub
End If
- For i = 1 To 6
+ For i = 1 To 5
For Each d In System.IO.Directory.GetFiles(VERARBEITUNGS_PFAD)
Try
@@ -382,9 +397,11 @@ Public Class frmMDMNachrichtenVerarbeitung
'------------------------------------------
If fi.Extension.ToLower = ".csv" Then
- If Not found And cGetMsgType.isPLOSE_Detail(d) Then
+ If Not newFormatTR AndAlso (Not found And cGetMsgType.isPLOSE_Detail(d)) Then
If readPLOSE_Detail(d) <> "" Then found = True
- ' If bezugsNr <> "" Then addDGVEinarbeitung("NCTS: Versandbestätigung", bezugsNr) : found = True
+
+ ElseIf newFormatTR AndAlso (Not found And cGetMsgType.isPLOSE_NewFormat_TR(d)) Then
+ If readPLOSE_Detail_NEW_FORMAT(d) <> "" Then found = True
End If
If found Then cntDatenEingelesen += 1
End If
@@ -407,27 +424,21 @@ Public Class frmMDMNachrichtenVerarbeitung
'------------------------------------------
If fi.Extension.ToLower = ".csv" Then
- If Not found And cGetMsgType.isPLOSE_INVData(d) Then
+
+
+ If Not newFormatINV AndAlso Not found And cGetMsgType.isPLOSE_INVData(d) Then
If readPLOSE_INVData(d) <> "" Then found = True
' ' If bezugsNr <> "" Then addDGVEinarbeitung("NCTS: Versandbestätigung", bezugsNr) : found = True
+ ElseIf newFormatINV AndAlso Not found And cGetMsgType.isPLOSE_NewFormat_INV(d) Then
+ If readPLOSE_INVData_NEW_FORMAT(d) <> "" Then found = True
+
End If
+
+
If found Then cntDatenEingelesen += 1
End If
- 'Case 4
- ' '------------------------------------------
- ' '------- NEW FORMAT - TRANS-FILE ----------
- ' '------------------------------------------
- ' If fi.Extension.ToLower = ".csv" Then
-
- ' If Not found And cGetMsgType.isPLOSE_NewFormat_TR(d) Then
- ' If readPLOSE_Detail_NEW_FORMAT(d) <> "" Then found = True
-
- ' End If
- ' If found Then cntDatenEingelesen += 1
- ' End If
-
- Case 5
+ Case 4
'------------------------------------------
'------------------ PDF ------------------
'------------------------------------------
@@ -486,7 +497,7 @@ Public Class frmMDMNachrichtenVerarbeitung
- Case 6
+ Case 5
frmStartOptions.moveFile_DateBack(d, ERROR_PFAD)
dsNichtErkannt += 1
End Select
@@ -759,7 +770,7 @@ Public Class frmMDMNachrichtenVerarbeitung
End Try
End Function
- Function readPLOSE_Detail_NEW_FORMAT(d As String) As String
+ Function readPLOSE_Detail_NEW_FORMAT(d As String) As String 'neues Format der Transaktion-Files
Try
readPLOSE_Detail_NEW_FORMAT = ""
Dim KdnR = ""
@@ -777,22 +788,40 @@ Public Class frmMDMNachrichtenVerarbeitung
Dim plose_Lieferant = Nothing
Dim fi As FileInfo = New FileInfo(d)
- If fi.Name.Length > 8 Then
- plose_RechnungsJahr = fi.Name.Substring(0, 2)
- plose_RechnungsLieferantCode = fi.Name.Substring(2, 1)
+ Dim fileName As String = System.IO.Path.GetFileNameWithoutExtension(fi.Name)
+ ' _RGDAT_... entfernen
+ fileName = fileName.Split("_"c)(0)
- '--------> auslesen [tblPLOSE_Lieferant]
- Select Case plose_RechnungsLieferantCode
- Case "0" : plose_Lieferant = "PLOSE Sistem Service"
- Case "7" : plose_Lieferant = "Consortio PLOSE"
- Case "1" : plose_Lieferant = "Plose Union"
- Case "9" : plose_Lieferant = "PLOSE UNION SOCIETA COOPERATIVA"
- End Select
+ 'File Name: {company}-{country}-{document type}-{document number}-{document year-month}-{document year-month-day}-{customercode}-{partner/reseller customer code}
+ Dim parts() As String = fileName.Split("-"c)
+
+ If parts.Length >= 8 Then
+ Dim company As String = parts(0)
+ Dim country As String = parts(1)
+ Dim documentType As String = parts(2)
+ Dim documentNumber As String = parts(3)
+ Dim documentYear As String = parts(4)
+ Dim documentMonth As String = parts(5)
+ Dim documentDay As String = parts(6)
+ Dim customerCode As String = parts(7)
+ Dim partnerCustomerCode As String = parts(8)
+ plose_RechnungsJahr = documentYear
+ plose_RechnungsLieferantCode = company
End If
+ '--------> auslesen [tblPLOSE_Lieferant]
+ Select Case plose_RechnungsLieferantCode
+ Case "0" : plose_Lieferant = "PLOSE Sistem Service"
+ Case "7" : plose_Lieferant = "Consortio PLOSE"
+ Case "1" : plose_Lieferant = "Plose Union"
+ Case "9" : plose_Lieferant = "PLOSE UNION SOCIETA COOPERATIVA"
+ End Select
+
+
+
Using MyReader As New Microsoft.VisualBasic.FileIO.TextFieldParser(d, Encoding.UTF8)
MyReader.TextFieldType = FileIO.FieldType.Delimited
MyReader.SetDelimiters(";")
@@ -801,105 +830,123 @@ Public Class frmMDMNachrichtenVerarbeitung
Dim cnt = 0
If True Then
-
-
While Not MyReader.EndOfData
Try
-
currentRow = MyReader.ReadFields()
-
- If True Then 'fi.Name.Length > 8 Then
-
-
-
- 'Select Case currentRow(0)
- ' Case "TR1"
- 'RECHNUGNSDATUM
- If currentRow.Length > 1 AndAlso currentRow(11).ToString.Length = 8 Then
- Dim datumParse = DateTime.ParseExact(currentRow(11), "yyyyMMdd", Nothing)
- plose_RechnungsDat = datumParse
- End If
- 'RECHNUGNSNR
- If currentRow.Length > 2 Then 'AndAlso currentRow(1).ToString.Length = 8 Then
- plose_RechnungsNr = SQL.isleernothing(currentRow(12)) 'Rechnungsdatum aus TR1 Datensatz, überschreibt den Wert aus der Dateierstellung
- End If
-
- 'Case "TR5"
- If currentRow.Length > 24 AndAlso currentRow(12) <> "839160" Then 'KDNR <> VERAG --> Die Kosten bleiben uns
- Dim PLOSE As New MDM_Worker.cPLOSE
-
- PLOSE.plose_Dateiname = fi.Name
- PLOSE.plose_RechnungsNr = plose_RechnungsNr
- PLOSE.plose_Lieferant = plose_Lieferant
- PLOSE.plose_LieferantCode = plose_RechnungsLieferantCode
- PLOSE.plose_RechnungsJahr = plose_RechnungsJahr
- If plose_RechnungsDat IsNot Nothing Then PLOSE.plose_RechnungsDatum = plose_RechnungsDat
- PLOSE.plose_Datensatztyp = SQL.isleernothing(currentRow(0))
- PLOSE.plose_KodexMautTankstelle = SQL.isleernothing(currentRow(1))
- PLOSE.plose_BeschreibungMautTankstelle = SQL.isleernothing(currentRow(2))
- PLOSE.plose_KodexEinfahrt = SQL.isleernothing(currentRow(3))
- PLOSE.plose_BeschreibungEinfahrt = SQL.isleernothing(currentRow(4))
- PLOSE.plose_KodexAusfahrt = SQL.isleernothing(currentRow(5))
- PLOSE.plose_BeschreibungAusfahrt = SQL.isleernothing(currentRow(6))
- PLOSE.plose_Kartenkodex = SQL.isleernothing(currentRow(7))
- PLOSE.plose_Kontonummer = SQL.isleernothing(currentRow(8))
- PLOSE.plose_NummerKarteGeraet = SQL.isleernothing(currentRow(9))
- PLOSE.plose_Kennzeichen = SQL.isleernothing(currentRow(10))
- PLOSE.plose_InterneNrFahrzeug = SQL.isleernothing(currentRow(11))
- PLOSE.plose_POLSEKundennummer = SQL.isleernothing(currentRow(12))
- PLOSE.plose_Firmenname = SQL.isleernothing(currentRow(13))
- PLOSE.plose_DatumTransaktion = SQL.isleernothingDateFormatstring(currentRow(14))
- PLOSE.plose_Produktbeschreibung = SQL.isleernothing(currentRow(15))
- PLOSE.plose_Menge = SQL.isNullNothingDbl(currentRow(16))
- PLOSE.plose_Preis = SQL.isNullNothingDbl(currentRow(17))
- PLOSE.Einheitsrabatt = SQL.isleernothing(currentRow(18))
- PLOSE.plose_NettobetragTransaktion = SQL.isNullNothingDbl(currentRow(19))
- PLOSE.plose_MWSTBetrag = SQL.isNullNothingDbl(currentRow(20))
- PLOSE.plose_BruttobetragTransaktion = SQL.isNullNothingDbl(currentRow(21))
- PLOSE.plose_NettobetragWaehrungAbbuchung = SQL.isNullNothingDbl(currentRow(22))
- PLOSE.plose_MWSTBetragWaehrungAbbuchung = SQL.isNullNothingDbl(currentRow(23))
- PLOSE.plose_BruttobetragWaehrungAbbuchung = SQL.isNullNothingDbl(currentRow(24))
- PLOSE.plose_WaehrungLandDiesntleistung = SQL.isleernothing(currentRow(25))
- PLOSE.plose_WaehrungAbbuchung = SQL.isleernothing(currentRow(26))
- PLOSE.plose_DokumentNrQuittungUhrzeit = SQL.isleernothing(currentRow(27))
- PLOSE.plose_ArtTransaktion = SQL.isleernothing(currentRow(28))
- PLOSE.plose_Fahrzeugklasse = SQL.isleernothing(currentRow(29))
- PLOSE.plose_KlassenidentifikationEURO = SQL.isleernothing(currentRow(30))
- PLOSE.plose_ProduktbeschreibungShort = SQL.isleernothing(currentRow(31))
- PLOSE.plose_DokumentNrQuittungUhrzeit = SQL.isleernothing(currentRow(32))
- PLOSE.plose_Geraetetyp = SQL.isleernothing(currentRow(33))
- PLOSE.plose_ProduktCode = SQL.isleernothing(currentRow(34))
- PLOSE.plose_ReferenzenBuchungMaut = SQL.isleernothing(currentRow(35))
-
- If currentRow.Length > 36 Then PLOSE.plose_SupplierRechnungsNr = SQL.isleernothing(currentRow(36))
- If currentRow.Length > 37 AndAlso currentRow(37).ToString.Length = 8 Then
- Dim datumParse = DateTime.ParseExact(currentRow(37), "yyyyMMdd", Nothing)
- PLOSE.plose_SupplierRechnungsDatum = datumParse
- End If
-
- If If(PLOSE.plose_SupplierRechnungsNr, "").contains("-SFC-") Then ' SOFICO
- PLOSE.plose_LieferantCode = "90"
- PLOSE.plose_Lieferant = SQL.DLookup("pl_Bezeichnung", "tblPLOSE_Lieferant", " [pl_LieferantCode]='" & PLOSE.plose_LieferantCode & "' ", "FMZOLL", "")
- End If
-
- ''''''''''''
- If PLOSE.SAVE() Then
- savedTrans += 1
- End If
-
- counTrans += 1
-
- End If
- 'End Select
-
+ If cnt = 0 Then
cnt += 1
+ Continue While ' erste Zeile überspringen
End If
- 'For Each currentField In currentRow
- 'Next
+ If currentRow.Length < 45 Then Continue While
+
+ 'RECHNUGNSDATUM
+ If currentRow.Length > 1 AndAlso currentRow(36).ToString.Length = 19 Then
+ Dim datumParse = DateTime.ParseExact(currentRow(36).ToString(), "dd/MM/yyyy HH:mm:ss", Globalization.CultureInfo.InvariantCulture)
+ plose_RechnungsDat = datumParse
+ End If
+ 'RECHNUGNSNR
+ If currentRow.Length > 2 Then
+ plose_RechnungsNr = SQL.isleernothing(currentRow(35))
+ End If
+
+ If currentRow.Length > 24 AndAlso currentRow(0) <> "839160" Then 'KDNR <> VERAG --> Die Kosten bleiben uns
+ Dim PLOSE As New MDM_Worker.cPLOSE
+
+ PLOSE.plose_Dateiname = fi.Name
+ PLOSE.plose_RechnungsNr = plose_RechnungsNr
+ PLOSE.plose_Lieferant = plose_Lieferant
+ PLOSE.plose_LieferantCode = plose_RechnungsLieferantCode
+ PLOSE.plose_RechnungsJahr = plose_RechnungsJahr
+ If plose_RechnungsDat IsNot Nothing Then PLOSE.plose_RechnungsDatum = plose_RechnungsDat
+ PLOSE.plose_Datensatztyp = "NEW"
+ PLOSE.plose_KodexMautTankstelle = SQL.isleernothing(currentRow(15))
+
+ Dim BeschreibungMaut = SQL.isleernothing(currentRow(16))
+ If BeschreibungMaut IsNot Nothing AndAlso BeschreibungMaut <> "" AndAlso BeschreibungMaut.ToString.Length > 12 Then
+ BeschreibungMaut = BeschreibungMaut.ToString.Substring(0, 12)
+ End If
+
+ PLOSE.plose_BeschreibungMautTankstelle = BeschreibungMaut
+ PLOSE.plose_KodexEinfahrt = SQL.isleernothing(currentRow(17))
+ PLOSE.plose_BeschreibungEinfahrt = SQL.isleernothing(currentRow(18))
+ PLOSE.plose_KodexAusfahrt = SQL.isleernothing(currentRow(19))
+ PLOSE.plose_BeschreibungAusfahrt = SQL.isleernothing(currentRow(20))
+ PLOSE.plose_Kartenkodex = SQL.isleernothing(currentRow(8))
+ PLOSE.plose_Kontonummer = SQL.isleernothing(currentRow(7))
+ PLOSE.plose_NummerKarteGeraet = SQL.isleernothing(currentRow(12))
+ PLOSE.plose_Kennzeichen = SQL.isleernothing(currentRow(13))
+ 'PLOSE.plose_InterneNrFahrzeug = SQL.isleernothing(currentRow(11))
+ PLOSE.plose_POLSEKundennummer = SQL.isleernothing(currentRow(0))
+ Dim Firmenname = SQL.isleernothing(currentRow(1))
+ If Firmenname IsNot Nothing AndAlso Firmenname <> "" AndAlso Firmenname.ToString.Length > 35 Then
+ Firmenname = Firmenname.ToString.Substring(0, 35)
+ End If
+
+ PLOSE.plose_Firmenname = Firmenname
+ PLOSE.plose_DatumTransaktion = SQL.isleernothingDateFormatstring(currentRow(23))
+
+
+ Dim ProduktBeschreibung = SQL.isleernothing(currentRow(22))
+ If ProduktBeschreibung IsNot Nothing AndAlso ProduktBeschreibung <> "" AndAlso ProduktBeschreibung.ToString.Length > 15 Then
+ ProduktBeschreibung = ProduktBeschreibung.ToString.Substring(0, 15)
+ End If
+ PLOSE.plose_Produktbeschreibung = ProduktBeschreibung
+
+ 'PLOSE.plose_Menge = SQL.isNullNothingDbl(currentRow(24))
+ 'PLOSE.plose_Preis = SQL.isNullNothingDbl(currentRow(26))
+
+ PLOSE.plose_Menge = CDbl(SQL.isNullReturnValue(currentRow(24), 0).replace(".", ","))
+ PLOSE.plose_Preis = CDbl(SQL.isNullReturnValue(currentRow(26), 0).replace(".", ","))
+
+ PLOSE.Einheitsrabatt = SQL.isleernothing(0) 'gibts nicht mehr?? in neuer Datei!
+ PLOSE.plose_NettobetragTransaktion = CDbl(SQL.isNullReturnValue(currentRow(27), 0).replace(".", ","))
+ PLOSE.plose_MWSTBetrag = CDbl(CDbl(SQL.isNullReturnValue(currentRow(29), 0).replace(".", ",")) - CDbl(SQL.isNullReturnValue(currentRow(27), 0).replace(".", ","))) 'selbst ausrechnen!!!
+ PLOSE.plose_BruttobetragTransaktion = CDbl(SQL.isNullReturnValue(currentRow(29), 0).replace(".", ","))
+ PLOSE.plose_NettobetragWaehrungAbbuchung = CDbl(SQL.isNullReturnValue(currentRow(31), 0).replace(".", ","))
+ PLOSE.plose_MWSTBetragWaehrungAbbuchung = CDbl(CDbl(SQL.isNullReturnValue(currentRow(32), 0).replace(".", ",")) - CDbl(SQL.isNullReturnValue(currentRow(31), 0).replace(".", ","))) 'selbst ausrechnen!!!
+ PLOSE.plose_BruttobetragWaehrungAbbuchung = CDbl(SQL.isNullReturnValue(currentRow(32), 0).replace(".", ","))
+ PLOSE.plose_WaehrungLandDiesntleistung = SQL.isleernothing(currentRow(25))
+ PLOSE.plose_WaehrungAbbuchung = SQL.isleernothing(currentRow(30))
+ PLOSE.plose_ProduktCode = SQL.isleernothing(currentRow(21))
+ 'PLOSE.plose_ProduktbeschreibungShort = SQL.isleernothing(currentRow(22))
+ PLOSE.plose_KlassenidentifikationEURO = SQL.isleernothing(currentRow(39))
+ PLOSE.plose_Fahrzeugklasse = SQL.isleernothing(currentRow(40))
+
+ 'das stimmt nicht so.....
+ 'PLOSE.plose_DokumentNrQuittungUhrzeit = SQL.isleernothing(currentRow(27)) '???
+ 'PLOSE.plose_ArtTransaktion = SQL.isleernothing(currentRow(39)) -> Gibt nicht mehr!
+ 'PLOSE.plose_Geraetetyp = SQL.isleernothing(currentRow(33)) -> Gibt nicht mehr!
+ ' PLOSE.plose_ReferenzenBuchungMaut = SQL.isleernothing(currentRow(35)) -> Gibt nicht mehr!
+
+ PLOSE.plose_SupplierRechnungsNr = SQL.isleernothing(currentRow(37))
+ If currentRow(38).ToString.Length = 19 Then
+ Dim datumParse = DateTime.ParseExact(currentRow(38).ToString(), "dd/MM/yyyy HH:mm:ss", Globalization.CultureInfo.InvariantCulture)
+ PLOSE.plose_SupplierRechnungsDatum = datumParse 'ItalianDocDate -> vom Lieferanten!
+ End If
+
+ If If(PLOSE.plose_SupplierRechnungsNr, "").contains("-SFC-") Then ' SOFICO
+ PLOSE.plose_LieferantCode = "90"
+ PLOSE.plose_Lieferant = SQL.DLookup("pl_Bezeichnung", "tblPLOSE_Lieferant", " [pl_LieferantCode]='" & PLOSE.plose_LieferantCode & "' ", "FMZOLL", "")
+ End If
+
+ ''''''''''''
+ If PLOSE.SAVE() Then
+ savedTrans += 1
+ End If
+
+ counTrans += 1
+
+ End If
+
+
+ cnt += 1
+
+
+
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
@@ -1125,6 +1172,143 @@ Public Class frmMDMNachrichtenVerarbeitung
End Try
End Function
+ Function readPLOSE_INVData_NEW_FORMAT(d As String) As String
+ Try
+ Dim cnt = 0
+ readPLOSE_INVData_NEW_FORMAT = ""
+
+
+ Using MyReader As New Microsoft.VisualBasic.FileIO.TextFieldParser(d, Encoding.UTF8)
+ MyReader.TextFieldType = FileIO.FieldType.Delimited
+ MyReader.SetDelimiters(";")
+ Dim currentRow As String()
+
+
+ Dim fi As FileInfo = New FileInfo(d)
+
+ Dim fileName As String = System.IO.Path.GetFileNameWithoutExtension(fi.Name)
+
+ 'Alles ab "_RGDAT_" entfernen
+ fileName = fileName.Split("_"c)(0)
+
+ Dim parts() As String = fileName.Split("-"c)
+
+ If parts.Length >= 10 Then
+ Dim company As String = parts(0)
+ Dim documentType As String = parts(1) 'rdoc
+ Dim documentNumber As String = parts(2)
+ Dim documentYearMonth As String = parts(3) & "-" & parts(4)
+ Dim documentYearMonthDay As String = parts(5) & "-" & parts(6) & "-" & parts(7)
+ Dim customerCode As String = parts(8)
+ Dim partnerCustomerCode As String = parts(9)
+
+ End If
+
+
+ While Not MyReader.EndOfData
+ Try
+ currentRow = MyReader.ReadFields()
+
+
+ If cnt = 0 Then
+ cnt += 1
+ Continue While ' erste Zeile überspringen
+ End If
+
+ If currentRow.Length >= 28 Then
+ Dim PLOSE_INV As New MDM_Worker.cPLOSE_Inv_Data
+ PLOSE_INV.plInv_SupplierRechnungsDatum = SQL.isleernothingDateFormatstring(currentRow(8))
+ PLOSE_INV.plInv_SupplierRechnungsNr = SQL.isleernothing(currentRow(9))
+ PLOSE_INV.plInv_SupplierCountry = SQL.isleernothing(currentRow(7))
+ PLOSE_INV.plInv_Lieferant = SQL.isleernothing(currentRow(5))
+ PLOSE_INV.plInv_LieferantCode = SQL.isleernothing(currentRow(3))
+ PLOSE_INV.plInv_LieferantUID = SQL.isleernothing(currentRow(6))
+ PLOSE_INV.plInv_PdfFileName = SQL.isleernothing(currentRow(22))
+ If If(PLOSE_INV.plInv_PdfFileName, "") <> "" Then
+ If Not PLOSE_INV.plInv_PdfFileName.ToString.ToLower.EndsWith(".pdf") Then PLOSE_INV.plInv_PdfFileName += ".pdf" ' Falls Endung nciht .pdf --> anfügen
+ End If
+
+ Dim origCurrency = SQL.isleernothing(currentRow(11))
+
+
+ PLOSE_INV.plInv_Einlesedatum = Now.ToShortDateString
+ PLOSE_INV.plInv_Datensatztyp = "PDF"
+ PLOSE_INV.plInv_PLOSEKundennummer = SQL.isleernothing(currentRow(0))
+ PLOSE_INV.plInv_Firmenname = SQL.isleernothing(currentRow(1))
+ PLOSE_INV.plInv_Services = SQL.isleernothing(currentRow(21))
+
+ Select Case origCurrency 'HUF immer in Fremdwährung abpeichern...
+ Case "HUF"
+ PLOSE_INV.plInv_Currency = "HUF"
+ PLOSE_INV.plInv_Nettobetrag = CDbl(CDbl(SQL.isNullReturnValue(currentRow(12), 0).replace(".", ",")))
+ PLOSE_INV.plInv_MWSTBetrag = CDbl(SQL.isNullReturnValue(currentRow(13), 0).replace(".", ","))
+ PLOSE_INV.plInv_Bruttobetrag = CDbl(SQL.isNullReturnValue(currentRow(15), 0).replace(".", ","))
+
+ Case Else
+ PLOSE_INV.plInv_Currency = "EUR"
+ PLOSE_INV.plInv_Nettobetrag = CDbl(CDbl(SQL.isNullReturnValue(currentRow(16), 0).replace(".", ",")))
+ PLOSE_INV.plInv_MWSTBetrag = CDbl(SQL.isNullReturnValue(currentRow(17), 0).replace(".", ","))
+ PLOSE_INV.plInv_Bruttobetrag = CDbl(SQL.isNullReturnValue(currentRow(19), 0).replace(".", ","))
+ End Select
+
+
+
+ ' [plInv_daId]
+
+ 'If If(PLOSE_INV.plInv_PdfFileName, "") <> "" Then 'And PLOSE_INV.plInv_daId Is Nothing Then
+ ' PLOSE_INV.plInv_daId = SQL.getValueTxtBySql("SELECT TOP (1) [da_id] FROM [tblDatenarchiv] where da_kategorie = 'MDM' AND da_ordner='MDM_DATEN' and da_name='" & PLOSE_INV.plInv_PdfFileName & "' order by da_id desc", "FMZOLL",,, Nothing)
+ 'End If
+
+
+ PLOSE_INV.plInv_Dateiname = fi.Name
+
+ ''''''''''''
+ If PLOSE_INV.SAVEUNQIUE() Then
+
+ ' UPDATE tblPLOSE_Details:
+ SQL.doSQL("UPDATE [tblPLOSE_Details] SET [plose_plInvId] ='" & PLOSE_INV.plInv_Id & "' where plose_SupplierRechnungsNr='" & PLOSE_INV.plInv_SupplierRechnungsNr & "' AND plose_SupplierRechnungsDatum='" & PLOSE_INV.plInv_SupplierRechnungsDatum & "'", "FMZOLL")
+ End If
+
+ End If
+
+
+ cnt += 1
+
+ Catch ex As Exception
+ VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+ End Try
+ End While
+
+
+ readPLOSE_INVData_NEW_FORMAT = "Zeilen: " & cnt
+
+ End Using
+
+
+
+
+ Try
+ ' System.IO.File.Delete(p)
+ Catch ex As Exception
+ VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+ End Try
+
+ addDGVEinarbeitung("PLOSE: INV_DATA (" & cnt & ")", readPLOSE_INVData_NEW_FORMAT)
+
+ ' End Using
+
+ 'End If
+
+ Catch ex As Exception
+ VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+ MsgBox(ex.StackTrace & ex.Message)
+ readPLOSE_INVData_NEW_FORMAT = ""
+ End Try
+ End Function
+
+
+
+
Private Sub dgvEinarbeitung_SelectionChanged(sender As Object, e As EventArgs) Handles dgvEinarbeitung.SelectionChanged
dgvEinarbeitung.ClearSelection()
diff --git a/initATLASAufschubkonten/frmStartOptions.Designer.vb b/initATLASAufschubkonten/frmStartOptions.Designer.vb
index 5625639..6c44247 100644
--- a/initATLASAufschubkonten/frmStartOptions.Designer.vb
+++ b/initATLASAufschubkonten/frmStartOptions.Designer.vb
@@ -25,6 +25,7 @@ Partial Class frmStartOptions
Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmStartOptions))
Me.pnl = New System.Windows.Forms.Panel()
+ Me.Button33 = New System.Windows.Forms.Button()
Me.LinkLabel54 = New System.Windows.Forms.LinkLabel()
Me.Button32 = New System.Windows.Forms.Button()
Me.btnEZOLL_1month = New System.Windows.Forms.Button()
@@ -43,7 +44,6 @@ 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()
@@ -60,20 +60,16 @@ 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()
@@ -82,7 +78,6 @@ 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.tbcntr = New System.Windows.Forms.TabControl()
@@ -92,7 +87,6 @@ Partial Class frmStartOptions
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()
@@ -162,15 +156,6 @@ 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.Button31 = New System.Windows.Forms.Button()
Me.Label56 = New System.Windows.Forms.Label()
@@ -205,18 +190,10 @@ 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.MyTextBox5 = 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.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()
@@ -247,7 +224,6 @@ 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.LinkLabel25 = New System.Windows.Forms.LinkLabel()
Me.Label61 = New System.Windows.Forms.Label()
@@ -274,10 +250,6 @@ 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.lblOriginalRechnungRMC = New System.Windows.Forms.Label()
@@ -288,7 +260,6 @@ 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.lblOriginalRechnungUTA = New System.Windows.Forms.Label()
Me.Label65 = New System.Windows.Forms.Label()
@@ -302,9 +273,9 @@ 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.cbxPlose_INVNewFormat = New System.Windows.Forms.CheckBox()
+ Me.cbxPlose_TRNewFormat = New System.Windows.Forms.CheckBox()
Me.lblOriginalRechnungPLOSE = New System.Windows.Forms.Label()
Me.Label63 = New System.Windows.Forms.Label()
Me.Label62 = New System.Windows.Forms.Label()
@@ -317,8 +288,6 @@ 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()
@@ -338,12 +307,10 @@ 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()
@@ -353,7 +320,6 @@ 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()
@@ -371,13 +337,15 @@ 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.txtCSDate = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+ Me.TabPage9 = New System.Windows.Forms.TabPage()
+ Me.Button34 = New System.Windows.Forms.Button()
+ Me.Label57 = New System.Windows.Forms.Label()
+ Me.Label64 = New System.Windows.Forms.Label()
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()
@@ -393,10 +361,56 @@ 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.txtGJ_UNISPED = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Button21 = New System.Windows.Forms.Button()
+ Me.pbOfferten = New System.Windows.Forms.PictureBox()
+ Me.cbxNurAktiveKunen = New System.Windows.Forms.CheckBox()
+ Me.Label66 = New System.Windows.Forms.Label()
+ 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.MyTextBox5 = 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.txtBerechnungsart = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+ Me.cbxLeistungNr = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+ Me.cbxOffertenNr = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+ Me.txtLeistungsNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+ Me.txtOfferenNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+ Me.MyTextBox1 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+ Me.txtGJ_UNISPED = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn()
- Me.Button33 = New System.Windows.Forms.Button()
Me.pnl.SuspendLayout()
CType(Me.pbEmailscheck, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox24, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -423,7 +437,6 @@ 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()
@@ -441,13 +454,16 @@ 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()
+ Me.TabPage9.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.pbOfferten, System.ComponentModel.ISupportInitialize).BeginInit()
+ CType(Me.dgvMRN, System.ComponentModel.ISupportInitialize).BeginInit()
+ CType(Me.dgv_MDMEinarbeitung, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'pnl
@@ -544,6 +560,18 @@ Partial Class frmStartOptions
Me.pnl.Size = New System.Drawing.Size(1229, 946)
Me.pnl.TabIndex = 0
'
+ 'Button33
+ '
+ Me.Button33.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+ Me.Button33.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+ Me.Button33.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+ Me.Button33.Location = New System.Drawing.Point(1126, 155)
+ Me.Button33.Name = "Button33"
+ Me.Button33.Size = New System.Drawing.Size(90, 40)
+ Me.Button33.TabIndex = 151
+ Me.Button33.Text = "EB-Highway"
+ Me.Button33.UseVisualStyleBackColor = True
+ '
'LinkLabel54
'
Me.LinkLabel54.AutoSize = True
@@ -743,29 +771,6 @@ 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
@@ -944,29 +949,6 @@ 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, 155)
- 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
@@ -1013,30 +995,6 @@ 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
@@ -1061,30 +1019,6 @@ Partial Class frmStartOptions
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
@@ -1133,17 +1067,6 @@ 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
@@ -1236,17 +1159,6 @@ 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
@@ -1276,6 +1188,7 @@ Partial Class frmStartOptions
Me.tbcntr.Controls.Add(Me.TabPage4)
Me.tbcntr.Controls.Add(Me.TabPage6)
Me.tbcntr.Controls.Add(Me.TabPage7)
+ Me.tbcntr.Controls.Add(Me.TabPage9)
Me.tbcntr.Dock = System.Windows.Forms.DockStyle.Bottom
Me.tbcntr.Location = New System.Drawing.Point(0, 405)
Me.tbcntr.Name = "tbcntr"
@@ -1401,30 +1314,6 @@ Partial Class frmStartOptions
Me.cbxGestellungspeichern.Text = "SAVE VW"
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
@@ -2219,165 +2108,6 @@ 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.Button31)
@@ -2786,140 +2516,6 @@ Partial Class frmStartOptions
Me.cbxTCVB_Versand.Text = "ZB Versand"
Me.cbxTCVB_Versand.UseVisualStyleBackColor = True
'
- 'MyTextBox5
- '
- Me.MyTextBox5._DateTimeOnly = False
- Me.MyTextBox5._numbersOnly = False
- Me.MyTextBox5._numbersOnlyKommastellen = ""
- Me.MyTextBox5._numbersOnlyTrennzeichen = True
- Me.MyTextBox5._Prozent = False
- Me.MyTextBox5._ShortDateNew = True
- Me.MyTextBox5._ShortDateOnly = False
- Me.MyTextBox5._TimeOnly = False
- Me.MyTextBox5._TimeOnly_Seconds = False
- Me.MyTextBox5._value = ""
- Me.MyTextBox5._Waehrung = False
- Me.MyTextBox5._WaehrungZeichen = True
- Me.MyTextBox5.ForeColor = System.Drawing.Color.Black
- Me.MyTextBox5.Location = New System.Drawing.Point(169, 331)
- Me.MyTextBox5.MaxLength = 10
- Me.MyTextBox5.MaxLineLength = -1
- Me.MyTextBox5.MaxLines_Warning = ""
- Me.MyTextBox5.MaxLines_Warning_Label = Nothing
- Me.MyTextBox5.Name = "MyTextBox5"
- Me.MyTextBox5.Size = New System.Drawing.Size(87, 20)
- Me.MyTextBox5.TabIndex = 159
- '
- '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)
@@ -2988,54 +2584,6 @@ 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
@@ -3372,32 +2920,6 @@ 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.LinkLabel25)
@@ -3696,98 +3218,6 @@ 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)
@@ -3901,17 +3331,6 @@ 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.lblOriginalRechnungUTA)
@@ -4062,60 +3481,10 @@ 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(17, 215)
- 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.cbxPlose_INVNewFormat)
+ Me.PLOSE.Controls.Add(Me.cbxPlose_TRNewFormat)
Me.PLOSE.Controls.Add(Me.lblOriginalRechnungPLOSE)
Me.PLOSE.Controls.Add(Me.Label63)
Me.PLOSE.Controls.Add(Me.Label62)
@@ -4137,6 +3506,32 @@ Partial Class frmStartOptions
Me.PLOSE.Text = "PLOSE"
Me.PLOSE.UseVisualStyleBackColor = True
'
+ 'cbxPlose_INVNewFormat
+ '
+ Me.cbxPlose_INVNewFormat.AutoSize = True
+ Me.cbxPlose_INVNewFormat.Checked = True
+ Me.cbxPlose_INVNewFormat.CheckState = System.Windows.Forms.CheckState.Checked
+ Me.cbxPlose_INVNewFormat.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.cbxPlose_INVNewFormat.Location = New System.Drawing.Point(123, 61)
+ Me.cbxPlose_INVNewFormat.Name = "cbxPlose_INVNewFormat"
+ Me.cbxPlose_INVNewFormat.Size = New System.Drawing.Size(102, 17)
+ Me.cbxPlose_INVNewFormat.TabIndex = 179
+ Me.cbxPlose_INVNewFormat.Text = "INV new Format"
+ Me.cbxPlose_INVNewFormat.UseVisualStyleBackColor = True
+ '
+ 'cbxPlose_TRNewFormat
+ '
+ Me.cbxPlose_TRNewFormat.AutoSize = True
+ Me.cbxPlose_TRNewFormat.Checked = True
+ Me.cbxPlose_TRNewFormat.CheckState = System.Windows.Forms.CheckState.Checked
+ Me.cbxPlose_TRNewFormat.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.cbxPlose_TRNewFormat.Location = New System.Drawing.Point(18, 61)
+ Me.cbxPlose_TRNewFormat.Name = "cbxPlose_TRNewFormat"
+ Me.cbxPlose_TRNewFormat.Size = New System.Drawing.Size(99, 17)
+ Me.cbxPlose_TRNewFormat.TabIndex = 171
+ Me.cbxPlose_TRNewFormat.Text = "TR new Format"
+ Me.cbxPlose_TRNewFormat.UseVisualStyleBackColor = True
+ '
'lblOriginalRechnungPLOSE
'
Me.lblOriginalRechnungPLOSE.AutoSize = True
@@ -4161,7 +3556,7 @@ Partial Class frmStartOptions
'
Me.Label62.AutoSize = True
Me.Label62.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
- Me.Label62.Location = New System.Drawing.Point(19, 124)
+ Me.Label62.Location = New System.Drawing.Point(19, 128)
Me.Label62.Name = "Label62"
Me.Label62.Size = New System.Drawing.Size(79, 13)
Me.Label62.TabIndex = 176
@@ -4181,7 +3576,7 @@ Partial Class frmStartOptions
'lblPlosefoppelteIMporte
'
Me.lblPlosefoppelteIMporte.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
- Me.lblPlosefoppelteIMporte.Location = New System.Drawing.Point(17, 238)
+ Me.lblPlosefoppelteIMporte.Location = New System.Drawing.Point(17, 242)
Me.lblPlosefoppelteIMporte.Name = "lblPlosefoppelteIMporte"
Me.lblPlosefoppelteIMporte.Size = New System.Drawing.Size(132, 23)
Me.lblPlosefoppelteIMporte.TabIndex = 169
@@ -4192,7 +3587,7 @@ Partial Class frmStartOptions
'
Me.LinkLabel52.AutoSize = True
Me.LinkLabel52.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
- Me.LinkLabel52.Location = New System.Drawing.Point(17, 216)
+ Me.LinkLabel52.Location = New System.Drawing.Point(17, 220)
Me.LinkLabel52.Name = "LinkLabel52"
Me.LinkLabel52.Size = New System.Drawing.Size(151, 13)
Me.LinkLabel52.TabIndex = 168
@@ -4214,7 +3609,7 @@ Partial Class frmStartOptions
'
Me.Label52.AutoSize = True
Me.Label52.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
- Me.Label52.Location = New System.Drawing.Point(17, 149)
+ Me.Label52.Location = New System.Drawing.Point(17, 153)
Me.Label52.Name = "Label52"
Me.Label52.Size = New System.Drawing.Size(27, 13)
Me.Label52.TabIndex = 166
@@ -4224,7 +3619,7 @@ Partial Class frmStartOptions
'
Me.Label51.AutoSize = True
Me.Label51.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
- Me.Label51.Location = New System.Drawing.Point(14, 172)
+ Me.Label51.Location = New System.Drawing.Point(14, 176)
Me.Label51.Name = "Label51"
Me.Label51.Size = New System.Drawing.Size(55, 13)
Me.Label51.TabIndex = 164
@@ -4234,7 +3629,7 @@ Partial Class frmStartOptions
'
Me.LinkLabel24.AutoSize = True
Me.LinkLabel24.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
- Me.LinkLabel24.Location = New System.Drawing.Point(13, 61)
+ Me.LinkLabel24.Location = New System.Drawing.Point(13, 83)
Me.LinkLabel24.Name = "LinkLabel24"
Me.LinkLabel24.Size = New System.Drawing.Size(177, 13)
Me.LinkLabel24.TabIndex = 124
@@ -4245,7 +3640,7 @@ Partial Class frmStartOptions
'
Me.LinkLabel23.AutoSize = True
Me.LinkLabel23.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
- Me.LinkLabel23.Location = New System.Drawing.Point(13, 86)
+ Me.LinkLabel23.Location = New System.Drawing.Point(13, 108)
Me.LinkLabel23.Name = "LinkLabel23"
Me.LinkLabel23.Size = New System.Drawing.Size(180, 13)
Me.LinkLabel23.TabIndex = 125
@@ -4256,65 +3651,13 @@ Partial Class frmStartOptions
'
Me.PlosePdfRE.AutoSize = True
Me.PlosePdfRE.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
- Me.PlosePdfRE.Location = New System.Drawing.Point(17, 196)
+ Me.PlosePdfRE.Location = New System.Drawing.Point(17, 200)
Me.PlosePdfRE.Name = "PlosePdfRE"
Me.PlosePdfRE.Size = New System.Drawing.Size(119, 13)
Me.PlosePdfRE.TabIndex = 159
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(83, 146)
- 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(83, 169)
- 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)
@@ -4561,30 +3904,6 @@ 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)
@@ -4628,15 +3947,6 @@ 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
@@ -4741,30 +4051,6 @@ 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)
@@ -4973,32 +4259,57 @@ Partial Class frmStartOptions
Me.btnCreditsaveLauf.Text = "CS Portfolio-Upload"
Me.btnCreditsaveLauf.UseVisualStyleBackColor = True
'
- 'txtCSDate
+ 'TabPage9
'
- 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
+ Me.TabPage9.Controls.Add(Me.txtBerechnungsart)
+ Me.TabPage9.Controls.Add(Me.Label66)
+ Me.TabPage9.Controls.Add(Me.cbxNurAktiveKunen)
+ Me.TabPage9.Controls.Add(Me.pbOfferten)
+ Me.TabPage9.Controls.Add(Me.cbxLeistungNr)
+ Me.TabPage9.Controls.Add(Me.cbxOffertenNr)
+ Me.TabPage9.Controls.Add(Me.Button34)
+ Me.TabPage9.Controls.Add(Me.txtLeistungsNr)
+ Me.TabPage9.Controls.Add(Me.txtOfferenNr)
+ Me.TabPage9.Controls.Add(Me.Label57)
+ Me.TabPage9.Controls.Add(Me.Label64)
+ Me.TabPage9.Location = New System.Drawing.Point(4, 22)
+ Me.TabPage9.Name = "TabPage9"
+ Me.TabPage9.Size = New System.Drawing.Size(1219, 513)
+ Me.TabPage9.TabIndex = 6
+ Me.TabPage9.Text = "Offerten"
+ Me.TabPage9.UseVisualStyleBackColor = True
+ '
+ 'Button34
+ '
+ Me.Button34.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+ Me.Button34.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+ Me.Button34.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+ Me.Button34.Location = New System.Drawing.Point(19, 120)
+ Me.Button34.Name = "Button34"
+ Me.Button34.Size = New System.Drawing.Size(143, 24)
+ Me.Button34.TabIndex = 152
+ Me.Button34.Text = "Off. in Offerenpos. setzen"
+ Me.Button34.UseVisualStyleBackColor = True
+ '
+ 'Label57
+ '
+ Me.Label57.AutoSize = True
+ Me.Label57.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.Label57.Location = New System.Drawing.Point(21, 41)
+ Me.Label57.Name = "Label57"
+ Me.Label57.Size = New System.Drawing.Size(53, 13)
+ Me.Label57.TabIndex = 170
+ Me.Label57.Text = "OfferenNr"
+ '
+ 'Label64
+ '
+ Me.Label64.AutoSize = True
+ Me.Label64.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.Label64.Location = New System.Drawing.Point(18, 64)
+ Me.Label64.Name = "Label64"
+ Me.Label64.Size = New System.Drawing.Size(63, 13)
+ Me.Label64.TabIndex = 169
+ Me.Label64.Text = "LeistungsNr"
'
'CheckBox1
'
@@ -5057,30 +4368,6 @@ 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, 135)
- 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)
@@ -5249,6 +4536,978 @@ 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
+ '
+ 'pbOfferten
+ '
+ Me.pbOfferten.BackgroundImage = CType(resources.GetObject("pbOfferten.BackgroundImage"), System.Drawing.Image)
+ Me.pbOfferten.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+ Me.pbOfferten.Location = New System.Drawing.Point(185, 126)
+ Me.pbOfferten.Name = "pbOfferten"
+ Me.pbOfferten.Size = New System.Drawing.Size(18, 18)
+ Me.pbOfferten.TabIndex = 152
+ Me.pbOfferten.TabStop = False
+ Me.pbOfferten.Visible = False
+ '
+ 'cbxNurAktiveKunen
+ '
+ Me.cbxNurAktiveKunen.AutoSize = True
+ Me.cbxNurAktiveKunen.Checked = True
+ Me.cbxNurAktiveKunen.CheckState = System.Windows.Forms.CheckState.Checked
+ Me.cbxNurAktiveKunen.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.cbxNurAktiveKunen.Location = New System.Drawing.Point(22, 16)
+ Me.cbxNurAktiveKunen.Name = "cbxNurAktiveKunen"
+ Me.cbxNurAktiveKunen.Size = New System.Drawing.Size(188, 17)
+ Me.cbxNurAktiveKunen.TabIndex = 152
+ Me.cbxNurAktiveKunen.Text = "nur aktive/nicht gesperrte Kunden"
+ Me.cbxNurAktiveKunen.UseVisualStyleBackColor = True
+ '
+ 'Label66
+ '
+ Me.Label66.AutoSize = True
+ Me.Label66.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.Label66.Location = New System.Drawing.Point(77, 91)
+ Me.Label66.Name = "Label66"
+ Me.Label66.Size = New System.Drawing.Size(207, 13)
+ Me.Label66.TabIndex = 174
+ Me.Label66.Text = "Berechnungsart überschreiben (wenn leer)"
+ '
+ '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, 155)
+ 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(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
+ '
+ '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
+ '
+ 'MyTextBox5
+ '
+ Me.MyTextBox5._DateTimeOnly = False
+ Me.MyTextBox5._numbersOnly = False
+ Me.MyTextBox5._numbersOnlyKommastellen = ""
+ Me.MyTextBox5._numbersOnlyTrennzeichen = True
+ Me.MyTextBox5._Prozent = False
+ Me.MyTextBox5._ShortDateNew = True
+ Me.MyTextBox5._ShortDateOnly = False
+ Me.MyTextBox5._TimeOnly = False
+ Me.MyTextBox5._TimeOnly_Seconds = False
+ Me.MyTextBox5._value = ""
+ Me.MyTextBox5._Waehrung = False
+ Me.MyTextBox5._WaehrungZeichen = True
+ Me.MyTextBox5.ForeColor = System.Drawing.Color.Black
+ Me.MyTextBox5.Location = New System.Drawing.Point(169, 331)
+ Me.MyTextBox5.MaxLength = 10
+ Me.MyTextBox5.MaxLineLength = -1
+ Me.MyTextBox5.MaxLines_Warning = ""
+ Me.MyTextBox5.MaxLines_Warning_Label = Nothing
+ Me.MyTextBox5.Name = "MyTextBox5"
+ Me.MyTextBox5.Size = New System.Drawing.Size(87, 20)
+ Me.MyTextBox5.TabIndex = 159
+ '
+ '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(17, 215)
+ 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(83, 150)
+ 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(83, 173)
+ 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
+ '
+ 'txtBerechnungsart
+ '
+ Me.txtBerechnungsart._DateTimeOnly = False
+ Me.txtBerechnungsart._numbersOnly = True
+ Me.txtBerechnungsart._numbersOnlyKommastellen = ""
+ Me.txtBerechnungsart._numbersOnlyTrennzeichen = False
+ Me.txtBerechnungsart._Prozent = False
+ Me.txtBerechnungsart._ShortDateNew = False
+ Me.txtBerechnungsart._ShortDateOnly = False
+ Me.txtBerechnungsart._TimeOnly = False
+ Me.txtBerechnungsart._TimeOnly_Seconds = False
+ Me.txtBerechnungsart._value = ""
+ Me.txtBerechnungsart._Waehrung = False
+ Me.txtBerechnungsart._WaehrungZeichen = False
+ Me.txtBerechnungsart.BackColor = System.Drawing.SystemColors.Window
+ Me.txtBerechnungsart.ForeColor = System.Drawing.Color.Red
+ Me.txtBerechnungsart.Location = New System.Drawing.Point(26, 88)
+ Me.txtBerechnungsart.MaxLength = 10
+ Me.txtBerechnungsart.MaxLineLength = -1
+ Me.txtBerechnungsart.MaxLines_Warning = ""
+ Me.txtBerechnungsart.MaxLines_Warning_Label = Nothing
+ Me.txtBerechnungsart.Name = "txtBerechnungsart"
+ Me.txtBerechnungsart.Size = New System.Drawing.Size(29, 20)
+ Me.txtBerechnungsart.TabIndex = 175
+ Me.txtBerechnungsart.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+ '
+ 'cbxLeistungNr
+ '
+ Me.cbxLeistungNr._allowedValuesFreiText = Nothing
+ Me.cbxLeistungNr._allowFreiText = False
+ Me.cbxLeistungNr._value = ""
+ Me.cbxLeistungNr.DropDownWidth = 150
+ Me.cbxLeistungNr.FormattingEnabled = True
+ Me.cbxLeistungNr.Location = New System.Drawing.Point(103, 61)
+ Me.cbxLeistungNr.Name = "cbxLeistungNr"
+ Me.cbxLeistungNr.Size = New System.Drawing.Size(88, 21)
+ Me.cbxLeistungNr.TabIndex = 173
+ '
+ 'cbxOffertenNr
+ '
+ Me.cbxOffertenNr._allowedValuesFreiText = Nothing
+ Me.cbxOffertenNr._allowFreiText = False
+ Me.cbxOffertenNr._value = ""
+ Me.cbxOffertenNr.DropDownWidth = 150
+ Me.cbxOffertenNr.FormattingEnabled = True
+ Me.cbxOffertenNr.Location = New System.Drawing.Point(103, 37)
+ Me.cbxOffertenNr.Name = "cbxOffertenNr"
+ Me.cbxOffertenNr.Size = New System.Drawing.Size(88, 21)
+ Me.cbxOffertenNr.TabIndex = 152
+ '
+ 'txtLeistungsNr
+ '
+ Me.txtLeistungsNr._DateTimeOnly = False
+ Me.txtLeistungsNr._numbersOnly = True
+ Me.txtLeistungsNr._numbersOnlyKommastellen = ""
+ Me.txtLeistungsNr._numbersOnlyTrennzeichen = False
+ Me.txtLeistungsNr._Prozent = False
+ Me.txtLeistungsNr._ShortDateNew = False
+ Me.txtLeistungsNr._ShortDateOnly = False
+ Me.txtLeistungsNr._TimeOnly = False
+ Me.txtLeistungsNr._TimeOnly_Seconds = False
+ Me.txtLeistungsNr._value = ""
+ Me.txtLeistungsNr._Waehrung = False
+ Me.txtLeistungsNr._WaehrungZeichen = False
+ Me.txtLeistungsNr.BackColor = System.Drawing.SystemColors.Window
+ Me.txtLeistungsNr.Enabled = False
+ Me.txtLeistungsNr.ForeColor = System.Drawing.Color.Red
+ Me.txtLeistungsNr.Location = New System.Drawing.Point(207, 61)
+ Me.txtLeistungsNr.MaxLength = 10
+ Me.txtLeistungsNr.MaxLineLength = -1
+ Me.txtLeistungsNr.MaxLines_Warning = ""
+ Me.txtLeistungsNr.MaxLines_Warning_Label = Nothing
+ Me.txtLeistungsNr.Name = "txtLeistungsNr"
+ Me.txtLeistungsNr.Size = New System.Drawing.Size(115, 20)
+ Me.txtLeistungsNr.TabIndex = 172
+ Me.txtLeistungsNr.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+ '
+ 'txtOfferenNr
+ '
+ Me.txtOfferenNr._DateTimeOnly = False
+ Me.txtOfferenNr._numbersOnly = True
+ Me.txtOfferenNr._numbersOnlyKommastellen = ""
+ Me.txtOfferenNr._numbersOnlyTrennzeichen = False
+ Me.txtOfferenNr._Prozent = False
+ Me.txtOfferenNr._ShortDateNew = False
+ Me.txtOfferenNr._ShortDateOnly = False
+ Me.txtOfferenNr._TimeOnly = False
+ Me.txtOfferenNr._TimeOnly_Seconds = False
+ Me.txtOfferenNr._value = ""
+ Me.txtOfferenNr._Waehrung = False
+ Me.txtOfferenNr._WaehrungZeichen = False
+ Me.txtOfferenNr.BackColor = System.Drawing.SystemColors.Window
+ Me.txtOfferenNr.Enabled = False
+ Me.txtOfferenNr.ForeColor = System.Drawing.Color.Red
+ Me.txtOfferenNr.Location = New System.Drawing.Point(207, 38)
+ Me.txtOfferenNr.MaxLength = 10
+ Me.txtOfferenNr.MaxLineLength = -1
+ Me.txtOfferenNr.MaxLines_Warning = ""
+ Me.txtOfferenNr.MaxLines_Warning_Label = Nothing
+ Me.txtOfferenNr.Name = "txtOfferenNr"
+ Me.txtOfferenNr.Size = New System.Drawing.Size(115, 20)
+ Me.txtOfferenNr.TabIndex = 171
+ Me.txtOfferenNr.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, 135)
+ 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
@@ -5273,18 +5532,6 @@ 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
@@ -5292,18 +5539,6 @@ Partial Class frmStartOptions
Me.DataGridViewTextBoxColumn1.MinimumWidth = 8
Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1"
'
- 'Button33
- '
- Me.Button33.FlatStyle = System.Windows.Forms.FlatStyle.Flat
- Me.Button33.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
- Me.Button33.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
- Me.Button33.Location = New System.Drawing.Point(1126, 155)
- Me.Button33.Name = "Button33"
- Me.Button33.Size = New System.Drawing.Size(90, 40)
- Me.Button33.TabIndex = 151
- Me.Button33.Text = "EB-Highway"
- Me.Button33.UseVisualStyleBackColor = True
- '
'frmStartOptions
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -5346,7 +5581,6 @@ 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)
@@ -5375,15 +5609,19 @@ 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)
Me.TabPage7.PerformLayout()
+ Me.TabPage9.ResumeLayout(False)
+ Me.TabPage9.PerformLayout()
CType(Me.PictureBox12, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox11, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox10, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox9, System.ComponentModel.ISupportInitialize).EndInit()
+ CType(Me.pbOfferten, System.ComponentModel.ISupportInitialize).EndInit()
+ CType(Me.dgvMRN, System.ComponentModel.ISupportInitialize).EndInit()
+ CType(Me.dgv_MDMEinarbeitung, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
End Sub
@@ -5760,4 +5998,18 @@ Partial Class frmStartOptions
Friend WithEvents Button32 As Button
Friend WithEvents LinkLabel54 As LinkLabel
Friend WithEvents Button33 As Button
+ Friend WithEvents cbxPlose_TRNewFormat As CheckBox
+ Friend WithEvents cbxPlose_INVNewFormat As CheckBox
+ Friend WithEvents TabPage9 As TabPage
+ Friend WithEvents Button34 As Button
+ Friend WithEvents txtLeistungsNr As VERAG_PROG_ALLGEMEIN.MyTextBox
+ Friend WithEvents txtOfferenNr As VERAG_PROG_ALLGEMEIN.MyTextBox
+ Friend WithEvents Label57 As Label
+ Friend WithEvents Label64 As Label
+ Friend WithEvents cbxLeistungNr As VERAG_PROG_ALLGEMEIN.MyComboBox
+ Friend WithEvents cbxOffertenNr As VERAG_PROG_ALLGEMEIN.MyComboBox
+ Friend WithEvents pbOfferten As PictureBox
+ Friend WithEvents cbxNurAktiveKunen As CheckBox
+ Friend WithEvents txtBerechnungsart As VERAG_PROG_ALLGEMEIN.MyTextBox
+ Friend WithEvents Label66 As Label
End Class
diff --git a/initATLASAufschubkonten/frmStartOptions.resx b/initATLASAufschubkonten/frmStartOptions.resx
index 06047ac..963b638 100644
--- a/initATLASAufschubkonten/frmStartOptions.resx
+++ b/initATLASAufschubkonten/frmStartOptions.resx
@@ -767,6 +767,30 @@
+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 2c9b1c6..ffa801d 100644
--- a/initATLASAufschubkonten/frmStartOptions.vb
+++ b/initATLASAufschubkonten/frmStartOptions.vb
@@ -6,11 +6,10 @@ Imports System.Security.Cryptography.X509Certificates
Imports System.Text
Imports System.Threading
Imports System.Xml
-Imports com.sun.xml.internal.rngom
+Imports com.sun.org.apache.xpath.internal.operations
Imports iTextSharp.text
Imports javax
Imports MDM_Worker
-Imports Microsoft.Office.Interop
Imports Renci.SshNet
Imports VERAG_PROG_ALLGEMEIN
Imports VERAG_PROG_ALLGEMEIN.cAllgemein
@@ -111,6 +110,8 @@ Public Class frmStartOptions
cbxGestellungspeichern.Checked = Paramslist.GET_PARAMETER_VALUE_BOOL("Gestellung_erstellen")
cbxVW_Infomail.Checked = Paramslist.GET_PARAMETER_VALUE_BOOL("Gestellung_erstellen_Infomail")
cbxGESTELLUNG_TESTLAUF.Checked = Paramslist.GET_PARAMETER_VALUE_BOOL("Gestellung_TESTLAUF")
+ cbxPlose_TRNewFormat.Checked = Paramslist.GET_PARAMETER_VALUE_BOOL("PLOSE_TR_newFormat")
+ cbxPlose_INVNewFormat.Checked = Paramslist.GET_PARAMETER_VALUE_BOOL("PLOSE_INV_newFormat")
Dim PARAM = "" 'INSERT_BENACHRICHTIGUNG_VERMERKE_TEAMS
@@ -237,6 +238,8 @@ Public Class frmStartOptions
Case "MDM_EINARBEITUNG"
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
Dim f As New frmMDMNachrichtenVerarbeitung(True)
+ f.newFormatTR = cbxPlose_TRNewFormat.Checked
+ f.newFormatINV = cbxPlose_INVNewFormat.Checked
' Me.Visible = False
f.Show()
AddHandler f.FormClosed, AddressOf closeMe
@@ -4106,6 +4109,8 @@ Public Class frmStartOptions
Me.Visible = False
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True
Dim f As New frmMDMNachrichtenVerarbeitung
+ f.newFormatTR = cbxPlose_TRNewFormat.Checked
+ f.newFormatINV = cbxPlose_INVNewFormat.Checked
f.ShowDialog()
Me.Visible = True
End Sub
@@ -4114,6 +4119,8 @@ Public Class frmStartOptions
Me.Visible = False
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
Dim f As New frmMDMNachrichtenVerarbeitung
+ f.newFormatTR = cbxPlose_TRNewFormat.Checked
+ f.newFormatINV = cbxPlose_INVNewFormat.Checked
f.ShowDialog()
Me.Visible = True
End Sub
@@ -5314,6 +5321,17 @@ Public Class frmStartOptions
Dim count As Integer = 0
countmissingCSinPortfolio(count)
lbl_CS_online.Text = count
+
+ ElseIf tbcntr.SelectedIndex = 6 Then
+
+ VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = cbxDatevTest.Checked
+
+ cbxOffertenNr.Items.Clear()
+ cbxOffertenNr.fillWithSQL("SELECT [OffertenNr],[OffertenBez] FROM [Offertenstamm] order by OffertenNr", True, "FMZOLL", True)
+ cbxOffertenNr.changeItem("")
+ cbxLeistungNr.Items.Clear()
+
+
End If
End Sub
@@ -8566,7 +8584,7 @@ repeatRequest:
End If
- Dim dt_bestellungen_aggregiert As DataTable = SQL.loadDgvBySql("select * from (SELECT 1 as tagID, eb_gebaeude, 'Montag' AS Tag, eb_montag AS Menu, COUNT(*) AS Anzahl" & SQLAnmerkung & " FROM tblEssensbestellungen WHERE ISNULL(eb_montag,'') <> '' and " & SQLWHERE & " GROUP BY eb_gebaeude, eb_montag UNION ALL
+ Dim dt_bestellungen_aggregiert As DataTable = SQL.loadDgvBySql("select * from (SELECT 1 as tagID, eb_gebaeude, 'Montag' AS Tag, eb_montag AS Menu, COUNT(*) AS Anzahl" & SQLAnmerkung & " FROM tblEssensbestellungen WHERE ISNULL(eb_montag,'') <> '' and " & SQLWHERE & " GROUP BY eb_gebaeude, eb_montag UNION ALL
SELECT 2 as tagID, eb_gebaeude, 'Dienstag' AS Tag, eb_dienstag AS Menu, COUNT(*) AS Anzahl" & SQLAnmerkung & " FROM tblEssensbestellungen WHERE ISNULL(eb_dienstag,'') <> '' and " & SQLWHERE & " GROUP BY eb_gebaeude, eb_dienstag UNION ALL
SELECT 3 as tagID, eb_gebaeude, 'Mittwoch' AS Tag, eb_mittwoch AS Menu, COUNT(*) AS Anzahl" & SQLAnmerkung & " FROM tblEssensbestellungen WHERE ISNULL(eb_mittwoch,'') <> '' and " & SQLWHERE & " GROUP BY eb_gebaeude, eb_mittwoch UNION ALL
SELECT 4 as tagID, eb_gebaeude, 'Donnerstag' AS Tag, eb_donnerstag AS Menu, COUNT(*) AS Anzahl" & SQLAnmerkung & " FROM tblEssensbestellungen WHERE ISNULL(eb_donnerstag,'') <> '' and " & SQLWHERE & " GROUP BY eb_gebaeude, eb_donnerstag UNION ALL
@@ -8717,5 +8735,221 @@ repeatRequest:
End Function
+ Private Sub Button34_Click(sender As Object, e As EventArgs) Handles Button34.Click
+ VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = cbxDatevTest.Checked
+
+ If cbxOffertenNr._value <> "" AndAlso IsNumeric(cbxOffertenNr._value) AndAlso cbxLeistungNr._value <> "" AndAlso IsNumeric(cbxLeistungNr._value) Then
+ Dim dt As DataTable = checkLeitungsNrimOffert(cbxOffertenNr._value, cbxLeistungNr._value)
+
+ If dt.Rows.Count > 0 Then
+ Dim STDOF As New cStandardofferten(cbxOffertenNr._value, "EUR", cbxLeistungNr._value, cbxLeistungNr.SelectedItem.text)
+ If STDOF.hasEntry Then
+
+
+ If Not checkStandardOffert(STDOF) Then
+ MsgBox("BerechnungsartNr ist nicht im Standardoffert hinterlegt!")
+ Else
+ showPic(insertOfferenPositionen(STDOF), pbOfferten)
+ End If
+ End If
+
+ Else
+ showPic(True, pbOfferten)
+ End If
+
+ End If
+
+
+
+
+ End Sub
+
+
+ Private Function checkLeitungsNrimOffert(OffertenNr As Integer, LeistungsNr As Integer) As DataTable
+
+ Dim sqlWhere = ""
+ Dim selectString = "*"
+ If cbxNurAktiveKunen.Checked Then
+ sqlWhere = " inner join Adressen on Adressen.AdressenNr = Temp.KundenNr
+ inner join Kunden on Kunden.KundenNr = Temp.KundenNr
+ where isnull(Kunden.Abfertigungsverbot, 0) = 0 and Adressen.Auswahl = 'A'"
+
+ selectString = "Kunden.KundenNr, OffertenNr"
+
+ End If
+
+ Dim sqlStringFehlendeOffertenNr = "select " & selectString & " from (select KundenNr, OffertenNr from Offertenpositionen where OffertenNr = " & OffertenNr & "
+ GROUP by KundenNr, OffertenNr
+ EXCEPT
+ select KundenNr, OffertenNr from Offertenpositionen where LeistungsNr = " & LeistungsNr & " and OffertenNr = " & OffertenNr & "
+ GROUP by KundenNr, OffertenNr) as Temp " & sqlWhere
+
+ Dim dtfehlendeOfferten As DataTable = (New SQL).loadDgvBySql(sqlStringFehlendeOffertenNr, "FMZOLL")
+ If dtfehlendeOfferten.Rows.Count > 0 Then
+
+ Select Case MsgBox("Es fehlen bei " & dtfehlendeOfferten.Rows.Count & IIf(cbxNurAktiveKunen.Checked, " aktiven", "") & " Kunden im Offert " & OffertenNr & " die LeistungsNr " & LeistungsNr & "!" & vbNewLine & "Soll diese eingefügt werden??", vbYesNoCancel)
+ Case vbYes
+ Case vbNo : dtfehlendeOfferten.Clear()
+ Case Else : dtfehlendeOfferten.Clear()
+ End Select
+ End If
+
+ Return dtfehlendeOfferten
+
+
+ End Function
+
+ Private Function checkStandardOffert(StandardOffert As cStandardofferten) As Boolean
+ If StandardOffert.BerechnungsartNr Is Nothing Then
+
+ If txtBerechnungsart.Text <> "" AndAlso IsNumeric(txtBerechnungsart.Text) AndAlso txtBerechnungsart.Text.Length = 1 Then
+ StandardOffert.BerechnungsartNr = txtBerechnungsart.Text
+ Return True
+ Else
+ Return False
+ End If
+
+ Else
+ Return True
+
+ End If
+ End Function
+
+ Private Function insertOfferenPositionen(StandardOffert As cStandardofferten)
+
+ Dim sqlWhere = ""
+ If cbxNurAktiveKunen.Checked Then
+ sqlWhere = " inner join Adressen on Adressen.AdressenNr = Temp.KundenNr
+ inner join Kunden on Kunden.KundenNr = Temp.KundenNr
+ where isnull(Kunden.Abfertigungsverbot, 0) = 0 and Adressen.Auswahl = 'A'"
+
+ End If
+
+ Dim sqlstr_select As String = "SELECT
+ Temp.KundenNr,
+ Temp.OffertenNr,
+
+ " & SQLSafe(StandardOffert.LeistungsNr) & " AS LeistungsNr,
+ " & SQLSafe(StandardOffert.LeistungsBez) & " AS LeistungsBez,
+ " & SQLSafe(StandardOffert.BerechnungsartNr) & " AS BerechnungsartNr,
+ " & SQLSafe(StandardOffert.Preis) & " AS Preis,
+ " & SQLSafe(StandardOffert.Anzahl) & " AS Anzahl,
+ " & SQLSafe(StandardOffert.BGebLeistungsNr) & " AS BGebLeistungsNr,
+ " & SQLSafe(StandardOffert.BGebProzent) & " AS BGebProzent,
+ " & SQLSafe(StandardOffert.BGebMinBetrag) & " AS BGebMinBetrag,
+
+ GETDATE() AS [Eingegeben am],
+ GETDATE() AS [Geändert am],
+
+ 'AUTO-IMPORT' AS Sachbearbeiter,
+ NULL AS Preisänderung,
+ NULL AS PreisänderungProzent,
+ NULL AS PreisAlt,
+
+ " & SQLSafe(StandardOffert.BerechnungsartPosInkludiert) & " AS BerechnungsartPosInkludiert,
+
+ NULL AS MDM_Land,
+ NULL AS MDM_VZ,
+ NULL AS MDM_RMC,
+ NULL AS MDM_Fremd,
+ NULL AS MDM_Preisstaffel
+
+ FROM (
+ SELECT KundenNr, OffertenNr
+ FROM Offertenpositionen
+ WHERE OffertenNr = " & SQLSafe(StandardOffert.OffertenNr) & "
+ GROUP BY KundenNr, OffertenNr
+
+ EXCEPT
+
+ SELECT KundenNr, OffertenNr
+ FROM Offertenpositionen
+ WHERE LeistungsNr = " & SQLSafe(StandardOffert.LeistungsNr) & "
+ AND OffertenNr = " & SQLSafe(StandardOffert.OffertenNr) & "
+ GROUP BY KundenNr, OffertenNr
+ ) AS Temp " & sqlWhere
+
+
+ Dim dt As DataTable = (New SQL).loadDgvBySql_Param(sqlstr_select, "FMZOLL")
+
+ Dim updated As Boolean = False
+
+ If dt.Rows.Count > 0 Then
+
+
+ Dim InsertSatement As String = " INSERT INTO Offertenpositionen
+ (
+ [KundenNr]
+ ,[OffertenNr]
+ ,[LeistungsNr]
+ ,[LeistungsBez]
+ ,[BerechnungsartNr]
+ ,[Preis]
+ ,[Anzahl]
+ ,[BGebLeistungsNr]
+ ,[BGebProzent]
+ ,[BGebMinBetrag]
+ ,[Eingegeben am]
+ ,[Geändert am]
+ ,[Sachbearbeiter]
+ ,[Preisänderung]
+ ,[PreisänderungProzent]
+ ,[PreisAlt]
+ ,[BerechnungsartPosInkludiert]
+ ,[MDM_Land]
+ ,[MDM_VZ]
+ ,[MDM_RMC]
+ ,[MDM_Fremd]
+ ,[MDM_Preisstaffel]
+ )"
+
+ If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
+
+ updated = (New SQL).doSQL(InsertSatement & sqlstr_select, "FMZOLL",,,, 500)
+
+
+ End If
+ End If
+
+ Return updated
+
+
+ End Function
+
+ Private Function SQLSafe(value As Object, Optional defaultValue As Object = Nothing) As String
+ If value Is Nothing OrElse IsDBNull(value) Then
+ If defaultValue Is Nothing Then Return "NULL"
+ Return defaultValue.ToString()
+ End If
+
+ If TypeOf value Is String Then
+ Return "'" & value.ToString().Replace("'", "''") & "'"
+ End If
+
+ If TypeOf value Is Boolean Then
+ Return If(CBool(value), "1", "0")
+ End If
+
+ Return value.ToString().Replace(",", ".")
+ End Function
+
+
+
+ Private Sub cbxOffertenNr_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cbxOffertenNr.SelectedIndexChanged
+ If cbxOffertenNr._value <> "" AndAlso IsNumeric(cbxOffertenNr._value) Then
+ txtOfferenNr.Text = cbxOffertenNr.SelectedItem.text
+ cbxLeistungNr.fillWithSQL("SELECT [LeistungsNr],[LeistungsBez] FROM [Standardofferten] where OffertenNr = " & cbxOffertenNr._value, False, "FMZOLL", True)
+ Else
+ txtOfferenNr.Text = ""
+ End If
+ End Sub
+
+ Private Sub cbxLeistungNr_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cbxLeistungNr.SelectedIndexChanged
+ If cbxLeistungNr._value <> "" AndAlso IsNumeric(cbxLeistungNr._value) Then
+ txtLeistungsNr.Text = cbxLeistungNr.SelectedItem.text
+ Else
+ txtLeistungsNr.Text = ""
+ End If
+ End Sub
End Class