From 809ce03a150c2002597ead33bb46332a92f7d0c8 Mon Sep 17 00:00:00 2001 From: Andreas Luxbauer Date: Wed, 22 Jan 2025 09:13:57 +0100 Subject: [PATCH] Grundlegender Programmaufbau --- SDL/Classes/cEORIWebService.vb | 4 +- SDL/Fakturierung/cFakturierung.vb | 544 +++++++++--------- SDL/Fakturierung/usrCntlFaktAbrechnung.vb | 8 +- SDL/My Project/AssemblyInfo.vb | 4 +- SDL/SDL.vbproj | 9 + .../usrCntlATLAS_EXGestellung.Designer.vb | 338 +++++++++++ .../usrCntlATLAS_EXGestellung.resx | 126 ++++ .../EXGestellung/usrCntlATLAS_EXGestellung.vb | 258 +++++++++ SDL/ZOLLSYSTEM/DAKOSY/frmZollanmeldung.vb | 6 + 9 files changed, 1017 insertions(+), 280 deletions(-) create mode 100644 SDL/ZOLLSYSTEM/DAKOSY/ATLAS/EXGestellung/usrCntlATLAS_EXGestellung.Designer.vb create mode 100644 SDL/ZOLLSYSTEM/DAKOSY/ATLAS/EXGestellung/usrCntlATLAS_EXGestellung.resx create mode 100644 SDL/ZOLLSYSTEM/DAKOSY/ATLAS/EXGestellung/usrCntlATLAS_EXGestellung.vb diff --git a/SDL/Classes/cEORIWebService.vb b/SDL/Classes/cEORIWebService.vb index e17645a6..cf58237f 100644 --- a/SDL/Classes/cEORIWebService.vb +++ b/SDL/Classes/cEORIWebService.vb @@ -146,7 +146,7 @@ Public Class cEORIWebService setEORIEntry(KdNr, SendungsId, AvisoId, EORI_ERG, tmp_SESSION_ID, EORI_ERG.Result(0).Eori, VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA_ID) - Dim PdfTmp = SDL.FormularManagerNEU.EORI_PRUEFUNG(msgErgebnis, Firma, tmp_SESSION_ID, txtEORI, AvisoId, SendungsId) + Dim PdfTmp = SDL.FormularManagerNEU.EORI_PRUEFUNG(msgErgebnis, Firma, tmp_SESSION_ID, txtEORI, AvisoId, SendungsId, EORI_ERG.RequestDate) If PdfTmp <> "" Then Dim fileName = "EORI_Prüfung_" & txtEORI & ".pdf" @@ -211,7 +211,7 @@ Public Class cEORIWebService setEORIEntry(kdnr, SendungsId, AvisoId, EORI_ERG, tmp_SESSION_ID, txtEORI, VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA_ID) - Dim PdfTmp = SDL.FormularManagerNEU.EORI_PRUEFUNG(msgErgebnis, Firma, tmp_SESSION_ID, txtEORI, AvisoId, SendungsId) + Dim PdfTmp = SDL.FormularManagerNEU.EORI_PRUEFUNG(msgErgebnis, Firma, tmp_SESSION_ID, txtEORI, AvisoId, SendungsId, EORI_ERG.RequestDate) Return PdfTmp diff --git a/SDL/Fakturierung/cFakturierung.vb b/SDL/Fakturierung/cFakturierung.vb index 6b5de5e6..a94a8508 100644 --- a/SDL/Fakturierung/cFakturierung.vb +++ b/SDL/Fakturierung/cFakturierung.vb @@ -3314,74 +3314,74 @@ Public Class cFakturierung End If Else - dt = SQL.loadDgvBySql("Select * FROM Rechnungsausgang WHERE RechnungsNr is null AND VorschauID='" & VorschauID & "' ORDER BY FilialenNr, AbfertigungsNr", "FMZOLL") - End If + dt = SQL.loadDgvBySql("Select * FROM Rechnungsausgang WHERE RechnungsNr is null AND VorschauID='" & VorschauID & "' ORDER BY FilialenNr, AbfertigungsNr", "FMZOLL") + End If - Dim ROW As DataRow = IIf(dt.Rows.Count > 0, dt.Rows(0), Nothing) + Dim ROW As DataRow = IIf(dt.Rows.Count > 0, dt.Rows(0), Nothing) - Dim rpt As New rptSammelRechnungAnlagenDruck(ROW("RechnungSprache")) - rpt.DataSource = dt + Dim rpt As New rptSammelRechnungAnlagenDruck(ROW("RechnungSprache")) + rpt.DataSource = dt - Dim FIRMA As New VERAG_PROG_ALLGEMEIN.cFirmen(ROW("Firma_ID")) - Dim KD_RG As New VERAG_PROG_ALLGEMEIN.cAdressen(ROW("RechnungsKundenNr")) + Dim FIRMA As New VERAG_PROG_ALLGEMEIN.cFirmen(ROW("Firma_ID")) + Dim KD_RG As New VERAG_PROG_ALLGEMEIN.cAdressen(ROW("RechnungsKundenNr")) - If FIRMA Is Nothing Then MsgBox("Keine Firma gewählt!") : Return False + If FIRMA Is Nothing Then MsgBox("Keine Firma gewählt!") : Return False - ' Dim dataView As New DataView(dtDataSource) - ' dataView.Sort = " LeistungsNr " - ' Dim dtTmp As DataTable = dataView.ToTable() + ' Dim dataView As New DataView(dtDataSource) + ' dataView.Sort = " LeistungsNr " + ' Dim dtTmp As DataTable = dataView.ToTable() - '' MsgBox(rpt.DataSource.rows.count) - 'If rpt.DataSource.rows.count = 0 Then - ' rpt.Dispose() - ' MsgBox("Keine Daten vorhanden!") - ' Return False - 'End If + '' MsgBox(rpt.DataSource.rows.count) + 'If rpt.DataSource.rows.count = 0 Then + ' rpt.Dispose() + ' MsgBox("Keine Daten vorhanden!") + ' Return False + 'End If - Dim sum = 0 - 'Select Case RECHNUNG.[BelegartenKz] - ' Case "AR" - ' rpt.lblUeberschriftRG_GS.Text = "RECHNUNG" - ' Case "AG" - ' rpt.lblUeberschriftRG_GS.Text = "GUTSCHRIFT" - ' rpt.Label9.Text = "Gutschriftsbetrag:" - ' rpt.Label16.Text = "Gutschrifts-Nr.:" - 'End Select + Dim sum = 0 + 'Select Case RECHNUNG.[BelegartenKz] + ' Case "AR" + ' rpt.lblUeberschriftRG_GS.Text = "RECHNUNG" + ' Case "AG" + ' rpt.lblUeberschriftRG_GS.Text = "GUTSCHRIFT" + ' rpt.Label9.Text = "Gutschriftsbetrag:" + ' rpt.Label16.Text = "Gutschrifts-Nr.:" + 'End Select - 'If RECHNUNG.DruckDatumZeit IsNot Nothing Then rpt.lblUeberschriftRG_GS.Text &= " - KOPIE" - 'Dim Gesamt_RG_Betrag As Double = CDbl(dt.Compute("SUM(SteuerFreierBetrag)", "")) + CDbl(dt.Compute("SUM(SteuerpflichtigerBetrag)", "")) - ' If ROW("SteuerFreierBetrag") IsNot DBNull.Value AndAlso IsNumeric(ROW("SteuerFreierBetrag")) Then Gesamt_RG_Betrag += ROW("SteuerFreierBetrag") - ' If ROW("SteuerpflichtigerBetrag") IsNot DBNull.Value AndAlso IsNumeric(ROW("SteuerpflichtigerBetrag")) Then Gesamt_RG_Betrag += ROW("SteuerpflichtigerBetrag") - Dim BelegartenKz = "AR" 'If(Gesamt_RG_Betrag < 0, "AG", "AR") + 'If RECHNUNG.DruckDatumZeit IsNot Nothing Then rpt.lblUeberschriftRG_GS.Text &= " - KOPIE" + 'Dim Gesamt_RG_Betrag As Double = CDbl(dt.Compute("SUM(SteuerFreierBetrag)", "")) + CDbl(dt.Compute("SUM(SteuerpflichtigerBetrag)", "")) + ' If ROW("SteuerFreierBetrag") IsNot DBNull.Value AndAlso IsNumeric(ROW("SteuerFreierBetrag")) Then Gesamt_RG_Betrag += ROW("SteuerFreierBetrag") + ' If ROW("SteuerpflichtigerBetrag") IsNot DBNull.Value AndAlso IsNumeric(ROW("SteuerpflichtigerBetrag")) Then Gesamt_RG_Betrag += ROW("SteuerpflichtigerBetrag") + Dim BelegartenKz = "AR" 'If(Gesamt_RG_Betrag < 0, "AG", "AR") Select Case ROW("RechnungSprache") - Case "EN" - Select Case BelegartenKz - Case "AR" + Case "EN" + Select Case BelegartenKz + Case "AR" rpt.lblUeberschriftRG_GS.Text = IIf(Rechnugnsdruck <> 7, "Attatchment to INVOICE", "INVOICE") rpt.lblSummeUeberschrift.Text = "Invoice Amount:" - rpt.lblRgNrUeberschrift.Text = "Invoice No.:" - rpt.lblRgDatumUeberschrift.Text = "Invoice Date:" - Case "AG" + rpt.lblRgNrUeberschrift.Text = "Invoice No.:" + rpt.lblRgDatumUeberschrift.Text = "Invoice Date:" + Case "AG" rpt.lblUeberschriftRG_GS.Text = IIf(Rechnugnsdruck <> 7, "Attatchment to CREDIT NOTE", "CREDIT NOTE") rpt.lblSummeUeberschrift.Text = "Credit Amount:" - rpt.lblRgNrUeberschrift.Text = "Credit Note No.:" - rpt.lblRgDatumUeberschrift.Text = "Credit Note Date:" - End Select - Case Else - Select Case BelegartenKz - Case "AR" + rpt.lblRgNrUeberschrift.Text = "Credit Note No.:" + rpt.lblRgDatumUeberschrift.Text = "Credit Note Date:" + End Select + Case Else + Select Case BelegartenKz + Case "AR" rpt.lblUeberschriftRG_GS.Text = IIf(Rechnugnsdruck <> 7, "Anlage zur Sammelrechnung", "Sammelrechnung") Case "AG" - rpt.lblUeberschriftRG_GS.Text = "GUTSCHRIFT" - rpt.lblSummeUeberschrift.Text = "Gutschriftsbetrag:" - rpt.lblRgNrUeberschrift.Text = "Gutschrifts-Nr.:" - rpt.lblRgDatumUeberschrift.Text = "Gutschrifts-Datum:" - End Select + rpt.lblUeberschriftRG_GS.Text = "GUTSCHRIFT" + rpt.lblSummeUeberschrift.Text = "Gutschriftsbetrag:" + rpt.lblRgNrUeberschrift.Text = "Gutschrifts-Nr.:" + rpt.lblRgDatumUeberschrift.Text = "Gutschrifts-Datum:" + End Select - End Select + End Select @@ -3389,50 +3389,50 @@ Public Class cFakturierung initRgFirmaSammelRg_Bericht(rpt, FIRMA, RechnungsNr, ROW("RechnungsLandKz"), ROW("Buchungsjahr")) - Select Case ROW("Firma_ID") - Case 1 ' rpt.picVERAG.Image= My.Resources.Verag_AG_Logo : rpt.Picture1.Image = My.Resources.aeo_AT_imex is eh standard - Case 4 : rpt.picVERAG.Image = My.Resources.Verag_AG_Logo : rpt.Picture1.Image = Nothing - Case 7 : rpt.picVERAG.Image = My.Resources.Atilla_big_med : rpt.Picture1.Image = Nothing - Case 11 : rpt.picVERAG.Image = My.Resources.Verag_Customs_Service_GMBH_Logo : rpt.Picture1.Image = My.Resources.aeo_CS + Select Case ROW("Firma_ID") + Case 1 ' rpt.picVERAG.Image= My.Resources.Verag_AG_Logo : rpt.Picture1.Image = My.Resources.aeo_AT_imex is eh standard + Case 4 : rpt.picVERAG.Image = My.Resources.Verag_AG_Logo : rpt.Picture1.Image = Nothing + Case 7 : rpt.picVERAG.Image = My.Resources.Atilla_big_med : rpt.Picture1.Image = Nothing + Case 11 : rpt.picVERAG.Image = My.Resources.Verag_Customs_Service_GMBH_Logo : rpt.Picture1.Image = My.Resources.aeo_CS Case 19 : rpt.picVERAG.Image = My.Resources.VERAG_360 : rpt.Picture1.Image = Nothing Case 20 : rpt.picVERAG.Image = My.Resources.IMEX_LOGO_simple : rpt.Picture1.Image = My.Resources.aeo_AT_imex - Case 21 : rpt.picVERAG.Image = My.Resources.Unisped_logo : rpt.Picture1.Image = My.Resources.unisped_aeo_AT - Case 22 : rpt.picVERAG.Image = My.Resources.Unisped_DE_logo : rpt.Picture1.Image = My.Resources.unisped_aeo_DE - Case 23 : rpt.picVERAG.Image = My.Resources.Unisped_ZS_logo : rpt.Picture1.Image = My.Resources.unisped_aeo_ZS_AT - Case 24 : rpt.picVERAG.Image = My.Resources.ambar_simple : rpt.Picture1.Image = Nothing - Case 26 : rpt.picVERAG.Image = My.Resources.VERAG_UNISPED_Logo : rpt.Picture1.Image = Nothing - Case 17 : rpt.picVERAG.Image = My.Resources.FrontOfficeSUB_Horizontal : rpt.Picture1.Image = Nothing - End Select + Case 21 : rpt.picVERAG.Image = My.Resources.Unisped_logo : rpt.Picture1.Image = My.Resources.unisped_aeo_AT + Case 22 : rpt.picVERAG.Image = My.Resources.Unisped_DE_logo : rpt.Picture1.Image = My.Resources.unisped_aeo_DE + Case 23 : rpt.picVERAG.Image = My.Resources.Unisped_ZS_logo : rpt.Picture1.Image = My.Resources.unisped_aeo_ZS_AT + Case 24 : rpt.picVERAG.Image = My.Resources.ambar_simple : rpt.Picture1.Image = Nothing + Case 26 : rpt.picVERAG.Image = My.Resources.VERAG_UNISPED_Logo : rpt.Picture1.Image = Nothing + Case 17 : rpt.picVERAG.Image = My.Resources.FrontOfficeSUB_Horizontal : rpt.Picture1.Image = Nothing + End Select - rpt.lblKundenNr.Text = If(ROW("RechnungsKundenNr") > 0, ROW("RechnungsKundenNr"), "") - rpt.lblRgNr.Text = If(ROW("RechnungsNr") IsNot DBNull.Value, addYeartoRgNr(FIRMA.Firma_ID, ROW("Buchungsjahr")) & ROW("RechnungsNr"), "Vorschau") - rpt.lblRgDatum.Text = If(ROW("RechnungsDatum") IsNot DBNull.Value, ROW("RechnungsDatum"), "Vorschau") + rpt.lblKundenNr.Text = If(ROW("RechnungsKundenNr") > 0, ROW("RechnungsKundenNr"), "") + rpt.lblRgNr.Text = If(ROW("RechnungsNr") IsNot DBNull.Value, addYeartoRgNr(FIRMA.Firma_ID, ROW("Buchungsjahr")) & ROW("RechnungsNr"), "Vorschau") + rpt.lblRgDatum.Text = If(ROW("RechnungsDatum") IsNot DBNull.Value, ROW("RechnungsDatum"), "Vorschau") - 'rpt.lblKundenAuftragsnummer.Text = If(RECHNUNG.KdAuftragsNr, "") - 'If rpt.lblKundenAuftragsnummer.Text = String.Empty Then rpt.lblKundenAuftragsnummerUeberschrift.Visible = False + 'rpt.lblKundenAuftragsnummer.Text = If(RECHNUNG.KdAuftragsNr, "") + 'If rpt.lblKundenAuftragsnummer.Text = String.Empty Then rpt.lblKundenAuftragsnummerUeberschrift.Visible = False - 'rpt.lblAbfertigungsNr.Text = ROW("FilialenNr") & " / " & ROW("AbfertigungsNr") & " " & ROW("SpeditionsbuchUnterNr").ToString("00") - 'rpt.lblAbfertigungsDatum.Text = RECHNUNG.Abfertigungsdatum.ToShortDateString - 'rpt.lblLKWId.Text = If(RECHNUNG.AvisoID, "") + 'rpt.lblAbfertigungsNr.Text = ROW("FilialenNr") & " / " & ROW("AbfertigungsNr") & " " & ROW("SpeditionsbuchUnterNr").ToString("00") + 'rpt.lblAbfertigungsDatum.Text = RECHNUNG.Abfertigungsdatum.ToShortDateString + 'rpt.lblLKWId.Text = If(RECHNUNG.AvisoID, "") - Dim sachbearbeiterAufRechnung = getSBRgName(ROW("Firma_ID"), VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME) - rpt.lblSachbearbeiter.Text = IIf(sachbearbeiterAufRechnung = "Herr Ordu", "Verrechnung", sachbearbeiterAufRechnung) 'könnten ja mehrerer SB die Rg-Anlagen geschreiben haben - NEU + Dim sachbearbeiterAufRechnung = getSBRgName(ROW("Firma_ID"), VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME) + rpt.lblSachbearbeiter.Text = IIf(sachbearbeiterAufRechnung = "Herr Ordu", "Verrechnung", sachbearbeiterAufRechnung) 'könnten ja mehrerer SB die Rg-Anlagen geschreiben haben - NEU - rpt.lblSachbearbeiter.Text = getSBRgName(FIRMA.Firma_ID, VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME) 'könnten ja mehrerer SB die Rg-Anlagen geschreiben haben - rpt.lblFirmenbuch.Text = If(FIRMA.Firma_Firmenbuch, "").ToString.Replace("Firmenbuch: ", "").Trim - rpt.lblUID.Text = If(FIRMA.Firma_UID, "") - rpt.lblEORI.Text = If(FIRMA.Firma_EORI, "") + rpt.lblSachbearbeiter.Text = getSBRgName(FIRMA.Firma_ID, VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME) 'könnten ja mehrerer SB die Rg-Anlagen geschreiben haben + rpt.lblFirmenbuch.Text = If(FIRMA.Firma_Firmenbuch, "").ToString.Replace("Firmenbuch: ", "").Trim + rpt.lblUID.Text = If(FIRMA.Firma_UID, "") + rpt.lblEORI.Text = If(FIRMA.Firma_EORI, "") - rpt.txtKdAuftragsnummer.Text = If(ROW("KdAuftragsNr") IsNot DBNull.Value, ROW("KdAuftragsNr"), "") + rpt.txtKdAuftragsnummer.Text = If(ROW("KdAuftragsNr") IsNot DBNull.Value, ROW("KdAuftragsNr"), "") - rpt.lblRechnungAn.Text = ROW("RechnungsName 1") & vbNewLine - If ROW("RechnungsName 2") IsNot DBNull.Value AndAlso ROW("RechnungsName 2") <> "" Then rpt.lblRechnungAn.Text &= ROW("RechnungsName 2") & vbNewLine - If ROW("RechnungsName_AdressZusatz") IsNot DBNull.Value AndAlso ROW("RechnungsName_AdressZusatz") <> "" Then rpt.lblRechnungAn.Text &= ROW("RechnungsName_AdressZusatz") & vbNewLine - If ROW("RechnungsStraße") IsNot DBNull.Value AndAlso ROW("RechnungsStraße") <> "" Then rpt.lblRechnungAn.Text &= ROW("RechnungsStraße") & vbNewLine - If ROW("RechnungsOrt") IsNot DBNull.Value AndAlso ROW("RechnungsOrt") <> "" Then rpt.lblRechnungAn.Text &= ROW("RechnungsOrt") & vbNewLine + rpt.lblRechnungAn.Text = ROW("RechnungsName 1") & vbNewLine + If ROW("RechnungsName 2") IsNot DBNull.Value AndAlso ROW("RechnungsName 2") <> "" Then rpt.lblRechnungAn.Text &= ROW("RechnungsName 2") & vbNewLine + If ROW("RechnungsName_AdressZusatz") IsNot DBNull.Value AndAlso ROW("RechnungsName_AdressZusatz") <> "" Then rpt.lblRechnungAn.Text &= ROW("RechnungsName_AdressZusatz") & vbNewLine + If ROW("RechnungsStraße") IsNot DBNull.Value AndAlso ROW("RechnungsStraße") <> "" Then rpt.lblRechnungAn.Text &= ROW("RechnungsStraße") & vbNewLine + If ROW("RechnungsOrt") IsNot DBNull.Value AndAlso ROW("RechnungsOrt") <> "" Then rpt.lblRechnungAn.Text &= ROW("RechnungsOrt") & vbNewLine If ROW("RechnungsLandKz") IsNot DBNull.Value AndAlso ROW("RechnungsLandKz") <> "" Then rpt.lblRechnungAn.Text &= cProgramFunctions.getLandBez_fromISO1Land(ROW("RechnungsLandKz"), "", ROW("RechnungSprache")).ToString.ToUpper If Rechnugnsdruck = 7 Then If ROW("Text") IsNot DBNull.Value AndAlso ROW("Text") <> "" Then rpt.txtInfo.Text = vbNewLine & vbNewLine & ROW("Text") @@ -3451,238 +3451,238 @@ Public Class cFakturierung If KD_RG IsNot Nothing AndAlso If(KD_RG.Steuernummer, "") <> String.Empty Then - rpt.lblRechnung_Steuernummer.Text = If(KD_RG.LandKz, "") & " " & If(KD_RG.Steuernummer, "").ToString.Trim - ' rpt.lblRechnung_UID.Text = If(KD_RG.UstIdKz, "") & " " & If(KD_RG.UstIdNr, "").ToString.Trim - Else - rpt.lblRechnung_Steuernummer.Text = "" - ' rpt.lblRechnung_UID.Text = "" - End If - rpt.lblRechnung_Steuernummer.Visible = (rpt.lblRechnung_Steuernummer.Text <> String.Empty) - rpt.lblRechnung_Steuernummer_Ueberschrift.Visible = (rpt.lblRechnung_Steuernummer.Text <> String.Empty) + rpt.lblRechnung_Steuernummer.Text = If(KD_RG.LandKz, "") & " " & If(KD_RG.Steuernummer, "").ToString.Trim + ' rpt.lblRechnung_UID.Text = If(KD_RG.UstIdKz, "") & " " & If(KD_RG.UstIdNr, "").ToString.Trim + Else + rpt.lblRechnung_Steuernummer.Text = "" + ' rpt.lblRechnung_UID.Text = "" + End If + rpt.lblRechnung_Steuernummer.Visible = (rpt.lblRechnung_Steuernummer.Text <> String.Empty) + rpt.lblRechnung_Steuernummer_Ueberschrift.Visible = (rpt.lblRechnung_Steuernummer.Text <> String.Empty) - rpt.lblRechnung_UID.Text = If(ROW("RechnungsUstIdKz") IsNot DBNull.Value, ROW("RechnungsUstIdKz"), "") & If(ROW("RechnungsUstIdNr") IsNot DBNull.Value, ROW("RechnungsUstIdNr"), "") - rpt.lblRechnung_UID.Visible = (rpt.lblRechnung_UID.Text <> String.Empty) - rpt.lblRechnung_UID_Ueberschrift.Visible = (rpt.lblRechnung_UID.Text <> String.Empty) + rpt.lblRechnung_UID.Text = If(ROW("RechnungsUstIdKz") IsNot DBNull.Value, ROW("RechnungsUstIdKz"), "") & If(ROW("RechnungsUstIdNr") IsNot DBNull.Value, ROW("RechnungsUstIdNr"), "") + rpt.lblRechnung_UID.Visible = (rpt.lblRechnung_UID.Text <> String.Empty) + rpt.lblRechnung_UID_Ueberschrift.Visible = (rpt.lblRechnung_UID.Text <> String.Empty) If Rechnugnsdruck = 7 Then rpt.lblSteuerfreiUeberschrift.Text = "DURCHLAUFPOSTEN/nicht steuerbar" Dim sumSteuerpflichtig As Double = 0 - Dim sumSteuerfrei As Double = 0 + Dim sumSteuerfrei As Double = 0 - AddHandler rpt.Detail.Format, Sub() - ' rpt.lblVon.Text = CDate(rpt.Fields.Item("von").Value).ToShortDateString - ' rpt.lblLKWNr.Text = CDate(rpt.Fields.Item("bis").Value).ToShortDateString + AddHandler rpt.Detail.Format, Sub() + ' rpt.lblVon.Text = CDate(rpt.Fields.Item("von").Value).ToShortDateString + ' rpt.lblLKWNr.Text = CDate(rpt.Fields.Item("bis").Value).ToShortDateString - ' rpt.lblLeistungNr.Text = checkNull(rpt.Fields.Item("LeistungsNr").Value) - ' rpt.txtLeistung.Text = checkNull(rpt.Fields.Item("LeistungsBez").Value) - Dim RECHNUNG As New VERAG_PROG_ALLGEMEIN.cRechnungsausgang(rpt.Fields.Item("RK_ID").Value) - If RECHNUNG IsNot Nothing Then - rpt.lblPosNr.Text = RECHNUNG.FilialenNr & "/" & RECHNUNG.AbfertigungsNr & "/" & CDbl(If(RECHNUNG.SpeditionsbuchUnterNr, 0)).ToString("000") - rpt.lblDatum.Text = RECHNUNG.Abfertigungsdatum.ToShortDateString + ' rpt.lblLeistungNr.Text = checkNull(rpt.Fields.Item("LeistungsNr").Value) + ' rpt.txtLeistung.Text = checkNull(rpt.Fields.Item("LeistungsBez").Value) + Dim RECHNUNG As New VERAG_PROG_ALLGEMEIN.cRechnungsausgang(rpt.Fields.Item("RK_ID").Value) + If RECHNUNG IsNot Nothing Then + rpt.lblPosNr.Text = RECHNUNG.FilialenNr & "/" & RECHNUNG.AbfertigungsNr & "/" & CDbl(If(RECHNUNG.SpeditionsbuchUnterNr, 0)).ToString("000") + rpt.lblDatum.Text = RECHNUNG.Abfertigungsdatum.ToShortDateString - Dim AbfertigungsBez = SQL.getValueTxtBySql("SELECT TOP 1 isnull(Abfertigungsbezeichnung,'') FROM [Speditionsbuch] inner join Abfertigungsarten ON Abfertigungsarten.Abfertigungsart=Speditionsbuch.Abfertigungsart WHERE FilialenNr='" & RECHNUNG.FilialenNr & "' AND AbfertigungsNr='" & RECHNUNG.AbfertigungsNr & "' AND UnterNr='" & RECHNUNG.SpeditionsbuchUnterNr & "'", "FMZOLL") - AbfertigungsBez = AbfertigungsBez.Replace("ZA", "Zollabfertigung") - AbfertigungsBez = AbfertigungsBez.Replace("AE", "Ausfuhrabfertigung") - AbfertigungsBez = AbfertigungsBez.Replace("T1", "T1 Versandschein") - AbfertigungsBez = AbfertigungsBez.Replace("T2", "T2 Versandschein") - rpt.txtAbfertigungsart.Text = AbfertigungsBez + Dim AbfertigungsBez = SQL.getValueTxtBySql("SELECT TOP 1 isnull(Abfertigungsbezeichnung,'') FROM [Speditionsbuch] inner join Abfertigungsarten ON Abfertigungsarten.Abfertigungsart=Speditionsbuch.Abfertigungsart WHERE FilialenNr='" & RECHNUNG.FilialenNr & "' AND AbfertigungsNr='" & RECHNUNG.AbfertigungsNr & "' AND UnterNr='" & RECHNUNG.SpeditionsbuchUnterNr & "'", "FMZOLL") + AbfertigungsBez = AbfertigungsBez.Replace("ZA", "Zollabfertigung") + AbfertigungsBez = AbfertigungsBez.Replace("AE", "Ausfuhrabfertigung") + AbfertigungsBez = AbfertigungsBez.Replace("T1", "T1 Versandschein") + AbfertigungsBez = AbfertigungsBez.Replace("T2", "T2 Versandschein") + rpt.txtAbfertigungsart.Text = AbfertigungsBez - rpt.txtPackstuecke.Text = "" - If If(RECHNUNG.Packstücke_und_Warenbezeichnung, "") <> "" Then rpt.txtPackstuecke.Text = RECHNUNG.Packstücke_und_Warenbezeichnung.replace(vbNewLine, ", ") + rpt.txtPackstuecke.Text = "" + If If(RECHNUNG.Packstücke_und_Warenbezeichnung, "") <> "" Then rpt.txtPackstuecke.Text = RECHNUNG.Packstücke_und_Warenbezeichnung.replace(vbNewLine, ", ") - rpt.txtSendungsdetails.Text = "" - If RECHNUNG.AbsenderName_1 <> "" Then rpt.txtSendungsdetails.Text &= "Absender: " & RECHNUNG.AbsenderName_1 & " " & If(RECHNUNG.AbsenderName_2, "") & " " & If(RECHNUNG.AbsenderOrt, "") & vbNewLine - If RECHNUNG.EmpfängerName_1 <> "" Then rpt.txtSendungsdetails.Text &= "Empfänger: " & RECHNUNG.EmpfängerName_1 & " " & If(RECHNUNG.EmpfängerName_2, "") & " " & If(RECHNUNG.EmpfängerOrt, "") & vbNewLine - If RECHNUNG.LKW_Kennzeichen <> "" Then rpt.txtSendungsdetails.Text &= "LKW-Kennzeichen: " & RECHNUNG.LKW_Kennzeichen & vbNewLine - If RECHNUNG.BelegNr <> "" Then rpt.txtSendungsdetails.Text &= "Zollbeleg-Nr.: " & RECHNUNG.BelegNr & vbNewLine + rpt.txtSendungsdetails.Text = "" + If RECHNUNG.AbsenderName_1 <> "" Then rpt.txtSendungsdetails.Text &= "Absender: " & RECHNUNG.AbsenderName_1 & " " & If(RECHNUNG.AbsenderName_2, "") & " " & If(RECHNUNG.AbsenderOrt, "") & vbNewLine + If RECHNUNG.EmpfängerName_1 <> "" Then rpt.txtSendungsdetails.Text &= "Empfänger: " & RECHNUNG.EmpfängerName_1 & " " & If(RECHNUNG.EmpfängerName_2, "") & " " & If(RECHNUNG.EmpfängerOrt, "") & vbNewLine + If RECHNUNG.LKW_Kennzeichen <> "" Then rpt.txtSendungsdetails.Text &= "LKW-Kennzeichen: " & RECHNUNG.LKW_Kennzeichen & vbNewLine + If RECHNUNG.BelegNr <> "" Then rpt.txtSendungsdetails.Text &= "Zollbeleg-Nr.: " & RECHNUNG.BelegNr & vbNewLine - If If(RECHNUNG.Handling, "") <> "" Then - rpt.txtSendungsdetails.Text &= "Handling: " & RECHNUNG.Handling.ToString.Replace(vbNewLine, ", ").Replace(vbCr, ", ").Replace(vbLf, ", ") & vbNewLine - End If - - If True Then 'ANLAGEN - Dim Anlagen = "" - If If(RECHNUNG.Anlage_1, "") <> "" Then Anlagen &= RECHNUNG.Anlage_1 & ", " - If If(RECHNUNG.Anlage_2, "") <> "" Then Anlagen &= RECHNUNG.Anlage_2 & ", " - If If(RECHNUNG.Anlage_3, "") <> "" Then Anlagen &= RECHNUNG.Anlage_3 & ", " - If If(RECHNUNG.Anlage_4, "") <> "" Then Anlagen &= RECHNUNG.Anlage_4 & ", " - If If(RECHNUNG.Anlage_5, "") <> "" Then Anlagen &= RECHNUNG.Anlage_5 & ", " - If If(RECHNUNG.Anlage_6, "") <> "" Then Anlagen &= RECHNUNG.Anlage_6 & ", " - If Anlagen.EndsWith(", ") Then Anlagen = Anlagen.Substring(0, Anlagen.Length - 2) - If Anlagen.Replace(" ", "").Trim <> "" Then rpt.txtSendungsdetails.Text &= "Anlagen: " & Anlagen - End If - - - - rpt.txtSendungsdetails.Text = rpt.txtSendungsdetails.Text.Trim - rpt.txtKdAuftragsnummer.Text = If(RECHNUNG.KdAuftragsNr, "") - - Dim stPfl As Double = 0 - Dim stFrei As Double = 0 - - Dim vorzeichen = If(If(RECHNUNG.Vorzeichen, "") = "-", -1, 1) 'Bei Rechnung als Klasse ist der Betrag immer positiv! - - For Each p In RECHNUNG.POSITIONEN - stPfl += CDbl(p.SteuerpflichtigerBetrag) - Next - stPfl *= vorzeichen - rpt.lblSteuerpflichtig.Text = If(stPfl <> 0, CDbl(stPfl).ToString("N2", Globalization.CultureInfo.CurrentCulture), "") - - stFrei = CDbl(RECHNUNG.SteuerfreierGesamtbetrag) * vorzeichen - rpt.lblSteuerfrei.Text = If(stFrei <> 0, CDbl(stFrei).ToString("N2", Globalization.CultureInfo.CurrentCulture), "") - - sumSteuerpflichtig += stPfl - sumSteuerfrei += stFrei - - - Dim KUNDE_ERW As New VERAG_PROG_ALLGEMEIN.cKundenErweitert(RECHNUNG.RechnungsKundenNr) - If KUNDE_ERW.kde_FakturierungSR_Details OrElse Rechnugnsdruck = 7 Then - Dim subRpt = New rptSammelRechnungAnlagenDruck_Leistungen(rpt._LAN, RECHNUNG) - - - rpt.SubReport.Report = subRpt - rpt.lblSteuerfrei.Font = New Font(rpt.lblSteuerfrei.Font, FontStyle.Bold) - rpt.lblSteuerpflichtig.Font = New Font(rpt.lblSteuerfrei.Font, FontStyle.Bold) - - - - 'txtPackstuecke.Top += SubReport.Height - 'txtKdAuftragsnummer.Top += SubReport.Height - 'txtSendungsdetails.Top += SubReport.Height - Else - rpt.SubReport.Report = Nothing - End If - ' rpt.Line10.AnchorBottom = True - ' rpt.Line10.Height = rpt.Detail.Height + If If(RECHNUNG.Handling, "") <> "" Then + rpt.txtSendungsdetails.Text &= "Handling: " & RECHNUNG.Handling.ToString.Replace(vbNewLine, ", ").Replace(vbCr, ", ").Replace(vbLf, ", ") & vbNewLine End If - End Sub - - AddHandler rpt.ReportFooter1.Format, Sub() - rpt.lblSteuerpflichtigGes.Text = If(sumSteuerpflichtig <> 0, (sumSteuerpflichtig).ToString("N2", CultureInfo.CurrentCulture), "") - rpt.lblSteuerfreiGes.Text = If(sumSteuerfrei <> 0, (sumSteuerfrei).ToString("N2", CultureInfo.CurrentCulture), "") + If True Then 'ANLAGEN + Dim Anlagen = "" + If If(RECHNUNG.Anlage_1, "") <> "" Then Anlagen &= RECHNUNG.Anlage_1 & ", " + If If(RECHNUNG.Anlage_2, "") <> "" Then Anlagen &= RECHNUNG.Anlage_2 & ", " + If If(RECHNUNG.Anlage_3, "") <> "" Then Anlagen &= RECHNUNG.Anlage_3 & ", " + If If(RECHNUNG.Anlage_4, "") <> "" Then Anlagen &= RECHNUNG.Anlage_4 & ", " + If If(RECHNUNG.Anlage_5, "") <> "" Then Anlagen &= RECHNUNG.Anlage_5 & ", " + If If(RECHNUNG.Anlage_6, "") <> "" Then Anlagen &= RECHNUNG.Anlage_6 & ", " + If Anlagen.EndsWith(", ") Then Anlagen = Anlagen.Substring(0, Anlagen.Length - 2) + If Anlagen.Replace(" ", "").Trim <> "" Then rpt.txtSendungsdetails.Text &= "Anlagen: " & Anlagen + End If - Dim steuerProz As Double = 0 - Dim steuerBez As String = "" - Dim dt2 As DataTable = SQL.loadDgvBySql("SELECT TOP 1 isnull([Steuersatz %],0),isnull([Steuerbezeichnung],'') FROM [Steuertabelle] WHERE [Steuerschlüssel]='" & checkNull(rpt.Fields.Item("Steuerschlüssel").Value) & "'", "FMZOLL") - If dt2 IsNot Nothing AndAlso dt2.Rows.Count > 0 Then - steuerProz = dt2.Rows(0)(0) - steuerBez = dt2.Rows(0)(1) - End If + rpt.txtSendungsdetails.Text = rpt.txtSendungsdetails.Text.Trim + rpt.txtKdAuftragsnummer.Text = If(RECHNUNG.KdAuftragsNr, "") - Dim tmpSteuerbetrag = CDbl((sumSteuerpflichtig * steuerProz)) - If tmpSteuerbetrag = 0 Then - rpt.lblSteuerbetrag.Visible = False - End If + Dim stPfl As Double = 0 + Dim stFrei As Double = 0 - rpt.lblSteuersatz.Text = steuerBez - rpt.lblSteuerbetrag.Text = If((sumSteuerpflichtig * steuerProz) <> 0, tmpSteuerbetrag.ToString("N2", CultureInfo.CurrentCulture), "") - rpt.lblZWSumme.Text = (sumSteuerpflichtig + sumSteuerfrei).ToString("N2", CultureInfo.CurrentCulture) - rpt.lblSumme.Text = (sumSteuerpflichtig + sumSteuerfrei + (sumSteuerpflichtig * steuerProz)).ToString("N2", CultureInfo.CurrentCulture) - rpt.Label46.Text = If(ROW("Währungscode") IsNot DBNull.Value, ROW("Währungscode"), "EUR") + Dim vorzeichen = If(If(RECHNUNG.Vorzeichen, "") = "-", -1, 1) 'Bei Rechnung als Klasse ist der Betrag immer positiv! - If sumSteuerfrei = 0 Or sumSteuerpflichtig = 0 Then - rpt.lblZwText.Visible = False - rpt.lblZWSumme.Visible = False - End If + For Each p In RECHNUNG.POSITIONEN + stPfl += CDbl(p.SteuerpflichtigerBetrag) + Next + stPfl *= vorzeichen + rpt.lblSteuerpflichtig.Text = If(stPfl <> 0, CDbl(stPfl).ToString("N2", Globalization.CultureInfo.CurrentCulture), "") + + stFrei = CDbl(RECHNUNG.SteuerfreierGesamtbetrag) * vorzeichen + rpt.lblSteuerfrei.Text = If(stFrei <> 0, CDbl(stFrei).ToString("N2", Globalization.CultureInfo.CurrentCulture), "") + + sumSteuerpflichtig += stPfl + sumSteuerfrei += stFrei - 'Dim BelegartenKz = If(CDbl((sumSteuerpflichtig + sumSteuerfrei + (sumSteuerpflichtig * steuerProz))) < 0, "AG", "AR") + Dim KUNDE_ERW As New VERAG_PROG_ALLGEMEIN.cKundenErweitert(RECHNUNG.RechnungsKundenNr) + If KUNDE_ERW.kde_FakturierungSR_Details OrElse Rechnugnsdruck = 7 Then + Dim subRpt = New rptSammelRechnungAnlagenDruck_Leistungen(rpt._LAN, RECHNUNG) - End Sub + rpt.SubReport.Report = subRpt + rpt.lblSteuerfrei.Font = New Font(rpt.lblSteuerfrei.Font, FontStyle.Bold) + rpt.lblSteuerpflichtig.Font = New Font(rpt.lblSteuerfrei.Font, FontStyle.Bold) - 'DruckDatumUhrzeit wird gesetzt, falls noch ungedruckt... - 'If RECHNUNG.DruckDatumZeit Is Nothing Then - ' RECHNUNG.SET_DruckdatumUhrzeit() - 'End If + + + 'txtPackstuecke.Top += SubReport.Height + 'txtKdAuftragsnummer.Top += SubReport.Height + 'txtSendungsdetails.Top += SubReport.Height + Else + rpt.SubReport.Report = Nothing + End If + ' rpt.Line10.AnchorBottom = True + ' rpt.Line10.Height = rpt.Detail.Height + End If + + End Sub + + AddHandler rpt.ReportFooter1.Format, Sub() + rpt.lblSteuerpflichtigGes.Text = If(sumSteuerpflichtig <> 0, (sumSteuerpflichtig).ToString("N2", CultureInfo.CurrentCulture), "") + rpt.lblSteuerfreiGes.Text = If(sumSteuerfrei <> 0, (sumSteuerfrei).ToString("N2", CultureInfo.CurrentCulture), "") + + + Dim steuerProz As Double = 0 + Dim steuerBez As String = "" + + Dim dt2 As DataTable = SQL.loadDgvBySql("SELECT TOP 1 isnull([Steuersatz %],0),isnull([Steuerbezeichnung],'') FROM [Steuertabelle] WHERE [Steuerschlüssel]='" & checkNull(rpt.Fields.Item("Steuerschlüssel").Value) & "'", "FMZOLL") + If dt2 IsNot Nothing AndAlso dt2.Rows.Count > 0 Then + steuerProz = dt2.Rows(0)(0) + steuerBez = dt2.Rows(0)(1) + End If + + Dim tmpSteuerbetrag = CDbl((sumSteuerpflichtig * steuerProz)) + If tmpSteuerbetrag = 0 Then + rpt.lblSteuerbetrag.Visible = False + End If + + rpt.lblSteuersatz.Text = steuerBez + rpt.lblSteuerbetrag.Text = If((sumSteuerpflichtig * steuerProz) <> 0, tmpSteuerbetrag.ToString("N2", CultureInfo.CurrentCulture), "") + rpt.lblZWSumme.Text = (sumSteuerpflichtig + sumSteuerfrei).ToString("N2", CultureInfo.CurrentCulture) + rpt.lblSumme.Text = (sumSteuerpflichtig + sumSteuerfrei + (sumSteuerpflichtig * steuerProz)).ToString("N2", CultureInfo.CurrentCulture) + rpt.Label46.Text = If(ROW("Währungscode") IsNot DBNull.Value, ROW("Währungscode"), "EUR") + + If sumSteuerfrei = 0 Or sumSteuerpflichtig = 0 Then + rpt.lblZwText.Visible = False + rpt.lblZWSumme.Visible = False + End If + + + 'Dim BelegartenKz = If(CDbl((sumSteuerpflichtig + sumSteuerfrei + (sumSteuerpflichtig * steuerProz))) < 0, "AG", "AR") + + + End Sub + + 'DruckDatumUhrzeit wird gesetzt, falls noch ungedruckt... + 'If RECHNUNG.DruckDatumZeit Is Nothing Then + ' RECHNUNG.SET_DruckdatumUhrzeit() + 'End If - 'ORIGINAL - Dim AD As New VERAG_PROG_ALLGEMEIN.cAdressen(ROW("RechnungsKundenNr")) - 'Dim RG_Bezeichnung = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & " _Rechnung_" & RechnungsNr & ".pdf" - Dim RG_Bezeichnung = "Rechnung_" & RechnungsNr & ".pdf" - 'Rechnugnsdruck = Individuell für deise Rechnung, wird optional mitgegeben + 'ORIGINAL + Dim AD As New VERAG_PROG_ALLGEMEIN.cAdressen(ROW("RechnungsKundenNr")) + 'Dim RG_Bezeichnung = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & " _Rechnung_" & RechnungsNr & ".pdf" + Dim RG_Bezeichnung = "Rechnung_" & RechnungsNr & ".pdf" + 'Rechnugnsdruck = Individuell für deise Rechnung, wird optional mitgegeben - Dim tmpPath = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath(RG_Bezeichnung, ".pdf", , False) - Dim pEx As New GrapeCity.ActiveReports.Export.Pdf.Section.PdfExport - rpt.Run(False) - pEx.NeverEmbedFonts = "" - pEx.Export(rpt.Document, tmpPath) - Path = tmpPath + Dim tmpPath = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath(RG_Bezeichnung, ".pdf", , False) + Dim pEx As New GrapeCity.ActiveReports.Export.Pdf.Section.PdfExport + rpt.Run(False) + pEx.NeverEmbedFonts = "" + pEx.Export(rpt.Document, tmpPath) + Path = tmpPath - Select Case If(Rechnugnsdruck > 0, Rechnugnsdruck, If(AD.Rechnungsdruck, 0))'If(AD.Rechnungsdruck, 0) - Case 0, 1 'DRUCKEN - Return cProgramFunctions.printRpt(rpt, PrinterName, False) + Select Case If(Rechnugnsdruck > 0, Rechnugnsdruck, If(AD.Rechnungsdruck, 0))'If(AD.Rechnungsdruck, 0) + Case 0, 1 'DRUCKEN + Return cProgramFunctions.printRpt(rpt, PrinterName, False) 'Case 1 'FAX - Case 2 'MAIL + Case 2 'MAIL - rpt.Dispose() + rpt.Dispose() - Try - Dim outl As New Outlook.Application - Dim Mail As Microsoft.Office.Interop.Outlook.MailItem - Mail = outl.CreateItem(0) - ' Mail.Subject = " Rechnung Nr. " & ROW("RechnungsNr") - ' Mail.Subject = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & " Rechnung Nr. " & ROW("RechnungsNr") - Select Case ROW("RechnungsLandKz") - Case "TR" - Mail.Subject = "Invoice No. " & ROW("RechnungsNr") - Mail.HTMLBody = "Sayin Bayanlar ve Baylar,

