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 TELOTEC_Worker
Imports VERAG_PROG_ALLGEMEIN
@@ -168,19 +167,24 @@ Public Class cImporter_TelotecToVERAG
If p.DOC_CERTS IsNot Nothing Then
For Each doc In p.DOC_CERTS
Try
Dim dd As New cVERAG_CustomsDeclarations_Document With {
.zaDoc_ItemId = Nothing,
.zaDoc_Code = ToStringSafe(doc.DocCerts_DocCd),
.zaDoc_Reference = ToStringSafe(doc.DocCerts_DRef),
.zaDoc_Date = ToNullableDate(doc.DocCerts_IssD)
Dim ItemId = Nothing
Dim Doc_Code As String = ToStringSafe(doc.DocCerts_DocCd)
Dim Doc_Reference As String = ToStringSafe(doc.DocCerts_DRef)
Dim Doc_Date As String = ToStringSafe(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)
Catch ex As Exception
cErrorHandler.ERR(ex.Message, ex.StackTrace, MethodInfo.GetCurrentMethod.Name)
End Try
Next
it.Documents.Add(dd)
Catch ex As Exception
cErrorHandler.ERR(ex.Message, ex.StackTrace, MethodInfo.GetCurrentMethod.Name)
End Try
Next
End If

28
MDM_Worker/cPLOSE_Inv_Data.vb
View File

@@ -367,25 +367,39 @@ Public Class cPLOSE_Inv_Data
End Function
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
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
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
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
sqlTime = " And cast([plInv_SupplierRechnungsDatum] As Date) between '" & reDatVon.ToShortDateString & "' and '" & reDatBis.ToShortDateString & "'"
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
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
Dim REohneWaehrung As String = "SELECT [plInv_SupplierRechnungsDatum],[plInv_SupplierRechnungsNr],[plInv_SupplierCountry],[plInv_Lieferant]
FROM [VERAG].[dbo].[tblPLOSE_Inv_Data]
Dim REohneWaehrung As String = "Select [plInv_SupplierRechnungsDatum], [plInv_SupplierRechnungsNr], [plInv_SupplierCountry], [plInv_Lieferant]
From [VERAG].[dbo].[tblPLOSE_Inv_Data]
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]"

16
initATLASAufschubkonten/cGetMsgType.vb
View File

@@ -14,6 +14,7 @@ Public Class cGetMsgType
End If
Return False
End Function
Shared Function isEZA_FreierVerkehrAktVeredelUmwandlung(lines() As String) As Boolean
@@ -41,6 +42,21 @@ Public Class cGetMsgType
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
If doc.HasChildNodes 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
Dim ro As DataRow = posErledigung.NewRow
ro("LaufendeNummer") = SDGR.SequenceNumber
ro("IDRegNrSumA") = SDGR.RegistrationNumber
ro("IDRegNrSumAPos") = SDGR.GoodsItemNumber
ro("StueckzahlErledigte") = SDGR.NumberOfPackages
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 'MRN des SumA-Vorgangs, der ganz oder teilweise erledigt werden soll.
ro("IDRegNrSumAPos") = SDGR.GoodsItemNumber 'Nummer der Position des Zugangs zum Quellverfahren Vorübergehende Verwahrung
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)
End If
@@ -4104,7 +4104,7 @@ Public Class cWorker_NCTS
If saveVerwahrung Then
'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

292
initATLASAufschubkonten/cWorker_Verwahrung.vb
View File

