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

Merge branch 'ADMIN' of https://git.it.verag.ag/edv/ADMIN into ADMIN

Browse Source
This commit is contained in:
Andreas Luxbauer
2026-03-27 10:08:36 +01:00
parent a102e0d633 bc8128c389
commit 7ec27cb8b6
9 changed files with 561 additions and 269 deletions
Download Patch File Download Diff File Expand all files Collapse all files

30
DAKOSY_Worker/cImporter_TelotecToVERAG.vb
View File

@@ -1,5 +1,4 @@
Imports System.Data.SqlClient Imports System.Reflection
Imports System.Reflection
Imports java.lang Imports java.lang
Imports TELOTEC_Worker Imports TELOTEC_Worker
Imports VERAG_PROG_ALLGEMEIN Imports VERAG_PROG_ALLGEMEIN
@@ -168,19 +167,24 @@ Public Class cImporter_TelotecToVERAG
If p.DOC_CERTS IsNot Nothing Then If p.DOC_CERTS IsNot Nothing Then
For Each doc In p.DOC_CERTS For Each doc In p.DOC_CERTS
Try
Dim dd As New cVERAG_CustomsDeclarations_Document With { Dim ItemId = Nothing
.zaDoc_ItemId = Nothing, Dim Doc_Code As String = ToStringSafe(doc.DocCerts_DocCd)
.zaDoc_Code = ToStringSafe(doc.DocCerts_DocCd), Dim Doc_Reference As String = ToStringSafe(doc.DocCerts_DRef)
.zaDoc_Reference = ToStringSafe(doc.DocCerts_DRef), Dim Doc_Date As String = ToStringSafe(doc.DocCerts_IssD)
.zaDoc_Date = ToNullableDate(doc.DocCerts_IssD)
Try
Dim dd As New cVERAG_CustomsDeclarations_Document With {
.zaDoc_ItemId = ItemId,
.zaDoc_Code = Doc_Code,
.zaDoc_Reference = Doc_Reference,
.zaDoc_Date = Doc_Date
} }
it.Documents.Add(dd) it.Documents.Add(dd)
Catch ex As Exception Catch ex As Exception
cErrorHandler.ERR(ex.Message, ex.StackTrace, MethodInfo.GetCurrentMethod.Name) cErrorHandler.ERR(ex.Message, ex.StackTrace, MethodInfo.GetCurrentMethod.Name)
End Try End Try
Next Next
End If End If

28
MDM_Worker/cPLOSE_Inv_Data.vb
View File

@@ -367,25 +367,39 @@ Public Class cPLOSE_Inv_Data
End Function End Function
Public Shared Function countBackToCustomerNotSet(SQL As SQL) As Integer Public Shared Function countBackToCustomerNotSet(SQL As SQL) As Integer
Return SQL.getValueTxtBySql("SELECT count(plInv_InvToCustomer) FROM [tblPLOSE_Inv_Data] where plInv_InvToCustomer Is null ", "FMZOLL",,, -1) Return SQL.getValueTxtBySql("SELECT count(*) FROM [tblPLOSE_Inv_Data] where plInv_InvToCustomer Is null ", "FMZOLL",,, -1)
End Function End Function
Public Shared Function checkPDFInvoices(Optional reDatVon As Date = Nothing, Optional reDatBis As Date = Nothing) As DataTable Public Shared Function countBackToCustomerNotSet(SQL As SQL, AdressenNrVon As Integer, AdressenNrBis As Integer) As Integer
Return SQL.getValueTxtBySql("SELECT count(*) FROM [tblPLOSE_Inv_Data] inner join Adressen on Adressen.PLOSEKundenNr = plInv_PLOSEKundennummer where plInv_InvToCustomer Is null and Adressen.AdressenNr between " & AdressenNrVon & " AND " & AdressenNrBis, "FMZOLL",,, -1)
End Function
Public Shared Function checkPDFInvoices(Optional reDatVon As Date = Nothing, Optional reDatBis As Date = Nothing, Optional dt As DataTable = Nothing, Optional AdressenNrVon As Integer = -1, Optional AdressenNrBis As Integer = -1) As Integer
Try Try
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Dim sqlTime As String = "" Dim sqlTime As String = ""
Dim sqlAdressenNr As String = ""
If IsDate(reDatVon) AndAlso CDate(reDatVon) > "01.01.2020" AndAlso IsDate(reDatBis) AndAlso CDate(reDatBis) > "01.01.2020" Then If IsDate(reDatVon) AndAlso CDate(reDatVon) > "01.01.2020" AndAlso IsDate(reDatBis) AndAlso CDate(reDatBis) > "01.01.2020" Then
sqlTime = " And cast([plInv_SupplierRechnungsDatum] As Date) between '" & reDatVon.ToShortDateString & "' and '" & reDatBis.ToShortDateString & "'" sqlTime = " And cast([plInv_SupplierRechnungsDatum] As Date) between '" & reDatVon.ToShortDateString & "' and '" & reDatBis.ToShortDateString & "'"
End If End If
Dim SQLstr = "Select [plInv_SupplierRechnungsNr] As RechnungsNr,plInv_SupplierRechnungsDatum As Rechnungsdatum,Adressen.AdressenNr,Adressen.[Name 1] As Kunde, kde_keineMWSt As keineMWST from [tblPLOSE_Inv_Data] INNER JOIN Adressen On [plInv_PLOSEKundennummer]=Adressen.PLOSEKundenNr INNER JOIN tblKundenErweitert On AdressenNr = kde_KundenNr where [plInv_daId] Is null " & sqlTime & " group by plInv_SupplierRechnungsNr, Adressen.AdressenNr, Adressen.[Name 1], plInv_SupplierRechnungsDatum, kde_keineMWSt" If AdressenNrVon > 0 AndAlso AdressenNrBis > 0 Then
sqlAdressenNr = " AND Adressen.AdressenNr between " & AdressenNrVon & " AND " & AdressenNrBis
End If
Dim dt = (New VERAG_PROG_ALLGEMEIN.SQL).loadDgvBySql(SQLstr, "FMZOLL") If dt IsNot Nothing Then
Dim SQLstr = "Select [plInv_SupplierRechnungsNr] As RechnungsNr,plInv_SupplierRechnungsDatum As Rechnungsdatum,Adressen.AdressenNr,Adressen.[Name 1] As Kunde, kde_keineMWSt As keineMWST from [tblPLOSE_Inv_Data] INNER JOIN Adressen On [plInv_PLOSEKundennummer]=Adressen.PLOSEKundenNr INNER JOIN tblKundenErweitert On AdressenNr = kde_KundenNr where [plInv_daId] Is null " & sqlTime & sqlAdressenNr & " group by plInv_SupplierRechnungsNr, Adressen.AdressenNr, Adressen.[Name 1], plInv_SupplierRechnungsDatum, kde_keineMWSt"
dt = (New VERAG_PROG_ALLGEMEIN.SQL).loadDgvBySql(SQLstr, "FMZOLL")
Return dt.Rows.Count
Return dt Else
Dim SQLstr = "Select count(plInv_SupplierRechnungsNr) from [tblPLOSE_Inv_Data] INNER JOIN Adressen On [plInv_PLOSEKundennummer]=Adressen.PLOSEKundenNr INNER JOIN tblKundenErweitert On AdressenNr = kde_KundenNr where [plInv_daId] Is null " & sqlTime & sqlAdressenNr & " group by plInv_SupplierRechnungsNr, Adressen.AdressenNr, Adressen.[Name 1], plInv_SupplierRechnungsDatum, kde_keineMWSt"
Return SQL.getValueTxtBySql(SQLstr, "FMZOLL",,, 0)
End If
Catch ex As Exception Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
@@ -402,8 +416,8 @@ Public Class cPLOSE_Inv_Data
If jahr < 2020 Then Return False If jahr < 2020 Then Return False
Dim REohneWaehrung As String = "SELECT [plInv_SupplierRechnungsDatum],[plInv_SupplierRechnungsNr],[plInv_SupplierCountry],[plInv_Lieferant] Dim REohneWaehrung As String = "Select [plInv_SupplierRechnungsDatum], [plInv_SupplierRechnungsNr], [plInv_SupplierCountry], [plInv_Lieferant]
FROM [VERAG].[dbo].[tblPLOSE_Inv_Data] From [VERAG].[dbo].[tblPLOSE_Inv_Data]
where YEAR( [plInv_SupplierRechnungsDatum]) = " & jahr & " and plInv_Currency is null " & IIf(kdNr > 0, " and plInv_PLOSEKundennummer = " & kdNr, "") & " where YEAR( [plInv_SupplierRechnungsDatum]) = " & jahr & " and plInv_Currency is null " & IIf(kdNr > 0, " and plInv_PLOSEKundennummer = " & kdNr, "") & "
Group by [plInv_SupplierCountry],[plInv_Lieferant],[plInv_SupplierRechnungsDatum],[plInv_SupplierRechnungsNr]" Group by [plInv_SupplierCountry],[plInv_Lieferant],[plInv_SupplierRechnungsDatum],[plInv_SupplierRechnungsNr]"

16
initATLASAufschubkonten/cGetMsgType.vb
View File

@@ -14,6 +14,7 @@ Public Class cGetMsgType
End If End If
Return False Return False
End Function End Function
Shared Function isEZA_FreierVerkehrAktVeredelUmwandlung(lines() As String) As Boolean Shared Function isEZA_FreierVerkehrAktVeredelUmwandlung(lines() As String) As Boolean
@@ -41,6 +42,21 @@ Public Class cGetMsgType
End Function End Function
Shared Function isSumAErledigungsinformation(doc As XmlDocument, ByRef version As String) As Boolean
If doc.HasChildNodes Then
If doc.GetElementsByTagName("SumAErledigungsinformation").Count > 0 Then
'<Version>005</Version>
If doc.GetElementsByTagName("Version").Count > 0 Then
version = doc.GetElementsByTagName("Version")(0).InnerText
End If
Return True
End If
End If
Return False
End Function
Shared Function isNCTS_Ueberlassungsmeldung(doc As XmlDocument, ByRef version As String) As Boolean Shared Function isNCTS_Ueberlassungsmeldung(doc As XmlDocument, ByRef version As String) As Boolean
If doc.HasChildNodes Then If doc.HasChildNodes Then
If doc.GetElementsByTagName("UeberlassungsmeldungNCTSDE").Count > 0 Then If doc.GetElementsByTagName("UeberlassungsmeldungNCTSDE").Count > 0 Then

10
initATLASAufschubkonten/cWorker_NCTS.vb
View File

@@ -4032,10 +4032,10 @@ Public Class cWorker_NCTS
End If End If
Dim ro As DataRow = posErledigung.NewRow Dim ro As DataRow = posErledigung.NewRow
ro("LaufendeNummer") = SDGR.SequenceNumber ro("LaufendeNummer") = SDGR.SequenceNumber 'Laufende Nummer der Position innerhalb des Beendigungsanteils SumA. Es handelt sich hier nicht um die Positionsnummer im Quellverfahren SumA. Diese ist ggf. im Feld "[Position SumA] Positionsnummer" eingetragen
ro("IDRegNrSumA") = SDGR.RegistrationNumber ro("IDRegNrSumA") = SDGR.RegistrationNumber 'MRN des SumA-Vorgangs, der ganz oder teilweise erledigt werden soll.
ro("IDRegNrSumAPos") = SDGR.GoodsItemNumber ro("IDRegNrSumAPos") = SDGR.GoodsItemNumber 'Nummer der Position des Zugangs zum Quellverfahren Vorübergehende Verwahrung
ro("StueckzahlErledigte") = SDGR.NumberOfPackages ro("StueckzahlErledigte") = SDGR.NumberOfPackages 'Anzahl der zu erledigenden Packstücke oder bei unverpackten Waren die Anzahl der in der Anmeldung erfassten Gegenstände
posErledigung.Rows.Add(ro) posErledigung.Rows.Add(ro)
End If End If
@@ -4104,7 +4104,7 @@ Public Class cWorker_NCTS
If saveVerwahrung Then If saveVerwahrung Then
'saveVerwahrungsAusgang(MRN, posErledigung, NCTS, sendMail, testlauf) 'saveVerwahrungsAusgang(MRN, posErledigung, NCTS, sendMail, testlauf)
cWorker_Verwahrung.saveVerwahrungsAusgang(MRN, posErledigung, "", zp, sendMail, testlauf, True) cWorker_Verwahrung.saveVerwahrungsAusgang(MRN, posErledigung, "", zp, sendMail, testlauf, True, "T1")
End If End If

292
initATLASAufschubkonten/cWorker_Verwahrung.vb
View File