ekte baslikta yazan faturayi bulabilirsinz." - Mail.HTMLBody &= "


Saygilarimizla

" & getSignature(ROW("RechnungsLandKz"), ROW("Firma_ID")) - Case "A", "AT", "D", "DE", "CH" - Mail.Subject = "Rechnung Nr. " & ROW("RechnungsNr") - Mail.HTMLBody = "Sehr geehrte Damen und Herren,

im Anhang senden wir Ihnen die o.g. Rechnung." - Mail.HTMLBody &= "


Mit freundlichen Grüßen

" & getSignature(ROW("RechnungsLandKz"), ROW("Firma_ID")) - Case Else - Mail.Subject = "Invoice No. " & ROW("RechnungsNr") - Mail.HTMLBody = "Dear Sir or Madam,

attached we send you the invoice mentioned above." - Mail.HTMLBody &= "


Best regards

" & getSignature(ROW("RechnungsLandKz"), ROW("Firma_ID")) - End Select - Mail.HTMLBody = "
" & Mail.HTMLBody & "
" + Try + Dim outl As New Outlook.Application + Dim Mail As Microsoft.Office.Interop.Outlook.MailItem + Mail = outl.CreateItem(0) + ' Mail.Subject = " Rechnung Nr. " & ROW("RechnungsNr") + ' Mail.Subject = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & " Rechnung Nr. " & ROW("RechnungsNr") + Select Case ROW("RechnungsLandKz") + Case "TR" + Mail.Subject = "Invoice No. " & ROW("RechnungsNr") + Mail.HTMLBody = "Sayin Bayanlar ve Baylar,