@@ -19,9 +19,9 @@ Public Class cWorker_Verwahrung
Try
Dim VWI As DAKOSY_Worker.SumAVerwahrungsinfo_009.SumAVerwahrungsinfoSVTyp = DAKOSY_Worker.SumAVerwahrungsinfo_009.SumAVerwahrungsinfoSVTyp.LoadFromFile(d)
Dim VorpapiernummerInput = ""
Dim RegistriernummerATLAS = ""
Dim VeralteteWeitereRegistriernummer = ""
Dim Vorpapiernummer = ""
Dim MRN_SUMA = ""
Dim MRN_SUMA_veraltet = ""
Dim ankungsdatum As Object = Nothing
Dim gestellungsdatum As Object = Nothing
Dim posGestellung As New DataTable
@@ -35,21 +35,21 @@ Public Class cWorker_Verwahrung
End If
If VWI.EinzelSumAVerwahrungsinfo.KopfDaten IsNot Nothing Then
If VWI.EinzelSumAVerwahrungsinfo.KopfDaten.Vorpapiernummer IsNot Nothing Then
VorpapiernummerInput = VWI.EinzelSumAVerwahrungsinfo.KopfDaten.Vorpapiernummer
Vorpapiernummer = VWI.EinzelSumAVerwahrungsinfo.KopfDaten.Vorpapiernummer
End If
If VWI.EinzelSumAVerwahrungsinfo.KopfDaten.RegistriernummerATLAS IsNot Nothing Then
RegistriernummerATLAS = VWI.EinzelSumAVerwahrungsinfo.KopfDaten.RegistriernummerATLAS
MRN_SUMA = VWI.EinzelSumAVerwahrungsinfo.KopfDaten.RegistriernummerATLAS 'MRN (SumA)
End If
If VWI.EinzelSumAVerwahrungsinfo.KopfDaten.VeralteteWeitereRegistriernummer IsNot Nothing Then
VeralteteWeitereRegistriernummer = VWI.EinzelSumAVerwahrungsinfo.KopfDaten.VeralteteWeitereRegistriernummer
MRN_SUMA_veraltet = VWI.EinzelSumAVerwahrungsinfo.KopfDaten.VeralteteWeitereRegistriernummer
End If
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
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
If VWI.EinzelSumAVerwahrungsinfo.Position IsNot Nothing Then
@@ -59,7 +59,8 @@ Public Class cWorker_Verwahrung
posGestellung.Columns.Add("PosNr", GetType(Integer))
posGestellung.Columns.Add("AnzPackst", GetType(Integer))
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("VerwahrerFirma", GetType(String))
posGestellung.Columns.Add("VerwahrerOrt", GetType(String))
@@ -69,6 +70,7 @@ Public Class cWorker_Verwahrung
Dim ro As DataRow = posGestellung.NewRow
ro("PosNr") = POS.Positionsnummer
ro("Anmeldefrist") = POS.Anmeldefrist
ro("AnzPackst") = POS.PackstueckAnzahl
ro("PackstArt") = POS.PackstueckArt
ro("Rohmasse") = POS.Rohmasse
@@ -92,7 +94,7 @@ Public Class cWorker_Verwahrung
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)
STATUS.dySt_BezugsNr = readVW_SumAVerwahrungsinfo
STATUS.dySt_artMitteilung = "VW_INFO"
@@ -108,7 +110,7 @@ Public Class cWorker_Verwahrung
'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:
@@ -125,6 +127,134 @@ Anzeige:
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
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 regNR = ""
Dim division = ""
Dim veralteteregNR = ""
Dim MRN_Eledigungsvorgang = ""
Dim MRN_Eledigungsvorgang_veraltet = ""
readEZA_SumAErledigungsinformationVorpapier_005 = ""
If EZA IsNot Nothing Then
@@ -167,10 +296,10 @@ Anzeige:
ART = EZA.EinzelSumAErledigungsinformation.KopfDaten.ArtErledigung
End If
If EZA.EinzelSumAErledigungsinformation.KopfDaten.RegNrATLASWeitereNachweise IsNot Nothing Then
regNR = EZA.EinzelSumAErledigungsinformation.KopfDaten.RegNrATLASWeitereNachweise
MRN_Eledigungsvorgang = EZA.EinzelSumAErledigungsinformation.KopfDaten.RegNrATLASWeitereNachweise 'MRN des Erledigungsvorgangs
End If
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
@@ -188,17 +317,16 @@ Anzeige:
End If
Dim ro As DataRow = posErledigung.NewRow
ro("LaufendeNummer") = POS.LaufendeNummer
ro("IDRegNrSumA") = POS.IDRegNrSumA
ro("IDRegNrSumAPos") = POS.IDRegNrSumAPos
ro("StornierungKz") = POS.StornierungKz
ro("StueckzahlErledigte") = POS.StueckzahlErledigte
ro("LaufendeNummer") = POS.LaufendeNummer 'Laufende Nummer der Erledigungsinformation
ro("IDRegNrSumA") = POS.IDRegNrSumA 'MRN (SumA) Zugehörige ATLAS - Registrierung.
ro("IDRegNrSumAPos") = POS.IDRegNrSumAPos 'Positionsnummer in der Summarischen Anmeldung
ro("StornierungKz") = POS.StornierungKz 'Kennzeichnung, dass eine Erledigung durch den Benutzer storniert wurde.
ro("StueckzahlErledigte") = POS.StueckzahlErledigte 'Anzahl der erledigten Packstücke
posErledigung.Rows.Add(ro)
End If
Next
End If
End If
@@ -223,7 +351,7 @@ Anzeige:
'Verwahrung ABSCHREIBUNG - rechte Seite bei Gesamtsicherheiten
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:
@@ -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
@@ -427,8 +555,7 @@ Anzeige:
Try
If VeralteteWeitereRegistriernummer = "" Then Return False
'If MRN_SUMA_veraltet = "" Then Return False 'warum nochmals, kann das weg???
Dim filiale As String = ""
Dim abfertigungsnummer = ""
@@ -458,7 +585,7 @@ Anzeige:
Vorpapiernummer = Vorpapiernummer.ToString.Substring(0, 18)
End If
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
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 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)
If zubehandelndeGSPOS Then
@@ -537,8 +664,8 @@ Anzeige:
'Verwahrung ANSCHREIBUNG
newSicherheit.gs_systemuser = DAKOSY_STATUS.USER
newSicherheit.gs_VeralteteWeitereRegistriernummer = VeralteteWeitereRegistriernummer 'wichtig für Zuweisung DAKOSY
newSicherheit.gs_MRNNr = RegistriernummerATLAS 'wichtig für Zuweisung DAKOSY
newSicherheit.gs_VeralteteWeitereRegistriernummer = MRN_SUMA_veraltet 'wichtig für Zuweisung DAKOSY
newSicherheit.gs_MRNNr = MRN_SUMA 'wichtig für Zuweisung DAKOSY
newSicherheit.gs_gsNr = DUMMYSicherheit.gs_gsNr
newSicherheit.gs_ATBNr = DUMMYSicherheit.gs_ATBNr
@@ -620,7 +747,7 @@ Anzeige:
Dim OPEN_DUMMY_SUBPOS As New cSicherheiten()
With OPEN_DUMMY_SUBPOS
.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_ATBNr = DUMMYSicherheit.gs_ATBNr
If IsNumeric(posGestellung.Rows(i - 1).Item("AnzPackst")) Then
@@ -631,7 +758,7 @@ Anzeige:
.gs_gewicht = posGestellung.Rows(i - 1).Item("Rohmasse")
End If
.gs_freitext = posGestellung.Rows(i - 1).Item("PackstArt")
.gs_MRNNr = RegistriernummerATLAS
.gs_MRNNr = MRN_SUMA
.gs_standort = DUMMYSicherheit.gs_standort
.gs_datum = DUMMYSicherheit.gs_datum 'VWI.EinzelSumAVerwahrungsinfo.ObjektIdentifizierung.ZeitpunktNachrichteneingang
.gs_erstellungsdatum = Now()
@@ -683,7 +810,7 @@ Anzeige:
newSicherheit.rearangePosNrByDakosyLaufNr(newSicherheit.gs_gsNr, newSicherheit.gs_ATBNr)
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")
End If
@@ -710,7 +837,7 @@ Anzeige:
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
@@ -723,20 +850,28 @@ Anzeige:
For Each POS As DataRow In posErledigung.Rows
Dim isCompletelyFinished As Boolean = True
Dim MRNNR As String = ""
Dim MRN_SUMA As String = ""
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
MRNNR = POS.Item("IDRegNrSumA")
If MRN_SUMA <> POS.Item("IDRegNrSumA") Then
MRN_SUMA = POS.Item("IDRegNrSumA")
Dim sqlString = ""
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
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
Dim dtGesamtsicherheit = SQL.loadDgvBySql(sqlString, "AVISO")
@@ -745,7 +880,7 @@ Anzeige:
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
Continue For
@@ -762,7 +897,7 @@ Anzeige:
'Berechnung Warenwert und Sicherheitsbetrag aus Sendung -> immer aus den Produktivdaten!
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
@@ -821,56 +956,52 @@ Anzeige:
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")
End If
Dim SicherheitsPos As New cGesamtsicherheitsPositionen()
With SicherheitsPos
.gsp_gsId = gsrightRow("gs_gsId")
.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)
Dim SicherheitsPos As New cGesamtsicherheitsPositionen(gsrightRow("gs_gsId"), gsrightRow.Item("gs_posNr"))
With SicherheitsPos
'.gsp_gsId = gsrightRow("gs_gsId")
'.gsp_gspPosId = gsrightRow.Item("gs_posNr")
.gsp_filialenNr = gsrightRow("gs_filialenNr")
.gsp_art = "CLOSE"
.gsp_gsNr = gsrightRow("gs_gsnr")
.gsp_abfertigungsNr = gsrightRow("gs_abfertigungsnr")
.gsp_datum = nachrichtenDatum
.gsp_erstellungsdatum = DateTime.Now
.gsp_ust = gsrightRow("gs_ust")
.gsp_gsNr = gsrightRow("gs_gsnr")
.gsp_abfertigungsNr = gsrightRow("gs_abfertigungsnr")
.gsp_datum = nachrichtenDatum
.gsp_erstellungsdatum = DateTime.Now
.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 Not isNCTS Then
.gsp_ATCNr = IIf(veralteteregNR = "", MRNNR, veralteteregNR)
.gsp_MRNNr = IIf(regNR = "", MRNNR, regNR)
.gsp_ATCNr = IIf(MRN_Erledigung_veraltet = "", MRN_SUMA, MRN_Erledigung_veraltet)
.gsp_MRNNr = IIf(MRN_Erledigung = "", MRN_SUMA, MRN_Erledigung)
Else
.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
.gsp_avisoId = gsrightRow("gs_avisoID")
.gsp_systemuser = "DAKOSY-AUTO"
.gsp_EH_Anzahl = AnzahlStückErledigt
End With
.gsp_systemuser = "DAKOSY-AUTO"
End With
SicherheitsPos.SAVE()
GesSichRef.CalcSaldo()
SicherheitsPos.SAVE()
GesSichRef.CalcSaldo()
If sendInfoMail Then
Dim InfoText2 As String = createInfoMail(gsrightRow.Item("gs_MRNNr"), Nothing, "VW-AUSGANG",, SicherheitsPos, isNCTS)
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")
End If
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 " & zusätzlicheInfo & " - " & Now().ToShortDateString, InfoText2,,,,, "d.breimaier@verag.ag")
End If
End If
@@ -910,7 +1041,7 @@ Anzeige:
Return 0
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
@@ -967,19 +1098,20 @@ Anzeige:
TextHTMLtable &= typ & " wurde aus DAKOSY generiert!" & vbNewLine & vbNewLine & vbNewLine
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
TextHTMLtable &= "<tr>"
TextHTMLtable &= "<td><b>" & GSPOS.gsp_gspPosId & "</b></td>"
TextHTMLtable &= "<td><b>" & GSPOS.gsp_MRNNr & "</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 &= "</tr>"
End If
TextHTMLtable &= "</tr>"
End If
TextHTMLtable &= "</table>"
TextHTMLtable &= "</table>"
TextHTMLtable &= vbNewLine & vbNewLine & vbNewLine & "*Automatic generated e-mail*"
Return TextHTMLtable

13
initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb
View File

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

144
initATLASAufschubkonten/frmStartOptions.resx
View File

@@ -236,6 +236,78 @@
+z1oZ9B6syqzaGEdYX5mdmYqt4qgQDVINcVjocfByBORr63brCulbaW10NVQHYibiNsHbQ+6L24q7oAu
RxPAxs8mJG4iDmp1USehIAMuLi4GeXl5NlNTU347OzsRe3t7UWRsZ2cnbG5uzicrK8vKxcVFXOmCD0hK
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>
</data>
<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">
<value>True</value>
</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">
<value>
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
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
@@ -5891,7 +5891,7 @@ Public Class frmStartOptions
Dim iso2Laneder = ""
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 "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
For Each r As DataRow In dtiso2Laneder.Rows
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 "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
@@ -7446,7 +7446,8 @@ repeatRequest:
Private Sub lblIDS_plauscheck_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles lblIDS_plauscheck.LinkClicked
Dim IDS As cIDS
Dim dt = IDS.checkPDFInvoices()
Dim dt As New DataTable
IDS.checkPDFInvoices(,, dt)
If dt.Rows.Count > 0 Then
@@ -7752,4 +7753,65 @@ repeatRequest:
Me.Visible = True
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