@@ -19,9 +19,9 @@ Public Class cWorker_Verwahrung
Try Try
Dim VWI As DAKOSY_Worker.SumAVerwahrungsinfo_009.SumAVerwahrungsinfoSVTyp = DAKOSY_Worker.SumAVerwahrungsinfo_009.SumAVerwahrungsinfoSVTyp.LoadFromFile(d) Dim VWI As DAKOSY_Worker.SumAVerwahrungsinfo_009.SumAVerwahrungsinfoSVTyp = DAKOSY_Worker.SumAVerwahrungsinfo_009.SumAVerwahrungsinfoSVTyp.LoadFromFile(d)
Dim VorpapiernummerInput = "" Dim Vorpapiernummer = ""
Dim RegistriernummerATLAS = "" Dim MRN_SUMA = ""
Dim VeralteteWeitereRegistriernummer = "" Dim MRN_SUMA_veraltet = ""
Dim ankungsdatum As Object = Nothing Dim ankungsdatum As Object = Nothing
Dim gestellungsdatum As Object = Nothing Dim gestellungsdatum As Object = Nothing
Dim posGestellung As New DataTable Dim posGestellung As New DataTable
@@ -35,21 +35,21 @@ Public Class cWorker_Verwahrung
End If End If
If VWI.EinzelSumAVerwahrungsinfo.KopfDaten IsNot Nothing Then If VWI.EinzelSumAVerwahrungsinfo.KopfDaten IsNot Nothing Then
If VWI.EinzelSumAVerwahrungsinfo.KopfDaten.Vorpapiernummer IsNot Nothing Then If VWI.EinzelSumAVerwahrungsinfo.KopfDaten.Vorpapiernummer IsNot Nothing Then
VorpapiernummerInput = VWI.EinzelSumAVerwahrungsinfo.KopfDaten.Vorpapiernummer Vorpapiernummer = VWI.EinzelSumAVerwahrungsinfo.KopfDaten.Vorpapiernummer
End If End If
If VWI.EinzelSumAVerwahrungsinfo.KopfDaten.RegistriernummerATLAS IsNot Nothing Then If VWI.EinzelSumAVerwahrungsinfo.KopfDaten.RegistriernummerATLAS IsNot Nothing Then
RegistriernummerATLAS = VWI.EinzelSumAVerwahrungsinfo.KopfDaten.RegistriernummerATLAS MRN_SUMA = VWI.EinzelSumAVerwahrungsinfo.KopfDaten.RegistriernummerATLAS 'MRN (SumA)
End If End If
If VWI.EinzelSumAVerwahrungsinfo.KopfDaten.VeralteteWeitereRegistriernummer IsNot Nothing Then If VWI.EinzelSumAVerwahrungsinfo.KopfDaten.VeralteteWeitereRegistriernummer IsNot Nothing Then
VeralteteWeitereRegistriernummer = VWI.EinzelSumAVerwahrungsinfo.KopfDaten.VeralteteWeitereRegistriernummer MRN_SUMA_veraltet = VWI.EinzelSumAVerwahrungsinfo.KopfDaten.VeralteteWeitereRegistriernummer
End If End If
If VWI.EinzelSumAVerwahrungsinfo.KopfDaten.GestellungDatum > "01.01.2000" Then If VWI.EinzelSumAVerwahrungsinfo.KopfDaten.GestellungDatum > "01.01.2000" Then
gestellungsdatum = VWI.EinzelSumAVerwahrungsinfo.KopfDaten.GestellungDatum gestellungsdatum = VWI.EinzelSumAVerwahrungsinfo.KopfDaten.GestellungDatum 'Datum der Anmeldung zur vorübergehenden Verwahrung
End If End If
If VWI.EinzelSumAVerwahrungsinfo.KopfDaten.Ankunftsdatum > "01.01.2000" Then If VWI.EinzelSumAVerwahrungsinfo.KopfDaten.Ankunftsdatum > "01.01.2000" Then
ankungsdatum = VWI.EinzelSumAVerwahrungsinfo.KopfDaten.Ankunftsdatum ankungsdatum = VWI.EinzelSumAVerwahrungsinfo.KopfDaten.Ankunftsdatum '(erwartetes) Ankunftsdatum des Beförderungsmittels
End If End If
If VWI.EinzelSumAVerwahrungsinfo.Position IsNot Nothing Then If VWI.EinzelSumAVerwahrungsinfo.Position IsNot Nothing Then
@@ -59,7 +59,8 @@ Public Class cWorker_Verwahrung
posGestellung.Columns.Add("PosNr", GetType(Integer)) posGestellung.Columns.Add("PosNr", GetType(Integer))
posGestellung.Columns.Add("AnzPackst", GetType(Integer)) posGestellung.Columns.Add("AnzPackst", GetType(Integer))
posGestellung.Columns.Add("PackstArt", GetType(String)) posGestellung.Columns.Add("PackstArt", GetType(String))
posGestellung.Columns.Add("Rohmasse", GetType(Double)) posGestellung.Columns.Add("Anmeldefrist", GetType(String)) 'Datum des Verwahrungsfristendes
posGestellung.Columns.Add("Rohmasse", GetType(Double)) 'Gewicht in kg
posGestellung.Columns.Add("Warenbeschreibung", GetType(String)) posGestellung.Columns.Add("Warenbeschreibung", GetType(String))
posGestellung.Columns.Add("VerwahrerFirma", GetType(String)) posGestellung.Columns.Add("VerwahrerFirma", GetType(String))
posGestellung.Columns.Add("VerwahrerOrt", GetType(String)) posGestellung.Columns.Add("VerwahrerOrt", GetType(String))
@@ -69,6 +70,7 @@ Public Class cWorker_Verwahrung
Dim ro As DataRow = posGestellung.NewRow Dim ro As DataRow = posGestellung.NewRow
ro("PosNr") = POS.Positionsnummer ro("PosNr") = POS.Positionsnummer
ro("Anmeldefrist") = POS.Anmeldefrist
ro("AnzPackst") = POS.PackstueckAnzahl ro("AnzPackst") = POS.PackstueckAnzahl
ro("PackstArt") = POS.PackstueckArt ro("PackstArt") = POS.PackstueckArt
ro("Rohmasse") = POS.Rohmasse ro("Rohmasse") = POS.Rohmasse
@@ -92,7 +94,7 @@ Public Class cWorker_Verwahrung
End If End If
If readVW_SumAVerwahrungsinfo <> "" And VorpapiernummerInput <> "" Then 'BEZUGSNR vorhanden If readVW_SumAVerwahrungsinfo <> "" And Vorpapiernummer <> "" Then 'BEZUGSNR vorhanden
Dim STATUS As DAKOSY_Worker.cDakosy_Statusmeldungen = FORM.getStatusCheckTransID(VWI.Transaktion.IOReferenz, VWI.Transaktion.IODatumZeit) Dim STATUS As DAKOSY_Worker.cDakosy_Statusmeldungen = FORM.getStatusCheckTransID(VWI.Transaktion.IOReferenz, VWI.Transaktion.IODatumZeit)
STATUS.dySt_BezugsNr = readVW_SumAVerwahrungsinfo STATUS.dySt_BezugsNr = readVW_SumAVerwahrungsinfo
STATUS.dySt_artMitteilung = "VW_INFO" STATUS.dySt_artMitteilung = "VW_INFO"
@@ -108,7 +110,7 @@ Public Class cWorker_Verwahrung
'LINKE SEITE BEI GESAMTSICHERHEITEN!!!!!!!!!!!!! 'LINKE SEITE BEI GESAMTSICHERHEITEN!!!!!!!!!!!!!
If saveVerwahrung Then saveVerwahrungseingang(readVW_SumAVerwahrungsinfo, VWI, RegistriernummerATLAS, posGestellung, VorpapiernummerInput, VeralteteWeitereRegistriernummer, sendMail, testlauf) If saveVerwahrung Then saveVerwahrungseingang(readVW_SumAVerwahrungsinfo, VWI, MRN_SUMA, posGestellung, Vorpapiernummer, MRN_SUMA_veraltet, sendMail, testlauf)
Anzeige: Anzeige:
@@ -125,6 +127,134 @@ Anzeige:
End Function End Function
Shared Function readVW_SumAErledigungsinformation(FORM As frmDYNachrichtenVerarbeitung, d As String, saveAbschreibung As Boolean, sendMail As Boolean, testlauf As Boolean) As String
Try
Dim VWI As DAKOSY_Worker.SumAErledigungsinformation_005.SumAErledigungsinformationSISUMTyp = DAKOSY_Worker.SumAErledigungsinformation_005.SumAErledigungsinformationSISUMTyp.LoadFromFile(d)
Dim MRN_SUMA = ""
Dim MRN_SUMA_veraltet = ""
Dim MRN_Eledigungsvorgang = ""
Dim MRN_Eledigungsvorgang_veraltet = ""
Dim MRN_Sonstige_Nr = ""
Dim ArtErledigung = ""
Dim zp As Object = Nothing
Dim posErledigung As New DataTable
readVW_SumAErledigungsinformation = ""
If VWI IsNot Nothing Then
If VWI.EinzelSumAErledigungsinformation IsNot Nothing Then
If VWI.EinzelSumAErledigungsinformation.ObjektIdentifizierung IsNot Nothing Then
zp = VWI.EinzelSumAErledigungsinformation.ObjektIdentifizierung.ZeitpunktNachrichteneingang
If VWI.EinzelSumAErledigungsinformation.ObjektIdentifizierung.ObjektName IsNot Nothing Then
readVW_SumAErledigungsinformation = VWI.EinzelSumAErledigungsinformation.ObjektIdentifizierung.ObjektName 'Nur ObjektAntragsart VV (SumA Vorgang) /NE (NCTS-Vorgang )
End If
End If
If VWI.EinzelSumAErledigungsinformation.KopfDaten IsNot Nothing Then
If VWI.EinzelSumAErledigungsinformation.KopfDaten.RegNrATLAS IsNot Nothing Then
MRN_SUMA = VWI.EinzelSumAErledigungsinformation.KopfDaten.RegNrATLAS 'MRN (SumA)
End If
If VWI.EinzelSumAErledigungsinformation.KopfDaten.VeralteteWeitereRegistriernummer IsNot Nothing Then
MRN_SUMA_veraltet = VWI.EinzelSumAErledigungsinformation.KopfDaten.VeralteteWeitereRegistriernummer 'Veraltete weitere Registriernummer -> läuft aus!!
End If
If VWI.EinzelSumAErledigungsinformation.KopfDaten.RegNrATLASWeitereNachweise IsNot Nothing Then
MRN_Eledigungsvorgang = VWI.EinzelSumAErledigungsinformation.KopfDaten.RegNrATLASWeitereNachweise 'MRN des Erledigungsvorgangs
End If
If VWI.EinzelSumAErledigungsinformation.KopfDaten.VeralteteWeitereNachweise IsNot Nothing Then
MRN_Eledigungsvorgang_veraltet = VWI.EinzelSumAErledigungsinformation.KopfDaten.VeralteteWeitereNachweise
End If
If VWI.EinzelSumAErledigungsinformation.KopfDaten.SonstigeNummer IsNot Nothing Then
MRN_Sonstige_Nr = VWI.EinzelSumAErledigungsinformation.KopfDaten.SonstigeNummer
End If
If VWI.EinzelSumAErledigungsinformation.KopfDaten.ArtErledigung IsNot Nothing Then
ArtErledigung = VWI.EinzelSumAErledigungsinformation.KopfDaten.ArtErledigung
End If
If MRN_Eledigungsvorgang = "" AndAlso MRN_Sonstige_Nr <> "" Then
MRN_Eledigungsvorgang = MRN_Sonstige_Nr
End If
If VWI.EinzelSumAErledigungsinformation.Position IsNot Nothing Then
For Each POS In VWI.EinzelSumAErledigungsinformation.Position
If POS.Positionsnummer IsNot Nothing AndAlso posErledigung IsNot Nothing Then
If Not posErledigung.Columns.Contains("LaufendeNummer") Then
posErledigung.Columns.Add("LaufendeNummer", GetType(String))
posErledigung.Columns.Add("IDRegNrSumA", GetType(String))
posErledigung.Columns.Add("IDRegNrSumAPos", GetType(String))
posErledigung.Columns.Add("StornierungKz", GetType(String))
posErledigung.Columns.Add("StueckzahlErledigte", GetType(String))
End If
Dim ro As DataRow = posErledigung.NewRow
ro("LaufendeNummer") = POS.Positionsnummer
ro("IDRegNrSumA") = MRN_SUMA 'MRN (SumA) Zugehörige ATLAS - Registrierung.
ro("IDRegNrSumAPos") = POS.Positionsnummer 'Positionsnummer in der Summarischen Anmeldung
ro("StornierungKz") = POS.StornierungKz
ro("StueckzahlErledigte") = POS.StueckzahlErledigte
posErledigung.Rows.Add(ro)
End If
Next
End If
End If
End If
End If
If readVW_SumAErledigungsinformation <> "" And MRN_SUMA <> "" Then 'BEZUGSNR vorhanden
Dim STATUS As DAKOSY_Worker.cDakosy_Statusmeldungen = FORM.getStatusCheckTransID(VWI.Transaktion.IOReferenz, VWI.Transaktion.IODatumZeit)
STATUS.dySt_BezugsNr = readVW_SumAErledigungsinformation
STATUS.dySt_artMitteilung = "SUMA_Erledigung"
STATUS.dySt_dyArt = "VW"
STATUS.dySt_status = DAKOSY_Worker.cDY_Statusliste.V_50
STATUS.dySt_ergCode = "GSTDATUM"
STATUS.dySt_ergMitteilung = ""
If zp IsNot Nothing Then STATUS.dySt_ergZeitpunkt = zp
STATUS.SAVE()
'rechte SEITE BEI GESAMTSICHERHEITEN!!!!!!!!!!!!!
If saveAbschreibung Then
saveVerwahrungsAusgang(MRN_Eledigungsvorgang, posErledigung, MRN_Eledigungsvorgang_veraltet, zp, sendMail, testlauf,, "SumAErledigung", MRN_Sonstige_Nr)
Anzeige:
FORM.addDGVEinarbeitung("VW: Ausgang", STATUS.dySt_BezugsNr)
End If
End If
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name)
readVW_SumAErledigungsinformation = ""
End Try
End Function
@@ -134,15 +264,14 @@ Anzeige:
Try Try
Dim EZA As DAKOSY_Worker.SumAErledigungsinformationVorpapier_005.SumAErledigungsinformationVorpapierSIVRPTyp = DAKOSY_Worker.SumAErledigungsinformationVorpapier_005.SumAErledigungsinformationVorpapierSIVRPTyp.LoadFromFile(d) Dim EZA As DAKOSY_Worker.SumAErledigungsinformationVorpapier_005.SumAErledigungsinformationVorpapierSIVRPTyp = DAKOSY_Worker.SumAErledigungsinformationVorpapier_005.SumAErledigungsinformationVorpapierSIVRPTyp.LoadFromFile(d)
Dim ART = ""
Dim RegistriernummerATLAS = ""
Dim posErledigung As New DataTable
' Dim details = ""
Dim ART = ""
Dim posErledigung As New DataTable
Dim zp As Object = Nothing Dim zp As Object = Nothing
Dim regNR = ""
Dim division = "" Dim division = ""
Dim veralteteregNR = "" Dim MRN_Eledigungsvorgang = ""
Dim MRN_Eledigungsvorgang_veraltet = ""
readEZA_SumAErledigungsinformationVorpapier_005 = "" readEZA_SumAErledigungsinformationVorpapier_005 = ""
If EZA IsNot Nothing Then If EZA IsNot Nothing Then
@@ -167,10 +296,10 @@ Anzeige:
ART = EZA.EinzelSumAErledigungsinformation.KopfDaten.ArtErledigung ART = EZA.EinzelSumAErledigungsinformation.KopfDaten.ArtErledigung
End If End If
If EZA.EinzelSumAErledigungsinformation.KopfDaten.RegNrATLASWeitereNachweise IsNot Nothing Then If EZA.EinzelSumAErledigungsinformation.KopfDaten.RegNrATLASWeitereNachweise IsNot Nothing Then
regNR = EZA.EinzelSumAErledigungsinformation.KopfDaten.RegNrATLASWeitereNachweise MRN_Eledigungsvorgang = EZA.EinzelSumAErledigungsinformation.KopfDaten.RegNrATLASWeitereNachweise 'MRN des Erledigungsvorgangs
End If End If
If EZA.EinzelSumAErledigungsinformation.KopfDaten.VeralteteWeitereNachweise IsNot Nothing Then If EZA.EinzelSumAErledigungsinformation.KopfDaten.VeralteteWeitereNachweise IsNot Nothing Then
veralteteregNR = EZA.EinzelSumAErledigungsinformation.KopfDaten.VeralteteWeitereNachweise MRN_Eledigungsvorgang_veraltet = EZA.EinzelSumAErledigungsinformation.KopfDaten.VeralteteWeitereNachweise 'Registriernummer des Erledigungsvorgangs -> läuft aus!!
End If End If
End If End If
@@ -188,17 +317,16 @@ Anzeige:
End If End If
Dim ro As DataRow = posErledigung.NewRow Dim ro As DataRow = posErledigung.NewRow
ro("LaufendeNummer") = POS.LaufendeNummer ro("LaufendeNummer") = POS.LaufendeNummer 'Laufende Nummer der Erledigungsinformation
ro("IDRegNrSumA") = POS.IDRegNrSumA ro("IDRegNrSumA") = POS.IDRegNrSumA 'MRN (SumA) Zugehörige ATLAS - Registrierung.
ro("IDRegNrSumAPos") = POS.IDRegNrSumAPos ro("IDRegNrSumAPos") = POS.IDRegNrSumAPos 'Positionsnummer in der Summarischen Anmeldung
ro("StornierungKz") = POS.StornierungKz ro("StornierungKz") = POS.StornierungKz 'Kennzeichnung, dass eine Erledigung durch den Benutzer storniert wurde.
ro("StueckzahlErledigte") = POS.StueckzahlErledigte ro("StueckzahlErledigte") = POS.StueckzahlErledigte 'Anzahl der erledigten Packstücke
posErledigung.Rows.Add(ro) posErledigung.Rows.Add(ro)
End If End If
Next Next
End If End If
End If End If
@@ -223,7 +351,7 @@ Anzeige:
'Verwahrung ABSCHREIBUNG - rechte Seite bei Gesamtsicherheiten 'Verwahrung ABSCHREIBUNG - rechte Seite bei Gesamtsicherheiten
If saveAbschreibung AndAlso ART <> "NCTS" Then 'bei NCTS wird der Ausgang über ein UeberlassungsmeldungNCTSDE aufgelöst!!!!!! If saveAbschreibung AndAlso ART <> "NCTS" Then 'bei NCTS wird der Ausgang über ein UeberlassungsmeldungNCTSDE aufgelöst!!!!!!
saveVerwahrungsAusgang(regNR, posErledigung, veralteteregNR, zp, sendMail, testlauf) saveVerwahrungsAusgang(MRN_Eledigungsvorgang, posErledigung, MRN_Eledigungsvorgang_veraltet, zp, sendMail, testlauf,, "SumAErledigung-VP")
Anzeige: Anzeige:
@@ -419,7 +547,7 @@ Anzeige:
Shared Function saveVerwahrungseingang(readVW_SumAVerwahrungsinfo As String, VWI As DAKOSY_Worker.SumAVerwahrungsinfo_009.SumAVerwahrungsinfoSVTyp, RegistriernummerATLAS As String, posGestellung As DataTable, VorpapiernummerInput As String, VeralteteWeitereRegistriernummer As String, sendInfoMail As Boolean, testlauf As Boolean) Shared Function saveVerwahrungseingang(readVW_SumAVerwahrungsinfo As String, VWI As DAKOSY_Worker.SumAVerwahrungsinfo_009.SumAVerwahrungsinfoSVTyp, MRN_SUMA As String, posGestellung As DataTable, VorpapiernummerInput As String, MRN_SUMA_veraltet As String, sendInfoMail As Boolean, testlauf As Boolean)
Dim BezugsNr = readVW_SumAVerwahrungsinfo Dim BezugsNr = readVW_SumAVerwahrungsinfo
@@ -427,8 +555,7 @@ Anzeige:
Try Try
'If MRN_SUMA_veraltet = "" Then Return False 'warum nochmals, kann das weg???
If VeralteteWeitereRegistriernummer = "" Then Return False
Dim filiale As String = "" Dim filiale As String = ""
Dim abfertigungsnummer = "" Dim abfertigungsnummer = ""
@@ -458,7 +585,7 @@ Anzeige:
Vorpapiernummer = Vorpapiernummer.ToString.Substring(0, 18) Vorpapiernummer = Vorpapiernummer.ToString.Substring(0, 18)
End If End If
Dim dtSendungsInfo As New DataTable Dim dtSendungsInfo As New DataTable
dtSendungsInfo = SQL.loadDgvBySql("SELECT [FilialenNr],[AbfertigungsNr],[UnterNr] FROM [dbo].[tblSendungen] where tblSnd_ATB_T1 = '" & Vorpapiernummer & "'", "AVISO") dtSendungsInfo = SQL.loadDgvBySql("SELECT [FilialenNr],[AbfertigungsNr],[UnterNr] FROM [dbo].[tblSendungen] where tblSnd_ATB_T1 = '" & Vorpapiernummer & "' and tblSnd_Abfertigungsart_ID = 44", "AVISO")
If dtSendungsInfo.Rows.Count > 0 Then If dtSendungsInfo.Rows.Count > 0 Then
filiale = dtSendungsInfo.Rows(0).Item("FilialenNr") filiale = dtSendungsInfo.Rows(0).Item("FilialenNr")
@@ -504,7 +631,7 @@ Anzeige:
Dim alt = If(r.IsNull("gs_VeralteteWeitereRegistriernummer"), "", r.Field(Of String)("gs_VeralteteWeitereRegistriernummer")) Dim alt = If(r.IsNull("gs_VeralteteWeitereRegistriernummer"), "", r.Field(Of String)("gs_VeralteteWeitereRegistriernummer"))
Dim mrn = If(r.IsNull("gs_MRNNr"), "", r.Field(Of String)("gs_MRNNr")) Dim mrn = If(r.IsNull("gs_MRNNr"), "", r.Field(Of String)("gs_MRNNr"))
Return alt = VeralteteWeitereRegistriernummer OrElse mrn = RegistriernummerATLAS Return alt = MRN_SUMA_veraltet OrElse mrn = MRN_SUMA
End Function) End Function)
If zubehandelndeGSPOS Then If zubehandelndeGSPOS Then
@@ -537,8 +664,8 @@ Anzeige:
'Verwahrung ANSCHREIBUNG 'Verwahrung ANSCHREIBUNG
newSicherheit.gs_systemuser = DAKOSY_STATUS.USER newSicherheit.gs_systemuser = DAKOSY_STATUS.USER
newSicherheit.gs_VeralteteWeitereRegistriernummer = VeralteteWeitereRegistriernummer 'wichtig für Zuweisung DAKOSY newSicherheit.gs_VeralteteWeitereRegistriernummer = MRN_SUMA_veraltet 'wichtig für Zuweisung DAKOSY
newSicherheit.gs_MRNNr = RegistriernummerATLAS 'wichtig für Zuweisung DAKOSY newSicherheit.gs_MRNNr = MRN_SUMA 'wichtig für Zuweisung DAKOSY
newSicherheit.gs_gsNr = DUMMYSicherheit.gs_gsNr newSicherheit.gs_gsNr = DUMMYSicherheit.gs_gsNr
newSicherheit.gs_ATBNr = DUMMYSicherheit.gs_ATBNr newSicherheit.gs_ATBNr = DUMMYSicherheit.gs_ATBNr
@@ -620,7 +747,7 @@ Anzeige:
Dim OPEN_DUMMY_SUBPOS As New cSicherheiten() Dim OPEN_DUMMY_SUBPOS As New cSicherheiten()
With OPEN_DUMMY_SUBPOS With OPEN_DUMMY_SUBPOS
.gs_systemuser = DAKOSY_STATUS.USER .gs_systemuser = DAKOSY_STATUS.USER
.gs_VeralteteWeitereRegistriernummer = VeralteteWeitereRegistriernummer 'wichtig für Zuweisung DAKOSY .gs_VeralteteWeitereRegistriernummer = MRN_SUMA_veraltet 'wichtig für Zuweisung DAKOSY
.gs_gsNr = DUMMYSicherheit.gs_gsNr .gs_gsNr = DUMMYSicherheit.gs_gsNr
.gs_ATBNr = DUMMYSicherheit.gs_ATBNr .gs_ATBNr = DUMMYSicherheit.gs_ATBNr
If IsNumeric(posGestellung.Rows(i - 1).Item("AnzPackst")) Then If IsNumeric(posGestellung.Rows(i - 1).Item("AnzPackst")) Then
@@ -631,7 +758,7 @@ Anzeige:
.gs_gewicht = posGestellung.Rows(i - 1).Item("Rohmasse") .gs_gewicht = posGestellung.Rows(i - 1).Item("Rohmasse")
End If End If
.gs_freitext = posGestellung.Rows(i - 1).Item("PackstArt") .gs_freitext = posGestellung.Rows(i - 1).Item("PackstArt")
.gs_MRNNr = RegistriernummerATLAS .gs_MRNNr = MRN_SUMA
.gs_standort = DUMMYSicherheit.gs_standort .gs_standort = DUMMYSicherheit.gs_standort
.gs_datum = DUMMYSicherheit.gs_datum 'VWI.EinzelSumAVerwahrungsinfo.ObjektIdentifizierung.ZeitpunktNachrichteneingang .gs_datum = DUMMYSicherheit.gs_datum 'VWI.EinzelSumAVerwahrungsinfo.ObjektIdentifizierung.ZeitpunktNachrichteneingang
.gs_erstellungsdatum = Now() .gs_erstellungsdatum = Now()
@@ -683,7 +810,7 @@ Anzeige:
newSicherheit.rearangePosNrByDakosyLaufNr(newSicherheit.gs_gsNr, newSicherheit.gs_ATBNr) newSicherheit.rearangePosNrByDakosyLaufNr(newSicherheit.gs_gsNr, newSicherheit.gs_ATBNr)
If sendInfoMail Then If sendInfoMail Then
Dim InfoText As String = createInfoMail(RegistriernummerATLAS, posGestellung, "VW-EINGANG", newSicherheit) Dim InfoText As String = createInfoMail(MRN_SUMA, posGestellung, "VW-EINGANG", newSicherheit)
VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("verwahrung@verag.ag", IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "TEST-", "") & "Verwahrungseingang aus DAKOSY - " & Now().ToShortDateString, InfoText,,,,, "d.breimaier@verag.ag") VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("verwahrung@verag.ag", IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "TEST-", "") & "Verwahrungseingang aus DAKOSY - " & Now().ToShortDateString, InfoText,,,,, "d.breimaier@verag.ag")
End If End If
@@ -710,7 +837,7 @@ Anzeige:
End Function End Function
Shared Sub saveVerwahrungsAusgang(regNR As String, posErledigung As DataTable, veralteteregNR As String, nachrichtenDatum As Date, sendInfoMail As Boolean, testlauf As Boolean, Optional isNCTS As Boolean = False) Shared Sub saveVerwahrungsAusgang(MRN_Erledigung As String, posErledigung As DataTable, MRN_Erledigung_veraltet As String, nachrichtenDatum As Date, sendInfoMail As Boolean, testlauf As Boolean, Optional isNCTS As Boolean = False, Optional zusätzlicheInfo As String = "", Optional sonstigeMRNNr As String = "")
Dim originalTestSetting As Boolean = VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Dim originalTestSetting As Boolean = VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM
@@ -723,20 +850,28 @@ Anzeige:
For Each POS As DataRow In posErledigung.Rows For Each POS As DataRow In posErledigung.Rows
Dim isCompletelyFinished As Boolean = True Dim isCompletelyFinished As Boolean = True
Dim MRNNR As String = "" Dim MRN_SUMA As String = ""
Dim existingEntryID As Integer = 0 Dim existingEntryID As Integer = 0
If Not IsDBNull(POS("IDRegNrSumA")) AndAlso POS("IDRegNrSumA").ToString <> "" Then If Not IsDBNull(POS("IDRegNrSumA")) AndAlso POS("IDRegNrSumA").ToString <> "" Then 'MRN (SumA) Zugehörige ATLAS - Registrierung.
Dim POSNr As Integer = If(IsDBNull(POS("IDRegNrSumAPos")), 0, CInt(POS("IDRegNrSumAPos"))) Dim SUMA_POSNr As Integer = If(IsDBNull(POS("IDRegNrSumAPos")), 0, CInt(POS("IDRegNrSumAPos"))) 'Positionsnummer in der Summarischen Anmeldung
If MRNNR <> POS.Item("IDRegNrSumA") Then If MRN_SUMA <> POS.Item("IDRegNrSumA") Then
MRNNR = POS.Item("IDRegNrSumA") MRN_SUMA = POS.Item("IDRegNrSumA")
Dim sqlString = "" Dim sqlString = ""
If isNCTS Then If isNCTS Then
sqlString = "Select * From [tblGesamtsicherheit] as gs left join tblGesamtsicherheitsPositionen as pos on pos.gsp_gsId = gs.gs_gsId where [gs_MRNNr] = '" & MRNNR & "' and [gs_dakoyimport] = 1 order by gsp_gspPosId" sqlString = "Select * From [tblGesamtsicherheit] as gs left join tblGesamtsicherheitsPositionen as pos on pos.gsp_gsId = gs.gs_gsId where [gs_MRNNr] = '" & MRN_SUMA & "' and [gs_dakoyimport] = 1 order by gsp_gspPosId" 'dieser wird bei NCTS explizit angegeben!
Else Else
sqlString = "Select * From [tblGesamtsicherheit] as gs left join tblGesamtsicherheitsPositionen as pos on pos.gsp_gsId = gs.gs_gsId where ([gs_VeralteteWeitereRegistriernummer] = '" & MRNNR & "' or [gs_MRNNr] = '" & regNR & "') and [gs_dakoyimport] = 1 order by gsp_gspPosId, gsp_MRNNr"
Dim StringSub As String = ""
If MRN_Erledigung <> "" Then
StringSub = " or [gs_VeralteteWeitereRegistriernummer] = '" & MRN_Erledigung & "'"
Else
End If
sqlString = "Select * From [tblGesamtsicherheit] as gs left join tblGesamtsicherheitsPositionen as pos on pos.gsp_gsId = gs.gs_gsId where ([gs_MRNNr] = '" & MRN_SUMA & "'" & StringSub & ") and [gs_dakoyimport] = 1 order by gsp_gspPosId, gsp_MRNNr"
End If End If
Dim dtGesamtsicherheit = SQL.loadDgvBySql(sqlString, "AVISO") Dim dtGesamtsicherheit = SQL.loadDgvBySql(sqlString, "AVISO")
@@ -745,7 +880,7 @@ Anzeige:
Dim gs_row As Array = Nothing Dim gs_row As Array = Nothing
gs_row = dtGesamtsicherheit.Select("gs_posSubNr = " & POSNr & " AND isnull(gsp_MRNNr,'') = ''") gs_row = dtGesamtsicherheit.Select("gs_posSubNr = " & SUMA_POSNr & " AND isnull(gsp_MRNNr,'') = ''")
If gs_row.Length = 0 Then If gs_row.Length = 0 Then
Continue For Continue For
@@ -762,7 +897,7 @@ Anzeige:
'Berechnung Warenwert und Sicherheitsbetrag aus Sendung -> immer aus den Produktivdaten! 'Berechnung Warenwert und Sicherheitsbetrag aus Sendung -> immer aus den Produktivdaten!
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
Dim dtVorpapiere As DataTable = SQL.loadDgvBySql("SELECT tblSnd_Warenwert,tblSnd_WarenwertWaehrung,replace(tblSnd_Vorpapier_Pos,'+',',') as tblSnd_Vorpapier_Pos,replace(tblSnd_Vorpapier2_Pos,'+',',') as tblSnd_Vorpapier2_Pos, replace(tblSnd_Vorpapier3_Pos,'+',',') as tblSnd_Vorpapier3_Pos from tblSendungen where tblSnd_Vorpapier = '" & gsrightRow("gs_ATBNr") & "' Or tblSnd_Vorpapier2 = '" & gsrightRow("gs_ATBNr") & "' OR tblSnd_Vorpapier3 = '" & gsrightRow("gs_ATBNr") & "'", "AVISO") Dim dtVorpapiere As DataTable = SQL.loadDgvBySql("SELECT tblSnd_Warenwert,tblSnd_WarenwertWaehrung,replace(tblSnd_Vorpapier_Pos,'+',',') as tblSnd_Vorpapier_Pos,replace(tblSnd_Vorpapier2_Pos,'+',',') as tblSnd_Vorpapier2_Pos, replace(tblSnd_Vorpapier3_Pos,'+',',') as tblSnd_Vorpapier3_Pos from tblSendungen where (tblSnd_Vorpapier = '" & gsrightRow("gs_ATBNr") & "' Or tblSnd_Vorpapier2 = '" & gsrightRow("gs_ATBNr") & "' OR tblSnd_Vorpapier3 = '" & gsrightRow("gs_ATBNr") & "') and tblSnd_Vorpapier_Pos <> '?'", "AVISO")
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = testlauf VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = testlauf
@@ -821,56 +956,52 @@ Anzeige:
dt.Rows.Add(ro) dt.Rows.Add(ro)
Dim InfoText As String = createInfoMail(MRNNR, dt, "") Dim InfoText As String = createInfoMail(MRN_SUMA, dt, "")
VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("verwahrung@verag.ag", IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "TEST-", "") & "Erledigungsmeldung-DAKOSY fehlende Positionen - " & Now().ToShortDateString, InfoText,,,,, "d.breimaier@verag.ag") VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("verwahrung@verag.ag", IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "TEST-", "") & "Erledigungsmeldung-DAKOSY fehlende Positionen - " & Now().ToShortDateString, InfoText,,,,, "d.breimaier@verag.ag")
End If End If
Dim SicherheitsPos As New cGesamtsicherheitsPositionen() Dim SicherheitsPos As New cGesamtsicherheitsPositionen(gsrightRow("gs_gsId"), gsrightRow.Item("gs_posNr"))
With SicherheitsPos With SicherheitsPos
.gsp_gsId = gsrightRow("gs_gsId") '.gsp_gsId = gsrightRow("gs_gsId")
.gsp_gspPosId = gsrightRow.Item("gs_posNr") '.gsp_gspPosId = gsrightRow.Item("gs_posNr")
.gsp_warenwert = IIf(isCompletelyFinished, Warenwert, 0)
.gsp_sicherheitsbetrag = IIf(isCompletelyFinished, Sicherheitsbetrag, 0)
.gsp_freitext = IIf(isCompletelyFinished, DAKOSY_STATUS.IMPORTED, DAKOSY_STATUS.NOTCOMPLETED)
.gsp_filialenNr = gsrightRow("gs_filialenNr") .gsp_filialenNr = gsrightRow("gs_filialenNr")
.gsp_art = "CLOSE" .gsp_art = "CLOSE"
.gsp_gsNr = gsrightRow("gs_gsnr") .gsp_gsNr = gsrightRow("gs_gsnr")
.gsp_abfertigungsNr = gsrightRow("gs_abfertigungsnr") .gsp_abfertigungsNr = gsrightRow("gs_abfertigungsnr")
.gsp_datum = nachrichtenDatum .gsp_datum = nachrichtenDatum
.gsp_erstellungsdatum = DateTime.Now .gsp_erstellungsdatum = DateTime.Now
.gsp_ust = gsrightRow("gs_ust") .gsp_ust = gsrightRow("gs_ust")
.gsp_EH_Anzahl += AnzahlStückErledigt
If .gsp_EH_Anzahl = CInt(gsrightRow.Item("gs_EH_Anzahl")) Then isCompletelyFinished = True 'wenn alle Teile da sind, dann komplett!
.gsp_freitext = IIf(isCompletelyFinished, DAKOSY_STATUS.IMPORTED, DAKOSY_STATUS.NOTCOMPLETED)
.gsp_warenwert = IIf(isCompletelyFinished, Warenwert, 0)
.gsp_sicherheitsbetrag = IIf(isCompletelyFinished, Sicherheitsbetrag, 0)
If isCompletelyFinished Then If isCompletelyFinished Then
If Not isNCTS Then If Not isNCTS Then
.gsp_ATCNr = IIf(veralteteregNR = "", MRNNR, veralteteregNR) .gsp_ATCNr = IIf(MRN_Erledigung_veraltet = "", MRN_SUMA, MRN_Erledigung_veraltet)
.gsp_MRNNr = IIf(regNR = "", MRNNR, regNR) .gsp_MRNNr = IIf(MRN_Erledigung = "", MRN_SUMA, MRN_Erledigung)
Else Else
.gsp_ATCNr = "" .gsp_ATCNr = ""
.gsp_MRNNr = IIf(regNR = "", MRNNR.Trim(), regNR.Trim()) .gsp_MRNNr = IIf(MRN_Erledigung = "", MRN_SUMA.Trim(), MRN_Erledigung.Trim())
End If End If
End If End If
.gsp_avisoId = gsrightRow("gs_avisoID") .gsp_avisoId = gsrightRow("gs_avisoID")
.gsp_systemuser = "DAKOSY-AUTO" .gsp_systemuser = "DAKOSY-AUTO"
.gsp_EH_Anzahl = AnzahlStückErledigt End With
End With
SicherheitsPos.SAVE() SicherheitsPos.SAVE()
GesSichRef.CalcSaldo() GesSichRef.CalcSaldo()
If sendInfoMail Then If sendInfoMail Then
Dim InfoText2 As String = createInfoMail(gsrightRow.Item("gs_MRNNr"), Nothing, "VW-AUSGANG",, SicherheitsPos, isNCTS) Dim InfoText2 As String = createInfoMail(gsrightRow.Item("gs_MRNNr"), Nothing, "VW-AUSGANG",, SicherheitsPos, isNCTS, sonstigeMRNNr)
VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("verwahrung@verag.ag", IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "TEST-", "") & "Verwahrungsausgang aus DAKOSY " & IIf(isNCTS, "T1 ", "") & " - " & Now().ToShortDateString, InfoText2,,,,, "d.breimaier@verag.ag") VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("verwahrung@verag.ag", IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "TEST-", "") & "Verwahrungsausgang aus DAKOSY " & zusätzlicheInfo & " - " & Now().ToShortDateString, InfoText2,,,,, "d.breimaier@verag.ag")
End If End If
End If End If
@@ -910,7 +1041,7 @@ Anzeige:
Return 0 Return 0
End Function End Function
Public Shared Function createInfoMail(regNR As String, dt As DataTable, typ As String, Optional GS As cSicherheiten = Nothing, Optional GSPOS As cGesamtsicherheitsPositionen = Nothing, Optional isNCTS As Boolean = False) As String Public Shared Function createInfoMail(regNR As String, dt As DataTable, typ As String, Optional GS As cSicherheiten = Nothing, Optional GSPOS As cGesamtsicherheitsPositionen = Nothing, Optional isNCTS As Boolean = False, Optional sonstigeMRNNR As String = "") As String
Dim TextHTMLtable As String Dim TextHTMLtable As String
@@ -967,19 +1098,20 @@ Anzeige:
TextHTMLtable &= typ & " wurde aus DAKOSY generiert!" & vbNewLine & vbNewLine & vbNewLine TextHTMLtable &= typ & " wurde aus DAKOSY generiert!" & vbNewLine & vbNewLine & vbNewLine
TextHTMLtable &= "<table border=1>" TextHTMLtable &= "<table border=1>"
TextHTMLtable &= "<tr><td>PosNr</td><td>MRN</td><td>ATC</td><td>AVISOID</td></tr>" TextHTMLtable &= "<tr><td>PosNr</td><td>MRN</td><td>ATC</td>" & IIf(sonstigeMRNNR <> "", "<td>sonstige MRN</td>", "") & "<td>AVISOID</td></tr>"
If GSPOS IsNot Nothing Then If GSPOS IsNot Nothing Then
TextHTMLtable &= "<tr>" TextHTMLtable &= "<tr>"
TextHTMLtable &= "<td><b>" & GSPOS.gsp_gspPosId & "</b></td>" TextHTMLtable &= "<td><b>" & GSPOS.gsp_gspPosId & "</b></td>"
TextHTMLtable &= "<td><b>" & GSPOS.gsp_MRNNr & "</b></td>" TextHTMLtable &= "<td><b>" & GSPOS.gsp_MRNNr & "</b></td>"
TextHTMLtable &= "<td><b>" & GSPOS.gsp_ATCNr & "</b></td>" TextHTMLtable &= "<td><b>" & GSPOS.gsp_ATCNr & "</b></td>"
If sonstigeMRNNR <> "" Then TextHTMLtable &= "<td><b>" & sonstigeMRNNR & "</b></td>"
TextHTMLtable &= "<td><b>" & GSPOS.gsp_avisoId & "</b></td>" TextHTMLtable &= "<td><b>" & GSPOS.gsp_avisoId & "</b></td>"
TextHTMLtable &= "</tr>" TextHTMLtable &= "</tr>"
End If End If
TextHTMLtable &= "</table>" TextHTMLtable &= "</table>"
TextHTMLtable &= vbNewLine & vbNewLine & vbNewLine & "*Automatic generated e-mail*" TextHTMLtable &= vbNewLine & vbNewLine & vbNewLine & "*Automatic generated e-mail*"
Return TextHTMLtable Return TextHTMLtable

