diff --git a/DAKOSY_Worker/cImporter_TelotecToVERAG.vb b/DAKOSY_Worker/cImporter_TelotecToVERAG.vb index 8a4b89e..88fa80b 100644 --- a/DAKOSY_Worker/cImporter_TelotecToVERAG.vb +++ b/DAKOSY_Worker/cImporter_TelotecToVERAG.vb @@ -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 diff --git a/MDM_Worker/cPLOSE_Inv_Data.vb b/MDM_Worker/cPLOSE_Inv_Data.vb index 677c1d8..b86f33d 100644 --- a/MDM_Worker/cPLOSE_Inv_Data.vb +++ b/MDM_Worker/cPLOSE_Inv_Data.vb @@ -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]" diff --git a/initATLASAufschubkonten/cGetMsgType.vb b/initATLASAufschubkonten/cGetMsgType.vb index 8d2312a..7f58af0 100644 --- a/initATLASAufschubkonten/cGetMsgType.vb +++ b/initATLASAufschubkonten/cGetMsgType.vb @@ -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 + '005 + 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 diff --git a/initATLASAufschubkonten/cWorker_NCTS.vb b/initATLASAufschubkonten/cWorker_NCTS.vb index eb84e99..cbc333a 100644 --- a/initATLASAufschubkonten/cWorker_NCTS.vb +++ b/initATLASAufschubkonten/cWorker_NCTS.vb @@ -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 diff --git a/initATLASAufschubkonten/cWorker_Verwahrung.vb b/initATLASAufschubkonten/cWorker_Verwahrung.vb index 7b7360a..69ec20c 100644 --- a/initATLASAufschubkonten/cWorker_Verwahrung.vb +++ b/initATLASAufschubkonten/cWorker_Verwahrung.vb @@ -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 &= "" - TextHTMLtable &= "" + TextHTMLtable &= "" & IIf(sonstigeMRNNR <> "", "", "") & "" If GSPOS IsNot Nothing Then TextHTMLtable &= "" TextHTMLtable &= "" TextHTMLtable &= "" TextHTMLtable &= "" + If sonstigeMRNNR <> "" Then TextHTMLtable &= "" TextHTMLtable &= "" - TextHTMLtable &= "" - End If + TextHTMLtable &= "" + End If - TextHTMLtable &= "
PosNrMRNATCAVISOID
PosNrMRNATCsonstige MRNAVISOID
" & GSPOS.gsp_gspPosId & "" & GSPOS.gsp_MRNNr & "" & GSPOS.gsp_ATCNr & "" & sonstigeMRNNR & "" & GSPOS.gsp_avisoId & "
" + TextHTMLtable &= "" TextHTMLtable &= vbNewLine & vbNewLine & vbNewLine & "*Automatic generated e-mail*" Return TextHTMLtable diff --git a/initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb b/initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb index ea4178f..211ce7b 100644 --- a/initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb +++ b/initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb @@ -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 diff --git a/initATLASAufschubkonten/frmStartOptions.Designer.vb b/initATLASAufschubkonten/frmStartOptions.Designer.vb index 7b1e973..a848a7c 100644 --- a/initATLASAufschubkonten/frmStartOptions.Designer.vb +++ b/initATLASAufschubkonten/frmStartOptions.Designer.vb @@ -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 diff --git a/initATLASAufschubkonten/frmStartOptions.resx b/initATLASAufschubkonten/frmStartOptions.resx index 047aec1..1fd7ebc 100644 --- a/initATLASAufschubkonten/frmStartOptions.resx +++ b/initATLASAufschubkonten/frmStartOptions.resx @@ -236,6 +236,78 @@ +z1oZ9B6syqzaGEdYX5mdmYqt4qgQDVINcVjocfByBORr63brCulbaW10NVQHYibiNsHbQ+6L24q7oAu RxPAxs8mJG4iDmp1USehIAMuLi4GeXl5NlNTU347OzsRe3t7UWRsZ2cnbG5uzicrK8vKxcVFXOmCD0hK SjJ6enoK1NXVqU6aNMlg2rRpxsh48uTJus3NzYqurq68EhISJGd6ADkzAttxL7feAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABGdJREFUSEtj + YKAyYOFk4Za0knSzzrXOd8x2jJeUlGRgZ2dHV0YFwMjAKKInomlUYJRl32e/wn+Z/0Gf2T4L9eP1rQRV + BQWZ2JnQdVAGBNQEFI2KjHLCj4Qfjz0f+zX+Uvz/iKMR9z2XeU7USdNxENYVFmZkYWRE10c2sGqyKgg/ + FH4s7mLcPxAGWQhjR5+Pnm5Wa+bAxs/Ggq6PbODQ77Aw5mzMO5BF6DjuYtzDoB1BU5ynO9uh6yMZcIpy + Sin5KsX5rva9gMWiP3EX4354LPDYb9VkVWpSZmKIrp8kwMrDyifnLBcUtCPoYfSp6G9oln2PPh39InRf + 6EXVYNUYLjEuCXT9JAMFT4UI5+nO22POxPyMuxD3F83CK/4b/CdoJ2hb8CnwiTIyM5Iff8yczNxSVlJu + Nm02i8P2h72EJRKwRRfifsScibnts9Kn0yjfyIZfkZ+bhZOFGd0MkgC7ALuIXppeDXq8xZ6L/Rl+MPyR + 2xy3iXpperai+qLUyfG4LIw8GvnGY57HVnFDcTk2bjZ0beQBHikeeWV/5QTvpd4nI49FfoRZFnM+5rdd + j91KEV0REzY+Ng5GZgJ5nJmDmZtPgU9dwUPBUsZeRoNLgosNXRO7ILsIOKFMdd4adTzqE7Lv/Pf6b9JM + 1wxB0YALgFIQrxyvmlacVrHfer/prnNccxW9FWXZBdhZGZCKQEENQUOzKrMpaKnxR9zFuOeWMyy9JDwl + WJHNxQk4xTilVAJVkkP2hjyLPhP9NvJE5C7PJZ7J4ibikqw8rPDkjMPCazEXYorkveWVWHiISPnMHMxc + qsGqKe7z3Q+Cy75LcSBDXkQcjdjuMMEhStJKUo6JlYmVlZdVQD9Lv8F3je9FeKq8EHvZf5N/j26Grg6P + LA8PutlYgYKbQqjzVOdtyK6GuvxD7IXYlea15v5ixmISXBJcsm5z3PZC5X7FXYx7Grg9cKpZlZkzuxA7 + GxMrE4FUAgXIpTuahWDxmPMx011mudiiWQhyzBKzSjMvQQ1BXnQz8QJpG2lPZX/lKMs6y464i3H34y/F + g+syJIsfhh8KPw6yLPxQ+GuQWOSRyNc27Tbd0rbSZizcZJQibHxsvBImEsamFaaVrjNdNwXvDH6A7mMY + BlnqNtttj5yrXDAosaGbRTKQdZYNsOu2WxZ9MvpD3IW43/GX4hHl5MW4n75rfI/pZ+kXsouwC6HrJQuw + cLPwKngqeLvPc18adTLqRfyl+F9IFt73We0zQTdd14BdkIotI25JbgkZBxkHtVC1JLc5brtjz8f+jL0Q + +z1oZ9B6syqzaGEdYX5mdmYqt4qgQDVINcVjocfByBORr63brCulbaW10NVQHYibiNsHbQ+6L24q7oAu + RxPAxs8mJG4iDmp1USehIAMuLi4GeXl5NlNTU347OzsRe3t7UWRsZ2cnbG5uzicrK8vKxcVFXOmCD0hK + SjJ6enoK1NXVqU6aNMlg2rRpxsh48uTJus3NzYqurq68EhISJGd6ADkzAttxL7feAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABGdJREFUSEtj + YKAyYOFk4Za0knSzzrXOd8x2jJeUlGRgZ2dHV0YFwMjAKKInomlUYJRl32e/wn+Z/0Gf2T4L9eP1rQRV + BQWZ2JnQdVAGBNQEFI2KjHLCj4Qfjz0f+zX+Uvz/iKMR9z2XeU7USdNxENYVFmZkYWRE10c2sGqyKgg/ + FH4s7mLcPxAGWQhjR5+Pnm5Wa+bAxs/Ggq6PbODQ77Aw5mzMO5BF6DjuYtzDoB1BU5ynO9uh6yMZcIpy + Sin5KsX5rva9gMWiP3EX4354LPDYb9VkVWpSZmKIrp8kwMrDyifnLBcUtCPoYfSp6G9oln2PPh39InRf + 6EXVYNUYLjEuCXT9JAMFT4UI5+nO22POxPyMuxD3F83CK/4b/CdoJ2hb8CnwiTIyM5Iff8yczNxSVlJu + Nm02i8P2h72EJRKwRRfifsScibnts9Kn0yjfyIZfkZ+bhZOFGd0MkgC7ALuIXppeDXq8xZ6L/Rl+MPyR + 2xy3iXpperai+qLUyfG4LIw8GvnGY57HVnFDcTk2bjZ0beQBHikeeWV/5QTvpd4nI49FfoRZFnM+5rdd + j91KEV0REzY+Ng5GZgJ5nJmDmZtPgU9dwUPBUsZeRoNLgosNXRO7ILsIOKFMdd4adTzqE7Lv/Pf6b9JM + 1wxB0YALgFIQrxyvmlacVrHfer/prnNccxW9FWXZBdhZGZCKQEENQUOzKrMpaKnxR9zFuOeWMyy9JDwl + WJHNxQk4xTilVAJVkkP2hjyLPhP9NvJE5C7PJZ7J4ibikqw8rPDkjMPCazEXYorkveWVWHiISPnMHMxc + qsGqKe7z3Q+Cy75LcSBDXkQcjdjuMMEhStJKUo6JlYmVlZdVQD9Lv8F3je9FeKq8EHvZf5N/j26Grg6P + LA8PutlYgYKbQqjzVOdtyK6GuvxD7IXYlea15v5ixmISXBJcsm5z3PZC5X7FXYx7Grg9cKpZlZkzuxA7 + GxMrE4FUAgXIpTuahWDxmPMx011mudiiWQhyzBKzSjMvQQ1BXnQz8QJpG2lPZX/lKMs6y464i3H34y/F + g+syJIsfhh8KPw6yLPxQ+GuQWOSRyNc27Tbd0rbSZizcZJQibHxsvBImEsamFaaVrjNdNwXvDH6A7mMY + BlnqNtttj5yrXDAosaGbRTKQdZYNsOu2WxZ9MvpD3IW43/GX4hHl5MW4n75rfI/pZ+kXsouwC6HrJQuw + cLPwKngqeLvPc18adTLqRfyl+F9IFt73We0zQTdd14BdkIotI25JbgkZBxkHtVC1JLc5brtjz8f+jL0Q + +z1oZ9B6syqzaGEdYX5mdmYqt4qgQDVINcVjocfByBORr63brCulbaW10NVQHYibiNsHbQ+6L24q7oAu + RxPAxs8mJG4iDmp1USehIAMuLi4GeXl5NlNTU347OzsRe3t7UWRsZ2cnbG5uzicrK8vKxcVFXOmCD0hK + SjJ6enoK1NXVqU6aNMlg2rRpxsh48uTJus3NzYqurq68EhISJGd6ADkzAttxL7feAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABGdJREFUSEtj + YKAyYOFk4Za0knSzzrXOd8x2jJeUlGRgZ2dHV0YFwMjAKKInomlUYJRl32e/wn+Z/0Gf2T4L9eP1rQRV + BQWZ2JnQdVAGBNQEFI2KjHLCj4Qfjz0f+zX+Uvz/iKMR9z2XeU7USdNxENYVFmZkYWRE10c2sGqyKgg/ + FH4s7mLcPxAGWQhjR5+Pnm5Wa+bAxs/Ggq6PbODQ77Aw5mzMO5BF6DjuYtzDoB1BU5ynO9uh6yMZcIpy + Sin5KsX5rva9gMWiP3EX4354LPDYb9VkVWpSZmKIrp8kwMrDyifnLBcUtCPoYfSp6G9oln2PPh39InRf + 6EXVYNUYLjEuCXT9JAMFT4UI5+nO22POxPyMuxD3F83CK/4b/CdoJ2hb8CnwiTIyM5Iff8yczNxSVlJu + Nm02i8P2h72EJRKwRRfifsScibnts9Kn0yjfyIZfkZ+bhZOFGd0MkgC7ALuIXppeDXq8xZ6L/Rl+MPyR + 2xy3iXpperai+qLUyfG4LIw8GvnGY57HVnFDcTk2bjZ0beQBHikeeWV/5QTvpd4nI49FfoRZFnM+5rdd + j91KEV0REzY+Ng5GZgJ5nJmDmZtPgU9dwUPBUsZeRoNLgosNXRO7ILsIOKFMdd4adTzqE7Lv/Pf6b9JM + 1wxB0YALgFIQrxyvmlacVrHfer/prnNccxW9FWXZBdhZGZCKQEENQUOzKrMpaKnxR9zFuOeWMyy9JDwl + WJHNxQk4xTilVAJVkkP2hjyLPhP9NvJE5C7PJZ7J4ibikqw8rPDkjMPCazEXYorkveWVWHiISPnMHMxc + qsGqKe7z3Q+Cy75LcSBDXkQcjdjuMMEhStJKUo6JlYmVlZdVQD9Lv8F3je9FeKq8EHvZf5N/j26Grg6P + LA8PutlYgYKbQqjzVOdtyK6GuvxD7IXYlea15v5ixmISXBJcsm5z3PZC5X7FXYx7Grg9cKpZlZkzuxA7 + GxMrE4FUAgXIpTuahWDxmPMx011mudiiWQhyzBKzSjMvQQ1BXnQz8QJpG2lPZX/lKMs6y464i3H34y/F + g+syJIsfhh8KPw6yLPxQ+GuQWOSRyNc27Tbd0rbSZizcZJQibHxsvBImEsamFaaVrjNdNwXvDH6A7mMY + BlnqNtttj5yrXDAosaGbRTKQdZYNsOu2WxZ9MvpD3IW43/GX4hHl5MW4n75rfI/pZ+kXsouwC6HrJQuw + cLPwKngqeLvPc18adTLqRfyl+F9IFt73We0zQTdd14BdkIotI25JbgkZBxkHtVC1JLc5brtjz8f+jL0Q + +z1oZ9B6syqzaGEdYX5mdmYqt4qgQDVINcVjocfByBORr63brCulbaW10NVQHYibiNsHbQ+6L24q7oAu + RxPAxs8mJG4iDmp1USehIAMuLi4GeXl5NlNTU347OzsRe3t7UWRsZ2cnbG5uzicrK8vKxcVFXOmCD0hK + SjJ6enoK1NXVqU6aNMlg2rRpxsh48uTJus3NzYqurq68EhISJGd6ADkzAttxL7feAAAAAElFTkSuQmCC @@ -748,78 +820,6 @@ True - - - iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABGdJREFUSEtj - YKAyYOFk4Za0knSzzrXOd8x2jJeUlGRgZ2dHV0YFwMjAKKInomlUYJRl32e/wn+Z/0Gf2T4L9eP1rQRV - BQWZ2JnQdVAGBNQEFI2KjHLCj4Qfjz0f+zX+Uvz/iKMR9z2XeU7USdNxENYVFmZkYWRE10c2sGqyKgg/ - FH4s7mLcPxAGWQhjR5+Pnm5Wa+bAxs/Ggq6PbODQ77Aw5mzMO5BF6DjuYtzDoB1BU5ynO9uh6yMZcIpy - Sin5KsX5rva9gMWiP3EX4354LPDYb9VkVWpSZmKIrp8kwMrDyifnLBcUtCPoYfSp6G9oln2PPh39InRf - 6EXVYNUYLjEuCXT9JAMFT4UI5+nO22POxPyMuxD3F83CK/4b/CdoJ2hb8CnwiTIyM5Iff8yczNxSVlJu - Nm02i8P2h72EJRKwRRfifsScibnts9Kn0yjfyIZfkZ+bhZOFGd0MkgC7ALuIXppeDXq8xZ6L/Rl+MPyR - 2xy3iXpperai+qLUyfG4LIw8GvnGY57HVnFDcTk2bjZ0beQBHikeeWV/5QTvpd4nI49FfoRZFnM+5rdd - j91KEV0REzY+Ng5GZgJ5nJmDmZtPgU9dwUPBUsZeRoNLgosNXRO7ILsIOKFMdd4adTzqE7Lv/Pf6b9JM - 1wxB0YALgFIQrxyvmlacVrHfer/prnNccxW9FWXZBdhZGZCKQEENQUOzKrMpaKnxR9zFuOeWMyy9JDwl - WJHNxQk4xTilVAJVkkP2hjyLPhP9NvJE5C7PJZ7J4ibikqw8rPDkjMPCazEXYorkveWVWHiISPnMHMxc - qsGqKe7z3Q+Cy75LcSBDXkQcjdjuMMEhStJKUo6JlYmVlZdVQD9Lv8F3je9FeKq8EHvZf5N/j26Grg6P - LA8PutlYgYKbQqjzVOdtyK6GuvxD7IXYlea15v5ixmISXBJcsm5z3PZC5X7FXYx7Grg9cKpZlZkzuxA7 - GxMrE4FUAgXIpTuahWDxmPMx011mudiiWQhyzBKzSjMvQQ1BXnQz8QJpG2lPZX/lKMs6y464i3H34y/F - g+syJIsfhh8KPw6yLPxQ+GuQWOSRyNc27Tbd0rbSZizcZJQibHxsvBImEsamFaaVrjNdNwXvDH6A7mMY - BlnqNtttj5yrXDAosaGbRTKQdZYNsOu2WxZ9MvpD3IW43/GX4hHl5MW4n75rfI/pZ+kXsouwC6HrJQuw - cLPwKngqeLvPc18adTLqRfyl+F9IFt73We0zQTdd14BdkIotI25JbgkZBxkHtVC1JLc5brtjz8f+jL0Q - +z1oZ9B6syqzaGEdYX5mdmYqt4qgQDVINcVjocfByBORr63brCulbaW10NVQHYibiNsHbQ+6L24q7oAu - RxPAxs8mJG4iDmp1USehIAMuLi4GeXl5NlNTU347OzsRe3t7UWRsZ2cnbG5uzicrK8vKxcVFXOmCD0hK - SjJ6enoK1NXVqU6aNMlg2rRpxsh48uTJus3NzYqurq68EhISJGd6ADkzAttxL7feAAAAAElFTkSuQmCC - - - - - iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABGdJREFUSEtj - YKAyYOFk4Za0knSzzrXOd8x2jJeUlGRgZ2dHV0YFwMjAKKInomlUYJRl32e/wn+Z/0Gf2T4L9eP1rQRV - BQWZ2JnQdVAGBNQEFI2KjHLCj4Qfjz0f+zX+Uvz/iKMR9z2XeU7USdNxENYVFmZkYWRE10c2sGqyKgg/ - FH4s7mLcPxAGWQhjR5+Pnm5Wa+bAxs/Ggq6PbODQ77Aw5mzMO5BF6DjuYtzDoB1BU5ynO9uh6yMZcIpy - Sin5KsX5rva9gMWiP3EX4354LPDYb9VkVWpSZmKIrp8kwMrDyifnLBcUtCPoYfSp6G9oln2PPh39InRf - 6EXVYNUYLjEuCXT9JAMFT4UI5+nO22POxPyMuxD3F83CK/4b/CdoJ2hb8CnwiTIyM5Iff8yczNxSVlJu - Nm02i8P2h72EJRKwRRfifsScibnts9Kn0yjfyIZfkZ+bhZOFGd0MkgC7ALuIXppeDXq8xZ6L/Rl+MPyR - 2xy3iXpperai+qLUyfG4LIw8GvnGY57HVnFDcTk2bjZ0beQBHikeeWV/5QTvpd4nI49FfoRZFnM+5rdd - j91KEV0REzY+Ng5GZgJ5nJmDmZtPgU9dwUPBUsZeRoNLgosNXRO7ILsIOKFMdd4adTzqE7Lv/Pf6b9JM - 1wxB0YALgFIQrxyvmlacVrHfer/prnNccxW9FWXZBdhZGZCKQEENQUOzKrMpaKnxR9zFuOeWMyy9JDwl - WJHNxQk4xTilVAJVkkP2hjyLPhP9NvJE5C7PJZ7J4ibikqw8rPDkjMPCazEXYorkveWVWHiISPnMHMxc - qsGqKe7z3Q+Cy75LcSBDXkQcjdjuMMEhStJKUo6JlYmVlZdVQD9Lv8F3je9FeKq8EHvZf5N/j26Grg6P - LA8PutlYgYKbQqjzVOdtyK6GuvxD7IXYlea15v5ixmISXBJcsm5z3PZC5X7FXYx7Grg9cKpZlZkzuxA7 - GxMrE4FUAgXIpTuahWDxmPMx011mudiiWQhyzBKzSjMvQQ1BXnQz8QJpG2lPZX/lKMs6y464i3H34y/F - g+syJIsfhh8KPw6yLPxQ+GuQWOSRyNc27Tbd0rbSZizcZJQibHxsvBImEsamFaaVrjNdNwXvDH6A7mMY - BlnqNtttj5yrXDAosaGbRTKQdZYNsOu2WxZ9MvpD3IW43/GX4hHl5MW4n75rfI/pZ+kXsouwC6HrJQuw - cLPwKngqeLvPc18adTLqRfyl+F9IFt73We0zQTdd14BdkIotI25JbgkZBxkHtVC1JLc5brtjz8f+jL0Q - +z1oZ9B6syqzaGEdYX5mdmYqt4qgQDVINcVjocfByBORr63brCulbaW10NVQHYibiNsHbQ+6L24q7oAu - RxPAxs8mJG4iDmp1USehIAMuLi4GeXl5NlNTU347OzsRe3t7UWRsZ2cnbG5uzicrK8vKxcVFXOmCD0hK - SjJ6enoK1NXVqU6aNMlg2rRpxsh48uTJus3NzYqurq68EhISJGd6ADkzAttxL7feAAAAAElFTkSuQmCC - - - - - iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABGdJREFUSEtj - YKAyYOFk4Za0knSzzrXOd8x2jJeUlGRgZ2dHV0YFwMjAKKInomlUYJRl32e/wn+Z/0Gf2T4L9eP1rQRV - BQWZ2JnQdVAGBNQEFI2KjHLCj4Qfjz0f+zX+Uvz/iKMR9z2XeU7USdNxENYVFmZkYWRE10c2sGqyKgg/ - FH4s7mLcPxAGWQhjR5+Pnm5Wa+bAxs/Ggq6PbODQ77Aw5mzMO5BF6DjuYtzDoB1BU5ynO9uh6yMZcIpy - Sin5KsX5rva9gMWiP3EX4354LPDYb9VkVWpSZmKIrp8kwMrDyifnLBcUtCPoYfSp6G9oln2PPh39InRf - 6EXVYNUYLjEuCXT9JAMFT4UI5+nO22POxPyMuxD3F83CK/4b/CdoJ2hb8CnwiTIyM5Iff8yczNxSVlJu - Nm02i8P2h72EJRKwRRfifsScibnts9Kn0yjfyIZfkZ+bhZOFGd0MkgC7ALuIXppeDXq8xZ6L/Rl+MPyR - 2xy3iXpperai+qLUyfG4LIw8GvnGY57HVnFDcTk2bjZ0beQBHikeeWV/5QTvpd4nI49FfoRZFnM+5rdd - j91KEV0REzY+Ng5GZgJ5nJmDmZtPgU9dwUPBUsZeRoNLgosNXRO7ILsIOKFMdd4adTzqE7Lv/Pf6b9JM - 1wxB0YALgFIQrxyvmlacVrHfer/prnNccxW9FWXZBdhZGZCKQEENQUOzKrMpaKnxR9zFuOeWMyy9JDwl - WJHNxQk4xTilVAJVkkP2hjyLPhP9NvJE5C7PJZ7J4ibikqw8rPDkjMPCazEXYorkveWVWHiISPnMHMxc - qsGqKe7z3Q+Cy75LcSBDXkQcjdjuMMEhStJKUo6JlYmVlZdVQD9Lv8F3je9FeKq8EHvZf5N/j26Grg6P - LA8PutlYgYKbQqjzVOdtyK6GuvxD7IXYlea15v5ixmISXBJcsm5z3PZC5X7FXYx7Grg9cKpZlZkzuxA7 - GxMrE4FUAgXIpTuahWDxmPMx011mudiiWQhyzBKzSjMvQQ1BXnQz8QJpG2lPZX/lKMs6y464i3H34y/F - g+syJIsfhh8KPw6yLPxQ+GuQWOSRyNc27Tbd0rbSZizcZJQibHxsvBImEsamFaaVrjNdNwXvDH6A7mMY - BlnqNtttj5yrXDAosaGbRTKQdZYNsOu2WxZ9MvpD3IW43/GX4hHl5MW4n75rfI/pZ+kXsouwC6HrJQuw - cLPwKngqeLvPc18adTLqRfyl+F9IFt73We0zQTdd14BdkIotI25JbgkZBxkHtVC1JLc5brtjz8f+jL0Q - +z1oZ9B6syqzaGEdYX5mdmYqt4qgQDVINcVjocfByBORr63brCulbaW10NVQHYibiNsHbQ+6L24q7oAu - RxPAxs8mJG4iDmp1USehIAMuLi4GeXl5NlNTU347OzsRe3t7UWRsZ2cnbG5uzicrK8vKxcVFXOmCD0hK - SjJ6enoK1NXVqU6aNMlg2rRpxsh48uTJus3NzYqurq68EhISJGd6ADkzAttxL7feAAAAAElFTkSuQmCC - - iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABGdJREFUSEtj diff --git a/initATLASAufschubkonten/frmStartOptions.vb b/initATLASAufschubkonten/frmStartOptions.vb index aaabde3..e3d9e0f 100644 --- a/initATLASAufschubkonten/frmStartOptions.vb +++ b/initATLASAufschubkonten/frmStartOptions.vb @@ -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 \ No newline at end of file