From 6e023041f92d4c9b12e79d361a6e4e7a97503105 Mon Sep 17 00:00:00 2001 From: Andreas Luxbauer Date: Mon, 29 Jan 2024 14:27:54 +0100 Subject: [PATCH 1/5] ATR, Fakt (UNISPED Vorlage Zahlungsziel), Preise --- SDL/Fakturierung/cFakturierung.vb | 62 ++++++++++++----- SDL/Fakturierung/frmRechnungenSuche.vb | 39 +++++++---- .../usrcntlVerzollungspreise.vb | 69 ++++++++++++++++++- SDL/OriginalArchiv_ATR/frmATR.vb | 42 +++++++---- .../frmOriginalArchiv_ATR.vb | 1 + .../usrcntlKundeBearbeitenFull.Designer.vb | 40 +++++++++++ SDL/kunden/usrcntlKundeBearbeitenFull.vb | 2 + VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb | 40 ++++++++++- .../Classes/cKundenErweitert.vb | 2 + VERAG_PROG_ALLGEMEIN/Classes/cOriginalATR.vb | 4 +- VERAG_PROG_ALLGEMEIN/Classes/cTrdInvoice.vb | 3 +- .../Messenger/frmMessenger.Designer.vb | 13 ++-- VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb | 28 ++++---- 13 files changed, 276 insertions(+), 69 deletions(-) diff --git a/SDL/Fakturierung/cFakturierung.vb b/SDL/Fakturierung/cFakturierung.vb index 93e961c8..e47f504d 100644 --- a/SDL/Fakturierung/cFakturierung.vb +++ b/SDL/Fakturierung/cFakturierung.vb @@ -352,7 +352,7 @@ Public Class cFakturierung End If If RECHNUNG.Firma_ID = 4 Then - strZahlbar &= " ()" + strZahlbar &= " ()" End If ' @@ -541,12 +541,14 @@ Public Class cFakturierung End If Case 21, 22, 23 Dim VORL = RECHNUNG.POSITIONEN.FindAll(Function(x) (x.LeistungsNr = 700 Or x.LeistungsNr = 710)) + ' If ZZKdZahlungszielVL <> ZZKdZahlungsziel Then If VORL IsNot Nothing AndAlso VORL.Count > 0 Then - Select Case RECHNUNG.RechnungSprache - Case "EN" : strText = strText.Replace("", "If payment is received by , you can deduct the template commission charged. " & vbCrLf) - Case Else : strText = strText.Replace("", "Bei Zahlungseingang bis zum können Sie die verrechnete Vorlageprovision in Abzug bringen. " & vbCrLf) - End Select - End If + Select Case RECHNUNG.RechnungSprache + Case "EN" : strText = strText.Replace("", "If payment is received by , you can deduct the template commission charged. " & vbCrLf) + Case Else : strText = strText.Replace("", "Bei Zahlungseingang bis zum können Sie die verrechnete Vorlageprovision in Abzug bringen. " & vbCrLf) + End Select + End If + ' End If End Select 'strText = strZahlbar & vbNewLine & strText @@ -1057,10 +1059,17 @@ Public Class cFakturierung End Select Dim ZZTage = 10 + Dim ZZTageVL = 10 Dim ZZKdZahlungsziel = SQL.DLookup("Zahlungsziel", "Kunden", "Kundennr=" & RECHNUNG.RechnungsKundenNr, "FMZOLL", 10) If ZZKdZahlungsziel IsNot Nothing AndAlso IsNumeric(ZZKdZahlungsziel) Then ZZTage = ZZKdZahlungsziel + ZZTageVL = ZZTage End If + Dim ZZKdZahlungszielVL = SQL.DLookup("kde_abweichendesZZVL", "tblKundenErweitert", "kde_KundenNr=" & RECHNUNG.RechnungsKundenNr, "FMZOLL", 10) + If ZZKdZahlungszielVL IsNot Nothing AndAlso IsNumeric(ZZKdZahlungszielVL) Then + ZZTageVL = ZZKdZahlungszielVL + End If + Select Case RECHNUNG.RechnungSprache Case "EN" : rpt.Label2.Text = ZZTage & " Days" : rpt.Label1.Text = "Payment target:" Case Else : rpt.Label2.Text = ZZTage & " Tage" @@ -1379,8 +1388,13 @@ Public Class cFakturierung If vorschau Then - rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("", Now.AddDays(ZZTage).ToShortDateString) - rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("", Now.AddDays(ZZTage).ToShortDateString) + rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("", Now.AddDays(10).ToShortDateString) + rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("", Now.AddDays(ZZTage).ToShortDateString) + rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("", Now.AddDays(ZZTageVL).ToShortDateString) + rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("", Now.AddDays(10).ToShortDateString) + rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("", Now.AddDays(ZZTage).ToShortDateString) + + rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("", Now.AddDays(ZZTageVL).ToShortDateString) cProgramFunctions.showRpt(rpt, "Rechnungsdruck", False) @@ -1398,11 +1412,19 @@ Public Class cFakturierung rpt.lblRgDatum.Text = CDate(RECHNUNG.RechnungsDatum).ToShortDateString If RECHNUNG.RechnungsDatum IsNot Nothing Then 'Muss zweimal vorkommen, Erstmaliger Druck - rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("", CDate(RECHNUNG.RechnungsDatum).AddDays(ZZTage).ToShortDateString) - rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("", CDate(RECHNUNG.RechnungsDatum).AddDays(ZZTage).ToShortDateString) + rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("", CDate(RECHNUNG.RechnungsDatum).AddDays(10).ToShortDateString) + rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("", CDate(RECHNUNG.RechnungsDatum).AddDays(ZZTage).ToShortDateString) + rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("", CDate(RECHNUNG.RechnungsDatum).AddDays(10).ToShortDateString) + rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("", CDate(RECHNUNG.RechnungsDatum).AddDays(ZZTageVL).ToShortDateString) + rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("", CDate(RECHNUNG.RechnungsDatum).AddDays(ZZTage).ToShortDateString) + rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("", CDate(RECHNUNG.RechnungsDatum).AddDays(ZZTageVL).ToShortDateString) Else - rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("", Now.AddDays(ZZTage).ToShortDateString) - rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("", Now.AddDays(ZZTage).ToShortDateString) + rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("", Now.AddDays(10).ToShortDateString) + rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("", Now.AddDays(ZZTage).ToShortDateString) + rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("", Now.AddDays(10).ToShortDateString) + rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("", Now.AddDays(ZZTage).ToShortDateString) + rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("", Now.AddDays(ZZTageVL).ToShortDateString) + rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("", Now.AddDays(ZZTageVL).ToShortDateString) End If Else @@ -1416,11 +1438,19 @@ Public Class cFakturierung Else If RECHNUNG.RechnungsDatum IsNot Nothing Then 'Muss zweimal vorkommen, Wiederholungsdruck - rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("", CDate(RECHNUNG.RechnungsDatum).AddDays(ZZTage).ToShortDateString) - rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("", CDate(RECHNUNG.RechnungsDatum).AddDays(ZZTage).ToShortDateString) + rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("", CDate(RECHNUNG.RechnungsDatum).AddDays(10).ToShortDateString) + rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("", CDate(RECHNUNG.RechnungsDatum).AddDays(ZZTage).ToShortDateString) + rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("", CDate(RECHNUNG.RechnungsDatum).AddDays(10).ToShortDateString) + rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("", CDate(RECHNUNG.RechnungsDatum).AddDays(ZZTageVL).ToShortDateString) + rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("", CDate(RECHNUNG.RechnungsDatum).AddDays(ZZTage).ToShortDateString) + rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("", CDate(RECHNUNG.RechnungsDatum).AddDays(ZZTageVL).ToShortDateString) Else - rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("", Now.AddDays(ZZTage).ToShortDateString) - rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("", Now.AddDays(ZZTage).ToShortDateString) + rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("", Now.AddDays(10).ToShortDateString) + rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("", Now.AddDays(ZZTage).ToShortDateString) + rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("", Now.AddDays(10).ToShortDateString) + rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("", Now.AddDays(ZZTage).ToShortDateString) + rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("", Now.AddDays(ZZTageVL).ToShortDateString) + rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("", Now.AddDays(ZZTageVL).ToShortDateString) End If If RECHNUNG.[DruckDatumZeit] Is Nothing Then diff --git a/SDL/Fakturierung/frmRechnungenSuche.vb b/SDL/Fakturierung/frmRechnungenSuche.vb index 0c60e68d..5312ca2c 100644 --- a/SDL/Fakturierung/frmRechnungenSuche.vb +++ b/SDL/Fakturierung/frmRechnungenSuche.vb @@ -530,29 +530,40 @@ Public Class frmRechnungenSuche Private Sub btnExcel_Click(sender As Object, e As EventArgs) Handles btnExcel.Click - Dim sqlstr As String = "" - ' Dim TopMax = If(IsNumeric(txtMaxSrch.Text), " TOP " & txtMaxSrch.Text, "") - sqlstr &= "SELECT RK_ID,[RechnungsNr],cast([RechnungsDatum] as date) RechnungsDatum, Sammelrechnung, [FilialenNr],[AbfertigungsNr],[UnterNr],cast(Abfertigungsdatum as date) Abfertigungsdatum, isnull(cast(RechnungsKundenNr as nvarchar(10)) + ' ','') + [RechnungsName 1] as [RechnungAn], " & - " isnull(cast([AbsenderKundenNr] as nvarchar(10)) + ' ','') + [AbsenderName 1] as Absender,isnull(cast([EmpfängerKundenNr] as nvarchar(10)) + ' ','') + [EmpfängerName 1] as Empfänger, isnull(cast([VermittlerKundenNr] as nvarchar(10)) + ' ','') + [VermittlerName 1] as Vermittler, [LKW Kennzeichen],Sachbearbeiter,[SteuerpflichtigerGesamtbetrag],[SteuerfreierGesamtbetrag] " & - " FROM [Rechnungsausgang] WHERE 1=1 " - Dim dt = SQL.loadDgvBySql_Param(sqlstr & getRechnungsAusgangWhere() & " ORDER BY Rechnungsdatum, RK_ID", "FMZOLL", , getSpedbuchList) - - Me.Cursor = Cursors.WaitCursor 'cProgramFunctions.genExcelFromDGV_NEW(DataGridView, False) If brexitXLS Then - cProgramFunctions.genExcelFromDT_NEW(dt, {"J1:J" & (dt.Rows.Count + 2), "L1:M" & (dt.Rows.Count + 2)},,,, "£") + cProgramFunctions.genExcelFromDT_NEW(DataGridView.DataSource, {"J1:J" & (DataGridView.DataSource.Rows.Count + 2), "L1:M" & (DataGridView.DataSource.Rows.Count + 2)},,,, "£") Else - cProgramFunctions.genExcelFromDT_NEW(dt, {"M1:N" & (dt.Rows.Count + 2)}) + cProgramFunctions.genExcelFromDT_NEW(DataGridView.DataSource, {"M1:N" & (DataGridView.DataSource.Rows.Count + 2)}) End If Me.Cursor = Cursors.Default + + + 'Dim sqlstr As String = "" + '' Dim TopMax = If(IsNumeric(txtMaxSrch.Text), " TOP " & txtMaxSrch.Text, "") + 'sqlstr &= "SELECT RK_ID,[RechnungsNr],cast([RechnungsDatum] as date) RechnungsDatum, Sammelrechnung, [FilialenNr],[AbfertigungsNr],[UnterNr],cast(Abfertigungsdatum as date) Abfertigungsdatum, isnull(cast(RechnungsKundenNr as nvarchar(10)) + ' ','') + [RechnungsName 1] as [RechnungAn], " & + ' " isnull(cast([AbsenderKundenNr] as nvarchar(10)) + ' ','') + [AbsenderName 1] as Absender,isnull(cast([EmpfängerKundenNr] as nvarchar(10)) + ' ','') + [EmpfängerName 1] as Empfänger, isnull(cast([VermittlerKundenNr] as nvarchar(10)) + ' ','') + [VermittlerName 1] as Vermittler, [LKW Kennzeichen],Sachbearbeiter,[SteuerpflichtigerGesamtbetrag],[SteuerfreierGesamtbetrag] " & + ' " FROM [Rechnungsausgang] WHERE 1=1 " + 'Dim dt = SQL.loadDgvBySql_Param(sqlstr & getRechnungsAusgangWhere() & " ORDER BY Rechnungsdatum, RK_ID", "FMZOLL", , getSpedbuchList) + + + + 'Me.Cursor = Cursors.WaitCursor + ''cProgramFunctions.genExcelFromDGV_NEW(DataGridView, False) 'If brexitXLS Then - ' cProgramFunctions.genExcelFromDT_NEW(DataGridView.DataSource, {"J1:J" & (DataGridView.DataSource.Rows.Count + 2), "L1:M" & (DataGridView.DataSource.Rows.Count + 2)},,,, "£") + ' cProgramFunctions.genExcelFromDT_NEW(dt, {"J1:J" & (dt.Rows.Count + 2), "L1:M" & (dt.Rows.Count + 2)},,,, "£") 'Else - ' cProgramFunctions.genExcelFromDT_NEW(DataGridView.DataSource, {"M1:N" & (DataGridView.DataSource.Rows.Count + 2)}) + ' cProgramFunctions.genExcelFromDT_NEW(dt, {"M1:N" & (dt.Rows.Count + 2)}) 'End If 'Me.Cursor = Cursors.Default + ''If brexitXLS Then + '' cProgramFunctions.genExcelFromDT_NEW(DataGridView.DataSource, {"J1:J" & (DataGridView.DataSource.Rows.Count + 2), "L1:M" & (DataGridView.DataSource.Rows.Count + 2)},,,, "£") + ''Else + '' cProgramFunctions.genExcelFromDT_NEW(DataGridView.DataSource, {"M1:N" & (DataGridView.DataSource.Rows.Count + 2)}) + ''End If + ''Me.Cursor = Cursors.Default End Sub Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click @@ -800,9 +811,11 @@ Public Class frmRechnungenSuche /*and Rechnungsausgang.SteuerpflichtigerGesamtbetrag<>0*/ /*and Leistungen.Steuerpflichtig=1*/ and (Leistungen.Abfertigungskosten=1 or Leistungen.LeistungsNr IN (656,425)) - and RechnungsausgangPositionen.LeistungsNr NOT IN (700,710,750,751) + and RechnungsausgangPositionen.LeistungsNr NOT IN (700,710,750,751,20,60,61) and Firma_ID=26 " + + MsgBox(sqlStr & getRechnungsAusgangWhere() & " order by [RechnungsDatum],RechnungsNr,RechnungsausgangPositionen.LeistungsNr") .SET_SQL(sqlStr & getRechnungsAusgangWhere() & " order by [RechnungsDatum],RechnungsNr,RechnungsausgangPositionen.LeistungsNr", "FMZOLL", getSpedbuchList) .LOAD() diff --git a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungspreise.vb b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungspreise.vb index f6309b9d..1301cf94 100644 --- a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungspreise.vb +++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungspreise.vb @@ -86,6 +86,7 @@ 'MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung EV", "VZ_EV")) ' MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung Rückware", "VZ_RW")) MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VZ Gemüse,Arznei,Lebensmittel", "VZ_SPECIAL_1")) + MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VZ Lebensmittel Backwaren", "VZ_SPECIAL_2")) MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("nur EUST", "EUST")) 'If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("FISKAL_Preise", Me.FindForm) Then MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung Fiskal AT", "VZ_FISKAL")) @@ -100,6 +101,7 @@ cboFirma.changeItem("AMBAR") MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung", "VZ")) MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VZ Gemüse,Arznei,Lebensmittel", "VZ_SPECIAL_1")) + MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VZ Lebensmittel Backwaren", "VZ_SPECIAL_2")) MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung Rückware", "VZ_RW")) MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung Fiskal DE", "VZ_FISKAL_DE")) MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("T1", "VZ")) @@ -114,6 +116,7 @@ ' MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung Rückware", "VZ_RW")) MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("nur EUST", "EUST")) MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VZ Gemüse,Arznei,Lebensmittel", "VZ_SPECIAL_1")) + MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VZ Lebensmittel Backwaren", "VZ_SPECIAL_2")) If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("FISKAL_Preise", Me.FindForm) Then MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung Fiskal AT", "VZ_FISKAL")) @@ -277,7 +280,7 @@ ' cboFirma.changeItem("AG") Case "VZ_SPECIAL_1" '"VZ Gemüse,Arznei,Lebensmittel" - DataGridView.Rows.Add(cnt, "", "Verzollung (inkl. 1 Tarifnummer)", CDbl(139).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "", "Verzollung Gemüse/Arznei/Lebensmittel (inkl. 1 Tarifnummer)", CDbl(198).ToString("C2")) : cnt += 1 DataGridView.Rows.Add(cnt, "", "je weitere Tarifnummer", CDbl(18).ToString("C2")) : cnt += 1 DataGridView.Rows.Add(cnt, "440", "Fixe Taxe", CDbl(15).ToString("C2")) : cnt += 1 DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1 @@ -286,6 +289,24 @@ DataGridView.Rows.Add(cnt, "750", "2 % Kreditaufwendung (von Einfuhrabgaben)", "") : cnt += 1 + dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (EINMALIG nur bei 1. Abfertigung)", CDbl(80).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "", "Korr. Rechnung anfordern", CDbl(25).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "380", "Übersetzung Rechnung", CDbl(1.5).ToString("C2") & "/min") + + dgvZusatzleistung.Rows.Add("", "", "Aufschlag Rückwarenverzollung/Aktive Veredelung", CDbl(17).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "", "Neutralisierung", CDbl(15).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "348", "Avisokosten (Vorkasse)", CDbl(24).ToString("C2")) + + Case "VZ_SPECIAL_2" '"VZ Backwaren" + DataGridView.Rows.Add(cnt, "", "Verzollung Lebensmittel Backwaren (inkl. 1 Tarifnummer)", CDbl(298).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "", "je weitere Tarifnummer", CDbl(25).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "440", "Fixe Taxe", CDbl(15).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1 + DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Zuschlag", CDbl(8).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "700", "1 % Vorlageprovision (von Einfuhrabgaben)", "") : cnt += 1 + DataGridView.Rows.Add(cnt, "750", "2 % Kreditaufwendung (von Einfuhrabgaben)", "") : cnt += 1 + + dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (EINMALIG nur bei 1. Abfertigung)", CDbl(80).ToString("C2")) dgvZusatzleistung.Rows.Add("", "", "Korr. Rechnung anfordern", CDbl(25).ToString("C2")) dgvZusatzleistung.Rows.Add("", "380", "Übersetzung Rechnung", CDbl(1.5).ToString("C2") & "/min") @@ -374,7 +395,7 @@ DataGridView.Rows.Add(cnt, "", "T1/T2 Abfertigung", CDbl(60).ToString("C2")) : cnt += 1 Case "VZ_SPECIAL_1" '"VZ Gemüse,Arznei,Lebensmittel" - DataGridView.Rows.Add(cnt, "", "Verzollung (inkl. 1 Tarifnummer)", CDbl(158).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "", "Verzollung Gemüse,Arznei,Lebensmittel (inkl. 1 Tarifnummer)", CDbl(198).ToString("C2")) : cnt += 1 DataGridView.Rows.Add(cnt, "", "je weitere Tarifnummer", CDbl(18).ToString("C2")) : cnt += 1 DataGridView.Rows.Add(cnt, "", "Aviso", CDbl(20).ToString("C2")) : cnt += 1 DataGridView.Rows.Add(cnt, "440", "Fixe Taxe", CDbl(15).ToString("C2")) : cnt += 1 @@ -386,6 +407,27 @@ DataGridView.Rows.Add(cnt, "750", "2 % Kreditaufwendung (von Einfuhrabgaben)", "") : cnt += 1 + dgvZusatzleistung.Rows.Add("", "347", "Clearingkosten (EINMALIG nur bei 1. Abfertigung)", CDbl(40).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "", "Korr. Rechnung anfordern", CDbl(25).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "380", "Übersetzung Rechnung", CDbl(1.5).ToString("C2") & "/min") + + dgvZusatzleistung.Rows.Add("", "", "Aufschlag Rückwarenverzollung/Aktive Veredelung", CDbl(17).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "348", "Fremdgrenze", CDbl(20).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "", "Neutralisierung", CDbl(15).ToString("C2")) + + Case "VZ_SPECIAL_2" '"VZ Backwaren" + DataGridView.Rows.Add(cnt, "", "Verzollung Backwaren (inkl. 1 Tarifnummer)", CDbl(298).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "", "je weitere Tarifnummer", CDbl(25).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "", "Aviso", CDbl(20).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "440", "Fixe Taxe", CDbl(15).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "440", "Papiere Porti", CDbl(10).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "440", "Sonstige Kosten*", CDbl(40).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1 + DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Zuschlag", CDbl(10).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "700", "1 % Vorlageprovision (von Einfuhrabgaben)", "") : cnt += 1 + DataGridView.Rows.Add(cnt, "750", "2 % Kreditaufwendung (von Einfuhrabgaben)", "") : cnt += 1 + + dgvZusatzleistung.Rows.Add("", "347", "Clearingkosten (EINMALIG nur bei 1. Abfertigung)", CDbl(40).ToString("C2")) dgvZusatzleistung.Rows.Add("", "", "Korr. Rechnung anfordern", CDbl(25).ToString("C2")) ' dgvZusatzleistung.Rows.Add("", "380", "Übersetzung Rechnung", CDbl(1.5).ToString("C2") & "/min") @@ -525,7 +567,7 @@ cboFirma.changeItem("AG") Case "VZ_SPECIAL_1" '"VZ Gemüse,Arznei,Lebensmittel" - DataGridView.Rows.Add(cnt, "", "Verzollung (inkl. 1 Tarifnummer)", CDbl(168).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "", "Verzollung Gemüse,Arznei,Lebensmittel (inkl. 1 Tarifnummer)", CDbl(198).ToString("C2")) : cnt += 1 DataGridView.Rows.Add(cnt, "", "je weitere Tarifnummer", CDbl(18).ToString("C2")) : cnt += 1 DataGridView.Rows.Add(cnt, "440", "Fixe Taxe", CDbl(15).ToString("C2")) : cnt += 1 DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1 @@ -534,6 +576,27 @@ DataGridView.Rows.Add(cnt, "750", "2 % Kreditaufwendung (von Einfuhrabgaben)", "") : cnt += 1 + dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (EINMALIG nur bei 1. Abfertigung)", CDbl(80).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "", "Korr. Rechnung anfordern", CDbl(25).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "380", "Übersetzung Rechnung", CDbl(1.5).ToString("C2") & "/min") + + dgvZusatzleistung.Rows.Add("", "", "Aufschlag Rückwarenverzollung/Aktive Veredelung", CDbl(17).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "", "Neutralisierung", CDbl(15).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "", "Zollbeschaukosten je 30 min.", CDbl(40).ToString("C2")) + 'dgvZusatzleistung.Rows.Add("", "", "Aufschlag Arzneiwaren oder Lebensmittel", CDbl(25).ToString("C2")) + 'dgvZusatzleistung.Rows.Add("", "", "CMR-Versendungsbeleg", CDbl(25).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "", "Ü-T1", CDbl(15).ToString("C2")) + 'dgvZusatzleistung.Rows.Add("", "", "VERAG Warenort", CDbl(60).ToString("C2")) + Case "VZ_SPECIAL_2" '"VZ Gemüse,Arznei,Lebensmittel" + DataGridView.Rows.Add(cnt, "", "Verzollung Lebensmittel Backwaren (inkl. 1 Tarifnummer)", CDbl(298).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "", "je weitere Tarifnummer", CDbl(25).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "440", "Fixe Taxe", CDbl(15).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1 + DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Zuschlag", CDbl(10).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "700", "1 % Vorlageprovision (von Einfuhrabgaben)", "") : cnt += 1 + DataGridView.Rows.Add(cnt, "750", "2 % Kreditaufwendung (von Einfuhrabgaben)", "") : cnt += 1 + + dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (EINMALIG nur bei 1. Abfertigung)", CDbl(80).ToString("C2")) dgvZusatzleistung.Rows.Add("", "", "Korr. Rechnung anfordern", CDbl(25).ToString("C2")) dgvZusatzleistung.Rows.Add("", "380", "Übersetzung Rechnung", CDbl(1.5).ToString("C2") & "/min") diff --git a/SDL/OriginalArchiv_ATR/frmATR.vb b/SDL/OriginalArchiv_ATR/frmATR.vb index ca5c9c8d..d00c6dae 100644 --- a/SDL/OriginalArchiv_ATR/frmATR.vb +++ b/SDL/OriginalArchiv_ATR/frmATR.vb @@ -58,6 +58,8 @@ Public Class frmATR getValues() 'Falls keine Sendung gewählt, aber FilialeNr/AbfertigungsNr eingegeben: + + If ATR.atr_SendungsId <= 0 And ATR.atr_FilialenNr > 0 And ATR.atr_AbfertigungsNr > 0 Then 'Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL Dim SND = VERAG_PROG_ALLGEMEIN.cSendungen.LOADByFilialenNrAbfertigungsNr(ATR.atr_FilialenNr, ATR.atr_AbfertigungsNr) @@ -67,7 +69,7 @@ Public Class frmATR End If End If - If (ATR.atr_SendungsId > 0 AndAlso ATR.atr_dsId > 0) Or (loadedDSID <> DSID And loadedDSID > 0) Then + If (ATR.atr_SendungsId > 0 AndAlso ATR.atr_dsId > 0) And (loadedDSID <> DSID Or loadedDSID <= 0) Then If vbYes = MsgBox("ATR in Anhang speichern?", vbYesNoCancel) Then If ATR.atr_dsId < 0 Then MsgBox("Kein PDF-Anhang!") @@ -81,6 +83,7 @@ Public Class frmATR ANH.anh_Art = "ATR" ANH.SAVE() 'Eintrag wird überschreiben ATR.atr_anhID = ANH.anh_id + insertVermerkATR(ATR) End If End If @@ -95,6 +98,14 @@ Public Class frmATR Me.DialogResult = DialogResult.None End Sub + Shared Sub insertVermerkATR(ATR As VERAG_PROG_ALLGEMEIN.cOrigianlATR) + + Dim VermerkeCodeID = 110 + VERAG_PROG_ALLGEMEIN.cVermerkeDAL.DeleteSNDVermerkCode(ATR.atr_SendungsId, VermerkeCodeID) 'Alte löschen! + Dim vermerkId = VERAG_PROG_ALLGEMEIN.cVermerkeDAL.insertSendungsVermerk(ATR.atr_SendungsId, ATR.atr_AvisoId, "ATR-Archiv", VermerkeCodeID) + If vermerkId > 0 Then VERAG_PROG_ALLGEMEIN.cVermerkeDAL.toggleHervorheben(vermerkId) 'Hervorheben! + + End Sub Function doValidation() As Boolean lblErr_Ausstellungsdatum.Visible = False @@ -135,8 +146,8 @@ Public Class frmATR txtDocNumber.Text = If(ATR.atr_documentNr, "") txtDocDatum._value = If(ATR.atr_austellungsdatum, "") txtKennzeichen.Text = If(ATR.atr_LKW, "") - txtFiliale.Text = If(ATR.atr_FilialenNr > 0, ATR.atr_FilialenNr, "") - txtAbfNr.Text = If(ATR.atr_AbfertigungsNr > 0, ATR.atr_AbfertigungsNr, "") + txtFiliale._value = If(ATR.atr_FilialenNr > 0, ATR.atr_FilialenNr, "") + txtAbfNr._value = If(ATR.atr_AbfertigungsNr > 0, ATR.atr_AbfertigungsNr, "") sbAvisoSuche.SET_VALUE(ATR.atr_SendungsId) @@ -167,7 +178,7 @@ Public Class frmATR If txtAbfNr._value <> "" Then ATR.atr_AbfertigungsNr = txtAbfNr._value ATR.atr_LKW = txtKennzeichen.Text - ATR.atr_SendungsId = sbAvisoSuche._value + ATR.atr_SendungsId = If(sbAvisoSuche._value <> "", sbAvisoSuche._value, -1) If sbAvisoSuche._value <> "" Then Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL ATR.atr_AvisoId = SQL.DLookup("tblSnd_AvisoId", "tblSendungen", " tblSnd_SendungID='" & sbAvisoSuche._value & "'", "AVISO", -1) @@ -262,17 +273,20 @@ Public Class frmATR Private Sub sbAvisoSuche_TextChanged() Handles sbAvisoSuche.VALUE_CHANGED txtFiliale.Text = "" txtAbfNr.Text = "" - Dim SND As New VERAG_PROG_ALLGEMEIN.cSendungen(sbAvisoSuche._value) - If SND IsNot Nothing Then - Dim AVISO = VERAG_PROG_ALLGEMEIN.cAviso.getAvisoById(SND.tblSnd_AvisoID) - txtFiliale.Text = SND.FilialenNr - txtAbfNr.Text = SND.AbfertigungsNr - lblLKWId.Text = SND.tblSnd_AvisoID - If AVISO IsNot Nothing Then - txtKennzeichen.Text = AVISO.LKW_Nr + If sbAvisoSuche._value <> "" Then + + Dim SND As New VERAG_PROG_ALLGEMEIN.cSendungen(sbAvisoSuche._value) + If SND IsNot Nothing Then + Dim AVISO = VERAG_PROG_ALLGEMEIN.cAviso.getAvisoById(SND.tblSnd_AvisoID) + txtFiliale._value = SND.FilialenNr + txtAbfNr._value = SND.AbfertigungsNr + lblLKWId.Text = SND.tblSnd_AvisoID + If AVISO IsNot Nothing Then + txtKennzeichen.Text = AVISO.LKW_Nr + End If + ' lblKennzeichen.Visible = True + lblLKWId.Visible = True End If - ' lblKennzeichen.Visible = True - lblLKWId.Visible = True End If End Sub diff --git a/SDL/OriginalArchiv_ATR/frmOriginalArchiv_ATR.vb b/SDL/OriginalArchiv_ATR/frmOriginalArchiv_ATR.vb index e0dc0d16..5e66e5ea 100644 --- a/SDL/OriginalArchiv_ATR/frmOriginalArchiv_ATR.vb +++ b/SDL/OriginalArchiv_ATR/frmOriginalArchiv_ATR.vb @@ -402,6 +402,7 @@ Public Class frmOriginalArchiv_ATR ATR.atr_FilialenNr = SND.FilialenNr ATR.atr_AbfertigungsNr = SND.AbfertigungsNr If ATR.SAVE() Then + frmATR.insertVermerkATR(ATR) Me.Close() End If End If diff --git a/SDL/kunden/usrcntlKundeBearbeitenFull.Designer.vb b/SDL/kunden/usrcntlKundeBearbeitenFull.Designer.vb index c795b3f6..3fc1fd3c 100644 --- a/SDL/kunden/usrcntlKundeBearbeitenFull.Designer.vb +++ b/SDL/kunden/usrcntlKundeBearbeitenFull.Designer.vb @@ -337,6 +337,8 @@ Partial Class usrcntlKundeBearbeitenFull Me.cboFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.cboAuswahl = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.txtAbwZZVL = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label101 = New System.Windows.Forms.Label() Me.tbcntrDetails.SuspendLayout() Me.tbAbfertigung.SuspendLayout() Me.tbcntrAbf.SuspendLayout() @@ -1056,6 +1058,8 @@ Partial Class usrcntlKundeBearbeitenFull ' 'tbVerrechnung ' + Me.tbVerrechnung.Controls.Add(Me.Label101) + Me.tbVerrechnung.Controls.Add(Me.txtAbwZZVL) Me.tbVerrechnung.Controls.Add(Me.cbxSndDatenAusSTB) Me.tbVerrechnung.Controls.Add(Me.Label95) Me.tbVerrechnung.Controls.Add(Me.cbxSammelrechnungBerichtLeistungsdetails) @@ -4519,6 +4523,40 @@ Partial Class usrcntlKundeBearbeitenFull Me.DataGridViewTextBoxColumn2.HeaderText = "E-Mail" Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2" ' + 'txtAbwZZVL + ' + Me.txtAbwZZVL._DateTimeOnly = False + Me.txtAbwZZVL._numbersOnly = True + Me.txtAbwZZVL._numbersOnlyKommastellen = "" + Me.txtAbwZZVL._numbersOnlyTrennzeichen = True + Me.txtAbwZZVL._Prozent = False + Me.txtAbwZZVL._ShortDateNew = False + Me.txtAbwZZVL._ShortDateOnly = False + Me.txtAbwZZVL._TimeOnly = False + Me.txtAbwZZVL._TimeOnly_Seconds = False + Me.txtAbwZZVL._value = "" + Me.txtAbwZZVL._Waehrung = False + Me.txtAbwZZVL._WaehrungZeichen = True + Me.txtAbwZZVL.ForeColor = System.Drawing.Color.Red + Me.txtAbwZZVL.Location = New System.Drawing.Point(191, 66) + Me.txtAbwZZVL.MaxLength = 10 + Me.txtAbwZZVL.MaxLineLength = -1 + Me.txtAbwZZVL.MaxLines_Warning = "" + Me.txtAbwZZVL.MaxLines_Warning_Label = Nothing + Me.txtAbwZZVL.Name = "txtAbwZZVL" + Me.txtAbwZZVL.Size = New System.Drawing.Size(60, 20) + Me.txtAbwZZVL.TabIndex = 41 + Me.txtAbwZZVL.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + ' + 'Label101 + ' + Me.Label101.AutoSize = True + Me.Label101.Location = New System.Drawing.Point(191, 53) + Me.Label101.Name = "Label101" + Me.Label101.Size = New System.Drawing.Size(50, 13) + Me.Label101.TabIndex = 42 + Me.Label101.Text = "abw. ZZ:" + ' 'usrcntlKundeBearbeitenFull ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) @@ -4907,4 +4945,6 @@ Partial Class usrcntlKundeBearbeitenFull Friend WithEvents Label100 As Label Friend WithEvents txtAdresseZusatz As TextBox Friend WithEvents PictureBox5 As PictureBox + Friend WithEvents Label101 As Label + Friend WithEvents txtAbwZZVL As VERAG_PROG_ALLGEMEIN.MyTextBox End Class diff --git a/SDL/kunden/usrcntlKundeBearbeitenFull.vb b/SDL/kunden/usrcntlKundeBearbeitenFull.vb index 9968c4dd..5c0ff564 100644 --- a/SDL/kunden/usrcntlKundeBearbeitenFull.vb +++ b/SDL/kunden/usrcntlKundeBearbeitenFull.vb @@ -218,6 +218,7 @@ Public Class usrcntlKundeBearbeitenFull txtAbf_Bankspesen._value = loadValue(KUNDE.Bankspesen, "") txtAbf_BankspesenMindestbetrag._value = loadValue(KUNDE.Bankspesen_Mindestbetrag, "") txtVers_Kreditlimit.Text = loadValue(KUNDE.Kreditlimit, "") + txtAbwZZVL.Text = loadValue(KUNDE_ERW.kde_abweichendesZZVL, "") txtAbf_Zahlungsziel.Text = loadValue(KUNDE.Zahlungsziel, "") txtAbf_Zahlungsziel2.Text = loadValue(KUNDE_ERW.Zahlungsziel2, "") txtAbf_Zahlungsziel3.Text = loadValue(KUNDE_ERW.Zahlungsziel3, "") @@ -514,6 +515,7 @@ Public Class usrcntlKundeBearbeitenFull KUNDE.Bankspesen_Mindestbetrag = If(IsNumeric(txtAbf_BankspesenMindestbetrag._value), CDbl(txtAbf_BankspesenMindestbetrag._value), 0) KUNDE.Kreditlimit = txtVers_Kreditlimit.Text + KUNDE_ERW.kde_abweichendesZZVL = If(txtAbwZZVL._value <> "" And IsNumeric(txtAbwZZVL._value), txtAbwZZVL._value, Nothing) KUNDE.Zahlungsziel = txtAbf_Zahlungsziel.Text KUNDE_ERW.Zahlungsziel2 = isLeerNothing(txtAbf_Zahlungsziel2.Text) diff --git a/VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb b/VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb index bc6d1749..d03e3795 100644 --- a/VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb +++ b/VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb @@ -1988,7 +1988,30 @@ Public Class cVermerkeDAL End Function + Shared Function insertSendungsVermerk(SendungID As Integer, AvisoID As Integer, Text As String, VermerkCodeId As Integer, Optional Beschreibung As String = "", Optional VorauskasseId As Object = Nothing, Optional addAuto As Boolean = False) As Integer + 'Daten zuweisen und speichern + Dim myVermerk As New cVermerk + myVermerk.VermerkID = 0 + myVermerk.AvisoID = AvisoID + myVermerk.Datum = Now + myVermerk.Mitarbeiter = cGlobal.AktiverMitarbeiter.Mitarbeiter & If(addAuto, " (AUTO)", "") + myVermerk.MitarbeiterId = cGlobal.AktiverMitarbeiter.MitarbeiterID + myVermerk.Hinweis_Vermerk = Text + myVermerk.VermerkCodeId = VermerkCodeId + 'myVermerk.her = VermerkCodeId + myVermerk.SendungID = SendungID + If VorauskasseId IsNot Nothing AndAlso VorauskasseId IsNot DBNull.Value Then myVermerk.VorauskasseId = VorauskasseId + myVermerk.VermerkArt = "S" + Dim VermerkeDAL As New cVermerkeDAL + insertSendungsVermerk = VermerkeDAL.SpeichernVermerk(myVermerk) + + If myVermerk.VermerkCodeId = 18 Then + VermerkeDAL.UpdateLKW(myVermerk.AvisoID, False) + + End If + + End Function Public Function loadTableMyAviso(maId As Integer) As DataTable ' While True 'Endlosschleife; wird verlassen durch Return oder Application.Exit() Try @@ -2263,7 +2286,7 @@ Public Class cVermerkeDAL End Sub - Public Sub toggleHervorheben(ByVal hID As Integer) + Public Shared Sub toggleHervorheben(ByVal hID As Integer) Dim sql = String.Format("UPDATE Vermerke SET Hervorheben=Hervorheben-1 WHERE VermerkID = {0}", hID) Dim conn As SqlConnection = cDatenbankAVISO.GetNewOpenConnection() @@ -2276,6 +2299,21 @@ Public Class cVermerkeDAL End Using conn.Close() + End Sub + + Public Shared Sub DeleteSNDVermerkCode(ByVal SendungID As Integer, VermerkeCode As Integer) + Dim sql = "DELETE Vermerke WHERE VermerkeCode = '" & VermerkeCode & "' and SendungID= '" & SendungID & "'" + + Dim conn As SqlConnection = cDatenbankAVISO.GetNewOpenConnection() + Using cmd As New SqlCommand(sql, conn) + Try + cmd.ExecuteNonQuery() + Catch ex As SqlException + MsgBox("Hervorheben kann nicht gesetzt werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Hervorheben") + End Try + End Using + conn.Close() + End Sub Public Function Vermerke_einlesen(hAvisoID As Integer) As String 'falls ID mitgegeben, dann diese laden, ansonsten den anderen Wert suchen diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cKundenErweitert.vb b/VERAG_PROG_ALLGEMEIN/Classes/cKundenErweitert.vb index 695558a3..df2490fb 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cKundenErweitert.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cKundenErweitert.vb @@ -76,6 +76,7 @@ Public Class cKundenErweitert Property kde_Abrechnung_SendungsdatenAusSTB As Boolean = False Property kde_EORIgeprueftAm As Object = Nothing Property kde_AdressZusatz As Object = Nothing + Property kde_abweichendesZZVL As Object = Nothing Dim SQL As New SQL @@ -153,6 +154,7 @@ Public Class cKundenErweitert list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_UIDMehrfachverwendung", kde_UIDMehrfachverwendung)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_EORIgeprueftAm", kde_EORIgeprueftAm)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_AdressZusatz", kde_AdressZusatz)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_abweichendesZZVL", kde_abweichendesZZVL)) Return list End Function diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cOriginalATR.vb b/VERAG_PROG_ALLGEMEIN/Classes/cOriginalATR.vb index 65e0fea0..595ea8ce 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cOriginalATR.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cOriginalATR.vb @@ -14,8 +14,8 @@ Public Class cOrigianlATR Property atr_empfaengerkdnr As Integer = -1 Property atr_absenderkdnr As Integer = -1 Property atr_austellungsdatum As Object = Nothing - Property atr_AvisoId As Object = Nothing - Property atr_SendungsId As Object = Nothing + Property atr_AvisoId As Integer = -1 + Property atr_SendungsId As Integer = -1 Property atr_LKW As Object = Nothing Property atr_dsId As Object = Nothing Property atr_DHL_ReferenzNr As Object = Nothing diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cTrdInvoice.vb b/VERAG_PROG_ALLGEMEIN/Classes/cTrdInvoice.vb index c0942ed9..42b74f4d 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cTrdInvoice.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cTrdInvoice.vb @@ -614,8 +614,9 @@ Class TrdInvoice_FUNCTIONS Count(1) AS RK_Satzzähler FROM Rechnungsausgang INNER JOIN RechnungsausgangPositionen ON Rechnungsausgang.RK_ID = RechnungsausgangPositionen.RK_ID WHERE (((Rechnungsausgang.RechnungsDatum) Is Not Null) AND ((Rechnungsausgang.RechnungsNr) Is Not Null) AND ((Rechnungsausgang.Trdin)=0)) " & If(Firma > 0, " and Firma_ID=" & Firma, "") & If(Buchungsjahr > 0, " and Buchungsjahr=" & Buchungsjahr, "") & " - GROUP BY Rechnungsausgang.RechnungsDatum, Rechnungsausgang.RechnungsNr + GROUP BY Rechnungsausgang.RechnungsDatum, Rechnungsausgang.RechnungsNr ORDER BY Rechnungsausgang.RechnungsDatum, Rechnungsausgang.RechnungsNr, min(Rechnungsausgang.Abfertigungsdatum), min(Rechnungsausgang.FilialenNr), min(Rechnungsausgang.AbfertigungsNr), min(Rechnungsausgang.UnterNr);" + '" & If(Firma = 4, " and Rechnungsausgang.RechnungsNr='23800029'", "") & " End Function diff --git a/VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.Designer.vb b/VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.Designer.vb index 248466b5..5d1e86b9 100644 --- a/VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.Designer.vb +++ b/VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.Designer.vb @@ -24,7 +24,6 @@ Partial Class frmMessenger 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. _ Private Sub InitializeComponent() - Me.components = New System.ComponentModel.Container() Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() @@ -39,11 +38,11 @@ Partial Class frmMessenger Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMessenger)) Me.SplitContainer = New System.Windows.Forms.SplitContainer() Me.SplitContainer2 = New System.Windows.Forms.SplitContainer() - Me.dgvChats = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) + Me.dgvChats = New VERAG_PROG_ALLGEMEIN.MyDatagridview() Me.Panel6 = New System.Windows.Forms.Panel() Me.lblLKWChat_MsgCntInaktiv = New System.Windows.Forms.Label() Me.cbxInaktiveChats = New System.Windows.Forms.CheckBox() - Me.DGVSonstige = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) + Me.DGVSonstige = New VERAG_PROG_ALLGEMEIN.MyDatagridview() Me.Panel5 = New System.Windows.Forms.Panel() Me.MyTextBox2 = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.PictureBox2 = New System.Windows.Forms.PictureBox() @@ -64,7 +63,7 @@ Partial Class frmMessenger Me.btnNeu = New System.Windows.Forms.Button() Me.Button1 = New System.Windows.Forms.Button() Me.SplitContainer1 = New System.Windows.Forms.SplitContainer() - Me.MyFlowLayoutPanel1 = New VERAG_PROG_ALLGEMEIN.MyFlowLayoutPanel(Me.components) + Me.MyFlowLayoutPanel1 = New VERAG_PROG_ALLGEMEIN.MyFlowLayoutPanel() Me.UsrCntlMessenger_ChatElement1 = New VERAG_PROG_ALLGEMEIN.usrCntlMessenger_ChatElement() Me.Panel3 = New System.Windows.Forms.Panel() Me.btnTeilnehmer = New System.Windows.Forms.Button() @@ -92,9 +91,9 @@ Partial Class frmMessenger Me.btnSendAtt = New System.Windows.Forms.Button() Me.btnSenden = New System.Windows.Forms.Button() Me.rtbChatMessage = New System.Windows.Forms.RichTextBox() - Me.TimerNEW_MESSAGE = New System.Windows.Forms.Timer(Me.components) - Me.Timer_REFRESH = New System.Windows.Forms.Timer(Me.components) - Me.cntxt = New System.Windows.Forms.ContextMenuStrip(Me.components) + Me.TimerNEW_MESSAGE = New System.Windows.Forms.Timer() + Me.Timer_REFRESH = New System.Windows.Forms.Timer() + Me.cntxt = New System.Windows.Forms.ContextMenuStrip() Me.ChatDeaktivierenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.toolChatReminder = New System.Windows.Forms.ToolStripMenuItem() Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn() diff --git a/VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb b/VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb index dda71b88..bc57ccd9 100644 --- a/VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb +++ b/VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb @@ -493,19 +493,23 @@ Public Class cProgramFunctions End Sub Public Shared Function getFilePathTypeValid(filePath) As String - Dim fi As New FileInfo(filePath) - Dim filename = fi.Name - Dim Typ = "" - Select Case fi.Extension.ToString.Replace(".", "").ToUpper - Case "PDF" : Typ = "PDF" - Case "XLS", "XLM", "XLSM", "XLSX", "CSV" : Typ = "EXCEL" - Case "DOC", "DOCX" : Typ = "WORD" - Case "TXT" : Typ = "TEXT" - Case "JPEG", "JPG", "GIF", "TFF" : Typ = "BILD" - Case "EXE" : MsgBox("Aviso-Anhänge: Ungültiges Datei-Format!") : Return False - Case Else : Typ = "SONSTIGES" - End Select + If filePath <> "" Then + + Dim fi As New FileInfo(filePath) + Dim filename = fi.Name + + + Select Case fi.Extension.ToString.Replace(".", "").ToUpper + Case "PDF" : Typ = "PDF" + Case "XLS", "XLM", "XLSM", "XLSX", "CSV" : Typ = "EXCEL" + Case "DOC", "DOCX" : Typ = "WORD" + Case "TXT" : Typ = "TEXT" + Case "JPEG", "JPG", "GIF", "TFF" : Typ = "BILD" + Case "EXE" : MsgBox("Aviso-Anhänge: Ungültiges Datei-Format!") : Return False + Case Else : Typ = "SONSTIGES" + End Select + End If Return Typ End Function From 39dd8a05011151734b9159817a311c3f2ebb17a1 Mon Sep 17 00:00:00 2001 From: Andreas Luxbauer Date: Mon, 26 Feb 2024 12:42:52 +0100 Subject: [PATCH 2/5] CBAM --- SDL/Administration/frmKasseAbschliessen.vb | 4 +- SDL/Classes/cRKSV.vb | 31 +- SDL/Fakturierung/cFakturierung.vb | 25 +- SDL/Fakturierung/frmRechnungenSuche.vb | 19 +- SDL/My Project/AssemblyInfo.vb | 4 +- SDL/My Project/Resources.Designer.vb | 20 + SDL/My Project/Resources.resx | 136 +- SDL/OriginalArchiv_ATR/frmATR.Designer.vb | 96 +- SDL/OriginalArchiv_ATR/frmATR.vb | 10 +- .../frmOriginalArchiv_ATR.Designer.vb | 667 +- .../frmOriginalArchiv_ATR.vb | 31 +- SDL/Reports/Zoll/rptKontrolleLKW_Dakosy.vb | 2 +- SDL/Reports/Zoll/rptKontrolleLKW_TELOTEC.vb | 4 +- SDL/Resources/air-pollution.png | Bin 0 -> 27617 bytes SDL/Resources/cbam_s.png | Bin 0 -> 2251 bytes SDL/SDL.vbproj | 20 + .../frmKundenUebersichtZOLL.Designer.vb | 123 +- SDL/kunden/frmKundenUebersichtZOLL.vb | 27 +- SDL/kunden/usrCntlCBAM.Designer.vb | 646 ++ SDL/kunden/usrCntlCBAM.resx | 123 + SDL/kunden/usrCntlCBAM.vb | 570 ++ .../usrCntlAuswertungenCBAM_DE.Designer.vb | 266 + SDL/zoll/usrCntlAuswertungenCBAM_DE.resx | 120 + SDL/zoll/usrCntlAuswertungenCBAM_DE.vb | 241 + SDL/zoll/usrCntlZOLLAuswertungen.Designer.vb | 190 +- SDL/zoll/usrCntlZOLLAuswertungen.vb | 4 +- .../MySearchBox.vb | 4 +- VERAG_PROG_ALLGEMEIN/Classes/SQL.vb | 4 +- .../Classes/cAvisoStatusMails.vb | 128 + .../Classes/cKundenErweitert.vb | 2 +- .../Messenger/frmMessenger.vb | 1 + .../CBAM/QReport_v17.00.Designer.vb | 8407 +++++++++++++++++ .../Schnittstellen/CBAM/QReport_v17.00.xsd | 364 + .../Schnittstellen/CBAM/stypes.xsd | 202 + .../Schnittstellen/cSyska_Interface.vb | 33 +- .../VERAG_PROG_ALLGEMEIN.vbproj | 8 + 36 files changed, 11903 insertions(+), 629 deletions(-) create mode 100644 SDL/Resources/air-pollution.png create mode 100644 SDL/Resources/cbam_s.png create mode 100644 SDL/kunden/usrCntlCBAM.Designer.vb create mode 100644 SDL/kunden/usrCntlCBAM.resx create mode 100644 SDL/kunden/usrCntlCBAM.vb create mode 100644 SDL/zoll/usrCntlAuswertungenCBAM_DE.Designer.vb create mode 100644 SDL/zoll/usrCntlAuswertungenCBAM_DE.resx create mode 100644 SDL/zoll/usrCntlAuswertungenCBAM_DE.vb create mode 100644 VERAG_PROG_ALLGEMEIN/Classes/cAvisoStatusMails.vb create mode 100644 VERAG_PROG_ALLGEMEIN/Schnittstellen/CBAM/QReport_v17.00.Designer.vb create mode 100644 VERAG_PROG_ALLGEMEIN/Schnittstellen/CBAM/QReport_v17.00.xsd create mode 100644 VERAG_PROG_ALLGEMEIN/Schnittstellen/CBAM/stypes.xsd diff --git a/SDL/Administration/frmKasseAbschliessen.vb b/SDL/Administration/frmKasseAbschliessen.vb index f82c117a..acdf7472 100644 --- a/SDL/Administration/frmKasseAbschliessen.vb +++ b/SDL/Administration/frmKasseAbschliessen.vb @@ -82,7 +82,7 @@ Sub insertBELEGALT(KASSE As cRKSV_Kasse, betrag As Double) Dim BELEG_ALT As New EABeleg(PERSONAL.Mandant, PERSONAL.Niederlassung, PERSONAL.ID) '!!!!!!!!!!!!!!!! - BELEG_ALT.BelegDat = cRKSV.getGJ_EndOfYear(NumericUpDown.Value).ToShortDateString 'CDate("31.01." & NumericUpDown1.Value) + BELEG_ALT.BelegDat = cRKSV.getGJ_EndOfYear(NumericUpDown.Value, KASSE.rksv_firma).ToShortDateString 'CDate("31.01." & NumericUpDown1.Value) If txtxAbwBetragALT._value <> "" AndAlso IsNumeric(txtxAbwBetragALT._value) Then betrag = txtxAbwBetragALT._value @@ -143,7 +143,7 @@ End Sub Sub insertBELEGNEU(KASSE As cRKSV_Kasse, betrag As Double) Dim BELEG_NEU As New EABeleg(PERSONAL.Mandant, PERSONAL.Niederlassung, PERSONAL.ID) '!!!!!!!!!!!!!!!! - BELEG_NEU.BelegDat = cRKSV.getGJ_BeginOfYear(NumericUpDown1.Value).ToShortDateString '' CDate("01.02." & NumericUpDown1.Value) + BELEG_NEU.BelegDat = cRKSV.getGJ_BeginOfYear(NumericUpDown1.Value, KASSE.rksv_firma).ToShortDateString '' CDate("01.02." & NumericUpDown1.Value) BELEG_NEU.Beleg_TYP = "E" BELEG_NEU.Belegart = 1 'EINGANG BELEG_NEU.rksv_aktiv = KASSE.rksv_aktiv diff --git a/SDL/Classes/cRKSV.vb b/SDL/Classes/cRKSV.vb index fee37fff..449493ce 100644 --- a/SDL/Classes/cRKSV.vb +++ b/SDL/Classes/cRKSV.vb @@ -2,6 +2,7 @@ Imports System.Drawing.Printing Imports GrapeCity.ActiveReports Imports VERAG_PROG_ALLGEMEIN.DSFinVKService +Imports VERAG_PROG_ALLGEMEIN.TESTJSON Public Class cRKSV Shared SQL As New SQL @@ -1003,10 +1004,10 @@ Public Class cRKSV Shared Function getGJ_FIRMA(BelegDat As Date, FIRMA As String) As Integer If FIRMA = "" Then FIRMA = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Select Case FIRMA - Case "IMEX", "FRONTOFFICE", "UNISPED", "AMBAR" - Return BelegDat.Year - Case Else + Case "VERAG", "ATILLA" Return IIf(BelegDat.Month = 1, BelegDat.Year - 1, BelegDat.Year) + Case Else + Return BelegDat.Year End Select End Function @@ -1014,7 +1015,7 @@ Public Class cRKSV Shared Function getGJ(BelegDat As Date, Optional FIRMA_ID As Integer = -1) As Integer 'If FIRMA = "" Then FIRMA = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Select Case FIRMA_ID - Case -1, 1, 3, 11, 7, 19, 15 'Abweichendes WJ + Case -1, 1, 3, 11, 7, 15 'Abweichendes WJ Return IIf(BelegDat.Month = 1, BelegDat.Year - 1, BelegDat.Year) Case Else Return BelegDat.Year @@ -1043,21 +1044,23 @@ Public Class cRKSV 'End Function - Shared Function getGJ_EndOfYear(GeschaerftsJahr As Integer) As Date - Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA - Case "IMEX", "FRONTOFFICE" - Return CDate("31.12." & GeschaerftsJahr) - Case Else + Shared Function getGJ_EndOfYear(GeschaerftsJahr As Integer, Optional FIRMA As String = "") As Date + If FIRMA = "" Then FIRMA = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA + Select Case FIRMA + Case "VERAG", "ATILLA" Return CDate("31.01." & (GeschaerftsJahr + 1)) + Case Else + Return CDate("31.12." & GeschaerftsJahr) End Select End Function - Shared Function getGJ_BeginOfYear(GeschaerftsJahr As Integer) As Date - Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA - Case "IMEX", "FRONTOFFICE" - Return CDate("01.01." & GeschaerftsJahr) - Case Else + Shared Function getGJ_BeginOfYear(GeschaerftsJahr As Integer, Optional FIRMA As String = "") As Date + If FIRMA = "" Then FIRMA = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA + Select Case FIRMA + Case "VERAG", "ATILLA" Return CDate("01.02." & GeschaerftsJahr) + Case Else + Return CDate("01.01." & GeschaerftsJahr) End Select End Function diff --git a/SDL/Fakturierung/cFakturierung.vb b/SDL/Fakturierung/cFakturierung.vb index e47f504d..b55056ad 100644 --- a/SDL/Fakturierung/cFakturierung.vb +++ b/SDL/Fakturierung/cFakturierung.vb @@ -787,7 +787,30 @@ Public Class cFakturierung End If End If End If - Case Else 'VERAG,ATILLA + Case 7 ' ATILLA + + If Rechnung.RechnungsLandKz = "TR" Then + rpt.txtBank1.Text = If(FIRMA.Firma_Bankverbindung1, "") & vbNewLine & If(FIRMA.Firma_IBAN1, "") & vbNewLine & If(FIRMA.Firma_BIC1, "").ToString.Trim + rpt.txtBank2.Text = If(FIRMA.Firma_Bankverbindung2, "") & vbNewLine & If(FIRMA.Firma_IBAN2, "") & vbNewLine & If(FIRMA.Firma_BIC2, "").ToString.Trim + + rpt.txtBank1.Text = rpt.txtBank1.Text.Replace("Österreich: ", "Österreich:" & vbNewLine).Replace("BRD: ", "Deutschland:" & vbNewLine).Replace("Deutschland: ", "Deutschland:" & vbNewLine) + rpt.txtBank2.Text = rpt.txtBank2.Text.Replace("Österreich: ", "Österreich:" & vbNewLine).Replace("BRD: ", "Deutschland:" & vbNewLine).Replace("Deutschland: ", "Deutschland:" & vbNewLine) + + If Not hasEUSTZOLL(Rechnung) Then + + rpt.txtBank1.Text = "Türkei:" & vbNewLine & "Garanti Bank Hadimköy" & vbNewLine & "EUR-IBAN: TR08 6 2000 5440 0009 0603 73" & vbNewLine & "Hesap Numarası: 544-9060373" + + End If + Else + rpt.txtBank1.Text = If(FIRMA.Firma_Bankverbindung1, "") & vbNewLine & If(FIRMA.Firma_IBAN1, "") & vbNewLine & If(FIRMA.Firma_BIC1, "").ToString.Trim + rpt.txtBank2.Text = If(FIRMA.Firma_Bankverbindung2, "") & vbNewLine & If(FIRMA.Firma_IBAN2, "") & vbNewLine & If(FIRMA.Firma_BIC2, "").ToString.Trim + + rpt.txtBank1.Text = rpt.txtBank1.Text.Replace("Österreich: ", "Österreich:" & vbNewLine).Replace("BRD: ", "Deutschland:" & vbNewLine).Replace("Deutschland: ", "Deutschland:" & vbNewLine) + rpt.txtBank2.Text = rpt.txtBank2.Text.Replace("Österreich: ", "Österreich:" & vbNewLine).Replace("BRD: ", "Deutschland:" & vbNewLine).Replace("Deutschland: ", "Deutschland:" & vbNewLine) + + End If + + Case Else 'VERAG If Rechnung.RechnungsLandKz = "TR" Then rpt.txtBank1.Text = If(FIRMA.Firma_Bankverbindung1, "") & vbNewLine & If(FIRMA.Firma_IBAN1, "") & vbNewLine & If(FIRMA.Firma_BIC1, "").ToString.Trim diff --git a/SDL/Fakturierung/frmRechnungenSuche.vb b/SDL/Fakturierung/frmRechnungenSuche.vb index 5312ca2c..832cd18c 100644 --- a/SDL/Fakturierung/frmRechnungenSuche.vb +++ b/SDL/Fakturierung/frmRechnungenSuche.vb @@ -532,22 +532,23 @@ Public Class frmRechnungenSuche Me.Cursor = Cursors.WaitCursor + 'cProgramFunctions.genExcelFromDGV_NEW(DataGridView, False) If brexitXLS Then cProgramFunctions.genExcelFromDT_NEW(DataGridView.DataSource, {"J1:J" & (DataGridView.DataSource.Rows.Count + 2), "L1:M" & (DataGridView.DataSource.Rows.Count + 2)},,,, "£") Else - cProgramFunctions.genExcelFromDT_NEW(DataGridView.DataSource, {"M1:N" & (DataGridView.DataSource.Rows.Count + 2)}) + Dim sqlstr As String = "" + ' Dim TopMax = If(IsNumeric(txtMaxSrch.Text), " TOP " & txtMaxSrch.Text, "") + sqlstr &= "SELECT RK_ID,[RechnungsNr],cast([RechnungsDatum] as date) RechnungsDatum, Sammelrechnung, [FilialenNr],[AbfertigungsNr],[UnterNr],cast(Abfertigungsdatum as date) Abfertigungsdatum, isnull(cast(RechnungsKundenNr as nvarchar(10)) + ' ','') + [RechnungsName 1] as [RechnungAn], " & + " isnull(cast([AbsenderKundenNr] as nvarchar(10)) + ' ','') + [AbsenderName 1] as Absender,isnull(cast([EmpfängerKundenNr] as nvarchar(10)) + ' ','') + [EmpfängerName 1] as Empfänger, isnull(cast([VermittlerKundenNr] as nvarchar(10)) + ' ','') + [VermittlerName 1] as Vermittler, [LKW Kennzeichen],Sachbearbeiter,[SteuerpflichtigerGesamtbetrag],[SteuerfreierGesamtbetrag] " & + " FROM [Rechnungsausgang] WHERE 1=1 " + Dim dt = SQL.loadDgvBySql_Param(sqlstr & getRechnungsAusgangWhere() & " ORDER BY Rechnungsdatum, RK_ID", "FMZOLL", , getSpedbuchList) + + cProgramFunctions.genExcelFromDT_NEW(dt, {"M1:N" & (DataGridView.DataSource.Rows.Count + 2)}) End If Me.Cursor = Cursors.Default - 'Dim sqlstr As String = "" - '' Dim TopMax = If(IsNumeric(txtMaxSrch.Text), " TOP " & txtMaxSrch.Text, "") - 'sqlstr &= "SELECT RK_ID,[RechnungsNr],cast([RechnungsDatum] as date) RechnungsDatum, Sammelrechnung, [FilialenNr],[AbfertigungsNr],[UnterNr],cast(Abfertigungsdatum as date) Abfertigungsdatum, isnull(cast(RechnungsKundenNr as nvarchar(10)) + ' ','') + [RechnungsName 1] as [RechnungAn], " & - ' " isnull(cast([AbsenderKundenNr] as nvarchar(10)) + ' ','') + [AbsenderName 1] as Absender,isnull(cast([EmpfängerKundenNr] as nvarchar(10)) + ' ','') + [EmpfängerName 1] as Empfänger, isnull(cast([VermittlerKundenNr] as nvarchar(10)) + ' ','') + [VermittlerName 1] as Vermittler, [LKW Kennzeichen],Sachbearbeiter,[SteuerpflichtigerGesamtbetrag],[SteuerfreierGesamtbetrag] " & - ' " FROM [Rechnungsausgang] WHERE 1=1 " - 'Dim dt = SQL.loadDgvBySql_Param(sqlstr & getRechnungsAusgangWhere() & " ORDER BY Rechnungsdatum, RK_ID", "FMZOLL", , getSpedbuchList) - 'Me.Cursor = Cursors.WaitCursor @@ -815,7 +816,7 @@ Public Class frmRechnungenSuche and Firma_ID=26 " - MsgBox(sqlStr & getRechnungsAusgangWhere() & " order by [RechnungsDatum],RechnungsNr,RechnungsausgangPositionen.LeistungsNr") + ' MsgBox(sqlStr & getRechnungsAusgangWhere() & " order by [RechnungsDatum],RechnungsNr,RechnungsausgangPositionen.LeistungsNr") .SET_SQL(sqlStr & getRechnungsAusgangWhere() & " order by [RechnungsDatum],RechnungsNr,RechnungsausgangPositionen.LeistungsNr", "FMZOLL", getSpedbuchList) .LOAD() diff --git a/SDL/My Project/AssemblyInfo.vb b/SDL/My Project/AssemblyInfo.vb index c5de8cfe..1770e68a 100644 --- a/SDL/My Project/AssemblyInfo.vb +++ b/SDL/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + + diff --git a/SDL/My Project/Resources.Designer.vb b/SDL/My Project/Resources.Designer.vb index 096b74dc..72635f7b 100644 --- a/SDL/My Project/Resources.Designer.vb +++ b/SDL/My Project/Resources.Designer.vb @@ -150,6 +150,16 @@ Namespace My.Resources End Get End Property + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property air_pollution() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("air-pollution", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + ''' ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. ''' @@ -419,6 +429,16 @@ Namespace My.Resources End Get End Property + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property cbam_s() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("cbam_s", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + ''' ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. ''' diff --git a/SDL/My Project/Resources.resx b/SDL/My Project/Resources.resx index e1c7334d..981cc694 100644 --- a/SDL/My Project/Resources.resx +++ b/SDL/My Project/Resources.resx @@ -139,18 +139,21 @@ ..\Resources\stift.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\pdf_s.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + ..\Resources\brexit.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\air-pollution.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + ..\Resources\pdf.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\person.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\vorauszahlung.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - ..\Resources\verag_Card1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -181,8 +184,8 @@ ..\Resources\ambar_simple.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\RG_ZF.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + ..\Resources\toll-collect.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\dakosy1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -217,6 +220,9 @@ ..\Resources\uhr_red.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\beleg.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + ..\Resources\pay_card_s1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -238,9 +244,6 @@ ..\Resources\android-add-contact.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\zoll.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - ..\Resources\exit.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -262,9 +265,6 @@ ..\Resources\rechnung1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\asfinag.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - ..\Resources\beleg1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -283,6 +283,9 @@ ..\Resources\Atilla.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\Plakette1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + ..\Resources\picboxZoomIn_Enter.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -292,9 +295,6 @@ ..\Resources\person_default.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\axxes.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - ..\Resources\entwurf.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -349,15 +349,18 @@ ..\Resources\lorry_motion.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\Route1_IR.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\zoll.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\uhr_green.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\ok_gray.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\statistik.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\pfeil_rechts.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + F:\Grafik\VERAG\AEO\aeo_CS.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -373,6 +376,9 @@ ..\Resources\sgs.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\Route1_IR.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + ..\Resources\passpic.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -436,6 +442,9 @@ ..\Resources\Excel_2013_logo-155x110.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\compose.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + ..\Resources\picboxNext_Enter.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -460,12 +469,15 @@ ..\Resources\spedbuch1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\toll-collect.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\search.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\flagge_D.gif;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\email_big_gray.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + ..\Resources\info.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8 @@ -478,27 +490,24 @@ ..\Resources\Route5_IR.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\uhr_green.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + ..\Resources\checklist.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\data.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\picboxZoomOut_Enter.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - ..\Resources\unisped_aeo_ZS_AT.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\cards.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\Verag-AG-Logo_DE.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\pay_card.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\ok_gray.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - ..\Resources\chimes.wav;System.IO.MemoryStream, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 @@ -523,9 +532,6 @@ ..\Resources\belegEUR1.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\..\..\data\awor.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - ..\Resources\WAI.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -547,12 +553,12 @@ ..\Resources\arrow_right.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\beleg_rot1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - ..\Resources\SBG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\..\..\..\AVISO\Aviso\Diverses\Verag_Customs_Service_AEO.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + ..\Resources\Route4.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -577,8 +583,8 @@ ..\Resources\aktiveVeredelung1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\Verag-AG-Logo_DE.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\cards.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\plose_cz.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -628,9 +634,6 @@ ..\Resources\Unisped_DE_logo.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\checklist.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - ..\Resources\list_new_small1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -649,8 +652,8 @@ ..\Resources\android-add-contact1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\search.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\plose_big.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\pdf_gray.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -676,8 +679,8 @@ ..\Resources\unisped_aeo_DE.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\email_big_gray.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\Atilla _sig.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\stift1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -715,8 +718,8 @@ ..\Resources\Route3.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\compose.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\..\..\data\awor.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\transfer.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -724,8 +727,8 @@ ..\Resources\email.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\durmaz.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\axxes.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\Route5.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -790,14 +793,14 @@ ..\Resources\Einheitspapier-0735_Position.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\Plakette1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\beleg_rot1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\pdf1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\pfeil_rechts.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\asfinag.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\modaltrans_original.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -808,8 +811,8 @@ ..\Resources\email_big1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\..\..\..\AVISO\Aviso\Diverses\Verag_Customs_Service_AEO.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\vorauszahlung.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\email_print.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -841,8 +844,8 @@ ..\Resources\Verag-Customs-Service-GMBH-Logo2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\beleg.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\IMEX-LOGO_simple.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a VERAGZoll1 @@ -850,8 +853,8 @@ ..\Resources\report.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\kasse.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\RG_ZF.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 ..\Resources\moneybag1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -859,8 +862,8 @@ ..\..\..\data\mahn.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\IMEX-LOGO_simple.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\kasse.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\email_print1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -874,8 +877,8 @@ ..\Resources\del.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\plose_big.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\picboxZoomOut_Enter.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\scanner1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -889,8 +892,8 @@ ..\Resources\Einheitspapier-0777_Position.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\Atilla _sig.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\checklist.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\Verag-AG-Logo21.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -904,7 +907,10 @@ ..\Resources\flagge_A.gif;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\pdf_s.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\durmaz.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\cbam_s.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a \ No newline at end of file diff --git a/SDL/OriginalArchiv_ATR/frmATR.Designer.vb b/SDL/OriginalArchiv_ATR/frmATR.Designer.vb index d2edd4f7..134f3471 100644 --- a/SDL/OriginalArchiv_ATR/frmATR.Designer.vb +++ b/SDL/OriginalArchiv_ATR/frmATR.Designer.vb @@ -24,6 +24,8 @@ Partial Class frmATR Private Sub InitializeComponent() Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmATR)) Me.Panel1 = New System.Windows.Forms.Panel() + Me.lblErr_Aufbewarungsort = New System.Windows.Forms.Label() + Me.lblErr_DocNr = New System.Windows.Forms.Label() Me.Button5 = New System.Windows.Forms.Button() Me.Button4 = New System.Windows.Forms.Button() Me.Button3 = New System.Windows.Forms.Button() @@ -51,6 +53,7 @@ Partial Class frmATR Me.Label1 = New System.Windows.Forms.Label() Me.txtDocNumber = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Panel2 = New System.Windows.Forms.Panel() + Me.PictureBox6 = New System.Windows.Forms.PictureBox() Me.Label10 = New System.Windows.Forms.Label() Me.Panel3 = New System.Windows.Forms.Panel() Me.Label9 = New System.Windows.Forms.Label() @@ -69,15 +72,13 @@ Partial Class frmATR Me.FlatButton1 = New VERAG_PROG_ALLGEMEIN.FlatButton() Me.txtInfo = New System.Windows.Forms.RichTextBox() Me.lblErr_Ausstellungsdatum = New System.Windows.Forms.Label() - Me.lblErr_DocNr = New System.Windows.Forms.Label() - Me.lblErr_Aufbewarungsort = New System.Windows.Forms.Label() - Me.PictureBox6 = New System.Windows.Forms.PictureBox() + Me.lblErr_ErhaltenDatum = New System.Windows.Forms.Label() Me.Panel1.SuspendLayout() CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit() Me.Panel2.SuspendLayout() + CType(Me.PictureBox6, System.ComponentModel.ISupportInitialize).BeginInit() Me.Panel3.SuspendLayout() Me.Panel4.SuspendLayout() - CType(Me.PictureBox6, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' 'Panel1 @@ -124,6 +125,32 @@ Partial Class frmATR Me.Panel1.Size = New System.Drawing.Size(658, 588) Me.Panel1.TabIndex = 0 ' + 'lblErr_Aufbewarungsort + ' + Me.lblErr_Aufbewarungsort.AutoSize = True + Me.lblErr_Aufbewarungsort.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Italic) + Me.lblErr_Aufbewarungsort.ForeColor = System.Drawing.Color.Red + Me.lblErr_Aufbewarungsort.Location = New System.Drawing.Point(388, 327) + Me.lblErr_Aufbewarungsort.Name = "lblErr_Aufbewarungsort" + Me.lblErr_Aufbewarungsort.Size = New System.Drawing.Size(56, 13) + Me.lblErr_Aufbewarungsort.TabIndex = 108 + Me.lblErr_Aufbewarungsort.Text = "Pflichtfeld!" + Me.lblErr_Aufbewarungsort.TextAlign = System.Drawing.ContentAlignment.TopRight + Me.lblErr_Aufbewarungsort.Visible = False + ' + 'lblErr_DocNr + ' + Me.lblErr_DocNr.AutoSize = True + Me.lblErr_DocNr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Italic) + Me.lblErr_DocNr.ForeColor = System.Drawing.Color.Red + Me.lblErr_DocNr.Location = New System.Drawing.Point(388, 53) + Me.lblErr_DocNr.Name = "lblErr_DocNr" + Me.lblErr_DocNr.Size = New System.Drawing.Size(56, 13) + Me.lblErr_DocNr.TabIndex = 107 + Me.lblErr_DocNr.Text = "Pflichtfeld!" + Me.lblErr_DocNr.TextAlign = System.Drawing.ContentAlignment.TopRight + Me.lblErr_DocNr.Visible = False + ' 'Button5 ' Me.Button5.FlatStyle = System.Windows.Forms.FlatStyle.Flat @@ -558,6 +585,17 @@ Partial Class frmATR Me.Panel2.Size = New System.Drawing.Size(658, 44) Me.Panel2.TabIndex = 1 ' + 'PictureBox6 + ' + Me.PictureBox6.BackgroundImage = Global.SDL.My.Resources.Resources.fragezeichen + Me.PictureBox6.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.PictureBox6.Cursor = System.Windows.Forms.Cursors.Hand + Me.PictureBox6.Location = New System.Drawing.Point(640, 0) + Me.PictureBox6.Name = "PictureBox6" + Me.PictureBox6.Size = New System.Drawing.Size(18, 19) + Me.PictureBox6.TabIndex = 134 + Me.PictureBox6.TabStop = False + ' 'Label10 ' Me.Label10.AutoSize = True @@ -574,6 +612,7 @@ Partial Class frmATR ' Me.Panel3.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) Me.Panel3.BackColor = System.Drawing.Color.FloralWhite + Me.Panel3.Controls.Add(Me.lblErr_ErhaltenDatum) Me.Panel3.Controls.Add(Me.Label9) Me.Panel3.Controls.Add(Me.cbxKurierPaketdienst) Me.Panel3.Controls.Add(Me.txtErhaltenReferenz) @@ -816,42 +855,18 @@ Partial Class frmATR Me.lblErr_Ausstellungsdatum.TextAlign = System.Drawing.ContentAlignment.TopRight Me.lblErr_Ausstellungsdatum.Visible = False ' - 'lblErr_DocNr + 'lblErr_ErhaltenDatum ' - Me.lblErr_DocNr.AutoSize = True - Me.lblErr_DocNr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Italic) - Me.lblErr_DocNr.ForeColor = System.Drawing.Color.Red - Me.lblErr_DocNr.Location = New System.Drawing.Point(388, 53) - Me.lblErr_DocNr.Name = "lblErr_DocNr" - Me.lblErr_DocNr.Size = New System.Drawing.Size(56, 13) - Me.lblErr_DocNr.TabIndex = 107 - Me.lblErr_DocNr.Text = "Pflichtfeld!" - Me.lblErr_DocNr.TextAlign = System.Drawing.ContentAlignment.TopRight - Me.lblErr_DocNr.Visible = False - ' - 'lblErr_Aufbewarungsort - ' - Me.lblErr_Aufbewarungsort.AutoSize = True - Me.lblErr_Aufbewarungsort.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Italic) - Me.lblErr_Aufbewarungsort.ForeColor = System.Drawing.Color.Red - Me.lblErr_Aufbewarungsort.Location = New System.Drawing.Point(388, 327) - Me.lblErr_Aufbewarungsort.Name = "lblErr_Aufbewarungsort" - Me.lblErr_Aufbewarungsort.Size = New System.Drawing.Size(56, 13) - Me.lblErr_Aufbewarungsort.TabIndex = 108 - Me.lblErr_Aufbewarungsort.Text = "Pflichtfeld!" - Me.lblErr_Aufbewarungsort.TextAlign = System.Drawing.ContentAlignment.TopRight - Me.lblErr_Aufbewarungsort.Visible = False - ' - 'PictureBox6 - ' - Me.PictureBox6.BackgroundImage = Global.SDL.My.Resources.Resources.fragezeichen - Me.PictureBox6.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom - Me.PictureBox6.Cursor = System.Windows.Forms.Cursors.Hand - Me.PictureBox6.Location = New System.Drawing.Point(640, 0) - Me.PictureBox6.Name = "PictureBox6" - Me.PictureBox6.Size = New System.Drawing.Size(18, 19) - Me.PictureBox6.TabIndex = 134 - Me.PictureBox6.TabStop = False + Me.lblErr_ErhaltenDatum.AutoSize = True + Me.lblErr_ErhaltenDatum.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Italic) + Me.lblErr_ErhaltenDatum.ForeColor = System.Drawing.Color.Red + Me.lblErr_ErhaltenDatum.Location = New System.Drawing.Point(245, 26) + Me.lblErr_ErhaltenDatum.Name = "lblErr_ErhaltenDatum" + Me.lblErr_ErhaltenDatum.Size = New System.Drawing.Size(56, 13) + Me.lblErr_ErhaltenDatum.TabIndex = 109 + Me.lblErr_ErhaltenDatum.Text = "Pflichtfeld!" + Me.lblErr_ErhaltenDatum.TextAlign = System.Drawing.ContentAlignment.TopRight + Me.lblErr_ErhaltenDatum.Visible = False ' 'frmATR ' @@ -869,10 +884,10 @@ Partial Class frmATR CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit() Me.Panel2.ResumeLayout(False) Me.Panel2.PerformLayout() + CType(Me.PictureBox6, System.ComponentModel.ISupportInitialize).EndInit() Me.Panel3.ResumeLayout(False) Me.Panel3.PerformLayout() Me.Panel4.ResumeLayout(False) - CType(Me.PictureBox6, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) End Sub @@ -926,4 +941,5 @@ Partial Class frmATR Friend WithEvents lblErr_DocNr As Label Friend WithEvents lblErr_Ausstellungsdatum As Label Friend WithEvents PictureBox6 As PictureBox + Friend WithEvents lblErr_ErhaltenDatum As Label End Class diff --git a/SDL/OriginalArchiv_ATR/frmATR.vb b/SDL/OriginalArchiv_ATR/frmATR.vb index d00c6dae..d588a6df 100644 --- a/SDL/OriginalArchiv_ATR/frmATR.vb +++ b/SDL/OriginalArchiv_ATR/frmATR.vb @@ -69,7 +69,7 @@ Public Class frmATR End If End If - If (ATR.atr_SendungsId > 0 AndAlso ATR.atr_dsId > 0) And (loadedDSID <> DSID Or loadedDSID <= 0) Then + If (ATR.atr_SendungsId > 0 AndAlso ATR.atr_dsId > 0) And ((loadedDSID <> DSID Or loadedDSID <= 0) Or (loadedDSID > 0 And ATR.atr_anhID <= 0)) Then If vbYes = MsgBox("ATR in Anhang speichern?", vbYesNoCancel) Then If ATR.atr_dsId < 0 Then MsgBox("Kein PDF-Anhang!") @@ -111,9 +111,11 @@ Public Class frmATR lblErr_Ausstellungsdatum.Visible = False lblErr_DocNr.Visible = False lblErr_Aufbewarungsort.Visible = False + lblErr_ErhaltenDatum.Visible = False If txtDocNumber.Text.Trim = "" Then lblErr_Ausstellungsdatum.Visible = True : Return False If txtDocDatum._value = "" Then lblErr_DocNr.Visible = True : Return False + If txtErhaltenDatum._value = "" Then lblErr_ErhaltenDatum.Visible = True : Return False If txtLocation._value = "" Then lblErr_Aufbewarungsort.Visible = True : Return False Return True @@ -167,9 +169,9 @@ Public Class frmATR ATR.atr_documentNr = txtDocNumber.Text ATR.atr_austellungsdatum = txtDocDatum._value 'ATR.atr_erfassungsdatum = Now - ATR.atr_absender = txtAbsender.KdName + ATR.atr_absender = If(txtAbsender.KdNr > 0, txtAbsender.KdName, txtAbsender.Text) ATR.atr_absenderkdnr = txtAbsender.KdNr - ATR.atr_empfaenger = txtEmpfaenger.KdName + ATR.atr_empfaenger = If(txtEmpfaenger.KdNr > 0, txtEmpfaenger.KdName, txtEmpfaenger.Text) ATR.atr_empfaengerkdnr = txtEmpfaenger.KdNr ATR.atr_location = txtLocation.Text ATR.atr_info = txtInfo.Text @@ -207,7 +209,7 @@ Public Class frmATR 'sbAvisoSuche.initSearchBox(Me.FindForm, " [tblSnd_SendungID],LKW_Nr,[tblSnd_Empfaenger],[tblSnd_Absender],[tblSnd_Colli],[tblSnd_Gewicht],FilialenNr,AbfertigungsNr,[Code]+' - ' +[Description] as display FROM tbl_DY_ZollDE_C0008_LaenderFull", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "display", "FMZOLL", , 400, 200) ' sbAvisoSuche.initSearchBox(Me.FindForm, " [tblSnd_SendungID] ,Datum as Erfasst,LKW_Nr,[tblSnd_Empfaenger],[tblSnd_Absender],[tblSnd_Colli],[tblSnd_Gewicht],FilialenNr,AbfertigungsNr FROM tblSendungen inner join Aviso on AvisoID=tblSnd_AvisoID ", {"LKW_Nr", "tblSnd_Empfaenger", "tblSnd_Absender"}, " (Datum >= '" & Now.AddDays(-30).ToShortDateString & "') ", "Datum DESC", "tblSnd_SendungID", "Datum as Erfasst,LKW_Nr,[tblSnd_Empfaenger],[tblSnd_Absender],[tblSnd_Colli],[tblSnd_Gewicht],FilialenNr,AbfertigungsNr", "AVISO", False, 600, 300) - sbAvisoSuche.initSearchBox(Me.FindForm, " [tblSnd_SendungID] ,Datum as Erfasst,LKW_Nr,[tblSnd_Empfaenger],[tblSnd_Absender],[tblSnd_Colli],[tblSnd_Gewicht],FilialenNr,AbfertigungsNr,LKW_Nr + ' ' +cast(FilialenNr as varchar(4)) +'/'+cast(AbfertigungsNr as varchar(8))as display FROM tblSendungen inner join Aviso on AvisoID=tblSnd_AvisoID ", {"LKW_Nr", "tblSnd_Empfaenger", "tblSnd_Absender"}, " Cluster='" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "' /* AND (Datum >= '" & Now.AddDays(-30).ToShortDateString & "') */ ", " Datum DESC", "tblSnd_SendungID", "display", "AVISO", False, 600, 300) + sbAvisoSuche.initSearchBox(Me.FindForm, " [tblSnd_SendungID] ,Datum as Erfasst,LKW_Nr,[tblSnd_Empfaenger],[tblSnd_Absender],[tblSnd_Colli],[tblSnd_Gewicht],FilialenNr,AbfertigungsNr,LKW_Nr + ' ' +cast(FilialenNr as varchar(4)) +'/'+cast(AbfertigungsNr as varchar(8))as display FROM tblSendungen inner join Aviso on AvisoID=tblSnd_AvisoID ", {"LKW_Nr", "tblSnd_Empfaenger", "tblSnd_Absender"}, " Cluster='" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "' /*AND (Datum >= '" & Now.AddDays(-40).ToShortDateString & "') */ ", " Datum DESC", "tblSnd_SendungID", "display", "AVISO", False, 600, 300) If ATR IsNot Nothing Then diff --git a/SDL/OriginalArchiv_ATR/frmOriginalArchiv_ATR.Designer.vb b/SDL/OriginalArchiv_ATR/frmOriginalArchiv_ATR.Designer.vb index 4eb7ddeb..30d856d5 100644 --- a/SDL/OriginalArchiv_ATR/frmOriginalArchiv_ATR.Designer.vb +++ b/SDL/OriginalArchiv_ATR/frmOriginalArchiv_ATR.Designer.vb @@ -25,12 +25,23 @@ Partial Class frmOriginalArchiv_ATR Me.components = New System.ComponentModel.Container() Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmOriginalArchiv_ATR)) Me.pnl = New System.Windows.Forms.Panel() + Me.txtSuche = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label9 = New System.Windows.Forms.Label() + Me.txtSB = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtDocumetNummer = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label8 = New System.Windows.Forms.Label() + Me.txtAbsender = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label7 = New System.Windows.Forms.Label() + Me.txtReferenz = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label5 = New System.Windows.Forms.Label() + Me.txtFEmpfänger = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label6 = New System.Windows.Forms.Label() + Me.txtLKWKennzeichen = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label3 = New System.Windows.Forms.Label() + Me.txtAbfertDat = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtAbfertDatBis = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.cboFiliale = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.txtAbfertigungsnummer = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Button7 = New System.Windows.Forms.Button() Me.Button6 = New System.Windows.Forms.Button() Me.Button5 = New System.Windows.Forms.Button() @@ -38,6 +49,7 @@ Partial Class frmOriginalArchiv_ATR Me.Label23 = New System.Windows.Forms.Label() Me.btnJahr = New System.Windows.Forms.Button() Me.pnlTop = New System.Windows.Forms.Panel() + Me.PictureBox6 = New System.Windows.Forms.PictureBox() Me.Label4 = New System.Windows.Forms.Label() Me.btnBisJahr = New System.Windows.Forms.Button() Me.btnVonJahr = New System.Windows.Forms.Button() @@ -46,47 +58,36 @@ Partial Class frmOriginalArchiv_ATR Me.btnVonMonat = New System.Windows.Forms.Button() Me.DateTimePicker2 = New System.Windows.Forms.DateTimePicker() Me.Label13 = New System.Windows.Forms.Label() - Me.lblAbfertigungsdatum = New System.Windows.Forms.Label() Me.Label1 = New System.Windows.Forms.Label() Me.Label2 = New System.Windows.Forms.Label() Me.Label12 = New System.Windows.Forms.Label() Me.DateTimePicker1 = New System.Windows.Forms.DateTimePicker() Me.Panel1 = New System.Windows.Forms.Panel() + Me.MyDatagridview1 = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) Me.Button2 = New System.Windows.Forms.Button() Me.pnloptions = New System.Windows.Forms.Panel() + Me.btnSendungKoppeln = New System.Windows.Forms.Button() Me.Button1 = New System.Windows.Forms.Button() Me.btnDel = New System.Windows.Forms.Button() Me.btnExcel = New System.Windows.Forms.Button() Me.FlatButton7 = New System.Windows.Forms.Button() Me.lblErgebnis = New System.Windows.Forms.Label() Me.Label37 = New System.Windows.Forms.Label() - Me.MyDatagridview1 = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) - Me.txtSuche = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtSB = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtDocumetNummer = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtAbsender = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtReferenz = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtFEmpfänger = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtLKWKennzeichen = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtAbfertDat = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtAbfertDatBis = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.cboFiliale = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.txtAbfertigungsnummer = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtMaxSrch = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.btnSendungKoppeln = New System.Windows.Forms.Button() - Me.PictureBox6 = New System.Windows.Forms.PictureBox() + Me.cboDatum = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.pnl.SuspendLayout() Me.pnlTop.SuspendLayout() - Me.Panel1.SuspendLayout() - Me.pnloptions.SuspendLayout() - CType(Me.MyDatagridview1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox6, System.ComponentModel.ISupportInitialize).BeginInit() + Me.Panel1.SuspendLayout() + CType(Me.MyDatagridview1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnloptions.SuspendLayout() Me.SuspendLayout() ' 'pnl ' Me.pnl.BackColor = System.Drawing.Color.WhiteSmoke Me.pnl.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnl.Controls.Add(Me.cboDatum) Me.pnl.Controls.Add(Me.txtSuche) Me.pnl.Controls.Add(Me.Label9) Me.pnl.Controls.Add(Me.txtSB) @@ -118,7 +119,6 @@ Partial Class frmOriginalArchiv_ATR Me.pnl.Controls.Add(Me.btnVonMonat) Me.pnl.Controls.Add(Me.DateTimePicker2) Me.pnl.Controls.Add(Me.Label13) - Me.pnl.Controls.Add(Me.lblAbfertigungsdatum) Me.pnl.Controls.Add(Me.Label1) Me.pnl.Controls.Add(Me.Label2) Me.pnl.Controls.Add(Me.Label12) @@ -129,6 +129,30 @@ Partial Class frmOriginalArchiv_ATR Me.pnl.Size = New System.Drawing.Size(1419, 171) Me.pnl.TabIndex = 0 ' + 'txtSuche + ' + Me.txtSuche._DateTimeOnly = False + Me.txtSuche._numbersOnly = False + Me.txtSuche._numbersOnlyKommastellen = "" + Me.txtSuche._numbersOnlyTrennzeichen = False + Me.txtSuche._Prozent = False + Me.txtSuche._ShortDateNew = False + Me.txtSuche._ShortDateOnly = False + Me.txtSuche._TimeOnly = False + Me.txtSuche._TimeOnly_Seconds = False + Me.txtSuche._value = "" + Me.txtSuche._Waehrung = False + Me.txtSuche._WaehrungZeichen = False + Me.txtSuche.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtSuche.ForeColor = System.Drawing.Color.Black + Me.txtSuche.Location = New System.Drawing.Point(338, 75) + Me.txtSuche.MaxLineLength = -1 + Me.txtSuche.MaxLines_Warning = "" + Me.txtSuche.MaxLines_Warning_Label = Nothing + Me.txtSuche.Name = "txtSuche" + Me.txtSuche.Size = New System.Drawing.Size(258, 20) + Me.txtSuche.TabIndex = 77 + ' 'Label9 ' Me.Label9.AutoSize = True @@ -139,6 +163,55 @@ Partial Class frmOriginalArchiv_ATR Me.Label9.TabIndex = 76 Me.Label9.Text = "Suche:" ' + 'txtSB + ' + Me.txtSB._DateTimeOnly = False + Me.txtSB._numbersOnly = False + Me.txtSB._numbersOnlyKommastellen = "" + Me.txtSB._numbersOnlyTrennzeichen = False + Me.txtSB._Prozent = False + Me.txtSB._ShortDateNew = False + Me.txtSB._ShortDateOnly = False + Me.txtSB._TimeOnly = False + Me.txtSB._TimeOnly_Seconds = False + Me.txtSB._value = "" + Me.txtSB._Waehrung = False + Me.txtSB._WaehrungZeichen = False + Me.txtSB.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtSB.ForeColor = System.Drawing.Color.Black + Me.txtSB.Location = New System.Drawing.Point(920, 131) + Me.txtSB.MaxLineLength = -1 + Me.txtSB.MaxLines_Warning = "" + Me.txtSB.MaxLines_Warning_Label = Nothing + Me.txtSB.Multiline = True + Me.txtSB.Name = "txtSB" + Me.txtSB.Size = New System.Drawing.Size(240, 22) + Me.txtSB.TabIndex = 75 + ' + 'txtDocumetNummer + ' + Me.txtDocumetNummer._DateTimeOnly = False + Me.txtDocumetNummer._numbersOnly = False + Me.txtDocumetNummer._numbersOnlyKommastellen = "" + Me.txtDocumetNummer._numbersOnlyTrennzeichen = False + Me.txtDocumetNummer._Prozent = False + Me.txtDocumetNummer._ShortDateNew = False + Me.txtDocumetNummer._ShortDateOnly = False + Me.txtDocumetNummer._TimeOnly = False + Me.txtDocumetNummer._TimeOnly_Seconds = False + Me.txtDocumetNummer._value = "" + Me.txtDocumetNummer._Waehrung = False + Me.txtDocumetNummer._WaehrungZeichen = False + Me.txtDocumetNummer.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtDocumetNummer.ForeColor = System.Drawing.Color.Black + Me.txtDocumetNummer.Location = New System.Drawing.Point(610, 75) + Me.txtDocumetNummer.MaxLineLength = -1 + Me.txtDocumetNummer.MaxLines_Warning = "" + Me.txtDocumetNummer.MaxLines_Warning_Label = Nothing + Me.txtDocumetNummer.Name = "txtDocumetNummer" + Me.txtDocumetNummer.Size = New System.Drawing.Size(284, 20) + Me.txtDocumetNummer.TabIndex = 74 + ' 'Label8 ' Me.Label8.AutoSize = True @@ -149,6 +222,30 @@ Partial Class frmOriginalArchiv_ATR Me.Label8.TabIndex = 73 Me.Label8.Text = "Dokument-Nummer" ' + 'txtAbsender + ' + Me.txtAbsender._DateTimeOnly = False + Me.txtAbsender._numbersOnly = False + Me.txtAbsender._numbersOnlyKommastellen = "" + Me.txtAbsender._numbersOnlyTrennzeichen = True + Me.txtAbsender._Prozent = False + Me.txtAbsender._ShortDateNew = False + Me.txtAbsender._ShortDateOnly = False + Me.txtAbsender._TimeOnly = False + Me.txtAbsender._TimeOnly_Seconds = False + Me.txtAbsender._value = Nothing + Me.txtAbsender._Waehrung = False + Me.txtAbsender._WaehrungZeichen = True + Me.txtAbsender.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtAbsender.ForeColor = System.Drawing.Color.Black + Me.txtAbsender.Location = New System.Drawing.Point(666, 133) + Me.txtAbsender.MaxLineLength = -1 + Me.txtAbsender.MaxLines_Warning = "" + Me.txtAbsender.MaxLines_Warning_Label = Nothing + Me.txtAbsender.Name = "txtAbsender" + Me.txtAbsender.Size = New System.Drawing.Size(228, 20) + Me.txtAbsender.TabIndex = 72 + ' 'Label7 ' Me.Label7.AutoSize = True @@ -159,6 +256,30 @@ Partial Class frmOriginalArchiv_ATR Me.Label7.TabIndex = 71 Me.Label7.Text = "Absender" ' + 'txtReferenz + ' + Me.txtReferenz._DateTimeOnly = False + Me.txtReferenz._numbersOnly = False + Me.txtReferenz._numbersOnlyKommastellen = "" + Me.txtReferenz._numbersOnlyTrennzeichen = True + Me.txtReferenz._Prozent = False + Me.txtReferenz._ShortDateNew = False + Me.txtReferenz._ShortDateOnly = False + Me.txtReferenz._TimeOnly = False + Me.txtReferenz._TimeOnly_Seconds = False + Me.txtReferenz._value = Nothing + Me.txtReferenz._Waehrung = False + Me.txtReferenz._WaehrungZeichen = True + Me.txtReferenz.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtReferenz.ForeColor = System.Drawing.Color.Black + Me.txtReferenz.Location = New System.Drawing.Point(394, 133) + Me.txtReferenz.MaxLineLength = -1 + Me.txtReferenz.MaxLines_Warning = "" + Me.txtReferenz.MaxLines_Warning_Label = Nothing + Me.txtReferenz.Name = "txtReferenz" + Me.txtReferenz.Size = New System.Drawing.Size(202, 20) + Me.txtReferenz.TabIndex = 70 + ' 'Label5 ' Me.Label5.AutoSize = True @@ -169,6 +290,30 @@ Partial Class frmOriginalArchiv_ATR Me.Label5.TabIndex = 69 Me.Label5.Text = "Referenz:" ' + 'txtFEmpfänger + ' + Me.txtFEmpfänger._DateTimeOnly = False + Me.txtFEmpfänger._numbersOnly = False + Me.txtFEmpfänger._numbersOnlyKommastellen = "" + Me.txtFEmpfänger._numbersOnlyTrennzeichen = True + Me.txtFEmpfänger._Prozent = False + Me.txtFEmpfänger._ShortDateNew = False + Me.txtFEmpfänger._ShortDateOnly = False + Me.txtFEmpfänger._TimeOnly = False + Me.txtFEmpfänger._TimeOnly_Seconds = False + Me.txtFEmpfänger._value = Nothing + Me.txtFEmpfänger._Waehrung = False + Me.txtFEmpfänger._WaehrungZeichen = True + Me.txtFEmpfänger.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtFEmpfänger.ForeColor = System.Drawing.Color.Black + Me.txtFEmpfänger.Location = New System.Drawing.Point(666, 109) + Me.txtFEmpfänger.MaxLineLength = -1 + Me.txtFEmpfänger.MaxLines_Warning = "" + Me.txtFEmpfänger.MaxLines_Warning_Label = Nothing + Me.txtFEmpfänger.Name = "txtFEmpfänger" + Me.txtFEmpfänger.Size = New System.Drawing.Size(228, 20) + Me.txtFEmpfänger.TabIndex = 68 + ' 'Label6 ' Me.Label6.AutoSize = True @@ -179,6 +324,30 @@ Partial Class frmOriginalArchiv_ATR Me.Label6.TabIndex = 67 Me.Label6.Text = "Empfänger:" ' + 'txtLKWKennzeichen + ' + Me.txtLKWKennzeichen._DateTimeOnly = False + Me.txtLKWKennzeichen._numbersOnly = False + Me.txtLKWKennzeichen._numbersOnlyKommastellen = "" + Me.txtLKWKennzeichen._numbersOnlyTrennzeichen = True + Me.txtLKWKennzeichen._Prozent = False + Me.txtLKWKennzeichen._ShortDateNew = False + Me.txtLKWKennzeichen._ShortDateOnly = False + Me.txtLKWKennzeichen._TimeOnly = False + Me.txtLKWKennzeichen._TimeOnly_Seconds = False + Me.txtLKWKennzeichen._value = Nothing + Me.txtLKWKennzeichen._Waehrung = False + Me.txtLKWKennzeichen._WaehrungZeichen = True + Me.txtLKWKennzeichen.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtLKWKennzeichen.ForeColor = System.Drawing.Color.Black + Me.txtLKWKennzeichen.Location = New System.Drawing.Point(394, 110) + Me.txtLKWKennzeichen.MaxLineLength = -1 + Me.txtLKWKennzeichen.MaxLines_Warning = "" + Me.txtLKWKennzeichen.MaxLines_Warning_Label = Nothing + Me.txtLKWKennzeichen.Name = "txtLKWKennzeichen" + Me.txtLKWKennzeichen.Size = New System.Drawing.Size(202, 20) + Me.txtLKWKennzeichen.TabIndex = 66 + ' 'Label3 ' Me.Label3.AutoSize = True @@ -189,6 +358,94 @@ Partial Class frmOriginalArchiv_ATR Me.Label3.TabIndex = 65 Me.Label3.Text = "LKW:" ' + 'txtAbfertDat + ' + Me.txtAbfertDat._DateTimeOnly = False + Me.txtAbfertDat._numbersOnly = False + Me.txtAbfertDat._numbersOnlyKommastellen = "" + Me.txtAbfertDat._numbersOnlyTrennzeichen = True + Me.txtAbfertDat._Prozent = False + Me.txtAbfertDat._ShortDateNew = True + Me.txtAbfertDat._ShortDateOnly = False + Me.txtAbfertDat._TimeOnly = False + Me.txtAbfertDat._TimeOnly_Seconds = False + Me.txtAbfertDat._value = "" + Me.txtAbfertDat._Waehrung = False + Me.txtAbfertDat._WaehrungZeichen = True + Me.txtAbfertDat.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtAbfertDat.ForeColor = System.Drawing.Color.Black + Me.txtAbfertDat.Location = New System.Drawing.Point(41, 77) + Me.txtAbfertDat.MaxLength = 10 + Me.txtAbfertDat.MaxLineLength = -1 + Me.txtAbfertDat.MaxLines_Warning = "" + Me.txtAbfertDat.MaxLines_Warning_Label = Nothing + Me.txtAbfertDat.Name = "txtAbfertDat" + Me.txtAbfertDat.Size = New System.Drawing.Size(83, 20) + Me.txtAbfertDat.TabIndex = 33 + ' + 'txtAbfertDatBis + ' + Me.txtAbfertDatBis._DateTimeOnly = False + Me.txtAbfertDatBis._numbersOnly = False + Me.txtAbfertDatBis._numbersOnlyKommastellen = "" + Me.txtAbfertDatBis._numbersOnlyTrennzeichen = True + Me.txtAbfertDatBis._Prozent = False + Me.txtAbfertDatBis._ShortDateNew = True + Me.txtAbfertDatBis._ShortDateOnly = False + Me.txtAbfertDatBis._TimeOnly = False + Me.txtAbfertDatBis._TimeOnly_Seconds = False + Me.txtAbfertDatBis._value = "" + Me.txtAbfertDatBis._Waehrung = False + Me.txtAbfertDatBis._WaehrungZeichen = True + Me.txtAbfertDatBis.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtAbfertDatBis.ForeColor = System.Drawing.Color.Black + Me.txtAbfertDatBis.Location = New System.Drawing.Point(41, 106) + Me.txtAbfertDatBis.MaxLength = 10 + Me.txtAbfertDatBis.MaxLineLength = -1 + Me.txtAbfertDatBis.MaxLines_Warning = "" + Me.txtAbfertDatBis.MaxLines_Warning_Label = Nothing + Me.txtAbfertDatBis.Name = "txtAbfertDatBis" + Me.txtAbfertDatBis.Size = New System.Drawing.Size(83, 20) + Me.txtAbfertDatBis.TabIndex = 36 + ' + 'cboFiliale + ' + Me.cboFiliale._allowedValuesFreiText = Nothing + Me.cboFiliale._allowFreiText = False + Me.cboFiliale._value = "" + Me.cboFiliale.DropDownWidth = 250 + Me.cboFiliale.Font = New System.Drawing.Font("Microsoft Tai Le", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cboFiliale.FormattingEnabled = True + Me.cboFiliale.Location = New System.Drawing.Point(920, 75) + Me.cboFiliale.Name = "cboFiliale" + Me.cboFiliale.Size = New System.Drawing.Size(80, 22) + Me.cboFiliale.TabIndex = 53 + ' + 'txtAbfertigungsnummer + ' + Me.txtAbfertigungsnummer._DateTimeOnly = False + Me.txtAbfertigungsnummer._numbersOnly = True + Me.txtAbfertigungsnummer._numbersOnlyKommastellen = "" + Me.txtAbfertigungsnummer._numbersOnlyTrennzeichen = True + Me.txtAbfertigungsnummer._Prozent = False + Me.txtAbfertigungsnummer._ShortDateNew = False + Me.txtAbfertigungsnummer._ShortDateOnly = False + Me.txtAbfertigungsnummer._TimeOnly = False + Me.txtAbfertigungsnummer._TimeOnly_Seconds = False + Me.txtAbfertigungsnummer._value = "" + Me.txtAbfertigungsnummer._Waehrung = False + Me.txtAbfertigungsnummer._WaehrungZeichen = True + Me.txtAbfertigungsnummer.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtAbfertigungsnummer.ForeColor = System.Drawing.Color.Black + Me.txtAbfertigungsnummer.Location = New System.Drawing.Point(999, 75) + Me.txtAbfertigungsnummer.MaxLineLength = -1 + Me.txtAbfertigungsnummer.MaxLines_Warning = "" + Me.txtAbfertigungsnummer.MaxLines_Warning_Label = Nothing + Me.txtAbfertigungsnummer.Multiline = True + Me.txtAbfertigungsnummer.Name = "txtAbfertigungsnummer" + Me.txtAbfertigungsnummer.Size = New System.Drawing.Size(161, 22) + Me.txtAbfertigungsnummer.TabIndex = 55 + ' 'Button7 ' Me.Button7.FlatStyle = System.Windows.Forms.FlatStyle.Flat @@ -281,6 +538,17 @@ Partial Class frmOriginalArchiv_ATR Me.pnlTop.Size = New System.Drawing.Size(1417, 48) Me.pnlTop.TabIndex = 34 ' + 'PictureBox6 + ' + Me.PictureBox6.BackgroundImage = Global.SDL.My.Resources.Resources.fragezeichen + Me.PictureBox6.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.PictureBox6.Cursor = System.Windows.Forms.Cursors.Hand + Me.PictureBox6.Location = New System.Drawing.Point(1374, 9) + Me.PictureBox6.Name = "PictureBox6" + Me.PictureBox6.Size = New System.Drawing.Size(32, 30) + Me.PictureBox6.TabIndex = 135 + Me.PictureBox6.TabStop = False + ' 'Label4 ' Me.Label4.AutoSize = True @@ -386,16 +654,6 @@ Partial Class frmOriginalArchiv_ATR Me.Label13.TabIndex = 46 Me.Label13.Text = "von:" ' - 'lblAbfertigungsdatum - ' - Me.lblAbfertigungsdatum.AutoSize = True - Me.lblAbfertigungsdatum.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.lblAbfertigungsdatum.Location = New System.Drawing.Point(12, 59) - Me.lblAbfertigungsdatum.Name = "lblAbfertigungsdatum" - Me.lblAbfertigungsdatum.Size = New System.Drawing.Size(118, 13) - Me.lblAbfertigungsdatum.TabIndex = 32 - Me.lblAbfertigungsdatum.Text = "Ausstellungs-Datum" - ' 'Label1 ' Me.Label1.AutoSize = True @@ -447,6 +705,23 @@ Partial Class frmOriginalArchiv_ATR Me.Panel1.Size = New System.Drawing.Size(1419, 390) Me.Panel1.TabIndex = 1 ' + 'MyDatagridview1 + ' + Me.MyDatagridview1.AKTUALISIERUNGS_INTERVALL = -1 + Me.MyDatagridview1.AllowUserToAddRows = False + Me.MyDatagridview1.AllowUserToDeleteRows = False + Me.MyDatagridview1.AllowUserToOrderColumns = True + Me.MyDatagridview1.AllowUserToResizeRows = False + Me.MyDatagridview1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.MyDatagridview1.Dock = System.Windows.Forms.DockStyle.Fill + Me.MyDatagridview1.Location = New System.Drawing.Point(0, 0) + Me.MyDatagridview1.Name = "MyDatagridview1" + Me.MyDatagridview1.ReadOnly = True + Me.MyDatagridview1.RowHeadersVisible = False + Me.MyDatagridview1.RowHeadersWidth = 51 + Me.MyDatagridview1.Size = New System.Drawing.Size(1419, 390) + Me.MyDatagridview1.TabIndex = 0 + ' 'Button2 ' Me.Button2.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) @@ -481,6 +756,21 @@ Partial Class frmOriginalArchiv_ATR Me.pnloptions.Size = New System.Drawing.Size(1419, 59) Me.pnloptions.TabIndex = 2 ' + 'btnSendungKoppeln + ' + Me.btnSendungKoppeln.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btnSendungKoppeln.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnSendungKoppeln.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!) + Me.btnSendungKoppeln.Image = Global.SDL.My.Resources.Resources.LKW_klein1 + Me.btnSendungKoppeln.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnSendungKoppeln.Location = New System.Drawing.Point(813, 6) + Me.btnSendungKoppeln.Name = "btnSendungKoppeln" + Me.btnSendungKoppeln.Size = New System.Drawing.Size(317, 47) + Me.btnSendungKoppeln.TabIndex = 75 + Me.btnSendungKoppeln.Text = "mit Sendung verknüpfen" + Me.btnSendungKoppeln.UseVisualStyleBackColor = True + Me.btnSendungKoppeln.Visible = False + ' 'Button1 ' Me.Button1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) @@ -559,280 +849,6 @@ Partial Class frmOriginalArchiv_ATR Me.Label37.TabIndex = 69 Me.Label37.Text = "Max:" ' - 'MyDatagridview1 - ' - Me.MyDatagridview1.AKTUALISIERUNGS_INTERVALL = -1 - Me.MyDatagridview1.AllowUserToAddRows = False - Me.MyDatagridview1.AllowUserToDeleteRows = False - Me.MyDatagridview1.AllowUserToOrderColumns = True - Me.MyDatagridview1.AllowUserToResizeRows = False - Me.MyDatagridview1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - Me.MyDatagridview1.Dock = System.Windows.Forms.DockStyle.Fill - Me.MyDatagridview1.Location = New System.Drawing.Point(0, 0) - Me.MyDatagridview1.Name = "MyDatagridview1" - Me.MyDatagridview1.ReadOnly = True - Me.MyDatagridview1.RowHeadersVisible = False - Me.MyDatagridview1.RowHeadersWidth = 51 - Me.MyDatagridview1.Size = New System.Drawing.Size(1419, 390) - Me.MyDatagridview1.TabIndex = 0 - ' - 'txtSuche - ' - Me.txtSuche._DateTimeOnly = False - Me.txtSuche._numbersOnly = False - Me.txtSuche._numbersOnlyKommastellen = "" - Me.txtSuche._numbersOnlyTrennzeichen = False - Me.txtSuche._Prozent = False - Me.txtSuche._ShortDateNew = False - Me.txtSuche._ShortDateOnly = False - Me.txtSuche._TimeOnly = False - Me.txtSuche._TimeOnly_Seconds = False - Me.txtSuche._value = "" - Me.txtSuche._Waehrung = False - Me.txtSuche._WaehrungZeichen = False - Me.txtSuche.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtSuche.ForeColor = System.Drawing.Color.Black - Me.txtSuche.Location = New System.Drawing.Point(338, 75) - Me.txtSuche.MaxLineLength = -1 - Me.txtSuche.MaxLines_Warning = "" - Me.txtSuche.MaxLines_Warning_Label = Nothing - Me.txtSuche.Name = "txtSuche" - Me.txtSuche.Size = New System.Drawing.Size(258, 20) - Me.txtSuche.TabIndex = 77 - ' - 'txtSB - ' - Me.txtSB._DateTimeOnly = False - Me.txtSB._numbersOnly = False - Me.txtSB._numbersOnlyKommastellen = "" - Me.txtSB._numbersOnlyTrennzeichen = False - Me.txtSB._Prozent = False - Me.txtSB._ShortDateNew = False - Me.txtSB._ShortDateOnly = False - Me.txtSB._TimeOnly = False - Me.txtSB._TimeOnly_Seconds = False - Me.txtSB._value = "" - Me.txtSB._Waehrung = False - Me.txtSB._WaehrungZeichen = False - Me.txtSB.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtSB.ForeColor = System.Drawing.Color.Black - Me.txtSB.Location = New System.Drawing.Point(920, 131) - Me.txtSB.MaxLineLength = -1 - Me.txtSB.MaxLines_Warning = "" - Me.txtSB.MaxLines_Warning_Label = Nothing - Me.txtSB.Multiline = True - Me.txtSB.Name = "txtSB" - Me.txtSB.Size = New System.Drawing.Size(240, 22) - Me.txtSB.TabIndex = 75 - ' - 'txtDocumetNummer - ' - Me.txtDocumetNummer._DateTimeOnly = False - Me.txtDocumetNummer._numbersOnly = False - Me.txtDocumetNummer._numbersOnlyKommastellen = "" - Me.txtDocumetNummer._numbersOnlyTrennzeichen = False - Me.txtDocumetNummer._Prozent = False - Me.txtDocumetNummer._ShortDateNew = False - Me.txtDocumetNummer._ShortDateOnly = False - Me.txtDocumetNummer._TimeOnly = False - Me.txtDocumetNummer._TimeOnly_Seconds = False - Me.txtDocumetNummer._value = "" - Me.txtDocumetNummer._Waehrung = False - Me.txtDocumetNummer._WaehrungZeichen = False - Me.txtDocumetNummer.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtDocumetNummer.ForeColor = System.Drawing.Color.Black - Me.txtDocumetNummer.Location = New System.Drawing.Point(610, 75) - Me.txtDocumetNummer.MaxLineLength = -1 - Me.txtDocumetNummer.MaxLines_Warning = "" - Me.txtDocumetNummer.MaxLines_Warning_Label = Nothing - Me.txtDocumetNummer.Name = "txtDocumetNummer" - Me.txtDocumetNummer.Size = New System.Drawing.Size(284, 20) - Me.txtDocumetNummer.TabIndex = 74 - ' - 'txtAbsender - ' - Me.txtAbsender._DateTimeOnly = False - Me.txtAbsender._numbersOnly = False - Me.txtAbsender._numbersOnlyKommastellen = "" - Me.txtAbsender._numbersOnlyTrennzeichen = True - Me.txtAbsender._Prozent = False - Me.txtAbsender._ShortDateNew = False - Me.txtAbsender._ShortDateOnly = False - Me.txtAbsender._TimeOnly = False - Me.txtAbsender._TimeOnly_Seconds = False - Me.txtAbsender._value = Nothing - Me.txtAbsender._Waehrung = False - Me.txtAbsender._WaehrungZeichen = True - Me.txtAbsender.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtAbsender.ForeColor = System.Drawing.Color.Black - Me.txtAbsender.Location = New System.Drawing.Point(666, 133) - Me.txtAbsender.MaxLineLength = -1 - Me.txtAbsender.MaxLines_Warning = "" - Me.txtAbsender.MaxLines_Warning_Label = Nothing - Me.txtAbsender.Name = "txtAbsender" - Me.txtAbsender.Size = New System.Drawing.Size(228, 20) - Me.txtAbsender.TabIndex = 72 - ' - 'txtReferenz - ' - Me.txtReferenz._DateTimeOnly = False - Me.txtReferenz._numbersOnly = False - Me.txtReferenz._numbersOnlyKommastellen = "" - Me.txtReferenz._numbersOnlyTrennzeichen = True - Me.txtReferenz._Prozent = False - Me.txtReferenz._ShortDateNew = False - Me.txtReferenz._ShortDateOnly = False - Me.txtReferenz._TimeOnly = False - Me.txtReferenz._TimeOnly_Seconds = False - Me.txtReferenz._value = Nothing - Me.txtReferenz._Waehrung = False - Me.txtReferenz._WaehrungZeichen = True - Me.txtReferenz.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtReferenz.ForeColor = System.Drawing.Color.Black - Me.txtReferenz.Location = New System.Drawing.Point(394, 133) - Me.txtReferenz.MaxLineLength = -1 - Me.txtReferenz.MaxLines_Warning = "" - Me.txtReferenz.MaxLines_Warning_Label = Nothing - Me.txtReferenz.Name = "txtReferenz" - Me.txtReferenz.Size = New System.Drawing.Size(202, 20) - Me.txtReferenz.TabIndex = 70 - ' - 'txtFEmpfänger - ' - Me.txtFEmpfänger._DateTimeOnly = False - Me.txtFEmpfänger._numbersOnly = False - Me.txtFEmpfänger._numbersOnlyKommastellen = "" - Me.txtFEmpfänger._numbersOnlyTrennzeichen = True - Me.txtFEmpfänger._Prozent = False - Me.txtFEmpfänger._ShortDateNew = False - Me.txtFEmpfänger._ShortDateOnly = False - Me.txtFEmpfänger._TimeOnly = False - Me.txtFEmpfänger._TimeOnly_Seconds = False - Me.txtFEmpfänger._value = Nothing - Me.txtFEmpfänger._Waehrung = False - Me.txtFEmpfänger._WaehrungZeichen = True - Me.txtFEmpfänger.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtFEmpfänger.ForeColor = System.Drawing.Color.Black - Me.txtFEmpfänger.Location = New System.Drawing.Point(666, 109) - Me.txtFEmpfänger.MaxLineLength = -1 - Me.txtFEmpfänger.MaxLines_Warning = "" - Me.txtFEmpfänger.MaxLines_Warning_Label = Nothing - Me.txtFEmpfänger.Name = "txtFEmpfänger" - Me.txtFEmpfänger.Size = New System.Drawing.Size(228, 20) - Me.txtFEmpfänger.TabIndex = 68 - ' - 'txtLKWKennzeichen - ' - Me.txtLKWKennzeichen._DateTimeOnly = False - Me.txtLKWKennzeichen._numbersOnly = False - Me.txtLKWKennzeichen._numbersOnlyKommastellen = "" - Me.txtLKWKennzeichen._numbersOnlyTrennzeichen = True - Me.txtLKWKennzeichen._Prozent = False - Me.txtLKWKennzeichen._ShortDateNew = False - Me.txtLKWKennzeichen._ShortDateOnly = False - Me.txtLKWKennzeichen._TimeOnly = False - Me.txtLKWKennzeichen._TimeOnly_Seconds = False - Me.txtLKWKennzeichen._value = Nothing - Me.txtLKWKennzeichen._Waehrung = False - Me.txtLKWKennzeichen._WaehrungZeichen = True - Me.txtLKWKennzeichen.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtLKWKennzeichen.ForeColor = System.Drawing.Color.Black - Me.txtLKWKennzeichen.Location = New System.Drawing.Point(394, 110) - Me.txtLKWKennzeichen.MaxLineLength = -1 - Me.txtLKWKennzeichen.MaxLines_Warning = "" - Me.txtLKWKennzeichen.MaxLines_Warning_Label = Nothing - Me.txtLKWKennzeichen.Name = "txtLKWKennzeichen" - Me.txtLKWKennzeichen.Size = New System.Drawing.Size(202, 20) - Me.txtLKWKennzeichen.TabIndex = 66 - ' - 'txtAbfertDat - ' - Me.txtAbfertDat._DateTimeOnly = False - Me.txtAbfertDat._numbersOnly = False - Me.txtAbfertDat._numbersOnlyKommastellen = "" - Me.txtAbfertDat._numbersOnlyTrennzeichen = True - Me.txtAbfertDat._Prozent = False - Me.txtAbfertDat._ShortDateNew = True - Me.txtAbfertDat._ShortDateOnly = False - Me.txtAbfertDat._TimeOnly = False - Me.txtAbfertDat._TimeOnly_Seconds = False - Me.txtAbfertDat._value = "" - Me.txtAbfertDat._Waehrung = False - Me.txtAbfertDat._WaehrungZeichen = True - Me.txtAbfertDat.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtAbfertDat.ForeColor = System.Drawing.Color.Black - Me.txtAbfertDat.Location = New System.Drawing.Point(41, 77) - Me.txtAbfertDat.MaxLength = 10 - Me.txtAbfertDat.MaxLineLength = -1 - Me.txtAbfertDat.MaxLines_Warning = "" - Me.txtAbfertDat.MaxLines_Warning_Label = Nothing - Me.txtAbfertDat.Name = "txtAbfertDat" - Me.txtAbfertDat.Size = New System.Drawing.Size(83, 20) - Me.txtAbfertDat.TabIndex = 33 - ' - 'txtAbfertDatBis - ' - Me.txtAbfertDatBis._DateTimeOnly = False - Me.txtAbfertDatBis._numbersOnly = False - Me.txtAbfertDatBis._numbersOnlyKommastellen = "" - Me.txtAbfertDatBis._numbersOnlyTrennzeichen = True - Me.txtAbfertDatBis._Prozent = False - Me.txtAbfertDatBis._ShortDateNew = True - Me.txtAbfertDatBis._ShortDateOnly = False - Me.txtAbfertDatBis._TimeOnly = False - Me.txtAbfertDatBis._TimeOnly_Seconds = False - Me.txtAbfertDatBis._value = "" - Me.txtAbfertDatBis._Waehrung = False - Me.txtAbfertDatBis._WaehrungZeichen = True - Me.txtAbfertDatBis.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtAbfertDatBis.ForeColor = System.Drawing.Color.Black - Me.txtAbfertDatBis.Location = New System.Drawing.Point(41, 106) - Me.txtAbfertDatBis.MaxLength = 10 - Me.txtAbfertDatBis.MaxLineLength = -1 - Me.txtAbfertDatBis.MaxLines_Warning = "" - Me.txtAbfertDatBis.MaxLines_Warning_Label = Nothing - Me.txtAbfertDatBis.Name = "txtAbfertDatBis" - Me.txtAbfertDatBis.Size = New System.Drawing.Size(83, 20) - Me.txtAbfertDatBis.TabIndex = 36 - ' - 'cboFiliale - ' - Me.cboFiliale._allowedValuesFreiText = Nothing - Me.cboFiliale._allowFreiText = False - Me.cboFiliale._value = "" - Me.cboFiliale.DropDownWidth = 250 - Me.cboFiliale.Font = New System.Drawing.Font("Microsoft Tai Le", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.cboFiliale.FormattingEnabled = True - Me.cboFiliale.Location = New System.Drawing.Point(920, 75) - Me.cboFiliale.Name = "cboFiliale" - Me.cboFiliale.Size = New System.Drawing.Size(80, 22) - Me.cboFiliale.TabIndex = 53 - ' - 'txtAbfertigungsnummer - ' - Me.txtAbfertigungsnummer._DateTimeOnly = False - Me.txtAbfertigungsnummer._numbersOnly = True - Me.txtAbfertigungsnummer._numbersOnlyKommastellen = "" - Me.txtAbfertigungsnummer._numbersOnlyTrennzeichen = True - Me.txtAbfertigungsnummer._Prozent = False - Me.txtAbfertigungsnummer._ShortDateNew = False - Me.txtAbfertigungsnummer._ShortDateOnly = False - Me.txtAbfertigungsnummer._TimeOnly = False - Me.txtAbfertigungsnummer._TimeOnly_Seconds = False - Me.txtAbfertigungsnummer._value = "" - Me.txtAbfertigungsnummer._Waehrung = False - Me.txtAbfertigungsnummer._WaehrungZeichen = True - Me.txtAbfertigungsnummer.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtAbfertigungsnummer.ForeColor = System.Drawing.Color.Black - Me.txtAbfertigungsnummer.Location = New System.Drawing.Point(999, 75) - Me.txtAbfertigungsnummer.MaxLineLength = -1 - Me.txtAbfertigungsnummer.MaxLines_Warning = "" - Me.txtAbfertigungsnummer.MaxLines_Warning_Label = Nothing - Me.txtAbfertigungsnummer.Multiline = True - Me.txtAbfertigungsnummer.Name = "txtAbfertigungsnummer" - Me.txtAbfertigungsnummer.Size = New System.Drawing.Size(161, 22) - Me.txtAbfertigungsnummer.TabIndex = 55 - ' 'txtMaxSrch ' Me.txtMaxSrch._DateTimeOnly = False @@ -860,31 +876,22 @@ Partial Class frmOriginalArchiv_ATR Me.txtMaxSrch.Text = "1000" Me.txtMaxSrch.TextAlign = System.Windows.Forms.HorizontalAlignment.Right ' - 'btnSendungKoppeln + 'cboDatum ' - Me.btnSendungKoppeln.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.btnSendungKoppeln.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnSendungKoppeln.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!) - Me.btnSendungKoppeln.Image = Global.SDL.My.Resources.Resources.LKW_klein1 - Me.btnSendungKoppeln.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnSendungKoppeln.Location = New System.Drawing.Point(813, 6) - Me.btnSendungKoppeln.Name = "btnSendungKoppeln" - Me.btnSendungKoppeln.Size = New System.Drawing.Size(317, 47) - Me.btnSendungKoppeln.TabIndex = 75 - Me.btnSendungKoppeln.Text = "mit Sendung verknüpfen" - Me.btnSendungKoppeln.UseVisualStyleBackColor = True - Me.btnSendungKoppeln.Visible = False - ' - 'PictureBox6 - ' - Me.PictureBox6.BackgroundImage = Global.SDL.My.Resources.Resources.fragezeichen - Me.PictureBox6.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom - Me.PictureBox6.Cursor = System.Windows.Forms.Cursors.Hand - Me.PictureBox6.Location = New System.Drawing.Point(1374, 9) - Me.PictureBox6.Name = "PictureBox6" - Me.PictureBox6.Size = New System.Drawing.Size(32, 30) - Me.PictureBox6.TabIndex = 135 - Me.PictureBox6.TabStop = False + Me.cboDatum._allowedValuesFreiText = Nothing + Me.cboDatum._allowFreiText = False + Me.cboDatum._value = "" + Me.cboDatum.BackColor = System.Drawing.Color.WhiteSmoke + Me.cboDatum.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cboDatum.DropDownWidth = 250 + Me.cboDatum.FlatStyle = System.Windows.Forms.FlatStyle.Popup + Me.cboDatum.Font = New System.Drawing.Font("Microsoft Tai Le", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cboDatum.FormattingEnabled = True + Me.cboDatum.Items.AddRange(New Object() {"Rechnungsdatum", "Abfertigungsdatum"}) + Me.cboDatum.Location = New System.Drawing.Point(15, 52) + Me.cboDatum.Name = "cboDatum" + Me.cboDatum.Size = New System.Drawing.Size(141, 22) + Me.cboDatum.TabIndex = 78 ' 'frmOriginalArchiv_ATR ' @@ -902,11 +909,11 @@ Partial Class frmOriginalArchiv_ATR Me.pnl.PerformLayout() Me.pnlTop.ResumeLayout(False) Me.pnlTop.PerformLayout() + CType(Me.PictureBox6, System.ComponentModel.ISupportInitialize).EndInit() Me.Panel1.ResumeLayout(False) + CType(Me.MyDatagridview1, System.ComponentModel.ISupportInitialize).EndInit() Me.pnloptions.ResumeLayout(False) Me.pnloptions.PerformLayout() - CType(Me.MyDatagridview1, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.PictureBox6, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) End Sub @@ -930,7 +937,6 @@ Partial Class frmOriginalArchiv_ATR Friend WithEvents btnVonMonat As System.Windows.Forms.Button Friend WithEvents DateTimePicker2 As System.Windows.Forms.DateTimePicker Friend WithEvents Label13 As System.Windows.Forms.Label - Friend WithEvents lblAbfertigungsdatum As System.Windows.Forms.Label Friend WithEvents Label1 As System.Windows.Forms.Label Friend WithEvents Label2 As System.Windows.Forms.Label Friend WithEvents Label12 As System.Windows.Forms.Label @@ -961,4 +967,5 @@ Partial Class frmOriginalArchiv_ATR Friend WithEvents txtSB As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents btnSendungKoppeln As Button Friend WithEvents PictureBox6 As PictureBox + Friend WithEvents cboDatum As VERAG_PROG_ALLGEMEIN.MyComboBox End Class diff --git a/SDL/OriginalArchiv_ATR/frmOriginalArchiv_ATR.vb b/SDL/OriginalArchiv_ATR/frmOriginalArchiv_ATR.vb index 5e66e5ea..2ce6dc26 100644 --- a/SDL/OriginalArchiv_ATR/frmOriginalArchiv_ATR.vb +++ b/SDL/OriginalArchiv_ATR/frmOriginalArchiv_ATR.vb @@ -20,6 +20,13 @@ Public Class frmOriginalArchiv_ATR txtAbfertDat.Text = Now.ToShortDateString 'CDate("01." & Now.ToString("MM.yyyy")).AddMonths(-1).ToShortDateString txtAbfertDatBis.Text = Now.ToShortDateString + + cboDatum.Items.Clear() + cboDatum.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Ausstellungs-Datum", "ADat")) + cboDatum.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Erhalten-Datum", "EDat")) + cboDatum.changeItem("ADat") + + btnMonat.Text = MONAT.ToString("MMMM") btnJahr.Text = JAHR.Year @@ -148,14 +155,28 @@ Public Class frmOriginalArchiv_ATR Function getWhere() As String Dim sqlstr = "" - If txtAbfertDat.Text <> "" Then - If txtAbfertDatBis.Text <> "" Then - sqlstr &= " AND ([atr_austellungsdatum] BETWEEN @Datum AND @DatumBis) " - Else - sqlstr &= " AND ([atr_austellungsdatum] BETWEEN @Datum AND @Datum ) " + + If cboDatum._value = "ADat" Then + + If txtAbfertDat.Text <> "" Then + If txtAbfertDatBis.Text <> "" Then + sqlstr &= " AND ([atr_austellungsdatum] BETWEEN @Datum AND @DatumBis) " + Else + sqlstr &= " AND ([atr_austellungsdatum] BETWEEN @Datum AND @Datum ) " + End If + End If + ElseIf cboDatum._value = "EDat" Then + + If txtAbfertDat.Text <> "" Then + If txtAbfertDatBis.Text <> "" Then + sqlstr &= " AND ([atr_erhalenDatum] BETWEEN @Datum AND @DatumBis) " + Else + sqlstr &= " AND ([atr_erhalenDatum] BETWEEN @Datum AND @Datum ) " + End If End If End If + If txtSuche._value <> "" Then sqlstr &= " AND ( " sqlstr &= " atr_documentNr LIKE '" & txtSuche._value & "%' OR " diff --git a/SDL/Reports/Zoll/rptKontrolleLKW_Dakosy.vb b/SDL/Reports/Zoll/rptKontrolleLKW_Dakosy.vb index 4e4b61b6..e7a16f6f 100644 --- a/SDL/Reports/Zoll/rptKontrolleLKW_Dakosy.vb +++ b/SDL/Reports/Zoll/rptKontrolleLKW_Dakosy.vb @@ -52,7 +52,7 @@ Public Class rptKontrolleLKW_Dakosy Dim firmaStr = "" If FIRMA = "DURMAZ" Then - firmaStr = " AND ncts_ObjectName LIKE 'DU%' " + firmaStr = " AND (ncts_ObjectName LIKE 'DU%' OR ncts_firma='DURMAZ') " ElseIf FIRMA = "IMEX" Then firmaStr = " AND (ncts_ObjectName LIKE '402%' OR ncts_ObjectName LIKE '502%' OR ncts_ObjectName LIKE '5501%') " ElseIf FIRMA = "AMBAR" Then diff --git a/SDL/Reports/Zoll/rptKontrolleLKW_TELOTEC.vb b/SDL/Reports/Zoll/rptKontrolleLKW_TELOTEC.vb index d0a6139e..cdba4ebb 100644 --- a/SDL/Reports/Zoll/rptKontrolleLKW_TELOTEC.vb +++ b/SDL/Reports/Zoll/rptKontrolleLKW_TELOTEC.vb @@ -54,7 +54,7 @@ Public Class rptKontrolleLKW_TELOTEC 'If FIRMA = "DURMAZ" Then mandant = "SUW" - Dim sqlStr As String = "SELECT [Transp_CrossIdnt] as Kennzeichen,cast(Hea_AccDT as date) AnmeldungsDatum ,COUNT(*) ,SUM(GVal) as GarantieWert + Dim sqlStr As String = "SELECT isnull([Transp_CrossIdnt],'X') as Kennzeichen,cast(Hea_AccDT as date) AnmeldungsDatum ,COUNT(*) ,SUM(GVal) as GarantieWert FROM tblTelotec_Sicherheit inner join [tblTelotec_Anmeldung] on telanm_id = telgrt_telanmId WHERE [tblTelotec_Anmeldung].[Hea_AccDT] BETWEEN '" & datVon.ToShortDateString & " 00:00:00' AND '" & datBis.ToShortDateString & " 23:23:59' AND telanm_Status BETWEEN '" & StatVon & "' and '" & StatBis & "' AND [telnam_aktuellsteNachricht]=1 AND GRN IN ( '" & brg_AT & "' , '" & brg_DE & "' , '" & brg_DE_NEU & "' ) @@ -80,7 +80,7 @@ Public Class rptKontrolleLKW_TELOTEC Me.DataSource = kundenSQL.loadDgvBySql(sqlStr, "FMZOLL", 1000) - Dim sqlStrSUB As String = " SELECT [Transp_CrossIdnt] as Kennzeichen,cast(Hea_AccDT as date) AnmeldungsDatum, * + Dim sqlStrSUB As String = " SELECT isnull([Transp_CrossIdnt],'X') as Kennzeichen,cast(Hea_AccDT as date) AnmeldungsDatum, * FROM tblTelotec_Sicherheit inner join [tblTelotec_Anmeldung] on telanm_id = telgrt_telanmId WHERE [tblTelotec_Anmeldung].[Hea_AccDT] BETWEEN '" & datVon.ToShortDateString & " 00:00:00' AND '" & datBis.ToShortDateString & " 23:23:59' AND telanm_Status BETWEEN '" & StatVon & "' and '" & StatBis & "' AND [telnam_aktuellsteNachricht]=1 AND GRN IN ( '" & brg_AT & "' , '" & brg_DE & "' , '" & brg_DE_NEU & "' ) diff --git a/SDL/Resources/air-pollution.png b/SDL/Resources/air-pollution.png new file mode 100644 index 0000000000000000000000000000000000000000..a3482af81879d76ad8ce820350ca3542de798f2c GIT binary patch literal 27617 zcma&NbySpZ^auFP42X0{Hv@tK(%lLQN(v|-2ui9nL+4;1C^aJ8N{9jCC>>*v4xxZF zjMPXE-ON6G_xIbgdv^a=4jf?K_o>_WbMF&pW};6|!%YK05dBpHJ#z?xgFoTW=~Lj> zW^n&L_(g%bbk*`S_zFMm91H%Z_A#(QK@jbklOGtAmBR@>K}C1&jkt! z3X;0-<&JW?>*FHj?dO)gqQMP8g3wjHi z)Q=M>SuH&TA3j671lSymv^=Bl4Y(cDd|*3xyXA`@jWzT9?|1&^g)~Kkj%NA~cG_}u zF1<)mMNP_YWU8(br)87w$>lGiF!GrP`(pz+s91w7IqZ3yN&(wFuEQ?@0_3PcGCx!W zv!!wv4Lk@qLsB5k5EfUvYdy~%_Ap~~j406tTQXQzf(*fc5c}229phaelTP!n9?g@3 zN@Cl~Lrz@*EY!!h2^HoAf__NHITFR3i$(TvtjelA4D@0Ni(*T!*dR$g%o~4 z17Tw2u)erqoGNZfuGB*E9h!`YB;=K+NDuFEisa&#a`@__jp^BiQ&NbgrJT`QE6#f2ncyf$9$q3@hQual zGw1)dg_{sg98)}*)f~{_JW_rUilk`xG*)X_CIAWebuXU_LLyVI04icKh9%k+k6(A@ z8m5N9RYp~VtZL6Nmz^9RE{_$dtvpU*!c-pns~J1#o+-=XeqgTH-#=qtW=TKqAG5uE z{d3jl>sD4zQN5$1x~8U#nwsOAo7=skeY#dw96Sy~xET7y;Tm5}9wo1W>gv)l^8NZv z7ze_^w|gsHoeOgfoJ>SeKKt4VF8h0DrhY^OVtJXb*2W!<-!`{y-MT9Bt^4ZI{QTXPXLhorC9Ekna6GGEZR0bY%7E&Q zkE)lH`FX&mU^y%&sRH+;xWQXA#ijG*eWOf`)RB=x6H1e_7N0*?S)>yWB0Psa<~`+a z%6}>lnGE*#awhLl733Y*eN^~Tne9I+YS69xC2P+l&R=Lb`nSZ})?e1grTM^U;`WZ~ z6%ek*}8aOc3cyV7I0Ph*pW&{+HNdUJa_ZK~=BN0oz`ly2$L6HfpfhG*J58@par zA+g=~dtSk!#K^64=6?SG{p!3X#z5|^lR}xLG3FCbUaoq54RJ!fc5!8NxEA}4wYni^ z%=}`mnBXTKHV8?{sZq6ajc}u-!PM543hUN&7oXAnFmJ4Ho^ILmb!^M4ptnANk2~X0 z%0UwWJfqd#65Gqi94c0q(d~wSDs(BCF46Czr=JBR)zzu7f3Lz8&j)>dEt;NH|)Fb;pseYsBYa4l)@li$F)r$>*X;;`rjS$XG&O_vl7XmE#tffCO2_Ysn-K|QDFgyB=D)Eu7TNYer*~CC z-)ofc?$Rl?GS(Af-Em!|IBrgs1&q-b2$1aRx-e1sDKm6rRKNA^BU9}o5i5s-cfGps zQS{mF+NUSOD8R7o?|61tHKgnPUYic=Pvt>}`2&WJR#94?hQZJ)SEiePo@{rvBC<0} z@!h4Eh*K(f)oLMUGt3(cnBXTy*FUGm5JsojP$QqYcpFH)g4yfNSo+V^0Tk_T*Ecse zeP(Zv+ps-aY;sHVxDH@zlP_L=1uS~|&kP&hT}>bJ*x*X*_{&duyI-E~yYyH%w_E0| zlTosD>VrE4`R^)@*pjsNtCR1NTU2+VlVSfmba)V*^fWfrKtyFb7~*@%s9LWG{J=Ya}i6FbJ~B;REQosKJM!J@OA2j*z`-Q{1bBMQXYOK z3^O8c7*e9+gCAj!ANe1cWXdIkY_P|irkn|+d!Ki7^jw1d`PzQpq>&r3hUxDW#3VJd zfyi5M1fl>#}jZ`O+!> z@+%#%$UWCTaJwa*(&FM&;Uo>Ue<`7&xy9vDe3BCe7!x;@<_z6yAvO)hFD4F>uevXCk zvbh#T?Cb626nveopsbi;Ao8%4_ddHoh(d}O)o{d``y>5J&n?+JDMZ*h@Nzh#g2b`A zn$l#&%PYz0z`jZBoSE*yQEP>K{`}eRcU%R{$X32l3FoM){TVWRsM1NDy!Bn+W56i; zq#1c8r(ROe1bMv>t|R_1a{y+Do~Ckm3hU62o`f_`Ysl<|Cflu%&gADfR&rLT?6Gq5 zWQTuSa>4(r?EmwJGC}pl(a~zs#&d}Z5vUHE6fen2GdUtdn>Ic zA+-sFER6i3^pIe zh{%VfnFmihumUy3=Pft-`7qYTMU8}&aGI#C-4J2f3*=lLJir?<8k;LxLI%zm!_2PR zJcLMsvEJqe*Yg&Y!;dXr+x{(Lw|-1NaClZ&R+-tN&%ey$${QW{oHg#DLFCuYc1KtJ z?BRU$X!Ky3dOjjkbwe;KE9+64=e^VFIf7wo>#?uzd2QcXqb4N@`7y`A*&uTzS9W=< zG+Y@bma3i~{$rZjwJV2D!%Hn!D06e=Rhkg^BvE_Cc~Zs@?{PggT(8rZ68-W?<`+a1 zg%-UfKD7G0Mahe60~AT4Z%WB8GGrszJw5rF?)K9P-njS^DxSf6P?O~S+$yZ-u$WtdOw1BT;o6GBK}U!qy3L)w(LqDgAm#Cs@W5YQM&{#W4G1Be)Z5ZY z&CbqYGrykhb`3OdQvX84qq;Q(&Yi`4>WvpZe_p=+^sd@o#owg(N3K0CQ$Nlh9Bo)j zUXf&fr1v5#>sEU|f{^3XmbmOOT$c$P-*%nUruikVktG{c&0bnF=^HH%Ejw?3K3z@0t~|0yRP}LiQ6k0G>R^r{=g20v|TMW|NNy&K5|UtmhH%WFRx!|%`P%Q z-QnB|joscVktC6;m}kXsooC(nZc!Yje%A6|ANlx)qbxT!w{EVj^mo?hEt$&Rg{H9- zKA{EvdYzXj(X6SNe6)vdwHu^gs;<0eT1~}+xLJnARB6L??{VsgXVF0Cv%WSSMqU0< zwZ>Qeozd2Ag|+B(R<>=pl|zoR>)oDc_VYp?;K{FKuu6nmf`@4#^>J;}&e*N~L1nZ2 z4{aEAc;Mi>ckgKPi_5=!2{6jnlDGTDavnv*yUo6xePW*nH)+|hyo&L=4ijwgqy9)% zMDbrq;{N`!tndE)`)6;b^ZT*nq7u8ZmDl?FOxKsNJ-vg2>hHt4vJ~|XHmoX#u|&V| zt>)6^=H^}|Lof;3wMh?_oXjq&31&H0@l?n4qB5ggrAPZ7M?QXqAV53u6%Y5QuuHXW zA={ayHqAoKns#%0NoNcn5B&Kf3rL+8zFv7rSCTq2$>4k$lcl(2X z6x%j!U&#_DV#qG={i;|))=6mS;I(_k{m=W6)r0J8TTbYF#}J5oyaSs_%{`w7)* zMQ0OaalutI%gfA0mf*{=)&T(lyisEvK<)E_rWt$3#;(;#A#gvaQ$pHQiKvD16~guT z{7)e4k7Bq{j?6G|ozq9Jz*6tpHBE>mKC`7=^C*l*vo1wA$@;~pxiZ>cP1j=jCsCMt zV@}F>F8krn`_ABF>A$k#BB4W<60837u zpvG^|%b{955;f-@-$`iB{5A5sYEs*@*qk>EAD2U3*^x(GS$Q+LHZ8jJ`cCqL*banfZDRDnFcgC=r+gox0ott-54L)n` z_C_3T2Q^D=t{dw-?@KSU1!<>9!4_#>i8 zk}>Yyoq%L#y=!{95KE_fgp`R03vWb!rAW$MWqJ<}4+gntv$wVu7AdQ4J??ZDi+F*x zJ7-Ucdv*C~-_Q`NIEUcQ=Hw8QQi-L+>o3IvVrUwuOhp{}k)3HwL6aw!-}UFf)+^71qyZAH1PhTyCo;NoVheRkUO3CwmZtTT{CZ+OUovv*?xXy@6Kcqzi zH~6x{LU#^6lXkp3vZ*g3@Zp2KCL|6OP2FQdv*PhDa9?r0Pg*lHLd4_rlD{6>c`@Mf%s<$F8ua^i2$u>~KXb-%{h;zxiWYMT@^L$4LxGWOwY_X?5ev zDZJob6#PEj^b}W(iVQ5F_Q*_|w6Uh+inBp0Az|&iYr#4D`!UHv4y>W7g_hbqJw|lF zM+DkC*v#=u<(#`;P%G3un|cp{O$n311`-lxxR1_|!oLZ09y9!<7UCb&w~Y}?y#_x; zG2B~$vHKM+P708(XWZ2$kaJKyF*VV#(h-IWXsSjkgrP zYHDgK`%pk*cRwq0oZ*mj*PBmRa<<6ETsR|BF?;y3>-ISx1nK6r{$1U*PzVoVH`XFO zU44D{B<0PF;bPYkHVSigap;Pmyt^XS5Y2`wo)O(iwG*|?;fDgqhK1&3FS_~eLsIZ# zFITIq;os&Hc6yY!(~hpjuG^OhTm&Z_o6^of%B(VPR}q%058M~qT^B&`M8{%vCC`~T zt!VDvbO4!zCEY&^BgFH<;H%ZlVTO}^^(=AEI1g~hv8`)A_qhfz_d za_Ad6@J)#D>nW7QoR*N~dHF?(CPdEl6}uRTOrsYjZXHGP{r&xE>U>;R?ewmpbGQkw zaf@9`lEkswvnB>_pVOelDE75bHvud#V9!Z1RY-|j_qC=hPS zA1ILMiLY)H8_b%+%r4_SSV?F6cy=uxJIh_wjSwF8c(lEezW&^6G>bwCW}<|xRww>> z2@Vmy-}-^YHBiGxo2`FWS@DaE*ODGLcUJ$dp@?1;nEER2k!#?!+B2BWQhqdz^3W{# zJ^`iou|Qtlyo|NX`I)o$Wl!S^!ycO8`?Y?;`Jhl_m`d>9!uJl%i62I*K6#S9IJE^L z|13^0*txr=BLsrF1Jc2|M(mZ0RdkOs6%pFPJC|5=wJTel_umXb+Iy$C6tCRor2$$Ji z+t!&IYst?Bv325G;Ze}s%l(P1Eqeb%E<<;Bo(~^9i~2GV4b7OextjqShBxL{COWdd zytAnf+`4o3V^#u>vRTZlJ5)YRs1>o|rbJOK9#aIFWO+I@ z4=qhrAX&iwGdYI$DUIZ+{8Qo37O^w={X3&Ju6rf7xW+}>rwX-F zT3nN9sRefO18;Jw{8f9{uCj8q%>Cc2q9z#%O9{as&;(gCgNme}ocZR~*7`puM%3g{ z5ca{qvsaT0!S7Hj=`Br||7Q4xPZS+ocKF=d{NY2cE`wJ5++5nja#K-@_ytZ~Ih!=Z z4Lzjyc%9rM*&9SmqqgryH{ss?-A5(X%E=1_@B(ldP7LUm`0{p9UQ(j~&Jt>qN@0 z#&BepS(M60O@vY~gx7P#Ui9gySFqkEbzQEK;!o{av#UXrXLQo)%K|9T?rMWTtul$W-<4>yx1^OO29JfDW95-c7V+w?osu7P_ z)IOdZpV`Hgi@*S{*r+HgyL${aE*Fv&^uDT!VFAmAnn*S%(yTtTi6lRDAFA<<_}4oc zZKX=|qUN(c;UGZi^5NdpTqt~oNutKoJ@c|}^#?)sy?HJx*$N0sVD7nlc}?N56YbB~ zBy1`j*?#8RcI6X`>; zte9zD=iR6LT+TcbiQB)N<%S`fIK9cDt7mFRjjLnRJ9R;USiji^H{V-#tk1r)ZVIQ& zR`#S0?3tBFTYK(ce=%t22oX7-6Xw*8HXpWx^x{DTXQz*Qlr_hzkW`D}pokk7`E8>6 zsP)igCZqWdgIitzA#h{9G=KJw?F!+SK0l*haPLTf`|fZLIemGwI;3r+YxIk4!O|+3!u|_4QA~R+{ohy&50U^C+>0lRZbP*8B307#9aCBve{| z9&)J+&;N}2VF6;g!>mP=2Wxe-CqCexr z8sw~}1)jHX4#?h0XpXl|ppP`X-F0XAR&(jj$cS2Z_@b&&mgTNjuJp#2uNIeGDEg{H z6~faY^`o;aS3wj7Li_I@y1YH_i(z^vj^+FYly@%#jW^tb!RoCxEm>lm zJl??)>Ab|I9-^0C*QlmwJ9Sfp5~mr^Y+JJWNN3|A^9tnfa~z5sSDK(K#B1=zGkszrP;%ULh!3D*I{N_ z958#@MW;$m{R=kNJdHgIUg9LL7#g~tjDFv{Ms8|~j3kdP#zfqfRBE_%48RTc2U@uF zOB9&SSMUNl{Cl?D4DXyLv>cQIrQQ!bko@Vlz^J_mt)Lc+y7QN6d9bYWqT$7oe< z^Wp5=-P?T=6P=W+A!2;5M?wy2y^Bjk$!FA28!&s>F@>F3TA_yqv%Mzhvq~x(WScu4 zg|bs?Dy4brY6}bB68jckYGX7(av>AwA?DN;Am>FI82ha-qiA(Igg$7@*K}g%ALl@K zeUJ9j{r&XgWzF^W>BH5eNVWIWkF5?jn{BqocNl^{K^ynE zO#Y$rafhCHLUa4irLo~I3scSS7N(8;A4~d9Qmxdp`T}1cQ-|e!sSNB=Td7-|XqZmo z9{+l>l!p?wZB@X(*T_U=&H6ZeJRzj*7SJQfgSa3VNsDmQbg@Y8-syr(t$!$AB<9Zc zl4_w}$aUT6UQUHv^V(Yn?q-F0xJFRfaR#&65?;J*dRUlS>V&gD*{9|jG9yd9q* zt8S&Zp0a#!okF^b}Tk?eYX&u=i8RG*YYBNfgk=#GPpfgV_^#bY7WK z>dfc-MXkNJK^cgC7x5Jf4|CalnHXS5k1^{?~E>aT+|H{3Mjp@nAjQ0HaFWZRv?Ljv}M2 za-98w8zI^`fvEs(1v;}WOXy{*d$`of(&mWrz2^QSX>;x#tpnb{!?~ad-$c9cdlQY2 zg{bMq1(NAbt@X+2?$2mH*>M3u4X`UQ_}P{kwRNi^f3N1Fm4|_rf>wpz<*w*U`nFqK;W73aRonwS+{PEL@F zUR{zj*@-eX{*XqFd--dBi>H>{M5XHd>mf&!_Z{5Yj#&N_K(C2l;OmMC?e@kJle`rR z$VdjuKpd+R>@X;L1D!+4yF(+ijZM~+I^t!eQ5e7a;~wQo5@F9{tOgUdQkNgL8iu}* zU45##XQsnKR$jv-GMC{E^yU&Eqx*wGj@D`4krA45zL=MmFhTP`9wm>N-`){PTZy2y@{LsO5$aEV=6s$A|1D&Yv`wop+y|s7@~-V5+o= zqTC$J{Eh%GXlfF2<_`m<47pFva(l}>9|b6*lCFLRnpFOc7LCLoKOLh%2ipm2BZcGK zUhZnRw6}ocCh2$Fd}&yNT}hXuPrx7&2@UO zRJ5})Kw&d3%NpPAEa&`*YXMv9fE|_`_LwWSibz``gt5f!J|B#nvv5!&lw8cyeC8|v z&bK?@fCBRmxHvn?9f;Na{lqqQ>rL#-9x?4BX1UC7{GTn#SR*2C>o$p{oZo$SFI@qI z+@1e?Kh|i_KwD63JZnT_1f@fEkI!AX%ymt&?sw>h!H0{!Y==oD)|BXOu%En%riq6Y z#-bYsm=5P zLd!#yjpuwX>lOK(NH5WjgJf1XSYc0JToUQ5s!Gt%dSS&2N_j84Nqf6unP933PQ$!1Kc z1MHj;^c`5qjn#MmRZ{HzZ2tU~0AFA^-?9Bkj zVz8(gTjg8jCc3#+Te?in#N$4LQa zuoD&RLHGG*#Ljrv$QO5bQOb0V(=@HU1*@K3(L=x!*>u}r@-N7@X1PMS(sT3=WHY-o zRGI5}iyg2A30^=D#~jd;d#&^H^M7M_%AG(W4|h(*g8KSbEAH4>gH7;GeiCA$Z?AfF zs5`%ctov~To`ZUCTbmQJ&6 z)Xx6g-PnpEJmEMT-145RG(JGY##){S@66@YGX_&Jy>C8x!lAU@rhSw)x>}QZk}$Q5 ze7-MiTm8TV9c%FAI*bX{U7L?^pyLY~{^Yj1yjnhYe6U(rT1qmG{Nrui7L%}ua1})& zXG`FMYFdnTTx$PtI@(FvYv%^-!q}2Dk54x?Hd3|>e{umJa{2F$Xe9Cm^7;ye2*85z zOT2f)KMMLEPE7Fg2NUf1L;pppsa=r|TvBNbOnhA~l^YaaUe5RaR%6a}J|_cFi$V)l zW(|X~4?CAWm9RhgCN8jmFC+kBXt8Z9V|# z^#2*a7%c5wKM|mgA}qjN981sn>9}42g`eyXV%Z%pOiE!ALAQ_?K!JxjDCO+oU$~0s zwc-ZQQKURRKCV-<{N(br3+&HRx?DS47v}$QwrtL0GZcK~)@qv8^#Xr2$He+|kGr`( zeUZ%>Y+1Vj8b%O^Bah)vnHOx8un)FqR-y>}0H^}th133~jZv=Jqmir;ztZ#OH^m_& zs5p0ndTA45!@IG)Sj$g&dHnoghs-BGAoh?i>6ywX7W@7C_pO!wlbVRmj}wL1z%L0A zvUM8p=i@9JqN8CaZ|4QC%d$&Z|M;cPSGp%DH+4?{P4hRWo=$~w2sGE|y=?*Yr=5u) z4)XSDI%?5V`S+;pZj8-I1%F}kQgN@uZ$sbuTRu;>e3$Ue`oW;QI2-*yIIAX|V?xo(_ zD*$mAv^$VE_WLg2D>cM*8;JpF zlugY`9Zp@tW)@Y_E;AnflV0Qahw!Y4t_bHcg~}xr;tI3^$zbU|vZ^p-Fyi5&uO6B? zpH6fyZ+uo#!hR(nUMffqIbjLK>j0UaN#r>`DxZ|c-nye!%SP#`qnXSXK7c6u?I!-B znzI)cPuU7HZmGHI?akPHw0xssgOB6YbWHJY;J%?8lzKG4eUWTk_*O(IeN&?F9aw$f zI5&Uft`KMr5fCpjuzB;-O7CqV%BvQ&64qU7^@3+&Kd3<4@-W-0Dew5W$?WfcWwTgI zMdBDYaqJ0BgU}=7=r!>v4z!R+=$*rS0yQY4@I%zfbpqQ=;=p#`sDt;bdfR#*Ljc%< zCow25oa)YXf*tN1V-#>+D|H9kGI4P)qd`@l%Qpw54L|;++%24Rd_hMEISWe9dRIh< zW6f}FQe36)bf}VtwZJ)H%aI1`xmbDta?{HW`H56%AZ6Fln>m|J+h`_+xK?~ZE2JD8@P?V0 zEBa)_e;!W{IB3C>nUTWDU`1vOGw2qGjcq^u@>~!cd^o<-bg*ju{v)vxWPs6F3ImC0Dcp#s9~wb2$=03`mg4y3#KZzyABSp}pH(=f6LCP+wJ5a_XaF@!SXC zB%+VPCwF$XZtsn+Mr z=~WNr{S+_A4gddnh$27&J!gs&V*S6)K0;#+q%ZReM0^~t8un-G>$6yn(K1S3APhoKe1G3of(dwPKZKs1CqgJ~8#Doq?g&^j#E5@@XI-BybYJiC5 z3EV$((f{0-0szyCxaa4whv13Ie^2^%U*<=iVlD+cdW)&c|7oiIC>E57kOKy$`Lm_@ z7k>cGU>+2;mj2&{9N9(gbLr&(zLZ@F-IvrpqC=Vh@>>ckYR!Ul`+vqKnC_LGe*XVl z2m`9}$?V7w25feP^y!0?x{6A|o~2Youx2~o!Q;I`ckSop5{^rb z58iHwLki3?-^4f0oJW3&qEuF+7l*cgTfgQl4yX=Eimc0M2?3tz}`>^ z{_nfYeDF8@s*t?|2Y_TVPN<{AuL)h2gv38n6;%FtX9X&l%s2mMj&L@eS1P(ts@gH* z0_=@z>OmPR^Kf-LJ^Vq!EChGiTH>0@cxr|K}{qTM)%e?U{lY2>ISmI~9pMxasrSqT(t#Y;BC% zOcU&(HvbwkCSpT{&L9PH=tglBghEJAmW#Edm;VW;+?pP2Nho3~Ei9iALVJjtXxt=C z8h*pe32k6}#CI$JS*joAtMEKiIA%=Mq_}g6UeP{Enfp}ixr(oR%yC-s*>rdcQHCZ_ z`r{G!dnk>*DUa`PONcl|JKL@ZB~hc*sC}Zc9;7t%4p{x0O~7@c=M4mbV7^TT4L06z zDT*|@wLdloyNzD*2WLs3i{Z*1B%<-C-k5 z(t%9Ul-`Hk=TWAntE+$<_D^yM`*nq<5WqZfC}kZ`4!AK44h{25nZz&Y<8*OUr+13g z&+M{)9K%b|v0^h`4I|9{Qli}$(Kq3GmM&4^mnr0Jp)o{5V{CO9;gd9Jj z?7wEbM`&%zP(oey>;HXt5%0lF%Jm~wW}hOYKRRI0i_TN}za9$V-*fF!7H5;vD?)J1 zsp@eT|8LX6@OU&?s5-%$HP^|Nn66IUKhAr3KU41|NSixJN`!ttF<)p>2`lT;ebF@g z*X#VNdMBxJ&DUwm=9?=T>&cW&x8`{JhxC#nMVUc&ipaheEdD|eONd$1n1hod2xO_q1z2g2$&S8@znQQm(k%>n^eWQu$mz z-TUv;sL-_fe7Zn5$szi+U0kyr{yoClwlnP7gc_(@gN+WSfGvV5Qa-|aGhrj^dmD)? zrS|f=@j->KSNOk>?!CEOjh#b=$x&F&a?XKotj?YsmJ2ss+)z5>S%+F#oi(|%T_p5h z+qM&R?{3tJC)HYZ51*#wv9VmT!vmNm(G`A;-ro|kifYaDC9CqlBi`| z{A0+wgjaVR27g(8Cr57j5Zhw2KF7PKI! zuC(>661oiAHn7?02SsMI;g80czZIML2=@)ECO%@w;*m?|NZ=X0s=+UPZOOduZ)-ED z--42H`kl)2limK>P{p|m9zUk!Ylw`S?EG4hublsG)%voPX|rjDa^`R)P{YO-9j0Fs z@Sx>Eb+5?k34ZpnVH)psHcDJf0uO*4xaeWAda;>Z6vto1u4uU01^&IXY9|_4wAaoh z-#87W(|6xLSM@Lqda(Emm4?Z@ae10Cxyv;|YLH2X;zV513}F?<7E-}mtaHXR8xaR_ z$~}&D*+J7aOu<2De}*DLDSl*RYDwUwfu;U5;{+ud7_Ae!>17O`$GwYiRB*EhUt9j$ z`l(ORS1M%ikg2dqL8ZDdgT~8w;lcAh1XGe#&pCG`+f`KU|BR%d^Ge5~syoIT;jby@XE`6X@uD4p12APo1LFb$EzJ4>OP)h=g=#omg`I+$ znc5>qSRwt!*8pRnM+tnwRKL>Y=CA+)10+>#L|2b z;RkTCOH>%w07ZSm-6XFbQW>KZ1M}YKWi@`Khq}-LjI#)&WZ+;g2WNwi)ei~teVG&U zTmDtmmMkONkp)fv#-GXtyxIxclRPO21S;3`=zP6kxh4v`d7V+GanSAkgd|Rqh58y` zMP|k@Pqb5nqrbucDO28!s`H+5?u8}yKMuy?-PKxQmtxh!yYVBJD7gC})_z=(`FY36 zsc^QNeR8$f|0)@M<~U&#z(*?Aux#T@0&gzZa|qNaXL zxE(5BvJaT9&1^&H1#URBe9GGMVhRi?sdi%d@j^3yItN2Nt=@EbRrj8{T zx&?9&%$H_vLOKETF!UVE@}xWctgEY2wCQeZ?b5?1KQ1x8t5VQej&|Gc$sO(vn~40l zI_`*bX}Wmo@(M5XrrZTxkP3m!2W>DPK|d5F5XL{@hYwEcrdNH;@WV-_ZWg!7oXGlT>4$)i=ijYt*6>o z4>Y|U+H<%jG?`P-jA5;@GfX;LThK}T0AeI_H6rwMkAibDZ_dd(hwWVMxPR3OYIrhQ zghf{B=rB%5Zr4qIakED2MGExJlR>Ak3Q;b8vLFus31<~CZMWVXQsfR-7N?&d``rxB z4abX^ggx02(&HkqBrOV8)7}AX^ds9%9nOs<0Itb z*N_Vb>dD>_+Z5(kSHI18K0=AmFn>isZx`nU8p5EH@-+}xq&&FMqrKOH{yAy!_~>|) z8#Q_ynx#~h`Mg`ZUpXF@&QasyF$09IPYPY{yr@WFW(-ziom7tI&WBbtLgb#8C{kT> zGehR7lf;ruqkO1ek2KcB!WgI~>~R54dSJa5bwYl+ex@n-@74=aUL6+PXd1s?N8u3C zHm1Y1?CNj0(mtuPfIZ)|zUFl4@%{)QC+;ta6AlLMt!pqDfWYZBxD{i7mo!1=u4qNf zU5sC!^l>u{Q0$!=$gMYB4c^dT?-Bqlv~;A7yY^>lg#d)RboqaV1xr!P?NMa>$((&P zXv_$#2HfayG~F6sb4YtJjWV(wFUmN5gc+qaLqXdo$jiy$qCw9L$3g4fpL&kuYZS+B zBQKvAtyMK^E`0RO*{gdL{=GjrTOCvJus;3y7rKw!Pod9@Isqqq=gp^T;K!P31+$j& z&103jwSLgG&NNR(6-w>RR2D5ZSaCFb#V2a_X5%FhtoxO1Oa`1f<6N@q|6p?Rb0IhHqk53?rUN=V*$VU8(2ld%*)ghp8K(a3J^l z3SElu^)YEV*82>-X#&7-l}?UEd9jhC z59&$k>EwbiVt4L&bY7lUU0vNjfbDjdOTD;C_DtR>( z$`wcEj5saOUUFhN?}k&7vep9kF}XSZq&GVAbkExSY>(51)3pQX=(i>=w@Y*_DSmH! z1G;4;Cs8-lsdT8|H|W8@Jp2+9Ay-S*JdSfxE$U)Hd|=C=1O^ZEALkIJ0jroZ1^y<|%$ ze$1~GJb^4R-PZc$qgGqX9^%_=OlrI<^mYrVKO@M2nS_AJ(a0FKMZb=4jQ1*^weZg6 zJNJ4#{ywF|_@`#X)w9##i&(M8r?-Z`s&Y`x-Oo z4&UP2cvC@p_`}+Pir!wmimk=nG_O@6k*}Le`=B2RSIt*eBQ_+7O6q+nhakSwmj4-% z6(_V6$3|gaw(3sN)w`dDTj6%<^1s7dv7wbe^GuUcv6+hqn=UZiq}d@at_bEoyO}zZ$lW+ z+pstM;IK3(YQjKUIhZ`*!Y+&SFV>(=eaz8NT-iV@NP2vIm z^#@a-mY3`F_7)YWlDL$`z71iyBc6)P+*Esitr21dIFg8|>rGRypAOOv+TL0LWjK00 zr&FI=)Q8KhO;jErE20MICS~q#V|h_`aH+?q_1@M~L4u3Q%x082dSLmENjIpXYd^i) zbGpkAv1;s;Ho94QDPjZLW-;x+lzZPbY*|r5Musq8&h|D7XckahS|HOQGT8e#?foCI znZA2ZCVozC|Cu;l))_ICBUcy~rAGe9R4Ao9in>0F(~0to#eKiA1z1b>M*L*Ko@%Hf zx@W^)HStSq5c_ zv!KCM%bdA0uVqta42gKY?Epk~rI*Fd@nr8X4Nskh9IbR}eBW<{2C7vL(H1N6p7q3< z>EQmvv4rb3EphB7Iy(CJ(^9Numo4lOun+75N9Wnr6l$F3O0fXEQE zTIj`W+Y`{|&&;n%P~!>0rrXA3-$_WSbO3P?~7jLtlM$%dt&=sW zwi@6+pIgn_h(iIOGGBnoeDY3**-y@_Ms+E;ChY9LqBz~`eh0I+4ME{Enos3@b0(#l z)B~3|qYjpUJBEFbk*29aw{lJ|i ze7dhKtZlC^pcxcV_$GW~oSgBnUUBpTv!mj-?J^lQ^d#d+6$cGB2IEW_!(NFGR0UO~ zR5!~7CNAfChVeOXmJH&jhJ;sVTSwD5a(*WAsqcchrZ@Y#&#AQfB*gPW%Lp@i@x@=4 zigu;oCHoW^+O?Ps2gS2yYN^#M1zrV=N*-Jj?%L0{qz=Aa{oxoXu?JcvZvH91JiabZ~EVvqj8?bVi z2LrFPGNA`gpxYCLojL13+0ZmR;nQ!Om_NyUE|+)GW~*3f=?1OR=3sBSR@KYa(B=zA z`G*H*G}ha7?Pb^5X89p`VT^$pD5Q&~lvGwmr=_{7sf}>TyRuHVC3T%#eiUVwsM(8U zf4?XQ;rmp)gQ>@8{YwLFz>nh=(# znHzDCN6lTl9Caz_n;h< zx8r^d-)hrt4!KznzkS;1_H7%6&l1-E_#w12vb9<}=u$LS<4n&W83XR@2DfotW1WL| z|4~Pt+sku)(+GiPSBUEufP?I&c!=(+Ir>#nq!fn;?u9=4#RYeBMbIL8x7o4s8&Bok zid*fdZ!_n`jAjSg4nCCsTUnXgi6UwF1sh!d2m80UD6u;d9tM48DOgV>r-+-|=R>V~ z6e^Ccv~B|0vLJ=T7hu`W9r|mcof1`}!BrU9rNv`n8@Z!1^~r~3f$i4I-&KxRfA{3K z2PkVBdOQ5JJ)A)GhhCm8XC4)(2*d(OlzS0@c(Xz6v%Pjk)v;u9=5wRSRPV3DDe?tQYFSn66#_gz(=@*y?MwnKhglmH&V=I(ggJ+dC;J zCw;Ub1VzgDKHK*wr5#J9D+a#_dZgs0GHmE-#+19oCgq-Y-)t89)!1KL;L>A33ZH{m zN0@evkP?4HaO1gAf8gxAGu3~8&vj+j{Eg8LYZ*!}%?o8G+L3C$Uw_7rjt9Ao2AGf~ zmr8PzS|-FlhOsg73J5m)hN}j>_qL#yh0wWgT97oybFTD=uZy@VkXOTesFG*sSM}}{ z5MNq@%_d#RcK3%>CF_lxWwE7?mtWKweGcsY&@MDh!9NRYF}!cPa5P!Pb~1j zhh}S9&Ztbk%%r?sZ|LnUJ$SsWY%jY#TT8szYfG4nIDIw~VOAl8z6PoTSF(EG_7QDu zUEaj_*9|urR=Vg~Kd)>gHPE1s|7v%r6C2VnY+)>fm8QMS>BblXh(Da9l@~I1zk*YG zaB#5glS>b{56K&;359r3y!^$aQ+%R2F_~SE7U7IAzr0j4i2$;&l16ItgX5_W7uLj~ z3S;M~D@ZN8SZGqp8L>JZSDV{1Jv*Hp>^X-0w3}_8W z#>|YO2b=1M%@1fc#Hb>JuZk8pktd%P^TW^G-_d4Opt=)8K4g48&pW%N(E0X;#EI)@ za9sKc`X+faT(z!!V$`{E09k^vi5xOx_#N5;081_}!q;+CPedjoO(_52;se?Wn``3; znWdE|(gF->FG{gnFPm;~gbx2Q4t~Ujl?LUEdrmZDZY?TPBxEKP&Ox9(p|5ZJdm`U$ zkMU0lpilb8K2aIe2?e1(b$l@aG~pm zV{zET!t(s=T3cRGMMeJc@$q=%g+sRkzdRK5pzD3B>L8!E0GHMl)NVjxL=Rq%z_t!< zFjnNUp8y3bVN;VU3KYo>u|K7?I@J3=RFD7I-|7h?V(Y=JN1NJDq;Ew`-Kt7nV?WX^ z*bX;EP=PA`MV_d3zEDfs#Q@7Mp|DO+Qm|B%cSmRud5FJh*%_kzMxzx5b@y?aG+Nj( zLoEuKF=I3Y*W?mt@}cwAb}F}uKR%8uuibttxVPj5T9r39A5R8+9P<}6a{fpiE~ovMd;SIfr&=6qE6Ey`M@%}nl$TB09Znst=JvAu5u11Of~P7$4=Et~244Q> z!`65>i1k6IyupARb`Q6wCHn$oIa>dd<-Ani6k|*Uhyu>)8d?>qkDqT}?_iYNPDE`f zHap%aAPGO+aT%{84%Y>^_h!tNAfmw?0jLaIaj_rWiXeRH`#)Oy?td!(|NrMX$Ijk+ z3lYcO99d=tBhws(v{rMBVzg)L7uIqU{ zujljec-$ZRdM7r%uH)uj#9O_5IeTZV45Jf7&53s%0A-&xTiy5b6SYthOA_SI@XmU9 ze|OAe5HIeoKE$F`5Q`SuJ#qkDCmoLNr3;@N*l4eQnDwnCEt#HPM`m3p+XS%89H;Z% z8Dhm?)BunwlASy6BmU`G-ne}hPoJ}Mks98+`9ACk06(|am{?ow!tX$7BqA5b z1#<+wD|~~BpZc6jmIQVn$A=oQ&xfOmhhJcNlwtJxPK!-r1*24P#>aj+a6{6j07 zpwzj5KPmQ5b+v!`j$vvlGt;PCbbz8h_Z!YPku-5#dsA;bd|j@KHdU@-woE8c_9he< zD1xQ{^)%tvbiFnpGa%Gn)oRrLdYMb;%(yoZ(0!!9EXl~^l;yn|L?5p#bfHt6(P!)P z3ae$-tzmj;(uA>}8=)#L6BC|;gS%^Mk8fRl8|bc;-hHHwg6MY`qTky{37)#YgX^BV zISzex547ZUjT^`EvufIeo*BT9Gk0-(83^ReR~0Gpsktk9CtDMj7v2=Mhx_e+?*FZV zvUl8CP6#R(&vy4m2k}%Q0vIxR!f1BRmEHf38XtQ~dptA1c)I!qFZSQpBKUjHq2$O| zCX)vCLZM{NnTS)auOcD1@$%Qf(7C1~S|#`DjUX!Cu0Os`+*H3Hr9rl->2Tq+^*rkO zy>{h~?sF|qrJQ#aLfq?vU*Wx4{(;B}0srw%z@sECnZvE6c>jKWt8U@L50bgwI+u#K z`*^Vn7dW;;P$@gcaV19?zN!{j^t3B$wYtfDulFJUUh3O?a?!eED2MFNQETg0p|35% z_i7c7x8d_OW5_wKe|qyjHkUf)9a^Qa+4*ZWAV1(fdwjo- zyACT=B9d3eBdZ{o?)q@6D9SMTGC0;9y{R5g+*;A}WUDc4>09Pr^o|#lo27U(vzsLb zI}Hv3yR7gbWsnHft(!_pr0KfNwrY{qpWkR*dT=&2{%-nE24r$!7GB{e`|x8!4gjx~ z>U86W1J;|YS(wL)d|Sj}qx>>^ZF}Tw_d`X0rT>z-W6cyi6Z*aQvb9+uF1}cCkMJU7 z-OP7lYIgsI+EdJ5ZqC9&P7$JO4|qH3x4z>0vpr1j;0u2w;f74L&k$;PkqaKyx=}yS#P^)QexA%1IHJ8cl4~4O>bVt?g^FH~) z?RY?tidO4fMTiSOtt`pw+oYhoCc#(&SPDDwP;W0T%jkL(YHg4T)E-_a@V=#kNu&~D zb3g!QThjTxiX@%jTvEHk-7ri<_)X=|(>RCx@lbxVa*GIa;j3;1%}_lKtE}O=V_KCj zXcz@E#Pep*_=yR|1Q?AGKlYYIS<)4LW|XW2Cx?JvZFp8Lr(v-PVCqNA8;v7F7c8Ce zu;fdhriS*LzwtlVJ@$GsA)ou<13NkpM`y&6QB+#$PeJ6!fON!pLXR`1}q5wH~>vMU)KxElsKWe zCMD7TovNAsc(@o(1^PdPh~W8%5`f?G+C|*J;O2DT>7S@>1K+tIgXnft_W~6@kp%3K z4+-aYMZnH!bVah+_AJ#}DD}#$qM<{&JY%vI@3#}mxH?G0s>DpK^g)V%$wi8C@9LVI*=AQw9xtNMWi_F&n_)?K?4(8fruiQp1`-^ zBOrO78**$C*GGwKhGX*$q_eAbx3Z<>p|Y*QVy{OfA9z`^HW!s`RXGX3-41}U)DV=S z$7aM!lg71Y`?#D53BiL`iz@g82@*zY0J%Ft@*(QWwdo0*#lqhKZvvkO-C1zOfENOR zyuhYsB$;)NzTUw=Dm5*wbE8`mNFqQ!!tXk?9@2xV=AFB>ay-b;!Y@Z`nG+;nBzIyH zqCB$gc>>O>x{<$#5epL46zJ_k6HnderTSksXBBp!q{~QX8SYs3)ZzQp5I_Y`ob)jZ z5S2?xOMie$|IQ9Ky51{2`RLu{<}%xW(9;Wo5ov*$m?cb)RDv-B{M~h@9BWyMD;07- zKd{$GRLYjwyGo=G2|Ovn=w*cx8~PEteD@LmHEt13J5Ga#P*yw{x?8_io>ydDk@4L* z>EU8W4-wvPr%Z~H3U_Qv$eEGFW3G#28TQwpEeFI-EeShlD6lYY*;oVTy1Vb&Zl z5mMtmH%Q9UWylK*n9@(BrlD34UrU_X-nFk}RaKGn*o_>XT)%$ZvCv)JdrwvUUJlf= z;FZB0Bn9S)7~rg{C&V}o{;cQ1ugBfEtNKnq&vx2ctI8E~s&*Q`a2cG*e~|qm!#>>A zJnxdyeH#Do6L#6{@R~Gie&-d3b{^KYz~zjC!XnSwDr-sR&R1-WtgfR@eTez{q(ER< zFz*x*U^+FBee!l*ij_TI^p$xOdPLYH3M1YCC|81~c!zB^NLKW#mOnk4Fep!nQTVj;cx0749bCHUuKN zv`^AtDXH-8m2(x0$P3ccpDX9FKXrkgJN&x=tbYsP;U;_La2arw+xEx)&~hd^dQkZ? zO--o^+5jkV^!u=M2Cpzt2Ng#60YJ&=2}&_x_2Q*>o7fe-KZX7X7Q_IP5 zmFMdd1QXEMpWUdQWsW{sj&1KIdBL!{bOu#z9)2{17%+d^EOS^JgE~^+w^05Var8?H zdvOU4F9%M2nP>gK^)SknW){YVoITz?oOYKV%i&2cr(dC6AOZ!TDiQ{kg!9JifqLF_ zZ_IhXey=C_L19K1pB065L6{vGiu?JCple-zc0ypKi1j>d?w&iY%zAR&Gf3MJDZF{ad|FrHv93ObA^eMUX4k&rQTZt|!D>H8ndR`biV0zot zJ2*)78ZC+H4~mFp?V{IjaaElKf{H7p0og+)IOf#mebZpZNXs(+6b;i;3)T+@hdTK?0KF0RUFEA})LG}K9_V6~q z{RVk@Af)c(B-Tr~-<73`5VKpcA>~k}Wj7c^6SBtnO9|ZsVx$QSC9etoibsdF%b{$}->3+sBh*zUt|=+H`3SnT`iX}g zG+x%s;*Uyxv|Ej-cfFXconGl1$Y?~`pwP#-pxgXiFWI8b&x08wU=TgEB(zmS*l zhVZyIceaOsaFLZE9%tQKwtZt(SeE5JFBlf;q;p_v|grBpuu($SQxEIv)IP13W&rf`u(h05<2%C?Sh20 z_SLtArKKav%8aDkv?T3YgD)o5^_=Q|BE^lV-|>LE?EvEyZTy%SQ^Mr9zGoM7sa z2eaRCOxB3`4kFY~F*DeQ&}5h*KCU7k!K2g5XQZX95flD2IU4tMdyWxXJu3 zG+0nXMdG=PDw{S8A@O#rl|NL0Vp7fL3j7uvlb{9u4qOUV)Vwnw-aT9Qe* z_iIs7VU>$x9+z1&zQ;K^wY9RfZnHl(#IhlsLJ<59o!eb83BKAzRABRM^@0&e%<}r& zP)#BoJTPVMaN=i#LGj1!&vli)T2D8mAu&K5iXO~il#)7>=*R8!Z%j6ov7^t2O`B<; z3Gm+wi};Qj?mQe&DTNBO>?Ldt6*t5lI8tpk29mr#KWMBKbx6IMBpgWPKYKzE-yx^< zqxlI10XZwirgAUS{n~d<1#wyYp%O8WWw}iXjPzz%23aC#wB(yK1|0zI)1{Yja|ILn zJ}$2?c4KRntA*CChf?aHhXwK2ly}wte@kgU*6#Kk{;TQ9$%oClc2jiDA1cU zdHAFi;;qSuOWX<~J$OVAV#RJrJySEcw&R_Qf~J9vf1+|G$^<0b)-Fl`EfBzSu6!}5 z;F#MBD`GYzb+o&|lcuf!bhAQ>nkW_|U}{?@G{nmb%PR6Z!9BN2lDOz&qNklIAmxFO z+{aj%Da8VTjmNrmG_u&o8uwyuZy5X@7K&5*jI{k`6n=tI8PMRJ=Ni#{~eW`cg@ko1v@pdugPXS{Jj=+D~x}G3KQvwhcWq&DXUhcLH3;^BRboe zJ=Y&38~XNKbLh-p9f|=slCrUu*69NC3F>Vf9o9&`XkMDu(IG+felWM%+z9?<%L=S}6rbtuCokXQ^Kw+K*`V?k}W6 z{S6sEt;u)dr)a;uXUCWSYezQeI{NOIrURr-zN)Qt7kS**%?$G4e*YNz`W0B@;Y5c2 z133}-+m%G6672T)dzX_*UQ5h74M0U*3dgc$CtVBV`2Qs?ez6NUks(+S3^>UiL zg9S%RQkW!0&Hxk)^f3-q8gEUS(^Vd2hD}|<;syVjuh?v3i9!RGooWYFTvkVtU+W%P zx{A_0IW)~FTJ6?>dYriN-%>ou{=RGIR+bZ@*sXAMDKgmCRFC2K}Bv;MccE z^HRO7l5*l>FG9m+Qnx-8rI6t8XOQ&pCMIIs;=`*l`zOh9qLi~ z`0-%~?n#dTCRChLA5l*R?Ji@UDSK(I3U{2f1Us%hyDm28`MKEu+N)yHZ+>1&D|D`E zI0&lGE>7GSeDzI)IYz=DF)vd&ppvPgsjBw_JKIP5Z{rmO4B~G|BR_+g2pF&*2?3hg z%Ht!_dnRuQI_F7zWC0(Yan|stU@A&BNIQ)L+gveR=L)}PbKn$ zZt7S~$OR(;$_0oz1Tn%k0LAnn;Tqv~WOatd9)Fw1gER9deE66-$e`(crOs2i708)% zG1m1$PrgOPt>Hm-VXU2al)X*{WDbNtiK#ha!}5?Nu=!67$v-E>IKJFg7$sOpr#V#^ z%TObwFx>PYgL%o=n+t}kot~Vccjr?CUUqwF1@A059Pf|z{~rbx7xzLnKlFHBY!Kc0 zX&1c(Gn`I5bIWa`GMV$bFQ$aH99*?{;NVg=>k?-cG!GRA#{Fz~eUYcC7&Irjvy?3I z1a z7UY>>ucqkEFR5G#>M8XawRmN1-$R8qR*$>~h92yONAYGfM>9U+@6onAErp6UjVxzJ zTVGD=#urK@20zYfE^n}-G@dsz6Erx3XFPxuRAFEsFVT2S8x-hFF`EDF`jX7CY#29H zw1S(y2ydf=nx&1kz~FCgqOD4=#Du zMx31|=5uKZZr=HhRx^2v%hhTy0m4MTmDAx_)kfO*FhxPvWyl^!$gwa6(muL=4LS^C*!hu*iSlp5qrQpKmKc zLQHK;^GVt8yAAIHEg*|OFAahH^#o%z8+;Hhjp^Lums8QUHn!=%G?`nx4%042XuH?` zIX5wqB{U4mF?^_%G+)l5Up?H$qdVFWpC=kUc4BKKt@^TEoPAZEK5wV!y@gR$a=CDFK3Z2S<*JN!+NBh4ATdPH{0ci%jU)UKlf^ zS)|-WU?GD6qVQKH+IoZ@pL1hh&&BY!^6Qk36v1$%&6i_!)!)s}&iJ?`pq{7`H;q)4 z-yesCVuupxgp#t#^xl6phph8P0!$#7dEtMunWZ(pZ4e?N~6(Z{+&m#es^LPBh-TB zdMooIU6$~z0VbY?2lwu=K%Hv1AM?wo{^Uj^jNPtiye!-6ud6d@2{BS|%JkCzd=3~D>!hv+zrMy9-oEX0cCOAHR-eUN zsZW`ea6^E%cf7|5L;4U}cSG%1xJO(rS)8%CBsyMA>2X0RQTM|U9k`8V*y;COKaxlH zoZ*tJ3b~X=bMhL&J$yRW&zw?g2N_)P`}!mS;=fV!1L-k^`J4Tp;yQB|$mbBj_p?;C zgvJKiD8gzps-$1So$p}sUu?dQj`kYnmV@XLN{>5!zp=-+4oLegLHl#e4DoB*;OpFC zd1HZKe=pB38~OW-LHX!lZN96G*!*gva||=f+Q)@o6ejZgDZ2SZGN0S=){@}%bv>!X znJ`H-;0+SFpdmTkj(IWg)%Qq*#>(sa+R{6uC-wPBQH29!@~aY6z0^YgW_;s9*Ad3eOo-kIaJBev?>w@9boM3ykfy?_eJ7u0WzDWtfL zn_^7c0x?>mzP=iPj1;pH1A1R$J5{L*$q&raZ)qzbKR3QM70e(|Z6cTrGU-2L^ls&AxX}9+ptKwv- zZ>b9d*aQ2TGXysUjkK2#0TxpOG!w71jBZL(1SNO?0m?jXKEXVUr<#dESLj8+a`i?v zH6A`6)0rY_SOeQK_m~YgEB6rjaEkJLX~VU)VsgZb()s?~sKB|F+^&awF(8F7%fB}a z9r#=P2*D`gH2-Wtqkbv;A=}yj7sLlIpTH!qTgYCC z;5xfRZ#CC_EC}+C>x%l%Uu<{F=8i2uO_AR|J9|@|0g2|eU;D@qPuM(zJ$HVK$PYWZ zD^)zTWQD}nrE{hgn6#Ga!la^3&A>x&J^PiK=FK(>-#YbX(f|PByF%hcMi$K)E!Q=_v0!l`u5r z{C0QeheI0F8h#owgcQLP4@if5&_K{1JZKm2g4!d{7`rY38xx(7 z6(N^wA%K)G))~+PZy#9%^ug$cjXjt%?L3r7uzJX7bQLx0im9T)DCU{2X^?kI6M$R| zLEo#uh~(3jwIcJEUbg$W%Yz7Ql5|%nUufJQY+SVABJ|tUtW%~eTQZv|4m0LyzCO_Vf~4GDUs79vYr(`Jx6UecGmhdK@w`@Y ztZ%WXRsx;pG>2S8C=-U9;#;j1wgrtKZvwmx9Bu}Q6YFi>SJV}pp>}$he)RO%h8W}o z*CiO6_F&;WxG8v>eEz{LmezVt_>IsPDsB-l+Jg&MwAwWid{(X^H0($lhG{nP`?3vR z`5a&@ORK4;7hC3xxdM}jhGzcm3igot%%qF<*BX=HCfS4$>n4r+m~Oc6g0gYHA1@&hMAlaM^^Y z<&1kmfdF<=aI=fDkzZe>g|^`3Ej9ZVMUK~79#>VfSv@YxOw@bA8m7qwm|%`Et7RNE zBH#!Dc6k>sdDlh7ecYU)2 zvHJi_^AuuT5Y6Hnf;JXusDZf7BnL!kdhyKmTo?0B)K;5kb4YcJc(*^E`#Wk}c;l{07PRVl&*WqKN zfLoa0H}k)JK9en$Ol@iQHA>%k+G=BRyZNaV+#`z$IeI7kxxm|tUza$#iP=WoF-?um zEVt!VJ{ZQpd%es9kFzvkL`dQ018D!W@}1o9D~(4qm)<|pZN8Ke4qk9CEcX_u3sQuQ zNy&}U8zlu-ddi5j;s)zi!xAIE?vrf#ELD%@`=5nCf+CJk`=ND(wf9FG8CkN|Tz&aB z8ba~sZ`?xkmw5^Y*h+*RzA*4yn|wgZLHSk89>&P7S_R?=1q1=FE2X`;jx%fGz4h(Y zG<~Wk*o%oXEaj+6YceG|sEdo@0U;)qgU_c9qKQjTj zosxPq*jBqn4s{>NJlg#CehuRv<9)CVYG-`}E94NM(OnW_bhe_r`aHX0wLCqepueAE zB0kh9$H6cP5Nx~VJB=girKWM5**rHsApi6?s-Fe)+(1>_kpVWUoH7uD2#V?LQGn2l zjZn%rQv2v7x{2&c)Mbj`Edo17eVDo|e4Ye?-dAU^;Dil*$^+j|kKV@_<$TTcAuj+c zNJxB(k4okM5&U_NM;zQEQjfP4hOJez{o& zE`87TqxL+5VJ3$95ZG{3IhG1gOXz)~H%pz*gxmPCbHAXYqqp73M$@aD!#LkpT5Bq( z{j=%BA zK9OJ%+C^Q!^2$6M@Br2;o6MZ25$)|aNSP%W)gnkc|NdZ@PY^7~->}G*0#noAGtm$k zWO!Souqz?bU}ygQH-M0O`q@2KCGE-z`ME3b&D=O0zgqv3nl5!Pv z{e>*8yTVbQ<6wa5voZIZ?p~bEf4}))|M%Mf`toQu+ioP(>Pe#_yZw_hOKTn|5G9Bq zo##)9wCq}rCF}X>D|cBD#{>R%h5m@Hog#u0FgDvG&M?qUofv6e;#2tv9s>q8e(fBeQFnQGLS3O5si`iH=m{AE*RiexSvG zmn!zq%tGGoIN;kDT@pTEg>{2h4pc@1a;DN#hxfAPw)`t)wDu$9K?=99XCL51Fak;= zk!b86T+go^?6QtQlFcL77(XdE*Dfl}4cgTC?|7fp)866ra> z39>RGz20o3p&KGDVc2g{Krjl)fYSfB0G|b95TG1(Gs=UD(;uFjBCaPf9m2_dN{}~J z2Za0mR0K)}B=q(YUHr3Uei1=W&rNJ%>;6Ulro~hn-fN!Vfr}X)01qr=^R;PR+jRS^(8@}Gq{}m*hN~}Y238wZ?#R>qoH1yTWZ`g$YKgc6ECIA2c literal 0 HcmV?d00001 diff --git a/SDL/Resources/cbam_s.png b/SDL/Resources/cbam_s.png new file mode 100644 index 0000000000000000000000000000000000000000..a03aa3c3eea2a1dc636bb0122a0d9a7bc8edca89 GIT binary patch literal 2251 zcmaJ@dpJ~iA0O*hE-jKq!^u5_(q@>E`lc&$MaZKVI*7&N;u!^Z9(f-|z4HInQ$r`}uCy zR5MaTAP}0K-!KB;(NzAdQGwsi*t!aMFciB7ivyu3u>=r;2r37P1d*ORAQ}t+0Zwwl zub>M8p@`zLg2lm1A2J)_*#mNny_6?_*$9M-n^XX><3KSo5{%~ZDX6LIEhr?HLqP=* zm{_KO4#sf5kqN;-nJK5=s!g%9}|3F7%3pY;Ow#Tl2(9B=KqKCcwf*W zaRB&FzW-BL#7Y)`m;g`&B?{Sa~R(3XH#Xes7;o zdumh#e$~>a}hQcCS+p1fUSKI!0)t+~zY=joq zWoi`i$ZUE)R%Oj35^WW_JM6=@@odALejNqV3yVGD0YCUzUp(`MdHL#9yK2&urv9{3 z25rteD$}Hpwb6D<^&ybNIHL{F3qhda7$amsdGhJvBmYy&e{MTqv9>gGdpL8CTV18D zC<>!XPLa7N8RfLBH^~JIq-kLX8v|-(P6itBXSf?Z|2RBA(H z<5u~;oZ~GSZEdMeZb{F3hPz#QchY3FZtXs9s?$V}+B^@8@5<5RD%eC8f_iLyC z-JNX*6@6XakN&Rma-dXWM7<&E{sWP&E*+J(Nw?`_$8XCw&USr&9V-bVu)GMS^>s&- z(w8)hn(z_rqs6kuz0_jdyG&H9LtBVtK$v4Jp)OoveyeodOoC0K;kSrb1u~k!8otZn~l_E@1Qgi6f6?(e9Q${ii2`P91 zZITtwW>j1$_uFh`klh;FFqiVn>(`uvs^+_xk0|krvyuHKv0=hBc3BI!-E_{>gcZ%nCEjh#x_wQrP%9?5Pam6a ztt2H4ro_Aco4@DI4%eG^*EKv5jumV*YOMDyeevLmSa_i%s4>OL=fz$1`L>Ash=s_- zeB9hAE*r2**6Oai(UL!3cpNP_jkOu;$s$=Z{Qn%)i6OjvwxKKcf{atRGqmMpdAxD| z2b0_8r!LMPrcFvp!$z%bCABu38N+*1E!1W^eKjQ=Uie1M!Z+trCaP;vvmzfjRQuhS z)fy54arE&@#Rog0yw+qtcNqhfFJ0Om=oqM}E_iZ#ZyIk7rMhoQb5s2_jXCAOo`fb% z^}c%rXR8@5|ehs}Q@ZvorN70J?HB z={ZC6HhK75vVUzaJ?a;6!dOjh0fDX5(9`){3=~HV332W<8Yt)nxS@)j-inW#B0u@EY^zMgQ9N!NfTuqc%!3^Lq35 zSoOjnP|-iZxNE=3?_Ht<>DOB-=hSARXK!aU?x4lDWEON;4wt0){^wPbg6LevAgxRn z%iACGv}t4lx!`*5NKvqpamFV1gZCbiUDqEa#xLR86TIp@EPndeA+s#SO}KM$FSJ4k zOIZsE!qz&;^UQy#+!Bc9aUhL*4!p-SS7OzwnPF$szb3nO|RY5(DIUQTO{mWwHd zf3|%YjW)gfSMbj{AvzGOm90a=zj45+b`rbkprC4aB2;Hs^=#)SQ$5 OUU<6uGU{j%>3;#$6qnEd literal 0 HcmV?d00001 diff --git a/SDL/SDL.vbproj b/SDL/SDL.vbproj index d3574fee..13088a00 100644 --- a/SDL/SDL.vbproj +++ b/SDL/SDL.vbproj @@ -713,6 +713,12 @@ UserControl + + usrCntlCBAM.vb + + + UserControl + usrcntlVertraege.vb @@ -2921,6 +2927,12 @@ UserControl + + usrCntlAuswertungenCBAM_DE.vb + + + UserControl + usrCntlAuswertungenFiskalvertretung_4200.vb @@ -3151,6 +3163,9 @@ usrCntlKundenZollVollmachten.vb + + usrCntlCBAM.vb + usrcntlVertraege.vb @@ -4241,6 +4256,9 @@ usrCntlAuswertungenAufschub_AbgabenKontrolleTRIER.vb + + usrCntlAuswertungenCBAM_DE.vb + usrCntlAuswertungenFiskalvertretung_4200.vb @@ -4693,6 +4711,8 @@ + + diff --git a/SDL/kunden/frmKundenUebersichtZOLL.Designer.vb b/SDL/kunden/frmKundenUebersichtZOLL.Designer.vb index fe1a8793..021f4a38 100644 --- a/SDL/kunden/frmKundenUebersichtZOLL.Designer.vb +++ b/SDL/kunden/frmKundenUebersichtZOLL.Designer.vb @@ -35,12 +35,10 @@ Partial Class frmKundenUebersichtZOLL Me.tabZolltarife = New System.Windows.Forms.TabPage() Me.pnlZollTarife = New System.Windows.Forms.Panel() Me.tabKundendaten = New System.Windows.Forms.TabPage() - Me.usrcntlKundenuebersicht = New SDL.usrCntlKundenuebersicht() Me.ContextMenuStrip2 = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.ToolStripMenuItem2 = New System.Windows.Forms.ToolStripMenuItem() Me.tbcntrKundenDaten = New System.Windows.Forms.TabControl() Me.TabPage1 = New System.Windows.Forms.TabPage() - Me.UsrCntlOfferte1 = New SDL.usrCntlOfferte() Me.tbStatistik = New System.Windows.Forms.TabPage() Me.cboKundenblattFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.Button1 = New System.Windows.Forms.Button() @@ -95,7 +93,7 @@ Partial Class frmKundenUebersichtZOLL Me.Label40 = New System.Windows.Forms.Label() Me.tbSpeditionsbuch = New System.Windows.Forms.TabPage() Me.tbFiskaluebersicht = New System.Windows.Forms.TabPage() - Me.UsrcntlFiskaluebersicht1 = New SDL.usrcntlFiskaluebersicht() + Me.tbCBAM = New System.Windows.Forms.TabPage() Me.NotifyIcon1 = New System.Windows.Forms.NotifyIcon(Me.components) Me.Panel1 = New System.Windows.Forms.Panel() Me.MenuStripKunden = New System.Windows.Forms.MenuStrip() @@ -122,6 +120,8 @@ Partial Class frmKundenUebersichtZOLL Me.VUBVERAGSpeditionAGToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.VeragCustomsServiceToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.ToolStripMenuItem19 = New System.Windows.Forms.ToolStripMenuItem() + Me.EORIAntragToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.mnueCBAM = New System.Windows.Forms.ToolStripMenuItem() Me.mnueFiskaluebersicht = New System.Windows.Forms.ToolStripMenuItem() Me.mnueFiskal = New System.Windows.Forms.ToolStripMenuItem() Me.toolNeuerKunde = New System.Windows.Forms.ToolStripMenuItem() @@ -148,7 +148,9 @@ Partial Class frmKundenUebersichtZOLL Me.PDFLöschenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.EORIAntragToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.usrcntlKundenuebersicht = New SDL.usrCntlKundenuebersicht() + Me.UsrCntlOfferte1 = New SDL.usrCntlOfferte() + Me.UsrcntlFiskaluebersicht1 = New SDL.usrcntlFiskaluebersicht() Me.ContextMenuStrip1.SuspendLayout() Me.tabZolltarife.SuspendLayout() Me.tabKundendaten.SuspendLayout() @@ -221,17 +223,6 @@ Partial Class frmKundenUebersichtZOLL Me.tabKundendaten.TabIndex = 0 Me.tabKundendaten.Text = "Kundendaten" ' - 'usrcntlKundenuebersicht - ' - Me.usrcntlKundenuebersicht.BackColor = System.Drawing.Color.White - Me.usrcntlKundenuebersicht.BER_STUFE = 0 - Me.usrcntlKundenuebersicht.Dock = System.Windows.Forms.DockStyle.Fill - Me.usrcntlKundenuebersicht.Location = New System.Drawing.Point(3, 3) - Me.usrcntlKundenuebersicht.Margin = New System.Windows.Forms.Padding(2) - Me.usrcntlKundenuebersicht.Name = "usrcntlKundenuebersicht" - Me.usrcntlKundenuebersicht.Size = New System.Drawing.Size(1176, 691) - Me.usrcntlKundenuebersicht.TabIndex = 0 - ' 'ContextMenuStrip2 ' Me.ContextMenuStrip2.ImageScalingSize = New System.Drawing.Size(24, 24) @@ -256,6 +247,7 @@ Partial Class frmKundenUebersichtZOLL Me.tbcntrKundenDaten.Controls.Add(Me.tbRechnungen) Me.tbcntrKundenDaten.Controls.Add(Me.tbSpeditionsbuch) Me.tbcntrKundenDaten.Controls.Add(Me.tbFiskaluebersicht) + Me.tbcntrKundenDaten.Controls.Add(Me.tbCBAM) Me.tbcntrKundenDaten.Dock = System.Windows.Forms.DockStyle.Fill Me.tbcntrKundenDaten.ItemSize = New System.Drawing.Size(76, 0) Me.tbcntrKundenDaten.Location = New System.Drawing.Point(0, 0) @@ -276,16 +268,6 @@ Partial Class frmKundenUebersichtZOLL Me.TabPage1.TabIndex = 2 Me.TabPage1.Text = "Offerte" ' - 'UsrCntlOfferte1 - ' - Me.UsrCntlOfferte1.BackColor = System.Drawing.Color.White - Me.UsrCntlOfferte1.Dock = System.Windows.Forms.DockStyle.Fill - Me.UsrCntlOfferte1.Location = New System.Drawing.Point(3, 3) - Me.UsrCntlOfferte1.Margin = New System.Windows.Forms.Padding(2) - Me.UsrCntlOfferte1.Name = "UsrCntlOfferte1" - Me.UsrCntlOfferte1.Size = New System.Drawing.Size(1176, 691) - Me.UsrCntlOfferte1.TabIndex = 0 - ' 'tbStatistik ' Me.tbStatistik.BackColor = System.Drawing.Color.White @@ -973,14 +955,15 @@ Partial Class frmKundenUebersichtZOLL Me.tbFiskaluebersicht.Text = "Fiskal-Analyse" Me.tbFiskaluebersicht.UseVisualStyleBackColor = True ' - 'UsrcntlFiskaluebersicht1 + 'tbCBAM ' - Me.UsrcntlFiskaluebersicht1.BackColor = System.Drawing.Color.White - Me.UsrcntlFiskaluebersicht1.Dock = System.Windows.Forms.DockStyle.Fill - Me.UsrcntlFiskaluebersicht1.Location = New System.Drawing.Point(0, 0) - Me.UsrcntlFiskaluebersicht1.Name = "UsrcntlFiskaluebersicht1" - Me.UsrcntlFiskaluebersicht1.Size = New System.Drawing.Size(1182, 697) - Me.UsrcntlFiskaluebersicht1.TabIndex = 0 + Me.tbCBAM.Location = New System.Drawing.Point(4, 25) + Me.tbCBAM.Name = "tbCBAM" + Me.tbCBAM.Padding = New System.Windows.Forms.Padding(3) + Me.tbCBAM.Size = New System.Drawing.Size(1182, 697) + Me.tbCBAM.TabIndex = 8 + Me.tbCBAM.Text = "CBAM" + Me.tbCBAM.UseVisualStyleBackColor = True ' 'NotifyIcon1 ' @@ -1006,7 +989,7 @@ Partial Class frmKundenUebersichtZOLL Me.MenuStripKunden.Dock = System.Windows.Forms.DockStyle.Left Me.MenuStripKunden.ImageScalingSize = New System.Drawing.Size(24, 24) Me.MenuStripKunden.ImeMode = System.Windows.Forms.ImeMode.NoControl - Me.MenuStripKunden.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnueKunden, Me.mnueZoll, Me.mnueOfferte, Me.mnueRechnungen, Me.mnueSpeditionsbuch, Me.mnueStatistik, Me.mneFormulare, Me.mnueFiskaluebersicht, Me.mnueFiskal, Me.toolNeuerKunde, Me.toolOptionen, Me.mneBearbeiten, Me.ToolStripMenuItem1}) + Me.MenuStripKunden.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnueKunden, Me.mnueZoll, Me.mnueOfferte, Me.mnueRechnungen, Me.mnueSpeditionsbuch, Me.mnueStatistik, Me.mneFormulare, Me.mnueCBAM, Me.mnueFiskaluebersicht, Me.mnueFiskal, Me.toolNeuerKunde, Me.toolOptionen, Me.mneBearbeiten, Me.ToolStripMenuItem1}) Me.MenuStripKunden.LayoutStyle = System.Windows.Forms.ToolStripLayoutStyle.VerticalStackWithOverflow Me.MenuStripKunden.Location = New System.Drawing.Point(0, 0) Me.MenuStripKunden.Name = "MenuStripKunden" @@ -1023,8 +1006,7 @@ Partial Class frmKundenUebersichtZOLL Me.mnueKunden.ImageAlign = System.Drawing.ContentAlignment.TopCenter Me.mnueKunden.ImageScaling = System.Windows.Forms.ToolStripItemImageScaling.None Me.mnueKunden.Name = "mnueKunden" - Me.mnueKunden.Padding = New System.Windows.Forms.Padding(4, 0, 4, 5) - Me.mnueKunden.Size = New System.Drawing.Size(107, 69) + Me.mnueKunden.Size = New System.Drawing.Size(107, 64) Me.mnueKunden.Text = "Kunden" Me.mnueKunden.TextAlign = System.Drawing.ContentAlignment.BottomCenter Me.mnueKunden.TextDirection = System.Windows.Forms.ToolStripTextDirection.Horizontal @@ -1039,8 +1021,8 @@ Partial Class frmKundenUebersichtZOLL Me.mnueZoll.ImageScaling = System.Windows.Forms.ToolStripItemImageScaling.None Me.mnueZoll.Margin = New System.Windows.Forms.Padding(0, 5, 0, 0) Me.mnueZoll.Name = "mnueZoll" - Me.mnueZoll.Padding = New System.Windows.Forms.Padding(0, 0, 0, 5) - Me.mnueZoll.Size = New System.Drawing.Size(107, 64) + Me.mnueZoll.Padding = New System.Windows.Forms.Padding(0) + Me.mnueZoll.Size = New System.Drawing.Size(107, 59) Me.mnueZoll.Text = "Kunden-Zolltarif" Me.mnueZoll.TextAlign = System.Drawing.ContentAlignment.BottomCenter Me.mnueZoll.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText @@ -1054,8 +1036,7 @@ Partial Class frmKundenUebersichtZOLL Me.mnueOfferte.ImageScaling = System.Windows.Forms.ToolStripItemImageScaling.None Me.mnueOfferte.Margin = New System.Windows.Forms.Padding(0, 5, 0, 0) Me.mnueOfferte.Name = "mnueOfferte" - Me.mnueOfferte.Padding = New System.Windows.Forms.Padding(4, 0, 4, 15) - Me.mnueOfferte.Size = New System.Drawing.Size(107, 64) + Me.mnueOfferte.Size = New System.Drawing.Size(107, 49) Me.mnueOfferte.Text = "Offerte/Preise" Me.mnueOfferte.TextAlign = System.Drawing.ContentAlignment.BottomCenter Me.mnueOfferte.TextDirection = System.Windows.Forms.ToolStripTextDirection.Horizontal @@ -1069,8 +1050,7 @@ Partial Class frmKundenUebersichtZOLL Me.mnueRechnungen.ImageScaling = System.Windows.Forms.ToolStripItemImageScaling.None Me.mnueRechnungen.Margin = New System.Windows.Forms.Padding(0, 0, 0, 2) Me.mnueRechnungen.Name = "mnueRechnungen" - Me.mnueRechnungen.Padding = New System.Windows.Forms.Padding(4, 0, 4, 10) - Me.mnueRechnungen.Size = New System.Drawing.Size(107, 61) + Me.mnueRechnungen.Size = New System.Drawing.Size(107, 51) Me.mnueRechnungen.Text = "Rechnungen" Me.mnueRechnungen.TextAlign = System.Drawing.ContentAlignment.BottomCenter Me.mnueRechnungen.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText @@ -1082,8 +1062,8 @@ Partial Class frmKundenUebersichtZOLL Me.mnueSpeditionsbuch.Image = Global.SDL.My.Resources.Resources.spedbuch1 Me.mnueSpeditionsbuch.ImageScaling = System.Windows.Forms.ToolStripItemImageScaling.None Me.mnueSpeditionsbuch.Name = "mnueSpeditionsbuch" - Me.mnueSpeditionsbuch.Padding = New System.Windows.Forms.Padding(4, 10, 4, 10) - Me.mnueSpeditionsbuch.Size = New System.Drawing.Size(107, 79) + Me.mnueSpeditionsbuch.Padding = New System.Windows.Forms.Padding(4, 10, 4, 0) + Me.mnueSpeditionsbuch.Size = New System.Drawing.Size(107, 69) Me.mnueSpeditionsbuch.Text = "Speditionsbuch" Me.mnueSpeditionsbuch.TextAlign = System.Drawing.ContentAlignment.BottomCenter Me.mnueSpeditionsbuch.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText @@ -1096,8 +1076,7 @@ Partial Class frmKundenUebersichtZOLL Me.mnueStatistik.ImageAlign = System.Drawing.ContentAlignment.TopCenter Me.mnueStatistik.ImageScaling = System.Windows.Forms.ToolStripItemImageScaling.None Me.mnueStatistik.Name = "mnueStatistik" - Me.mnueStatistik.Padding = New System.Windows.Forms.Padding(4, 0, 4, 5) - Me.mnueStatistik.Size = New System.Drawing.Size(107, 63) + Me.mnueStatistik.Size = New System.Drawing.Size(107, 58) Me.mnueStatistik.Text = "Statistik" Me.mnueStatistik.TextAlign = System.Drawing.ContentAlignment.BottomCenter Me.mnueStatistik.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText @@ -1217,6 +1196,26 @@ Partial Class frmKundenUebersichtZOLL Me.ToolStripMenuItem19.Size = New System.Drawing.Size(242, 22) Me.ToolStripMenuItem19.Text = "Bonitätsauskunft (Creditreform)" ' + 'EORIAntragToolStripMenuItem + ' + Me.EORIAntragToolStripMenuItem.Name = "EORIAntragToolStripMenuItem" + Me.EORIAntragToolStripMenuItem.Size = New System.Drawing.Size(242, 22) + Me.EORIAntragToolStripMenuItem.Text = "EORI Antrag" + ' + 'mnueCBAM + ' + Me.mnueCBAM.Enabled = False + Me.mnueCBAM.ForeColor = System.Drawing.Color.White + Me.mnueCBAM.Image = Global.SDL.My.Resources.Resources.cbam_s + Me.mnueCBAM.ImageAlign = System.Drawing.ContentAlignment.TopCenter + Me.mnueCBAM.ImageScaling = System.Windows.Forms.ToolStripItemImageScaling.None + Me.mnueCBAM.Name = "mnueCBAM" + Me.mnueCBAM.Size = New System.Drawing.Size(107, 49) + Me.mnueCBAM.Text = "CBAM" + Me.mnueCBAM.TextAlign = System.Drawing.ContentAlignment.BottomCenter + Me.mnueCBAM.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText + Me.mnueCBAM.Visible = False + ' 'mnueFiskaluebersicht ' Me.mnueFiskaluebersicht.Enabled = False @@ -1469,11 +1468,35 @@ Partial Class frmKundenUebersichtZOLL Me.DataGridViewTextBoxColumn2.HeaderText = "KundenNr" Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2" ' - 'EORIAntragToolStripMenuItem + 'usrcntlKundenuebersicht ' - Me.EORIAntragToolStripMenuItem.Name = "EORIAntragToolStripMenuItem" - Me.EORIAntragToolStripMenuItem.Size = New System.Drawing.Size(242, 22) - Me.EORIAntragToolStripMenuItem.Text = "EORI Antrag" + Me.usrcntlKundenuebersicht.BackColor = System.Drawing.Color.White + Me.usrcntlKundenuebersicht.BER_STUFE = 0 + Me.usrcntlKundenuebersicht.Dock = System.Windows.Forms.DockStyle.Fill + Me.usrcntlKundenuebersicht.Location = New System.Drawing.Point(3, 3) + Me.usrcntlKundenuebersicht.Margin = New System.Windows.Forms.Padding(2) + Me.usrcntlKundenuebersicht.Name = "usrcntlKundenuebersicht" + Me.usrcntlKundenuebersicht.Size = New System.Drawing.Size(1176, 691) + Me.usrcntlKundenuebersicht.TabIndex = 0 + ' + 'UsrCntlOfferte1 + ' + Me.UsrCntlOfferte1.BackColor = System.Drawing.Color.White + Me.UsrCntlOfferte1.Dock = System.Windows.Forms.DockStyle.Fill + Me.UsrCntlOfferte1.Location = New System.Drawing.Point(3, 3) + Me.UsrCntlOfferte1.Margin = New System.Windows.Forms.Padding(2) + Me.UsrCntlOfferte1.Name = "UsrCntlOfferte1" + Me.UsrCntlOfferte1.Size = New System.Drawing.Size(1176, 691) + Me.UsrCntlOfferte1.TabIndex = 0 + ' + 'UsrcntlFiskaluebersicht1 + ' + Me.UsrcntlFiskaluebersicht1.BackColor = System.Drawing.Color.White + Me.UsrcntlFiskaluebersicht1.Dock = System.Windows.Forms.DockStyle.Fill + Me.UsrcntlFiskaluebersicht1.Location = New System.Drawing.Point(0, 0) + Me.UsrcntlFiskaluebersicht1.Name = "UsrcntlFiskaluebersicht1" + Me.UsrcntlFiskaluebersicht1.Size = New System.Drawing.Size(1182, 697) + Me.UsrcntlFiskaluebersicht1.TabIndex = 0 ' 'frmKundenUebersichtZOLL ' @@ -1644,4 +1667,6 @@ Partial Class frmKundenUebersichtZOLL Friend WithEvents UsrcntlFiskaluebersicht1 As usrcntlFiskaluebersicht Friend WithEvents mneBearbeiten As ToolStripMenuItem Friend WithEvents EORIAntragToolStripMenuItem As ToolStripMenuItem + Friend WithEvents tbCBAM As TabPage + Friend WithEvents mnueCBAM As ToolStripMenuItem End Class diff --git a/SDL/kunden/frmKundenUebersichtZOLL.vb b/SDL/kunden/frmKundenUebersichtZOLL.vb index adb350e9..bf41889a 100644 --- a/SDL/kunden/frmKundenUebersichtZOLL.vb +++ b/SDL/kunden/frmKundenUebersichtZOLL.vb @@ -105,7 +105,6 @@ Public Class frmKundenUebersichtZOLL If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("WARENORT", "AVISO") Then Exit Sub - Me.BER_STUFE = VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG("KUNDEN", "SDL") timerOP.Interval = 500 timerOP.Enabled = False @@ -206,6 +205,12 @@ Public Class frmKundenUebersichtZOLL mnueFiskaluebersicht.Visible = True End If + If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("CBAM", Me) Then + mnueCBAM.Visible = True + mnueCBAM.Visible = True + mnueCBAM.Visible = True + End If + If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ZOLL_Auswertungen", Me) Then @@ -303,6 +308,7 @@ Public Class frmKundenUebersichtZOLL mnueFiskaluebersicht.Enabled = True 'SchließenToolStripMenuItem.Enabled = True mnueFiskal.Enabled = True + mnueCBAM.Enabled = True If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VERIMEX", "AVISO") Then @@ -335,6 +341,7 @@ Public Class frmKundenUebersichtZOLL mnueStatistik.Enabled = False mneFormulare.Enabled = False mnueFiskal.Enabled = False + mnueCBAM.Enabled = False mneBearbeiten.Enabled = False toolOptionen.Enabled = False mnueFiskaluebersicht.Enabled = False @@ -517,6 +524,9 @@ Public Class frmKundenUebersichtZOLL ElseIf tbcntrKundenDaten.SelectedIndex = 6 Then ' initBtns("Monat") initSpeditinsbuch() + ElseIf tbcntrKundenDaten.SelectedIndex = 8 Then + ' initBtns("Monat") + initCBAM() End If End Sub @@ -613,6 +623,15 @@ Public Class frmKundenUebersichtZOLL End Sub + Sub initCBAM() + tbCBAM.Controls.Clear() + Dim s As New SDL.usrCntlCBAM(kdNr) + s.Dock = DockStyle.Fill + tbCBAM.Controls.Add(s) + + End Sub + + Private Sub DataGridView_CellContentClick(sender As Object, e As EventArgs) Handles dgvRg.DoubleClick If dgvRg.SelectedRows.Count = 0 Then Exit Sub @@ -1419,6 +1438,12 @@ Public Class frmKundenUebersichtZOLL Private Sub EORIAntragToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles EORIAntragToolStripMenuItem.Click SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.EORI_Antrag, kdNr, {}) End Sub + + Private Sub ToolStripMenuItem5_Click_1(sender As Object, e As EventArgs) Handles mnueCBAM.Click + changeTab(8, mnueStatistik) + End Sub + + End Class diff --git a/SDL/kunden/usrCntlCBAM.Designer.vb b/SDL/kunden/usrCntlCBAM.Designer.vb new file mode 100644 index 00000000..fdef39d9 --- /dev/null +++ b/SDL/kunden/usrCntlCBAM.Designer.vb @@ -0,0 +1,646 @@ + +Partial Class usrCntlCBAM + Inherits System.Windows.Forms.UserControl + + 'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Wird vom Windows Form-Designer benötigt. + Private components As System.ComponentModel.IContainer + + 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. + 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. + 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. + + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.lblOffert = New System.Windows.Forms.TextBox() + Me.cntxtAddSdl = New System.Windows.Forms.ContextMenuStrip(Me.components) + Me.DToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.txtEori = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label1 = New System.Windows.Forms.Label() + Me.btnCBAMPruef_DAKOSY = New System.Windows.Forms.Button() + Me.btnCBAMPruef_DHF_VERAG = New System.Windows.Forms.Button() + Me.btnCBAMPruef_TELOTEC = New System.Windows.Forms.Button() + Me.btnCBAMPruef_DHF_UNISPED = New System.Windows.Forms.Button() + Me.Label2 = New System.Windows.Forms.Label() + Me.btnCBAMPruef_ALLE = New System.Windows.Forms.Button() + Me.txtCBAMPruef_DAKOSY = New System.Windows.Forms.TextBox() + Me.txtCBAMPruef_DHF_VERAG = New System.Windows.Forms.TextBox() + Me.txtCBAMPruef_DHF_UNISPED = New System.Windows.Forms.TextBox() + Me.txtCBAMPruef_TELOTEC = New System.Windows.Forms.TextBox() + Me.txtBis = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtVon = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label4 = New System.Windows.Forms.Label() + Me.Label5 = New System.Windows.Forms.Label() + Me.cboQuartal = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.txtJahr = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.btnCBAM_DS_DHF_UNISPED = New System.Windows.Forms.Button() + Me.btnCBAM_DS_TELOTEC = New System.Windows.Forms.Button() + Me.btnCBAM_DS_DHF_VERAG = New System.Windows.Forms.Button() + Me.btnCBAM_DS_DAKOSY = New System.Windows.Forms.Button() + Me.Label3 = New System.Windows.Forms.Label() + Me.btnCBAM_DS_DAKOSY_Deteil = New System.Windows.Forms.Button() + Me.btnCBAM_DS_DAKOSY_Summe = New System.Windows.Forms.Button() + Me.btnCBAM_DS_DHF_VERAG_Summe = New System.Windows.Forms.Button() + Me.btnCBAM_DS_DHF_VERAG_Deteil = New System.Windows.Forms.Button() + Me.btnCBAM_DS_DHF_UNISPED_Summe = New System.Windows.Forms.Button() + Me.btnCBAM_DS_DHF_UNISPED_Deteil = New System.Windows.Forms.Button() + Me.btnCBAM_DS_TELOTEC_Summe = New System.Windows.Forms.Button() + Me.btnCBAM_DS_TELOTEC_Detail = New System.Windows.Forms.Button() + Me.Label6 = New System.Windows.Forms.Label() + Me.btnCBAM_DS_DAKOSY_Copy = New System.Windows.Forms.Button() + Me.btnCBAM_DS_DHF_VERAG_Copy = New System.Windows.Forms.Button() + Me.btnCBAM_DS_DHF_UNISPED_Copy = New System.Windows.Forms.Button() + Me.btnCBAM_DS_TELOTEC_Copy = New System.Windows.Forms.Button() + Me.cntxtAddSdl.SuspendLayout() + Me.SuspendLayout() + ' + 'lblOffert + ' + Me.lblOffert.BackColor = System.Drawing.Color.White + Me.lblOffert.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.lblOffert.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblOffert.Location = New System.Drawing.Point(5, 10) + Me.lblOffert.Multiline = True + Me.lblOffert.Name = "lblOffert" + Me.lblOffert.ReadOnly = True + Me.lblOffert.Size = New System.Drawing.Size(110, 22) + Me.lblOffert.TabIndex = 0 + Me.lblOffert.Text = "CBAM" + ' + 'cntxtAddSdl + ' + Me.cntxtAddSdl.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DToolStripMenuItem}) + Me.cntxtAddSdl.Name = "cntxtAddSdl" + Me.cntxtAddSdl.Size = New System.Drawing.Size(82, 26) + ' + 'DToolStripMenuItem + ' + Me.DToolStripMenuItem.Name = "DToolStripMenuItem" + Me.DToolStripMenuItem.Size = New System.Drawing.Size(81, 22) + Me.DToolStripMenuItem.Text = "d" + ' + 'txtEori + ' + Me.txtEori._DateTimeOnly = False + Me.txtEori._numbersOnly = False + Me.txtEori._numbersOnlyKommastellen = "" + Me.txtEori._numbersOnlyTrennzeichen = True + Me.txtEori._Prozent = False + Me.txtEori._ShortDateNew = False + Me.txtEori._ShortDateOnly = False + Me.txtEori._TimeOnly = False + Me.txtEori._TimeOnly_Seconds = False + Me.txtEori._value = "" + Me.txtEori._Waehrung = False + Me.txtEori._WaehrungZeichen = True + Me.txtEori.ForeColor = System.Drawing.Color.Black + Me.txtEori.Location = New System.Drawing.Point(106, 48) + Me.txtEori.MaxLineLength = -1 + Me.txtEori.MaxLines_Warning = "" + Me.txtEori.MaxLines_Warning_Label = Nothing + Me.txtEori.Name = "txtEori" + Me.txtEori.Size = New System.Drawing.Size(341, 20) + Me.txtEori.TabIndex = 1 + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Location = New System.Drawing.Point(5, 51) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(36, 13) + Me.Label1.TabIndex = 2 + Me.Label1.Text = "EORI:" + ' + 'btnCBAMPruef_DAKOSY + ' + Me.btnCBAMPruef_DAKOSY.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnCBAMPruef_DAKOSY.Location = New System.Drawing.Point(106, 74) + Me.btnCBAMPruef_DAKOSY.Name = "btnCBAMPruef_DAKOSY" + Me.btnCBAMPruef_DAKOSY.Size = New System.Drawing.Size(168, 42) + Me.btnCBAMPruef_DAKOSY.TabIndex = 3 + Me.btnCBAMPruef_DAKOSY.Text = "CBAM-Pflicht prüfen" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "(DAKOSY)" + Me.btnCBAMPruef_DAKOSY.UseVisualStyleBackColor = True + ' + 'btnCBAMPruef_DHF_VERAG + ' + Me.btnCBAMPruef_DHF_VERAG.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnCBAMPruef_DHF_VERAG.Location = New System.Drawing.Point(280, 74) + Me.btnCBAMPruef_DHF_VERAG.Name = "btnCBAMPruef_DHF_VERAG" + Me.btnCBAMPruef_DHF_VERAG.Size = New System.Drawing.Size(168, 42) + Me.btnCBAMPruef_DHF_VERAG.TabIndex = 4 + Me.btnCBAMPruef_DHF_VERAG.Text = "CBAM-Pflicht prüfen" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "(DHF - VERAG)" + Me.btnCBAMPruef_DHF_VERAG.UseVisualStyleBackColor = True + ' + 'btnCBAMPruef_TELOTEC + ' + Me.btnCBAMPruef_TELOTEC.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnCBAMPruef_TELOTEC.Location = New System.Drawing.Point(628, 74) + Me.btnCBAMPruef_TELOTEC.Name = "btnCBAMPruef_TELOTEC" + Me.btnCBAMPruef_TELOTEC.Size = New System.Drawing.Size(168, 42) + Me.btnCBAMPruef_TELOTEC.TabIndex = 5 + Me.btnCBAMPruef_TELOTEC.Text = "CBAM-Pflicht prüfen" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "(TELOTEC)" + Me.btnCBAMPruef_TELOTEC.UseVisualStyleBackColor = True + ' + 'btnCBAMPruef_DHF_UNISPED + ' + Me.btnCBAMPruef_DHF_UNISPED.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnCBAMPruef_DHF_UNISPED.Location = New System.Drawing.Point(454, 74) + Me.btnCBAMPruef_DHF_UNISPED.Name = "btnCBAMPruef_DHF_UNISPED" + Me.btnCBAMPruef_DHF_UNISPED.Size = New System.Drawing.Size(168, 42) + Me.btnCBAMPruef_DHF_UNISPED.TabIndex = 6 + Me.btnCBAMPruef_DHF_UNISPED.Text = "CBAM-Pflicht prüfen" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "(DHF - UNISPED)" + Me.btnCBAMPruef_DHF_UNISPED.UseVisualStyleBackColor = True + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.Location = New System.Drawing.Point(5, 130) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(51, 13) + Me.Label2.TabIndex = 7 + Me.Label2.Text = "Ergebnis:" + ' + 'btnCBAMPruef_ALLE + ' + Me.btnCBAMPruef_ALLE.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnCBAMPruef_ALLE.Location = New System.Drawing.Point(802, 74) + Me.btnCBAMPruef_ALLE.Name = "btnCBAMPruef_ALLE" + Me.btnCBAMPruef_ALLE.Size = New System.Drawing.Size(168, 42) + Me.btnCBAMPruef_ALLE.TabIndex = 8 + Me.btnCBAMPruef_ALLE.Text = "Alle" + Me.btnCBAMPruef_ALLE.UseVisualStyleBackColor = True + ' + 'txtCBAMPruef_DAKOSY + ' + Me.txtCBAMPruef_DAKOSY.BackColor = System.Drawing.Color.White + Me.txtCBAMPruef_DAKOSY.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.txtCBAMPruef_DAKOSY.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtCBAMPruef_DAKOSY.Location = New System.Drawing.Point(106, 125) + Me.txtCBAMPruef_DAKOSY.Multiline = True + Me.txtCBAMPruef_DAKOSY.Name = "txtCBAMPruef_DAKOSY" + Me.txtCBAMPruef_DAKOSY.ReadOnly = True + Me.txtCBAMPruef_DAKOSY.Size = New System.Drawing.Size(168, 22) + Me.txtCBAMPruef_DAKOSY.TabIndex = 10 + Me.txtCBAMPruef_DAKOSY.Text = "-" + Me.txtCBAMPruef_DAKOSY.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'txtCBAMPruef_DHF_VERAG + ' + Me.txtCBAMPruef_DHF_VERAG.BackColor = System.Drawing.Color.White + Me.txtCBAMPruef_DHF_VERAG.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.txtCBAMPruef_DHF_VERAG.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtCBAMPruef_DHF_VERAG.Location = New System.Drawing.Point(280, 125) + Me.txtCBAMPruef_DHF_VERAG.Multiline = True + Me.txtCBAMPruef_DHF_VERAG.Name = "txtCBAMPruef_DHF_VERAG" + Me.txtCBAMPruef_DHF_VERAG.ReadOnly = True + Me.txtCBAMPruef_DHF_VERAG.Size = New System.Drawing.Size(168, 22) + Me.txtCBAMPruef_DHF_VERAG.TabIndex = 11 + Me.txtCBAMPruef_DHF_VERAG.Text = "-" + Me.txtCBAMPruef_DHF_VERAG.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'txtCBAMPruef_DHF_UNISPED + ' + Me.txtCBAMPruef_DHF_UNISPED.BackColor = System.Drawing.Color.White + Me.txtCBAMPruef_DHF_UNISPED.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.txtCBAMPruef_DHF_UNISPED.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtCBAMPruef_DHF_UNISPED.Location = New System.Drawing.Point(454, 125) + Me.txtCBAMPruef_DHF_UNISPED.Multiline = True + Me.txtCBAMPruef_DHF_UNISPED.Name = "txtCBAMPruef_DHF_UNISPED" + Me.txtCBAMPruef_DHF_UNISPED.ReadOnly = True + Me.txtCBAMPruef_DHF_UNISPED.Size = New System.Drawing.Size(168, 22) + Me.txtCBAMPruef_DHF_UNISPED.TabIndex = 12 + Me.txtCBAMPruef_DHF_UNISPED.Text = "-" + Me.txtCBAMPruef_DHF_UNISPED.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'txtCBAMPruef_TELOTEC + ' + Me.txtCBAMPruef_TELOTEC.BackColor = System.Drawing.Color.White + Me.txtCBAMPruef_TELOTEC.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.txtCBAMPruef_TELOTEC.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtCBAMPruef_TELOTEC.Location = New System.Drawing.Point(628, 125) + Me.txtCBAMPruef_TELOTEC.Multiline = True + Me.txtCBAMPruef_TELOTEC.Name = "txtCBAMPruef_TELOTEC" + Me.txtCBAMPruef_TELOTEC.ReadOnly = True + Me.txtCBAMPruef_TELOTEC.Size = New System.Drawing.Size(168, 22) + Me.txtCBAMPruef_TELOTEC.TabIndex = 13 + Me.txtCBAMPruef_TELOTEC.Text = "-" + Me.txtCBAMPruef_TELOTEC.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'txtBis + ' + Me.txtBis._DateTimeOnly = False + Me.txtBis._numbersOnly = False + Me.txtBis._numbersOnlyKommastellen = "" + Me.txtBis._numbersOnlyTrennzeichen = True + Me.txtBis._Prozent = False + Me.txtBis._ShortDateNew = False + Me.txtBis._ShortDateOnly = False + Me.txtBis._TimeOnly = False + Me.txtBis._TimeOnly_Seconds = False + Me.txtBis._value = "" + Me.txtBis._Waehrung = False + Me.txtBis._WaehrungZeichen = True + Me.txtBis.ForeColor = System.Drawing.Color.Black + Me.txtBis.Location = New System.Drawing.Point(860, 49) + Me.txtBis.MaxLineLength = -1 + Me.txtBis.MaxLines_Warning = "" + Me.txtBis.MaxLines_Warning_Label = Nothing + Me.txtBis.Name = "txtBis" + Me.txtBis.Size = New System.Drawing.Size(110, 20) + Me.txtBis.TabIndex = 14 + ' + 'txtVon + ' + Me.txtVon._DateTimeOnly = False + Me.txtVon._numbersOnly = False + Me.txtVon._numbersOnlyKommastellen = "" + Me.txtVon._numbersOnlyTrennzeichen = True + Me.txtVon._Prozent = False + Me.txtVon._ShortDateNew = False + Me.txtVon._ShortDateOnly = False + Me.txtVon._TimeOnly = False + Me.txtVon._TimeOnly_Seconds = False + Me.txtVon._value = "" + Me.txtVon._Waehrung = False + Me.txtVon._WaehrungZeichen = True + Me.txtVon.ForeColor = System.Drawing.Color.Black + Me.txtVon.Location = New System.Drawing.Point(744, 49) + Me.txtVon.MaxLineLength = -1 + Me.txtVon.MaxLines_Warning = "" + Me.txtVon.MaxLines_Warning_Label = Nothing + Me.txtVon.Name = "txtVon" + Me.txtVon.Size = New System.Drawing.Size(110, 20) + Me.txtVon.TabIndex = 15 + ' + 'Label4 + ' + Me.Label4.AutoSize = True + Me.Label4.Location = New System.Drawing.Point(694, 52) + Me.Label4.Name = "Label4" + Me.Label4.Size = New System.Drawing.Size(44, 13) + Me.Label4.TabIndex = 17 + Me.Label4.Text = "von-bis:" + ' + 'Label5 + ' + Me.Label5.AutoSize = True + Me.Label5.Location = New System.Drawing.Point(453, 51) + Me.Label5.Name = "Label5" + Me.Label5.Size = New System.Drawing.Size(51, 13) + Me.Label5.TabIndex = 18 + Me.Label5.Text = "Zeitraum:" + ' + 'cboQuartal + ' + Me.cboQuartal._allowedValuesFreiText = Nothing + Me.cboQuartal._allowFreiText = False + Me.cboQuartal._value = "" + Me.cboQuartal.FormattingEnabled = True + Me.cboQuartal.Items.AddRange(New Object() {"", "Q1", "Q2", "Q3", "Q4"}) + Me.cboQuartal.Location = New System.Drawing.Point(511, 48) + Me.cboQuartal.Name = "cboQuartal" + Me.cboQuartal.Size = New System.Drawing.Size(45, 21) + Me.cboQuartal.TabIndex = 19 + ' + 'txtJahr + ' + Me.txtJahr._DateTimeOnly = False + Me.txtJahr._numbersOnly = False + Me.txtJahr._numbersOnlyKommastellen = "" + Me.txtJahr._numbersOnlyTrennzeichen = True + Me.txtJahr._Prozent = False + Me.txtJahr._ShortDateNew = False + Me.txtJahr._ShortDateOnly = False + Me.txtJahr._TimeOnly = False + Me.txtJahr._TimeOnly_Seconds = False + Me.txtJahr._value = "" + Me.txtJahr._Waehrung = False + Me.txtJahr._WaehrungZeichen = True + Me.txtJahr.ForeColor = System.Drawing.Color.Black + Me.txtJahr.Location = New System.Drawing.Point(562, 49) + Me.txtJahr.MaxLineLength = -1 + Me.txtJahr.MaxLines_Warning = "" + Me.txtJahr.MaxLines_Warning_Label = Nothing + Me.txtJahr.Name = "txtJahr" + Me.txtJahr.Size = New System.Drawing.Size(60, 20) + Me.txtJahr.TabIndex = 20 + ' + 'btnCBAM_DS_DHF_UNISPED + ' + Me.btnCBAM_DS_DHF_UNISPED.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnCBAM_DS_DHF_UNISPED.Location = New System.Drawing.Point(454, 168) + Me.btnCBAM_DS_DHF_UNISPED.Name = "btnCBAM_DS_DHF_UNISPED" + Me.btnCBAM_DS_DHF_UNISPED.Size = New System.Drawing.Size(168, 42) + Me.btnCBAM_DS_DHF_UNISPED.TabIndex = 24 + Me.btnCBAM_DS_DHF_UNISPED.Text = "Datensatz generieren" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "(DHF - UNISPED)" + Me.btnCBAM_DS_DHF_UNISPED.UseVisualStyleBackColor = True + ' + 'btnCBAM_DS_TELOTEC + ' + Me.btnCBAM_DS_TELOTEC.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnCBAM_DS_TELOTEC.Location = New System.Drawing.Point(628, 168) + Me.btnCBAM_DS_TELOTEC.Name = "btnCBAM_DS_TELOTEC" + Me.btnCBAM_DS_TELOTEC.Size = New System.Drawing.Size(168, 42) + Me.btnCBAM_DS_TELOTEC.TabIndex = 23 + Me.btnCBAM_DS_TELOTEC.Text = "Datensatz generieren" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "(TELOTEC)" + Me.btnCBAM_DS_TELOTEC.UseVisualStyleBackColor = True + ' + 'btnCBAM_DS_DHF_VERAG + ' + Me.btnCBAM_DS_DHF_VERAG.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnCBAM_DS_DHF_VERAG.Location = New System.Drawing.Point(280, 168) + Me.btnCBAM_DS_DHF_VERAG.Name = "btnCBAM_DS_DHF_VERAG" + Me.btnCBAM_DS_DHF_VERAG.Size = New System.Drawing.Size(168, 42) + Me.btnCBAM_DS_DHF_VERAG.TabIndex = 22 + Me.btnCBAM_DS_DHF_VERAG.Text = "Datensatz generieren" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "(DHF - VERAG)" + Me.btnCBAM_DS_DHF_VERAG.UseVisualStyleBackColor = True + ' + 'btnCBAM_DS_DAKOSY + ' + Me.btnCBAM_DS_DAKOSY.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnCBAM_DS_DAKOSY.Location = New System.Drawing.Point(106, 168) + Me.btnCBAM_DS_DAKOSY.Name = "btnCBAM_DS_DAKOSY" + Me.btnCBAM_DS_DAKOSY.Size = New System.Drawing.Size(168, 42) + Me.btnCBAM_DS_DAKOSY.TabIndex = 21 + Me.btnCBAM_DS_DAKOSY.Text = "Datensatz generieren " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "(DAKOSY)" + Me.btnCBAM_DS_DAKOSY.UseVisualStyleBackColor = True + ' + 'Label3 + ' + Me.Label3.AutoSize = True + Me.Label3.Location = New System.Drawing.Point(5, 183) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(64, 13) + Me.Label3.TabIndex = 25 + Me.Label3.Text = "Datensätze:" + ' + 'btnCBAM_DS_DAKOSY_Deteil + ' + Me.btnCBAM_DS_DAKOSY_Deteil.Enabled = False + Me.btnCBAM_DS_DAKOSY_Deteil.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnCBAM_DS_DAKOSY_Deteil.Image = Global.SDL.My.Resources.Resources.Excel_logo + Me.btnCBAM_DS_DAKOSY_Deteil.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnCBAM_DS_DAKOSY_Deteil.Location = New System.Drawing.Point(144, 216) + Me.btnCBAM_DS_DAKOSY_Deteil.Name = "btnCBAM_DS_DAKOSY_Deteil" + Me.btnCBAM_DS_DAKOSY_Deteil.Size = New System.Drawing.Size(130, 42) + Me.btnCBAM_DS_DAKOSY_Deteil.TabIndex = 26 + Me.btnCBAM_DS_DAKOSY_Deteil.Text = "Detailbericht" + Me.btnCBAM_DS_DAKOSY_Deteil.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnCBAM_DS_DAKOSY_Deteil.UseVisualStyleBackColor = True + ' + 'btnCBAM_DS_DAKOSY_Summe + ' + Me.btnCBAM_DS_DAKOSY_Summe.Enabled = False + Me.btnCBAM_DS_DAKOSY_Summe.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnCBAM_DS_DAKOSY_Summe.Image = Global.SDL.My.Resources.Resources.Excel_logo + Me.btnCBAM_DS_DAKOSY_Summe.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnCBAM_DS_DAKOSY_Summe.Location = New System.Drawing.Point(144, 264) + Me.btnCBAM_DS_DAKOSY_Summe.Name = "btnCBAM_DS_DAKOSY_Summe" + Me.btnCBAM_DS_DAKOSY_Summe.Size = New System.Drawing.Size(130, 42) + Me.btnCBAM_DS_DAKOSY_Summe.TabIndex = 27 + Me.btnCBAM_DS_DAKOSY_Summe.Text = "Summenbereicht" + Me.btnCBAM_DS_DAKOSY_Summe.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnCBAM_DS_DAKOSY_Summe.UseVisualStyleBackColor = True + ' + 'btnCBAM_DS_DHF_VERAG_Summe + ' + Me.btnCBAM_DS_DHF_VERAG_Summe.Enabled = False + Me.btnCBAM_DS_DHF_VERAG_Summe.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnCBAM_DS_DHF_VERAG_Summe.Image = Global.SDL.My.Resources.Resources.Excel_logo + Me.btnCBAM_DS_DHF_VERAG_Summe.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnCBAM_DS_DHF_VERAG_Summe.Location = New System.Drawing.Point(318, 264) + Me.btnCBAM_DS_DHF_VERAG_Summe.Name = "btnCBAM_DS_DHF_VERAG_Summe" + Me.btnCBAM_DS_DHF_VERAG_Summe.Size = New System.Drawing.Size(130, 42) + Me.btnCBAM_DS_DHF_VERAG_Summe.TabIndex = 29 + Me.btnCBAM_DS_DHF_VERAG_Summe.Text = "Summenbereicht" + Me.btnCBAM_DS_DHF_VERAG_Summe.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnCBAM_DS_DHF_VERAG_Summe.UseVisualStyleBackColor = True + ' + 'btnCBAM_DS_DHF_VERAG_Deteil + ' + Me.btnCBAM_DS_DHF_VERAG_Deteil.Enabled = False + Me.btnCBAM_DS_DHF_VERAG_Deteil.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnCBAM_DS_DHF_VERAG_Deteil.Image = Global.SDL.My.Resources.Resources.Excel_logo + Me.btnCBAM_DS_DHF_VERAG_Deteil.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnCBAM_DS_DHF_VERAG_Deteil.Location = New System.Drawing.Point(318, 216) + Me.btnCBAM_DS_DHF_VERAG_Deteil.Name = "btnCBAM_DS_DHF_VERAG_Deteil" + Me.btnCBAM_DS_DHF_VERAG_Deteil.Size = New System.Drawing.Size(130, 42) + Me.btnCBAM_DS_DHF_VERAG_Deteil.TabIndex = 28 + Me.btnCBAM_DS_DHF_VERAG_Deteil.Text = "Detailbericht" + Me.btnCBAM_DS_DHF_VERAG_Deteil.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnCBAM_DS_DHF_VERAG_Deteil.UseVisualStyleBackColor = True + ' + 'btnCBAM_DS_DHF_UNISPED_Summe + ' + Me.btnCBAM_DS_DHF_UNISPED_Summe.Enabled = False + Me.btnCBAM_DS_DHF_UNISPED_Summe.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnCBAM_DS_DHF_UNISPED_Summe.Image = Global.SDL.My.Resources.Resources.Excel_logo + Me.btnCBAM_DS_DHF_UNISPED_Summe.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnCBAM_DS_DHF_UNISPED_Summe.Location = New System.Drawing.Point(492, 264) + Me.btnCBAM_DS_DHF_UNISPED_Summe.Name = "btnCBAM_DS_DHF_UNISPED_Summe" + Me.btnCBAM_DS_DHF_UNISPED_Summe.Size = New System.Drawing.Size(130, 42) + Me.btnCBAM_DS_DHF_UNISPED_Summe.TabIndex = 31 + Me.btnCBAM_DS_DHF_UNISPED_Summe.Text = "Summenbereicht" + Me.btnCBAM_DS_DHF_UNISPED_Summe.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnCBAM_DS_DHF_UNISPED_Summe.UseVisualStyleBackColor = True + ' + 'btnCBAM_DS_DHF_UNISPED_Deteil + ' + Me.btnCBAM_DS_DHF_UNISPED_Deteil.Enabled = False + Me.btnCBAM_DS_DHF_UNISPED_Deteil.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnCBAM_DS_DHF_UNISPED_Deteil.Image = Global.SDL.My.Resources.Resources.Excel_logo + Me.btnCBAM_DS_DHF_UNISPED_Deteil.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnCBAM_DS_DHF_UNISPED_Deteil.Location = New System.Drawing.Point(492, 216) + Me.btnCBAM_DS_DHF_UNISPED_Deteil.Name = "btnCBAM_DS_DHF_UNISPED_Deteil" + Me.btnCBAM_DS_DHF_UNISPED_Deteil.Size = New System.Drawing.Size(130, 42) + Me.btnCBAM_DS_DHF_UNISPED_Deteil.TabIndex = 30 + Me.btnCBAM_DS_DHF_UNISPED_Deteil.Text = "Detailbericht" + Me.btnCBAM_DS_DHF_UNISPED_Deteil.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnCBAM_DS_DHF_UNISPED_Deteil.UseVisualStyleBackColor = True + ' + 'btnCBAM_DS_TELOTEC_Summe + ' + Me.btnCBAM_DS_TELOTEC_Summe.Enabled = False + Me.btnCBAM_DS_TELOTEC_Summe.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnCBAM_DS_TELOTEC_Summe.Image = Global.SDL.My.Resources.Resources.Excel_logo + Me.btnCBAM_DS_TELOTEC_Summe.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnCBAM_DS_TELOTEC_Summe.Location = New System.Drawing.Point(666, 264) + Me.btnCBAM_DS_TELOTEC_Summe.Name = "btnCBAM_DS_TELOTEC_Summe" + Me.btnCBAM_DS_TELOTEC_Summe.Size = New System.Drawing.Size(130, 42) + Me.btnCBAM_DS_TELOTEC_Summe.TabIndex = 33 + Me.btnCBAM_DS_TELOTEC_Summe.Text = "Summenbereicht" + Me.btnCBAM_DS_TELOTEC_Summe.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnCBAM_DS_TELOTEC_Summe.UseVisualStyleBackColor = True + ' + 'btnCBAM_DS_TELOTEC_Detail + ' + Me.btnCBAM_DS_TELOTEC_Detail.Enabled = False + Me.btnCBAM_DS_TELOTEC_Detail.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnCBAM_DS_TELOTEC_Detail.Image = Global.SDL.My.Resources.Resources.Excel_logo + Me.btnCBAM_DS_TELOTEC_Detail.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnCBAM_DS_TELOTEC_Detail.Location = New System.Drawing.Point(666, 216) + Me.btnCBAM_DS_TELOTEC_Detail.Name = "btnCBAM_DS_TELOTEC_Detail" + Me.btnCBAM_DS_TELOTEC_Detail.Size = New System.Drawing.Size(130, 42) + Me.btnCBAM_DS_TELOTEC_Detail.TabIndex = 32 + Me.btnCBAM_DS_TELOTEC_Detail.Text = "Detailbericht" + Me.btnCBAM_DS_TELOTEC_Detail.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnCBAM_DS_TELOTEC_Detail.UseVisualStyleBackColor = True + ' + 'Label6 + ' + Me.Label6.AutoSize = True + Me.Label6.Location = New System.Drawing.Point(5, 74) + Me.Label6.Name = "Label6" + Me.Label6.Size = New System.Drawing.Size(41, 13) + Me.Label6.TabIndex = 34 + Me.Label6.Text = "Prüfen:" + ' + 'btnCBAM_DS_DAKOSY_Copy + ' + Me.btnCBAM_DS_DAKOSY_Copy.Enabled = False + Me.btnCBAM_DS_DAKOSY_Copy.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnCBAM_DS_DAKOSY_Copy.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnCBAM_DS_DAKOSY_Copy.Location = New System.Drawing.Point(144, 312) + Me.btnCBAM_DS_DAKOSY_Copy.Name = "btnCBAM_DS_DAKOSY_Copy" + Me.btnCBAM_DS_DAKOSY_Copy.Size = New System.Drawing.Size(130, 42) + Me.btnCBAM_DS_DAKOSY_Copy.TabIndex = 35 + Me.btnCBAM_DS_DAKOSY_Copy.Text = "In Zwischenablage kopieren" + Me.btnCBAM_DS_DAKOSY_Copy.UseVisualStyleBackColor = True + ' + 'btnCBAM_DS_DHF_VERAG_Copy + ' + Me.btnCBAM_DS_DHF_VERAG_Copy.Enabled = False + Me.btnCBAM_DS_DHF_VERAG_Copy.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnCBAM_DS_DHF_VERAG_Copy.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnCBAM_DS_DHF_VERAG_Copy.Location = New System.Drawing.Point(318, 312) + Me.btnCBAM_DS_DHF_VERAG_Copy.Name = "btnCBAM_DS_DHF_VERAG_Copy" + Me.btnCBAM_DS_DHF_VERAG_Copy.Size = New System.Drawing.Size(130, 42) + Me.btnCBAM_DS_DHF_VERAG_Copy.TabIndex = 36 + Me.btnCBAM_DS_DHF_VERAG_Copy.Text = "In Zwischenablage kopieren" + Me.btnCBAM_DS_DHF_VERAG_Copy.UseVisualStyleBackColor = True + ' + 'btnCBAM_DS_DHF_UNISPED_Copy + ' + Me.btnCBAM_DS_DHF_UNISPED_Copy.Enabled = False + Me.btnCBAM_DS_DHF_UNISPED_Copy.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnCBAM_DS_DHF_UNISPED_Copy.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnCBAM_DS_DHF_UNISPED_Copy.Location = New System.Drawing.Point(492, 312) + Me.btnCBAM_DS_DHF_UNISPED_Copy.Name = "btnCBAM_DS_DHF_UNISPED_Copy" + Me.btnCBAM_DS_DHF_UNISPED_Copy.Size = New System.Drawing.Size(130, 42) + Me.btnCBAM_DS_DHF_UNISPED_Copy.TabIndex = 37 + Me.btnCBAM_DS_DHF_UNISPED_Copy.Text = "In Zwischenablage kopieren" + Me.btnCBAM_DS_DHF_UNISPED_Copy.UseVisualStyleBackColor = True + ' + 'btnCBAM_DS_TELOTEC_Copy + ' + Me.btnCBAM_DS_TELOTEC_Copy.Enabled = False + Me.btnCBAM_DS_TELOTEC_Copy.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnCBAM_DS_TELOTEC_Copy.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnCBAM_DS_TELOTEC_Copy.Location = New System.Drawing.Point(666, 312) + Me.btnCBAM_DS_TELOTEC_Copy.Name = "btnCBAM_DS_TELOTEC_Copy" + Me.btnCBAM_DS_TELOTEC_Copy.Size = New System.Drawing.Size(130, 42) + Me.btnCBAM_DS_TELOTEC_Copy.TabIndex = 38 + Me.btnCBAM_DS_TELOTEC_Copy.Text = "In Zwischenablage kopieren" + Me.btnCBAM_DS_TELOTEC_Copy.UseVisualStyleBackColor = True + ' + 'usrCntlCBAM + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.BackColor = System.Drawing.Color.White + Me.Controls.Add(Me.btnCBAM_DS_TELOTEC_Copy) + Me.Controls.Add(Me.btnCBAM_DS_DHF_UNISPED_Copy) + Me.Controls.Add(Me.btnCBAM_DS_DHF_VERAG_Copy) + Me.Controls.Add(Me.btnCBAM_DS_DAKOSY_Copy) + Me.Controls.Add(Me.Label6) + Me.Controls.Add(Me.btnCBAM_DS_TELOTEC_Summe) + Me.Controls.Add(Me.btnCBAM_DS_TELOTEC_Detail) + Me.Controls.Add(Me.btnCBAM_DS_DHF_UNISPED_Summe) + Me.Controls.Add(Me.btnCBAM_DS_DHF_UNISPED_Deteil) + Me.Controls.Add(Me.btnCBAM_DS_DHF_VERAG_Summe) + Me.Controls.Add(Me.btnCBAM_DS_DHF_VERAG_Deteil) + Me.Controls.Add(Me.btnCBAM_DS_DAKOSY_Summe) + Me.Controls.Add(Me.btnCBAM_DS_DAKOSY_Deteil) + Me.Controls.Add(Me.Label3) + Me.Controls.Add(Me.btnCBAM_DS_DHF_UNISPED) + Me.Controls.Add(Me.btnCBAM_DS_TELOTEC) + Me.Controls.Add(Me.btnCBAM_DS_DHF_VERAG) + Me.Controls.Add(Me.btnCBAM_DS_DAKOSY) + Me.Controls.Add(Me.txtJahr) + Me.Controls.Add(Me.cboQuartal) + Me.Controls.Add(Me.Label5) + Me.Controls.Add(Me.Label4) + Me.Controls.Add(Me.txtVon) + Me.Controls.Add(Me.txtBis) + Me.Controls.Add(Me.txtCBAMPruef_TELOTEC) + Me.Controls.Add(Me.txtCBAMPruef_DHF_UNISPED) + Me.Controls.Add(Me.txtCBAMPruef_DHF_VERAG) + Me.Controls.Add(Me.txtCBAMPruef_DAKOSY) + Me.Controls.Add(Me.btnCBAMPruef_ALLE) + Me.Controls.Add(Me.Label2) + Me.Controls.Add(Me.btnCBAMPruef_DHF_UNISPED) + Me.Controls.Add(Me.btnCBAMPruef_TELOTEC) + Me.Controls.Add(Me.btnCBAMPruef_DHF_VERAG) + Me.Controls.Add(Me.btnCBAMPruef_DAKOSY) + Me.Controls.Add(Me.Label1) + Me.Controls.Add(Me.txtEori) + Me.Controls.Add(Me.lblOffert) + Me.Margin = New System.Windows.Forms.Padding(2) + Me.Name = "usrCntlCBAM" + Me.Size = New System.Drawing.Size(1041, 576) + Me.cntxtAddSdl.ResumeLayout(False) + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents lblOffert As System.Windows.Forms.TextBox + Friend WithEvents cntxtAddSdl As ContextMenuStrip + Friend WithEvents DToolStripMenuItem As ToolStripMenuItem + Friend WithEvents txtEori As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label1 As Label + Friend WithEvents btnCBAMPruef_DAKOSY As Button + Friend WithEvents btnCBAMPruef_DHF_VERAG As Button + Friend WithEvents btnCBAMPruef_TELOTEC As Button + Friend WithEvents btnCBAMPruef_DHF_UNISPED As Button + Friend WithEvents Label2 As Label + Friend WithEvents btnCBAMPruef_ALLE As Button + Friend WithEvents txtCBAMPruef_DAKOSY As TextBox + Friend WithEvents txtCBAMPruef_DHF_VERAG As TextBox + Friend WithEvents txtCBAMPruef_DHF_UNISPED As TextBox + Friend WithEvents txtCBAMPruef_TELOTEC As TextBox + Friend WithEvents txtBis As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents txtVon As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label4 As Label + Friend WithEvents Label5 As Label + Friend WithEvents cboQuartal As VERAG_PROG_ALLGEMEIN.MyComboBox + Friend WithEvents txtJahr As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents btnCBAM_DS_DHF_UNISPED As Button + Friend WithEvents btnCBAM_DS_TELOTEC As Button + Friend WithEvents btnCBAM_DS_DHF_VERAG As Button + Friend WithEvents btnCBAM_DS_DAKOSY As Button + Friend WithEvents Label3 As Label + Friend WithEvents btnCBAM_DS_DAKOSY_Deteil As Button + Friend WithEvents btnCBAM_DS_DAKOSY_Summe As Button + Friend WithEvents btnCBAM_DS_DHF_VERAG_Summe As Button + Friend WithEvents btnCBAM_DS_DHF_VERAG_Deteil As Button + Friend WithEvents btnCBAM_DS_DHF_UNISPED_Summe As Button + Friend WithEvents btnCBAM_DS_DHF_UNISPED_Deteil As Button + Friend WithEvents btnCBAM_DS_TELOTEC_Summe As Button + Friend WithEvents btnCBAM_DS_TELOTEC_Detail As Button + Friend WithEvents Label6 As Label + Friend WithEvents btnCBAM_DS_DAKOSY_Copy As Button + Friend WithEvents btnCBAM_DS_DHF_VERAG_Copy As Button + Friend WithEvents btnCBAM_DS_DHF_UNISPED_Copy As Button + Friend WithEvents btnCBAM_DS_TELOTEC_Copy As Button +End Class diff --git a/SDL/kunden/usrCntlCBAM.resx b/SDL/kunden/usrCntlCBAM.resx new file mode 100644 index 00000000..6a2661ff --- /dev/null +++ b/SDL/kunden/usrCntlCBAM.resx @@ -0,0 +1,123 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + \ No newline at end of file diff --git a/SDL/kunden/usrCntlCBAM.vb b/SDL/kunden/usrCntlCBAM.vb new file mode 100644 index 00000000..dc2d88a7 --- /dev/null +++ b/SDL/kunden/usrCntlCBAM.vb @@ -0,0 +1,570 @@ + + +Imports VERAG_PROG_ALLGEMEIN.agsCustomsExchange + +Public Class usrCntlCBAM + + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + Public kdnr = -1 + Dim AD As VERAG_PROG_ALLGEMEIN.cAdressen = Nothing + Dim KD As VERAG_PROG_ALLGEMEIN.cKunde = Nothing + + Sub New() + InitializeComponent() + End Sub + + Sub New(kdNr) + InitializeComponent() + Me.kdnr = kdNr + End Sub + + + Private Sub btnCBAMPruef_DAKOSY_Click(sender As Object, e As EventArgs) Handles btnCBAMPruef_DAKOSY.Click + txtCBAMPruef_DAKOSY.Text = "-" + Try + Dim EORI = txtEori.Text + If EORI = "" Then MsgBox("EORI eingeben!") : Exit Sub + If txtVon._value = "" Then MsgBox("Datum von eingeben!") : Exit Sub + If txtBis._value = "" Then MsgBox("Datum bis eingeben!") : Exit Sub + Me.Cursor = Cursors.WaitCursor + + Dim SQLSTR = " + SELECT COUNT(*) FROM [tblDakosy_EZA] inner join tblDakosy_EZA_Warenposition on ezaWP_EzaId=eza_Id + where isnull( eza_anmeldedatum, eza_Trans_DatumZeit) between '" & txtVon._value & "' and '" & txtBis._value & "' + and + ( + left(ezaWP_WarennummerEZT,4) IN (2523,2716,2808,2814,3102,3105,7201,7203,7318,7326,7601,7616) + OR left(ezaWP_WarennummerEZT,4) between 7301 and 7311 + OR left(ezaWP_WarennummerEZT,4) between 7205 and 7229 + OR left(ezaWP_WarennummerEZT,4) between 7603 and 7614 + OR ezaWP_WarennummerEZT like '25070080%' + OR ezaWP_WarennummerEZT like '283421%' + OR ezaWP_WarennummerEZT like '260112%' + OR ezaWP_WarennummerEZT like '720211%' + OR ezaWP_WarennummerEZT like '720219%' + OR ezaWP_WarennummerEZT like '720241%' + OR ezaWP_WarennummerEZT like '720249%' + OR ezaWP_WarennummerEZT like '720260%' + OR ezaWP_WarennummerEZT like '280410%' + ) + and ezaWP_WarennummerEZT not like '310560%' + and (select isnull([ezaAd_NameFirma1],[ezaAd_TeilnehmerEORI]) FROM tblDakosy_EZA_Adressen WHERE ezaAd_EZAId=eza_Id and [ezaAd_AdressTyp]='CN')='" & EORI & "' + and eza_status between 41 and 60 + " + + Dim dt = SQL.loadDgvBySql(SQLSTR, "FMZOLL", 600) + If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then + txtCBAMPruef_DAKOSY.Text = dt.Rows(0)(0) & " Einträge" + Me.Cursor = Cursors.Default + Exit Sub + End If + + txtCBAMPruef_DAKOSY.Text = "0" + + + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + Me.Cursor = Cursors.Default + End Sub + + Private Sub btnCBAMPruef_ALLE_Click(sender As Object, e As EventArgs) Handles btnCBAMPruef_ALLE.Click + btnCBAMPruef_DAKOSY.PerformClick() + btnCBAMPruef_DHF_VERAG.PerformClick() + btnCBAMPruef_DHF_UNISPED.PerformClick() + btnCBAMPruef_TELOTEC.PerformClick() + End Sub + + Private Sub btnCBAMPruef_DHF_VERAG_Click(sender As Object, e As EventArgs) Handles btnCBAMPruef_DHF_VERAG.Click + txtCBAMPruef_DHF_VERAG.Text = "-" + Try + Dim EORI = txtEori.Text + If EORI = "" Then MsgBox("EORI eingeben!") : Exit Sub + If txtVon._value = "" Then MsgBox("Datum von eingeben!") : Exit Sub + If txtBis._value = "" Then MsgBox("Datum bis eingeben!") : Exit Sub + Me.Cursor = Cursors.WaitCursor + + Dim SQLSTR = " + select COUNT(*) from zsAnmRefs + inner join zsAnmGdsitem on zsAnmRefs.LizenzNr=zsAnmGdsitem.LizenzNr and zsAnmRefs.AnmID=zsAnmGdsitem.AnmID and zsAnmRefs.VorgangID=zsAnmGdsitem.VorgangID and zsAnmRefs.OperatorID=zsAnmGdsitem.OperatorID + inner join zsAnmHea on zsAnmHea.LizenzNr=zsAnmGdsitem.LizenzNr and zsAnmHea.AnmID=zsAnmGdsitem.AnmID and zsAnmHea.VorgangID=zsAnmGdsitem.VorgangID and zsAnmHea.OperatorID=zsAnmGdsitem.OperatorID + inner join zsAnmDeclarant on zsAnmHea.LizenzNr=zsAnmDeclarant.LizenzNr and zsAnmHea.AnmID=zsAnmDeclarant.AnmID and zsAnmHea.VorgangID=zsAnmDeclarant.VorgangID and zsAnmHea.OperatorID=zsAnmDeclarant.OperatorID + inner join zsAnmTransp on zsAnmHea.LizenzNr=zsAnmTransp.LizenzNr and zsAnmHea.AnmID=zsAnmTransp.AnmID and zsAnmHea.VorgangID=zsAnmTransp.VorgangID and zsAnmHea.OperatorID=zsAnmTransp.OperatorID + where DecDT between '" & txtVon._value & "' and '" & txtBis._value & "' + and + ( + left(ComCd,4) IN (2523,2716,2808,2814,3102,3105,7201,7203,7318,7326,7601,7616) + OR left(ComCd,4) between 7301 and 7311 + OR left(ComCd,4) between 7205 and 7229 + OR left(ComCd,4) between 7603 and 7614 + OR ComCd like '25070080%' + OR ComCd like '283421%' + OR ComCd like '260112%' + OR ComCd like '720211%' + OR ComCd like '720219%' + OR ComCd like '720241%' + OR ComCd like '720249%' + OR ComCd like '720260%' + OR ComCd like '280410%' + ) + and ComCd not like '310560%' + and crn is not null + and (SELECT TIN FROM zsAnmConeeTra WHERE (zsAnmConeeTra.LizenzNr = zsAnmHea.LizenzNr ) And (zsAnmConeeTra.OperatorID =zsAnmHea.OperatorID ) And (zsAnmConeeTra.VorgangID = zsAnmHea.VorgangID ) And (zsAnmConeeTra.AnmID = zsAnmHea.AnmID )) = '" & EORI & "' + " + + Dim dt = SQL.loadDgvBySql(SQLSTR, "EZOLL", 600) + If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then + txtCBAMPruef_DHF_VERAG.Text = dt.Rows(0)(0) & " Einträge" + Me.Cursor = Cursors.Default + Exit Sub + End If + + txtCBAMPruef_DHF_VERAG.Text = "0" + + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + Me.Cursor = Cursors.Default + End Sub + + Private Sub btnCBAMPruef_DHF_UNISPED_Click(sender As Object, e As EventArgs) Handles btnCBAMPruef_DHF_UNISPED.Click + txtCBAMPruef_DHF_UNISPED.Text = "-" + Try + Dim EORI = txtEori.Text + If EORI = "" Then MsgBox("EORI eingeben!") : Exit Sub + If txtVon._value = "" Then MsgBox("Datum von eingeben!") : Exit Sub + If txtBis._value = "" Then MsgBox("Datum bis eingeben!") : Exit Sub + Me.Cursor = Cursors.WaitCursor + + Dim SQLSTR = " + select COUNT(*) from zsAnmRefs + inner join zsAnmGdsitem on zsAnmRefs.LizenzNr=zsAnmGdsitem.LizenzNr and zsAnmRefs.AnmID=zsAnmGdsitem.AnmID and zsAnmRefs.VorgangID=zsAnmGdsitem.VorgangID and zsAnmRefs.OperatorID=zsAnmGdsitem.OperatorID + inner join zsAnmHea on zsAnmHea.LizenzNr=zsAnmGdsitem.LizenzNr and zsAnmHea.AnmID=zsAnmGdsitem.AnmID and zsAnmHea.VorgangID=zsAnmGdsitem.VorgangID and zsAnmHea.OperatorID=zsAnmGdsitem.OperatorID + inner join zsAnmDeclarant on zsAnmHea.LizenzNr=zsAnmDeclarant.LizenzNr and zsAnmHea.AnmID=zsAnmDeclarant.AnmID and zsAnmHea.VorgangID=zsAnmDeclarant.VorgangID and zsAnmHea.OperatorID=zsAnmDeclarant.OperatorID + inner join zsAnmTransp on zsAnmHea.LizenzNr=zsAnmTransp.LizenzNr and zsAnmHea.AnmID=zsAnmTransp.AnmID and zsAnmHea.VorgangID=zsAnmTransp.VorgangID and zsAnmHea.OperatorID=zsAnmTransp.OperatorID + where DecDT between '" & txtVon._value & "' and '" & txtBis._value & "' + and + ( + left(ComCd,4) IN (2523,2716,2808,2814,3102,3105,7201,7203,7318,7326,7601,7616) + OR left(ComCd,4) between 7301 and 7311 + OR left(ComCd,4) between 7205 and 7229 + OR left(ComCd,4) between 7603 and 7614 + OR ComCd like '25070080%' + OR ComCd like '283421%' + OR ComCd like '260112%' + OR ComCd like '720211%' + OR ComCd like '720219%' + OR ComCd like '720241%' + OR ComCd like '720249%' + OR ComCd like '720260%' + OR ComCd like '280410%' + ) + and ComCd not like '310560%' + and crn is not null + and (SELECT TIN FROM zsAnmConeeTra WHERE (zsAnmConeeTra.LizenzNr = zsAnmHea.LizenzNr ) And (zsAnmConeeTra.OperatorID =zsAnmHea.OperatorID ) And (zsAnmConeeTra.VorgangID = zsAnmHea.VorgangID ) And (zsAnmConeeTra.AnmID = zsAnmHea.AnmID )) = '" & EORI & "' + " + + Dim dt = SQL.loadDgvBySql(SQLSTR, "EZOLL_UNISPED", 600) + If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then + txtCBAMPruef_DHF_UNISPED.Text = dt.Rows(0)(0) & " Einträge" + Me.Cursor = Cursors.Default + Exit Sub + End If + + txtCBAMPruef_DHF_UNISPED.Text = "0" + + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + Me.Cursor = Cursors.Default + End Sub + + Private Sub btnCBAMPruef_TELOTEC_Click(sender As Object, e As EventArgs) Handles btnCBAMPruef_TELOTEC.Click + txtCBAMPruef_TELOTEC.Text = "nicht verfügbar" + Exit Sub + Try + Dim EORI = txtEori.Text + If EORI = "" Then MsgBox("EORI eingeben!") : Exit Sub + Me.Cursor = Cursors.WaitCursor + Dim SQLSTR = " + + + + " + + Dim dt = SQL.loadDgvBySql(SQLSTR, "FMZOLL", 600) + If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then + txtCBAMPruef_TELOTEC.Text = dt.Rows(0)(0) & " Einträge" + Me.Cursor = Cursors.Default + Exit Sub + End If + + txtCBAMPruef_TELOTEC.Text = "0" + + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + Me.Cursor = Cursors.Default + + End Sub + + Private Sub usrCntlCBAM_Load(sender As Object, e As EventArgs) Handles Me.Load + txtJahr.Text = Now.Year + + + If Now.Month < 3 Then + txtJahr.Text = Now.Year - 1 + cboQuartal.Text = "Q4" + ElseIf Now.Month < 6 Then : cboQuartal.Text = "Q1" + ElseIf Now.Month < 9 Then : cboQuartal.Text = "Q2" + ElseIf Now.Month < 12 Then : cboQuartal.Text = "Q3" + End If + + If kdnr > 0 Then + AD = New VERAG_PROG_ALLGEMEIN.cAdressen(kdnr) + KD = New VERAG_PROG_ALLGEMEIN.cKunde(kdnr) + End If + If KD IsNot Nothing Then + txtEori.Text = KD.EORITIN + End If + + End Sub + + Private Sub cboQuartal_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboQuartal.SelectedIndexChanged + If cboQuartal.Text <> "" And IsNumeric(txtJahr.Text) AndAlso txtJahr.Text.Length = 4 Then + + Select Case cboQuartal.Text + Case "Q1" : txtVon._value = CDate("01.01." & txtJahr.Text) : txtBis._value = CDate(txtVon._value).AddMonths(3).AddDays(-1) + Case "Q2" : txtVon._value = CDate("01.04." & txtJahr.Text) : txtBis._value = CDate(txtVon._value).AddMonths(3).AddDays(-1) + Case "Q3" : txtVon._value = CDate("01.07." & txtJahr.Text) : txtBis._value = CDate(txtVon._value).AddMonths(3).AddDays(-1) + Case "Q4" : txtVon._value = CDate("01.10." & txtJahr.Text) : txtBis._value = CDate(txtVon._value).AddMonths(3).AddDays(-1) + + End Select + + + End If + End Sub + + Private Sub Button4_Click(sender As Object, e As EventArgs) Handles btnCBAM_DS_DAKOSY.Click + btnCBAM_DS_DAKOSY_Deteil.Enabled = False + btnCBAM_DS_DAKOSY_Copy.Enabled = False + btnCBAM_DS_DAKOSY_Deteil.Tag = "" + + Try + Dim EORI = txtEori.Text + If EORI = "" Then MsgBox("EORI eingeben!") : Exit Sub + If txtVon._value = "" Then MsgBox("Datum von eingeben!") : Exit Sub + If txtBis._value = "" Then MsgBox("Datum bis eingeben!") : Exit Sub + Me.Cursor = Cursors.WaitCursor + + Dim SQLSTR = " + SELECT + [eza_ANR] RegistriernummerATLAS + ,ezaWP_PositionsNummer PositionsNummer + ,isnull( eza_anmeldedatum, eza_Trans_DatumZeit) Anmeldedatum + ,[eza_ObjectName] BezugsNr + ,[eza_VertretungsVerhaeltnisCode] VertretungsVerhaeltnis + ,ezaWP_WarennummerEZT Tarifnummer + ,ezaWP_Eigenmasse Eigenmasse + ,[eza_VersendungsLandCode] VersendungsLand + ,[eza_Bestimmungsland] Bestimmungsland + ,[ezaWP_Artikelpreis]Rechnungspreis + ,[ezaWP_ArtikelpreisWaehrung] Rechnungswaehrung + ,(select isnull([ezaAd_NameFirma1],[ezaAd_TeilnehmerEORI]) FROM tblDakosy_EZA_Adressen WHERE ezaAd_EZAId=eza_Id and [ezaAd_AdressTyp]='CN') as Empfänger + ,(select isnull([ezaAd_NameFirma1],[ezaAd_TeilnehmerEORI]) FROM tblDakosy_EZA_Adressen WHERE ezaAd_EZAId=eza_Id and [ezaAd_AdressTyp]='CZ') as Absender + + FROM [VERAG].[dbo].[tblDakosy_EZA] + inner join tblDakosy_EZA_Warenposition on ezaWP_EzaId=eza_Id + where + isnull( eza_anmeldedatum, eza_Trans_DatumZeit) between '" & txtVon._value & "' and '" & txtBis._value & "' + and + ( + left(ezaWP_WarennummerEZT,4) IN (2523,2716,2808,2814,3102,3105,7201,7203,7318,7326,7601,7616) + OR left(ezaWP_WarennummerEZT,4) between 7301 and 7311 + OR left(ezaWP_WarennummerEZT,4) between 7205 and 7229 + OR left(ezaWP_WarennummerEZT,4) between 7603 and 7614 + OR ezaWP_WarennummerEZT like '25070080%' + OR ezaWP_WarennummerEZT like '283421%' + OR ezaWP_WarennummerEZT like '260112%' + OR ezaWP_WarennummerEZT like '720211%' + OR ezaWP_WarennummerEZT like '720219%' + OR ezaWP_WarennummerEZT like '720241%' + OR ezaWP_WarennummerEZT like '720249%' + OR ezaWP_WarennummerEZT like '720260%' + OR ezaWP_WarennummerEZT like '280410%' + ) + and ezaWP_WarennummerEZT not like '310560%' + and (select isnull([ezaAd_NameFirma1],[ezaAd_TeilnehmerEORI]) FROM tblDakosy_EZA_Adressen WHERE ezaAd_EZAId=eza_Id and [ezaAd_AdressTyp]='CN')='" & EORI & "' + and eza_status between 41 and 60 + order by Absender,eza_ANR, tblDakosy_EZA_Warenposition.ezaWP_PositionsNummer + " + + Dim dt = SQL.loadDgvBySql(SQLSTR, "FMZOLL", 600) + If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then + Dim path = VERAG_PROG_ALLGEMEIN.cProgramFunctions.genExcelFromDT_NEW(dt,,,,, False, EORI & "_Detailbericht_" & txtVon._value & "-" & txtBis._value) + btnCBAM_DS_DAKOSY_Deteil.Tag = path + btnCBAM_DS_DAKOSY_Deteil.Enabled = True + btnCBAM_DS_DAKOSY_Copy.Enabled = True + Me.Cursor = Cursors.Default + + End If + + + + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + Me.Cursor = Cursors.Default + + + '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- + + + btnCBAM_DS_DAKOSY_Summe.Enabled = False + btnCBAM_DS_DAKOSY_Summe.Tag = "" + + Try + Dim EORI = txtEori.Text + If EORI = "" Then MsgBox("EORI eingeben!") : Exit Sub + If txtVon._value = "" Then MsgBox("Datum von eingeben!") : Exit Sub + If txtBis._value = "" Then MsgBox("Datum bis eingeben!") : Exit Sub + Me.Cursor = Cursors.WaitCursor + + Dim SQLSTR = " + SELECT + left(ezaWP_WarennummerEZT,8) Tarifnummer,sum(ezaWP_Eigenmasse)Eigenmasse,sum(ezaWP_Rohmasse)Rohmasse,sum(ezaWP_Artikelpreis)Rechnungspreis,eza_VersendungsLandCode VersendungsLand + FROM [VERAG].[dbo].[tblDakosy_EZA] + inner join tblDakosy_EZA_Warenposition on ezaWP_EzaId=eza_Id + where + isnull( eza_anmeldedatum, eza_Trans_DatumZeit) between '" & txtVon._value & "' and '" & txtBis._value & "' + and + ( + left(ezaWP_WarennummerEZT,4) IN (2523,2716,2808,2814,3102,3105,7201,7203,7318,7326,7601,7616) + OR left(ezaWP_WarennummerEZT,4) between 7301 and 7311 + OR left(ezaWP_WarennummerEZT,4) between 7205 and 7229 + OR left(ezaWP_WarennummerEZT,4) between 7603 and 7614 + OR ezaWP_WarennummerEZT like '25070080%' + OR ezaWP_WarennummerEZT like '283421%' + OR ezaWP_WarennummerEZT like '260112%' + OR ezaWP_WarennummerEZT like '720211%' + OR ezaWP_WarennummerEZT like '720219%' + OR ezaWP_WarennummerEZT like '720241%' + OR ezaWP_WarennummerEZT like '720249%' + OR ezaWP_WarennummerEZT like '720260%' + OR ezaWP_WarennummerEZT like '280410%' + + ) + and ezaWP_WarennummerEZT not like '310560%' + and (select isnull([ezaAd_NameFirma1],[ezaAd_TeilnehmerEORI]) FROM tblDakosy_EZA_Adressen WHERE ezaAd_EZAId=eza_Id and [ezaAd_AdressTyp]='CN')='" & EORI & "' + and eza_status between 41 and 60 + group by eza_VersendungsLandCode,left(ezaWP_WarennummerEZT,8) + " + + Dim dt = SQL.loadDgvBySql(SQLSTR, "FMZOLL", 600) + If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then + Dim path = VERAG_PROG_ALLGEMEIN.cProgramFunctions.genExcelFromDT_NEW(dt,,,,, False, EORI & "_Summenbericht_" & txtVon._value & "-" & txtBis._value) + btnCBAM_DS_DAKOSY_Summe.Tag = path + btnCBAM_DS_DAKOSY_Summe.Enabled = True + btnCBAM_DS_DAKOSY_Copy.Enabled = True + + Me.Cursor = Cursors.Default + + End If + + + + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + Me.Cursor = Cursors.Default + + End Sub + + Private Sub btnCBAM_DS_DAKOSY_Deteil_Click(sender As Object, e As EventArgs) Handles btnCBAM_DS_DAKOSY_Deteil.Click, btnCBAM_DS_DAKOSY_Summe.Click, btnCBAM_DS_DHF_VERAG_Deteil.Click, + btnCBAM_DS_DHF_VERAG_Summe.Click, btnCBAM_DS_DHF_UNISPED_Deteil.Click, btnCBAM_DS_DHF_UNISPED_Summe.Click, btnCBAM_DS_TELOTEC_Detail.Click, btnCBAM_DS_TELOTEC_Summe.Click + If sender.tag <> "" Then + Try : Process.Start(sender.tag) : Catch : End Try + End If + End Sub + + Private Sub btnCBAM_DS_DAKOSY_Copy_Click(sender As Object, e As EventArgs) Handles btnCBAM_DS_DAKOSY_Copy.Click + Dim f As New List(Of String) + If btnCBAM_DS_DAKOSY_Deteil.Tag <> "" Then f.Add(btnCBAM_DS_DAKOSY_Deteil.Tag) + If btnCBAM_DS_DAKOSY_Summe.Tag <> "" Then f.Add(btnCBAM_DS_DAKOSY_Summe.Tag) + + If f.Count > 0 Then + 'Zwischenablage + Clipboard.Clear() + Dim d As New DataObject(DataFormats.FileDrop, f.ToArray) + Clipboard.SetDataObject(d, True) + End If + End Sub + + Private Sub btnCBAM_DS_DHF_VERAG_Copy_Click(sender As Object, e As EventArgs) Handles btnCBAM_DS_DHF_VERAG_Copy.Click + Dim f As New List(Of String) + If btnCBAM_DS_DHF_VERAG_Deteil.Tag <> "" Then f.Add(btnCBAM_DS_DHF_VERAG_Deteil.Tag) + If btnCBAM_DS_DHF_VERAG_Summe.Tag <> "" Then f.Add(btnCBAM_DS_DHF_VERAG_Summe.Tag) + + If f.Count > 0 Then + 'Zwischenablage + Clipboard.Clear() + Dim d As New DataObject(DataFormats.FileDrop, f.ToArray) + Clipboard.SetDataObject(d, True) + End If + End Sub + + Private Sub btnCBAM_DS_DHF_UNISPED_Copy_Click(sender As Object, e As EventArgs) Handles btnCBAM_DS_DHF_UNISPED_Copy.Click + Dim f As New List(Of String) + If btnCBAM_DS_DHF_UNISPED_Deteil.Tag <> "" Then f.Add(btnCBAM_DS_DHF_UNISPED_Deteil.Tag) + If btnCBAM_DS_DHF_UNISPED_Summe.Tag <> "" Then f.Add(btnCBAM_DS_DHF_UNISPED_Summe.Tag) + + If f.Count > 0 Then + 'Zwischenablage + Clipboard.Clear() + Dim d As New DataObject(DataFormats.FileDrop, f.ToArray) + Clipboard.SetDataObject(d, True) + End If + End Sub + + Private Sub btnCBAM_DS_TELOTEC_Copy_Click(sender As Object, e As EventArgs) Handles btnCBAM_DS_TELOTEC_Copy.Click + Dim f As New List(Of String) + If btnCBAM_DS_TELOTEC_Detail.Tag <> "" Then f.Add(btnCBAM_DS_TELOTEC_Detail.Tag) + If btnCBAM_DS_TELOTEC_Summe.Tag <> "" Then f.Add(btnCBAM_DS_TELOTEC_Summe.Tag) + + If f.Count > 0 Then + 'Zwischenablage + Clipboard.Clear() + Dim d As New DataObject(DataFormats.FileDrop, f.ToArray) + Clipboard.SetDataObject(d, True) + End If + End Sub + + Private Sub btnCBAM_DS_DHF_VERAG_Click(sender As Object, e As EventArgs) Handles btnCBAM_DS_DHF_VERAG.Click + btnCBAM_DS_DHF_VERAG_Deteil.Enabled = False + btnCBAM_DS_DHF_VERAG_Copy.Enabled = False + btnCBAM_DS_DHF_VERAG_Deteil.Tag = "" + + Try + Dim EORI = txtEori.Text + If EORI = "" Then MsgBox("EORI eingeben!") : Exit Sub + If txtVon._value = "" Then MsgBox("Datum von eingeben!") : Exit Sub + If txtBis._value = "" Then MsgBox("Datum bis eingeben!") : Exit Sub + Me.Cursor = Cursors.WaitCursor + + Dim SQLSTR = " + select CRN Zollbelegnummer,cast(DecDT as date) Anmeldedatum,LRN,zsAnmGdsitem.ComCd Tarifnummer,Net Eigenmasse,ItVal Rechnungspreis + , Orig Ursprungsland + + , isnull((SELECT TIN FROM zsAnmConorTra WHERE (zsAnmConorTra.LizenzNr = zsAnmHea.LizenzNr ) And (zsAnmConorTra.OperatorID =zsAnmHea.OperatorID ) And (zsAnmConorTra.VorgangID = zsAnmHea.VorgangID ) And (zsAnmConorTra.AnmID = zsAnmHea.AnmID )),'') EORI_Absender + , isnull((SELECT Na FROM zsAnmConorTra WHERE (zsAnmConorTra.LizenzNr = zsAnmHea.LizenzNr ) And (zsAnmConorTra.OperatorID =zsAnmHea.OperatorID ) And (zsAnmConorTra.VorgangID = zsAnmHea.VorgangID ) And (zsAnmConorTra.AnmID = zsAnmHea.AnmID )),'') Absender + , isnull((SELECT TIN FROM zsAnmConeeTra WHERE (zsAnmConeeTra.LizenzNr = zsAnmHea.LizenzNr ) And (zsAnmConeeTra.OperatorID =zsAnmHea.OperatorID ) And (zsAnmConeeTra.VorgangID = zsAnmHea.VorgangID ) And (zsAnmConeeTra.AnmID = zsAnmHea.AnmID )),'')EORI_Empfänger + , isnull((SELECT Na FROM zsAnmConeeTra WHERE (zsAnmConeeTra.LizenzNr = zsAnmHea.LizenzNr ) And (zsAnmConeeTra.OperatorID =zsAnmHea.OperatorID ) And (zsAnmConeeTra.VorgangID = zsAnmHea.VorgangID ) And (zsAnmConeeTra.AnmID = zsAnmHea.AnmID )),'')Empfänger + from zsAnmRefs + inner join zsAnmGdsitem on zsAnmRefs.LizenzNr=zsAnmGdsitem.LizenzNr and zsAnmRefs.AnmID=zsAnmGdsitem.AnmID and zsAnmRefs.VorgangID=zsAnmGdsitem.VorgangID and zsAnmRefs.OperatorID=zsAnmGdsitem.OperatorID + inner join zsAnmHea on zsAnmHea.LizenzNr=zsAnmGdsitem.LizenzNr and zsAnmHea.AnmID=zsAnmGdsitem.AnmID and zsAnmHea.VorgangID=zsAnmGdsitem.VorgangID and zsAnmHea.OperatorID=zsAnmGdsitem.OperatorID + inner join zsAnmDeclarant on zsAnmHea.LizenzNr=zsAnmDeclarant.LizenzNr and zsAnmHea.AnmID=zsAnmDeclarant.AnmID and zsAnmHea.VorgangID=zsAnmDeclarant.VorgangID and zsAnmHea.OperatorID=zsAnmDeclarant.OperatorID + inner join zsAnmTransp on zsAnmHea.LizenzNr=zsAnmTransp.LizenzNr and zsAnmHea.AnmID=zsAnmTransp.AnmID and zsAnmHea.VorgangID=zsAnmTransp.VorgangID and zsAnmHea.OperatorID=zsAnmTransp.OperatorID + where DecDT between '" & txtVon._value & "' and '" & txtBis._value & "' + and + ( + left(ComCd,4) IN (2523,2716,2808,2814,3102,3105,7201,7203,7318,7326,7601,7616) + OR left(ComCd,4) between 7301 and 7311 + OR left(ComCd,4) between 7205 and 7229 + OR left(ComCd,4) between 7603 and 7614 + OR ComCd like '25070080%' + OR ComCd like '283421%' + OR ComCd like '260112%' + OR ComCd like '720211%' + OR ComCd like '720219%' + OR ComCd like '720241%' + OR ComCd like '720249%' + OR ComCd like '720260%' + OR ComCd like '280410%' + ) + and ComCd not like '310560%' + and crn is not null + and (SELECT TIN FROM zsAnmConeeTra WHERE (zsAnmConeeTra.LizenzNr = zsAnmHea.LizenzNr ) And (zsAnmConeeTra.OperatorID =zsAnmHea.OperatorID ) And (zsAnmConeeTra.VorgangID = zsAnmHea.VorgangID ) And (zsAnmConeeTra.AnmID = zsAnmHea.AnmID )) LIKE '" & EORI & "' + order by (SELECT Na FROM zsAnmConorTra WHERE (zsAnmConorTra.LizenzNr = zsAnmHea.LizenzNr ) And (zsAnmConorTra.OperatorID =zsAnmHea.OperatorID ) And (zsAnmConorTra.VorgangID = zsAnmHea.VorgangID ) And (zsAnmConorTra.AnmID = zsAnmHea.AnmID )) + " + + Dim dt = SQL.loadDgvBySql(SQLSTR, "EZOLL", 600) + If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then + Dim path = VERAG_PROG_ALLGEMEIN.cProgramFunctions.genExcelFromDT_NEW(dt,,,,, False, EORI & "_Detailbericht_" & txtVon._value & "-" & txtBis._value) + btnCBAM_DS_DHF_VERAG_Deteil.Tag = path + btnCBAM_DS_DHF_VERAG_Deteil.Enabled = True + btnCBAM_DS_DHF_VERAG_Copy.Enabled = True + Me.Cursor = Cursors.Default + + End If + + + + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + Me.Cursor = Cursors.Default + + + '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- + + + btnCBAM_DS_DHF_VERAG_Summe.Enabled = False + btnCBAM_DS_DHF_VERAG_Summe.Tag = "" + + Try + Dim EORI = txtEori.Text + If EORI = "" Then MsgBox("EORI eingeben!") : Exit Sub + If txtVon._value = "" Then MsgBox("Datum von eingeben!") : Exit Sub + If txtBis._value = "" Then MsgBox("Datum bis eingeben!") : Exit Sub + Me.Cursor = Cursors.WaitCursor + + Dim SQLSTR = " + select left(zsAnmGdsitem.ComCd,8) Tarifnummer, sum(Net)Eigenmasse, sum(ItVal)Rechnungspreis,Orig + from zsAnmRefs + inner join zsAnmGdsitem on zsAnmRefs.LizenzNr=zsAnmGdsitem.LizenzNr and zsAnmRefs.AnmID=zsAnmGdsitem.AnmID and zsAnmRefs.VorgangID=zsAnmGdsitem.VorgangID and zsAnmRefs.OperatorID=zsAnmGdsitem.OperatorID + inner join zsAnmHea on zsAnmHea.LizenzNr=zsAnmGdsitem.LizenzNr and zsAnmHea.AnmID=zsAnmGdsitem.AnmID and zsAnmHea.VorgangID=zsAnmGdsitem.VorgangID and zsAnmHea.OperatorID=zsAnmGdsitem.OperatorID + inner join zsAnmDeclarant on zsAnmHea.LizenzNr=zsAnmDeclarant.LizenzNr and zsAnmHea.AnmID=zsAnmDeclarant.AnmID and zsAnmHea.VorgangID=zsAnmDeclarant.VorgangID and zsAnmHea.OperatorID=zsAnmDeclarant.OperatorID + inner join zsAnmTransp on zsAnmHea.LizenzNr=zsAnmTransp.LizenzNr and zsAnmHea.AnmID=zsAnmTransp.AnmID and zsAnmHea.VorgangID=zsAnmTransp.VorgangID and zsAnmHea.OperatorID=zsAnmTransp.OperatorID + where DecDT between '" & txtVon._value & "' and '" & txtBis._value & "' + and + ( + left(ComCd,4) IN (2523,2716,2808,2814,3102,3105,7201,7203,7318,7326,7601,7616) + OR left(ComCd,4) between 7301 and 7311 + OR left(ComCd,4) between 7205 and 7229 + OR left(ComCd,4) between 7603 and 7614 + OR ComCd like '25070080%' + OR ComCd like '283421%' + OR ComCd like '260112%' + OR ComCd like '720211%' + OR ComCd like '720219%' + OR ComCd like '720241%' + OR ComCd like '720249%' + OR ComCd like '720260%' + OR ComCd like '280410%' + ) + and ComCd not like '310560%' + and crn is not null + and (SELECT TIN FROM zsAnmConeeTra WHERE (zsAnmConeeTra.LizenzNr = zsAnmHea.LizenzNr ) And (zsAnmConeeTra.OperatorID =zsAnmHea.OperatorID ) And (zsAnmConeeTra.VorgangID = zsAnmHea.VorgangID ) And (zsAnmConeeTra.AnmID = zsAnmHea.AnmID )) LIKE '" & EORI & "' + GROUP BY Orig,left(zsAnmGdsitem.ComCd,8) + " + + Dim dt = SQL.loadDgvBySql(SQLSTR, "EZOLL", 600) + If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then + Dim path = VERAG_PROG_ALLGEMEIN.cProgramFunctions.genExcelFromDT_NEW(dt,,,,, False, EORI & "_Summenbericht_" & txtVon._value & "-" & txtBis._value) + btnCBAM_DS_DHF_VERAG_Summe.Tag = path + btnCBAM_DS_DHF_VERAG_Summe.Enabled = True + btnCBAM_DS_DHF_VERAG_Copy.Enabled = True + + Me.Cursor = Cursors.Default + + End If + + + + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + Me.Cursor = Cursors.Default + + End Sub +End Class diff --git a/SDL/zoll/usrCntlAuswertungenCBAM_DE.Designer.vb b/SDL/zoll/usrCntlAuswertungenCBAM_DE.Designer.vb new file mode 100644 index 00000000..0805c458 --- /dev/null +++ b/SDL/zoll/usrCntlAuswertungenCBAM_DE.Designer.vb @@ -0,0 +1,266 @@ + +Partial Class usrCntlAuswertungenCBAM_DE + Inherits System.Windows.Forms.UserControl + + 'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Wird vom Windows Form-Designer benötigt. + Private components As System.ComponentModel.IContainer + + 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. + 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. + 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. + + Private Sub InitializeComponent() + Me.Label8 = New System.Windows.Forms.Label() + Me.GroupBox2 = New System.Windows.Forms.GroupBox() + Me.Label1 = New System.Windows.Forms.Label() + Me.kdKunde = New VERAG_PROG_ALLGEMEIN.KdSearchBox() + Me.lblCnt2 = New System.Windows.Forms.Label() + Me.txtJahr = New System.Windows.Forms.NumericUpDown() + Me.cboMonat = New System.Windows.Forms.ComboBox() + Me.Label77 = New System.Windows.Forms.Label() + Me.datAuswertBis = New System.Windows.Forms.DateTimePicker() + Me.Label78 = New System.Windows.Forms.Label() + Me.Label79 = New System.Windows.Forms.Label() + Me.Label80 = New System.Windows.Forms.Label() + Me.datAuswertVon = New System.Windows.Forms.DateTimePicker() + Me.Button3 = New System.Windows.Forms.Button() + Me.lblErr = New System.Windows.Forms.Label() + Me.Label14 = New System.Windows.Forms.Label() + Me.lblCnt = New System.Windows.Forms.Label() + Me.GroupBox2.SuspendLayout() + CType(Me.txtJahr, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'Label8 + ' + Me.Label8.AutoSize = True + Me.Label8.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label8.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Me.Label8.Location = New System.Drawing.Point(3, 0) + Me.Label8.Name = "Label8" + Me.Label8.Size = New System.Drawing.Size(118, 17) + Me.Label8.TabIndex = 16 + Me.Label8.Text = "CBAM DAKOSY" + ' + 'GroupBox2 + ' + Me.GroupBox2.Controls.Add(Me.Label1) + Me.GroupBox2.Controls.Add(Me.kdKunde) + Me.GroupBox2.Controls.Add(Me.lblCnt2) + Me.GroupBox2.Controls.Add(Me.txtJahr) + Me.GroupBox2.Controls.Add(Me.cboMonat) + Me.GroupBox2.Controls.Add(Me.Label77) + Me.GroupBox2.Controls.Add(Me.datAuswertBis) + Me.GroupBox2.Controls.Add(Me.Label78) + Me.GroupBox2.Controls.Add(Me.Label79) + Me.GroupBox2.Controls.Add(Me.Label80) + Me.GroupBox2.Controls.Add(Me.datAuswertVon) + Me.GroupBox2.Controls.Add(Me.Button3) + Me.GroupBox2.Controls.Add(Me.lblErr) + Me.GroupBox2.Controls.Add(Me.Label14) + Me.GroupBox2.Controls.Add(Me.lblCnt) + Me.GroupBox2.Location = New System.Drawing.Point(2, 11) + Me.GroupBox2.Name = "GroupBox2" + Me.GroupBox2.Size = New System.Drawing.Size(697, 86) + Me.GroupBox2.TabIndex = 15 + Me.GroupBox2.TabStop = False + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Location = New System.Drawing.Point(145, 63) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(41, 13) + Me.Label1.TabIndex = 45 + Me.Label1.Text = "Kunde:" + ' + 'kdKunde + ' + Me.kdKunde._AlleFirmenCLUSTER = True + Me.kdKunde._AllowSetValue = True + Me.kdKunde._autoSizeGross = False + Me.kdKunde._display_Name1 = False + Me.kdKunde._displayAVISO_Email = False + Me.kdKunde._displayFullName = False + Me.kdKunde._displayWoelflKd = False + Me.kdKunde._hideIfListEmpty = True + Me.kdKunde._loadKdData = False + Me.kdKunde._searchName1 = True + Me.kdKunde._UseFIRMA = "" + Me.kdKunde._ValueKdAndName = True + Me.kdKunde.dgvpos = "LEFT" + Me.kdKunde.KdName = "" + Me.kdKunde.KdNr = "-1" + Me.kdKunde.kdNrField = Nothing + Me.kdKunde.KdNrNullInt = Nothing + Me.kdKunde.Location = New System.Drawing.Point(186, 60) + Me.kdKunde.Name = "kdKunde" + Me.kdKunde.nurAktive = True + Me.kdKunde.searchActive = True + Me.kdKunde.Size = New System.Drawing.Size(177, 20) + Me.kdKunde.TabIndex = 44 + Me.kdKunde.TIMER_SEARCH = True + Me.kdKunde.usrcntl = Nothing + ' + 'lblCnt2 + ' + Me.lblCnt2.Location = New System.Drawing.Point(52, 69) + Me.lblCnt2.Name = "lblCnt2" + Me.lblCnt2.Size = New System.Drawing.Size(78, 13) + Me.lblCnt2.TabIndex = 43 + Me.lblCnt2.Text = "99/99" + Me.lblCnt2.TextAlign = System.Drawing.ContentAlignment.TopRight + ' + 'txtJahr + ' + Me.txtJahr.Location = New System.Drawing.Point(315, 37) + Me.txtJahr.Maximum = New Decimal(New Integer() {2050, 0, 0, 0}) + Me.txtJahr.Minimum = New Decimal(New Integer() {1999, 0, 0, 0}) + Me.txtJahr.Name = "txtJahr" + Me.txtJahr.Size = New System.Drawing.Size(48, 20) + Me.txtJahr.TabIndex = 40 + Me.txtJahr.Value = New Decimal(New Integer() {2016, 0, 0, 0}) + ' + 'cboMonat + ' + Me.cboMonat.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cboMonat.FormattingEnabled = True + Me.cboMonat.Items.AddRange(New Object() {"", "Q1", "Q2", "Q3", "Q4"}) + Me.cboMonat.Location = New System.Drawing.Point(186, 36) + Me.cboMonat.Name = "cboMonat" + Me.cboMonat.Size = New System.Drawing.Size(87, 21) + Me.cboMonat.TabIndex = 41 + ' + 'Label77 + ' + Me.Label77.AutoSize = True + Me.Label77.Location = New System.Drawing.Point(569, 40) + Me.Label77.Name = "Label77" + Me.Label77.Size = New System.Drawing.Size(23, 13) + Me.Label77.TabIndex = 39 + Me.Label77.Text = "bis:" + ' + 'datAuswertBis + ' + Me.datAuswertBis.Format = System.Windows.Forms.DateTimePickerFormat.[Short] + Me.datAuswertBis.Location = New System.Drawing.Point(598, 37) + Me.datAuswertBis.Name = "datAuswertBis" + Me.datAuswertBis.Size = New System.Drawing.Size(93, 20) + Me.datAuswertBis.TabIndex = 38 + ' + 'Label78 + ' + Me.Label78.AutoSize = True + Me.Label78.Location = New System.Drawing.Point(279, 40) + Me.Label78.Name = "Label78" + Me.Label78.Size = New System.Drawing.Size(30, 13) + Me.Label78.TabIndex = 35 + Me.Label78.Text = "Jahr:" + ' + 'Label79 + ' + Me.Label79.AutoSize = True + Me.Label79.Location = New System.Drawing.Point(145, 40) + Me.Label79.Name = "Label79" + Me.Label79.Size = New System.Drawing.Size(41, 13) + Me.Label79.TabIndex = 36 + Me.Label79.Text = "Quartal" + ' + 'Label80 + ' + Me.Label80.AutoSize = True + Me.Label80.Location = New System.Drawing.Point(436, 40) + Me.Label80.Name = "Label80" + Me.Label80.Size = New System.Drawing.Size(28, 13) + Me.Label80.TabIndex = 37 + Me.Label80.Text = "von:" + ' + 'datAuswertVon + ' + Me.datAuswertVon.Format = System.Windows.Forms.DateTimePickerFormat.[Short] + Me.datAuswertVon.Location = New System.Drawing.Point(470, 37) + Me.datAuswertVon.Name = "datAuswertVon" + Me.datAuswertVon.Size = New System.Drawing.Size(93, 20) + Me.datAuswertVon.TabIndex = 34 + ' + 'Button3 + ' + Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button3.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.Button3.Location = New System.Drawing.Point(9, 16) + Me.Button3.Name = "Button3" + Me.Button3.Size = New System.Drawing.Size(121, 37) + Me.Button3.TabIndex = 33 + Me.Button3.Text = "CBAM Kunden" + Me.Button3.UseVisualStyleBackColor = True + ' + 'lblErr + ' + Me.lblErr.AutoSize = True + Me.lblErr.ForeColor = System.Drawing.Color.Red + Me.lblErr.Location = New System.Drawing.Point(6, 56) + Me.lblErr.Name = "lblErr" + Me.lblErr.Size = New System.Drawing.Size(69, 13) + Me.lblErr.TabIndex = 13 + Me.lblErr.Text = "Keine Daten!" + Me.lblErr.Visible = False + ' + 'Label14 + ' + Me.Label14.AutoSize = True + Me.Label14.Location = New System.Drawing.Point(145, 16) + Me.Label14.Name = "Label14" + Me.Label14.Size = New System.Drawing.Size(222, 13) + Me.Label14.TabIndex = 5 + Me.Label14.Text = "Erstellt Excel Dateien für dei EV Veranlagung." + ' + 'lblCnt + ' + Me.lblCnt.Location = New System.Drawing.Point(52, 56) + Me.lblCnt.Name = "lblCnt" + Me.lblCnt.Size = New System.Drawing.Size(78, 13) + Me.lblCnt.TabIndex = 42 + Me.lblCnt.Text = "99/99" + Me.lblCnt.TextAlign = System.Drawing.ContentAlignment.TopRight + ' + 'usrCntlAuswertungenCBAM_DE + ' + Me.Controls.Add(Me.Label8) + Me.Controls.Add(Me.GroupBox2) + Me.GroupBox2.ResumeLayout(False) + Me.GroupBox2.PerformLayout() + CType(Me.txtJahr, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents Label8 As System.Windows.Forms.Label + Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox + Friend WithEvents lblErr As System.Windows.Forms.Label + Friend WithEvents Label14 As System.Windows.Forms.Label + Friend WithEvents Button3 As System.Windows.Forms.Button + Friend WithEvents txtJahr As NumericUpDown + Friend WithEvents cboMonat As ComboBox + Friend WithEvents Label77 As Label + Friend WithEvents datAuswertBis As DateTimePicker + Friend WithEvents Label78 As Label + Friend WithEvents Label79 As Label + Friend WithEvents Label80 As Label + Friend WithEvents datAuswertVon As DateTimePicker + Friend WithEvents lblCnt As Label + Friend WithEvents lblCnt2 As Label + Friend WithEvents Label1 As Label + Friend WithEvents kdKunde As VERAG_PROG_ALLGEMEIN.KdSearchBox +End Class diff --git a/SDL/zoll/usrCntlAuswertungenCBAM_DE.resx b/SDL/zoll/usrCntlAuswertungenCBAM_DE.resx new file mode 100644 index 00000000..1af7de15 --- /dev/null +++ b/SDL/zoll/usrCntlAuswertungenCBAM_DE.resx @@ -0,0 +1,120 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/SDL/zoll/usrCntlAuswertungenCBAM_DE.vb b/SDL/zoll/usrCntlAuswertungenCBAM_DE.vb new file mode 100644 index 00000000..8e21aefd --- /dev/null +++ b/SDL/zoll/usrCntlAuswertungenCBAM_DE.vb @@ -0,0 +1,241 @@ +Imports System.IO + +Public Class usrCntlAuswertungenCBAM_DE + + + + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + + Private Property rst As Object + + Private Sub usrCntlBrgBuchungenFremd_Load(sender As Object, e As EventArgs) + kdKunde.initKdBox(Me.FindForm) + 'datVon.Value = CDate("01." & Now.AddMonths(-1).Month & "." & Now.AddMonths(-1).Year) + 'datBis.Value = datVon.Value.AddMonths(1).AddDays(-1) + + txtJahr.Value = Now.Year + cboMonat.SelectedIndex = Now.AddMonths(-1).Month + + 'datVon_NCTSTR.Value = Now + 'datBis_NCTSTR.Value = Now.AddDays(3) + lblErr.Visible = False + lblCnt.Text = "" + lblCnt2.Text = "" + End Sub + + + + + + Private Sub Button3_Click(sender As Object, e As EventArgs) + Try + Me.Cursor = Cursors.WaitCursor + lblCnt.Text = "" + lblCnt2.Text = "" + Dim dt As DataTable = SQL.loadDgvBySql("SELECT [kde_KundenNr], [Name 1] Name FROM [tblKundenErweitert] INNER JOIN ADRESSEN on adressennr = kde_KundenNr WHERE " & If(kdKunde.KdNr_value > 0, " kde_KundenNr='" & kdKunde.KdNr_value & "' AND ", "") & " [Veranlagungskunde]=1 and Auswahl='A' ", "FMZOLL") + If dt Is Nothing Then lblErr.Visible = True : Exit Sub + Dim folderpath = "" + Dim FolderBrowserDialog1 As New FolderBrowserDialog + If FolderBrowserDialog1.ShowDialog() = DialogResult.OK Then + folderpath = FolderBrowserDialog1.SelectedPath + If vbYes = MsgBox("Es werden '" & dt.Rows.Count & "' Kunden ausgewertet. Möchten Sie fortfahren?", vbYesNoCancel) Then + Dim cnt = 1 + For Each r In dt.Rows + lblCnt.Text = cnt & "/ " & dt.Rows.Count + Me.Refresh() + genExcelKd(r("kde_KundenNr"), folderpath, r("Name")) + cnt += 1 + Next + End If + End If + Catch ex As Exception + MsgBox(ex.Message & ex.StackTrace) + End Try + Me.Cursor = Cursors.Default + End Sub + + Sub genExcelKd(KdNr, sPath, Optional EmpfName = "") + + Dim dt As DataTable = SQL.loadDgvBySql("SELECT [FilialenNr],[AbfertigungsNr],[UnterNr],Empfänger FROM [Speditionsbuch] where (EmpfängerKundenNr='" & KdNr & "' OR VermittlerKundenNr='" & KdNr & "') and cast(Abfertigungsdatum as date) between '" & datAuswertVon.Value & "' and '" & datAuswertBis.Value & "' and Abfertigungsart=38 ORDER BY Abfertigungsdatum ", "FMZOLL") + lblCnt2.Text = "" + + 'EXCEL + Try + + 'Dim sPath As String = Environment.GetFolderPath(Environment.SpecialFolder.Personal) & "\VERAG\SR\" ' My.Computer.FileSystem.GetTempFileName + 'If Not My.Computer.FileSystem.DirectoryExists(sPath) Then + ' My.Computer.FileSystem.CreateDirectory(sPath) + 'End If + + Dim Path = "" + Dim exclApp As Object 'as Application + Dim Datei As Object 'as WorkBook + Dim Blatt As Object 'Microsoft.Office.Interop.Excel.Worksheet 'As Object 'as Worksheet + exclApp = CreateObject("Excel.Application") + + Dim nodata = False + If dt Is Nothing Or dt.Rows.Count = 0 Then nodata = True + + + Try + Path = sPath & "\" & If(nodata, "nodata_", "") & "FA_Graz_" & AdjustPath(EmpfName) & ".xlsx" + While System.IO.File.Exists(Path) + Path = sPath & "\" & If(nodata, "nodata_", "") & "FA_Graz_" & AdjustPath(EmpfName) & "_" & Now.ToString("ddMMyyyyHHmmss") & ".xlsx" + End While + My.Computer.FileSystem.WriteAllBytes(Path, My.Resources.FA_Graz_EV_Veranlagung_Muster, False) + 'Path = sPath & If(nodata, "nodata_", "") & "FA_Graz_" & AdjustPath(dt.Rows(0)("Empfänger")) & ".xlsx" + 'While System.IO.File.Exists(Path) + ' Path = sPath & If(nodata, "nodata_", "") & "FA_Graz_" & AdjustPath(dt.Rows(0)("Empfänger")) & "_" & Now.ToString("ddMMyyyyHHmmss") & ".xlsx" + 'End While + 'My.Computer.FileSystem.WriteAllBytes(Path, My.Resources.FA_Graz_EV_Veranlagung_Muster, False) + + + Catch ex As System.Exception + ' MsgBox(ex.Message) + MsgBox("ERROR 01: " & ex.Message & vbNewLine & ex.StackTrace) + Exit Sub + End Try + + + With exclApp + .Visible = False + Datei = .Workbooks.Open(Path) + Blatt = Datei.Worksheets(1) + + Blatt.Range("A2").Value = EmpfName & " / Finanzamt Graz " & datAuswertVon.Value.ToShortDateString & "-" & datAuswertBis.Value.ToShortDateString + 'Blatt.Range("A2").Value = dt.Rows(0)("Empfänger") & " / Finanzamt Graz " & datAuswertVon.Value.ToShortDateString & "-" & datAuswertBis.Value.ToShortDateString + + + + If Not nodata Then + Dim cnt = 8 + Dim cnt_zeile = 1 + For Each r In dt.Rows + lblCnt2.Text = cnt_zeile & "/" & dt.Rows.Count + Dim SPEDBUCH As New VERAG_PROG_ALLGEMEIN.cSpeditionsbuch(r("FilialenNr"), r("AbfertigungsNr"), r("UnterNr")) + If SPEDBUCH.hasEntry Then + 'LRN + Dim BezugsNr = If(SPEDBUCH.AtlasBezNrEZA, "") + If BezugsNr = "" Then BezugsNr = SPEDBUCH.FilialenNr & "/" & SPEDBUCH.AbfertigungsNr + + 'Handelsrechnungen + Dim handelsrechnungen = "" : Dim semi = "" + + + 'EUST + Dim EUST_Basis As Double = 0 + Dim EUST_5EV As Double = 0 + + Select Case r("FilialenNr") + Case "5501" + 'EUST + Dim dtEUST = SQL.loadDgvBySql(" select sum(base) Base,sum(Amnt)Amnt FROM tblTelotec_Anmeldung as TC inner join tblTelotec_PositionsdatenAbgaben as AGB on AGB.telposAbg_telanmId=TC.telanm_id + where Ty IN ('5EV') and tc.telanm_BezugsNr LIKE '" & BezugsNr & "' AND telanm_Status between 50 and 60", "FMZOLL") + If dtEUST IsNot Nothing AndAlso dtEUST.Rows.Count >= 0 Then + If dtEUST(0)("Base") IsNot DBNull.Value Then EUST_Basis = dtEUST(0)("Base") + If dtEUST(0)("Amnt") IsNot DBNull.Value Then EUST_5EV = dtEUST(0)("Amnt") + End If + + 'Handelsrechnungen + For Each rg In SQL.DLookupArray("distinct([DocCerts_DRef]) ", "[tblTelotec_PositionsdatenDokumente] As DOC inner join tblTelotec_Anmeldung As ANM ON telanm_id=[telposAbg_telanmId]", " (ANM.Refs_LRN = '" & BezugsNr & "') and [DocCerts_DocCd] IN ('N380','N325')", "FMZOLL", "DocCerts_DRef") + handelsrechnungen &= semi & rg : semi = "," + Next + + Case Else + 'EUST + Dim dtEUST = SQL.loadDgvBySql("select sum(base) Base,sum(Amnt)Amnt FROM ztIMsgGdsItemDutyCalc as GDS inner join zzAktivitaet as AKT on GDS.OperatorID=AKT.OperatorID AND GDS.LizenzNr=AKT.LizenzNr AND GDS.IMsgID=AKT.IMsgID + inner join zsAnmRefs as ANM on ANM.LizenzNr=AKT.LizenzNr And ANM.OperatorID=AKT.OperatorID And ANM.AnmID=AKT.AnmID + where Ty IN ('5EV') and LRN LIKE '" & BezugsNr & "' AND ErledigungsTypID LIKE 'F%'", "EZOLL") + If dtEUST IsNot Nothing AndAlso dtEUST.Rows.Count >= 0 Then + If dtEUST(0)("Base") IsNot DBNull.Value Then EUST_Basis = dtEUST(0)("Base") + If dtEUST(0)("Amnt") IsNot DBNull.Value Then EUST_5EV = dtEUST(0)("Amnt") + End If + + 'Handelsrechnungen + For Each rg In SQL.DLookupArray("distinct(DRef)", "[zsAnmGdsItemDocCerts] As DOC inner join zsAnmRefs As ANM On ANM.LizenzNr=DOC.LizenzNr And ANM.OperatorID=DOC.OperatorID And ANM.AnmID=DOC.AnmID", "(LRN = '" & BezugsNr & "') and DocCd IN ('N380','N325')", "EZOLL", "DRef") + handelsrechnungen &= semi & rg : semi = "," + Next + End Select + + + If SPEDBUCH.ENDEMPFAENGER.Count > 0 Then + Dim cnt2 = 0 + For Each EEMPF In SPEDBUCH.ENDEMPFAENGER + + Blatt.Range("A" & cnt).EntireRow.Copy() + Blatt.Range("A" & cnt).EntireRow.Insert(Microsoft.Office.Interop.Excel.XlDirection.xlDown) + + Blatt.Range("A" & cnt).Value = SPEDBUCH.FilialenNr & "/" & SPEDBUCH.AbfertigungsNr + Blatt.Range("B" & cnt).Value = SPEDBUCH.Abfertigungsdatum + Blatt.Range("C" & cnt).Value = handelsrechnungen + + If cnt2 = 0 Then 'Nur oberste Zeile je Abfertigung + Blatt.Range("D" & cnt).Value = EUST_Basis + Blatt.Range("E" & cnt).Value = EUST_5EV + 'Blatt.Range("D" & cnt).Value = EUST_Basis.ToString("0.00") + 'Blatt.Range("E" & cnt).Value = EUST_5EV.ToString("0.00") + 'Blatt.Range("D" & cnt).Style.NumberFormat = "###,###,##0.00 €" + 'Blatt.Range("E" & cnt).Style.NumberFormat = "###,###,##0.00 €" + Else + Blatt.Range("D" & cnt).Value = "-" + Blatt.Range("E" & cnt).Value = "-" + End If + + Blatt.Range("F" & cnt).Value = EEMPF.EndEmpfaenger + Blatt.Range("G" & cnt).Value = If(EEMPF.UstIdKz, "") & If(EEMPF.UstIdNr, "") + If EEMPF.Rechnungsbetrag IsNot Nothing AndAlso IsNumeric(EEMPF.Rechnungsbetrag) Then + Blatt.Range("H" & cnt).Value = CDbl(EEMPF.Rechnungsbetrag) + 'Blatt.Range("H" & cnt).Value = CDbl(EEMPF.Rechnungsbetrag).ToString("0.00") + 'Blatt.Range("H" & cnt).Style.NumberFormat = "###,###,##0.00 €" + End If + + cnt += 1 + cnt2 += 1 + '+Zeile + Next + Else + Blatt.Range("A" & cnt).EntireRow.Copy() + Blatt.Range("A" & cnt).EntireRow.Insert(Microsoft.Office.Interop.Excel.XlDirection.xlDown) + + Blatt.Range("A" & cnt).Value = SPEDBUCH.FilialenNr & "/" & SPEDBUCH.AbfertigungsNr + Blatt.Range("B" & cnt).Value = SPEDBUCH.Abfertigungsdatum + + Blatt.Range("C" & cnt).Value = handelsrechnungen + Blatt.Range("D" & cnt).Value = EUST_Basis + Blatt.Range("E" & cnt).Value = EUST_5EV + 'Blatt.Range("D" & cnt).Value = EUST_Basis.ToString("0.00") + 'Blatt.Range("E" & cnt).Value = EUST_5EV.ToString("0.00") + 'Blatt.Range("D" & cnt).Style.NumberFormat = "###,###,##0.00 €" + 'Blatt.Range("E" & cnt).Style.NumberFormat = "###,###,##0.00 €" + + cnt += 1 + '+Zeile + End If + + + + End If + cnt_zeile += 1 + Next + End If + + Datei.Save + Datei.Close + ' .Visible = True 'TEST + End With + + Catch ex As Exception + MsgBox(ex.Message & ex.StackTrace) + End Try + + End Sub + Private Function AdjustPath(Input As String) As String + Return System.Text.RegularExpressions.Regex.Replace(Input, "[\\/:*?""<>|]", String.Empty) + End Function + Private Sub Nctstr_SelectedIndexChanged(sender As Object, e As EventArgs) + If cboMonat.SelectedIndex <= 0 Then Exit Sub + Dim d As Date = CDate("01." & (cboMonat.SelectedIndex) & "." & txtJahr.Text) + datAuswertVon.Value = d + datAuswertBis.Value = d.AddMonths(1).AddDays(-1) + End Sub +End Class diff --git a/SDL/zoll/usrCntlZOLLAuswertungen.Designer.vb b/SDL/zoll/usrCntlZOLLAuswertungen.Designer.vb index d2dce605..5a5e073b 100644 --- a/SDL/zoll/usrCntlZOLLAuswertungen.Designer.vb +++ b/SDL/zoll/usrCntlZOLLAuswertungen.Designer.vb @@ -64,7 +64,6 @@ Partial Class usrCntlZOLLAuswertungen Me.Label19 = New System.Windows.Forms.Label() Me.cboEZOLLMandant = New System.Windows.Forms.ComboBox() Me.Label29 = New System.Windows.Forms.Label() - Me.cboEZOLLBrg = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.cboEZOLLStatus = New System.Windows.Forms.ComboBox() Me.Label20 = New System.Windows.Forms.Label() Me.datEZOLLBis = New System.Windows.Forms.DateTimePicker() @@ -93,7 +92,6 @@ Partial Class usrCntlZOLLAuswertungen Me.Label30 = New System.Windows.Forms.Label() Me.GroupBox5 = New System.Windows.Forms.GroupBox() Me.Label95 = New System.Windows.Forms.Label() - Me.cboDY_NCTS = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.cbxSplittungNachPos = New System.Windows.Forms.CheckBox() Me.cbxAnrechnungRefBetrag = New System.Windows.Forms.CheckBox() Me.Button8 = New System.Windows.Forms.Button() @@ -114,7 +112,6 @@ Partial Class usrCntlZOLLAuswertungen Me.tbcntr = New System.Windows.Forms.TabControl() Me.TabPage1 = New System.Windows.Forms.TabPage() Me.Label98 = New System.Windows.Forms.Label() - Me.cboNCTSSystemDY = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.Panel1 = New System.Windows.Forms.Panel() Me.pic = New System.Windows.Forms.PictureBox() Me.Label88 = New System.Windows.Forms.Label() @@ -147,7 +144,6 @@ Partial Class usrCntlZOLLAuswertungen Me.Label76 = New System.Windows.Forms.Label() Me.GroupBox11 = New System.Windows.Forms.GroupBox() Me.Label94 = New System.Windows.Forms.Label() - Me.cboBRG_Verimex = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.Button22 = New System.Windows.Forms.Button() Me.Button19 = New System.Windows.Forms.Button() Me.Button18 = New System.Windows.Forms.Button() @@ -190,7 +186,6 @@ Partial Class usrCntlZOLLAuswertungen Me.Label56 = New System.Windows.Forms.Label() Me.Button12 = New System.Windows.Forms.Button() Me.Label53 = New System.Windows.Forms.Label() - Me.cboBrgEZollTC = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.Label55 = New System.Windows.Forms.Label() Me.datEZOLL_TC_Bis = New System.Windows.Forms.DateTimePicker() Me.Label57 = New System.Windows.Forms.Label() @@ -251,6 +246,12 @@ Partial Class usrCntlZOLLAuswertungen Me.Button14 = New System.Windows.Forms.Button() Me.PictureBox8 = New System.Windows.Forms.PictureBox() Me.pnl = New System.Windows.Forms.Panel() + Me.cboNCTSSystemDY = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.cboBRG_Verimex = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.cboBrgEZollTC = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.cboDYDatumArt = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.cboDY_NCTS = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.cboEZOLLBrg = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.UsrCntlAuswertungenUIDPruefung1 = New SDL.usrCntlAuswertungenUIDPruefung() Me.UsrCntlAuswertungenKunden_Auftragsrueckgang1 = New SDL.usrCntlAuswertungenKunden_Auftragsrueckgang() Me.UsrCntlAuswertungenEV_Veranlagungen1 = New SDL.usrCntlAuswertungenEV_Veranlagungen() @@ -258,7 +259,6 @@ Partial Class usrCntlZOLLAuswertungen Me.UsrCntlAuswertungenFiskalvertretung_42001 = New SDL.usrCntlAuswertungenFiskalvertretung_4200() Me.UsrCntlAuswertungenAufschub_AbgabenKontrolleTRIER1 = New SDL.usrCntlAuswertungenAufschub_AbgabenKontrolleTRIER() Me.UsrCntlAuswertungenAufschub_Abgabenliste1 = New SDL.usrCntlAuswertungenAufschub_Abgabenliste() - Me.cboDYDatumArt = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.GroupBox1.SuspendLayout() Me.GroupBox2.SuspendLayout() CType(Me.picDurmaz, System.ComponentModel.ISupportInitialize).BeginInit() @@ -760,20 +760,6 @@ Partial Class usrCntlZOLLAuswertungen Me.Label29.TabIndex = 19 Me.Label29.Text = "Mandant:" ' - 'cboEZOLLBrg - ' - Me.cboEZOLLBrg._allowedValuesFreiText = Nothing - Me.cboEZOLLBrg._allowFreiText = False - Me.cboEZOLLBrg._value = "" - Me.cboEZOLLBrg.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList - Me.cboEZOLLBrg.DropDownWidth = 350 - Me.cboEZOLLBrg.FormattingEnabled = True - Me.cboEZOLLBrg.Items.AddRange(New Object() {"", "05AT510000G000FP7", "16AT520000G000VA6"}) - Me.cboEZOLLBrg.Location = New System.Drawing.Point(223, 69) - Me.cboEZOLLBrg.Name = "cboEZOLLBrg" - Me.cboEZOLLBrg.Size = New System.Drawing.Size(201, 21) - Me.cboEZOLLBrg.TabIndex = 12 - ' 'cboEZOLLStatus ' Me.cboEZOLLStatus.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList @@ -1073,19 +1059,6 @@ Partial Class usrCntlZOLLAuswertungen Me.Label95.TabIndex = 23 Me.Label95.Text = "NCTS-SYSTEM:" ' - 'cboDY_NCTS - ' - Me.cboDY_NCTS._allowedValuesFreiText = Nothing - Me.cboDY_NCTS._allowFreiText = False - Me.cboDY_NCTS._value = "" - Me.cboDY_NCTS.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList - Me.cboDY_NCTS.DropDownWidth = 350 - Me.cboDY_NCTS.FormattingEnabled = True - Me.cboDY_NCTS.Location = New System.Drawing.Point(148, 117) - Me.cboDY_NCTS.Name = "cboDY_NCTS" - Me.cboDY_NCTS.Size = New System.Drawing.Size(252, 21) - Me.cboDY_NCTS.TabIndex = 22 - ' 'cbxSplittungNachPos ' Me.cbxSplittungNachPos.AutoSize = True @@ -1261,7 +1234,7 @@ Partial Class usrCntlZOLLAuswertungen Me.tbcntr.Location = New System.Drawing.Point(0, 57) Me.tbcntr.Name = "tbcntr" Me.tbcntr.SelectedIndex = 0 - Me.tbcntr.Size = New System.Drawing.Size(689, 1829) + Me.tbcntr.Size = New System.Drawing.Size(701, 1829) Me.tbcntr.TabIndex = 22 ' 'TabPage1 @@ -1304,7 +1277,7 @@ Partial Class usrCntlZOLLAuswertungen Me.TabPage1.Location = New System.Drawing.Point(4, 22) Me.TabPage1.Name = "TabPage1" Me.TabPage1.Padding = New System.Windows.Forms.Padding(3) - Me.TabPage1.Size = New System.Drawing.Size(681, 1803) + Me.TabPage1.Size = New System.Drawing.Size(693, 1803) Me.TabPage1.TabIndex = 0 Me.TabPage1.Text = "Bürgschaften" Me.TabPage1.UseVisualStyleBackColor = True @@ -1318,19 +1291,6 @@ Partial Class usrCntlZOLLAuswertungen Me.Label98.TabIndex = 39 Me.Label98.Text = "NCTS-SYSTEM (DAKOSY):" ' - 'cboNCTSSystemDY - ' - Me.cboNCTSSystemDY._allowedValuesFreiText = Nothing - Me.cboNCTSSystemDY._allowFreiText = False - Me.cboNCTSSystemDY._value = "" - Me.cboNCTSSystemDY.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList - Me.cboNCTSSystemDY.DropDownWidth = 350 - Me.cboNCTSSystemDY.FormattingEnabled = True - Me.cboNCTSSystemDY.Location = New System.Drawing.Point(448, 706) - Me.cboNCTSSystemDY.Name = "cboNCTSSystemDY" - Me.cboNCTSSystemDY.Size = New System.Drawing.Size(252, 21) - Me.cboNCTSSystemDY.TabIndex = 38 - ' 'Panel1 ' Me.Panel1.Controls.Add(Me.Label3) @@ -1671,19 +1631,6 @@ Partial Class usrCntlZOLLAuswertungen Me.Label94.TabIndex = 18 Me.Label94.Text = "Bürgschaft (keine Auswahl = alle):" ' - 'cboBRG_Verimex - ' - Me.cboBRG_Verimex._allowedValuesFreiText = Nothing - Me.cboBRG_Verimex._allowFreiText = False - Me.cboBRG_Verimex._value = "" - Me.cboBRG_Verimex.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList - Me.cboBRG_Verimex.DropDownWidth = 350 - Me.cboBRG_Verimex.FormattingEnabled = True - Me.cboBRG_Verimex.Location = New System.Drawing.Point(184, 120) - Me.cboBRG_Verimex.Name = "cboBRG_Verimex" - Me.cboBRG_Verimex.Size = New System.Drawing.Size(221, 21) - Me.cboBRG_Verimex.TabIndex = 17 - ' 'Button22 ' Me.Button22.FlatStyle = System.Windows.Forms.FlatStyle.Flat @@ -2117,20 +2064,6 @@ Partial Class usrCntlZOLLAuswertungen Me.Label53.TabIndex = 13 Me.Label53.Text = "Bürgschaft (keine Auswahl = alle):" ' - 'cboBrgEZollTC - ' - Me.cboBrgEZollTC._allowedValuesFreiText = Nothing - Me.cboBrgEZollTC._allowFreiText = False - Me.cboBrgEZollTC._value = "" - Me.cboBrgEZollTC.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList - Me.cboBrgEZollTC.DropDownWidth = 350 - Me.cboBrgEZollTC.FormattingEnabled = True - Me.cboBrgEZollTC.Items.AddRange(New Object() {"", "05AT510000G000FP7", "16AT520000G000VA6"}) - Me.cboBrgEZollTC.Location = New System.Drawing.Point(437, 68) - Me.cboBrgEZollTC.Name = "cboBrgEZollTC" - Me.cboBrgEZollTC.Size = New System.Drawing.Size(201, 21) - Me.cboBrgEZollTC.TabIndex = 12 - ' 'Label55 ' Me.Label55.AutoSize = True @@ -2501,7 +2434,7 @@ Partial Class usrCntlZOLLAuswertungen Me.TabPage2.Location = New System.Drawing.Point(4, 22) Me.TabPage2.Name = "TabPage2" Me.TabPage2.Padding = New System.Windows.Forms.Padding(3) - Me.TabPage2.Size = New System.Drawing.Size(698, 1803) + Me.TabPage2.Size = New System.Drawing.Size(710, 1803) Me.TabPage2.TabIndex = 1 Me.TabPage2.Text = "Kunden" Me.TabPage2.UseVisualStyleBackColor = True @@ -2514,7 +2447,7 @@ Partial Class usrCntlZOLLAuswertungen Me.TabPage3.Location = New System.Drawing.Point(4, 22) Me.TabPage3.Name = "TabPage3" Me.TabPage3.Padding = New System.Windows.Forms.Padding(3) - Me.TabPage3.Size = New System.Drawing.Size(698, 1803) + Me.TabPage3.Size = New System.Drawing.Size(710, 1803) Me.TabPage3.TabIndex = 2 Me.TabPage3.Text = "Fiskalvertretung / EV-Veranlagung" Me.TabPage3.UseVisualStyleBackColor = True @@ -2525,7 +2458,7 @@ Partial Class usrCntlZOLLAuswertungen Me.TabPage4.Controls.Add(Me.UsrCntlAuswertungenAufschub_Abgabenliste1) Me.TabPage4.Location = New System.Drawing.Point(4, 22) Me.TabPage4.Name = "TabPage4" - Me.TabPage4.Size = New System.Drawing.Size(698, 1803) + Me.TabPage4.Size = New System.Drawing.Size(710, 1803) Me.TabPage4.TabIndex = 3 Me.TabPage4.Text = "Aufschubdaten" Me.TabPage4.UseVisualStyleBackColor = True @@ -2538,7 +2471,7 @@ Partial Class usrCntlZOLLAuswertungen Me.TabPage5.Location = New System.Drawing.Point(4, 22) Me.TabPage5.Name = "TabPage5" Me.TabPage5.Padding = New System.Windows.Forms.Padding(3) - Me.TabPage5.Size = New System.Drawing.Size(698, 1803) + Me.TabPage5.Size = New System.Drawing.Size(710, 1803) Me.TabPage5.TabIndex = 4 Me.TabPage5.Text = "UNISPED" Me.TabPage5.UseVisualStyleBackColor = True @@ -2746,9 +2679,89 @@ Partial Class usrCntlZOLLAuswertungen Me.pnl.Dock = System.Windows.Forms.DockStyle.Top Me.pnl.Location = New System.Drawing.Point(0, 0) Me.pnl.Name = "pnl" - Me.pnl.Size = New System.Drawing.Size(689, 57) + Me.pnl.Size = New System.Drawing.Size(701, 57) Me.pnl.TabIndex = 23 ' + 'cboNCTSSystemDY + ' + Me.cboNCTSSystemDY._allowedValuesFreiText = Nothing + Me.cboNCTSSystemDY._allowFreiText = False + Me.cboNCTSSystemDY._value = "" + Me.cboNCTSSystemDY.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cboNCTSSystemDY.DropDownWidth = 350 + Me.cboNCTSSystemDY.FormattingEnabled = True + Me.cboNCTSSystemDY.Location = New System.Drawing.Point(448, 706) + Me.cboNCTSSystemDY.Name = "cboNCTSSystemDY" + Me.cboNCTSSystemDY.Size = New System.Drawing.Size(252, 21) + Me.cboNCTSSystemDY.TabIndex = 38 + ' + 'cboBRG_Verimex + ' + Me.cboBRG_Verimex._allowedValuesFreiText = Nothing + Me.cboBRG_Verimex._allowFreiText = False + Me.cboBRG_Verimex._value = "" + Me.cboBRG_Verimex.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cboBRG_Verimex.DropDownWidth = 350 + Me.cboBRG_Verimex.FormattingEnabled = True + Me.cboBRG_Verimex.Location = New System.Drawing.Point(184, 120) + Me.cboBRG_Verimex.Name = "cboBRG_Verimex" + Me.cboBRG_Verimex.Size = New System.Drawing.Size(221, 21) + Me.cboBRG_Verimex.TabIndex = 17 + ' + 'cboBrgEZollTC + ' + Me.cboBrgEZollTC._allowedValuesFreiText = Nothing + Me.cboBrgEZollTC._allowFreiText = False + Me.cboBrgEZollTC._value = "" + Me.cboBrgEZollTC.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cboBrgEZollTC.DropDownWidth = 350 + Me.cboBrgEZollTC.FormattingEnabled = True + Me.cboBrgEZollTC.Items.AddRange(New Object() {"", "05AT510000G000FP7", "16AT520000G000VA6"}) + Me.cboBrgEZollTC.Location = New System.Drawing.Point(437, 68) + Me.cboBrgEZollTC.Name = "cboBrgEZollTC" + Me.cboBrgEZollTC.Size = New System.Drawing.Size(201, 21) + Me.cboBrgEZollTC.TabIndex = 12 + ' + 'cboDYDatumArt + ' + Me.cboDYDatumArt._allowedValuesFreiText = Nothing + Me.cboDYDatumArt._allowFreiText = False + Me.cboDYDatumArt._value = "" + Me.cboDYDatumArt.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cboDYDatumArt.DropDownWidth = 350 + Me.cboDYDatumArt.FormattingEnabled = True + Me.cboDYDatumArt.Location = New System.Drawing.Point(439, 9) + Me.cboDYDatumArt.Name = "cboDYDatumArt" + Me.cboDYDatumArt.Size = New System.Drawing.Size(234, 21) + Me.cboDYDatumArt.TabIndex = 39 + ' + 'cboDY_NCTS + ' + Me.cboDY_NCTS._allowedValuesFreiText = Nothing + Me.cboDY_NCTS._allowFreiText = False + Me.cboDY_NCTS._value = "" + Me.cboDY_NCTS.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cboDY_NCTS.DropDownWidth = 350 + Me.cboDY_NCTS.FormattingEnabled = True + Me.cboDY_NCTS.Location = New System.Drawing.Point(148, 117) + Me.cboDY_NCTS.Name = "cboDY_NCTS" + Me.cboDY_NCTS.Size = New System.Drawing.Size(252, 21) + Me.cboDY_NCTS.TabIndex = 22 + ' + 'cboEZOLLBrg + ' + Me.cboEZOLLBrg._allowedValuesFreiText = Nothing + Me.cboEZOLLBrg._allowFreiText = False + Me.cboEZOLLBrg._value = "" + Me.cboEZOLLBrg.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cboEZOLLBrg.DropDownWidth = 350 + Me.cboEZOLLBrg.FormattingEnabled = True + Me.cboEZOLLBrg.Items.AddRange(New Object() {"", "05AT510000G000FP7", "16AT520000G000VA6"}) + Me.cboEZOLLBrg.Location = New System.Drawing.Point(223, 69) + Me.cboEZOLLBrg.Name = "cboEZOLLBrg" + Me.cboEZOLLBrg.Size = New System.Drawing.Size(201, 21) + Me.cboEZOLLBrg.TabIndex = 12 + ' 'UsrCntlAuswertungenUIDPruefung1 ' Me.UsrCntlAuswertungenUIDPruefung1.BackColor = System.Drawing.Color.White @@ -2764,7 +2777,7 @@ Partial Class usrCntlZOLLAuswertungen Me.UsrCntlAuswertungenKunden_Auftragsrueckgang1.BackColor = System.Drawing.Color.White Me.UsrCntlAuswertungenKunden_Auftragsrueckgang1.Location = New System.Drawing.Point(6, 18) Me.UsrCntlAuswertungenKunden_Auftragsrueckgang1.Name = "UsrCntlAuswertungenKunden_Auftragsrueckgang1" - Me.UsrCntlAuswertungenKunden_Auftragsrueckgang1.Size = New System.Drawing.Size(0, 235) + Me.UsrCntlAuswertungenKunden_Auftragsrueckgang1.Size = New System.Drawing.Size(29, 235) Me.UsrCntlAuswertungenKunden_Auftragsrueckgang1.TabIndex = 0 ' 'UsrCntlAuswertungenEV_Veranlagungen1 @@ -2807,19 +2820,6 @@ Partial Class usrCntlZOLLAuswertungen Me.UsrCntlAuswertungenAufschub_Abgabenliste1.Size = New System.Drawing.Size(708, 180) Me.UsrCntlAuswertungenAufschub_Abgabenliste1.TabIndex = 0 ' - 'cboDYDatumArt - ' - Me.cboDYDatumArt._allowedValuesFreiText = Nothing - Me.cboDYDatumArt._allowFreiText = False - Me.cboDYDatumArt._value = "" - Me.cboDYDatumArt.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList - Me.cboDYDatumArt.DropDownWidth = 350 - Me.cboDYDatumArt.FormattingEnabled = True - Me.cboDYDatumArt.Location = New System.Drawing.Point(439, 9) - Me.cboDYDatumArt.Name = "cboDYDatumArt" - Me.cboDYDatumArt.Size = New System.Drawing.Size(234, 21) - Me.cboDYDatumArt.TabIndex = 39 - ' 'usrCntlZOLLAuswertungen ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) @@ -2829,7 +2829,7 @@ Partial Class usrCntlZOLLAuswertungen Me.Controls.Add(Me.tbcntr) Me.Controls.Add(Me.pnl) Me.Name = "usrCntlZOLLAuswertungen" - Me.Size = New System.Drawing.Size(689, 1174) + Me.Size = New System.Drawing.Size(701, 1174) Me.GroupBox1.ResumeLayout(False) Me.GroupBox1.PerformLayout() Me.GroupBox2.ResumeLayout(False) diff --git a/SDL/zoll/usrCntlZOLLAuswertungen.vb b/SDL/zoll/usrCntlZOLLAuswertungen.vb index 78ff4033..fa152894 100644 --- a/SDL/zoll/usrCntlZOLLAuswertungen.vb +++ b/SDL/zoll/usrCntlZOLLAuswertungen.vb @@ -664,7 +664,7 @@ Public Class usrCntlZOLLAuswertungen Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click Dim frmPrintLayout As New frmPrintLayout() - frmPrintLayout.AuswertungKontrolleLKWDAKOSY(datVonATILLA.Text, datBisATILLA.Text, "DURMAZ", cboNCTSSystemDY._value) + frmPrintLayout.AuswertungKontrolleLKWDAKOSY(datVonDurmaz.Text, datBisDurmaz.Text, "DURMAZ", cboNCTSSystemDY._value) frmPrintLayout.Show() End Sub @@ -873,7 +873,7 @@ Public Class usrCntlZOLLAuswertungen Private Sub Button16_Click(sender As Object, e As EventArgs) Handles Button16.Click If cbxSplittungNachPos_NCTSTR.Checked Then - Dim dt As DataTable = SQL.loadDgvBySql(getSQL_NCTS_ATLAS_ncts_tr_POS(datVon_NCTSTR.Text, datBis_NCTSTR.Text, txtStatVon_NCTSTR.Text, txtStatBis_NCTSTR.Text, DirectCast(cboBrg_NCTSTR.SelectedItem, VERAG_PROG_ALLGEMEIN.MyListItem).Value, "", cbxAnrechnungRefBetrag_NCTSTR.Checked, False), "FMZOLL") + Dim dt As DataTable = SQL.loadDgvBySql(getSQL_NCTS_ATLAS_NCTS_TR_POS(datVon_NCTSTR.Text, datBis_NCTSTR.Text, txtStatVon_NCTSTR.Text, txtStatBis_NCTSTR.Text, DirectCast(cboBrg_NCTSTR.SelectedItem, VERAG_PROG_ALLGEMEIN.MyListItem).Value, "", cbxAnrechnungRefBetrag_NCTSTR.Checked, False), "FMZOLL") If dt IsNot Nothing Then cProgramFunctions.genExcelFromDT_NEW(clearDTPosSiBetrag(dt)) End If diff --git a/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/MySearchBox.vb b/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/MySearchBox.vb index 1114b352..a1c68b71 100644 --- a/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/MySearchBox.vb +++ b/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/MySearchBox.vb @@ -265,7 +265,7 @@ Public Class MySearchBox If srch <> "" And SQL_WhereParamList.Count > 0 Then 'erster Suchparameter SQLstr &= " AND ( 1<>1 " For Each s In SQL_WhereParamList - SQLstr &= " OR " & s & " LIKE '" & srch & "%' " + SQLstr &= " OR " & s & " LIKE '" & srch.Replace("*", "%") & "%' " Next SQLstr &= " ) " End If @@ -273,7 +273,7 @@ Public Class MySearchBox If srch2 <> "" And SQL_WhereParamList.Count > 0 Then 'Wenn zweiter Suchparameter SQLstr &= " AND ( 1<>1 " For Each s In SQL_WhereParamList - SQLstr &= " OR " & s & " LIKE '" & srch2 & "%' " + SQLstr &= " OR " & s & " LIKE '" & srch2.Replace("*", "%") & "%' " Next SQLstr &= " ) " End If diff --git a/VERAG_PROG_ALLGEMEIN/Classes/SQL.vb b/VERAG_PROG_ALLGEMEIN/Classes/SQL.vb index 4e09b163..470a16b1 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/SQL.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/SQL.vb @@ -787,7 +787,7 @@ Public Class SQL Return defaultReturn End Function - Public Function doSQL(ByVal sql As String, Optional conn_art As String = "SDL", Optional showErr As Boolean = True, Optional list As List(Of MyListItem2) = Nothing, Optional conn As SqlConnection = Nothing) As Boolean + Public Function doSQL(ByVal sql As String, Optional conn_art As String = "SDL", Optional showErr As Boolean = True, Optional list As List(Of MyListItem2) = Nothing, Optional conn As SqlConnection = Nothing, Optional timeout As Integer = 0) As Boolean If conn Is Nothing Then conn = New SqlConnection @@ -812,9 +812,11 @@ Public Class SQL conn.Open() End Select End If + Try ' MsgBox(sql) Using cmd As New SqlCommand(sql, conn) + If timeout > 0 Then cmd.CommandTimeout = timeout If list IsNot Nothing Then For Each i In list 'MsgBox(i.Text.trim & " " & IIf(i.Value Is Nothing, DBNull.Value, i.Value)) diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cAvisoStatusMails.vb b/VERAG_PROG_ALLGEMEIN/Classes/cAvisoStatusMails.vb new file mode 100644 index 00000000..36715b5f --- /dev/null +++ b/VERAG_PROG_ALLGEMEIN/Classes/cAvisoStatusMails.vb @@ -0,0 +1,128 @@ + +Imports System.Data.SqlClient + Imports System.Reflection + +Public Class cAvisoStatusMails + Property asm_AvisoId As Integer + Property asm_KdNr As Integer + Property asm_StatuscodeSent As Integer + Property asm_datetime As Date = Now + + + + Public hasEntry = False + + Dim SQL As New SQL + + + Sub New(asm_AvisoId, asm_KdNr, asm_StatuscodeSent) + Me.asm_AvisoId = asm_AvisoId + Me.asm_KdNr = asm_KdNr + Me.asm_StatuscodeSent = asm_StatuscodeSent + LOAD() + End Sub + Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("asm_AvisoId", asm_AvisoId)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("asm_KdNr", asm_KdNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("asm_StatuscodeSent", asm_StatuscodeSent)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("asm_datetime", asm_datetime)) + + Return list + End Function + + + + Public Shared Function INSERT_INTO(asm_AvisoId, asm_KdNr, asm_StatuscodeSent) As Boolean + Dim AST As New cAvisoStatusMails(asm_AvisoId, asm_KdNr, asm_StatuscodeSent) + AST.asm_AvisoId = asm_AvisoId + AST.asm_KdNr = asm_KdNr + AST.asm_StatuscodeSent = asm_StatuscodeSent + + Return AST.SAVE() + End Function + Public Function SAVE() As Boolean + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + + Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblAvisoStatusMails WHERE asm_AvisoId=@asm_AvisoId and asm_KdNr=@asm_KdNr and asm_StatuscodeSent=@asm_StatuscodeSent) " & + " BEGIN " & getUpdateCmd() & " END " & + " Else " & + " BEGIN " & getInsertCmd() & " END " & + " commit tran " + + Return SQL.doSQLVarList(sqlstr, "AVISO", , list) + End Function + + Public Sub LOAD() + Try + hasEntry = False + Using conn As SqlConnection = SQL.GetNewOpenConnectionAVISO() + Using cmd As New SqlCommand("SELECT * FROM tblAvisoStatusMails WHERE asm_AvisoId=@asm_AvisoId and asm_KdNr=@asm_KdNr and asm_StatuscodeSent=@asm_StatuscodeSent ", conn) + cmd.Parameters.AddWithValue("@asm_AvisoId", asm_AvisoId) + cmd.Parameters.AddWithValue("@asm_KdNr", asm_KdNr) + cmd.Parameters.AddWithValue("@asm_StatuscodeSent", asm_StatuscodeSent) + Dim dr = cmd.ExecuteReader() + If dr.Read Then + For Each li In getParameterList() + Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable) + + If dr.Item(li.Text) Is DBNull.Value Then + propInfo.SetValue(Me, Nothing) + Else + propInfo.SetValue(Me, dr.Item(li.Text)) + End If + + Next + hasEntry = True + End If + dr.Close() + End Using + End Using + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + End Sub + + + + Public Function getUpdateCmd() As String + Try + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + + Dim str As String = "" + For Each i In list + If Not i.isPrimaryParam Then + str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & "," + End If + Next + str = str.Substring(0, str.Length - 1) 'wg. ',' + Return (" UPDATE [tblAvisoStatusMails] SET " & str & " WHERE asm_AvisoId=@asm_AvisoId and asm_KdNr=@asm_KdNr and asm_StatuscodeSent=@asm_StatuscodeSent ") + + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + Return "" + End Function + + + Public Function getInsertCmd() As String + Try + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + Dim str As String = "" + Dim values As String = "" + For Each i In list + If Not i.isPrimaryParam Then + str &= "[" & i.Text & "]," + values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & "," + End If + Next + str = str.Substring(0, str.Length - 1) 'wg. ',' + values = values.Substring(0, values.Length - 1) 'wg. ',' + Return (" INSERT INTO tblAvisoStatusMails (" & str & ") VALUES(" & values & ") ") + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + Return "" + End Function + +End Class diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cKundenErweitert.vb b/VERAG_PROG_ALLGEMEIN/Classes/cKundenErweitert.vb index df2490fb..6d3c8430 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cKundenErweitert.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cKundenErweitert.vb @@ -62,7 +62,7 @@ Public Class cKundenErweitert Property Veranlagungskunde As Boolean = False Property Anmerkungen_Warnhinweis As Object = Nothing Property kde_VERAG_INTERFACE_ID As Object = Nothing - Property kde_BesonderheitenNeu As Boolean = False + Property kde_BesonderheitenNeu As Boolean = True Property kde_InfoAuftragsNr As Object = Nothing Property kde_KundeFremdspedition As Boolean = False Property kde_verzolltBei As Object = Nothing diff --git a/VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.vb b/VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.vb index b8d5169e..5a377181 100644 --- a/VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.vb +++ b/VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.vb @@ -809,6 +809,7 @@ Public Class frmMessenger Function checkNewestShit() As Boolean Try + Dim Dt_New As DataTable = SQL.loadDgvBySql("SELECT [chat_id],CASE WHEN chat_name<>'' THEN chat_name ELSE (SELECT TOP 1 mit_vname + ' ' + mit_nname FROM tblMessenger_ChatMembers INNER JOIN tblMitarbeiter ON mit_id=chatMb_maId where chatMb_chatId=chat_id AND chatMb_maId <>" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRID & ") END as chat_name ,(SELECT REPLACE(COUNT(*),'0','') FROM tblMessenger_ChatMessages INNER JOIN tblMessenger_ChatMessageStatus ON chatMgSt_chatMsgId=chatMg_id WHERE [chat_id]=chatMg_chatId AND chatMgSt_MaId=" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRID & " AND chatMgSt_gelesen=0) as ungelesen FROM [tblMessenger_Chat] WHERE (SELECT COUNT(*) FROM tblMessenger_ChatMembers WHERE chatMB_chatId=chat_id AND chatMB_maId=" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRID & ")>0 diff --git a/VERAG_PROG_ALLGEMEIN/Schnittstellen/CBAM/QReport_v17.00.Designer.vb b/VERAG_PROG_ALLGEMEIN/Schnittstellen/CBAM/QReport_v17.00.Designer.vb new file mode 100644 index 00000000..95ede921 --- /dev/null +++ b/VERAG_PROG_ALLGEMEIN/Schnittstellen/CBAM/QReport_v17.00.Designer.vb @@ -0,0 +1,8407 @@ +'' ------------------------------------------------------------------------------ +'' +'' Generated by Xsd2Code++. Version 6.0.0.0. www.xsd2code.com +'' {"TargetFramework":"Net47","NameSpace":"CBAM_QReport_17","Language":"VisualBasic","Properties":{},"XmlAttribute":{"Enabled":true},"ClassParams":{},"Serialization":{"ShouldSerialize":{},"AdditionalSerializers":{},"XmlSerializerEvent":{},"XmlOutput":{},"JsonOutput":{},"Enabled":true},"Miscellaneous":{}} +'' +'' ------------------------------------------------------------------------------ +#Disable Warning +Imports System +Imports System.Diagnostics +Imports System.Xml.Serialization +Imports System.Runtime.Serialization +Imports System.Collections +Imports System.Xml.Schema +Imports System.ComponentModel +Imports System.Xml +Imports System.IO +Imports System.Text +Imports System.Collections.Generic + +Namespace CBAM_QReport_17 + + + Partial Public Class QReportType + +#Region "Private fields" + Private _submissionDate As Date + + Private _draftReportId As String + + Private _reportId As String + + Private _reportingPeriod As String + + Private _year As Integer + + Private _totalImported As String + + Private _totalEmissions As Decimal + + Private _declarant As DeclarantType + + Private _representative As RepresentativeType + + Private _importer As ImporterType + + Private _nationalCompetentAuth As NationalCompetentAuthType + + Private _signatures As SignaturesType + + Private _remarks As RemarksType + + Private _importedGood As List(Of ImportedGoodType) + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._importedGood = New List(Of ImportedGoodType)() + Me._remarks = New RemarksType() + Me._signatures = New SignaturesType() + Me._nationalCompetentAuth = New NationalCompetentAuthType() + Me._importer = New ImporterType() + Me._representative = New RepresentativeType() + Me._declarant = New DeclarantType() + End Sub + + Public Property SubmissionDate() As Date + Get + Return Me._submissionDate + End Get + Set + Me._submissionDate = Value + End Set + End Property + + Public Property DraftReportId() As String + Get + Return Me._draftReportId + End Get + Set + Me._draftReportId = Value + End Set + End Property + + Public Property ReportId() As String + Get + Return Me._reportId + End Get + Set + Me._reportId = Value + End Set + End Property + + Public Property ReportingPeriod() As String + Get + Return Me._reportingPeriod + End Get + Set + Me._reportingPeriod = Value + End Set + End Property + + Public Property Year() As Integer + Get + Return Me._year + End Get + Set + Me._year = Value + End Set + End Property + + + Public Property TotalImported() As String + Get + Return Me._totalImported + End Get + Set + Me._totalImported = Value + End Set + End Property + + Public Property TotalEmissions() As Decimal + Get + Return Me._totalEmissions + End Get + Set + Me._totalEmissions = Value + End Set + End Property + + Public Property Declarant() As DeclarantType + Get + Return Me._declarant + End Get + Set + Me._declarant = Value + End Set + End Property + + Public Property Representative() As RepresentativeType + Get + Return Me._representative + End Get + Set + Me._representative = Value + End Set + End Property + + Public Property Importer() As ImporterType + Get + Return Me._importer + End Get + Set + Me._importer = Value + End Set + End Property + + Public Property NationalCompetentAuth() As NationalCompetentAuthType + Get + Return Me._nationalCompetentAuth + End Get + Set + Me._nationalCompetentAuth = Value + End Set + End Property + + Public Property Signatures() As SignaturesType + Get + Return Me._signatures + End Get + Set + Me._signatures = Value + End Set + End Property + + Public Property Remarks() As RemarksType + Get + Return Me._remarks + End Get + Set + Me._remarks = Value + End Set + End Property + + + Public Property ImportedGood() As List(Of ImportedGoodType) + Get + Return Me._importedGood + End Get + Set + Me._importedGood = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(QReportType)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize QReportType object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes QReportType object + ''' + ''' string to deserialize + ''' Output QReportType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As QReportType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, QReportType) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As QReportType) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As QReportType + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), QReportType) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As QReportType + Return CType(SerializerXml.Deserialize(s), QReportType) + End Function +#End Region + + ''' + ''' Serializes current QReportType object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an QReportType object + ''' + ''' File to load and deserialize + ''' Output QReportType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As QReportType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, QReportType) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As QReportType) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As QReportType + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class DeclarantType + +#Region "Private fields" + Private _identificationNumber As String + + Private _name As String + + Private _role As String + + Private _actorAddress As AddressType + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._actorAddress = New AddressType() + End Sub + + Public Property IdentificationNumber() As String + Get + Return Me._identificationNumber + End Get + Set + Me._identificationNumber = Value + End Set + End Property + + Public Property Name() As String + Get + Return Me._name + End Get + Set + Me._name = Value + End Set + End Property + + Public Property Role() As String + Get + Return Me._role + End Get + Set + Me._role = Value + End Set + End Property + + Public Property ActorAddress() As AddressType + Get + Return Me._actorAddress + End Get + Set + Me._actorAddress = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(DeclarantType)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize DeclarantType object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes DeclarantType object + ''' + ''' string to deserialize + ''' Output DeclarantType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DeclarantType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DeclarantType) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DeclarantType) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DeclarantType + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), DeclarantType) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As DeclarantType + Return CType(SerializerXml.Deserialize(s), DeclarantType) + End Function +#End Region + + ''' + ''' Serializes current DeclarantType object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an DeclarantType object + ''' + ''' File to load and deserialize + ''' Output DeclarantType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DeclarantType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DeclarantType) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DeclarantType) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As DeclarantType + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class AddressType + +#Region "Private fields" + Private _country As String + + Private _subDivision As String + + Private _city As String + + Private _street As String + + Private _streetAdditionalLine As String + + Private _number As String + + Private _postcode As String + + Private _pOBox As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Property Country() As String + Get + Return Me._country + End Get + Set + Me._country = Value + End Set + End Property + + Public Property SubDivision() As String + Get + Return Me._subDivision + End Get + Set + Me._subDivision = Value + End Set + End Property + + Public Property City() As String + Get + Return Me._city + End Get + Set + Me._city = Value + End Set + End Property + + Public Property Street() As String + Get + Return Me._street + End Get + Set + Me._street = Value + End Set + End Property + + Public Property StreetAdditionalLine() As String + Get + Return Me._streetAdditionalLine + End Get + Set + Me._streetAdditionalLine = Value + End Set + End Property + + Public Property Number() As String + Get + Return Me._number + End Get + Set + Me._number = Value + End Set + End Property + + Public Property Postcode() As String + Get + Return Me._postcode + End Get + Set + Me._postcode = Value + End Set + End Property + + Public Property POBox() As String + Get + Return Me._pOBox + End Get + Set + Me._pOBox = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(AddressType)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize AddressType object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes AddressType object + ''' + ''' string to deserialize + ''' Output AddressType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AddressType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AddressType) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AddressType) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As AddressType + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), AddressType) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As AddressType + Return CType(SerializerXml.Deserialize(s), AddressType) + End Function +#End Region + + ''' + ''' Serializes current AddressType object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an AddressType object + ''' + ''' File to load and deserialize + ''' Output AddressType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AddressType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AddressType) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AddressType) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As AddressType + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class RemarksEmissionsType + +#Region "Private fields" + Private _sequenceNumber As String + + Private _additionalInformation As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property SequenceNumber() As String + Get + Return Me._sequenceNumber + End Get + Set + Me._sequenceNumber = Value + End Set + End Property + + Public Property AdditionalInformation() As String + Get + Return Me._additionalInformation + End Get + Set + Me._additionalInformation = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(RemarksEmissionsType)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize RemarksEmissionsType object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes RemarksEmissionsType object + ''' + ''' string to deserialize + ''' Output RemarksEmissionsType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As RemarksEmissionsType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, RemarksEmissionsType) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As RemarksEmissionsType) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As RemarksEmissionsType + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), RemarksEmissionsType) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As RemarksEmissionsType + Return CType(SerializerXml.Deserialize(s), RemarksEmissionsType) + End Function +#End Region + + ''' + ''' Serializes current RemarksEmissionsType object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an RemarksEmissionsType object + ''' + ''' File to load and deserialize + ''' Output RemarksEmissionsType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As RemarksEmissionsType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, RemarksEmissionsType) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As RemarksEmissionsType) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As RemarksEmissionsType + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class ProductsCoveredType + +#Region "Private fields" + Private _sequenceNumber As String + + Private _type As String + + Private _cn As String + + Private _quantityCovered As Decimal + + Private _quantityCoveredFreeAloc As Decimal + + Private _supplementaryInformation As String + + Private _additionalInformation As String + + Private _measure As MeasureType + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._measure = New MeasureType() + End Sub + + + Public Property SequenceNumber() As String + Get + Return Me._sequenceNumber + End Get + Set + Me._sequenceNumber = Value + End Set + End Property + + Public Property Type() As String + Get + Return Me._type + End Get + Set + Me._type = Value + End Set + End Property + + Public Property CN() As String + Get + Return Me._cn + End Get + Set + Me._cn = Value + End Set + End Property + + Public Property QuantityCovered() As Decimal + Get + Return Me._quantityCovered + End Get + Set + Me._quantityCovered = Value + End Set + End Property + + Public Property QuantityCoveredFreeAloc() As Decimal + Get + Return Me._quantityCoveredFreeAloc + End Get + Set + Me._quantityCoveredFreeAloc = Value + End Set + End Property + + Public Property SupplementaryInformation() As String + Get + Return Me._supplementaryInformation + End Get + Set + Me._supplementaryInformation = Value + End Set + End Property + + Public Property AdditionalInformation() As String + Get + Return Me._additionalInformation + End Get + Set + Me._additionalInformation = Value + End Set + End Property + + Public Property Measure() As MeasureType + Get + Return Me._measure + End Get + Set + Me._measure = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(ProductsCoveredType)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize ProductsCoveredType object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes ProductsCoveredType object + ''' + ''' string to deserialize + ''' Output ProductsCoveredType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ProductsCoveredType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ProductsCoveredType) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ProductsCoveredType) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As ProductsCoveredType + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), ProductsCoveredType) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As ProductsCoveredType + Return CType(SerializerXml.Deserialize(s), ProductsCoveredType) + End Function +#End Region + + ''' + ''' Serializes current ProductsCoveredType object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an ProductsCoveredType object + ''' + ''' File to load and deserialize + ''' Output ProductsCoveredType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ProductsCoveredType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ProductsCoveredType) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ProductsCoveredType) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As ProductsCoveredType + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class MeasureType + +#Region "Private fields" + Private _netMass As Decimal + + Private _supplementaryUnits As Decimal + + Private _measurementUnit As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Property NetMass() As Decimal + Get + Return Me._netMass + End Get + Set + Me._netMass = Value + End Set + End Property + + Public Property SupplementaryUnits() As Decimal + Get + Return Me._supplementaryUnits + End Get + Set + Me._supplementaryUnits = Value + End Set + End Property + + Public Property MeasurementUnit() As String + Get + Return Me._measurementUnit + End Get + Set + Me._measurementUnit = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(MeasureType)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize MeasureType object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes MeasureType object + ''' + ''' string to deserialize + ''' Output MeasureType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As MeasureType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, MeasureType) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As MeasureType) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As MeasureType + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), MeasureType) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As MeasureType + Return CType(SerializerXml.Deserialize(s), MeasureType) + End Function +#End Region + + ''' + ''' Serializes current MeasureType object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an MeasureType object + ''' + ''' File to load and deserialize + ''' Output MeasureType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As MeasureType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, MeasureType) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As MeasureType) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As MeasureType + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class CarbonPriceDueType + +#Region "Private fields" + Private _sequenceNumber As String + + Private _instrumentType As String + + Private _legalActDescription As String + + Private _amount As Decimal + + Private _currency As String + + Private _exchangeRate As String + + Private _eURO As Decimal + + Private _country As String + + Private _productsCovered As List(Of ProductsCoveredType) + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._productsCovered = New List(Of ProductsCoveredType)() + End Sub + + + Public Property SequenceNumber() As String + Get + Return Me._sequenceNumber + End Get + Set + Me._sequenceNumber = Value + End Set + End Property + + Public Property InstrumentType() As String + Get + Return Me._instrumentType + End Get + Set + Me._instrumentType = Value + End Set + End Property + + Public Property LegalActDescription() As String + Get + Return Me._legalActDescription + End Get + Set + Me._legalActDescription = Value + End Set + End Property + + Public Property Amount() As Decimal + Get + Return Me._amount + End Get + Set + Me._amount = Value + End Set + End Property + + Public Property Currency() As String + Get + Return Me._currency + End Get + Set + Me._currency = Value + End Set + End Property + + Public Property ExchangeRate() As String + Get + Return Me._exchangeRate + End Get + Set + Me._exchangeRate = Value + End Set + End Property + + Public Property EURO() As Decimal + Get + Return Me._eURO + End Get + Set + Me._eURO = Value + End Set + End Property + + Public Property Country() As String + Get + Return Me._country + End Get + Set + Me._country = Value + End Set + End Property + + + Public Property ProductsCovered() As List(Of ProductsCoveredType) + Get + Return Me._productsCovered + End Get + Set + Me._productsCovered = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(CarbonPriceDueType)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize CarbonPriceDueType object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes CarbonPriceDueType object + ''' + ''' string to deserialize + ''' Output CarbonPriceDueType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As CarbonPriceDueType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, CarbonPriceDueType) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As CarbonPriceDueType) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As CarbonPriceDueType + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), CarbonPriceDueType) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As CarbonPriceDueType + Return CType(SerializerXml.Deserialize(s), CarbonPriceDueType) + End Function +#End Region + + ''' + ''' Serializes current CarbonPriceDueType object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an CarbonPriceDueType object + ''' + ''' File to load and deserialize + ''' Output CarbonPriceDueType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As CarbonPriceDueType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, CarbonPriceDueType) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As CarbonPriceDueType) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As CarbonPriceDueType + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class QualifyingParametersType + +#Region "Private fields" + Private _sequenceNumber As String + + Private _determinationType As String + + Private _parameterId As String + + Private _parameterName As String + + Private _description As String + + Private _parameterValueType As String + + Private _parameterValue As String + + Private _additionalInformation As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + + Public Property SequenceNumber() As String + Get + Return Me._sequenceNumber + End Get + Set + Me._sequenceNumber = Value + End Set + End Property + + Public Property DeterminationType() As String + Get + Return Me._determinationType + End Get + Set + Me._determinationType = Value + End Set + End Property + + Public Property ParameterId() As String + Get + Return Me._parameterId + End Get + Set + Me._parameterId = Value + End Set + End Property + + Public Property ParameterName() As String + Get + Return Me._parameterName + End Get + Set + Me._parameterName = Value + End Set + End Property + + Public Property Description() As String + Get + Return Me._description + End Get + Set + Me._description = Value + End Set + End Property + + Public Property ParameterValueType() As String + Get + Return Me._parameterValueType + End Get + Set + Me._parameterValueType = Value + End Set + End Property + + Public Property ParameterValue() As String + Get + Return Me._parameterValue + End Get + Set + Me._parameterValue = Value + End Set + End Property + + Public Property AdditionalInformation() As String + Get + Return Me._additionalInformation + End Get + Set + Me._additionalInformation = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(QualifyingParametersType)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize QualifyingParametersType object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes QualifyingParametersType object + ''' + ''' string to deserialize + ''' Output QualifyingParametersType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As QualifyingParametersType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, QualifyingParametersType) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As QualifyingParametersType) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As QualifyingParametersType + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), QualifyingParametersType) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As QualifyingParametersType + Return CType(SerializerXml.Deserialize(s), QualifyingParametersType) + End Function +#End Region + + ''' + ''' Serializes current QualifyingParametersType object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an QualifyingParametersType object + ''' + ''' File to load and deserialize + ''' Output QualifyingParametersType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As QualifyingParametersType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, QualifyingParametersType) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As QualifyingParametersType) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As QualifyingParametersType + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class ProdMethodQualifyingParamsType + +#Region "Private fields" + Private _sequenceNumber As String + + Private _methodId As String + + Private _methodName As String + + Private _steelMillNumber As String + + Private _additionalInformation As String + + Private _directQualifyingParameters As List(Of QualifyingParametersType) + + Private _indirectQualifyingParameters As List(Of QualifyingParametersType) + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._indirectQualifyingParameters = New List(Of QualifyingParametersType)() + Me._directQualifyingParameters = New List(Of QualifyingParametersType)() + End Sub + + + Public Property SequenceNumber() As String + Get + Return Me._sequenceNumber + End Get + Set + Me._sequenceNumber = Value + End Set + End Property + + Public Property MethodId() As String + Get + Return Me._methodId + End Get + Set + Me._methodId = Value + End Set + End Property + + Public Property MethodName() As String + Get + Return Me._methodName + End Get + Set + Me._methodName = Value + End Set + End Property + + Public Property SteelMillNumber() As String + Get + Return Me._steelMillNumber + End Get + Set + Me._steelMillNumber = Value + End Set + End Property + + Public Property AdditionalInformation() As String + Get + Return Me._additionalInformation + End Get + Set + Me._additionalInformation = Value + End Set + End Property + + + Public Property DirectQualifyingParameters() As List(Of QualifyingParametersType) + Get + Return Me._directQualifyingParameters + End Get + Set + Me._directQualifyingParameters = Value + End Set + End Property + + + Public Property IndirectQualifyingParameters() As List(Of QualifyingParametersType) + Get + Return Me._indirectQualifyingParameters + End Get + Set + Me._indirectQualifyingParameters = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(ProdMethodQualifyingParamsType)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize ProdMethodQualifyingParamsType object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes ProdMethodQualifyingParamsType object + ''' + ''' string to deserialize + ''' Output ProdMethodQualifyingParamsType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ProdMethodQualifyingParamsType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ProdMethodQualifyingParamsType) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ProdMethodQualifyingParamsType) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As ProdMethodQualifyingParamsType + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), ProdMethodQualifyingParamsType) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As ProdMethodQualifyingParamsType + Return CType(SerializerXml.Deserialize(s), ProdMethodQualifyingParamsType) + End Function +#End Region + + ''' + ''' Serializes current ProdMethodQualifyingParamsType object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an ProdMethodQualifyingParamsType object + ''' + ''' File to load and deserialize + ''' Output ProdMethodQualifyingParamsType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ProdMethodQualifyingParamsType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ProdMethodQualifyingParamsType) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ProdMethodQualifyingParamsType) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As ProdMethodQualifyingParamsType + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class IndirectEmissionsType + +#Region "Private fields" + Private _determinationType As String + + Private _emissionFactorSource As String + + Private _emissionFactor As Decimal + + Private _specificEmbeddedEmissions As Decimal + + Private _measurementUnit As String + + Private _electricityConsumed As Decimal + + Private _electricitySource As String + + Private _otherSourceIndication As String + + Private _emissionFactorSourceValue As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Property DeterminationType() As String + Get + Return Me._determinationType + End Get + Set + Me._determinationType = Value + End Set + End Property + + Public Property EmissionFactorSource() As String + Get + Return Me._emissionFactorSource + End Get + Set + Me._emissionFactorSource = Value + End Set + End Property + + Public Property EmissionFactor() As Decimal + Get + Return Me._emissionFactor + End Get + Set + Me._emissionFactor = Value + End Set + End Property + + Public Property SpecificEmbeddedEmissions() As Decimal + Get + Return Me._specificEmbeddedEmissions + End Get + Set + Me._specificEmbeddedEmissions = Value + End Set + End Property + + Public Property MeasurementUnit() As String + Get + Return Me._measurementUnit + End Get + Set + Me._measurementUnit = Value + End Set + End Property + + Public Property ElectricityConsumed() As Decimal + Get + Return Me._electricityConsumed + End Get + Set + Me._electricityConsumed = Value + End Set + End Property + + Public Property ElectricitySource() As String + Get + Return Me._electricitySource + End Get + Set + Me._electricitySource = Value + End Set + End Property + + Public Property OtherSourceIndication() As String + Get + Return Me._otherSourceIndication + End Get + Set + Me._otherSourceIndication = Value + End Set + End Property + + Public Property EmissionFactorSourceValue() As String + Get + Return Me._emissionFactorSourceValue + End Get + Set + Me._emissionFactorSourceValue = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(IndirectEmissionsType)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize IndirectEmissionsType object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes IndirectEmissionsType object + ''' + ''' string to deserialize + ''' Output IndirectEmissionsType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As IndirectEmissionsType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, IndirectEmissionsType) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As IndirectEmissionsType) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As IndirectEmissionsType + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), IndirectEmissionsType) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As IndirectEmissionsType + Return CType(SerializerXml.Deserialize(s), IndirectEmissionsType) + End Function +#End Region + + ''' + ''' Serializes current IndirectEmissionsType object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an IndirectEmissionsType object + ''' + ''' File to load and deserialize + ''' Output IndirectEmissionsType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As IndirectEmissionsType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, IndirectEmissionsType) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As IndirectEmissionsType) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As IndirectEmissionsType + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class DirectEmissionsType + +#Region "Private fields" + Private _determinationType As String + + Private _determinationTypeElectricity As String + + Private _applicableReportingTypeMethodology As String + + Private _applicableReportingMethodology As String + + Private _specificEmbeddedEmissions As Decimal + + Private _otherSourceIndication As String + + Private _emissionFactorSourceElectricity As String + + Private _emissionFactor As Decimal + + Private _electricityImported As Decimal + + Private _totalEmbeddedElectricityImported As Decimal + + Private _measurementUnit As String + + Private _emissionFactorSourceValue As String + + Private _justification As String + + Private _conditionalityFulfillment As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Property DeterminationType() As String + Get + Return Me._determinationType + End Get + Set + Me._determinationType = Value + End Set + End Property + + Public Property DeterminationTypeElectricity() As String + Get + Return Me._determinationTypeElectricity + End Get + Set + Me._determinationTypeElectricity = Value + End Set + End Property + + Public Property ApplicableReportingTypeMethodology() As String + Get + Return Me._applicableReportingTypeMethodology + End Get + Set + Me._applicableReportingTypeMethodology = Value + End Set + End Property + + Public Property ApplicableReportingMethodology() As String + Get + Return Me._applicableReportingMethodology + End Get + Set + Me._applicableReportingMethodology = Value + End Set + End Property + + Public Property SpecificEmbeddedEmissions() As Decimal + Get + Return Me._specificEmbeddedEmissions + End Get + Set + Me._specificEmbeddedEmissions = Value + End Set + End Property + + Public Property OtherSourceIndication() As String + Get + Return Me._otherSourceIndication + End Get + Set + Me._otherSourceIndication = Value + End Set + End Property + + Public Property EmissionFactorSourceElectricity() As String + Get + Return Me._emissionFactorSourceElectricity + End Get + Set + Me._emissionFactorSourceElectricity = Value + End Set + End Property + + Public Property EmissionFactor() As Decimal + Get + Return Me._emissionFactor + End Get + Set + Me._emissionFactor = Value + End Set + End Property + + Public Property ElectricityImported() As Decimal + Get + Return Me._electricityImported + End Get + Set + Me._electricityImported = Value + End Set + End Property + + Public Property TotalEmbeddedElectricityImported() As Decimal + Get + Return Me._totalEmbeddedElectricityImported + End Get + Set + Me._totalEmbeddedElectricityImported = Value + End Set + End Property + + Public Property MeasurementUnit() As String + Get + Return Me._measurementUnit + End Get + Set + Me._measurementUnit = Value + End Set + End Property + + Public Property EmissionFactorSourceValue() As String + Get + Return Me._emissionFactorSourceValue + End Get + Set + Me._emissionFactorSourceValue = Value + End Set + End Property + + Public Property Justification() As String + Get + Return Me._justification + End Get + Set + Me._justification = Value + End Set + End Property + + Public Property ConditionalityFulfillment() As String + Get + Return Me._conditionalityFulfillment + End Get + Set + Me._conditionalityFulfillment = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(DirectEmissionsType)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize DirectEmissionsType object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes DirectEmissionsType object + ''' + ''' string to deserialize + ''' Output DirectEmissionsType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DirectEmissionsType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DirectEmissionsType) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As DirectEmissionsType) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As DirectEmissionsType + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), DirectEmissionsType) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As DirectEmissionsType + Return CType(SerializerXml.Deserialize(s), DirectEmissionsType) + End Function +#End Region + + ''' + ''' Serializes current DirectEmissionsType object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an DirectEmissionsType object + ''' + ''' File to load and deserialize + ''' Output DirectEmissionsType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DirectEmissionsType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, DirectEmissionsType) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As DirectEmissionsType) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As DirectEmissionsType + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class InstallationEmissionsType + +#Region "Private fields" + Private _overallEmissions As Decimal + + Private _totalDirect As Decimal + + Private _totalIndirect As Decimal + + Private _measurementUnit As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Property OverallEmissions() As Decimal + Get + Return Me._overallEmissions + End Get + Set + Me._overallEmissions = Value + End Set + End Property + + Public Property TotalDirect() As Decimal + Get + Return Me._totalDirect + End Get + Set + Me._totalDirect = Value + End Set + End Property + + Public Property TotalIndirect() As Decimal + Get + Return Me._totalIndirect + End Get + Set + Me._totalIndirect = Value + End Set + End Property + + Public Property MeasurementUnit() As String + Get + Return Me._measurementUnit + End Get + Set + Me._measurementUnit = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(InstallationEmissionsType)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize InstallationEmissionsType object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes InstallationEmissionsType object + ''' + ''' string to deserialize + ''' Output InstallationEmissionsType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As InstallationEmissionsType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, InstallationEmissionsType) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As InstallationEmissionsType) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As InstallationEmissionsType + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), InstallationEmissionsType) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As InstallationEmissionsType + Return CType(SerializerXml.Deserialize(s), InstallationEmissionsType) + End Function +#End Region + + ''' + ''' Serializes current InstallationEmissionsType object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an InstallationEmissionsType object + ''' + ''' File to load and deserialize + ''' Output InstallationEmissionsType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As InstallationEmissionsType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, InstallationEmissionsType) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As InstallationEmissionsType) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As InstallationEmissionsType + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class InstallationAddressType + +#Region "Private fields" + Private _establishmentCountry As String + + Private _subDivision As String + + Private _city As String + + Private _street As String + + Private _streetAdditionalLine As String + + Private _number As String + + Private _postcode As String + + Private _pOBox As String + + Private _plotParcelNumber As String + + Private _uNLOCODE As String + + Private _latitude As String + + Private _longitude As String + + Private _coordinatesType As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Property EstablishmentCountry() As String + Get + Return Me._establishmentCountry + End Get + Set + Me._establishmentCountry = Value + End Set + End Property + + Public Property SubDivision() As String + Get + Return Me._subDivision + End Get + Set + Me._subDivision = Value + End Set + End Property + + Public Property City() As String + Get + Return Me._city + End Get + Set + Me._city = Value + End Set + End Property + + Public Property Street() As String + Get + Return Me._street + End Get + Set + Me._street = Value + End Set + End Property + + Public Property StreetAdditionalLine() As String + Get + Return Me._streetAdditionalLine + End Get + Set + Me._streetAdditionalLine = Value + End Set + End Property + + Public Property Number() As String + Get + Return Me._number + End Get + Set + Me._number = Value + End Set + End Property + + Public Property Postcode() As String + Get + Return Me._postcode + End Get + Set + Me._postcode = Value + End Set + End Property + + Public Property POBox() As String + Get + Return Me._pOBox + End Get + Set + Me._pOBox = Value + End Set + End Property + + Public Property PlotParcelNumber() As String + Get + Return Me._plotParcelNumber + End Get + Set + Me._plotParcelNumber = Value + End Set + End Property + + Public Property UNLOCODE() As String + Get + Return Me._uNLOCODE + End Get + Set + Me._uNLOCODE = Value + End Set + End Property + + Public Property Latitude() As String + Get + Return Me._latitude + End Get + Set + Me._latitude = Value + End Set + End Property + + Public Property Longitude() As String + Get + Return Me._longitude + End Get + Set + Me._longitude = Value + End Set + End Property + + Public Property CoordinatesType() As String + Get + Return Me._coordinatesType + End Get + Set + Me._coordinatesType = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(InstallationAddressType)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize InstallationAddressType object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes InstallationAddressType object + ''' + ''' string to deserialize + ''' Output InstallationAddressType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As InstallationAddressType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, InstallationAddressType) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As InstallationAddressType) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As InstallationAddressType + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), InstallationAddressType) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As InstallationAddressType + Return CType(SerializerXml.Deserialize(s), InstallationAddressType) + End Function +#End Region + + ''' + ''' Serializes current InstallationAddressType object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an InstallationAddressType object + ''' + ''' File to load and deserialize + ''' Output InstallationAddressType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As InstallationAddressType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, InstallationAddressType) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As InstallationAddressType) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As InstallationAddressType + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class InstallationType + +#Region "Private fields" + Private _installationId As String + + Private _installationName As String + + Private _economicActivity As String + + Private _address As InstallationAddressType + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._address = New InstallationAddressType() + End Sub + + Public Property InstallationId() As String + Get + Return Me._installationId + End Get + Set + Me._installationId = Value + End Set + End Property + + Public Property InstallationName() As String + Get + Return Me._installationName + End Get + Set + Me._installationName = Value + End Set + End Property + + Public Property EconomicActivity() As String + Get + Return Me._economicActivity + End Get + Set + Me._economicActivity = Value + End Set + End Property + + Public Property Address() As InstallationAddressType + Get + Return Me._address + End Get + Set + Me._address = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(InstallationType)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize InstallationType object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes InstallationType object + ''' + ''' string to deserialize + ''' Output InstallationType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As InstallationType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, InstallationType) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As InstallationType) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As InstallationType + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), InstallationType) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As InstallationType + Return CType(SerializerXml.Deserialize(s), InstallationType) + End Function +#End Region + + ''' + ''' Serializes current InstallationType object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an InstallationType object + ''' + ''' File to load and deserialize + ''' Output InstallationType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As InstallationType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, InstallationType) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As InstallationType) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As InstallationType + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class ContactDetailsType + +#Region "Private fields" + Private _name As String + + Private _phone As String + + Private _email As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Property Name() As String + Get + Return Me._name + End Get + Set + Me._name = Value + End Set + End Property + + Public Property Phone() As String + Get + Return Me._phone + End Get + Set + Me._phone = Value + End Set + End Property + + Public Property Email() As String + Get + Return Me._email + End Get + Set + Me._email = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(ContactDetailsType)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize ContactDetailsType object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes ContactDetailsType object + ''' + ''' string to deserialize + ''' Output ContactDetailsType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ContactDetailsType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ContactDetailsType) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ContactDetailsType) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As ContactDetailsType + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), ContactDetailsType) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As ContactDetailsType + Return CType(SerializerXml.Deserialize(s), ContactDetailsType) + End Function +#End Region + + ''' + ''' Serializes current ContactDetailsType object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an ContactDetailsType object + ''' + ''' File to load and deserialize + ''' Output ContactDetailsType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ContactDetailsType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ContactDetailsType) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ContactDetailsType) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As ContactDetailsType + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class InstallationOperatorType + +#Region "Private fields" + Private _operatorId As String + + Private _operatorName As String + + Private _operatorAddress As AddressType + + Private _contactDetails As List(Of ContactDetailsType) + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._contactDetails = New List(Of ContactDetailsType)() + Me._operatorAddress = New AddressType() + End Sub + + Public Property OperatorId() As String + Get + Return Me._operatorId + End Get + Set + Me._operatorId = Value + End Set + End Property + + Public Property OperatorName() As String + Get + Return Me._operatorName + End Get + Set + Me._operatorName = Value + End Set + End Property + + Public Property OperatorAddress() As AddressType + Get + Return Me._operatorAddress + End Get + Set + Me._operatorAddress = Value + End Set + End Property + + + Public Property ContactDetails() As List(Of ContactDetailsType) + Get + Return Me._contactDetails + End Get + Set + Me._contactDetails = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(InstallationOperatorType)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize InstallationOperatorType object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes InstallationOperatorType object + ''' + ''' string to deserialize + ''' Output InstallationOperatorType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As InstallationOperatorType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, InstallationOperatorType) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As InstallationOperatorType) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As InstallationOperatorType + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), InstallationOperatorType) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As InstallationOperatorType + Return CType(SerializerXml.Deserialize(s), InstallationOperatorType) + End Function +#End Region + + ''' + ''' Serializes current InstallationOperatorType object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an InstallationOperatorType object + ''' + ''' File to load and deserialize + ''' Output InstallationOperatorType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As InstallationOperatorType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, InstallationOperatorType) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As InstallationOperatorType) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As InstallationOperatorType + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class GoodsEmissionsType + +#Region "Private fields" + Private _sequenceNumber As String + + Private _productionCountry As String + + Private _installationOperator As InstallationOperatorType + + Private _installation As InstallationType + + Private _producedMeasure As MeasureType + + Private _installationEmissions As InstallationEmissionsType + + Private _directEmissions As DirectEmissionsType + + Private _indirectEmissions As IndirectEmissionsType + + Private _prodMethodQualifyingParams As List(Of ProdMethodQualifyingParamsType) + + Private _supportingDocuments As List(Of SupportingDocumentsType) + + Private _carbonPriceDue As List(Of CarbonPriceDueType) + + Private _remarksEmissions As List(Of RemarksEmissionsType) + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._remarksEmissions = New List(Of RemarksEmissionsType)() + Me._carbonPriceDue = New List(Of CarbonPriceDueType)() + Me._supportingDocuments = New List(Of SupportingDocumentsType)() + Me._prodMethodQualifyingParams = New List(Of ProdMethodQualifyingParamsType)() + Me._indirectEmissions = New IndirectEmissionsType() + Me._directEmissions = New DirectEmissionsType() + Me._installationEmissions = New InstallationEmissionsType() + Me._producedMeasure = New MeasureType() + Me._installation = New InstallationType() + Me._installationOperator = New InstallationOperatorType() + End Sub + + + Public Property SequenceNumber() As String + Get + Return Me._sequenceNumber + End Get + Set + Me._sequenceNumber = Value + End Set + End Property + + Public Property ProductionCountry() As String + Get + Return Me._productionCountry + End Get + Set + Me._productionCountry = Value + End Set + End Property + + Public Property InstallationOperator() As InstallationOperatorType + Get + Return Me._installationOperator + End Get + Set + Me._installationOperator = Value + End Set + End Property + + Public Property Installation() As InstallationType + Get + Return Me._installation + End Get + Set + Me._installation = Value + End Set + End Property + + Public Property ProducedMeasure() As MeasureType + Get + Return Me._producedMeasure + End Get + Set + Me._producedMeasure = Value + End Set + End Property + + Public Property InstallationEmissions() As InstallationEmissionsType + Get + Return Me._installationEmissions + End Get + Set + Me._installationEmissions = Value + End Set + End Property + + Public Property DirectEmissions() As DirectEmissionsType + Get + Return Me._directEmissions + End Get + Set + Me._directEmissions = Value + End Set + End Property + + Public Property IndirectEmissions() As IndirectEmissionsType + Get + Return Me._indirectEmissions + End Get + Set + Me._indirectEmissions = Value + End Set + End Property + + + Public Property ProdMethodQualifyingParams() As List(Of ProdMethodQualifyingParamsType) + Get + Return Me._prodMethodQualifyingParams + End Get + Set + Me._prodMethodQualifyingParams = Value + End Set + End Property + + + Public Property SupportingDocuments() As List(Of SupportingDocumentsType) + Get + Return Me._supportingDocuments + End Get + Set + Me._supportingDocuments = Value + End Set + End Property + + + Public Property CarbonPriceDue() As List(Of CarbonPriceDueType) + Get + Return Me._carbonPriceDue + End Get + Set + Me._carbonPriceDue = Value + End Set + End Property + + + Public Property RemarksEmissions() As List(Of RemarksEmissionsType) + Get + Return Me._remarksEmissions + End Get + Set + Me._remarksEmissions = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(GoodsEmissionsType)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize GoodsEmissionsType object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes GoodsEmissionsType object + ''' + ''' string to deserialize + ''' Output GoodsEmissionsType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As GoodsEmissionsType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, GoodsEmissionsType) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As GoodsEmissionsType) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As GoodsEmissionsType + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), GoodsEmissionsType) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As GoodsEmissionsType + Return CType(SerializerXml.Deserialize(s), GoodsEmissionsType) + End Function +#End Region + + ''' + ''' Serializes current GoodsEmissionsType object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an GoodsEmissionsType object + ''' + ''' File to load and deserialize + ''' Output GoodsEmissionsType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As GoodsEmissionsType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, GoodsEmissionsType) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As GoodsEmissionsType) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As GoodsEmissionsType + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class SupportingDocumentsType + +#Region "Private fields" + Private _sequenceNumber As String + + Private _type As String + + Private _country As String + + Private _referenceNumber As String + + Private _lineItemNumber As String + + Private _issuingAuthName As String + + Private _validityStartDate As Date + + Private _validityEndDate As Date + + Private _description As String + + Private _attachment As AttachmentType + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._attachment = New AttachmentType() + End Sub + + + Public Property SequenceNumber() As String + Get + Return Me._sequenceNumber + End Get + Set + Me._sequenceNumber = Value + End Set + End Property + + Public Property Type() As String + Get + Return Me._type + End Get + Set + Me._type = Value + End Set + End Property + + Public Property Country() As String + Get + Return Me._country + End Get + Set + Me._country = Value + End Set + End Property + + Public Property ReferenceNumber() As String + Get + Return Me._referenceNumber + End Get + Set + Me._referenceNumber = Value + End Set + End Property + + + Public Property LineItemNumber() As String + Get + Return Me._lineItemNumber + End Get + Set + Me._lineItemNumber = Value + End Set + End Property + + Public Property IssuingAuthName() As String + Get + Return Me._issuingAuthName + End Get + Set + Me._issuingAuthName = Value + End Set + End Property + + + Public Property ValidityStartDate() As Date + Get + Return Me._validityStartDate + End Get + Set + Me._validityStartDate = Value + End Set + End Property + + + Public Property ValidityEndDate() As Date + Get + Return Me._validityEndDate + End Get + Set + Me._validityEndDate = Value + End Set + End Property + + Public Property Description() As String + Get + Return Me._description + End Get + Set + Me._description = Value + End Set + End Property + + Public Property Attachment() As AttachmentType + Get + Return Me._attachment + End Get + Set + Me._attachment = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(SupportingDocumentsType)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize SupportingDocumentsType object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes SupportingDocumentsType object + ''' + ''' string to deserialize + ''' Output SupportingDocumentsType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As SupportingDocumentsType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, SupportingDocumentsType) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As SupportingDocumentsType) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As SupportingDocumentsType + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), SupportingDocumentsType) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As SupportingDocumentsType + Return CType(SerializerXml.Deserialize(s), SupportingDocumentsType) + End Function +#End Region + + ''' + ''' Serializes current SupportingDocumentsType object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an SupportingDocumentsType object + ''' + ''' File to load and deserialize + ''' Output SupportingDocumentsType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As SupportingDocumentsType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, SupportingDocumentsType) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As SupportingDocumentsType) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As SupportingDocumentsType + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class AttachmentType + +#Region "Private fields" + Private _filename As String + + Private _uRI As String + + Private _mIME As String + + Private _binary() As Byte + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Property Filename() As String + Get + Return Me._filename + End Get + Set + Me._filename = Value + End Set + End Property + + Public Property URI() As String + Get + Return Me._uRI + End Get + Set + Me._uRI = Value + End Set + End Property + + Public Property MIME() As String + Get + Return Me._mIME + End Get + Set + Me._mIME = Value + End Set + End Property + + + Public Property Binary() As Byte() + Get + Return Me._binary + End Get + Set + Me._binary = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(AttachmentType)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize AttachmentType object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes AttachmentType object + ''' + ''' string to deserialize + ''' Output AttachmentType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AttachmentType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AttachmentType) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As AttachmentType) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As AttachmentType + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), AttachmentType) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As AttachmentType + Return CType(SerializerXml.Deserialize(s), AttachmentType) + End Function +#End Region + + ''' + ''' Serializes current AttachmentType object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an AttachmentType object + ''' + ''' File to load and deserialize + ''' Output AttachmentType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AttachmentType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, AttachmentType) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As AttachmentType) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As AttachmentType + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class TotalEmissionsType + +#Region "Private fields" + Private _emissionsPerUnit As Decimal + + Private _overallEmissions As Decimal + + Private _totalDirect As Decimal + + Private _totalIndirect As Decimal + + Private _measurementUnit As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Property EmissionsPerUnit() As Decimal + Get + Return Me._emissionsPerUnit + End Get + Set + Me._emissionsPerUnit = Value + End Set + End Property + + Public Property OverallEmissions() As Decimal + Get + Return Me._overallEmissions + End Get + Set + Me._overallEmissions = Value + End Set + End Property + + Public Property TotalDirect() As Decimal + Get + Return Me._totalDirect + End Get + Set + Me._totalDirect = Value + End Set + End Property + + Public Property TotalIndirect() As Decimal + Get + Return Me._totalIndirect + End Get + Set + Me._totalIndirect = Value + End Set + End Property + + Public Property MeasurementUnit() As String + Get + Return Me._measurementUnit + End Get + Set + Me._measurementUnit = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(TotalEmissionsType)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize TotalEmissionsType object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes TotalEmissionsType object + ''' + ''' string to deserialize + ''' Output TotalEmissionsType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TotalEmissionsType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TotalEmissionsType) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As TotalEmissionsType) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As TotalEmissionsType + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), TotalEmissionsType) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As TotalEmissionsType + Return CType(SerializerXml.Deserialize(s), TotalEmissionsType) + End Function +#End Region + + ''' + ''' Serializes current TotalEmissionsType object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an TotalEmissionsType object + ''' + ''' File to load and deserialize + ''' Output TotalEmissionsType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TotalEmissionsType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, TotalEmissionsType) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As TotalEmissionsType) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As TotalEmissionsType + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class SpecialReferencesType + +#Region "Private fields" + Private _additionalInformation As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Property AdditionalInformation() As String + Get + Return Me._additionalInformation + End Get + Set + Me._additionalInformation = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(SpecialReferencesType)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize SpecialReferencesType object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes SpecialReferencesType object + ''' + ''' string to deserialize + ''' Output SpecialReferencesType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As SpecialReferencesType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, SpecialReferencesType) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As SpecialReferencesType) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As SpecialReferencesType + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), SpecialReferencesType) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As SpecialReferencesType + Return CType(SerializerXml.Deserialize(s), SpecialReferencesType) + End Function +#End Region + + ''' + ''' Serializes current SpecialReferencesType object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an SpecialReferencesType object + ''' + ''' File to load and deserialize + ''' Output SpecialReferencesType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As SpecialReferencesType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, SpecialReferencesType) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As SpecialReferencesType) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As SpecialReferencesType + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class MeasureProcedureType + +#Region "Private fields" + Private _indicator As Integer + + Private _netMass As Decimal + + Private _supplementaryUnits As Decimal + + Private _measurementUnit As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Property Indicator() As Integer + Get + Return Me._indicator + End Get + Set + Me._indicator = Value + End Set + End Property + + Public Property NetMass() As Decimal + Get + Return Me._netMass + End Get + Set + Me._netMass = Value + End Set + End Property + + Public Property SupplementaryUnits() As Decimal + Get + Return Me._supplementaryUnits + End Get + Set + Me._supplementaryUnits = Value + End Set + End Property + + Public Property MeasurementUnit() As String + Get + Return Me._measurementUnit + End Get + Set + Me._measurementUnit = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(MeasureProcedureType)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize MeasureProcedureType object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes MeasureProcedureType object + ''' + ''' string to deserialize + ''' Output MeasureProcedureType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As MeasureProcedureType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, MeasureProcedureType) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As MeasureProcedureType) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As MeasureProcedureType + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), MeasureProcedureType) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As MeasureProcedureType + Return CType(SerializerXml.Deserialize(s), MeasureProcedureType) + End Function +#End Region + + ''' + ''' Serializes current MeasureProcedureType object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an MeasureProcedureType object + ''' + ''' File to load and deserialize + ''' Output MeasureProcedureType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As MeasureProcedureType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, MeasureProcedureType) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As MeasureProcedureType) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As MeasureProcedureType + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class ImportAreaType + +#Region "Private fields" + Private _importArea As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Property ImportArea() As String + Get + Return Me._importArea + End Get + Set + Me._importArea = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(ImportAreaType)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize ImportAreaType object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes ImportAreaType object + ''' + ''' string to deserialize + ''' Output ImportAreaType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ImportAreaType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ImportAreaType) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ImportAreaType) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As ImportAreaType + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), ImportAreaType) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As ImportAreaType + Return CType(SerializerXml.Deserialize(s), ImportAreaType) + End Function +#End Region + + ''' + ''' Serializes current ImportAreaType object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an ImportAreaType object + ''' + ''' File to load and deserialize + ''' Output ImportAreaType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ImportAreaType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ImportAreaType) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ImportAreaType) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As ImportAreaType + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class InwardProcessingInfoType + +#Region "Private fields" + Private _memberStateAuth As String + + Private _dischargeBillWaiver As Integer + + Private _authorisation As String + + Private _startTime As Integer + + Private _endTime As Integer + + Private _deadline As Integer + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Property MemberStateAuth() As String + Get + Return Me._memberStateAuth + End Get + Set + Me._memberStateAuth = Value + End Set + End Property + + Public Property DischargeBillWaiver() As Integer + Get + Return Me._dischargeBillWaiver + End Get + Set + Me._dischargeBillWaiver = Value + End Set + End Property + + Public Property Authorisation() As String + Get + Return Me._authorisation + End Get + Set + Me._authorisation = Value + End Set + End Property + + Public Property StartTime() As Integer + Get + Return Me._startTime + End Get + Set + Me._startTime = Value + End Set + End Property + + Public Property EndTime() As Integer + Get + Return Me._endTime + End Get + Set + Me._endTime = Value + End Set + End Property + + Public Property Deadline() As Integer + Get + Return Me._deadline + End Get + Set + Me._deadline = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(InwardProcessingInfoType)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize InwardProcessingInfoType object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes InwardProcessingInfoType object + ''' + ''' string to deserialize + ''' Output InwardProcessingInfoType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As InwardProcessingInfoType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, InwardProcessingInfoType) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As InwardProcessingInfoType) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As InwardProcessingInfoType + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), InwardProcessingInfoType) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As InwardProcessingInfoType + Return CType(SerializerXml.Deserialize(s), InwardProcessingInfoType) + End Function +#End Region + + ''' + ''' Serializes current InwardProcessingInfoType object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an InwardProcessingInfoType object + ''' + ''' File to load and deserialize + ''' Output InwardProcessingInfoType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As InwardProcessingInfoType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, InwardProcessingInfoType) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As InwardProcessingInfoType) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As InwardProcessingInfoType + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class ProcedureType + +#Region "Private fields" + Private _requestedProc As String + + Private _previousProc As String + + Private _inwardProcessingInfo As List(Of InwardProcessingInfoType) + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._inwardProcessingInfo = New List(Of InwardProcessingInfoType)() + End Sub + + Public Property RequestedProc() As String + Get + Return Me._requestedProc + End Get + Set + Me._requestedProc = Value + End Set + End Property + + Public Property PreviousProc() As String + Get + Return Me._previousProc + End Get + Set + Me._previousProc = Value + End Set + End Property + + + Public Property InwardProcessingInfo() As List(Of InwardProcessingInfoType) + Get + Return Me._inwardProcessingInfo + End Get + Set + Me._inwardProcessingInfo = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(ProcedureType)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize ProcedureType object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes ProcedureType object + ''' + ''' string to deserialize + ''' Output ProcedureType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ProcedureType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ProcedureType) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ProcedureType) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As ProcedureType + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), ProcedureType) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As ProcedureType + Return CType(SerializerXml.Deserialize(s), ProcedureType) + End Function +#End Region + + ''' + ''' Serializes current ProcedureType object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an ProcedureType object + ''' + ''' File to load and deserialize + ''' Output ProcedureType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ProcedureType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ProcedureType) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ProcedureType) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As ProcedureType + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class ImportedQuantityType + +#Region "Private fields" + Private _sequenceNumber As String + + Private _procedure As ProcedureType + + Private _importArea As ImportAreaType + + Private _measureProcedureImported As List(Of MeasureProcedureType) + + Private _specialReferences As SpecialReferencesType + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._specialReferences = New SpecialReferencesType() + Me._measureProcedureImported = New List(Of MeasureProcedureType)() + Me._importArea = New ImportAreaType() + Me._procedure = New ProcedureType() + End Sub + + + Public Property SequenceNumber() As String + Get + Return Me._sequenceNumber + End Get + Set + Me._sequenceNumber = Value + End Set + End Property + + Public Property Procedure() As ProcedureType + Get + Return Me._procedure + End Get + Set + Me._procedure = Value + End Set + End Property + + Public Property ImportArea() As ImportAreaType + Get + Return Me._importArea + End Get + Set + Me._importArea = Value + End Set + End Property + + + Public Property MeasureProcedureImported() As List(Of MeasureProcedureType) + Get + Return Me._measureProcedureImported + End Get + Set + Me._measureProcedureImported = Value + End Set + End Property + + Public Property SpecialReferences() As SpecialReferencesType + Get + Return Me._specialReferences + End Get + Set + Me._specialReferences = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(ImportedQuantityType)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize ImportedQuantityType object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes ImportedQuantityType object + ''' + ''' string to deserialize + ''' Output ImportedQuantityType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ImportedQuantityType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ImportedQuantityType) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ImportedQuantityType) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As ImportedQuantityType + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), ImportedQuantityType) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As ImportedQuantityType + Return CType(SerializerXml.Deserialize(s), ImportedQuantityType) + End Function +#End Region + + ''' + ''' Serializes current ImportedQuantityType object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an ImportedQuantityType object + ''' + ''' File to load and deserialize + ''' Output ImportedQuantityType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ImportedQuantityType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ImportedQuantityType) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ImportedQuantityType) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As ImportedQuantityType + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class OriginCountryType + +#Region "Private fields" + Private _country As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Property Country() As String + Get + Return Me._country + End Get + Set + Me._country = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(OriginCountryType)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize OriginCountryType object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes OriginCountryType object + ''' + ''' string to deserialize + ''' Output OriginCountryType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As OriginCountryType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, OriginCountryType) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As OriginCountryType) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As OriginCountryType + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), OriginCountryType) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As OriginCountryType + Return CType(SerializerXml.Deserialize(s), OriginCountryType) + End Function +#End Region + + ''' + ''' Serializes current OriginCountryType object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an OriginCountryType object + ''' + ''' File to load and deserialize + ''' Output OriginCountryType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As OriginCountryType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, OriginCountryType) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As OriginCountryType) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As OriginCountryType + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class CommodityDetailsType + +#Region "Private fields" + Private _description As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Property Description() As String + Get + Return Me._description + End Get + Set + Me._description = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(CommodityDetailsType)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize CommodityDetailsType object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes CommodityDetailsType object + ''' + ''' string to deserialize + ''' Output CommodityDetailsType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As CommodityDetailsType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, CommodityDetailsType) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As CommodityDetailsType) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As CommodityDetailsType + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), CommodityDetailsType) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As CommodityDetailsType + Return CType(SerializerXml.Deserialize(s), CommodityDetailsType) + End Function +#End Region + + ''' + ''' Serializes current CommodityDetailsType object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an CommodityDetailsType object + ''' + ''' File to load and deserialize + ''' Output CommodityDetailsType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As CommodityDetailsType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, CommodityDetailsType) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As CommodityDetailsType) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As CommodityDetailsType + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class CommodityCodeType + +#Region "Private fields" + Private _hsCode As String + + Private _cnCode As String + + Private _commodityDetails As CommodityDetailsType + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._commodityDetails = New CommodityDetailsType() + End Sub + + Public Property HsCode() As String + Get + Return Me._hsCode + End Get + Set + Me._hsCode = Value + End Set + End Property + + Public Property CnCode() As String + Get + Return Me._cnCode + End Get + Set + Me._cnCode = Value + End Set + End Property + + Public Property CommodityDetails() As CommodityDetailsType + Get + Return Me._commodityDetails + End Get + Set + Me._commodityDetails = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(CommodityCodeType)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize CommodityCodeType object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes CommodityCodeType object + ''' + ''' string to deserialize + ''' Output CommodityCodeType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As CommodityCodeType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, CommodityCodeType) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As CommodityCodeType) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As CommodityCodeType + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), CommodityCodeType) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As CommodityCodeType + Return CType(SerializerXml.Deserialize(s), CommodityCodeType) + End Function +#End Region + + ''' + ''' Serializes current CommodityCodeType object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an CommodityCodeType object + ''' + ''' File to load and deserialize + ''' Output CommodityCodeType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As CommodityCodeType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, CommodityCodeType) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As CommodityCodeType) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As CommodityCodeType + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class ImportedGoodType + +#Region "Private fields" + Private _itemNumber As String + + Private _representative As RepresentativeType + + Private _importer As ImporterType + + Private _commodityCode As CommodityCodeType + + Private _originCountry As OriginCountryType + + Private _importedQuantity As List(Of ImportedQuantityType) + + Private _measureImported As MeasureType + + Private _totalEmissions As TotalEmissionsType + + Private _supportingDocuments As List(Of SupportingDocumentsType) + + Private _remarks As RemarksType + + Private _goodsEmissions As List(Of GoodsEmissionsType) + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._goodsEmissions = New List(Of GoodsEmissionsType)() + Me._remarks = New RemarksType() + Me._supportingDocuments = New List(Of SupportingDocumentsType)() + Me._totalEmissions = New TotalEmissionsType() + Me._measureImported = New MeasureType() + Me._importedQuantity = New List(Of ImportedQuantityType)() + Me._originCountry = New OriginCountryType() + Me._commodityCode = New CommodityCodeType() + Me._importer = New ImporterType() + Me._representative = New RepresentativeType() + End Sub + + + Public Property ItemNumber() As String + Get + Return Me._itemNumber + End Get + Set + Me._itemNumber = Value + End Set + End Property + + Public Property Representative() As RepresentativeType + Get + Return Me._representative + End Get + Set + Me._representative = Value + End Set + End Property + + Public Property Importer() As ImporterType + Get + Return Me._importer + End Get + Set + Me._importer = Value + End Set + End Property + + Public Property CommodityCode() As CommodityCodeType + Get + Return Me._commodityCode + End Get + Set + Me._commodityCode = Value + End Set + End Property + + Public Property OriginCountry() As OriginCountryType + Get + Return Me._originCountry + End Get + Set + Me._originCountry = Value + End Set + End Property + + + Public Property ImportedQuantity() As List(Of ImportedQuantityType) + Get + Return Me._importedQuantity + End Get + Set + Me._importedQuantity = Value + End Set + End Property + + Public Property MeasureImported() As MeasureType + Get + Return Me._measureImported + End Get + Set + Me._measureImported = Value + End Set + End Property + + Public Property TotalEmissions() As TotalEmissionsType + Get + Return Me._totalEmissions + End Get + Set + Me._totalEmissions = Value + End Set + End Property + + + Public Property SupportingDocuments() As List(Of SupportingDocumentsType) + Get + Return Me._supportingDocuments + End Get + Set + Me._supportingDocuments = Value + End Set + End Property + + Public Property Remarks() As RemarksType + Get + Return Me._remarks + End Get + Set + Me._remarks = Value + End Set + End Property + + + Public Property GoodsEmissions() As List(Of GoodsEmissionsType) + Get + Return Me._goodsEmissions + End Get + Set + Me._goodsEmissions = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(ImportedGoodType)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize ImportedGoodType object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes ImportedGoodType object + ''' + ''' string to deserialize + ''' Output ImportedGoodType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ImportedGoodType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ImportedGoodType) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ImportedGoodType) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As ImportedGoodType + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), ImportedGoodType) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As ImportedGoodType + Return CType(SerializerXml.Deserialize(s), ImportedGoodType) + End Function +#End Region + + ''' + ''' Serializes current ImportedGoodType object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an ImportedGoodType object + ''' + ''' File to load and deserialize + ''' Output ImportedGoodType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ImportedGoodType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ImportedGoodType) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ImportedGoodType) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As ImportedGoodType + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class RepresentativeType + +#Region "Private fields" + Private _identificationNumber As String + + Private _name As String + + Private _representativeAddress As AddressType + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._representativeAddress = New AddressType() + End Sub + + Public Property IdentificationNumber() As String + Get + Return Me._identificationNumber + End Get + Set + Me._identificationNumber = Value + End Set + End Property + + Public Property Name() As String + Get + Return Me._name + End Get + Set + Me._name = Value + End Set + End Property + + Public Property RepresentativeAddress() As AddressType + Get + Return Me._representativeAddress + End Get + Set + Me._representativeAddress = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(RepresentativeType)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize RepresentativeType object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes RepresentativeType object + ''' + ''' string to deserialize + ''' Output RepresentativeType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As RepresentativeType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, RepresentativeType) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As RepresentativeType) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As RepresentativeType + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), RepresentativeType) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As RepresentativeType + Return CType(SerializerXml.Deserialize(s), RepresentativeType) + End Function +#End Region + + ''' + ''' Serializes current RepresentativeType object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an RepresentativeType object + ''' + ''' File to load and deserialize + ''' Output RepresentativeType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As RepresentativeType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, RepresentativeType) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As RepresentativeType) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As RepresentativeType + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class ImporterType + +#Region "Private fields" + Private _identificationNumber As String + + Private _name As String + + Private _importerAddress As AddressType + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._importerAddress = New AddressType() + End Sub + + Public Property IdentificationNumber() As String + Get + Return Me._identificationNumber + End Get + Set + Me._identificationNumber = Value + End Set + End Property + + Public Property Name() As String + Get + Return Me._name + End Get + Set + Me._name = Value + End Set + End Property + + Public Property ImporterAddress() As AddressType + Get + Return Me._importerAddress + End Get + Set + Me._importerAddress = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(ImporterType)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize ImporterType object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes ImporterType object + ''' + ''' string to deserialize + ''' Output ImporterType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ImporterType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ImporterType) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ImporterType) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As ImporterType + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), ImporterType) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As ImporterType + Return CType(SerializerXml.Deserialize(s), ImporterType) + End Function +#End Region + + ''' + ''' Serializes current ImporterType object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an ImporterType object + ''' + ''' File to load and deserialize + ''' Output ImporterType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ImporterType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ImporterType) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ImporterType) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As ImporterType + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class RemarksType + +#Region "Private fields" + Private _additionalInformation As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Property AdditionalInformation() As String + Get + Return Me._additionalInformation + End Get + Set + Me._additionalInformation = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(RemarksType)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize RemarksType object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes RemarksType object + ''' + ''' string to deserialize + ''' Output RemarksType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As RemarksType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, RemarksType) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As RemarksType) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As RemarksType + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), RemarksType) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As RemarksType + Return CType(SerializerXml.Deserialize(s), RemarksType) + End Function +#End Region + + ''' + ''' Serializes current RemarksType object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an RemarksType object + ''' + ''' File to load and deserialize + ''' Output RemarksType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As RemarksType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, RemarksType) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As RemarksType) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As RemarksType + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class ApplicableMethodologyConfirmationType + +#Region "Private fields" + Private _otherApplicableReportingMethodology As Boolean + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Property OtherApplicableReportingMethodology() As Boolean + Get + Return Me._otherApplicableReportingMethodology + End Get + Set + Me._otherApplicableReportingMethodology = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(ApplicableMethodologyConfirmationType)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize ApplicableMethodologyConfirmationType object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes ApplicableMethodologyConfirmationType object + ''' + ''' string to deserialize + ''' Output ApplicableMethodologyConfirmationType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ApplicableMethodologyConfirmationType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ApplicableMethodologyConfirmationType) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ApplicableMethodologyConfirmationType) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As ApplicableMethodologyConfirmationType + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), ApplicableMethodologyConfirmationType) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As ApplicableMethodologyConfirmationType + Return CType(SerializerXml.Deserialize(s), ApplicableMethodologyConfirmationType) + End Function +#End Region + + ''' + ''' Serializes current ApplicableMethodologyConfirmationType object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an ApplicableMethodologyConfirmationType object + ''' + ''' File to load and deserialize + ''' Output ApplicableMethodologyConfirmationType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ApplicableMethodologyConfirmationType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ApplicableMethodologyConfirmationType) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ApplicableMethodologyConfirmationType) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As ApplicableMethodologyConfirmationType + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class ReportConfirmationType + +#Region "Private fields" + Private _globalDataConfirmation As Boolean + + Private _useOfDataConfirmation As Boolean + + Private _signatureDate As Integer + + Private _signaturePlace As String + + Private _signature As String + + Private _positionOfPersonSending As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Property GlobalDataConfirmation() As Boolean + Get + Return Me._globalDataConfirmation + End Get + Set + Me._globalDataConfirmation = Value + End Set + End Property + + Public Property UseOfDataConfirmation() As Boolean + Get + Return Me._useOfDataConfirmation + End Get + Set + Me._useOfDataConfirmation = Value + End Set + End Property + + Public Property SignatureDate() As Integer + Get + Return Me._signatureDate + End Get + Set + Me._signatureDate = Value + End Set + End Property + + Public Property SignaturePlace() As String + Get + Return Me._signaturePlace + End Get + Set + Me._signaturePlace = Value + End Set + End Property + + Public Property Signature() As String + Get + Return Me._signature + End Get + Set + Me._signature = Value + End Set + End Property + + Public Property PositionOfPersonSending() As String + Get + Return Me._positionOfPersonSending + End Get + Set + Me._positionOfPersonSending = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(ReportConfirmationType)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize ReportConfirmationType object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes ReportConfirmationType object + ''' + ''' string to deserialize + ''' Output ReportConfirmationType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ReportConfirmationType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ReportConfirmationType) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ReportConfirmationType) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As ReportConfirmationType + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), ReportConfirmationType) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As ReportConfirmationType + Return CType(SerializerXml.Deserialize(s), ReportConfirmationType) + End Function +#End Region + + ''' + ''' Serializes current ReportConfirmationType object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an ReportConfirmationType object + ''' + ''' File to load and deserialize + ''' Output ReportConfirmationType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ReportConfirmationType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, ReportConfirmationType) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ReportConfirmationType) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As ReportConfirmationType + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class SignaturesType + +#Region "Private fields" + Private _reportConfirmation As ReportConfirmationType + + Private _applicableMethdologyConfirmation As ApplicableMethodologyConfirmationType + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._applicableMethdologyConfirmation = New ApplicableMethodologyConfirmationType() + Me._reportConfirmation = New ReportConfirmationType() + End Sub + + Public Property ReportConfirmation() As ReportConfirmationType + Get + Return Me._reportConfirmation + End Get + Set + Me._reportConfirmation = Value + End Set + End Property + + Public Property ApplicableMethdologyConfirmation() As ApplicableMethodologyConfirmationType + Get + Return Me._applicableMethdologyConfirmation + End Get + Set + Me._applicableMethdologyConfirmation = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(SignaturesType)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize SignaturesType object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes SignaturesType object + ''' + ''' string to deserialize + ''' Output SignaturesType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As SignaturesType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, SignaturesType) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As SignaturesType) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As SignaturesType + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), SignaturesType) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As SignaturesType + Return CType(SerializerXml.Deserialize(s), SignaturesType) + End Function +#End Region + + ''' + ''' Serializes current SignaturesType object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an SignaturesType object + ''' + ''' File to load and deserialize + ''' Output SignaturesType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As SignaturesType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, SignaturesType) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As SignaturesType) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As SignaturesType + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class NationalCompetentAuthType + +#Region "Private fields" + Private _referenceNumber As String + + Private Shared _serializerXml As XmlSerializer +#End Region + + Public Property ReferenceNumber() As String + Get + Return Me._referenceNumber + End Get + Set + Me._referenceNumber = Value + End Set + End Property + + Private Shared ReadOnly Property SerializerXml() As XmlSerializer + Get + If (_serializerXml Is Nothing) Then + _serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(NationalCompetentAuthType)) + End If + Return _serializerXml + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serialize NationalCompetentAuthType object + ''' + ''' XML value + Public Overridable Function Serialize() As String + Dim streamReader As StreamReader = Nothing + Dim memoryStream As MemoryStream = Nothing + Try + memoryStream = New MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + SerializerXml.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes NationalCompetentAuthType object + ''' + ''' string to deserialize + ''' Output NationalCompetentAuthType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As NationalCompetentAuthType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, NationalCompetentAuthType) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As NationalCompetentAuthType) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As NationalCompetentAuthType + Dim stringReader As StringReader = Nothing + Try + stringReader = New StringReader(input) + Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), NationalCompetentAuthType) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As Stream) As NationalCompetentAuthType + Return CType(SerializerXml.Deserialize(s), NationalCompetentAuthType) + End Function +#End Region + + ''' + ''' Serializes current NationalCompetentAuthType object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As StreamWriter = Nothing + Try + Dim dataString As String = Serialize() + Dim outputFile As FileInfo = New FileInfo(fileName) + streamWriter = outputFile.CreateText + streamWriter.WriteLine(dataString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an NationalCompetentAuthType object + ''' + ''' File to load and deserialize + ''' Output NationalCompetentAuthType object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As NationalCompetentAuthType, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, NationalCompetentAuthType) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As NationalCompetentAuthType) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As NationalCompetentAuthType + Dim file As FileStream = Nothing + Dim sr As StreamReader = Nothing + Try + file = New FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New StreamReader(file) + Dim dataString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(dataString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class +End Namespace +#Enable Warning diff --git a/VERAG_PROG_ALLGEMEIN/Schnittstellen/CBAM/QReport_v17.00.xsd b/VERAG_PROG_ALLGEMEIN/Schnittstellen/CBAM/QReport_v17.00.xsd new file mode 100644 index 00000000..586f9911 --- /dev/null +++ b/VERAG_PROG_ALLGEMEIN/Schnittstellen/CBAM/QReport_v17.00.xsd @@ -0,0 +1,364 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/VERAG_PROG_ALLGEMEIN/Schnittstellen/CBAM/stypes.xsd b/VERAG_PROG_ALLGEMEIN/Schnittstellen/CBAM/stypes.xsd new file mode 100644 index 00000000..8a19e151 --- /dev/null +++ b/VERAG_PROG_ALLGEMEIN/Schnittstellen/CBAM/stypes.xsd @@ -0,0 +1,202 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/VERAG_PROG_ALLGEMEIN/Schnittstellen/cSyska_Interface.vb b/VERAG_PROG_ALLGEMEIN/Schnittstellen/cSyska_Interface.vb index 5eb9e251..f631a545 100644 --- a/VERAG_PROG_ALLGEMEIN/Schnittstellen/cSyska_Interface.vb +++ b/VERAG_PROG_ALLGEMEIN/Schnittstellen/cSyska_Interface.vb @@ -267,12 +267,14 @@ Public Class cSyska_Interface ' If Not genDatensatz_Stammdaten(OpenFile) Then genDatensatz_ALL = False If Not genDatensatz_Stammdaten(1, OpenFile) Then genDatensatz_ALL = False If Not genDatensatz_Stammdaten(7, OpenFile) Then genDatensatz_ALL = False + If Not genDatensatz_Stammdaten(4, OpenFile) Then genDatensatz_ALL = False If Not genDatensatz_Stammdaten(11, OpenFile) Then genDatensatz_ALL = False If Not genDatensatz_Stammdaten(17, OpenFile) Then genDatensatz_ALL = False If Not genDatensatz_Stammdaten(19, OpenFile) Then genDatensatz_ALL = False End If If boolBuchungen Then If Not genDatensatz_Buchungen(1, OpenFile, WdhDateiname) Then genDatensatz_ALL = False + If Not genDatensatz_Buchungen(4, OpenFile, WdhDateiname) Then genDatensatz_ALL = False If Not genDatensatz_Buchungen(7, OpenFile, WdhDateiname) Then genDatensatz_ALL = False If Not genDatensatz_Buchungen(11, OpenFile, WdhDateiname) Then genDatensatz_ALL = False If Not genDatensatz_Buchungen(17, OpenFile, WdhDateiname) Then genDatensatz_ALL = False @@ -1366,7 +1368,7 @@ Public Class cSyska_Interface Return False End Try End Function - Public Shared Function OP_LFD_SALDO_AKTUALISIERN(Firma_ID As Integer, Optional KdNr As Integer = -1) As Boolean + Public Shared Function OP_LFD_SALDO_AKTUALISIERN(Firma_ID As Integer) As Boolean Try Dim sqlStr = " @@ -1377,10 +1379,9 @@ Public Class cSyska_Interface Kunden WHERE (SELECT COUNT(*) FROM [Offene Posten] WHERE KundenNrZentrale=Kontonummer " & If(Firma_ID > 0, " AND Firma_ID='" & Firma_ID & "' ", "") & ")>=0 " - If KdNr > 0 Then sqlStr &= " AND KundenNrZentrale='" & KdNr & "' " - SQL.doSQL(sqlStr, "FMZOLL") + SQL.doSQL(sqlStr, "FMZOLL",,,, 1800) Return True Catch ex As Exception @@ -1390,6 +1391,32 @@ Public Class cSyska_Interface End Function + Public Shared Function OP_LFD_SALDO_AKTUALISIERN(Firma_ID As Integer, KdNr As Integer) As Boolean + If KdNr <= 0 Then + Return OP_LFD_SALDO_AKTUALISIERN(Firma_ID) + End If + + Try + + Dim sqlStr = " + UPDATE KUNDEN + SET LfdSaldo=(SELECT TOP 1 [KumSaldoEUR] FROM [Offene Posten] where Kontonummer=KundenNrZentrale order by [OP_ID] desc ) + + FROM + Kunden + WHERE (SELECT COUNT(*) FROM [Offene Posten] WHERE KundenNrZentrale=Kontonummer " & If(Firma_ID > 0, " AND Firma_ID='" & Firma_ID & "' ", "") & ")>=0 + AND KundenNrZentrale='" & KdNr & "' + " + + + SQL.doSQL(sqlStr, "FMZOLL",,,, 600) + + Return True + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL) + Return False + End Try + End Function diff --git a/VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj b/VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj index 1d09c22f..611ad7a9 100644 --- a/VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj +++ b/VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj @@ -327,6 +327,7 @@ + @@ -382,6 +383,7 @@ True Resources.resx + @@ -781,6 +783,12 @@ Always + + Designer + + + Designer + Designer From c2edb5a39af9f634dcbc83e513dd783a2d4fa06d Mon Sep 17 00:00:00 2001 From: Andreas Luxbauer Date: Thu, 29 Feb 2024 11:36:44 +0100 Subject: [PATCH 3/5] div --- SDL/SDL.vbproj | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/SDL/SDL.vbproj b/SDL/SDL.vbproj index dfd5c2d4..49d321b7 100644 --- a/SDL/SDL.vbproj +++ b/SDL/SDL.vbproj @@ -94,7 +94,10 @@ false - AL20210908.pfx + AL20231110.pfx + + + false @@ -3201,6 +3204,7 @@ usrCntlSDLLeistungVERAGCardNEU.vb + frmATR.vb @@ -4296,6 +4300,7 @@ + From 8135bdf6c22518ec5ea9d59981444248b5fbbe5f Mon Sep 17 00:00:00 2001 From: Andreas Luxbauer Date: Fri, 1 Mar 2024 14:37:14 +0100 Subject: [PATCH 4/5] div --- SDL/My Project/AssemblyInfo.vb | 4 ++-- SDL/SDL.vbproj | 4 ++-- VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj | 2 +- 3 files changed, 5 insertions(+), 5 deletions(-) diff --git a/SDL/My Project/AssemblyInfo.vb b/SDL/My Project/AssemblyInfo.vb index 1770e68a..4cc0e1dc 100644 --- a/SDL/My Project/AssemblyInfo.vb +++ b/SDL/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + + diff --git a/SDL/SDL.vbproj b/SDL/SDL.vbproj index 49d321b7..724500a0 100644 --- a/SDL/SDL.vbproj +++ b/SDL/SDL.vbproj @@ -105,9 +105,9 @@ False C:\Program Files (x86)\GrapeCity\ActiveReports 15\Tools\BouncyCastle.Crypto.dll - + False - F:\PROGRAMMIERUNG\dll\closedxml\ClosedXML.dll + F:\PROGRAMMIERUNG\dll\closedxml\95\ClosedXML.dll ..\..\..\AVISO\Aviso\packages\esendex-dotnet-sdk.3.8.0\lib\net35\com.esendex.sdk.dll diff --git a/VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj b/VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj index 57949849..5cb998a2 100644 --- a/VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj +++ b/VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj @@ -79,7 +79,7 @@ False - F:\PROGRAMMIERUNG\dll\closedxml\Neuer Ordner\ClosedXML.dll + F:\PROGRAMMIERUNG\dll\closedxml\95\ClosedXML.dll False From cd5f875c1f3623977efd1a2b62f2f9b37ce43cb6 Mon Sep 17 00:00:00 2001 From: Andreas Luxbauer Date: Fri, 1 Mar 2024 14:51:03 +0100 Subject: [PATCH 5/5] Wiederherstellung --- VERAG_PROG_ALLGEMEIN/Classes/cUeberstunden.vb | 4 - .../frmUeberstundenauszahlen.Designer.vb | 180 ++++---------- .../frmUeberstundenauszahlen.resx | 179 -------------- .../frmUeberstundenauszahlen.vb | 225 +++++++++--------- 4 files changed, 154 insertions(+), 434 deletions(-) diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cUeberstunden.vb b/VERAG_PROG_ALLGEMEIN/Classes/cUeberstunden.vb index 6537794f..3a97912b 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cUeberstunden.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cUeberstunden.vb @@ -9,7 +9,6 @@ Public Class cUeberstunden Property uest_timasId As Object = Nothing Property uest_100 As Object = Nothing Property uest_50 As Object = Nothing - Property uest_25 As Object = Nothing Property uest_0 As Object = Nothing Property uest_date As Date = Nothing Property uest_created As Object = Nothing @@ -18,7 +17,6 @@ Public Class cUeberstunden Property uest_systemuser As Object = Nothing Property uest_maxUE As Object = Nothing Property uest_ignoreLimit As Boolean - Property uest_overwriteValue As Boolean Public hasEntry = False @@ -45,7 +43,6 @@ Public Class cUeberstunden list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("uest_timasId", uest_timasId)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("uest_100", uest_100)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("uest_50", uest_50)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("uest_25", uest_25)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("uest_0", uest_0)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("uest_date", uest_date)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("uest_created", uest_created)) @@ -54,7 +51,6 @@ Public Class cUeberstunden list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("uest_systemuser", uest_systemuser)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("uest_ignoreLimit", uest_ignoreLimit)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("uest_maxUE", uest_maxUE)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("uest_overwriteValue", uest_overwriteValue)) Return list End Function diff --git a/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmUeberstundenauszahlen.Designer.vb b/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmUeberstundenauszahlen.Designer.vb index 4dac07f5..8269a168 100644 --- a/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmUeberstundenauszahlen.Designer.vb +++ b/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmUeberstundenauszahlen.Designer.vb @@ -23,7 +23,6 @@ Partial Class frmUeberstundenauszahlen Private Sub InitializeComponent() Me.components = New System.ComponentModel.Container() - Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmUeberstundenauszahlen)) Me.dtpMonat = New System.Windows.Forms.DateTimePicker() Me.lblMonat = New System.Windows.Forms.Label() Me.Label2 = New System.Windows.Forms.Label() @@ -49,25 +48,17 @@ Partial Class frmUeberstundenauszahlen Me.txtberAusz100 = New System.Windows.Forms.TextBox() Me.Label1 = New System.Windows.Forms.Label() Me.txtlfdSaldo = New System.Windows.Forms.TextBox() - Me.lbllfdSaldo = New System.Windows.Forms.Label() + Me.Label6 = New System.Windows.Forms.Label() Me.picDel = New System.Windows.Forms.PictureBox() Me.txtAusz50vonSaldo = New System.Windows.Forms.TextBox() Me.Panel1 = New System.Windows.Forms.Panel() - Me.cx25 = New System.Windows.Forms.CheckBox() - Me.cbx50 = New System.Windows.Forms.CheckBox() - Me.cbx100 = New System.Windows.Forms.CheckBox() - Me.txtberAusz25 = New System.Windows.Forms.TextBox() - Me.cbxoverwrite = New System.Windows.Forms.CheckBox() Me.Label8 = New System.Windows.Forms.Label() Me.txt50x1 = New System.Windows.Forms.TextBox() - Me.cbxTeilzeit = New System.Windows.Forms.CheckBox() - Me.txtAuszManuell = New System.Windows.Forms.TextBox() Me.dgvUeberstunden = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) - Me.PictureBox1 = New System.Windows.Forms.PictureBox() + Me.cbxoverwrite = New System.Windows.Forms.CheckBox() CType(Me.picDel, System.ComponentModel.ISupportInitialize).BeginInit() Me.Panel1.SuspendLayout() CType(Me.dgvUeberstunden, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' 'dtpMonat @@ -91,7 +82,7 @@ Partial Class frmUeberstundenauszahlen 'Label2 ' Me.Label2.AutoSize = True - Me.Label2.Location = New System.Drawing.Point(33, 11) + Me.Label2.Location = New System.Drawing.Point(13, 11) Me.Label2.Name = "Label2" Me.Label2.Size = New System.Drawing.Size(196, 13) Me.Label2.TabIndex = 2 @@ -100,7 +91,7 @@ Partial Class frmUeberstundenauszahlen 'Label3 ' Me.Label3.AutoSize = True - Me.Label3.Location = New System.Drawing.Point(32, 131) + Me.Label3.Location = New System.Drawing.Point(12, 131) Me.Label3.Name = "Label3" Me.Label3.Size = New System.Drawing.Size(138, 13) Me.Label3.TabIndex = 3 @@ -109,7 +100,7 @@ Partial Class frmUeberstundenauszahlen 'Label4 ' Me.Label4.AutoSize = True - Me.Label4.Location = New System.Drawing.Point(33, 53) + Me.Label4.Location = New System.Drawing.Point(13, 53) Me.Label4.Name = "Label4" Me.Label4.Size = New System.Drawing.Size(113, 13) Me.Label4.TabIndex = 4 @@ -117,7 +108,7 @@ Partial Class frmUeberstundenauszahlen ' 'txt100 ' - Me.txt100.Location = New System.Drawing.Point(36, 27) + Me.txt100.Location = New System.Drawing.Point(16, 27) Me.txt100.Name = "txt100" Me.txt100.ReadOnly = True Me.txt100.Size = New System.Drawing.Size(47, 20) @@ -126,7 +117,7 @@ Partial Class frmUeberstundenauszahlen ' 'txt50 ' - Me.txt50.Location = New System.Drawing.Point(36, 69) + Me.txt50.Location = New System.Drawing.Point(16, 69) Me.txt50.Name = "txt50" Me.txt50.ReadOnly = True Me.txt50.Size = New System.Drawing.Size(47, 20) @@ -135,7 +126,7 @@ Partial Class frmUeberstundenauszahlen ' 'txtMehr ' - Me.txtMehr.Location = New System.Drawing.Point(35, 147) + Me.txtMehr.Location = New System.Drawing.Point(15, 147) Me.txtMehr.Name = "txtMehr" Me.txtMehr.ReadOnly = True Me.txtMehr.Size = New System.Drawing.Size(47, 20) @@ -144,7 +135,7 @@ Partial Class frmUeberstundenauszahlen ' 'txtAusz ' - Me.txtAusz.Location = New System.Drawing.Point(212, 196) + Me.txtAusz.Location = New System.Drawing.Point(192, 196) Me.txtAusz.Name = "txtAusz" Me.txtAusz.Size = New System.Drawing.Size(54, 20) Me.txtAusz.TabIndex = 9 @@ -153,7 +144,7 @@ Partial Class frmUeberstundenauszahlen 'lblMA ' Me.lblMA.AutoSize = True - Me.lblMA.Location = New System.Drawing.Point(236, 25) + Me.lblMA.Location = New System.Drawing.Point(238, 6) Me.lblMA.Name = "lblMA" Me.lblMA.Size = New System.Drawing.Size(56, 13) Me.lblMA.TabIndex = 10 @@ -162,7 +153,7 @@ Partial Class frmUeberstundenauszahlen 'Label7 ' Me.Label7.AutoSize = True - Me.Label7.Location = New System.Drawing.Point(236, 45) + Me.Label7.Location = New System.Drawing.Point(238, 26) Me.Label7.Name = "Label7" Me.Label7.Size = New System.Drawing.Size(65, 13) Me.Label7.TabIndex = 11 @@ -171,7 +162,7 @@ Partial Class frmUeberstundenauszahlen 'Button1 ' Me.Button1.DialogResult = System.Windows.Forms.DialogResult.OK - Me.Button1.Location = New System.Drawing.Point(341, 170) + Me.Button1.Location = New System.Drawing.Point(321, 170) Me.Button1.Name = "Button1" Me.Button1.Size = New System.Drawing.Size(87, 30) Me.Button1.TabIndex = 12 @@ -180,7 +171,7 @@ Partial Class frmUeberstundenauszahlen ' 'txt100x2 ' - Me.txt100x2.Location = New System.Drawing.Point(132, 27) + Me.txt100x2.Location = New System.Drawing.Point(112, 27) Me.txt100x2.Name = "txt100x2" Me.txt100x2.ReadOnly = True Me.txt100x2.Size = New System.Drawing.Size(49, 20) @@ -189,7 +180,7 @@ Partial Class frmUeberstundenauszahlen ' 'txt50x15 ' - Me.txt50x15.Location = New System.Drawing.Point(132, 69) + Me.txt50x15.Location = New System.Drawing.Point(112, 69) Me.txt50x15.Name = "txt50x15" Me.txt50x15.ReadOnly = True Me.txt50x15.Size = New System.Drawing.Size(49, 20) @@ -198,7 +189,7 @@ Partial Class frmUeberstundenauszahlen ' 'txtAusz100 ' - Me.txtAusz100.Location = New System.Drawing.Point(217, 27) + Me.txtAusz100.Location = New System.Drawing.Point(197, 27) Me.txtAusz100.Name = "txtAusz100" Me.txtAusz100.ReadOnly = True Me.txtAusz100.Size = New System.Drawing.Size(54, 20) @@ -207,7 +198,7 @@ Partial Class frmUeberstundenauszahlen ' 'txtAusz50 ' - Me.txtAusz50.Location = New System.Drawing.Point(217, 69) + Me.txtAusz50.Location = New System.Drawing.Point(197, 69) Me.txtAusz50.Name = "txtAusz50" Me.txtAusz50.ReadOnly = True Me.txtAusz50.Size = New System.Drawing.Size(54, 20) @@ -252,7 +243,7 @@ Partial Class frmUeberstundenauszahlen ' 'txtSummeAuszb ' - Me.txtSummeAuszb.Location = New System.Drawing.Point(130, 196) + Me.txtSummeAuszb.Location = New System.Drawing.Point(110, 196) Me.txtSummeAuszb.Name = "txtSummeAuszb" Me.txtSummeAuszb.ReadOnly = True Me.txtSummeAuszb.Size = New System.Drawing.Size(49, 20) @@ -261,7 +252,7 @@ Partial Class frmUeberstundenauszahlen ' 'txtberAusz50 ' - Me.txtberAusz50.Location = New System.Drawing.Point(311, 69) + Me.txtberAusz50.Location = New System.Drawing.Point(291, 69) Me.txtberAusz50.Name = "txtberAusz50" Me.txtberAusz50.ReadOnly = True Me.txtberAusz50.Size = New System.Drawing.Size(54, 20) @@ -270,7 +261,7 @@ Partial Class frmUeberstundenauszahlen ' 'txtberAusz100 ' - Me.txtberAusz100.Location = New System.Drawing.Point(311, 27) + Me.txtberAusz100.Location = New System.Drawing.Point(291, 27) Me.txtberAusz100.Name = "txtberAusz100" Me.txtberAusz100.ReadOnly = True Me.txtberAusz100.Size = New System.Drawing.Size(54, 20) @@ -280,7 +271,7 @@ Partial Class frmUeberstundenauszahlen 'Label1 ' Me.Label1.AutoSize = True - Me.Label1.Location = New System.Drawing.Point(309, 11) + Me.Label1.Location = New System.Drawing.Point(289, 11) Me.Label1.Name = "Label1" Me.Label1.Size = New System.Drawing.Size(92, 13) Me.Label1.TabIndex = 25 @@ -288,27 +279,27 @@ Partial Class frmUeberstundenauszahlen ' 'txtlfdSaldo ' - Me.txtlfdSaldo.Location = New System.Drawing.Point(36, 108) + Me.txtlfdSaldo.Location = New System.Drawing.Point(17, 108) Me.txtlfdSaldo.Name = "txtlfdSaldo" Me.txtlfdSaldo.ReadOnly = True Me.txtlfdSaldo.Size = New System.Drawing.Size(49, 20) Me.txtlfdSaldo.TabIndex = 26 Me.txtlfdSaldo.Text = "0" ' - 'lbllfdSaldo + 'Label6 ' - Me.lbllfdSaldo.AutoSize = True - Me.lbllfdSaldo.Location = New System.Drawing.Point(33, 92) - Me.lbllfdSaldo.Name = "lbllfdSaldo" - Me.lbllfdSaldo.Size = New System.Drawing.Size(48, 13) - Me.lbllfdSaldo.TabIndex = 27 - Me.lbllfdSaldo.Text = "lfd Saldo" + Me.Label6.AutoSize = True + Me.Label6.Location = New System.Drawing.Point(18, 92) + Me.Label6.Name = "Label6" + Me.Label6.Size = New System.Drawing.Size(48, 13) + Me.Label6.TabIndex = 27 + Me.Label6.Text = "lfd Saldo" ' 'picDel ' Me.picDel.BackgroundImage = Global.VERAG_PROG_ALLGEMEIN.My.Resources.Resources.del Me.picDel.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom - Me.picDel.Location = New System.Drawing.Point(407, 11) + Me.picDel.Location = New System.Drawing.Point(387, 11) Me.picDel.Name = "picDel" Me.picDel.Size = New System.Drawing.Size(21, 16) Me.picDel.TabIndex = 28 @@ -316,7 +307,7 @@ Partial Class frmUeberstundenauszahlen ' 'txtAusz50vonSaldo ' - Me.txtAusz50vonSaldo.Location = New System.Drawing.Point(217, 108) + Me.txtAusz50vonSaldo.Location = New System.Drawing.Point(197, 108) Me.txtAusz50vonSaldo.Name = "txtAusz50vonSaldo" Me.txtAusz50vonSaldo.ReadOnly = True Me.txtAusz50vonSaldo.Size = New System.Drawing.Size(49, 20) @@ -325,11 +316,6 @@ Partial Class frmUeberstundenauszahlen ' 'Panel1 ' - Me.Panel1.Controls.Add(Me.txtAuszManuell) - Me.Panel1.Controls.Add(Me.cx25) - Me.Panel1.Controls.Add(Me.cbx50) - Me.Panel1.Controls.Add(Me.cbx100) - Me.Panel1.Controls.Add(Me.txtberAusz25) Me.Panel1.Controls.Add(Me.cbxoverwrite) Me.Panel1.Controls.Add(Me.Label8) Me.Panel1.Controls.Add(Me.txt50x1) @@ -338,7 +324,7 @@ Partial Class frmUeberstundenauszahlen Me.Panel1.Controls.Add(Me.Label3) Me.Panel1.Controls.Add(Me.picDel) Me.Panel1.Controls.Add(Me.Label4) - Me.Panel1.Controls.Add(Me.lbllfdSaldo) + Me.Panel1.Controls.Add(Me.Label6) Me.Panel1.Controls.Add(Me.txt100) Me.Panel1.Controls.Add(Me.txtlfdSaldo) Me.Panel1.Controls.Add(Me.txt50) @@ -355,62 +341,13 @@ Partial Class frmUeberstundenauszahlen Me.Panel1.Controls.Add(Me.txtAusz50) Me.Panel1.Location = New System.Drawing.Point(15, 67) Me.Panel1.Name = "Panel1" - Me.Panel1.Size = New System.Drawing.Size(447, 235) + Me.Panel1.Size = New System.Drawing.Size(421, 235) Me.Panel1.TabIndex = 30 ' - 'cx25 - ' - Me.cx25.AutoSize = True - Me.cx25.Location = New System.Drawing.Point(196, 111) - Me.cx25.Name = "cx25" - Me.cx25.Size = New System.Drawing.Size(15, 14) - Me.cx25.TabIndex = 36 - Me.cx25.UseVisualStyleBackColor = True - ' - 'cbx50 - ' - Me.cbx50.AutoSize = True - Me.cbx50.Location = New System.Drawing.Point(196, 72) - Me.cbx50.Name = "cbx50" - Me.cbx50.Size = New System.Drawing.Size(15, 14) - Me.cbx50.TabIndex = 35 - Me.cbx50.UseVisualStyleBackColor = True - ' - 'cbx100 - ' - Me.cbx100.AutoSize = True - Me.cbx100.Location = New System.Drawing.Point(196, 30) - Me.cbx100.Name = "cbx100" - Me.cbx100.Size = New System.Drawing.Size(15, 14) - Me.cbx100.TabIndex = 32 - Me.cbx100.UseVisualStyleBackColor = True - ' - 'txtberAusz25 - ' - Me.txtberAusz25.Location = New System.Drawing.Point(311, 108) - Me.txtberAusz25.Name = "txtberAusz25" - Me.txtberAusz25.ReadOnly = True - Me.txtberAusz25.Size = New System.Drawing.Size(54, 20) - Me.txtberAusz25.TabIndex = 34 - Me.txtberAusz25.Text = "0" - Me.txtberAusz25.Visible = False - ' - 'cbxoverwrite - ' - Me.cbxoverwrite.AutoSize = True - Me.cbxoverwrite.Checked = True - Me.cbxoverwrite.CheckState = System.Windows.Forms.CheckState.Checked - Me.cbxoverwrite.Location = New System.Drawing.Point(79, 179) - Me.cbxoverwrite.Name = "cbxoverwrite" - Me.cbxoverwrite.Size = New System.Drawing.Size(102, 17) - Me.cbxoverwrite.TabIndex = 31 - Me.cbxoverwrite.Text = "max. auszahlbar" - Me.cbxoverwrite.UseVisualStyleBackColor = True - ' 'Label8 ' Me.Label8.AutoSize = True - Me.Label8.Location = New System.Drawing.Point(214, 179) + Me.Label8.Location = New System.Drawing.Point(194, 179) Me.Label8.Name = "Label8" Me.Label8.Size = New System.Drawing.Size(56, 13) Me.Label8.TabIndex = 33 @@ -418,32 +355,13 @@ Partial Class frmUeberstundenauszahlen ' 'txt50x1 ' - Me.txt50x1.Location = New System.Drawing.Point(132, 108) + Me.txt50x1.Location = New System.Drawing.Point(112, 108) Me.txt50x1.Name = "txt50x1" Me.txt50x1.ReadOnly = True Me.txt50x1.Size = New System.Drawing.Size(49, 20) Me.txt50x1.TabIndex = 32 Me.txt50x1.Text = "0" ' - 'cbxTeilzeit - ' - Me.cbxTeilzeit.AutoSize = True - Me.cbxTeilzeit.Location = New System.Drawing.Point(239, 5) - Me.cbxTeilzeit.Name = "cbxTeilzeit" - Me.cbxTeilzeit.Size = New System.Drawing.Size(59, 17) - Me.cbxTeilzeit.TabIndex = 31 - Me.cbxTeilzeit.Text = "Teilzeit" - Me.cbxTeilzeit.UseVisualStyleBackColor = True - ' - 'txtAuszManuell - ' - Me.txtAuszManuell.Location = New System.Drawing.Point(272, 196) - Me.txtAuszManuell.Name = "txtAuszManuell" - Me.txtAuszManuell.Size = New System.Drawing.Size(54, 20) - Me.txtAuszManuell.TabIndex = 37 - Me.txtAuszManuell.Text = "0" - Me.txtAuszManuell.Visible = False - ' 'dgvUeberstunden ' Me.dgvUeberstunden.AKTUALISIERUNGS_INTERVALL = -1 @@ -458,23 +376,23 @@ Partial Class frmUeberstundenauszahlen Me.dgvUeberstunden.TabIndex = 13 Me.dgvUeberstunden.Visible = False ' - 'PictureBox1 + 'cbxoverwrite ' - Me.PictureBox1.BackgroundImage = CType(resources.GetObject("PictureBox1.BackgroundImage"), System.Drawing.Image) - Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom - Me.PictureBox1.Location = New System.Drawing.Point(422, 12) - Me.PictureBox1.Name = "PictureBox1" - Me.PictureBox1.Size = New System.Drawing.Size(29, 26) - Me.PictureBox1.TabIndex = 38 - Me.PictureBox1.TabStop = False + Me.cbxoverwrite.AutoSize = True + Me.cbxoverwrite.Checked = True + Me.cbxoverwrite.CheckState = System.Windows.Forms.CheckState.Checked + Me.cbxoverwrite.Location = New System.Drawing.Point(59, 179) + Me.cbxoverwrite.Name = "cbxoverwrite" + Me.cbxoverwrite.Size = New System.Drawing.Size(102, 17) + Me.cbxoverwrite.TabIndex = 31 + Me.cbxoverwrite.Text = "max. auszahlbar" + Me.cbxoverwrite.UseVisualStyleBackColor = True ' 'frmUeberstundenauszahlen ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.ClientSize = New System.Drawing.Size(463, 337) - Me.Controls.Add(Me.PictureBox1) - Me.Controls.Add(Me.cbxTeilzeit) Me.Controls.Add(Me.Panel1) Me.Controls.Add(Me.lblBis) Me.Controls.Add(Me.dtpBis) @@ -491,7 +409,6 @@ Partial Class frmUeberstundenauszahlen Me.Panel1.ResumeLayout(False) Me.Panel1.PerformLayout() CType(Me.dgvUeberstunden, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) Me.PerformLayout() @@ -523,18 +440,11 @@ Partial Class frmUeberstundenauszahlen Friend WithEvents txtberAusz100 As Windows.Forms.TextBox Friend WithEvents Label1 As Windows.Forms.Label Friend WithEvents txtlfdSaldo As Windows.Forms.TextBox - Friend WithEvents lbllfdSaldo As Windows.Forms.Label + Friend WithEvents Label6 As Windows.Forms.Label Friend WithEvents picDel As Windows.Forms.PictureBox Friend WithEvents txtAusz50vonSaldo As Windows.Forms.TextBox Friend WithEvents Panel1 As Windows.Forms.Panel Friend WithEvents txt50x1 As Windows.Forms.TextBox Friend WithEvents Label8 As Windows.Forms.Label Friend WithEvents cbxoverwrite As Windows.Forms.CheckBox - Friend WithEvents cbxTeilzeit As Windows.Forms.CheckBox - Friend WithEvents txtberAusz25 As Windows.Forms.TextBox - Friend WithEvents cx25 As Windows.Forms.CheckBox - Friend WithEvents cbx50 As Windows.Forms.CheckBox - Friend WithEvents cbx100 As Windows.Forms.CheckBox - Friend WithEvents txtAuszManuell As Windows.Forms.TextBox - Friend WithEvents PictureBox1 As Windows.Forms.PictureBox End Class diff --git a/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmUeberstundenauszahlen.resx b/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmUeberstundenauszahlen.resx index 77cf7cf0..3fd7695d 100644 --- a/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmUeberstundenauszahlen.resx +++ b/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmUeberstundenauszahlen.resx @@ -120,183 +120,4 @@ 17, 17 - - - - iVBORw0KGgoAAAANSUhEUgAAAgAAAAIACAYAAAD0eNT6AAAABGdBTUEAALGOfPtRkwAAACBjSFJNAACH - DwAAjA8AAP1SAACBQAAAfXkAAOmLAAA85QAAGcxzPIV3AAAKOWlDQ1BQaG90b3Nob3AgSUNDIHByb2Zp - bGUAAEjHnZZ3VFTXFofPvXd6oc0wAlKG3rvAANJ7k15FYZgZYCgDDjM0sSGiAhFFRJoiSFDEgNFQJFZE - sRAUVLAHJAgoMRhFVCxvRtaLrqy89/Ly++Osb+2z97n77L3PWhcAkqcvl5cGSwGQyhPwgzyc6RGRUXTs - AIABHmCAKQBMVka6X7B7CBDJy82FniFyAl8EAfB6WLwCcNPQM4BOB/+fpFnpfIHomAARm7M5GSwRF4g4 - JUuQLrbPipgalyxmGCVmvihBEcuJOWGRDT77LLKjmNmpPLaIxTmns1PZYu4V8bZMIUfEiK+ICzO5nCwR - 3xKxRoowlSviN+LYVA4zAwAUSWwXcFiJIjYRMYkfEuQi4uUA4EgJX3HcVyzgZAvEl3JJS8/hcxMSBXQd - li7d1NqaQffkZKVwBALDACYrmcln013SUtOZvBwAFu/8WTLi2tJFRbY0tba0NDQzMv2qUP91829K3NtF - ehn4uWcQrf+L7a/80hoAYMyJarPziy2uCoDOLQDI3fti0zgAgKSobx3Xv7oPTTwviQJBuo2xcVZWlhGX - wzISF/QP/U+Hv6GvvmckPu6P8tBdOfFMYYqALq4bKy0lTcinZ6QzWRy64Z+H+B8H/nUeBkGceA6fwxNF - hImmjMtLELWbx+YKuGk8Opf3n5r4D8P+pMW5FonS+BFQY4yA1HUqQH7tBygKESDR+8Vd/6NvvvgwIH55 - 4SqTi3P/7zf9Z8Gl4iWDm/A5ziUohM4S8jMX98TPEqABAUgCKpAHykAd6ABDYAasgC1wBG7AG/iDEBAJ - VgMWSASpgA+yQB7YBApBMdgJ9oBqUAcaQTNoBcdBJzgFzoNL4Bq4AW6D+2AUTIBnYBa8BgsQBGEhMkSB - 5CEVSBPSh8wgBmQPuUG+UBAUCcVCCRAPEkJ50GaoGCqDqqF6qBn6HjoJnYeuQIPQXWgMmoZ+h97BCEyC - qbASrAUbwwzYCfaBQ+BVcAK8Bs6FC+AdcCXcAB+FO+Dz8DX4NjwKP4PnEIAQERqiihgiDMQF8UeikHiE - j6xHipAKpAFpRbqRPuQmMorMIG9RGBQFRUcZomxRnqhQFAu1BrUeVYKqRh1GdaB6UTdRY6hZ1Ec0Ga2I - 1kfboL3QEegEdBa6EF2BbkK3oy+ib6Mn0K8xGAwNo42xwnhiIjFJmLWYEsw+TBvmHGYQM46Zw2Kx8lh9 - rB3WH8vECrCF2CrsUexZ7BB2AvsGR8Sp4Mxw7rgoHA+Xj6vAHcGdwQ3hJnELeCm8Jt4G749n43PwpfhG - fDf+On4Cv0CQJmgT7AghhCTCJkIloZVwkfCA8JJIJKoRrYmBRC5xI7GSeIx4mThGfEuSIemRXEjRJCFp - B+kQ6RzpLuklmUzWIjuSo8gC8g5yM/kC+RH5jQRFwkjCS4ItsUGiRqJDYkjiuSReUlPSSXK1ZK5kheQJ - yeuSM1J4KS0pFymm1HqpGqmTUiNSc9IUaVNpf+lU6RLpI9JXpKdksDJaMm4ybJkCmYMyF2TGKQhFneJC - YVE2UxopFykTVAxVm+pFTaIWU7+jDlBnZWVkl8mGyWbL1sielh2lITQtmhcthVZKO04bpr1borTEaQln - yfYlrUuGlszLLZVzlOPIFcm1yd2WeydPl3eTT5bfJd8p/1ABpaCnEKiQpbBf4aLCzFLqUtulrKVFS48v - vacIK+opBimuVTyo2K84p6Ss5KGUrlSldEFpRpmm7KicpFyufEZ5WoWiYq/CVSlXOavylC5Ld6Kn0Cvp - vfRZVUVVT1Whar3qgOqCmrZaqFq+WpvaQ3WCOkM9Xr1cvUd9VkNFw08jT6NF454mXpOhmai5V7NPc15L - Wytca6tWp9aUtpy2l3audov2Ax2yjoPOGp0GnVu6GF2GbrLuPt0berCehV6iXo3edX1Y31Kfq79Pf9AA - bWBtwDNoMBgxJBk6GWYathiOGdGMfI3yjTqNnhtrGEcZ7zLuM/5oYmGSYtJoct9UxtTbNN+02/R3Mz0z - llmN2S1zsrm7+QbzLvMXy/SXcZbtX3bHgmLhZ7HVosfig6WVJd+y1XLaSsMq1qrWaoRBZQQwShiXrdHW - ztYbrE9Zv7WxtBHYHLf5zdbQNtn2iO3Ucu3lnOWNy8ft1OyYdvV2o/Z0+1j7A/ajDqoOTIcGh8eO6o5s - xybHSSddpySno07PnU2c+c7tzvMuNi7rXM65Iq4erkWuA24ybqFu1W6P3NXcE9xb3Gc9LDzWepzzRHv6 - eO7yHPFS8mJ5NXvNelt5r/Pu9SH5BPtU+zz21fPl+3b7wX7efrv9HqzQXMFb0ekP/L38d/s/DNAOWBPw - YyAmMCCwJvBJkGlQXlBfMCU4JvhI8OsQ55DSkPuhOqHC0J4wybDosOaw+XDX8LLw0QjjiHUR1yIVIrmR - XVHYqLCopqi5lW4r96yciLaILoweXqW9KnvVldUKq1NWn46RjGHGnIhFx4bHHol9z/RnNjDn4rziauNm - WS6svaxnbEd2OXuaY8cp40zG28WXxU8l2CXsTphOdEisSJzhunCruS+SPJPqkuaT/ZMPJX9KCU9pS8Wl - xqae5Mnwknm9acpp2WmD6frphemja2zW7Fkzy/fhN2VAGasyugRU0c9Uv1BHuEU4lmmfWZP5Jiss60S2 - dDYvuz9HL2d7zmSue+63a1FrWWt78lTzNuWNrXNaV78eWh+3vmeD+oaCDRMbPTYe3kTYlLzpp3yT/LL8 - V5vDN3cXKBVsLBjf4rGlpVCikF84stV2a9021DbutoHt5turtn8sYhddLTYprih+X8IqufqN6TeV33za - Eb9joNSydP9OzE7ezuFdDrsOl0mX5ZaN7/bb3VFOLy8qf7UnZs+VimUVdXsJe4V7Ryt9K7uqNKp2Vr2v - Tqy+XeNc01arWLu9dn4fe9/Qfsf9rXVKdcV17w5wD9yp96jvaNBqqDiIOZh58EljWGPft4xvm5sUmoqb - PhziHRo9HHS4t9mqufmI4pHSFrhF2DJ9NProje9cv+tqNWytb6O1FR8Dx4THnn4f+/3wcZ/jPScYJ1p/ - 0Pyhtp3SXtQBdeR0zHYmdo52RXYNnvQ+2dNt293+o9GPh06pnqo5LXu69AzhTMGZT2dzz86dSz83cz7h - /HhPTM/9CxEXbvUG9g5c9Ll4+ZL7pQt9Tn1nL9tdPnXF5srJq4yrndcsr3X0W/S3/2TxU/uA5UDHdavr - XTesb3QPLh88M+QwdP6m681Lt7xuXbu94vbgcOjwnZHokdE77DtTd1PuvriXeW/h/sYH6AdFD6UeVjxS - fNTws+7PbaOWo6fHXMf6Hwc/vj/OGn/2S8Yv7ycKnpCfVEyqTDZPmU2dmnafvvF05dOJZ+nPFmYKf5X+ - tfa5zvMffnP8rX82YnbiBf/Fp99LXsq/PPRq2aueuYC5R69TXy/MF72Rf3P4LeNt37vwd5MLWe+x7ys/ - 6H7o/ujz8cGn1E+f/gUDmPP8usTo0wAAAAlwSFlzAAALEgAACxIB0t1+/AAAHeBJREFUeF7t2VtuI0nT - bdu/VaeNp9ffViEzoQunJF4iyAi38TBeHJUSudzMl4D6v//9738AwDB5CACsLQ8BgLXlIQCwtjwEANaW - hwDA2vIQAFhbHgIAa8tDAGBteQgArC0PAYC15SEAsLY8BADWlocAwNryEABYWx4CAGvLQwBgbXkIAKwt - DwGAteUhALC2PAQA1paHAMDa8hAAWFseAgBry0MAYG15CACsLQ8BgLXlIQCwtjwEANaWhwDA2vIQAFhb - HgIAa8tDAGBteQgArC0PAYC15SEAsLY8BADWlocAwNryEABYWx4CAGvLQwBgbXkIAKwtDwGAteUhALC2 - PAQA1paHAMDa8hAAWFseAgBry0MAYG15CACsLQ8BgLXlIQCwtjwEANaWhwDA2vIQAFhbHgIAa8tDAGBt - eQgArC0PAYC15SEAsLY8BADWlocAwNryEABYWx4CAGvLw0n+7//7/+Fs/ndA9TmBI6tSnCRDgdepcl1F - fV/gVaoUJ8lQYH9VkFNVPsDeqhQnyVBgW1V6/KxyBLZUpThJhgL3qzJjG5U3cK8qxUkyFLheFRXPUfcB - XKtKcZIMBb5XRcQx1H0B36lSnCRDgc+qbDi2ukfgoyrFSTIUpqtC4dzqnmG2KsVJMhQmqtJgTXX/ME+V - 4iQZClNUOTBLzQXMUKU4SYbC6qoImK3mBNZWpThJhsKK6tGHUvMD66lSnCRDYSX1wMO1aqZgDVWKk2Qo - nF095PCImjM4tyrFSTIUzqoebthSzR2cU5XiJBkKZ1MPNeytZhHOo0pxkgyFM6gHGV6h5hOOr0pxkgyF - I6sHGI6g5hWOq0pxkgyFI6oHF46o5heOp0pxkgyFI6kHFs6g5hmOo0pxkgyFI6gHFc6o5hter0pxkgyF - V6oHFFZQ8w6vU6U4SYbCq9SjCaup2Yfnq1KcJEPh2eqRhJXVHsBzVSlOkqHwLPUwwiS1F/AcVYqTZCjs - rR5CmKz2BPZVpThJhsKe6vEDel9gP1WKk2Qo7KEePOBS7Q9sr0pxkgyFrdUjB/ysdgm2U6U4SYbCVupR - A65XewXbqFKcJEPhUfWQAferPYPHVClOkqHwiHq8gMfVvsH9qhQnyVC4Vz1awLZq9+B2VYqTZCjcqh4p - YD+1h3CbKsVJMhRuUY8T8By1k3CdKsVJMhSuUY8R8Hy1n/C7KsVJMhR+U48Q8Dq1p/CzKsVJMhR+Uo8P - cAy1s9CqFCfJUCj12ADHU/sLl6oUJ8lQ+KoeGeC4ao/hsyrFSTIUPqrHBTi+2md4V6U4SYbCP/WoAOdS - uw3+AMhQqEcEOK/ac6arUpwkQ5mtHg/g/GrfmaxKcZIMZa56NIB11N4zVZXiJBnKTPVYAOup/WeiKsVJ - MpR56pEA1lXvANNUKU6SocxSjwMwQ70JTFGlOEmGMkM9BsA89T4wQZXiJBnK+uoRAOaqd4LVVSlOkqGs - rZYfoN4LVlalOEmGsq5aeoB/6t1gVVWKk2Qoa6plB/iq3g9WVKU4SYaynlpygO/UO8JqqhQnyVDWUssN - 8Jt6T1hJleIkGco6aqkBrlXvCquoUpwkQ1lDLTPArep9YQVVipNkKOdXSwxwr3pnOLsqxUkylHOr5QV4 - VL03nFmV4iQZynnV0gJspd4dzqpKcZIM5ZxqWQG2Vu8PZ1SlOEmGcj61pAB7qXeIs6lSnCRDOZ9aUIA9 - 1VvEmVQpTpKhnEstJrPUXOypPgPz1GxwJlWKk2Qo51FLyZrq/o+oPjvrqhngLKoUJ8lQzqGWkTXUfZ9d - fU/WUPfNGVQpTpKhHF8tIedVd7y6yoHzqjvm6KoUJ8lQjq2Wj3Ope52ucuJc6l45sirFSTKU46ql4/jq - LvleZcg51H1yVFWKk2Qox1ULxzHV/XG7ypbjqjvkqKoUJ8lQjqmWjeOpu2MblTfHU3fHEVUpTpKhHE8t - GcdRd8a+6h44jrozjqZKcZIM5VhquTiGui+eq+6FY6j74kiqFCfJUI6jlorXqnviGOq+eK26J46iSnGS - DOU4aqF4jbofjqnuj9eo++EoqhQnyVCOoZaJ56u74RzqPnm+uhuOoEpxkgzl9WqJeK66F86p7pfnqnvh - 1aoUJ8lQXquWh+epO2ENdd88T90Jr1SlOEmG8lq1OOyv7oI11f2zv7oLXqlKcZIM5XVqadhX3QPrq1lg - f3UXvEqV4iQZymvUsrCvugdmqblgX3UPvEKV4iQZymvUorCPyp/Zak7YR+XPK1QpTpKhPF8tCdur7OGf - mhn2UfnzbFWKk2Qoz1XLwfYqeyg1P2yvsueZqhQnyVCeqxaD7VTm8JuaJbZVufNMVYqTZCjPU0vBdipz - uEXNFdupzHmWKsVJMpTnqGVgG5U33KtmjO1U5jxDleIkGcpz1CLwuMoatlDzxuMqa56hSnGSDGV/tQQ8 - rrKGLdXc8bjKmr1VKU6Soeyrhp/HVM6wl5pBHlM5s7cqxUkylH3V8HO/yhieoeaR+1XG7KlKcZIMZT81 - 9NyvMoZnqrnkfpUxe6lSnCRD2U8NPPepfOEVaj65T+XLXqoUJ8lQ9lHDzn0qX3ilmlPuU/myhyrFSTKU - 7dWQc7vKFo6iZpbbVbbsoUpxkgxlezXk3KZyhSOq+eU2lStbq1KcJEPZVg03t6lc4chqjrlN5cqWqhQn - yVC2VYPN9SpTOIOaZ65XmbKlKsVJMpTt1FBzvcoUzqTmmutVpmylSnGSDGU7NdBcp/KEM6r55jqVJ1up - UpwkQ9lGDTPXqTzhzGrOuU7lyRaqFCfJULZRg8zvKktYQc07v6ss2UKV4iQZyuNqiPldZQkrqbnnd5Ul - j6pSnCRDeVwNMD+rHGFFNf/8rHLkUVWKk2Qoj6nh5WeVI6ys9oCfVY48okpxkgzlMTW4fK8yhNXVLvCz - ypFHVClOkqHcr4aW71WGMEXtBD+rHLlXleIkGcp9alj5WeUIk9Re8L3KkHtVKU6SodynhpXvVYYwUe0H - 36sMuUeV4iQZyn1qUGmVH0xWe0Kr/LhHleIkGcrtakhplR/Q+0Kr/LhVleIkGcrtakC5VNkBf9TO0Co/ - blWlOEmGcpsaTi5VdsBntTtcquy4VZXiJBnKbWo4uVTZAZdqf7hU2XGLKsVJMpTr1VByqbIDvld7xGeV - G7eoUpwkQ7leDSWfVW7Az2qXuFTZca0qxUkylOvUMPJZ5QZcp3aKzyo3rlWlOEmGcp0aRj6r3IDr1V7x - WeXGNaoUJ8lQrlODyLvKDLhd7RfvKjOuUaU4SYbyuxpC3lVmwH1qx3hXmXGNKsVJMpTf1RDyrjID7ld7 - xrvKjN9UKU6Sofysho93lRnwuNo3/qi8+E2V4iQZys9q+Pij8gK2UTvHu8qMn1QpTpKh/KwGjz8qL2A7 - tXf8UXnxkyrFSTKU79XQ8UflBWyrdo8/Ki9+UqU4SYbyvRo6/qi8gO3V/vFH5cV3qhQnyVC+VwNHZwXs - p/aQzorvVClOkqG0GjY6K2BftYt0VnynSnGSDKXVsNFZAfurfaSzolQpTpKhtBq06Son4DlqJ+msKFWK - k2Qol2rI6KyA56m9nK5yolQpTpKhXKohm65yAp6rdpPOiq+qFCfJUC7VgE1XOQHPV/s5XeXEV1WKk2Qo - n9VwTVc5Aa9ROzpd5cRXVYqTZCif1XBNVzkBr1N7Ol3lxEdVipNkKJ/VYE1WGQGvVbs6XeXER1WKk2Qo - 72qopqucgNerfZ2sMuKjKsVJMpR3NVSTVUbAMdTOTlYZ8VGV4iQZyrsaqskqI+A4am8nq4z4p0pxkgzl - XQ3UVJUPcCy1u5NVRvxTpThJhvJHDdNklRFwPLW/U1U+/FOlOEmG8kcN01SVD3BMtcNTVT78U6U4SYby - Rw3TVJUPcEy1w5NVRvynSnGSDKWHaLLKCDiu2uOpKh/+U6U4SYbSQzRV5QMcW+3yVJUP/6lSnCRD6SGa - qvIBjq/2eaLKhv9UKU6SofQQTVX5AMdX+zxV5UOV4iQZSg/QRJUNcA6101NVPlQpThKh1PBMVfkA51F7 - PVFlQ5XiJBFKDc9ElQ1wLrXbE1U2VClOEqHU8ExU2QDnUrs9VeUzW5XiJBFKDc5ElQ1wPrXfE1U2s1Up - TvIlkBqaib7mApxX7fhElc1sVYqTfAmkhmair7kA51U7PlFlM1uV4iRfAqmhmehrLsC51Z5PU7nMVqU4 - yZdAamgm+poLcG615xNVNnNVKU7yJZAamGm+ZgKcX+36RJXNXFWKk3wJpAZmmq+ZAOdXuz5RZTNXleIk - H8KoYZnoYybAOmrfp6lc5qpSnORDGDUs03zMA1hL7fw0lctcVYqTfAijhmWaj3kAa6mdn6ZymatKcZIP - YdSwTPMxD2AttfMTVTYzVSlO8iGMGpRpPuYBrKf2fprKZaYqxUk+hFGDMs3HPID11N5PU7nMVKU4yd8g - akim+TwYwIpq96epXGaqUpzkbxA1JNN8HgxgRbX701QuM1UpTvI3iBqSaT4PBrCq2v9JKpOZqhQn+RtE - Dck0nwcDWFXt/ySVyUxVipP8DaKGZJrPgwGsqvZ/kspkpirFSf4GUUMyyeehAFZWb8A0lcs8VYqT/A2i - BmSSz0MBrKzegGkql3mqFCf5G0QNyCSfhwJYWb0B01Qu81QpTvIWQg3HNJeDAays3oFJKpN5qhQneQuh - hmOay8EAVlbvwCSVyTxVipO8hVDDMc3lYAArq3dgkspknirFSd5CqOGY5HIogNXVWzBJZTJPleIkbyHU - cExyORTA6uotmKQymadKcZK3EGo4JrkcCjivmnGgVClOkqHM8vUBhbOrOQe+qlKcJEOZ5evjCSuoWQfe - +V8AEco0Xx9OWEXNO/BvR6oUJ/kSykQfH0xYTc08TPa+H1WKk3wIZar3YYA11dzDRJ93o0pxkr+hTPZ5 - IGBNNfswzee9qFKc5G8ok30eCFhXzT9McbkTVYqTvIVQQU1yORSwrtoBWF3tgj8A3kKosCa5HApYW+0B - rKp24I8qxUneQqjAJrkcClhb7QGsqOb/XZXiJG8hVGiTXA4FrK92AVZSc/9ZleIkbyFUcJNcDgXMUPsA - K6h5v1SlOMlbCBXeFJcDAbPUXsCZ1Zy3KsVJ3kKoAKe4HAiYp3YDzqpmvFUpTvIWQgU4yeVQwDy1G3A2 - Ndvfq1Kc5C2ECnGSy6GAmWo/4Cxqpn9WpTjJWwgV5CSXQwFz1Y7A0dUs/65KcZK3ECrMSS6HAmarPYGj - qhm+TpXiJG8hVKCTXA4FULsCR1Oze70qxUneQqhQJ7kcCuA/tS9wFDWzt6lSnOQthAp2ksuhAP6pnYFX - q1m9XZXiJG8hVLiTXA4F8FHtDbxSzentqhQneQuhwp3kciiAr2p34BVqPu9TpTjJWwgV8CSXQwGU2h94 - pprL+1UpTvIWQoU8yeVQAN+pHYJnqHl8TJXiJG8hVNCTXA4F8JPaI9hTzeHjqhQneQuhwp7kciiA39Qu - wR5q/rZRpTjJWwgV+CSXQwFco/YJtlRzt50qxUneQqjQJ7kcCuBatVOwhZq3bVUpTvIWQgU/zeVgANeq - nYJH1axtq0pxkrcQKvhpLgcDuEXtFdyrZmx7VYqTvIVQ4U9zORjArWq34FY1W/uoUpzkbxB1CZN8Hgrg - XrVfcK2aqf1UKU7yN4i6iEk+DwXwiNox+E3N0r6qFCf5G0RdxiSfhwJ4VO0ZfKdmaH9VipP8DaIuZJrP - gwE8qvYMvqrZeY4qxUn+BlGXMs3nwQC2ULsG/9TMPE+V4iR/g6iLmebzYABbqX2D/9S8PE+V4iR/g6iL - mebzYABbqp1jtpqT56pSnORvEHU503weDGBrtXfMVPPxfFWKk3wIoy5pmo95ANurvWOWmovXqFKc5EMY - dVHTfMwD2EftHjPUPLxOleIkH8Koy5rmYx7Afmr/WFvNwWtVKU7yIYy6sGk+5gHsq3aQNdX9v16V4iQf - wqhLm+ZjHsD+ag9ZS937MVQpTvIhjLq4iT5mAuyv9pA11H0fR5XiJF8CqQuc5msmwP5qFzm/uuvjqFKc - 5EsgdYHTfM0EeI7aR86r7vhYqhQn+RJIXeJEX3MBnqP2kfOpuz2eKsVJvgRSFznR11yA56md5DzqTo+p - SnGSL4HUZU70NRfguWovOb66y+OqUpzkSyB1oRN9zQV4vtpNjqvu8NiqFCeJUOpiJ6psgOeq3eR46u6O - r0pxkgilLneiygZ4vtpPjqPu7ByqFCeJUOqCJ6psgNeoHeUY6r7OoUpxkgilLniqygd4jdpRXqvu6Tyq - FCfJUPqiJ6psgNepPeU16n7OpUpxkgylL3uqygd4ndpTnqvu5XyqFCfJUPrCp6p8gNeqXeU56j7OqUpx - kgylL32qygd4vdpX9lX3cF5VipNkKH3xk1VGwOvVvrKPyv/cqhQnyVD+qAGYqvIBjqF2lm1V7udXpThJ - hvJHDcFUlQ9wHLW3bKcyP78qxUkylD9qCCarjIDjqL3lcZX1GqoUJ8lQ3tUwTFX5AMdSu8v9KuN1VClO - kqG8q4GYrDICjqV2l9tVtmupUpwkQ3lXQzFZZQQcS+0ut6lc11OlOEmG8q4GY7rKCTiW2l2uU3muqUpx - kgzlsxqQySoj4Hhqf/lZ5biuKsVJMpTPakimq5yA46n9pVV+a6tSnCRD+awGZbrKCTim2mEuVXZrq1Kc - JEO5VMMyXeUEHFPtMO8qs/VVKU6SoVyqgZmucgKOq/aYzmqGKsVJMpRLNTR0VsBx1R5PVhnNUaU4SYbS - animq5yAY6tdnqiymaVKcZIMpdUA0VkBx1a7PEllMk+V4iQZSqshorMCjq/2eYLKYqYqxUkylO/VMNFZ - AcdX+7yyymCuKsVJMpTv1UDxR+UFHF/t84rqu89WpThJhvK9Gir+qLyAc6idXk1979mqFCfJUH5Wg8Uf - lRdwDrXTq6jvS5XiJBnKz2q4+KPyAs6j9vrs6nvynyrFSTKUn9WA8a4yA86j9vqs6vvxT5XiJBnK72rQ - eFeZAedRe3029b34qEpxkgzldzVsvKvMgHOp3T6L+j58VaU4SYZynRo63lVmwLnUbh9dfQ9KleIkGcp1 - avD4rHIDzqV2+6jq8/OdKsVJMpTr1PDxWeUGnE/t9xHVZ+c7VYqTZCjXqwHks8oNOJ/a7yOpz8xPqhQn - yVCuV0PIpcoOOJ/a7yOoz8pvqhQnyVBuU8PIpcoOOJ/a71eqz8g1qhQnyVBuUwPJpcoOOKfa8Veoz8a1 - qhQnyVBuV4PJpcoOOKfa8Weqz8QtqhQnyVBuV8NJq/yAc6odf4b6LNyqSnGSDOU+NaS0yg84p9rxPdVn - 4B5VipNkKPepQeV7lSFwTrXje6nfzz2qFCfJUO5Tg8rPKkfgnGrHt1a/l3tVKU6SodyvBpbvVYbAedWe - b6V+H4+oUpwkQ3lMDS7fqwyB86o9f1T9Hh5VpThJhvKYGl5+VjkC51V7fq/6+WyhSnGSDOVxNcT8rHIE - zqv2/Fb1c9lKleIkGcrjapD5XWUJnFft+bXq57GlKsVJMpRt1EDzu8oSOK/a89/Uz2FrVYqTZCjbqKHm - OpUncF615z+pn8HWqhQnyVC2U4PNdSpP4Lxqz0v9W/ZQpThJhrKdGm6uV5kC51V7/lH9G/ZSpThJhrKt - GnKuV5kC51V7/p/6b9lTleIkGcq2atC5TeUKnJcdP4IqxUkylO19HXZuV7kC52W3X61KcZIMZXsfi4z7 - VbYA3KNKcZIMZR9VaNyn8gXgFlWKk2Qo+6ky4z6VLwDXqlKcJEPZTxUZ96uM4ZnMIudVpThJhrKvjwXG - 4ypjeAazyLlVKU6Soezr66PB4ypn2EvN4D/138MxVSlOkqHsrx4OHldZw5Zq7r6qfwfHU6U4SYbyHPVw - 8LjKGrZQ8/ad+vdwLFWKk2Qoz1GPBtuovOFeNWPXqJ8Fx1GlOEmG8jz1aLCdyhxuUXN1i/qZcAxVipNk - KM9VjwbbqczhNzVL96qfD69XpThJhvJc9WCwvcoeSs3Po+r3wGtVKU6SoTxfPRhsr7KHf2pmtlS/E16n - SnGSDOU16sFgH5U/s9Wc7KF+N7xGleIkGcpr1GPBvuoemKXmYk/1GeA1qhQnyVBepx4M9lX3wPpqFp6l - Pg88X5XiJBnKa9WDwf7qLlhP3f0r1GeD56pSnCRDea16LHieuhPWUPf9SvUZ4XmqFCfJUF6vHgueq+6F - c6r7PYr6vPAcVYqTZCjHUI8Fz1d3wznUfR5RfXbYX5XiJBnKcdRjwWvU/XA8dXdnUN8F9lWlOEmGchz1 - UPBadU+8Xt3V2dT3gv1UKU6SoRxLPRQcQ90Xz1X3cmb1HWEfVYqTZCjHUw8Fx1F3xn7qDlZS3xm2V6U4 - SYZyTPVQcDx1d2yj8l5VfX/YVpXiJBnKcdVDwXHVHXKbynWKygO2U6U4SYZyXPVIcHx1l3yvMpyq8oFt - VClOkqEcWz0SnEvd62SVEe8qM3hcleIkGcrx1SPBedUdr65y4HuVITymSnGSDOUc6pFgDXXfZ1bfkdtV - tnC/KsVJMpTzqEeCNdX9H1F9drZRecP9qhQnyVDOpR4KZqm52FN9Bp6j7gPuU6U4SYZyPvVQAGuqNwBu - V6U4SYZyPvVIAOuqdwBuU6U4SYZyTvVIAOuqdwCuV6U4SYZyXvVIAOuqdwCuU6U4SYZybvVIAOuqdwB+ - V6U4SYZyfvVIAOuqdwB+VqU4SYayhnokgHXVOwDfq1KcJENZRz0SwLrqHYBWpThJhrKWeiSAddU7AJeq - FCfJUNZTjwSwrnoH4LMqxUkylDXVIwGsq94BeFelOEmGsq56JIB11TsAf1QpTpKhrK0eCWBd9Q6APwAy - lPXVIwGsqd4A8AdAhjJDPRTAmuoNYLoqxUkylFnqsQDWU/vPZFWKk2Qo89RjAayn9p+pqhQnyVBmqscC - WE/tPxNVKU6SocxVjwWwjtp7pqpSnCRDma0eDeD8at+ZrEpxkgyFejyAc6odB38AZCj8U48JcB611/BH - leIkGQof1aMCHF/tM7yrUpwkQ+GrelyAY6odhktVipNkKJR6aIBjqd2FVqU4SYbCT+rRAV6v9hW+V6U4 - SYbCb+rxAV6n9hR+VqU4SYbCNeoRAp6rdhOuU6U4SYbCLepRAvZX+wjXq1KcJEPhVvU4AfuoHYTbVSlO - kqFwr3qsgO3U3sF9qhQnyVB4RD1awONq3+B+VYqTZCg8qh4v4D61Y/C4KsVJMhS2Uo8ZcL3aK9hGleIk - GQpbq4cN+F7tEWyrSnGSDIU91CMHfFa7A/uoUpwkQ2FP9egBvS+wnyrFSTIU9laPH0xVOwL7q1KcJEPh - WeoxhClqJ+B5qhQnyVB4tnocYWW1B/BcVYqTZCi8Sj2UsJKae3iNKsVJMhReqR5NOLuadXitKsVJMhSO - oB5ROJuabTiGKsVJMhSOpB5VOLqaZTiWKsVJMhSOqB5ZOJqaXTimKsVJMhSOrB5deLWaVTi2KsVJMhTO - oB5heLaaTTiHKsVJMhTOph5m2FPNIZxLleIkGQpnVQ81bKnmDs6pSnGSDIWzq4cb7lUzBudXpThJhsJK - 6kGHa9Q8wTqqFCfJUFhRPfBQan5gPVWKk2QorK4efWarOYG1VSlOkqEwRRUBc9RMwBxVipNkKExUBcF6 - 6u5hpirFSTIUpqvi4LzqjoEqxUkyFPisSoVjq3sEPqpSnCRDge9V2fB6dVfAT6oUJ8lQ4HpVRjxH3Qdw - rSrFSTIUuF8VFduovIF7VSlOkqHAtqrM+FnlCGypSnGSDAX2V6U3VeUD7K1KcZIMBV6nCnIF9V2BV6pS - nCRDgWOrgn21+pzAkVUpAgBry0MAYG15CACsLQ8BgLXlIQCwtjwEANaWhwDA2vIQAFhbHgIAa8tDAGBt - eQgArC0PAYC15SEAsLY8BADWlocAwNryEABYWx4CAGvLQwBgbXkIAKwtDwGAteUhALC2PAQA1paHAMDa - 8hAAWFseAgBry0MAYG15CACsLQ8BgLXlIQCwtjwEANaWhwDA2vIQAFhbHgIAa8tDAGBteQgArC0PAYC1 - 5SEAsLY8BADWlocAwNryEABYWx4CAGvLQwBgbXkIAKwtDwGAteUhALC2PAQA1paHAMDa8hAAWFseAgBr - y0MAYG15CACsLQ8BgLXlIQCwtjwEANaWhwDA2vIQAFhbHgIAa8tDAGBteQgArC0PAYC15SEAsLY8BADW - locAwNryEABY2f/+7/8BDPeSZgpBY8cAAAAASUVORK5CYII= - - \ No newline at end of file diff --git a/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmUeberstundenauszahlen.vb b/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmUeberstundenauszahlen.vb index ae2db613..2eab529b 100644 --- a/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmUeberstundenauszahlen.vb +++ b/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmUeberstundenauszahlen.vb @@ -1,8 +1,8 @@ - -Imports System.Text +Imports System.Runtime.InteropServices.ComTypes Imports System.Threading Imports System.Windows.Forms - +Imports Microsoft.Office.Interop.Outlook +Imports Therefore.API Public Class frmUeberstundenauszahlen @@ -14,9 +14,7 @@ Public Class frmUeberstundenauszahlen Dim tag As cFeiertage Dim auszahlugsdatum As New Date Dim maxUberstundenpruefung As Boolean = True - Dim istTeilzeit As Boolean = False - Dim faktorTeilzeit As Double = 100 - Dim stunden100ausz, stunden50ausz, stunden100auszbere, stunden50auszbere, stunden100bereitsausbezahl, stunden50bereitsausbezahlt, stunden25bereitsausbezahlt, mehrabeit, stundenlfdSaldo, stundenlfdSaldobere, overwrittenSum As Double + Dim stunden100ausz, stunden50ausz, stunden100auszbere, stunden50auszbere, stunden100bereitsausbezahl, stunden50bereitsausbezahlt, mehrabeit, stundenlfdSaldo, stundenlfdSaldobere As Double Sub New(mit_id) @@ -59,11 +57,6 @@ Public Class frmUeberstundenauszahlen End Sub - Private Sub cbxTeilzeit_CheckedChanged(sender As Object, e As EventArgs) Handles cbxTeilzeit.CheckedChanged - istTeilzeit = cbxTeilzeit.Checked - changeTeilzeit() - End Sub - Private Sub getUeberstunden(abwDatum As Boolean) Dim startdate, enddate As Date @@ -89,7 +82,7 @@ Public Class frmUeberstundenauszahlen Panel1.Enabled = True End If - Dim dt = getUeberstunden(timeaccountdt, dtResult) + Dim dt = calcUeberstunden(timeaccountdt, dtResult) fillFields(dt) dgvUeberstunden.DataSource = dt @@ -97,7 +90,7 @@ Public Class frmUeberstundenauszahlen End Sub - Private Function getUeberstunden(dtAccouts As DataTable, dtSumUeberstunden As DataTable) As DataTable + Private Function calcUeberstunden(dtAccouts As DataTable, dtSumUeberstunden As DataTable) As DataTable Dim dtmerged As DataTable If dtAccouts IsNot Nothing AndAlso dtSumUeberstunden IsNot Nothing Then @@ -147,49 +140,6 @@ Public Class frmUeberstundenauszahlen Return dtmerged End Function - Private Sub cbx100_CheckedChanged(sender As Object, e As EventArgs) Handles cbx100.CheckedChanged, cbx50.CheckedChanged, cx25.CheckedChanged - - txtAusz100.ReadOnly = Not cbx100.Checked - txtAusz50.ReadOnly = Not cbx50.Checked - txtAusz50vonSaldo.ReadOnly = Not cx25.Checked - - End Sub - - Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click - getUeberstunden(cbxabwDatum.Checked) - End Sub - - Private Sub txtAusz100_TextChanged(sender As Object, e As EventArgs) Handles txtAusz100.TextChanged, txtAusz50.TextChanged, txtAusz50vonSaldo.TextChanged - - overwrittenSum = 0 - - If cbx100.Checked AndAlso txtAusz100.Text <> "" AndAlso IsNumeric(txtAusz100.Text) AndAlso CDbl(txtAusz100.Text) >= 0 Then - stunden100auszbere = CDbl(txtAusz100.Text) - overwrittenSum += stunden100auszbere - End If - - If cbx50.Checked AndAlso txtAusz50.Text <> "" AndAlso IsNumeric(txtAusz50.Text) AndAlso CDbl(txtAusz50.Text) >= 0 Then - stunden50auszbere = CDbl(txtAusz50.Text) - overwrittenSum += stunden50auszbere - End If - - If cx25.Checked AndAlso txtAusz50vonSaldo.Text <> "" AndAlso IsNumeric(txtAusz50vonSaldo.Text) AndAlso CDbl(txtAusz50vonSaldo.Text) >= 0 Then - stundenlfdSaldobere = RoundOfDigits(txtAusz50vonSaldo.Text, 2) - overwrittenSum += stundenlfdSaldobere - End If - - If overwrittenSum > 0 Then - txtAuszManuell.Text = overwrittenSum - txtAusz.Visible = False - txtAuszManuell.Visible = True - Else - txtAusz.Visible = True - txtAuszManuell.Visible = False - - End If - - End Sub - Public Sub fillFields(dt As DataTable) '69 10-Na 22-06 @@ -207,13 +157,9 @@ Public Class frmUeberstundenauszahlen End If Next - 'alle zurücksetzen, falls im neuen Monat dieser Wert nicht mitgegeben wird! - stunden50ausz = 0 - stunden100ausz = 0 - mehrabeit = 0 stunden50bereitsausbezahlt = 0 stunden100bereitsausbezahl = 0 - stunden25bereitsausbezahlt = 0 + If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then Dim calc As Double = 0 @@ -256,15 +202,6 @@ Public Class frmUeberstundenauszahlen stunden50bereitsausbezahlt = calc End If - If r.Item("accountid") = "1553" Then - txtberAusz25.Visible = True - calc = CDbl(txtberAusz25.Text) - calc += r.Item("value") * (r.Item("multiplier") & "1") - txtberAusz25.Text = calc - stunden25bereitsausbezahlt = calc - cbxTeilzeit.Checked = True - End If - 'Berechnung von lfd Saldo im Zeitraum -> deaktiviert, es soll immer der aktuelle Saldo gezogen werden, egal in welchem Monat ich bin (22.02.2024) 'If r.Item("accountid") = "65" Then ' calc = CDbl(txtlfdSaldo.Text) @@ -275,7 +212,7 @@ Public Class frmUeberstundenauszahlen End If Next - If (stunden100bereitsausbezahl + stunden50bereitsausbezahlt + stunden25bereitsausbezahlt) > 0 Then + If (stunden100bereitsausbezahl + stunden50bereitsausbezahlt) > 0 Then picDel.Visible = True Button1.Enabled = False txtAusz.Enabled = False @@ -284,7 +221,30 @@ Public Class frmUeberstundenauszahlen txtAusz.Enabled = True End If - calxMaxauszahlbar() + stunden100auszbere = stunden100ausz * 2 + stunden50auszbere = stunden50ausz * 1.5 + + txt100x2.Text = stunden100auszbere + txt50x15.Text = stunden50auszbere + + 'If CDbl(txtlfdSaldo.Text) < 0 Or auszahlugsdatum.Month = Today.Month AndAlso auszahlugsdatum.Year = Today.Year Then + 'wenn berechneter Saldo negativ, dann ist im Regelfall das aktuelle MOnat noch nicht abgeschlossen!, daher anstatt den berechneten Saldo in overallBalance laden! + txtlfdSaldo.Text = timas.getTimeSaldo(MA.mit_timasId, "", "overallBalance") + + 'End If + + + stundenlfdSaldo = CDbl(txtlfdSaldo.Text) + stundenlfdSaldobere = stundenlfdSaldo + + stundenlfdSaldobere -= stunden100auszbere + stundenlfdSaldobere -= stunden50auszbere + stundenlfdSaldobere = Math.Round(stundenlfdSaldobere, 2) + + + If stundenlfdSaldo <= 0 Then Button1.Enabled = False + + txtSummeAuszb.Text = stundenlfdSaldo End If @@ -292,7 +252,69 @@ Public Class frmUeberstundenauszahlen Private Sub txtAusz_TextChanged(sender As Object, e As EventArgs) Handles txtAusz.TextChanged - calcUeberstunden() + + + If txtAusz.Text <> "" AndAlso IsNumeric(txtAusz.Text) Then + + Dim summeAusz = CDbl(txtAusz.Text) + If summeAusz <= 0 Then + txtAusz50vonSaldo.Text = "0" + txtAusz50.Text = "0" + txtAusz100.Text = "0" + txtAusz.Text = "0" + Button1.Enabled = False + Exit Sub + End If + + txt100x2.Text = stunden100auszbere + txt50x15.Text = stunden50auszbere + txt50x1.Text = stundenlfdSaldobere + + If stundenlfdSaldo >= summeAusz Then 'Prüfung, damit nicht zuviele ÜS ausbezahlt werden können! + + Button1.Enabled = True + + Else + If maxUberstundenpruefung Then + Button1.Enabled = False + Else + Button1.Enabled = True + End If + + End If + + + If summeAusz >= stunden100auszbere Then + txtAusz100.Text = stunden100auszbere + Else + txtAusz100.Text = summeAusz + End If + + summeAusz = Math.Round(summeAusz - stunden100auszbere, 2) + + If summeAusz >= stunden50auszbere Then + txtAusz50.Text = stunden50auszbere + summeAusz = Math.Round(summeAusz - stunden50auszbere, 2) + ElseIf summeAusz < 0 Then + txtAusz50.Text = "0" + Else + txtAusz50.Text = summeAusz + summeAusz = Math.Round(summeAusz - stunden50auszbere, 2) + End If + + If summeAusz >= stundenlfdSaldo Then + txtAusz50vonSaldo.Text = stundenlfdSaldo + summeAusz = Math.Round(summeAusz - stundenlfdSaldo, 2) + ElseIf summeAusz < 0 Then + txtAusz50vonSaldo.Text = "0" + Else + txtAusz50vonSaldo.Text = summeAusz + summeAusz = Math.Round(summeAusz - stundenlfdSaldo, 2) + End If + + End If + + End Sub @@ -316,19 +338,12 @@ Public Class frmUeberstundenauszahlen Dim sum100, sum50, sum0, gesamt As Double - sum100 = RoundOfDigits(CDbl(txtAusz100.Text) * 100 / 200, 2) 'Übergabe in ZE-System als heruntergerechnete 100%ige bzw. 50%ige ÜS! + sum100 = RoundOfDigits(CDbl(txtAusz100.Text) * 0.5, 2) 'Übergabe in ZE-System als heruntergerechnete 100%ige bzw. 50%ige ÜS! sum50 = RoundOfDigits(CDbl(txtAusz50.Text) * 100 / 150, 2) - sum0 = RoundOfDigits(CDbl(txtAusz50vonSaldo.Text) * 100 / faktorTeilzeit, 2) - gesamt = IIf(overwrittenSum > 0, overwrittenSum, CDbl(txtAusz.Text)) + sum0 = CDbl(txtAusz50vonSaldo.Text) + gesamt = CDbl(txtAusz.Text) - Dim txtAusgabe As New StringBuilder - txtAusgabe.Append("Überstunden für " & MA.mit_vname & " " & MA.mit_nname & " mit " & auszahlugsdatum.ToShortDateString() & " auszahlen?" & vbNewLine) - txtAusgabe.Append(sum100 & "x 100% ÜS :" & txtAusz100.Text & vbNewLine) - txtAusgabe.Append(IIf(Not istTeilzeit, sum50 + sum0, sum50) & "x 50% ÜS: " & CDbl(txtAusz50.Text) + IIf(Not istTeilzeit, CDbl(txtAusz50vonSaldo.Text), 0) & vbNewLine) - If istTeilzeit Then txtAusgabe.Append(sum0 & "x 25% ÜS: " & CDbl(txtAusz50vonSaldo.Text) & vbNewLine) - txtAusgabe.Append("ÜS gesamt: " & gesamt) - - Dim aksAuszahlung As MsgBoxResult = MsgBox(txtAusgabe.ToString, vbYesNo) + Dim aksAuszahlung As MsgBoxResult = MsgBox("Überstunden für " & MA.mit_vname & " " & MA.mit_nname & " mit " & auszahlugsdatum.ToShortDateString() & " auszahlen?" & vbNewLine & sum100 & "x 100% ÜS :" & txtAusz100.Text & vbNewLine & sum50 & "x 50% ÜS: " & CDbl(txtAusz50.Text) + CDbl(txtAusz50vonSaldo.Text) & vbNewLine & "ÜS gesamt: " & gesamt, vbYesNo) If aksAuszahlung = vbYes Then Dim dtsetEntries As New DataTable @@ -336,28 +351,28 @@ Public Class frmUeberstundenauszahlen dtsetEntries.Columns.Add("accountid", GetType(Integer)) dtsetEntries.Columns.Add("value", GetType(String)) - If sum100 > 0 Then + If sum100 >= 0 Then Dim row = dtsetEntries.NewRow row.Item("accountid") = 1550 row.Item("value") = sum100.ToString.Replace(",", ".") dtsetEntries.Rows.InsertAt(row, dtsetEntries.Rows.Count) End If - If sum50 > 0 Then + If sum50 >= 0 Then Dim row = dtsetEntries.NewRow row.Item("accountid") = 1551 row.Item("value") = sum50.ToString.Replace(",", ".") dtsetEntries.Rows.InsertAt(row, dtsetEntries.Rows.Count) End If - If sum0 > 0 Then + If sum0 >= 0 Then Dim row = dtsetEntries.NewRow - row.Item("accountid") = IIf(istTeilzeit, 1553, 1551) + row.Item("accountid") = 1551 row.Item("value") = sum0.ToString.Replace(",", ".") dtsetEntries.Rows.InsertAt(row, dtsetEntries.Rows.Count) End If - If gesamt > 0 Then 'vom ldf Saldo, ev. über API Möglich monatliche Korrektur direkt zu befüllen, dann muss dieser If Zweig überarbeitet werden!!!!!!!!!!!!!! + If gesamt >= 0 Then 'vom ldf Saldo, ev. über API Möglich monatliche Korrektur direkt zu befüllen, dann muss dieser If Zweig überarbeitet werden!!!!!!!!!!!!!! Dim row = dtsetEntries.NewRow row.Item("accountid") = 993 row.Item("value") = gesamt.ToString.Replace(",", ".") @@ -368,17 +383,11 @@ Public Class frmUeberstundenauszahlen ues.uest_timasId = MA.mit_timasId ues.uest_100 = sum100 ues.uest_50 = sum50 - ues.uest_overwriteValue = IIf(cbx100.Checked Or cbx50.Checked Or cx25.Checked, True, False) + ues.uest_0 = sum0 ues.uest_systemuser = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME ues.uest_ignoreLimit = Not maxUberstundenpruefung ues.uest_maxUE = CDbl(txtSummeAuszb.Text) - If istTeilzeit Then - ues.uest_25 = sum0 - Else - ues.uest_0 = sum0 - End If - Dim info As String = "" If timas.setTimeAccountEntries(MA, dtsetEntries, auszahlugsdatum, info) AndAlso ues.SAVE() Then @@ -393,17 +402,7 @@ Public Class frmUeberstundenauszahlen End Sub Private Sub picDel_Click(sender As Object, e As EventArgs) Handles picDel.Click - - - Dim txtAusgabe As New StringBuilder - txtAusgabe.Append("Ausbezahlte Überstunden für " & MA.mit_vname & " " & MA.mit_nname & " mit " & auszahlugsdatum.ToShortDateString() & " zurücksetzen?" & vbNewLine) - txtAusgabe.Append("100% ÜS: " & txtberAusz100.Text & vbNewLine) - txtAusgabe.Append("50% ÜS: " & txtberAusz50.Text + IIf(Not istTeilzeit, CDbl(txtberAusz25.Text), 0) & vbNewLine) - If istTeilzeit Then txtAusgabe.Append("25% ÜS: " & CDbl(txtberAusz25.Text) & vbNewLine) - txtAusgabe.Append("ÜS gesamt: " & CDbl(txtberAusz100.Text) + CDbl(txtberAusz50.Text) + CDbl(txtberAusz25.Text)) - - - Dim aksAuszahlung As MsgBoxResult = MsgBox(txtAusgabe.ToString, vbYesNo) + Dim aksAuszahlung As MsgBoxResult = MsgBox("Ausbezahlte Überstunden für " & MA.mit_vname & " " & MA.mit_nname & " mit " & auszahlugsdatum.ToShortDateString() & " zurücksetzen?" & vbNewLine & "100% ÜS: " & txtberAusz100.Text & vbNewLine & "50% ÜS: " & txtberAusz50.Text & vbNewLine & "ÜS gesamt: " & CDbl(txtberAusz100.Text) + CDbl(txtberAusz50.Text), vbYesNo) If aksAuszahlung = vbYes Then Dim dtdeleteEntries As New DataTable @@ -426,18 +425,12 @@ Public Class frmUeberstundenauszahlen dtdeleteEntries.Rows.InsertAt(row, dtdeleteEntries.Rows.Count) End If - If txtberAusz25.Text <> "" AndAlso IsNumeric(txtberAusz25.Text) Then - Dim row = dtdeleteEntries.NewRow - row.Item("accountid") = 1553 - dtdeleteEntries.Rows.InsertAt(row, dtdeleteEntries.Rows.Count) - End If - If timas.deleteTimeAccounts(auszahlugsdatum, auszahlugsdatum, MA.mit_timasId, dtdeleteEntries) Then Dim ues As New cUeberstunden(MA.mit_id, auszahlugsdatum.ToString("dd/MM/yyyy")) ues.uest_deleted = True - ues.uest_lastChanged = Now() - ues.uest_systemuser = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME - ues.SAVE() + ues.uest_lastChanged = Now() + ues.uest_systemuser = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME + ues.SAVE() MsgBox("Erfolgreich aus Timas zurückgesetzt!") picDel.Visible = False