Imports com.sun.xml.internal.bind.v2.model.core Imports VERAG_PROG_ALLGEMEIN Public Class cWorker_Verwahrung Public Shared Dateiname = "" Shared SQL As New VERAG_PROG_ALLGEMEIN.SQL Shared Function readVW_SumAVerwahrungsinfo(FORM As frmDYNachrichtenVerarbeitung, d As String, saveVerwahrung As Boolean) As String Try Dim VWI As DAKOSY_Worker.SumAVerwahrungsinfo_009.SumAVerwahrungsinfoSVTyp = DAKOSY_Worker.SumAVerwahrungsinfo_009.SumAVerwahrungsinfoSVTyp.LoadFromFile(d) Dim Vorpapiernummer = "" Dim RegistriernummerATLAS = "" Dim ankungsdatum As Object = Nothing Dim gestellungsdatum As Object = Nothing Dim posGestellung As New DataTable readVW_SumAVerwahrungsinfo = "" If VWI IsNot Nothing Then If VWI.EinzelSumAVerwahrungsinfo IsNot Nothing Then If VWI.EinzelSumAVerwahrungsinfo.ObjektIdentifizierung IsNot Nothing Then If VWI.EinzelSumAVerwahrungsinfo.ObjektIdentifizierung.ObjektName IsNot Nothing Then readVW_SumAVerwahrungsinfo = VWI.EinzelSumAVerwahrungsinfo.ObjektIdentifizierung.ObjektName 'Nur ObjektAntragsart VV (SumA Vorgang) /NE (NCTS-Vorgang ) End If End If If VWI.EinzelSumAVerwahrungsinfo.KopfDaten IsNot Nothing Then If VWI.EinzelSumAVerwahrungsinfo.KopfDaten.Vorpapiernummer IsNot Nothing Then Vorpapiernummer = VWI.EinzelSumAVerwahrungsinfo.KopfDaten.Vorpapiernummer End If If VWI.EinzelSumAVerwahrungsinfo.KopfDaten.RegistriernummerATLAS IsNot Nothing Then RegistriernummerATLAS = VWI.EinzelSumAVerwahrungsinfo.KopfDaten.RegistriernummerATLAS End If If VWI.EinzelSumAVerwahrungsinfo.KopfDaten.GestellungDatum > "01.01.2000" Then gestellungsdatum = VWI.EinzelSumAVerwahrungsinfo.KopfDaten.GestellungDatum End If If VWI.EinzelSumAVerwahrungsinfo.KopfDaten.Ankunftsdatum > "01.01.2000" Then ankungsdatum = VWI.EinzelSumAVerwahrungsinfo.KopfDaten.Ankunftsdatum End If If VWI.EinzelSumAVerwahrungsinfo.Position IsNot Nothing Then For Each POS In VWI.EinzelSumAVerwahrungsinfo.Position If POS.Positionsnummer IsNot Nothing AndAlso posGestellung IsNot Nothing Then If Not posGestellung.Columns.Contains("AnzPackst") Then 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("Warenbeschreibung", GetType(String)) posGestellung.Columns.Add("VerwahrerFirma", GetType(String)) posGestellung.Columns.Add("VerwahrerOrt", GetType(String)) posGestellung.Columns.Add("VerwahrerEORI", GetType(String)) End If Dim ro As DataRow = posGestellung.NewRow ro("PosNr") = POS.Positionsnummer ro("AnzPackst") = POS.PackstueckAnzahl ro("PackstArt") = POS.PackstueckArt ro("Rohmasse") = POS.Rohmasse ro("Warenbeschreibung") = POS.Warenbeschreibung ro("VerwahrerFirma") = POS.Verwahrer.NameFirma ro("VerwahrerOrt") = POS.Verwahrer.Ortsteil ro("VerwahrerEORI") = POS.Verwahrer.TeilnehmerEORI posGestellung.Rows.Add(ro) End If Next End If End If End If End If 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" STATUS.dySt_dyArt = "VW" STATUS.dySt_status = DAKOSY_Worker.cDY_Statusliste.V_50 STATUS.dySt_ergCode = "GSTDATUM" STATUS.dySt_ergMitteilung = "" If gestellungsdatum IsNot Nothing Then STATUS.dySt_ergZeitpunkt = gestellungsdatum STATUS.SAVE() 'LINKE SEITE BEI GESAMTSICHERHEITEN!!!!!!!!!!!!! If saveVerwahrung Then '---------------------------------------------------------------- Try Dim BezugsNr = readVW_SumAVerwahrungsinfo If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True Then VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False Dim filiale As String = "" Dim abfertigungsnummer = "" Dim Standort As String = "" Dim warenort = "" If BezugsNr.Length > 4 AndAlso IsNumeric(BezugsNr.Substring(0, 4)) Then filiale = IIf(BezugsNr.Length > 4, BezugsNr.Substring(0, 4), "") abfertigungsnummer = IIf(BezugsNr.Length >= 14, BezugsNr.Substring(5, 8), "") ElseIf Vorpapiernummer <> "" Then If Vorpapiernummer.Length > 18 Then 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") If dtSendungsInfo.Rows.Count > 0 Then filiale = dtSendungsInfo.Rows(0).Item("FilialenNr") abfertigungsnummer = dtSendungsInfo.Rows(0).Item("AbfertigungsNr") End If Select Case filiale Case "4803", "4809" Standort = "VERAG AG" Case "4810", "5103", "5901" Standort = "VERAG GmbH" Case "5501" Standort = "IMEX" Case Else GoTo Anzeige End Select Dim dy_SendungsId = VWI.Transaktion.IOReferenz If filiale <> "" AndAlso abfertigungsnummer <> "" AndAlso IsNumeric(filiale) AndAlso IsNumeric(abfertigungsnummer) Then Dim SND = VERAG_PROG_ALLGEMEIN.cSendungen.LOADByFilialenNrAbfertigungsNr(filiale, abfertigungsnummer) If SND IsNot Nothing AndAlso SND.tblSnd_Abfertigungsart_ID = 44 Then Dim existingEntry As Integer = 0 existingEntry = CInt((New SQL).getValueTxtBySql("Select gs_gsnr from [tblGesamtsicherheit] where [gs_ATBNr] = '" & Vorpapiernummer & "' order by gs_datum desc", "AVISO",,,, "0")) If existingEntry = 0 Then existingEntry = CInt((New SQL).getValueTxtBySql("Select gs_gsnr from [tblGesamtsicherheit] where ([gs_filialenNr] = '" & SND.FilialenNr & "' and [gs_abfertigungsNr] = " & SND.AbfertigungsNr & ") or (gs_avisoId = " & SND.tblSnd_AvisoID & ") order by gs_datum desc", "AVISO",,, "0")) End If If existingEntry > 0 Then Dim urspringsSicherheit As New cSicherheiten(existingEntry) Dim GesSichRef = New VERAG_PROG_ALLGEMEIN.cGesamtsicherheitsReferenz(urspringsSicherheit.gs_standort) Dim saldo = GesSichRef.CalcSaldo() If SND.FilialenNr > 0 Then filiale = SND.FilialenNr If SND.AbfertigungsNr > 0 Then abfertigungsnummer = SND.AbfertigungsNr 'Verwahrung ANSCHREIBUNG Dim gsId As Integer urspringsSicherheit.gs_systemuser = "DAKOSY-AUTO" urspringsSicherheit.gs_posNr = CInt(posGestellung.Rows(0).Item("PosNr")) urspringsSicherheit.gs_freitext = RegistriernummerATLAS urspringsSicherheit.gs_MRNNr = RegistriernummerATLAS VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True gsId = urspringsSicherheit.SAVEOBJECT() VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False If posGestellung.Rows.Count > 1 Then For i As Integer = 2 To posGestellung.Rows.Count - 1 Dim ANSCHREIBUNG_POS As New cSicherheiten() With ANSCHREIBUNG_POS .gs_gsNr = gsId .gs_ATBNr = urspringsSicherheit.gs_ATBNr .gs_freitext = RegistriernummerATLAS .gs_posNr = i .gs_datum = gestellungsdatum .gs_gsNr = urspringsSicherheit.gs_gsNr .gs_warenwert = 0 .gs_sicherheitsbetrag = 0 .gs_standort = Standort .gs_art = "OPEN" .gs_erstellungsdatum = DateTime.Now .gs_MRNNr = RegistriernummerATLAS .gs_saldo = saldo .gs_atr = "" .gs_systemuser = urspringsSicherheit.gs_systemuser .gs_zollsatz = GesSichRef.gsr_zollsatz .gs_avisoId = SND.tblSnd_AvisoID .gs_warenort = urspringsSicherheit.gs_warenort End With VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True ANSCHREIBUNG_POS.SAVE() VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False Next End If End If End If End If End If Catch ex As Exception End Try End If Anzeige: FORM.addDGVEinarbeitung("VW: Verwahrungsinfo", STATUS.dySt_BezugsNr) End If Catch ex As Exception VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name) readVW_SumAVerwahrungsinfo = "" End Try End Function Public Shared Function AddNewGesamtSichNr() As Integer Dim sqlq As String = "select MAX([gs_gsNr]) as MaxGesSich from tblGesamtsicherheit" Dim dt As New DataTable dt = SQL.loadDgvBySql(sqlq, "AVISO", 100, True) Dim LetzteGesSichNum As Integer = -1 If (dt.Rows(0).Item(0) IsNot DBNull.Value) Then LetzteGesSichNum = dt.Rows(0).Item(0) Return LetzteGesSichNum + 1 End If Return 0 End Function Shared Function readEZA_SumAErledigungsinformationVorpapier_005(FORM As frmDYNachrichtenVerarbeitung, d As String, saveAbschreibung As Boolean) As String 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 zp As Object = Nothing Dim regNR = "" Dim division = "" readEZA_SumAErledigungsinformationVorpapier_005 = "" If EZA IsNot Nothing Then If EZA.Transaktion IsNot Nothing Then If EZA.Transaktion.IODivision3 IsNot Nothing Then division = EZA.Transaktion.IODivision3 ElseIf EZA.Transaktion.IODivision1 IsNot Nothing Then division = EZA.Transaktion.IODivision1 End If End If If EZA.EinzelSumAErledigungsinformation IsNot Nothing Then If EZA.EinzelSumAErledigungsinformation.ObjektIdentifizierung IsNot Nothing Then If EZA.EinzelSumAErledigungsinformation.ObjektIdentifizierung.ObjektName IsNot Nothing Then readEZA_SumAErledigungsinformationVorpapier_005 = EZA.EinzelSumAErledigungsinformation.ObjektIdentifizierung.ObjektName End If zp = EZA.EinzelSumAErledigungsinformation.ObjektIdentifizierung.ZeitpunktNachrichteneingang End If If EZA.EinzelSumAErledigungsinformation.KopfDaten IsNot Nothing Then If EZA.EinzelSumAErledigungsinformation.KopfDaten.ArtErledigung IsNot Nothing Then ART = EZA.EinzelSumAErledigungsinformation.KopfDaten.ArtErledigung End If If EZA.EinzelSumAErledigungsinformation.KopfDaten.RegNrATLASWeitereNachweise IsNot Nothing Then regNR = EZA.EinzelSumAErledigungsinformation.KopfDaten.RegNrATLASWeitereNachweise End If End If If EZA.EinzelSumAErledigungsinformation.Position IsNot Nothing Then For Each POS In EZA.EinzelSumAErledigungsinformation.Position If POS.LaufendeNummer 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.LaufendeNummer ro("IDRegNrSumA") = POS.IDRegNrSumA ro("IDRegNrSumAPos") = POS.IDRegNrSumAPos ro("StornierungKz") = POS.StornierungKz ro("StueckzahlErledigte") = POS.StueckzahlErledigte posErledigung.Rows.Add(ro) End If Next End If End If End If ' EZA.LOADByBezugsNr(bezugsNr, False) ' Falls schon ein DS mit dieser Bezugsnummer vorhanden ist. If readEZA_SumAErledigungsinformationVorpapier_005 <> "" Then 'BEZUGSNR vorhanden Dim STATUS As DAKOSY_Worker.cDakosy_Statusmeldungen = FORM.getStatusCheckTransID(EZA.Transaktion.IOReferenz, EZA.Transaktion.IODatumZeit) STATUS.dySt_BezugsNr = readEZA_SumAErledigungsinformationVorpapier_005 STATUS.dySt_artMitteilung = "VW_EVP" STATUS.dySt_dyArt = "VW" '"EZA" 'T1/T2 STATUS.dySt_status = DAKOSY_Worker.cDY_Statusliste.V_60 STATUS.dySt_ergZeitpunkt = zp ' STATUS.dySt_ergDetails = details 'EINTRAG IN tblDakosy_Zollanmeldungen Dim DY_TMP As DAKOSY_Worker.cDakosy_Zollanmeldungen = FORM.saveDY_ZA(STATUS, EZA.Transaktion.IOReferenz, If(zp, EZA.Transaktion.IODatumZeit), "EZA") 'Dim EZA_TMP As DAKOSY_Worker.cDakosyEZA ''???????? REGNR 'If regNR <> "" Then ' STATUS.dySt_ergCode = "REGNr" ' STATUS.dySt_ergMitteilung = regNR ' EZA_TMP = FORM.saveDY_EZA(STATUS, DY_TMP, EZA.Transaktion.IOReferenz, If(zp, EZA.Transaktion.IODatumZeit), regNR) 'Else ' STATUS.dySt_ergCode = "ART" ' If ART <> "" Then STATUS.dySt_ergMitteilung = ART ' EZA_TMP = FORM.saveDY_EZA(STATUS, DY_TMP, EZA.Transaktion.IOReferenz, If(zp, EZA.Transaktion.IODatumZeit)) 'End If 'FORM.SaveEZA_FirmaNL(EZA_TMP, DY_TMP, division) If DY_TMP IsNot Nothing Then STATUS.dySt_dyId = DY_TMP.dy_Id STATUS.SAVE() '---------------------------------------------------------------- 'Verwahrung ABSCHREIBUNG - rechte Seite bei Gesamtsicherheiten If saveAbschreibung Then If posErledigung IsNot Nothing AndAlso posErledigung.Rows.Count > 0 Then If regNR <> "" Then Dim dtGesamtsicherheit = SQL.loadDgvBySql("Select * From [tblGesamtsicherheit] where [gs_MRNNr] = '" & regNR & "' or [gs_ATBNr]= '" & regNR & "'", "AVISO") If dtGesamtsicherheit.Rows.Count > 0 Then For Each POS As DataRow In posErledigung.Rows Dim MRNNR As String = "" Dim existingEntryID As Integer = 0 If Not IsDBNull(POS.Item("IDRegNrSumA")) AndAlso POS.Item("IDRegNrSumA") IsNot Nothing AndAlso POS.Item("IDRegNrSumA") <> "" Then Dim POSNr As Integer = CInt(POS.Item("IDRegNrSumAPos")) If MRNNR <> POS.Item("IDRegNrSumA") Then MRNNR = POS.Item("IDRegNrSumA") Dim firmaID = -1 'Select Case dtGesamtsicherheit.Rows(0).Item("gs_standort") ' Case "VERAG GmbH" ' firmaID = 23 ' Case "Verag AG" ' firmaId = 1 ' Case "Unisped GmbH" ' firmaId = 21 ' Case "AMBAR GmbH" ' firmaId = 24 ' Case "Verag CS" ' firmaId = 11 ' Case "IMEX" ' firmaId = 20 'End Select VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True Dim GesSichRef = New VERAG_PROG_ALLGEMEIN.cGesamtsicherheitsReferenz(dtGesamtsicherheit.Rows(0).Item("gs_standort")) Dim saldo As Double = GesSichRef.CalcSaldo() Try 'innerhalb der gs_gsnr muss mithilfe der gs_gsid die richtige PosNr ermittelt werden! Dim Warenwert As Double = 0 Dim dtSendungen = SQL.loadDgvBySql("SELECT") Dim SicherheitsPos As New cGesamtsicherheitsPositionen() With SicherheitsPos .gsp_gsId = dtGesamtsicherheit.Rows(0).Item("gs_gsId") '.gsp_gspPosId = CInt(POSNr) .gsp_gspPosId = dtGesamtsicherheit.Rows(0).Item("gs_posNr") .gsp_warenwert = 0 .gsp_sicherheitsbetrag = 0 .gsp_freitext = "DASKOY-IMPORT" .gsp_filialenNr = dtGesamtsicherheit.Rows(0).Item("gs_filialenNr") .gsp_art = "CLOSE" .gsp_gsNr = dtGesamtsicherheit.Rows(0).Item("gs_gsnr") .gsp_abfertigungsNr = dtGesamtsicherheit.Rows(0).Item("gs_abfertigungsnr") .gsp_datum = DateTime.Now .gsp_erstellungsdatum = DateTime.Now .gsp_ust = dtGesamtsicherheit.Rows(0).Item("gs_ust") .gsp_ATCNr = POS.Item("IDRegNrSumA") .gsp_avisoId = dtGesamtsicherheit.Rows(0).Item("gs_avisoID") .gsp_systemuser = "DAKOSY-AUTO" End With SicherheitsPos.SAVE() GesSichRef.CalcSaldo() VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False Catch ex As Exception VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name) VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False End Try End If End If Next End If End If End If Anzeige: FORM.addDGVEinarbeitung("VW: Erledigungsinformation-Vorpapier", 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) readEZA_SumAErledigungsinformationVorpapier_005 = "" End Try End Function Shared Function readEZA_SumAErledigungsinformationCDXWare007(FORM As frmDYNachrichtenVerarbeitung, d As String, saveAbschreibung As Boolean) As String Try Dim EZA As DAKOSY_Worker.SumAErledigungsinformationCDXWare_007.SumAErledigungsinformationCDXWareSCTyp = DAKOSY_Worker.SumAErledigungsinformationCDXWare_007.SumAErledigungsinformationCDXWareSCTyp.LoadFromFile(d) Dim ART = "" ' Dim details = "" Dim zp As Object = Nothing Dim regNR = "" Dim division = "" readEZA_SumAErledigungsinformationCDXWare007 = "" If EZA IsNot Nothing Then If EZA.Transaktion IsNot Nothing Then If EZA.Transaktion.IODivision3 IsNot Nothing Then division = EZA.Transaktion.IODivision3 ElseIf EZA.Transaktion.IODivision1 IsNot Nothing Then division = EZA.Transaktion.IODivision1 End If End If If EZA.EinzelSumAErledigungsinformationCDXWare IsNot Nothing Then If EZA.EinzelSumAErledigungsinformationCDXWare.ObjektIdentifizierung IsNot Nothing Then If EZA.EinzelSumAErledigungsinformationCDXWare.ObjektIdentifizierung.ObjektName IsNot Nothing Then readEZA_SumAErledigungsinformationCDXWare007 = EZA.EinzelSumAErledigungsinformationCDXWare.ObjektIdentifizierung.ObjektName End If zp = EZA.EinzelSumAErledigungsinformationCDXWare.ObjektIdentifizierung.ZeitpunktNachrichteneingang End If If EZA.EinzelSumAErledigungsinformationCDXWare.KopfDaten IsNot Nothing Then If EZA.EinzelSumAErledigungsinformationCDXWare.KopfDaten.RegNrATLAS IsNot Nothing Then regNR = EZA.EinzelSumAErledigungsinformationCDXWare.KopfDaten.RegNrATLAS End If End If End If End If ' EZA.LOADByBezugsNr(bezugsNr, False) ' Falls schon ein DS mit dieser Bezugsnummer vorhanden ist. If readEZA_SumAErledigungsinformationCDXWare007 <> "" Then 'BEZUGSNR vorhanden Dim STATUS As DAKOSY_Worker.cDakosy_Statusmeldungen = FORM.getStatusCheckTransID(EZA.Transaktion.IOReferenz, EZA.Transaktion.IODatumZeit) STATUS.dySt_BezugsNr = readEZA_SumAErledigungsinformationCDXWare007 STATUS.dySt_artMitteilung = "VW_EVP_CDX" STATUS.dySt_dyArt = "VW" '"EZA" 'T1/T2 STATUS.dySt_status = DAKOSY_Worker.cDY_Statusliste.V_60 '??? STATUS.dySt_ergZeitpunkt = zp ' STATUS.dySt_ergDetails = details 'EINTRAG IN tblDakosy_Zollanmeldungen Dim DY_TMP As DAKOSY_Worker.cDakosy_Zollanmeldungen = FORM.saveDY_ZA(STATUS, EZA.Transaktion.IOReferenz, If(zp, EZA.Transaktion.IODatumZeit), "EZA") If DY_TMP IsNot Nothing Then STATUS.dySt_dyId = DY_TMP.dy_Id STATUS.SAVE() '---------------------------------------------------------------- 'Verwahrung ABSCHREIBUNG If saveAbschreibung Then Try Catch ex As Exception ' VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False End Try End If '---------------------------------------------------------------- FORM.addDGVEinarbeitung("VW: Erledigungsinformation-Vorpapier CDX", STATUS.dySt_BezugsNr) End If Catch ex As Exception VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name) readEZA_SumAErledigungsinformationCDXWare007 = "" End Try End Function End Class