ekte baslikta yazan faturayi bulabilirsinz." + Mail.HTMLBody &= "


Saygilarimizla

" & getSignature(ROW("RechnungsLandKz"), ROW("Firma_ID")) + Case "A", "AT", "D", "DE", "CH" + Mail.Subject = "Rechnung Nr. " & ROW("RechnungsNr") + Mail.HTMLBody = "Sehr geehrte Damen und Herren,

im Anhang senden wir Ihnen die o.g. Rechnung." + Mail.HTMLBody &= "


Mit freundlichen Grüßen

" & getSignature(ROW("RechnungsLandKz"), ROW("Firma_ID")) + Case Else + Mail.Subject = "Invoice No. " & ROW("RechnungsNr") + Mail.HTMLBody = "Dear Sir or Madam,

attached we send you the invoice mentioned above." + Mail.HTMLBody &= "


Best regards

" & getSignature(ROW("RechnungsLandKz"), ROW("Firma_ID")) + End Select + Mail.HTMLBody = "
" & Mail.HTMLBody & "
" - ' Mail.HTMLBody = "Sehr geehrte Damen und Herren,

anbei erhalten Sie die Rechnung Nr. " & ROW("RechnungsNr") & "." - ' Mail.Attachments.Add(tmpPath, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue, , VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "_Formular.pdf") - Mail.Attachments.Add(tmpPath, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue, , "Formular.pdf") - Mail.Display() + ' Mail.HTMLBody = "Sehr geehrte Damen und Herren,