13
initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb
View File

@@ -342,7 +342,7 @@ Public Class frmDYNachrichtenVerarbeitung
'NCTS: Ueberlassungsmeldung 'NCTS: Ueberlassungsmeldung
If Not found And cGetMsgType.isNCTS_Ueberlassungsmeldung(doc, VERSION) Then If Not found And cGetMsgType.isNCTS_Ueberlassungsmeldung(doc, VERSION) Then
Select Case VERSION Select Case VERSION
Case "009" : If cWorker_NCTS.readNCTS_Ueberlassungsmeldung009(Me, d, statusTMP, saveVerwahrung, sendMail, GESTELLUNG_TESTLAUF) <> "" Then found = True 'NEU Case "009" : If cWorker_NCTS.readNCTS_Ueberlassungsmeldung009(Me, d, statusTMP, saveVerwahrung, sendMail, GESTELLUNG_TESTLAUF) <> "" Then found = True ' --> TEIL DER VERWAHRUNG - RECHTE SEITE
If cWorker_NCTS.readNCTS004_Ueberlassungsmeldung008(Me, d, statusTMP) <> "" Then found = True If cWorker_NCTS.readNCTS004_Ueberlassungsmeldung008(Me, d, statusTMP) <> "" Then found = True
' If Not found Then If cWorker_NCTS.readNCTS_Ueberlassungsmeldung008(Me, d, statusTMP) <> "" Then found = True ' If Not found Then If cWorker_NCTS.readNCTS_Ueberlassungsmeldung008(Me, d, statusTMP) <> "" Then found = True
Case "007" : If cWorker_NCTS.readNCTS_Ueberlassungsmeldung007(Me, d, statusTMP) <> "" Then found = True ': MsgBox("005!") Case "007" : If cWorker_NCTS.readNCTS_Ueberlassungsmeldung007(Me, d, statusTMP) <> "" Then found = True ': MsgBox("005!")
@@ -410,16 +410,15 @@ Public Class frmDYNachrichtenVerarbeitung
If Not found And cGetMsgType.isNCTS_SumAVerwahrungsinfo(doc, VERSION) Then If Not found And cGetMsgType.isNCTS_SumAVerwahrungsinfo(doc, VERSION) Then
Select Case VERSION Select Case VERSION
Case False Case False
Case Else : If cWorker_Verwahrung.readVW_SumAVerwahrungsinfo(Me, d, saveVerwahrung, sendMail, GESTELLUNG_TESTLAUF) <> "" Then found = True Case Else : If cWorker_Verwahrung.readVW_SumAVerwahrungsinfo(Me, d, saveVerwahrung, sendMail, GESTELLUNG_TESTLAUF) <> "" Then found = True '--> TEIL DER VERWAHRUNG - LINKE SEITE
End Select End Select
End If End If
'VW: UngueltigkeitSicherheitenNCTSDE If Not found And cGetMsgType.isSumAErledigungsinformation(doc, VERSION) Then
If Not found And cGetMsgType.isNCTS_SumAVerwahrungsinfo(doc, VERSION) Then
Select Case VERSION Select Case VERSION
Case False Case "005" :: If cWorker_Verwahrung.readVW_SumAErledigungsinformation(Me, d, saveVerwahrung, sendMail, GESTELLUNG_TESTLAUF) <> "" Then found = True '--> TEIL DER VERWAHRUNG - RECHTE SEITE
Case Else : If cWorker_Verwahrung.readVW_SumAVerwahrungsinfo(Me, d, saveVerwahrung, sendMail, GESTELLUNG_TESTLAUF) <> "" Then found = True Case Else : If cWorker_Verwahrung.readVW_SumAErledigungsinformation(Me, d, saveVerwahrung, sendMail, GESTELLUNG_TESTLAUF) <> "" Then found = True '--> TEIL DER VERWAHRUNG - RECHTE SEITE
End Select End Select
End If End If
@@ -427,7 +426,7 @@ Public Class frmDYNachrichtenVerarbeitung
'VW: SumAErledigungsinformationVorpapier 'VW: SumAErledigungsinformationVorpapier
If Not found And cGetMsgType.isEZA_SumAErledigungsinformationVorpapier(doc, VERSION) Then If Not found And cGetMsgType.isEZA_SumAErledigungsinformationVorpapier(doc, VERSION) Then
Select Case VERSION Select Case VERSION
Case "005" : If cWorker_Verwahrung.readEZA_SumAErledigungsinformationVorpapier_005(Me, d, saveVerwahrung, sendMail, GESTELLUNG_TESTLAUF) <> "" Then found = True ' --> TEIL DER VERWAHRUNG Case "005" : If cWorker_Verwahrung.readEZA_SumAErledigungsinformationVorpapier_005(Me, d, saveVerwahrung, sendMail, GESTELLUNG_TESTLAUF) <> "" Then found = True ' --> TEIL DER VERWAHRUNG - RECHTE SEITE
Case "004" : If readEZA_SumAErledigungsinformationVorpapier_004(d) <> "" Then found = True Case "004" : If readEZA_SumAErledigungsinformationVorpapier_004(d) <> "" Then found = True
Case Else : If readEZA_SumAErledigungsinformationVorpapier(d) <> "" Then found = True Case Else : If readEZA_SumAErledigungsinformationVorpapier(d) <> "" Then found = True
End Select End Select

225
initATLASAufschubkonten/frmStartOptions.Designer.vb generated
View File

@@ -226,7 +226,7 @@ Partial Class frmStartOptions
Me.IDS = New System.Windows.Forms.TabPage() Me.IDS = New System.Windows.Forms.TabPage()
Me.lblIDS_plauscheck = New System.Windows.Forms.LinkLabel() Me.lblIDS_plauscheck = New System.Windows.Forms.LinkLabel()
Me.Label59 = New System.Windows.Forms.Label() Me.Label59 = New System.Windows.Forms.Label()
Me.Label55 = New System.Windows.Forms.Label() Me.lblOriginalRechnungIDS = New System.Windows.Forms.Label()
Me.Label54 = New System.Windows.Forms.Label() Me.Label54 = New System.Windows.Forms.Label()
Me.Label53 = New System.Windows.Forms.Label() Me.Label53 = New System.Windows.Forms.Label()
Me.lbl_setBackToCustomerIDS = New System.Windows.Forms.LinkLabel() Me.lbl_setBackToCustomerIDS = New System.Windows.Forms.LinkLabel()
@@ -242,7 +242,9 @@ Partial Class frmStartOptions
Me.TextBox3 = New System.Windows.Forms.TextBox() Me.TextBox3 = New System.Windows.Forms.TextBox()
Me.txtIDSYear = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtIDSYear = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.MSE = New System.Windows.Forms.TabPage() Me.MSE = New System.Windows.Forms.TabPage()
Me.Label56 = New System.Windows.Forms.Label() Me.LinkLabel25 = New System.Windows.Forms.LinkLabel()
Me.Label61 = New System.Windows.Forms.Label()
Me.lblOriginalRechnungMSE = New System.Windows.Forms.Label()
Me.lblBackToCustomer_MSE = New System.Windows.Forms.LinkLabel() Me.lblBackToCustomer_MSE = New System.Windows.Forms.LinkLabel()
Me.Label33 = New System.Windows.Forms.Label() Me.Label33 = New System.Windows.Forms.Label()
Me.Label36 = New System.Windows.Forms.Label() Me.Label36 = New System.Windows.Forms.Label()
@@ -271,7 +273,7 @@ Partial Class frmStartOptions
Me.txtBatchNrofTransaction = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtBatchNrofTransaction = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.RMC = New System.Windows.Forms.TabPage() Me.RMC = New System.Windows.Forms.TabPage()
Me.Label58 = New System.Windows.Forms.Label() Me.Label58 = New System.Windows.Forms.Label()
Me.Label57 = New System.Windows.Forms.Label() Me.lblOriginalRechnungRMC = New System.Windows.Forms.Label()
Me.lblBackToCustomer_RMC = New System.Windows.Forms.LinkLabel() Me.lblBackToCustomer_RMC = New System.Windows.Forms.LinkLabel()
Me.LinkLabel53 = New System.Windows.Forms.LinkLabel() Me.LinkLabel53 = New System.Windows.Forms.LinkLabel()
Me.Label29 = New System.Windows.Forms.Label() Me.Label29 = New System.Windows.Forms.Label()
@@ -382,8 +384,11 @@ Partial Class frmStartOptions
Me.txtGJ_UNISPED = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtGJ_UNISPED = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Button21 = New System.Windows.Forms.Button() Me.Button21 = New System.Windows.Forms.Button()
Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.Label61 = New System.Windows.Forms.Label() Me.Label62 = New System.Windows.Forms.Label()
Me.LinkLabel25 = New System.Windows.Forms.LinkLabel() Me.Label63 = New System.Windows.Forms.Label()
Me.lblOriginalRechnungPLOSE = New System.Windows.Forms.Label()
Me.Label65 = New System.Windows.Forms.Label()
Me.lblOriginalRechnungUTA = New System.Windows.Forms.Label()
Me.pnl.SuspendLayout() Me.pnl.SuspendLayout()
CType(Me.pbEmailscheck, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.pbEmailscheck, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox24, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox24, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -2959,7 +2964,7 @@ Partial Class frmStartOptions
'Label23 'Label23
' '
Me.Label23.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label23.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label23.Location = New System.Drawing.Point(19, 128) Me.Label23.Location = New System.Drawing.Point(19, 129)
Me.Label23.Name = "Label23" Me.Label23.Name = "Label23"
Me.Label23.Size = New System.Drawing.Size(111, 19) Me.Label23.Size = New System.Drawing.Size(111, 19)
Me.Label23.TabIndex = 33 Me.Label23.TabIndex = 33
@@ -3066,7 +3071,7 @@ Partial Class frmStartOptions
' '
Me.IDS.Controls.Add(Me.lblIDS_plauscheck) Me.IDS.Controls.Add(Me.lblIDS_plauscheck)
Me.IDS.Controls.Add(Me.Label59) Me.IDS.Controls.Add(Me.Label59)
Me.IDS.Controls.Add(Me.Label55) Me.IDS.Controls.Add(Me.lblOriginalRechnungIDS)
Me.IDS.Controls.Add(Me.Label54) Me.IDS.Controls.Add(Me.Label54)
Me.IDS.Controls.Add(Me.Label53) Me.IDS.Controls.Add(Me.Label53)
Me.IDS.Controls.Add(Me.lbl_setBackToCustomerIDS) Me.IDS.Controls.Add(Me.lbl_setBackToCustomerIDS)
@@ -3093,7 +3098,7 @@ Partial Class frmStartOptions
' '
Me.lblIDS_plauscheck.AutoSize = True Me.lblIDS_plauscheck.AutoSize = True
Me.lblIDS_plauscheck.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) Me.lblIDS_plauscheck.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.lblIDS_plauscheck.Location = New System.Drawing.Point(9, 251) Me.lblIDS_plauscheck.Location = New System.Drawing.Point(7, 265)
Me.lblIDS_plauscheck.Name = "lblIDS_plauscheck" Me.lblIDS_plauscheck.Name = "lblIDS_plauscheck"
Me.lblIDS_plauscheck.Size = New System.Drawing.Size(220, 13) Me.lblIDS_plauscheck.Size = New System.Drawing.Size(220, 13)
Me.lblIDS_plauscheck.TabIndex = 176 Me.lblIDS_plauscheck.TabIndex = 176
@@ -3104,27 +3109,27 @@ Partial Class frmStartOptions
' '
Me.Label59.AutoSize = True Me.Label59.AutoSize = True
Me.Label59.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label59.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label59.Location = New System.Drawing.Point(9, 227) Me.Label59.Location = New System.Drawing.Point(7, 241)
Me.Label59.Name = "Label59" Me.Label59.Name = "Label59"
Me.Label59.Size = New System.Drawing.Size(118, 13) Me.Label59.Size = New System.Drawing.Size(118, 13)
Me.Label59.TabIndex = 175 Me.Label59.TabIndex = 175
Me.Label59.Text = "Plausibilitäts-Check" Me.Label59.Text = "Plausibilitäts-Check"
' '
'Label55 'lblOriginalRechnungIDS
' '
Me.Label55.AutoSize = True Me.lblOriginalRechnungIDS.AutoSize = True
Me.Label55.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.lblOriginalRechnungIDS.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label55.Location = New System.Drawing.Point(248, 166) Me.lblOriginalRechnungIDS.Location = New System.Drawing.Point(214, 31)
Me.Label55.Name = "Label55" Me.lblOriginalRechnungIDS.Name = "lblOriginalRechnungIDS"
Me.Label55.Size = New System.Drawing.Size(126, 13) Me.lblOriginalRechnungIDS.Size = New System.Drawing.Size(126, 13)
Me.Label55.TabIndex = 174 Me.lblOriginalRechnungIDS.TabIndex = 174
Me.Label55.Text = "Original-Rechnungen" Me.lblOriginalRechnungIDS.Text = "Original-Rechnungen"
' '
'Label54 'Label54
' '
Me.Label54.AutoSize = True Me.Label54.AutoSize = True
Me.Label54.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label54.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label54.Location = New System.Drawing.Point(9, 166) Me.Label54.Location = New System.Drawing.Point(644, 32)
Me.Label54.Name = "Label54" Me.Label54.Name = "Label54"
Me.Label54.Size = New System.Drawing.Size(213, 13) Me.Label54.Size = New System.Drawing.Size(213, 13)
Me.Label54.TabIndex = 173 Me.Label54.TabIndex = 173
@@ -3134,7 +3139,7 @@ Partial Class frmStartOptions
' '
Me.Label53.AutoSize = True Me.Label53.AutoSize = True
Me.Label53.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label53.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label53.Location = New System.Drawing.Point(236, 26) Me.Label53.Location = New System.Drawing.Point(6, 147)
Me.Label53.Name = "Label53" Me.Label53.Name = "Label53"
Me.Label53.Size = New System.Drawing.Size(79, 13) Me.Label53.Size = New System.Drawing.Size(79, 13)
Me.Label53.TabIndex = 172 Me.Label53.TabIndex = 172
@@ -3144,7 +3149,7 @@ Partial Class frmStartOptions
' '
Me.lbl_setBackToCustomerIDS.AutoSize = True Me.lbl_setBackToCustomerIDS.AutoSize = True
Me.lbl_setBackToCustomerIDS.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) Me.lbl_setBackToCustomerIDS.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.lbl_setBackToCustomerIDS.Location = New System.Drawing.Point(248, 188) Me.lbl_setBackToCustomerIDS.Location = New System.Drawing.Point(214, 53)
Me.lbl_setBackToCustomerIDS.Name = "lbl_setBackToCustomerIDS" Me.lbl_setBackToCustomerIDS.Name = "lbl_setBackToCustomerIDS"
Me.lbl_setBackToCustomerIDS.Size = New System.Drawing.Size(123, 13) Me.lbl_setBackToCustomerIDS.Size = New System.Drawing.Size(123, 13)
Me.lbl_setBackToCustomerIDS.TabIndex = 171 Me.lbl_setBackToCustomerIDS.TabIndex = 171
@@ -3155,7 +3160,7 @@ Partial Class frmStartOptions
' '
Me.IDS_PDFmitREverkn.AutoSize = True Me.IDS_PDFmitREverkn.AutoSize = True
Me.IDS_PDFmitREverkn.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) Me.IDS_PDFmitREverkn.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.IDS_PDFmitREverkn.Location = New System.Drawing.Point(242, 96) Me.IDS_PDFmitREverkn.Location = New System.Drawing.Point(11, 206)
Me.IDS_PDFmitREverkn.Name = "IDS_PDFmitREverkn" Me.IDS_PDFmitREverkn.Name = "IDS_PDFmitREverkn"
Me.IDS_PDFmitREverkn.Size = New System.Drawing.Size(154, 13) Me.IDS_PDFmitREverkn.Size = New System.Drawing.Size(154, 13)
Me.IDS_PDFmitREverkn.TabIndex = 170 Me.IDS_PDFmitREverkn.TabIndex = 170
@@ -3166,7 +3171,7 @@ Partial Class frmStartOptions
' '
Me.IDSUpdateDAID.AutoSize = True Me.IDSUpdateDAID.AutoSize = True
Me.IDSUpdateDAID.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) Me.IDSUpdateDAID.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.IDSUpdateDAID.Location = New System.Drawing.Point(9, 188) Me.IDSUpdateDAID.Location = New System.Drawing.Point(644, 54)
Me.IDSUpdateDAID.Name = "IDSUpdateDAID" Me.IDSUpdateDAID.Name = "IDSUpdateDAID"
Me.IDSUpdateDAID.Size = New System.Drawing.Size(141, 13) Me.IDSUpdateDAID.Size = New System.Drawing.Size(141, 13)
Me.IDSUpdateDAID.TabIndex = 169 Me.IDSUpdateDAID.TabIndex = 169
@@ -3209,7 +3214,7 @@ Partial Class frmStartOptions
' '
Me.IDS_REDetails.AutoSize = True Me.IDS_REDetails.AutoSize = True
Me.IDS_REDetails.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) Me.IDS_REDetails.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.IDS_REDetails.Location = New System.Drawing.Point(240, 70) Me.IDS_REDetails.Location = New System.Drawing.Point(11, 184)
Me.IDS_REDetails.Name = "IDS_REDetails" Me.IDS_REDetails.Name = "IDS_REDetails"
Me.IDS_REDetails.Size = New System.Drawing.Size(176, 13) Me.IDS_REDetails.Size = New System.Drawing.Size(176, 13)
Me.IDS_REDetails.TabIndex = 165 Me.IDS_REDetails.TabIndex = 165
@@ -3231,7 +3236,7 @@ Partial Class frmStartOptions
' '
Me.IDS_RE.AutoSize = True Me.IDS_RE.AutoSize = True
Me.IDS_RE.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) Me.IDS_RE.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.IDS_RE.Location = New System.Drawing.Point(240, 52) Me.IDS_RE.Location = New System.Drawing.Point(11, 166)
Me.IDS_RE.Name = "IDS_RE" Me.IDS_RE.Name = "IDS_RE"
Me.IDS_RE.Size = New System.Drawing.Size(151, 13) Me.IDS_RE.Size = New System.Drawing.Size(151, 13)
Me.IDS_RE.TabIndex = 152 Me.IDS_RE.TabIndex = 152
@@ -3290,7 +3295,7 @@ Partial Class frmStartOptions
' '
Me.MSE.Controls.Add(Me.LinkLabel25) Me.MSE.Controls.Add(Me.LinkLabel25)
Me.MSE.Controls.Add(Me.Label61) Me.MSE.Controls.Add(Me.Label61)
Me.MSE.Controls.Add(Me.Label56) Me.MSE.Controls.Add(Me.lblOriginalRechnungMSE)
Me.MSE.Controls.Add(Me.lblBackToCustomer_MSE) Me.MSE.Controls.Add(Me.lblBackToCustomer_MSE)
Me.MSE.Controls.Add(Me.Label33) Me.MSE.Controls.Add(Me.Label33)
Me.MSE.Controls.Add(Me.Label36) Me.MSE.Controls.Add(Me.Label36)
@@ -3324,15 +3329,36 @@ Partial Class frmStartOptions
Me.MSE.Text = "MSE" Me.MSE.Text = "MSE"
Me.MSE.UseVisualStyleBackColor = True Me.MSE.UseVisualStyleBackColor = True
' '
'Label56 'LinkLabel25
' '
Me.Label56.AutoSize = True Me.LinkLabel25.AutoSize = True
Me.Label56.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.LinkLabel25.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Label56.Location = New System.Drawing.Point(468, 40) Me.LinkLabel25.Location = New System.Drawing.Point(275, 63)
Me.Label56.Name = "Label56" Me.LinkLabel25.Name = "LinkLabel25"
Me.Label56.Size = New System.Drawing.Size(126, 13) Me.LinkLabel25.Size = New System.Drawing.Size(123, 13)
Me.Label56.TabIndex = 173 Me.LinkLabel25.TabIndex = 175
Me.Label56.Text = "Original-Rechnungen" Me.LinkLabel25.TabStop = True
Me.LinkLabel25.Text = "Rechnungen importieren"
'
'Label61
'
Me.Label61.AutoSize = True
Me.Label61.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label61.Location = New System.Drawing.Point(275, 40)
Me.Label61.Name = "Label61"
Me.Label61.Size = New System.Drawing.Size(135, 13)
Me.Label61.TabIndex = 174
Me.Label61.Text = "Import PDF (alternativ)"
'
'lblOriginalRechnungMSE
'
Me.lblOriginalRechnungMSE.AutoSize = True
Me.lblOriginalRechnungMSE.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblOriginalRechnungMSE.Location = New System.Drawing.Point(468, 40)
Me.lblOriginalRechnungMSE.Name = "lblOriginalRechnungMSE"
Me.lblOriginalRechnungMSE.Size = New System.Drawing.Size(126, 13)
Me.lblOriginalRechnungMSE.TabIndex = 173
Me.lblOriginalRechnungMSE.Text = "Original-Rechnungen"
' '
'lblBackToCustomer_MSE 'lblBackToCustomer_MSE
' '
@@ -3658,7 +3684,7 @@ Partial Class frmStartOptions
'RMC 'RMC
' '
Me.RMC.Controls.Add(Me.Label58) Me.RMC.Controls.Add(Me.Label58)
Me.RMC.Controls.Add(Me.Label57) Me.RMC.Controls.Add(Me.lblOriginalRechnungRMC)
Me.RMC.Controls.Add(Me.lblBackToCustomer_RMC) Me.RMC.Controls.Add(Me.lblBackToCustomer_RMC)
Me.RMC.Controls.Add(Me.LinkLabel53) Me.RMC.Controls.Add(Me.LinkLabel53)
Me.RMC.Controls.Add(Me.Label29) Me.RMC.Controls.Add(Me.Label29)
@@ -3678,27 +3704,27 @@ Partial Class frmStartOptions
' '
Me.Label58.AutoSize = True Me.Label58.AutoSize = True
Me.Label58.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label58.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label58.Location = New System.Drawing.Point(184, 39) Me.Label58.Location = New System.Drawing.Point(7, 150)
Me.Label58.Name = "Label58" Me.Label58.Name = "Label58"
Me.Label58.Size = New System.Drawing.Size(79, 13) Me.Label58.Size = New System.Drawing.Size(79, 13)
Me.Label58.TabIndex = 175 Me.Label58.TabIndex = 175
Me.Label58.Text = "Verarbeitung" Me.Label58.Text = "Verarbeitung"
' '
'Label57 'lblOriginalRechnungRMC
' '
Me.Label57.AutoSize = True Me.lblOriginalRechnungRMC.AutoSize = True
Me.Label57.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.lblOriginalRechnungRMC.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label57.Location = New System.Drawing.Point(188, 97) Me.lblOriginalRechnungRMC.Location = New System.Drawing.Point(208, 39)
Me.Label57.Name = "Label57" Me.lblOriginalRechnungRMC.Name = "lblOriginalRechnungRMC"
Me.Label57.Size = New System.Drawing.Size(126, 13) Me.lblOriginalRechnungRMC.Size = New System.Drawing.Size(126, 13)
Me.Label57.TabIndex = 174 Me.lblOriginalRechnungRMC.TabIndex = 174
Me.Label57.Text = "Original-Rechnungen" Me.lblOriginalRechnungRMC.Text = "Original-Rechnungen"
' '
'lblBackToCustomer_RMC 'lblBackToCustomer_RMC
' '
Me.lblBackToCustomer_RMC.AutoSize = True Me.lblBackToCustomer_RMC.AutoSize = True
Me.lblBackToCustomer_RMC.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) Me.lblBackToCustomer_RMC.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.lblBackToCustomer_RMC.Location = New System.Drawing.Point(188, 116) Me.lblBackToCustomer_RMC.Location = New System.Drawing.Point(208, 58)
Me.lblBackToCustomer_RMC.Name = "lblBackToCustomer_RMC" Me.lblBackToCustomer_RMC.Name = "lblBackToCustomer_RMC"
Me.lblBackToCustomer_RMC.Size = New System.Drawing.Size(123, 13) Me.lblBackToCustomer_RMC.Size = New System.Drawing.Size(123, 13)
Me.lblBackToCustomer_RMC.TabIndex = 172 Me.lblBackToCustomer_RMC.TabIndex = 172
@@ -3709,7 +3735,7 @@ Partial Class frmStartOptions
' '
Me.LinkLabel53.AutoSize = True Me.LinkLabel53.AutoSize = True
Me.LinkLabel53.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) Me.LinkLabel53.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.LinkLabel53.Location = New System.Drawing.Point(188, 55) Me.LinkLabel53.Location = New System.Drawing.Point(11, 166)
Me.LinkLabel53.Name = "LinkLabel53" Me.LinkLabel53.Name = "LinkLabel53"
Me.LinkLabel53.Size = New System.Drawing.Size(119, 13) Me.LinkLabel53.Size = New System.Drawing.Size(119, 13)
Me.LinkLabel53.TabIndex = 102 Me.LinkLabel53.TabIndex = 102
@@ -3781,6 +3807,8 @@ Partial Class frmStartOptions
' '
'UTA 'UTA
' '
Me.UTA.Controls.Add(Me.lblOriginalRechnungUTA)
Me.UTA.Controls.Add(Me.Label65)
Me.UTA.Controls.Add(Me.lblBackToCustomer_UTA) Me.UTA.Controls.Add(Me.lblBackToCustomer_UTA)
Me.UTA.Controls.Add(Me.Label31) Me.UTA.Controls.Add(Me.Label31)
Me.UTA.Controls.Add(Me.Label34) Me.UTA.Controls.Add(Me.Label34)
@@ -3804,7 +3832,7 @@ Partial Class frmStartOptions
' '
Me.lblBackToCustomer_UTA.AutoSize = True Me.lblBackToCustomer_UTA.AutoSize = True
Me.lblBackToCustomer_UTA.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) Me.lblBackToCustomer_UTA.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.lblBackToCustomer_UTA.Location = New System.Drawing.Point(241, 138) Me.lblBackToCustomer_UTA.Location = New System.Drawing.Point(228, 55)
Me.lblBackToCustomer_UTA.Name = "lblBackToCustomer_UTA" Me.lblBackToCustomer_UTA.Name = "lblBackToCustomer_UTA"
Me.lblBackToCustomer_UTA.Size = New System.Drawing.Size(123, 13) Me.lblBackToCustomer_UTA.Size = New System.Drawing.Size(123, 13)
Me.lblBackToCustomer_UTA.TabIndex = 172 Me.lblBackToCustomer_UTA.TabIndex = 172
@@ -3856,7 +3884,7 @@ Partial Class frmStartOptions
' '
Me.UTAREPdf.AutoSize = True Me.UTAREPdf.AutoSize = True
Me.UTAREPdf.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) Me.UTAREPdf.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.UTAREPdf.Location = New System.Drawing.Point(314, 108) Me.UTAREPdf.Location = New System.Drawing.Point(88, 240)
Me.UTAREPdf.Name = "UTAREPdf" Me.UTAREPdf.Name = "UTAREPdf"
Me.UTAREPdf.Size = New System.Drawing.Size(119, 13) Me.UTAREPdf.Size = New System.Drawing.Size(119, 13)
Me.UTAREPdf.TabIndex = 161 Me.UTAREPdf.TabIndex = 161
@@ -3889,7 +3917,7 @@ Partial Class frmStartOptions
' '
Me.UTA_Laender.AutoSize = True Me.UTA_Laender.AutoSize = True
Me.UTA_Laender.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) Me.UTA_Laender.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.UTA_Laender.Location = New System.Drawing.Point(246, 47) Me.UTA_Laender.Location = New System.Drawing.Point(13, 190)
Me.UTA_Laender.Name = "UTA_Laender" Me.UTA_Laender.Name = "UTA_Laender"
Me.UTA_Laender.Size = New System.Drawing.Size(135, 13) Me.UTA_Laender.Size = New System.Drawing.Size(135, 13)
Me.UTA_Laender.TabIndex = 131 Me.UTA_Laender.TabIndex = 131
@@ -3900,7 +3928,7 @@ Partial Class frmStartOptions
' '
Me.lblUTAPDFvollst.AutoSize = True Me.lblUTAPDFvollst.AutoSize = True
Me.lblUTAPDFvollst.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) Me.lblUTAPDFvollst.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.lblUTAPDFvollst.Location = New System.Drawing.Point(314, 85) Me.lblUTAPDFvollst.Location = New System.Drawing.Point(88, 217)
Me.lblUTAPDFvollst.Name = "lblUTAPDFvollst" Me.lblUTAPDFvollst.Name = "lblUTAPDFvollst"
Me.lblUTAPDFvollst.Size = New System.Drawing.Size(113, 13) Me.lblUTAPDFvollst.Size = New System.Drawing.Size(113, 13)
Me.lblUTAPDFvollst.TabIndex = 157 Me.lblUTAPDFvollst.TabIndex = 157
@@ -3949,7 +3977,7 @@ Partial Class frmStartOptions
Me.txtUTADate._WaehrungZeichen = True Me.txtUTADate._WaehrungZeichen = True
Me.txtUTADate.BackColor = System.Drawing.SystemColors.Window Me.txtUTADate.BackColor = System.Drawing.SystemColors.Window
Me.txtUTADate.ForeColor = System.Drawing.Color.Red Me.txtUTADate.ForeColor = System.Drawing.Color.Red
Me.txtUTADate.Location = New System.Drawing.Point(243, 83) Me.txtUTADate.Location = New System.Drawing.Point(17, 215)
Me.txtUTADate.MaxLength = 10 Me.txtUTADate.MaxLength = 10
Me.txtUTADate.MaxLineLength = -1 Me.txtUTADate.MaxLineLength = -1
Me.txtUTADate.MaxLines_Warning = "" Me.txtUTADate.MaxLines_Warning = ""
@@ -3961,6 +3989,9 @@ Partial Class frmStartOptions
' '
'PLOSE 'PLOSE
' '
Me.PLOSE.Controls.Add(Me.lblOriginalRechnungPLOSE)
Me.PLOSE.Controls.Add(Me.Label63)
Me.PLOSE.Controls.Add(Me.Label62)
Me.PLOSE.Controls.Add(Me.lblBackToCustomer_PLOSE) Me.PLOSE.Controls.Add(Me.lblBackToCustomer_PLOSE)
Me.PLOSE.Controls.Add(Me.lblPlosefoppelteIMporte) Me.PLOSE.Controls.Add(Me.lblPlosefoppelteIMporte)
Me.PLOSE.Controls.Add(Me.LinkLabel52) Me.PLOSE.Controls.Add(Me.LinkLabel52)
@@ -3983,7 +4014,7 @@ Partial Class frmStartOptions
' '
Me.lblBackToCustomer_PLOSE.AutoSize = True Me.lblBackToCustomer_PLOSE.AutoSize = True
Me.lblBackToCustomer_PLOSE.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) Me.lblBackToCustomer_PLOSE.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.lblBackToCustomer_PLOSE.Location = New System.Drawing.Point(13, 154) Me.lblBackToCustomer_PLOSE.Location = New System.Drawing.Point(246, 61)
Me.lblBackToCustomer_PLOSE.Name = "lblBackToCustomer_PLOSE" Me.lblBackToCustomer_PLOSE.Name = "lblBackToCustomer_PLOSE"
Me.lblBackToCustomer_PLOSE.Size = New System.Drawing.Size(123, 13) Me.lblBackToCustomer_PLOSE.Size = New System.Drawing.Size(123, 13)
Me.lblBackToCustomer_PLOSE.TabIndex = 172 Me.lblBackToCustomer_PLOSE.TabIndex = 172
@@ -3993,7 +4024,7 @@ Partial Class frmStartOptions
'lblPlosefoppelteIMporte '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.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(278, 144) Me.lblPlosefoppelteIMporte.Location = New System.Drawing.Point(17, 238)
Me.lblPlosefoppelteIMporte.Name = "lblPlosefoppelteIMporte" Me.lblPlosefoppelteIMporte.Name = "lblPlosefoppelteIMporte"
Me.lblPlosefoppelteIMporte.Size = New System.Drawing.Size(132, 23) Me.lblPlosefoppelteIMporte.Size = New System.Drawing.Size(132, 23)
Me.lblPlosefoppelteIMporte.TabIndex = 169 Me.lblPlosefoppelteIMporte.TabIndex = 169
@@ -4004,7 +4035,7 @@ Partial Class frmStartOptions
' '
Me.LinkLabel52.AutoSize = True 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.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(276, 122) Me.LinkLabel52.Location = New System.Drawing.Point(17, 216)
Me.LinkLabel52.Name = "LinkLabel52" Me.LinkLabel52.Name = "LinkLabel52"
Me.LinkLabel52.Size = New System.Drawing.Size(151, 13) Me.LinkLabel52.Size = New System.Drawing.Size(151, 13)
Me.LinkLabel52.TabIndex = 168 Me.LinkLabel52.TabIndex = 168
@@ -4026,7 +4057,7 @@ Partial Class frmStartOptions
' '
Me.Label52.AutoSize = True 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.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(276, 55) Me.Label52.Location = New System.Drawing.Point(17, 149)
Me.Label52.Name = "Label52" Me.Label52.Name = "Label52"
Me.Label52.Size = New System.Drawing.Size(27, 13) Me.Label52.Size = New System.Drawing.Size(27, 13)
Me.Label52.TabIndex = 166 Me.Label52.TabIndex = 166
@@ -4036,7 +4067,7 @@ Partial Class frmStartOptions
' '
Me.Label51.AutoSize = True 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.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(273, 78) Me.Label51.Location = New System.Drawing.Point(14, 172)
Me.Label51.Name = "Label51" Me.Label51.Name = "Label51"
Me.Label51.Size = New System.Drawing.Size(55, 13) Me.Label51.Size = New System.Drawing.Size(55, 13)
Me.Label51.TabIndex = 164 Me.Label51.TabIndex = 164
@@ -4046,7 +4077,7 @@ Partial Class frmStartOptions
' '
Me.LinkLabel24.AutoSize = True 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.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, 56) Me.LinkLabel24.Location = New System.Drawing.Point(13, 61)
Me.LinkLabel24.Name = "LinkLabel24" Me.LinkLabel24.Name = "LinkLabel24"
Me.LinkLabel24.Size = New System.Drawing.Size(177, 13) Me.LinkLabel24.Size = New System.Drawing.Size(177, 13)
Me.LinkLabel24.TabIndex = 124 Me.LinkLabel24.TabIndex = 124
@@ -4057,7 +4088,7 @@ Partial Class frmStartOptions
' '
Me.LinkLabel23.AutoSize = True 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.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, 81) Me.LinkLabel23.Location = New System.Drawing.Point(13, 86)
Me.LinkLabel23.Name = "LinkLabel23" Me.LinkLabel23.Name = "LinkLabel23"
Me.LinkLabel23.Size = New System.Drawing.Size(180, 13) Me.LinkLabel23.Size = New System.Drawing.Size(180, 13)
Me.LinkLabel23.TabIndex = 125 Me.LinkLabel23.TabIndex = 125
@@ -4068,7 +4099,7 @@ Partial Class frmStartOptions
' '
Me.PlosePdfRE.AutoSize = True 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.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(276, 102) Me.PlosePdfRE.Location = New System.Drawing.Point(17, 196)
Me.PlosePdfRE.Name = "PlosePdfRE" Me.PlosePdfRE.Name = "PlosePdfRE"
Me.PlosePdfRE.Size = New System.Drawing.Size(119, 13) Me.PlosePdfRE.Size = New System.Drawing.Size(119, 13)
Me.PlosePdfRE.TabIndex = 159 Me.PlosePdfRE.TabIndex = 159
@@ -4091,7 +4122,7 @@ Partial Class frmStartOptions
Me.txtPloseJahr._WaehrungZeichen = False Me.txtPloseJahr._WaehrungZeichen = False
Me.txtPloseJahr.BackColor = System.Drawing.SystemColors.Window Me.txtPloseJahr.BackColor = System.Drawing.SystemColors.Window
Me.txtPloseJahr.ForeColor = System.Drawing.Color.Red Me.txtPloseJahr.ForeColor = System.Drawing.Color.Red
Me.txtPloseJahr.Location = New System.Drawing.Point(342, 52) Me.txtPloseJahr.Location = New System.Drawing.Point(83, 146)
Me.txtPloseJahr.MaxLength = 10 Me.txtPloseJahr.MaxLength = 10
Me.txtPloseJahr.MaxLineLength = -1 Me.txtPloseJahr.MaxLineLength = -1
Me.txtPloseJahr.MaxLines_Warning = "" Me.txtPloseJahr.MaxLines_Warning = ""
@@ -4117,7 +4148,7 @@ Partial Class frmStartOptions
Me.txtPLoseKdNr._WaehrungZeichen = False Me.txtPLoseKdNr._WaehrungZeichen = False
Me.txtPLoseKdNr.BackColor = System.Drawing.SystemColors.Window Me.txtPLoseKdNr.BackColor = System.Drawing.SystemColors.Window
Me.txtPLoseKdNr.ForeColor = System.Drawing.Color.Red Me.txtPLoseKdNr.ForeColor = System.Drawing.Color.Red
Me.txtPLoseKdNr.Location = New System.Drawing.Point(342, 75) Me.txtPLoseKdNr.Location = New System.Drawing.Point(83, 169)
Me.txtPLoseKdNr.MaxLength = 10 Me.txtPLoseKdNr.MaxLength = 10
Me.txtPLoseKdNr.MaxLineLength = -1 Me.txtPLoseKdNr.MaxLineLength = -1
Me.txtPLoseKdNr.MaxLines_Warning = "" Me.txtPLoseKdNr.MaxLines_Warning = ""
@@ -5104,26 +5135,55 @@ Partial Class frmStartOptions
Me.DataGridViewTextBoxColumn1.MinimumWidth = 8 Me.DataGridViewTextBoxColumn1.MinimumWidth = 8
Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1" Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1"
' '
'Label61 'Label62
' '
Me.Label61.AutoSize = True Me.Label62.AutoSize = True
Me.Label61.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label62.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label61.Location = New System.Drawing.Point(275, 40) Me.Label62.Location = New System.Drawing.Point(19, 124)
Me.Label61.Name = "Label61" Me.Label62.Name = "Label62"
Me.Label61.Size = New System.Drawing.Size(135, 13) Me.Label62.Size = New System.Drawing.Size(79, 13)
Me.Label61.TabIndex = 174 Me.Label62.TabIndex = 176
Me.Label61.Text = "Import PDF (alternativ)" Me.Label62.Text = "Verarbeitung"
' '
'LinkLabel25 'Label63
' '
Me.LinkLabel25.AutoSize = True Me.Label63.AutoSize = True
Me.LinkLabel25.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) Me.Label63.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.LinkLabel25.Location = New System.Drawing.Point(275, 63) Me.Label63.Location = New System.Drawing.Point(15, 43)
Me.LinkLabel25.Name = "LinkLabel25" Me.Label63.Name = "Label63"
Me.LinkLabel25.Size = New System.Drawing.Size(123, 13) Me.Label63.Size = New System.Drawing.Size(42, 13)
Me.LinkLabel25.TabIndex = 175 Me.Label63.TabIndex = 177
Me.LinkLabel25.TabStop = True Me.Label63.Text = "Import"
Me.LinkLabel25.Text = "Rechnungen importieren" '
'lblOriginalRechnungPLOSE
'
Me.lblOriginalRechnungPLOSE.AutoSize = True
Me.lblOriginalRechnungPLOSE.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblOriginalRechnungPLOSE.Location = New System.Drawing.Point(243, 43)
Me.lblOriginalRechnungPLOSE.Name = "lblOriginalRechnungPLOSE"
Me.lblOriginalRechnungPLOSE.Size = New System.Drawing.Size(126, 13)
Me.lblOriginalRechnungPLOSE.TabIndex = 178
Me.lblOriginalRechnungPLOSE.Text = "Original-Rechnungen"
'
'Label65
'
Me.Label65.AutoSize = True
Me.Label65.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label65.Location = New System.Drawing.Point(13, 167)
Me.Label65.Name = "Label65"
Me.Label65.Size = New System.Drawing.Size(79, 13)
Me.Label65.TabIndex = 176
Me.Label65.Text = "Verarbeitung"
'
'lblOriginalRechnungUTA
'
Me.lblOriginalRechnungUTA.AutoSize = True
Me.lblOriginalRechnungUTA.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblOriginalRechnungUTA.Location = New System.Drawing.Point(228, 36)
Me.lblOriginalRechnungUTA.Name = "lblOriginalRechnungUTA"
Me.lblOriginalRechnungUTA.Size = New System.Drawing.Size(126, 13)
Me.lblOriginalRechnungUTA.TabIndex = 177
Me.lblOriginalRechnungUTA.Text = "Original-Rechnungen"
' '
'frmStartOptions 'frmStartOptions
' '
@@ -5543,12 +5603,12 @@ Partial Class frmStartOptions
Friend WithEvents lblBackToCustomer_RMC As LinkLabel Friend WithEvents lblBackToCustomer_RMC As LinkLabel
Friend WithEvents lblBackToCustomer_UTA As LinkLabel Friend WithEvents lblBackToCustomer_UTA As LinkLabel
Friend WithEvents lblBackToCustomer_PLOSE As LinkLabel Friend WithEvents lblBackToCustomer_PLOSE As LinkLabel
Friend WithEvents Label55 As Label Friend WithEvents lblOriginalRechnungIDS As Label
Friend WithEvents Label54 As Label Friend WithEvents Label54 As Label
Friend WithEvents Label53 As Label Friend WithEvents Label53 As Label
Friend WithEvents Label56 As Label Friend WithEvents lblOriginalRechnungMSE As Label
Friend WithEvents Label58 As Label Friend WithEvents Label58 As Label
Friend WithEvents Label57 As Label Friend WithEvents lblOriginalRechnungRMC As Label
Friend WithEvents lblIDS_plauscheck As LinkLabel Friend WithEvents lblIDS_plauscheck As LinkLabel
Friend WithEvents Label59 As Label Friend WithEvents Label59 As Label
Friend WithEvents pbEmailscheck As PictureBox Friend WithEvents pbEmailscheck As PictureBox
@@ -5568,4 +5628,9 @@ Partial Class frmStartOptions
Friend WithEvents cbxGESTELLUNG_TESTLAUF As CheckBox Friend WithEvents cbxGESTELLUNG_TESTLAUF As CheckBox
Friend WithEvents LinkLabel25 As LinkLabel Friend WithEvents LinkLabel25 As LinkLabel
Friend WithEvents Label61 As Label Friend WithEvents Label61 As Label
Friend WithEvents lblOriginalRechnungUTA As Label
Friend WithEvents Label65 As Label
Friend WithEvents lblOriginalRechnungPLOSE As Label
Friend WithEvents Label63 As Label
Friend WithEvents Label62 As Label
End Class End Class