anbei erhalten Sie die Rechnung Nr. " & ROW("RechnungsNr") & "." + ' Mail.Attachments.Add(tmpPath, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue, , VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "_Formular.pdf") + Mail.Attachments.Add(tmpPath, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue, , "Formular.pdf") + Mail.Display() - Catch ex As Exception - MsgBox("Fehler bim Öffnen des Mail-Programmes. PDF wird geladen!") - Process.Start(tmpPath) - End Try - Return True - - Case 3 'PDF + öffnen - - 'Dim tmpPath = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath(RG_Bezeichnung, ".pdf", , False) - 'Dim p As New GrapeCity.ActiveReports.Export.Pdf.Section.PdfExport - 'rpt.Run(False) - 'p.NeverEmbedFonts = "" - 'p.Export(rpt.Document, tmpPath) - - rpt.Dispose() - Path = tmpPath + Catch ex As Exception + MsgBox("Fehler bim Öffnen des Mail-Programmes. PDF wird geladen!") Process.Start(tmpPath) - Return True - Case 4 'PDF + End Try + Return True - 'Dim tmpPath = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath(RG_Bezeichnung, ".pdf", , False) - 'Dim p As New GrapeCity.ActiveReports.Export.Pdf.Section.PdfExport - 'rpt.Run(False) - 'p.NeverEmbedFonts = "" - 'p.Export(rpt.Document, tmpPath) + Case 3 'PDF + öffnen - rpt.Dispose() - Path = tmpPath - Return True - End Select + 'Dim tmpPath = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath(RG_Bezeichnung, ".pdf", , False) + 'Dim p As New GrapeCity.ActiveReports.Export.Pdf.Section.PdfExport + 'rpt.Run(False) + 'p.NeverEmbedFonts = "" + 'p.Export(rpt.Document, tmpPath) + + rpt.Dispose() + Path = tmpPath + Process.Start(tmpPath) + Return True + Case 4 'PDF + + 'Dim tmpPath = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath(RG_Bezeichnung, ".pdf", , False) + 'Dim p As New GrapeCity.ActiveReports.Export.Pdf.Section.PdfExport + 'rpt.Run(False) + 'p.NeverEmbedFonts = "" + 'p.Export(rpt.Document, tmpPath) + + rpt.Dispose() + Path = tmpPath + Return True + End Select diff --git a/SDL/Fakturierung/usrCntlFaktAbrechnung.vb b/SDL/Fakturierung/usrCntlFaktAbrechnung.vb index 289ebdc9..50be7747 100644 --- a/SDL/Fakturierung/usrCntlFaktAbrechnung.vb +++ b/SDL/Fakturierung/usrCntlFaktAbrechnung.vb @@ -959,7 +959,7 @@ Public Class usrCntlFaktAbrechnung End If cboSammelrechnung.changeItem(If(kdFirmaAbsender.KdData_KUNDE.Sammelrechnung, "")) cboWaehrungUmrechnung.changeItem(If(kdFirmaAbsender.KdData_KUNDE.Währungscode, "")) - cboVorauskasse.changeItem(CInt(kdFirmaAbsender.KdData_KUNDE.Vorkasse)) + cboVorauskasse.changeItem(Convert.ToInt32(kdFirmaAbsender.KdData_KUNDE.Vorkasse)) End If Case "2" kdFirmaRechnungAn.KdNr = kdFirmaEmpfaenger.KdNr @@ -976,7 +976,7 @@ Public Class usrCntlFaktAbrechnung End If cboSammelrechnung.changeItem(If(kdFirmaEmpfaenger.KdData_KUNDE.Sammelrechnung, "")) cboWaehrungUmrechnung.changeItem(If(kdFirmaEmpfaenger.KdData_KUNDE.Währungscode, "")) - cboVorauskasse.changeItem(CInt(kdFirmaEmpfaenger.KdData_KUNDE.Vorkasse)) + cboVorauskasse.changeItem(Convert.ToInt32(kdFirmaEmpfaenger.KdData_KUNDE.Vorkasse)) End If Case "3" kdFirmaRechnungAn.KdNr = kdFirmaAuftraggeber.KdNr @@ -993,7 +993,7 @@ Public Class usrCntlFaktAbrechnung End If cboSammelrechnung.changeItem(If(kdFirmaAuftraggeber.KdData_KUNDE.Sammelrechnung, "")) cboWaehrungUmrechnung.changeItem(If(kdFirmaAuftraggeber.KdData_KUNDE.Währungscode, "")) - cboVorauskasse.changeItem(CInt(kdFirmaAuftraggeber.KdData_KUNDE.Vorkasse)) + cboVorauskasse.changeItem(Convert.ToInt32(kdFirmaAuftraggeber.KdData_KUNDE.Vorkasse)) End If Case "4" kdFirmaRechnungAn.KdNr = kdFirmaAvisierer.KdNr @@ -1007,7 +1007,7 @@ Public Class usrCntlFaktAbrechnung End If cboSammelrechnung.changeItem(If(kdFirmaAvisierer.KdData_KUNDE.Sammelrechnung, "")) cboWaehrungUmrechnung.changeItem(If(kdFirmaAvisierer.KdData_KUNDE.Währungscode, "")) - cboVorauskasse.changeItem(CInt(kdFirmaAvisierer.KdData_KUNDE.Vorkasse)) + cboVorauskasse.changeItem(Convert.ToInt32(kdFirmaAvisierer.KdData_KUNDE.Vorkasse)) End If Case Else End Select diff --git a/SDL/My Project/AssemblyInfo.vb b/SDL/My Project/AssemblyInfo.vb index 35501df4..52c13e7a 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 0c9a660f..be4d8e11 100644 --- a/SDL/SDL.vbproj +++ b/SDL/SDL.vbproj @@ -1083,6 +1083,12 @@ UserControl + + usrCntlATLAS_EXGestellung.vb + + + UserControl + usrCntlATLAS_EZA.vb @@ -3461,6 +3467,9 @@ usrCntlATLAS_AES.vb + + usrCntlATLAS_EXGestellung.vb + usrCntlATLAS_EZA.vb diff --git a/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/EXGestellung/usrCntlATLAS_EXGestellung.Designer.vb b/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/EXGestellung/usrCntlATLAS_EXGestellung.Designer.vb new file mode 100644 index 00000000..be33767a --- /dev/null +++ b/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/EXGestellung/usrCntlATLAS_EXGestellung.Designer.vb @@ -0,0 +1,338 @@ + +Partial Class usrCntlATLAS_EXGestellung + 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.SplitContainer = New System.Windows.Forms.SplitContainer() + Me.MyFlowLayoutPanel1 = New VERAG_PROG_ALLGEMEIN.MyFlowLayoutPanel(Me.components) + Me.btnAllgemein = New System.Windows.Forms.Button() + Me.pnl = New System.Windows.Forms.Panel() + Me.cboDakosyAction = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.Button1 = New System.Windows.Forms.Button() + Me.MyCheckbox1 = New VERAG_PROG_ALLGEMEIN.MyCheckbox(Me.components) + Me.cboStammreferenz = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.Label6 = New System.Windows.Forms.Label() + Me.Label1 = New System.Windows.Forms.Label() + Me.lblBezugsnummer = New System.Windows.Forms.Label() + Me.cntxtBezugsnr = New System.Windows.Forms.ContextMenuStrip(Me.components) + Me.NeueBezugsnummerVergebenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.Panel1 = New System.Windows.Forms.Panel() + Me.txtDyMandant = New System.Windows.Forms.Label() + Me.txtDyNiederlassung = New System.Windows.Forms.Label() + Me.MenuStrip = New System.Windows.Forms.MenuStrip() + Me.OptionenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.Label2 = New System.Windows.Forms.Label() + Me.rtbMRN = New System.Windows.Forms.RichTextBox() + CType(Me.SplitContainer, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SplitContainer.Panel1.SuspendLayout() + Me.SplitContainer.Panel2.SuspendLayout() + Me.SplitContainer.SuspendLayout() + Me.MyFlowLayoutPanel1.SuspendLayout() + Me.pnl.SuspendLayout() + Me.cntxtBezugsnr.SuspendLayout() + Me.Panel1.SuspendLayout() + Me.MenuStrip.SuspendLayout() + Me.SuspendLayout() + ' + 'SplitContainer + ' + Me.SplitContainer.Dock = System.Windows.Forms.DockStyle.Fill + Me.SplitContainer.FixedPanel = System.Windows.Forms.FixedPanel.Panel1 + Me.SplitContainer.IsSplitterFixed = True + Me.SplitContainer.Location = New System.Drawing.Point(0, 25) + Me.SplitContainer.Margin = New System.Windows.Forms.Padding(0) + Me.SplitContainer.Name = "SplitContainer" + Me.SplitContainer.Orientation = System.Windows.Forms.Orientation.Horizontal + ' + 'SplitContainer.Panel1 + ' + Me.SplitContainer.Panel1.Controls.Add(Me.MyFlowLayoutPanel1) + Me.SplitContainer.Panel1.Controls.Add(Me.pnl) + ' + 'SplitContainer.Panel2 + ' + Me.SplitContainer.Panel2.BackColor = System.Drawing.Color.White + Me.SplitContainer.Panel2.Controls.Add(Me.rtbMRN) + Me.SplitContainer.Panel2.Controls.Add(Me.Label2) + Me.SplitContainer.Panel2.Controls.Add(Me.MyCheckbox1) + Me.SplitContainer.Panel2.Controls.Add(Me.cboStammreferenz) + Me.SplitContainer.Panel2.Controls.Add(Me.Label6) + Me.SplitContainer.Size = New System.Drawing.Size(934, 687) + Me.SplitContainer.SplitterDistance = 72 + Me.SplitContainer.SplitterWidth = 1 + Me.SplitContainer.TabIndex = 0 + ' + 'MyFlowLayoutPanel1 + ' + Me.MyFlowLayoutPanel1.BackColor = System.Drawing.Color.WhiteSmoke + Me.MyFlowLayoutPanel1.Controls.Add(Me.btnAllgemein) + Me.MyFlowLayoutPanel1.Dock = System.Windows.Forms.DockStyle.Fill + Me.MyFlowLayoutPanel1.Location = New System.Drawing.Point(0, 0) + Me.MyFlowLayoutPanel1.Margin = New System.Windows.Forms.Padding(1) + Me.MyFlowLayoutPanel1.Name = "MyFlowLayoutPanel1" + Me.MyFlowLayoutPanel1.Size = New System.Drawing.Size(573, 72) + Me.MyFlowLayoutPanel1.TabIndex = 0 + ' + 'btnAllgemein + ' + Me.btnAllgemein.BackColor = System.Drawing.Color.SteelBlue + Me.btnAllgemein.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center + Me.btnAllgemein.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnAllgemein.ForeColor = System.Drawing.SystemColors.ControlLightLight + Me.btnAllgemein.Image = Global.SDL.My.Resources.Resources.android_note12 + Me.btnAllgemein.ImageAlign = System.Drawing.ContentAlignment.TopCenter + Me.btnAllgemein.Location = New System.Drawing.Point(2, 2) + Me.btnAllgemein.Margin = New System.Windows.Forms.Padding(2) + Me.btnAllgemein.Name = "btnAllgemein" + Me.btnAllgemein.Padding = New System.Windows.Forms.Padding(0, 12, 0, 3) + Me.btnAllgemein.Size = New System.Drawing.Size(75, 67) + Me.btnAllgemein.TabIndex = 0 + Me.btnAllgemein.Text = "Allgemein" + Me.btnAllgemein.TextAlign = System.Drawing.ContentAlignment.BottomCenter + Me.btnAllgemein.UseVisualStyleBackColor = False + ' + 'pnl + ' + Me.pnl.BackColor = System.Drawing.Color.WhiteSmoke + Me.pnl.Controls.Add(Me.cboDakosyAction) + Me.pnl.Controls.Add(Me.Button1) + Me.pnl.Dock = System.Windows.Forms.DockStyle.Right + Me.pnl.Location = New System.Drawing.Point(573, 0) + Me.pnl.Name = "pnl" + Me.pnl.Size = New System.Drawing.Size(361, 72) + Me.pnl.TabIndex = 1 + ' + 'cboDakosyAction + ' + Me.cboDakosyAction._allowedValuesFreiText = Nothing + Me.cboDakosyAction._allowFreiText = False + Me.cboDakosyAction._value = "" + Me.cboDakosyAction.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) + Me.cboDakosyAction.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cboDakosyAction.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.cboDakosyAction.FormattingEnabled = True + Me.cboDakosyAction.Location = New System.Drawing.Point(200, 48) + Me.cboDakosyAction.Name = "cboDakosyAction" + Me.cboDakosyAction.Size = New System.Drawing.Size(159, 21) + Me.cboDakosyAction.TabIndex = 1 + ' + 'Button1 + ' + Me.Button1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.Button1.BackColor = System.Drawing.Color.White + Me.Button1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center + Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Button1.ImageAlign = System.Drawing.ContentAlignment.TopCenter + Me.Button1.Location = New System.Drawing.Point(200, 5) + Me.Button1.Margin = New System.Windows.Forms.Padding(2) + Me.Button1.Name = "Button1" + Me.Button1.Size = New System.Drawing.Size(159, 42) + Me.Button1.TabIndex = 6 + Me.Button1.Text = "An DAKOSY senden -->" + Me.Button1.UseVisualStyleBackColor = False + ' + 'MyCheckbox1 + ' + Me.MyCheckbox1._value = "" + Me.MyCheckbox1.AutoSize = True + Me.MyCheckbox1.Checked_value = False + Me.MyCheckbox1.CheckedValue = False + Me.MyCheckbox1.Location = New System.Drawing.Point(462, 31) + Me.MyCheckbox1.Name = "MyCheckbox1" + Me.MyCheckbox1.Size = New System.Drawing.Size(225, 17) + Me.MyCheckbox1.TabIndex = 13 + Me.MyCheckbox1.Text = "Ereignis (wenn JA -> in DAKOSY erstellen)" + Me.MyCheckbox1.UseVisualStyleBackColor = True + ' + 'cboStammreferenz + ' + Me.cboStammreferenz._allowedValuesFreiText = Nothing + Me.cboStammreferenz._allowFreiText = False + Me.cboStammreferenz._value = "" + Me.cboStammreferenz.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) + Me.cboStammreferenz.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cboStammreferenz.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.cboStammreferenz.FormattingEnabled = True + Me.cboStammreferenz.Location = New System.Drawing.Point(144, 27) + Me.cboStammreferenz.Name = "cboStammreferenz" + Me.cboStammreferenz.Size = New System.Drawing.Size(280, 21) + Me.cboStammreferenz.TabIndex = 11 + ' + 'Label6 + ' + Me.Label6.AutoSize = True + Me.Label6.Location = New System.Drawing.Point(17, 30) + Me.Label6.Name = "Label6" + Me.Label6.Size = New System.Drawing.Size(57, 13) + Me.Label6.TabIndex = 12 + Me.Label6.Text = "Stammref.:" + Me.Label6.TextAlign = System.Drawing.ContentAlignment.TopRight + ' + 'Label1 + ' + Me.Label1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.Label1.AutoSize = True + Me.Label1.BackColor = System.Drawing.Color.White + Me.Label1.Location = New System.Drawing.Point(499, 7) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(82, 13) + Me.Label1.TabIndex = 5 + Me.Label1.Text = "Bezugsnummer:" + ' + 'lblBezugsnummer + ' + Me.lblBezugsnummer.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lblBezugsnummer.BackColor = System.Drawing.Color.White + Me.lblBezugsnummer.ContextMenuStrip = Me.cntxtBezugsnr + Me.lblBezugsnummer.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblBezugsnummer.Location = New System.Drawing.Point(584, 1) + Me.lblBezugsnummer.Name = "lblBezugsnummer" + Me.lblBezugsnummer.Size = New System.Drawing.Size(347, 23) + Me.lblBezugsnummer.TabIndex = 6 + Me.lblBezugsnummer.Text = "4800/000000/17 AAA" + Me.lblBezugsnummer.TextAlign = System.Drawing.ContentAlignment.MiddleRight + ' + 'cntxtBezugsnr + ' + Me.cntxtBezugsnr.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.NeueBezugsnummerVergebenToolStripMenuItem}) + Me.cntxtBezugsnr.Name = "cntxtBezugsnr" + Me.cntxtBezugsnr.Size = New System.Drawing.Size(239, 26) + Me.cntxtBezugsnr.Text = "Bezugsnr" + ' + 'NeueBezugsnummerVergebenToolStripMenuItem + ' + Me.NeueBezugsnummerVergebenToolStripMenuItem.Name = "NeueBezugsnummerVergebenToolStripMenuItem" + Me.NeueBezugsnummerVergebenToolStripMenuItem.Size = New System.Drawing.Size(238, 22) + Me.NeueBezugsnummerVergebenToolStripMenuItem.Text = "neue Bezugsnummer vergeben" + ' + 'Panel1 + ' + Me.Panel1.Controls.Add(Me.txtDyMandant) + Me.Panel1.Controls.Add(Me.Label1) + Me.Panel1.Controls.Add(Me.txtDyNiederlassung) + Me.Panel1.Controls.Add(Me.lblBezugsnummer) + Me.Panel1.Controls.Add(Me.MenuStrip) + Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top + Me.Panel1.Location = New System.Drawing.Point(0, 0) + Me.Panel1.Name = "Panel1" + Me.Panel1.Size = New System.Drawing.Size(934, 25) + Me.Panel1.TabIndex = 1 + ' + 'txtDyMandant + ' + Me.txtDyMandant.BackColor = System.Drawing.Color.White + Me.txtDyMandant.Location = New System.Drawing.Point(372, 7) + Me.txtDyMandant.Name = "txtDyMandant" + Me.txtDyMandant.Size = New System.Drawing.Size(48, 13) + Me.txtDyMandant.TabIndex = 19 + Me.txtDyMandant.Text = "VERG" + Me.txtDyMandant.TextAlign = System.Drawing.ContentAlignment.TopRight + ' + 'txtDyNiederlassung + ' + Me.txtDyNiederlassung.BackColor = System.Drawing.Color.White + Me.txtDyNiederlassung.Location = New System.Drawing.Point(426, 7) + Me.txtDyNiederlassung.Name = "txtDyNiederlassung" + Me.txtDyNiederlassung.Size = New System.Drawing.Size(63, 13) + Me.txtDyNiederlassung.TabIndex = 18 + Me.txtDyNiederlassung.Text = "SUB" + ' + 'MenuStrip + ' + Me.MenuStrip.BackColor = System.Drawing.Color.White + Me.MenuStrip.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.OptionenToolStripMenuItem}) + Me.MenuStrip.Location = New System.Drawing.Point(0, 0) + Me.MenuStrip.Name = "MenuStrip" + Me.MenuStrip.Size = New System.Drawing.Size(934, 24) + Me.MenuStrip.TabIndex = 0 + ' + 'OptionenToolStripMenuItem + ' + Me.OptionenToolStripMenuItem.Name = "OptionenToolStripMenuItem" + Me.OptionenToolStripMenuItem.Size = New System.Drawing.Size(69, 20) + Me.OptionenToolStripMenuItem.Text = "Optionen" + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.Location = New System.Drawing.Point(17, 63) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(121, 13) + Me.Label2.TabIndex = 14 + Me.Label2.Text = "NCTS-Vorpapier (MRN):" + Me.Label2.TextAlign = System.Drawing.ContentAlignment.TopRight + ' + 'rtbMRN + ' + Me.rtbMRN.Location = New System.Drawing.Point(145, 63) + Me.rtbMRN.Name = "rtbMRN" + Me.rtbMRN.Size = New System.Drawing.Size(279, 474) + Me.rtbMRN.TabIndex = 15 + Me.rtbMRN.Text = "" + ' + 'usrCntlATLAS_EXGestellung + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.Controls.Add(Me.SplitContainer) + Me.Controls.Add(Me.Panel1) + Me.Name = "usrCntlATLAS_EXGestellung" + Me.Size = New System.Drawing.Size(934, 712) + Me.SplitContainer.Panel1.ResumeLayout(False) + Me.SplitContainer.Panel2.ResumeLayout(False) + Me.SplitContainer.Panel2.PerformLayout() + CType(Me.SplitContainer, System.ComponentModel.ISupportInitialize).EndInit() + Me.SplitContainer.ResumeLayout(False) + Me.MyFlowLayoutPanel1.ResumeLayout(False) + Me.pnl.ResumeLayout(False) + Me.cntxtBezugsnr.ResumeLayout(False) + Me.Panel1.ResumeLayout(False) + Me.Panel1.PerformLayout() + Me.MenuStrip.ResumeLayout(False) + Me.MenuStrip.PerformLayout() + Me.ResumeLayout(False) + + End Sub + Friend WithEvents SplitContainer As System.Windows.Forms.SplitContainer + Friend WithEvents MyFlowLayoutPanel1 As VERAG_PROG_ALLGEMEIN.MyFlowLayoutPanel + Friend WithEvents btnAllgemein As System.Windows.Forms.Button + Friend WithEvents pnl As System.Windows.Forms.Panel + Friend WithEvents Button1 As System.Windows.Forms.Button + Friend WithEvents lblBezugsnummer As System.Windows.Forms.Label + Friend WithEvents Label1 As System.Windows.Forms.Label + Friend WithEvents Panel1 As System.Windows.Forms.Panel + Friend WithEvents MenuStrip As System.Windows.Forms.MenuStrip + Friend WithEvents OptionenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents cboDakosyAction As VERAG_PROG_ALLGEMEIN.MyComboBox + Friend WithEvents cntxtBezugsnr As System.Windows.Forms.ContextMenuStrip + Friend WithEvents NeueBezugsnummerVergebenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents Label6 As System.Windows.Forms.Label + Friend WithEvents cboStammreferenz As VERAG_PROG_ALLGEMEIN.MyComboBox + Friend WithEvents txtDyMandant As System.Windows.Forms.Label + Friend WithEvents txtDyNiederlassung As System.Windows.Forms.Label + Friend WithEvents MyCheckbox1 As VERAG_PROG_ALLGEMEIN.MyCheckbox + Friend WithEvents rtbMRN As RichTextBox + Friend WithEvents Label2 As Label +End Class diff --git a/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/EXGestellung/usrCntlATLAS_EXGestellung.resx b/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/EXGestellung/usrCntlATLAS_EXGestellung.resx new file mode 100644 index 00000000..c31215db --- /dev/null +++ b/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/EXGestellung/usrCntlATLAS_EXGestellung.resx @@ -0,0 +1,126 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 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 + + + 125, 17 + + + 17, 17 + + \ No newline at end of file diff --git a/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/EXGestellung/usrCntlATLAS_EXGestellung.vb b/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/EXGestellung/usrCntlATLAS_EXGestellung.vb new file mode 100644 index 00000000..c9dca7c0 --- /dev/null +++ b/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/EXGestellung/usrCntlATLAS_EXGestellung.vb @@ -0,0 +1,258 @@ +Imports DAKOSY_Worker + +Public Class usrCntlATLAS_EXGestellung + + Property ALLG As usrCntlATLAS_EXGestellung + 'Property FilialeNr As Integer + ' Property AbfertigungsNr As Integer + + ' Property BezugsNr As String = "" + ' Property AvisoId As Integer + 'Property SENDUNGS_ID As Integer + Property AVISO As VERAG_PROG_ALLGEMEIN.cAviso + Property SENDUNG As VERAG_PROG_ALLGEMEIN.cSendungen + Dim sentToDakosy = False + + + Property FIRMA_DY = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA + + + + Sub New(AVISO As VERAG_PROG_ALLGEMEIN.cAviso, SENDUNG As VERAG_PROG_ALLGEMEIN.cSendungen, FIRMA_DY As String) + ' Dieser Aufruf ist für den Designer erforderlich. + InitializeComponent() + + Me.AVISO = AVISO + Me.SENDUNG = SENDUNG + Me.FIRMA_DY = FIRMA_DY + + + + ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. + End Sub + + + Private Sub usrCntlATLAS_Load(sender As Object, e As EventArgs) Handles Me.Load + + cboDakosyAction.Items.Clear() + cboDakosyAction.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Neuen Datensatz erstellen", DY_ObjektAktion.OBJ_CREATE)) + cboDakosyAction.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Vohr. DS ändern", DY_ObjektAktion.OBJ_CHANGE)) + cboDakosyAction.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Vorh. DS stornieren", DY_ObjektAktion.OBJ_CANCEL)) + cboDakosyAction.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Datensatz an ZOLL senden", DY_ObjektAktion.OBJ_SEND)) + cboDakosyAction.changeItem(DY_ObjektAktion.OBJ_CREATE) + + Select Case FIRMA_DY + Case "VERAG" : txtDyMandant.Text = "VERG" + txtDyNiederlassung.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG + ' Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG + 'Case "SUB" : txtDyNiederlassung.Text = "VERG" + 'Case "SUW" : txtDyNiederlassung.Text = "ATIL" + ''Case "SBG" : txtDyNiederlassung.Text = "IMEX" + 'Case "NEU" : txtDyNiederlassung.Text = "IMEX" + 'Case "NKD" : txtDyNiederlassung.Text = "IMEX" + 'End Select + Case "ATILLA" : txtDyMandant.Text = "ATIL" : txtDyNiederlassung.Text = "SUW" + Case "UNISPED" : txtDyMandant.Text = "UNAT" : txtDyNiederlassung.Text = "ATSPED" + Case "IMEX" : txtDyMandant.Text = "IMEX" : txtDyNiederlassung.Text = "IME" + Case "AMBAR" : txtDyMandant.Text = "ATIL" : txtDyNiederlassung.Text = "AMBWO" + End Select + + Dim BezugsNr = ("ID" & AVISO.AvisoID & "_" & SENDUNG.FilialenNr & "-" & SENDUNG.AbfertigungsNr & "_" & If(AVISO.Auftraggeber.Length > 8, AVISO.Auftraggeber.ToString.Substring(0, 5), AVISO.Auftraggeber)).Trim + lblBezugsnummer.Text = BezugsNr + + cboStammreferenz.fillWithSQL("SELECT [dySr_Stammreferenz],[dySr_Bezeichnung] FROM [tblDakosy_Stammreferenzen] WHERE dySr_Land='DE' AND dySr_Verfahren='EXP' and dySr_dy_Mandant='" & txtDyMandant.Text & "' and dySr_dy_Niederlassung IN ('','" & txtDyNiederlassung.Text & "') and dySr_visible=1", False, "FMZOLL", True) + ' MsgBox("SELECT [dySr_Stammreferenz],[dySr_Bezeichnung] FROM [tblDakosy_Stammreferenzen] WHERE dySr_Land='DE' AND dySr_Verfahren='AA' and dySr_dy_Mandant='" & txtDyMandant.Text & "' and dySr_dy_Niederlassung IN ('','" & txtDyNiederlassung.Text & "') and dySr_visible=1") + cboStammreferenz.changeItem("") + If cboStammreferenz.Items.Count = 2 Then + cboStammreferenz.SelectedIndex = 1 + End If + + End Sub + + Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click + + Me.Cursor = Cursors.WaitCursor + Dim err = False + If cboStammreferenz._value = "" Then MsgBox("Stammreferenz auswählen!") : Exit Sub + If rtbMRN.Text.Trim = "" Then MsgBox("MRN auswählen!") : Exit Sub + If sentToDakosy OrElse vbYes = MsgBox("Soll die Ausfuhr-Gestellung abgeschickt werden?", vbYesNoCancel) Then + + 'MRN Prüfung: + For Each l In rtbMRN.Lines + If l.Trim <> "" Then + If Not IsValidMRN(l) Then + MsgBox("Ungültige MRN (Format): " & l) + Me.Cursor = Cursors.Default + Exit Sub + End If + End If + Next + + 'Senden: + For Each l In rtbMRN.Lines + If l.Trim <> "" Then + If Not sendEXP_MRN(l) Then + MsgBox("Sendefehler bei " & l) + err = True + End If + End If + Next + Me.FindForm.Close() + + End If + If Not err Then Me.Cursor = Cursors.Default + End Sub + + Function sendEXP_MRN(MRN) As Boolean + + Me.Refresh() + + ' Dim cDyAnm As New cDakosy_Zollanmeldungen(cDy_ART, BezugsNr, AVISO.AvisoID, SENDUNG.tblSnd_SendungID) + 'loadDYZollanmeldungen() + Dim dy_Id = -1 + If True Then + ''Dim cDY As New cDakosyNCTSOut(cDyAnm.dy_Id, cDyAnm.dy_Erstellung_SB) + 'ncts_OUT.ncts_dyaAnmID = DY_ANM.dy_Id + 'ncts_OUT.ncts_Erstellung_SB = DY_ANM.dy_Erstellung_SB + 'ncts_OUT.ncts_LetzteBearbeitung = Now + 'ncts_OUT.ncts_LetzteBearbeitung_SB = DY_ANM.dy_LetzteBearbeitung_SB + 'ncts_OUT.ncts_firma = Me.FIRMA_DY + ' DAKOSY_Interface_SEND.loadInClass_VersandanmeldungNCTSDE_003(ncts_OUT, Me, DY_ANM, Me.FIRMA_DY) + + ' dim FilialenNr + + Dim FIRMA_DY = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA + FIRMA_DY = frmZollanmeldung.getFirma_DY(SENDUNG.FilialenNr, Me.FindForm) + + Dim saveFile = "" + + + If generatePresentationEXITDE_003(MRN, AVISO, SENDUNG, lblBezugsnummer.Text, saveFile, cboDakosyAction._value, FIRMA_DY, cboStammreferenz._value) Then + If saveFile <> "" Then + If cDakosyFunftions.send_Data_To_Dakosy_FTP(saveFile, lblBezugsnummer.Text, dy_Id, FIRMA_DY) Then + 'DAKOSY_Worker.cDakosy_Statusmeldungen.InsertStatusMeldung(DY_ANM, DAKOSY_Worker.cDY_Statusliste.S_03) + If SENDUNG IsNot Nothing Then SENDUNG.SET_VGMA() ' MA Vorgeschrieben in Sendung setzen. + Return True + Else + 'DAKOSY_Worker.cDakosy_Statusmeldungen.InsertStatusMeldung(DY_ANM, DAKOSY_Worker.cDY_Statusliste.S_09) + Return False + End If + End If + End If + End If + + ' DY_ANM.UPDATE_DATA() + + 'Beim Senden soll die Sendung überhnommen + tblSnd_VG_MA gesetzt werden --> damit gleich gesehen wird, dass der Akt in Bearbeitung ist. + ' DY_ANM.UPDATE_AVISO_SND(DY_ANM.dy_SendungsId) + + + Return False + + End Function + + + + + Shared Function generatePresentationEXITDE_003(MRN As String, AVISO As VERAG_PROG_ALLGEMEIN.cAviso, SND As VERAG_PROG_ALLGEMEIN.cSendungen, ByVal Bezugsnummer As String, ByRef saveFile As String, DY_ACTION As String, FIRMA_DY As String, Optional BezugsnummerVorblendung As String = "") As Boolean + Dim Interface_VERSION = "003" + Dim ObjectAktion = DY_ACTION + ' Dim BezugsnummerVorblendung = "AA_NCTS_DE_ZE_WO_MITTICH" + + Dim XML As New DAKOSY_Worker.PresentationEXITDE.GestellungXPTyp + + Bezugsnummer = AVISO.AvisoID & "_EXP_" & MRN + + If Bezugsnummer.Length > 35 Then + Bezugsnummer = Bezugsnummer.Substring(0, 35) + End If + 'Transaktion: + XML.Transaktion = New PresentationEXITDE.TransaktionExportTyp + XML.Transaktion.IOPartner = SDL.DAKOSY_Interface_SEND.getIOPartner(FIRMA_DY) 'If(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "VERA", "VERG") + XML.Transaktion.IODatumZeit = Now + XML.Transaktion.IOReferenz = SND.FilialenNr & "-" & SND.AbfertigungsNr & "_" & Now.ToString("ddMMyyHHmmSS") + If Not VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then XML.Transaktion.IODivision3 = SDL.DAKOSY_Interface_SEND.getDivision(FIRMA_DY) '"SUW" + XML.Transaktion.Version = Interface_VERSION + ' XML.Transaktion.IODivision3 = "DUR" + + Dim XML_EG = New PresentationEXITDE.EinzelGestellungTyp + 'ObjektIdentifizierung: + XML_EG.ObjektIdentifizierung.ObjektName = Bezugsnummer + + 'If Bezugsnummer IsNot Nothing Then XML_EG.ObjektIdentifizierung.ObjektAliasname = Bezugsnummer + Dim ObjektAktion As New List(Of String) : ObjektAktion.Add(ObjectAktion) + XML_EG.ObjektIdentifizierung.ObjektAktion = ObjektAktion + If If(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_DAKOSY_SB, "") <> "" Then XML_EG.ObjektIdentifizierung.Bearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_DAKOSY_SB + + If BezugsnummerVorblendung IsNot Nothing AndAlso BezugsnummerVorblendung <> "" Then XML_EG.ObjektIdentifizierung.BezugsnummerVorblendung = BezugsnummerVorblendung + + 'TransitOperation: + XML_EG.HeaderData = New PresentationEXITDE.KopfDatenGestellungTyp + XML_EG.HeaderData.MRN = MRN + 'If cDY.ncts_CountryOfDispatch IsNot Nothing Then XML.EinzelEingangsanzeige.TransitOperation.CustomsOfficeOfDestinationActual = cDY.ncts_CountryOfDispatch + 'If SND.tblSnd_ATB_T1 IsNot Nothing Then XML.EinzelEingangsanzeige.TransitOperation.MRN = SND.tblSnd_ATB_T1 + 'XML.EinzelEingangsanzeige.TransitOperation.ArrivalNotificationDateAndTime = Now + + 'XML.EinzelEingangsanzeige.TransitOperation.IncidentFlag = "N" + + XML.DeclarationData.Add(XML_EG) + + + Dim saveDir = Application.StartupPath & "\Dakosy_SEND\" + If Not System.IO.Directory.Exists(saveDir) Then + System.IO.Directory.CreateDirectory(saveDir) + End If + + saveFile = saveDir & "DY_EXP_" & Now.ToString("yyMMdd_HHmmss") & ".xml" + + XML.SaveToFile(saveFile) + + SDL.DAKOSY_Interface_SEND.replaceNullDateXML(saveFile) + + Return True + End Function + + + + + + Private Sub MyCheckbox1_CheckedChanged(sender As Object, e As EventArgs) Handles MyCheckbox1.CheckedChanged + Button1.Enabled = Not MyCheckbox1.Checked + End Sub + + + Public Function IsValidMRN(mrn As String) As Boolean + ' Überprüfen, ob die Länge genau 18 Zeichen beträgt + If String.IsNullOrEmpty(mrn) OrElse mrn.Length <> 18 Then + Return False + End If + + ' Überprüfen, ob die ersten zwei Zeichen Buchstaben sind (Ländercode) + If Not Char.IsLetter(mrn(0)) OrElse Not Char.IsLetter(mrn(1)) Then + Return False + End If + + ' Überprüfen, ob die nächsten zwei Zeichen Ziffern sind (Jahreszahl) + If Not Char.IsDigit(mrn(2)) OrElse Not Char.IsDigit(mrn(3)) Then + Return False + End If + + ' Überprüfen, ob die nächsten 12 Zeichen alphanumerisch sind + For i As Integer = 4 To 15 + If Not Char.IsLetterOrDigit(mrn(i)) Then + Return False + End If + Next + + ' Überprüfen, ob die letzten zwei Zeichen Prüfziffern sind (optional, falls komplexere Prüfung erforderlich) + For i As Integer = 16 To 17 + If Not Char.IsDigit(mrn(i)) Then + Return False + End If + Next + + ' Alle Prüfungen bestanden + Return True + End Function +End Class + diff --git a/SDL/ZOLLSYSTEM/DAKOSY/frmZollanmeldung.vb b/SDL/ZOLLSYSTEM/DAKOSY/frmZollanmeldung.vb index 57b7fa46..77eb6aa9 100644 --- a/SDL/ZOLLSYSTEM/DAKOSY/frmZollanmeldung.vb +++ b/SDL/ZOLLSYSTEM/DAKOSY/frmZollanmeldung.vb @@ -245,6 +245,12 @@ Me.pnl.Controls.Add(usrcntl) Me.Text = "AnkunftsAnzeige - Verwahrung" + Case "EXG" 'Ausfuhr Gestellung + Dim usrcntl As New usrCntlATLAS_EXGestellung(AVISO, SENDUNG, FIRMA_DY) + usrcntl.Dock = DockStyle.Fill + Me.pnl.Controls.Add(usrcntl) + Me.Text = "Ausfuhr - Gestellung" + End Select End Select End Sub