144
initATLASAufschubkonten/frmStartOptions.resx
View File

@@ -236,6 +236,78 @@
+z1oZ9B6syqzaGEdYX5mdmYqt4qgQDVINcVjocfByBORr63brCulbaW10NVQHYibiNsHbQ+6L24q7oAu +z1oZ9B6syqzaGEdYX5mdmYqt4qgQDVINcVjocfByBORr63brCulbaW10NVQHYibiNsHbQ+6L24q7oAu
RxPAxs8mJG4iDmp1USehIAMuLi4GeXl5NlNTU347OzsRe3t7UWRsZ2cnbG5uzicrK8vKxcVFXOmCD0hK RxPAxs8mJG4iDmp1USehIAMuLi4GeXl5NlNTU347OzsRe3t7UWRsZ2cnbG5uzicrK8vKxcVFXOmCD0hK
SjJ6enoK1NXVqU6aNMlg2rRpxsh48uTJus3NzYqurq68EhISJGd6ADkzAttxL7feAAAAAElFTkSuQmCC SjJ6enoK1NXVqU6aNMlg2rRpxsh48uTJus3NzYqurq68EhISJGd6ADkzAttxL7feAAAAAElFTkSuQmCC
</value>
</data>
<data name="PictureBox18.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABGdJREFUSEtj
YKAyYOFk4Za0knSzzrXOd8x2jJeUlGRgZ2dHV0YFwMjAKKInomlUYJRl32e/wn+Z/0Gf2T4L9eP1rQRV
BQWZ2JnQdVAGBNQEFI2KjHLCj4Qfjz0f+zX+Uvz/iKMR9z2XeU7USdNxENYVFmZkYWRE10c2sGqyKgg/
FH4s7mLcPxAGWQhjR5+Pnm5Wa+bAxs/Ggq6PbODQ77Aw5mzMO5BF6DjuYtzDoB1BU5ynO9uh6yMZcIpy
Sin5KsX5rva9gMWiP3EX4354LPDYb9VkVWpSZmKIrp8kwMrDyifnLBcUtCPoYfSp6G9oln2PPh39InRf
6EXVYNUYLjEuCXT9JAMFT4UI5+nO22POxPyMuxD3F83CK/4b/CdoJ2hb8CnwiTIyM5Iff8yczNxSVlJu
Nm02i8P2h72EJRKwRRfifsScibnts9Kn0yjfyIZfkZ+bhZOFGd0MkgC7ALuIXppeDXq8xZ6L/Rl+MPyR
2xy3iXpperai+qLUyfG4LIw8GvnGY57HVnFDcTk2bjZ0beQBHikeeWV/5QTvpd4nI49FfoRZFnM+5rdd
j91KEV0REzY+Ng5GZgJ5nJmDmZtPgU9dwUPBUsZeRoNLgosNXRO7ILsIOKFMdd4adTzqE7Lv/Pf6b9JM
1wxB0YALgFIQrxyvmlacVrHfer/prnNccxW9FWXZBdhZGZCKQEENQUOzKrMpaKnxR9zFuOeWMyy9JDwl
WJHNxQk4xTilVAJVkkP2hjyLPhP9NvJE5C7PJZ7J4ibikqw8rPDkjMPCazEXYorkveWVWHiISPnMHMxc
qsGqKe7z3Q+Cy75LcSBDXkQcjdjuMMEhStJKUo6JlYmVlZdVQD9Lv8F3je9FeKq8EHvZf5N/j26Grg6P
LA8PutlYgYKbQqjzVOdtyK6GuvxD7IXYlea15v5ixmISXBJcsm5z3PZC5X7FXYx7Grg9cKpZlZkzuxA7
GxMrE4FUAgXIpTuahWDxmPMx011mudiiWQhyzBKzSjMvQQ1BXnQz8QJpG2lPZX/lKMs6y464i3H34y/F
g+syJIsfhh8KPw6yLPxQ+GuQWOSRyNc27Tbd0rbSZizcZJQibHxsvBImEsamFaaVrjNdNwXvDH6A7mMY
BlnqNtttj5yrXDAosaGbRTKQdZYNsOu2WxZ9MvpD3IW43/GX4hHl5MW4n75rfI/pZ+kXsouwC6HrJQuw
cLPwKngqeLvPc18adTLqRfyl+F9IFt73We0zQTdd14BdkIotI25JbgkZBxkHtVC1JLc5brtjz8f+jL0Q
+z1oZ9B6syqzaGEdYX5mdmYqt4qgQDVINcVjocfByBORr63brCulbaW10NVQHYibiNsHbQ+6L24q7oAu
RxPAxs8mJG4iDmp1USehIAMuLi4GeXl5NlNTU347OzsRe3t7UWRsZ2cnbG5uzicrK8vKxcVFXOmCD0hK
SjJ6enoK1NXVqU6aNMlg2rRpxsh48uTJus3NzYqurq68EhISJGd6ADkzAttxL7feAAAAAElFTkSuQmCC
</value>
</data>
<data name="PictureBox19.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABGdJREFUSEtj
YKAyYOFk4Za0knSzzrXOd8x2jJeUlGRgZ2dHV0YFwMjAKKInomlUYJRl32e/wn+Z/0Gf2T4L9eP1rQRV
BQWZ2JnQdVAGBNQEFI2KjHLCj4Qfjz0f+zX+Uvz/iKMR9z2XeU7USdNxENYVFmZkYWRE10c2sGqyKgg/
FH4s7mLcPxAGWQhjR5+Pnm5Wa+bAxs/Ggq6PbODQ77Aw5mzMO5BF6DjuYtzDoB1BU5ynO9uh6yMZcIpy
Sin5KsX5rva9gMWiP3EX4354LPDYb9VkVWpSZmKIrp8kwMrDyifnLBcUtCPoYfSp6G9oln2PPh39InRf
6EXVYNUYLjEuCXT9JAMFT4UI5+nO22POxPyMuxD3F83CK/4b/CdoJ2hb8CnwiTIyM5Iff8yczNxSVlJu
Nm02i8P2h72EJRKwRRfifsScibnts9Kn0yjfyIZfkZ+bhZOFGd0MkgC7ALuIXppeDXq8xZ6L/Rl+MPyR
2xy3iXpperai+qLUyfG4LIw8GvnGY57HVnFDcTk2bjZ0beQBHikeeWV/5QTvpd4nI49FfoRZFnM+5rdd
j91KEV0REzY+Ng5GZgJ5nJmDmZtPgU9dwUPBUsZeRoNLgosNXRO7ILsIOKFMdd4adTzqE7Lv/Pf6b9JM
1wxB0YALgFIQrxyvmlacVrHfer/prnNccxW9FWXZBdhZGZCKQEENQUOzKrMpaKnxR9zFuOeWMyy9JDwl
WJHNxQk4xTilVAJVkkP2hjyLPhP9NvJE5C7PJZ7J4ibikqw8rPDkjMPCazEXYorkveWVWHiISPnMHMxc
qsGqKe7z3Q+Cy75LcSBDXkQcjdjuMMEhStJKUo6JlYmVlZdVQD9Lv8F3je9FeKq8EHvZf5N/j26Grg6P
LA8PutlYgYKbQqjzVOdtyK6GuvxD7IXYlea15v5ixmISXBJcsm5z3PZC5X7FXYx7Grg9cKpZlZkzuxA7
GxMrE4FUAgXIpTuahWDxmPMx011mudiiWQhyzBKzSjMvQQ1BXnQz8QJpG2lPZX/lKMs6y464i3H34y/F
g+syJIsfhh8KPw6yLPxQ+GuQWOSRyNc27Tbd0rbSZizcZJQibHxsvBImEsamFaaVrjNdNwXvDH6A7mMY
BlnqNtttj5yrXDAosaGbRTKQdZYNsOu2WxZ9MvpD3IW43/GX4hHl5MW4n75rfI/pZ+kXsouwC6HrJQuw
cLPwKngqeLvPc18adTLqRfyl+F9IFt73We0zQTdd14BdkIotI25JbgkZBxkHtVC1JLc5brtjz8f+jL0Q
+z1oZ9B6syqzaGEdYX5mdmYqt4qgQDVINcVjocfByBORr63brCulbaW10NVQHYibiNsHbQ+6L24q7oAu
RxPAxs8mJG4iDmp1USehIAMuLi4GeXl5NlNTU347OzsRe3t7UWRsZ2cnbG5uzicrK8vKxcVFXOmCD0hK
SjJ6enoK1NXVqU6aNMlg2rRpxsh48uTJus3NzYqurq68EhISJGd6ADkzAttxL7feAAAAAElFTkSuQmCC
</value>
</data>
<data name="PictureBox21.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABGdJREFUSEtj
YKAyYOFk4Za0knSzzrXOd8x2jJeUlGRgZ2dHV0YFwMjAKKInomlUYJRl32e/wn+Z/0Gf2T4L9eP1rQRV
BQWZ2JnQdVAGBNQEFI2KjHLCj4Qfjz0f+zX+Uvz/iKMR9z2XeU7USdNxENYVFmZkYWRE10c2sGqyKgg/
FH4s7mLcPxAGWQhjR5+Pnm5Wa+bAxs/Ggq6PbODQ77Aw5mzMO5BF6DjuYtzDoB1BU5ynO9uh6yMZcIpy
Sin5KsX5rva9gMWiP3EX4354LPDYb9VkVWpSZmKIrp8kwMrDyifnLBcUtCPoYfSp6G9oln2PPh39InRf
6EXVYNUYLjEuCXT9JAMFT4UI5+nO22POxPyMuxD3F83CK/4b/CdoJ2hb8CnwiTIyM5Iff8yczNxSVlJu
Nm02i8P2h72EJRKwRRfifsScibnts9Kn0yjfyIZfkZ+bhZOFGd0MkgC7ALuIXppeDXq8xZ6L/Rl+MPyR
2xy3iXpperai+qLUyfG4LIw8GvnGY57HVnFDcTk2bjZ0beQBHikeeWV/5QTvpd4nI49FfoRZFnM+5rdd
j91KEV0REzY+Ng5GZgJ5nJmDmZtPgU9dwUPBUsZeRoNLgosNXRO7ILsIOKFMdd4adTzqE7Lv/Pf6b9JM
1wxB0YALgFIQrxyvmlacVrHfer/prnNccxW9FWXZBdhZGZCKQEENQUOzKrMpaKnxR9zFuOeWMyy9JDwl
WJHNxQk4xTilVAJVkkP2hjyLPhP9NvJE5C7PJZ7J4ibikqw8rPDkjMPCazEXYorkveWVWHiISPnMHMxc
qsGqKe7z3Q+Cy75LcSBDXkQcjdjuMMEhStJKUo6JlYmVlZdVQD9Lv8F3je9FeKq8EHvZf5N/j26Grg6P
LA8PutlYgYKbQqjzVOdtyK6GuvxD7IXYlea15v5ixmISXBJcsm5z3PZC5X7FXYx7Grg9cKpZlZkzuxA7
GxMrE4FUAgXIpTuahWDxmPMx011mudiiWQhyzBKzSjMvQQ1BXnQz8QJpG2lPZX/lKMs6y464i3H34y/F
g+syJIsfhh8KPw6yLPxQ+GuQWOSRyNc27Tbd0rbSZizcZJQibHxsvBImEsamFaaVrjNdNwXvDH6A7mMY
BlnqNtttj5yrXDAosaGbRTKQdZYNsOu2WxZ9MvpD3IW43/GX4hHl5MW4n75rfI/pZ+kXsouwC6HrJQuw
cLPwKngqeLvPc18adTLqRfyl+F9IFt73We0zQTdd14BdkIotI25JbgkZBxkHtVC1JLc5brtjz8f+jL0Q
+z1oZ9B6syqzaGEdYX5mdmYqt4qgQDVINcVjocfByBORr63brCulbaW10NVQHYibiNsHbQ+6L24q7oAu
RxPAxs8mJG4iDmp1USehIAMuLi4GeXl5NlNTU347OzsRe3t7UWRsZ2cnbG5uzicrK8vKxcVFXOmCD0hK
SjJ6enoK1NXVqU6aNMlg2rRpxsh48uTJus3NzYqurq68EhISJGd6ADkzAttxL7feAAAAAElFTkSuQmCC
</value> </value>
</data> </data>
<data name="PictureBox12.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="PictureBox12.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
@@ -748,78 +820,6 @@
<metadata name="clmnMRN.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089"> <metadata name="clmnMRN.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value> <value>True</value>
</metadata> </metadata>
<data name="PictureBox18.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABGdJREFUSEtj
YKAyYOFk4Za0knSzzrXOd8x2jJeUlGRgZ2dHV0YFwMjAKKInomlUYJRl32e/wn+Z/0Gf2T4L9eP1rQRV
BQWZ2JnQdVAGBNQEFI2KjHLCj4Qfjz0f+zX+Uvz/iKMR9z2XeU7USdNxENYVFmZkYWRE10c2sGqyKgg/
FH4s7mLcPxAGWQhjR5+Pnm5Wa+bAxs/Ggq6PbODQ77Aw5mzMO5BF6DjuYtzDoB1BU5ynO9uh6yMZcIpy
Sin5KsX5rva9gMWiP3EX4354LPDYb9VkVWpSZmKIrp8kwMrDyifnLBcUtCPoYfSp6G9oln2PPh39InRf
6EXVYNUYLjEuCXT9JAMFT4UI5+nO22POxPyMuxD3F83CK/4b/CdoJ2hb8CnwiTIyM5Iff8yczNxSVlJu
Nm02i8P2h72EJRKwRRfifsScibnts9Kn0yjfyIZfkZ+bhZOFGd0MkgC7ALuIXppeDXq8xZ6L/Rl+MPyR
2xy3iXpperai+qLUyfG4LIw8GvnGY57HVnFDcTk2bjZ0beQBHikeeWV/5QTvpd4nI49FfoRZFnM+5rdd
j91KEV0REzY+Ng5GZgJ5nJmDmZtPgU9dwUPBUsZeRoNLgosNXRO7ILsIOKFMdd4adTzqE7Lv/Pf6b9JM
1wxB0YALgFIQrxyvmlacVrHfer/prnNccxW9FWXZBdhZGZCKQEENQUOzKrMpaKnxR9zFuOeWMyy9JDwl
WJHNxQk4xTilVAJVkkP2hjyLPhP9NvJE5C7PJZ7J4ibikqw8rPDkjMPCazEXYorkveWVWHiISPnMHMxc
qsGqKe7z3Q+Cy75LcSBDXkQcjdjuMMEhStJKUo6JlYmVlZdVQD9Lv8F3je9FeKq8EHvZf5N/j26Grg6P
LA8PutlYgYKbQqjzVOdtyK6GuvxD7IXYlea15v5ixmISXBJcsm5z3PZC5X7FXYx7Grg9cKpZlZkzuxA7
GxMrE4FUAgXIpTuahWDxmPMx011mudiiWQhyzBKzSjMvQQ1BXnQz8QJpG2lPZX/lKMs6y464i3H34y/F
g+syJIsfhh8KPw6yLPxQ+GuQWOSRyNc27Tbd0rbSZizcZJQibHxsvBImEsamFaaVrjNdNwXvDH6A7mMY
BlnqNtttj5yrXDAosaGbRTKQdZYNsOu2WxZ9MvpD3IW43/GX4hHl5MW4n75rfI/pZ+kXsouwC6HrJQuw
cLPwKngqeLvPc18adTLqRfyl+F9IFt73We0zQTdd14BdkIotI25JbgkZBxkHtVC1JLc5brtjz8f+jL0Q
+z1oZ9B6syqzaGEdYX5mdmYqt4qgQDVINcVjocfByBORr63brCulbaW10NVQHYibiNsHbQ+6L24q7oAu
RxPAxs8mJG4iDmp1USehIAMuLi4GeXl5NlNTU347OzsRe3t7UWRsZ2cnbG5uzicrK8vKxcVFXOmCD0hK
SjJ6enoK1NXVqU6aNMlg2rRpxsh48uTJus3NzYqurq68EhISJGd6ADkzAttxL7feAAAAAElFTkSuQmCC
</value>
</data>
<data name="PictureBox19.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABGdJREFUSEtj
YKAyYOFk4Za0knSzzrXOd8x2jJeUlGRgZ2dHV0YFwMjAKKInomlUYJRl32e/wn+Z/0Gf2T4L9eP1rQRV
BQWZ2JnQdVAGBNQEFI2KjHLCj4Qfjz0f+zX+Uvz/iKMR9z2XeU7USdNxENYVFmZkYWRE10c2sGqyKgg/
FH4s7mLcPxAGWQhjR5+Pnm5Wa+bAxs/Ggq6PbODQ77Aw5mzMO5BF6DjuYtzDoB1BU5ynO9uh6yMZcIpy
Sin5KsX5rva9gMWiP3EX4354LPDYb9VkVWpSZmKIrp8kwMrDyifnLBcUtCPoYfSp6G9oln2PPh39InRf
6EXVYNUYLjEuCXT9JAMFT4UI5+nO22POxPyMuxD3F83CK/4b/CdoJ2hb8CnwiTIyM5Iff8yczNxSVlJu
Nm02i8P2h72EJRKwRRfifsScibnts9Kn0yjfyIZfkZ+bhZOFGd0MkgC7ALuIXppeDXq8xZ6L/Rl+MPyR
2xy3iXpperai+qLUyfG4LIw8GvnGY57HVnFDcTk2bjZ0beQBHikeeWV/5QTvpd4nI49FfoRZFnM+5rdd
j91KEV0REzY+Ng5GZgJ5nJmDmZtPgU9dwUPBUsZeRoNLgosNXRO7ILsIOKFMdd4adTzqE7Lv/Pf6b9JM
1wxB0YALgFIQrxyvmlacVrHfer/prnNccxW9FWXZBdhZGZCKQEENQUOzKrMpaKnxR9zFuOeWMyy9JDwl
WJHNxQk4xTilVAJVkkP2hjyLPhP9NvJE5C7PJZ7J4ibikqw8rPDkjMPCazEXYorkveWVWHiISPnMHMxc
qsGqKe7z3Q+Cy75LcSBDXkQcjdjuMMEhStJKUo6JlYmVlZdVQD9Lv8F3je9FeKq8EHvZf5N/j26Grg6P
LA8PutlYgYKbQqjzVOdtyK6GuvxD7IXYlea15v5ixmISXBJcsm5z3PZC5X7FXYx7Grg9cKpZlZkzuxA7
GxMrE4FUAgXIpTuahWDxmPMx011mudiiWQhyzBKzSjMvQQ1BXnQz8QJpG2lPZX/lKMs6y464i3H34y/F
g+syJIsfhh8KPw6yLPxQ+GuQWOSRyNc27Tbd0rbSZizcZJQibHxsvBImEsamFaaVrjNdNwXvDH6A7mMY
BlnqNtttj5yrXDAosaGbRTKQdZYNsOu2WxZ9MvpD3IW43/GX4hHl5MW4n75rfI/pZ+kXsouwC6HrJQuw
cLPwKngqeLvPc18adTLqRfyl+F9IFt73We0zQTdd14BdkIotI25JbgkZBxkHtVC1JLc5brtjz8f+jL0Q
+z1oZ9B6syqzaGEdYX5mdmYqt4qgQDVINcVjocfByBORr63brCulbaW10NVQHYibiNsHbQ+6L24q7oAu
RxPAxs8mJG4iDmp1USehIAMuLi4GeXl5NlNTU347OzsRe3t7UWRsZ2cnbG5uzicrK8vKxcVFXOmCD0hK
SjJ6enoK1NXVqU6aNMlg2rRpxsh48uTJus3NzYqurq68EhISJGd6ADkzAttxL7feAAAAAElFTkSuQmCC
</value>
</data>
<data name="PictureBox21.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABGdJREFUSEtj
YKAyYOFk4Za0knSzzrXOd8x2jJeUlGRgZ2dHV0YFwMjAKKInomlUYJRl32e/wn+Z/0Gf2T4L9eP1rQRV
BQWZ2JnQdVAGBNQEFI2KjHLCj4Qfjz0f+zX+Uvz/iKMR9z2XeU7USdNxENYVFmZkYWRE10c2sGqyKgg/
FH4s7mLcPxAGWQhjR5+Pnm5Wa+bAxs/Ggq6PbODQ77Aw5mzMO5BF6DjuYtzDoB1BU5ynO9uh6yMZcIpy
Sin5KsX5rva9gMWiP3EX4354LPDYb9VkVWpSZmKIrp8kwMrDyifnLBcUtCPoYfSp6G9oln2PPh39InRf
6EXVYNUYLjEuCXT9JAMFT4UI5+nO22POxPyMuxD3F83CK/4b/CdoJ2hb8CnwiTIyM5Iff8yczNxSVlJu
Nm02i8P2h72EJRKwRRfifsScibnts9Kn0yjfyIZfkZ+bhZOFGd0MkgC7ALuIXppeDXq8xZ6L/Rl+MPyR
2xy3iXpperai+qLUyfG4LIw8GvnGY57HVnFDcTk2bjZ0beQBHikeeWV/5QTvpd4nI49FfoRZFnM+5rdd
j91KEV0REzY+Ng5GZgJ5nJmDmZtPgU9dwUPBUsZeRoNLgosNXRO7ILsIOKFMdd4adTzqE7Lv/Pf6b9JM
1wxB0YALgFIQrxyvmlacVrHfer/prnNccxW9FWXZBdhZGZCKQEENQUOzKrMpaKnxR9zFuOeWMyy9JDwl
WJHNxQk4xTilVAJVkkP2hjyLPhP9NvJE5C7PJZ7J4ibikqw8rPDkjMPCazEXYorkveWVWHiISPnMHMxc
qsGqKe7z3Q+Cy75LcSBDXkQcjdjuMMEhStJKUo6JlYmVlZdVQD9Lv8F3je9FeKq8EHvZf5N/j26Grg6P
LA8PutlYgYKbQqjzVOdtyK6GuvxD7IXYlea15v5ixmISXBJcsm5z3PZC5X7FXYx7Grg9cKpZlZkzuxA7
GxMrE4FUAgXIpTuahWDxmPMx011mudiiWQhyzBKzSjMvQQ1BXnQz8QJpG2lPZX/lKMs6y464i3H34y/F
g+syJIsfhh8KPw6yLPxQ+GuQWOSRyNc27Tbd0rbSZizcZJQibHxsvBImEsamFaaVrjNdNwXvDH6A7mMY
BlnqNtttj5yrXDAosaGbRTKQdZYNsOu2WxZ9MvpD3IW43/GX4hHl5MW4n75rfI/pZ+kXsouwC6HrJQuw
cLPwKngqeLvPc18adTLqRfyl+F9IFt73We0zQTdd14BdkIotI25JbgkZBxkHtVC1JLc5brtjz8f+jL0Q
+z1oZ9B6syqzaGEdYX5mdmYqt4qgQDVINcVjocfByBORr63brCulbaW10NVQHYibiNsHbQ+6L24q7oAu
RxPAxs8mJG4iDmp1USehIAMuLi4GeXl5NlNTU347OzsRe3t7UWRsZ2cnbG5uzicrK8vKxcVFXOmCD0hK
SjJ6enoK1NXVqU6aNMlg2rRpxsh48uTJus3NzYqurq68EhISJGd6ADkzAttxL7feAAAAAElFTkSuQmCC
</value>
</data>
<data name="PictureBox25.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="PictureBox25.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABGdJREFUSEtj iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABGdJREFUSEtj

72
initATLASAufschubkonten/frmStartOptions.vb
View File

@@ -5460,9 +5460,9 @@ Public Class frmStartOptions
If invoice IsNot Nothing And invoice.Columns.Contains("invoice_id") AndAlso invoice.Rows.Count > 0 Then If invoice IsNot Nothing And invoice.Columns.Contains("invoice_id") AndAlso invoice.Rows.Count > 0 Then
Dim dvInvoice As New DataView(invoice) Dim dvInvoice As New DataView(invoice)
' Dim distinctInv As DataTable = dvInvoice.ToTable(True, New String() {"invoice_id"}) Dim distinctInv As DataTable = dvInvoice.ToTable(True, New String() {"invoice_id"})
Dim distinctInv As DataTable = (New SQL).loadDgvBySql("select distinct(invoice_id) FROM [VERAG].[dbo].[tblMSEInvoices] where invoice_date = '2026-03-15' and invoice_id is not null ", "FMZOLL") 'Dim distinctInv As DataTable = (New SQL).loadDgvBySql("select distinct(invoice_id) FROM [VERAG].[dbo].[tblMSEInvoices] where invoice_date = '2026-03-15' and invoice_id is not null ", "FMZOLL")
For Each r As DataRow In distinctInv.Rows For Each r As DataRow In distinctInv.Rows
@@ -5891,7 +5891,7 @@ Public Class frmStartOptions
Dim iso2Laneder = "" Dim iso2Laneder = ""
Select Case sender.Name Select Case sender.Name
Case "UTA_Laender" : iso2Laneder = "select distinct (Lieferland) FROM [VERAG].[dbo].[tblUTAImportNew] where Lieferland_ISO2 is null" Case "UTA_Laender" : iso2Laneder = "select distinct (Steuerliches_Lieferland) FROM [VERAG].[dbo].[tblUTAImportNew] where Lieferland_ISO2 is null" 'wichtig STEUERLAND!!!'
Case "IDS_Laendercode" : iso2Laneder = "select distinct (LandNr) FROM [VERAG].[dbo].[tbl_IDS_Länder] where Lieferland_ISO2 is null" Case "IDS_Laendercode" : iso2Laneder = "select distinct (LandNr) FROM [VERAG].[dbo].[tbl_IDS_Länder] where Lieferland_ISO2 is null"
Case "Laender_Steuercode" : iso2Laneder = "select distinct (LandNr) FROM [VERAG].[dbo].[tblSteuernummern] where LandKZ is null" Case "Laender_Steuercode" : iso2Laneder = "select distinct (LandNr) FROM [VERAG].[dbo].[tblSteuernummern] where LandKZ is null"
@@ -5903,7 +5903,7 @@ Public Class frmStartOptions
If dtiso2Laneder.Rows.Count > 0 Then If dtiso2Laneder.Rows.Count > 0 Then
For Each r As DataRow In dtiso2Laneder.Rows For Each r As DataRow In dtiso2Laneder.Rows
Select Case sender.Name Select Case sender.Name
Case "UTA_Laender" : SQL.doSQL("Update [VERAG].[dbo].[tblUTAImportNew] set Lieferland_ISO2 = '" & VERAG_PROG_ALLGEMEIN.cProgramFunctions.getISO2LandFromISO3Land(r.Item("Lieferland")) & "' where Lieferland = '" & r.Item("Lieferland") & "'", "FMZOLL") Case "UTA_Laender" : SQL.doSQL("Update [VERAG].[dbo].[tblUTAImportNew] set Lieferland_ISO2 = '" & VERAG_PROG_ALLGEMEIN.cProgramFunctions.getISO2LandFromISO3Land(r.Item("Steuerliches_Lieferland")) & "' where Steuerliches_Lieferland = '" & r.Item("Steuerliches_Lieferland") & "'", "FMZOLL")
Case "IDS_Laendercode" : SQL.doSQL("Update [VERAG].[dbo].[tbl_IDS_Länder] set Lieferland_ISO2 = '" & VERAG_PROG_ALLGEMEIN.cProgramFunctions.getISO2LandFromLandNr(r.Item("LandNr")) & "' where LandNr = '" & r.Item("LandNr") & "'", "FMZOLL") Case "IDS_Laendercode" : SQL.doSQL("Update [VERAG].[dbo].[tbl_IDS_Länder] set Lieferland_ISO2 = '" & VERAG_PROG_ALLGEMEIN.cProgramFunctions.getISO2LandFromLandNr(r.Item("LandNr")) & "' where LandNr = '" & r.Item("LandNr") & "'", "FMZOLL")
Case "Laender_Steuercode" : SQL.doSQL("Update [VERAG].[dbo].[tblSteuernummern] set LandKZ = '" & VERAG_PROG_ALLGEMEIN.cProgramFunctions.getISO2LandFromLandNr(r.Item("LandNr")) & "' where LandNr = '" & r.Item("LandNr") & "'", "FMZOLL") Case "Laender_Steuercode" : SQL.doSQL("Update [VERAG].[dbo].[tblSteuernummern] set LandKZ = '" & VERAG_PROG_ALLGEMEIN.cProgramFunctions.getISO2LandFromLandNr(r.Item("LandNr")) & "' where LandNr = '" & r.Item("LandNr") & "'", "FMZOLL")
End Select End Select
@@ -7446,7 +7446,8 @@ repeatRequest:
Private Sub lblIDS_plauscheck_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles lblIDS_plauscheck.LinkClicked Private Sub lblIDS_plauscheck_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles lblIDS_plauscheck.LinkClicked
Dim IDS As cIDS Dim IDS As cIDS
Dim dt = IDS.checkPDFInvoices() Dim dt As New DataTable
IDS.checkPDFInvoices(,, dt)
If dt.Rows.Count > 0 Then If dt.Rows.Count > 0 Then
@@ -7752,4 +7753,65 @@ repeatRequest:
Me.Visible = True Me.Visible = True
End Sub End Sub
Private Sub TabControl1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles TabControl1.SelectedIndexChanged
Select Case TabControl1.SelectedIndex
Case 1 'IDS
Dim invoice As New cIDS
Dim missingITC As Integer = 0
missingITC = invoice.countBackToCustomerNotSet(New SQL)
If missingITC > 0 Then
lblOriginalRechnungIDS.Text &= " ITC nicht gesetzt: " & missingITC
Else
lblOriginalRechnungIDS.Text = "Original-Rechnungen"
End If
Case 2 'MSE
Dim invoice As New cMSEAPI
Dim missingITC As Integer = 0
missingITC = invoice.countBackToCustomerNotSet(New SQL)
If missingITC > 0 Then
lblOriginalRechnungMSE.Text &= " ITC nicht gesetzt: " & missingITC
Else
lblOriginalRechnungMSE.Text = "Original-Rechnungen"
End If
Case 3 'RMC
Dim invoice As New cRMC
Dim missingITC As Integer = 0
missingITC = invoice.countBackToCustomerNotSet(New SQL)
If missingITC > 0 Then
lblOriginalRechnungRMC.Text &= " ITC nicht gesetzt: " & missingITC
Else
lblOriginalRechnungRMC.Text = "Original-Rechnungen"
End If
Case 4 'UTA
Dim invoice As New cUTA
Dim missingITC As Integer = 0
missingITC = invoice.countBackToCustomerNotSet(New SQL)
If missingITC > 0 Then
lblOriginalRechnungUTA.Text &= " ITC nicht gesetzt: " & missingITC
Else
lblOriginalRechnungUTA.Text = "Original-Rechnungen"
End If
Case 5 'PLOSE
Dim invoice As New cPLOSE_Inv_Data
Dim missingITC As Integer = 0
missingITC = invoice.countBackToCustomerNotSet(New SQL)
If missingITC > 0 Then
lblOriginalRechnungPLOSE.Text &= " ITC nicht gesetzt: " & missingITC
Else
lblOriginalRechnungPLOSE.Text = "Original-Rechnungen"
End If
End Select
End Sub
End Class End Class