diff --git a/SDL/Fakturierung/cFakturierung.vb b/SDL/Fakturierung/cFakturierung.vb index a0ac77c2..96488aab 100644 --- a/SDL/Fakturierung/cFakturierung.vb +++ b/SDL/Fakturierung/cFakturierung.vb @@ -745,6 +745,8 @@ Public Class cFakturierung rpt.Line15.Visible = False End If + rpt.txtBank3.Visible = False + Select Case FIRMA.Firma_ID'VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Case 21 '"UNISPED" rpt.txtBank1.Text = If(FIRMA.Firma_Bankverbindung1, "") & vbNewLine & If(FIRMA.Firma_IBAN1, "") & vbNewLine & If(FIRMA.Firma_BIC1, "").ToString.Trim @@ -762,6 +764,8 @@ Public Class cFakturierung Case 24 '"AMBAR DE" 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.txtBank3.Visible = True + rpt.txtBank3.Text = "Garanti Bank Türkei – Euro Konto" & vbNewLine & "IBAN: TR90 0006 2001 6040 0009 0804 66" & vbNewLine & "BIC/SWIFT: TGBATRISXXX".ToString.Trim rpt.picVERAG.Size = New SizeF(2.712, 0.61) Case 26 rpt.txtBank1.Text = If(FIRMA.Firma_Bankverbindung1, "") & vbNewLine & If(FIRMA.Firma_IBAN1, "") & vbNewLine & If(FIRMA.Firma_BIC1, "").ToString.Trim @@ -863,6 +867,8 @@ Public Class cFakturierung If Buchungsjahr Is DBNull.Value Then Buchungsjahr = Now.Year If Buchungsjahr Is Nothing Then Buchungsjahr = Now.Year + rpt.txtBank3.Visible = False + ' Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Select Case FIRMA.Firma_ID Case 21, 22, 23 '"UNISPED" @@ -871,6 +877,8 @@ Public Class cFakturierung Case 24 '"AMABR" 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.txtBank3.Visible = True + rpt.txtBank3.Text = "Garanti Bank Türkei – Euro Konto" & vbNewLine & "IBAN: TR90 0006 2001 6040 0009 0804 66" & vbNewLine & "BIC/SWIFT: TGBATRISXXX".ToString.Trim Case 26 'VERAG-UNISPED" 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 @@ -922,6 +930,8 @@ Public Class cFakturierung If Buchungsjahr Is DBNull.Value Then Buchungsjahr = Now.Year If Buchungsjahr Is Nothing Then Buchungsjahr = Now.Year + rpt.txtBank3.Visible = False + ' Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Select Case FIRMA.Firma_ID Case 21, 22, 23 '"UNISPED" @@ -932,6 +942,12 @@ Public Class cFakturierung 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 + Case 24 'AMBAR" + 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.txtBank3.Visible = True + rpt.txtBank3.Text = "Garanti Bank Türkei – Euro Konto" & vbNewLine & "IBAN: TR90 0006 2001 6040 0009 0804 66" & vbNewLine & "BIC/SWIFT: TGBATRISXXX".ToString.Trim + Case 20 '"IMEX" If RechnungsLandKz = "TR" Then ' rpt.txtBank1.Text = "Garanti Bank " & vbNewLine & "IBAN:TR84 0006 2001 6040 0009 0987 13 " & vbNewLine & "BLZ Sube.: 1604 - Beykent Ticari - Hesap: 9098713" @@ -1076,7 +1092,7 @@ Public Class cFakturierung Case 22 : rpt.picVERAG.Image = My.Resources.Unisped_DE_logo : rpt.Picture1.Image = My.Resources.unisped_aeo_DE Case 26 : rpt.picVERAG.Image = My.Resources.VERAG_UNISPED_Logo : rpt.Picture1.Image = Nothing 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 24 : rpt.picVERAG.Image = My.Resources.ambar_boarder : rpt.Picture1.Image = Nothing rpt.txtAvisierer.Visible = False : rpt.lblAvisiererUeberschrift.Visible = False : rpt.txtWarenwert.Visible = False : rpt.lblWarenWertUeberschrift.Visible = False Case 17 : rpt.picVERAG.Image = My.Resources.FrontOfficeSUB_Horizontal : rpt.Picture1.Image = Nothing End Select diff --git a/SDL/Fakturierung/frmAbrechnungsMaske.vb b/SDL/Fakturierung/frmAbrechnungsMaske.vb index 7e349130..1d955b40 100644 --- a/SDL/Fakturierung/frmAbrechnungsMaske.vb +++ b/SDL/Fakturierung/frmAbrechnungsMaske.vb @@ -48,6 +48,7 @@ Public Class frmAbrechnungsMaske If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("OFFERTE_FREMD_VERAGIMEX", "SDL") Or VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("FAKTURIERUNG_VERAGIMEX", "SDL") Then FirmaTmp = "VERAGIMEX" End If + FirmaTmp = "AMBAR" MyComboBox2.Items.Clear() @@ -145,12 +146,13 @@ Public Class frmAbrechnungsMaske If Not loaded Then Exit Sub Dim dgv As VERAG_PROG_ALLGEMEIN.MyDatagridview = getDGV() + Dim sqlRechnungsdruck = IIf(Not cbxGutschriftenAnVerag.Checked, ",(CASE WHEN Rechnungsdruck =0 THEN 'POST' WHEN Rechnungsdruck=1 THEN 'FAX' WHEN Rechnungsdruck=2 THEN 'E-MAIL' WHEN Rechnungsdruck=5 THEN 'MAIL+KOPIE' ELSE '-' END) as Rechnungsdruck ", "") With dgv Dim sqlstr = "" ' sqlstr &= " SELECT FilialenNr, AbfertigungsNr, UnterNr, Firma_ID, Status, Sammelrechnung, Sachbearbeiter, SteuerpflichtigerGesamtbetrag, SteuerfreierGesamtbetrag, RechnungsNr, RechnungsDatum, DruckDatumZeit, Buchungsjahr, RK_ID" sqlstr &= " SELECT FilialenNr, AbfertigungsNr, cast(FilialenNr as varchar) + ' ' + cast(AbfertigungsNr as varchar) as PosNr, UnterNr, Firma_ID,Rechnungsausgang.Sammelrechnung as Art, [RechnungsName 1] as Rechnungsempfänger, (isnull(SteuerpflichtigerGesamtbetrag,0) + isnull(SteuerfreierGesamtbetrag,0)) as Betrag, RK_ID,RechnungsLandKz,RechnungsKundenNr" - sqlstr &= " ,(CASE WHEN Rechnungsdruck =0 THEN 'POST' WHEN Rechnungsdruck=1 THEN 'FAX' WHEN Rechnungsdruck=2 THEN 'E-MAIL' WHEN Rechnungsdruck=5 THEN 'MAIL+KOPIE' ELSE '-' END) as Rechnungsdruck " + sqlstr &= sqlRechnungsdruck sqlstr &= " FROM Rechnungsausgang INNER JOIN Adressen ON AdressenNr=Rechnungsausgang.RechnungsKundenNr" sqlstr &= " WHERE 1=1 " @@ -175,9 +177,12 @@ Public Class frmAbrechnungsMaske .Columns("Rechnungsempfänger").MinimumWidth = 150 .Columns("Rechnungsempfänger").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill - .Columns("Rechnungsdruck").Width = 60 - .Columns("Rechnungsdruck").HeaderText = "Rg.Art" - .Columns("Rechnungsdruck").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter + If Not cbxGutschriftenAnVerag.Checked Then + .Columns("Rechnungsdruck").Width = 60 + .Columns("Rechnungsdruck").HeaderText = "Rg.Art" + .Columns("Rechnungsdruck").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter + End If + .Columns("Betrag").DefaultCellStyle.Format = "C2" End If @@ -197,7 +202,13 @@ Public Class frmAbrechnungsMaske End Select If cbxGutschriftenAnVerag.Checked AndAlso cboFirma._value <> "" Then - sqlstr &= " AND (SELECT count(*) FROM Speditionsbuch WHERE Speditionsbuch.FilialenNr = Rechnungsausgang.FilialenNr AND Speditionsbuch.AbfertigungsNr = Rechnungsausgang.AbfertigungsNr AND Speditionsbuch.Abfertigungsart = 1 AND Rechnungsausgang.RechnungsKundenNr = '3013401') = 0 AND Rechnungsausgang.Firma_ID=" & cboFirma._value + sqlstr &= " AND Rechnungsausgang.Firma_ID=" & cboFirma._value & + " EXCEPT + Select Rechnungsausgang.FilialenNr, Rechnungsausgang.AbfertigungsNr, cast(Rechnungsausgang.FilialenNr As varchar) + ' ' + cast(Rechnungsausgang.AbfertigungsNr as varchar) as PosNr, Rechnungsausgang.UnterNr, Firma_ID,Rechnungsausgang.Sammelrechnung as Art, [RechnungsName 1] as Rechnungsempfänger, (isnull(SteuerpflichtigerGesamtbetrag,0) + isnull(SteuerfreierGesamtbetrag,0)) as Betrag, + RK_ID, RechnungsLandKz, RechnungsKundenNr + From Rechnungsausgang + Right Join Speditionsbuch on Speditionsbuch.FilialenNr = Rechnungsausgang.FilialenNr And Speditionsbuch.AbfertigungsNr = Rechnungsausgang.AbfertigungsNr + WHERE Rechnungsausgang.Firma_ID = 24 And ((SELECT count(*) FROM Speditionsbuch WHERE Speditionsbuch.FilialenNr = Rechnungsausgang.FilialenNr And Speditionsbuch.AbfertigungsNr = Rechnungsausgang.AbfertigungsNr And Speditionsbuch.Abfertigungsart = 1 And Rechnungsausgang.RechnungsKundenNr = 3013401 And Rechnungsausgang.Firma_ID=" & cboFirma._value & ") = 0 And Speditionsbuch.Abfertigungsart = 1 or Speditionsbuch.Abfertigungsart <> 1) " Else diff --git a/SDL/Fakturierung/rptRechnungDruck.Designer.vb b/SDL/Fakturierung/rptRechnungDruck.Designer.vb index e1f30281..f72c124d 100644 --- a/SDL/Fakturierung/rptRechnungDruck.Designer.vb +++ b/SDL/Fakturierung/rptRechnungDruck.Designer.vb @@ -33,6 +33,7 @@ Partial Public Class rptRechnungDruck Me.txtBank1 = New GrapeCity.ActiveReports.SectionReportModel.TextBox() Me.txtBank2 = New GrapeCity.ActiveReports.SectionReportModel.TextBox() Me.txtDisclaimer = New GrapeCity.ActiveReports.SectionReportModel.TextBox() + Me.txtBank3 = New GrapeCity.ActiveReports.SectionReportModel.TextBox() Me.ReportHeader1 = New GrapeCity.ActiveReports.SectionReportModel.ReportHeader() Me.lblRgNr = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.lblRgNrUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label() @@ -136,6 +137,7 @@ Partial Public Class rptRechnungDruck CType(Me.txtBank1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.txtBank2, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.txtDisclaimer, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtBank3, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblRgNr, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblRgNrUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.Picture1, System.ComponentModel.ISupportInitialize).BeginInit() @@ -312,7 +314,7 @@ Partial Public Class rptRechnungDruck ' 'PageFooter ' - Me.PageFooter.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Line2, Me.ReportInfo2, Me.lblBankUeberschrift, Me.txtBank1, Me.txtBank2, Me.txtDisclaimer}) + Me.PageFooter.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Line2, Me.ReportInfo2, Me.lblBankUeberschrift, Me.txtBank1, Me.txtBank2, Me.txtDisclaimer, Me.txtBank3}) Me.PageFooter.Height = 0.8791339! Me.PageFooter.Name = "PageFooter" ' @@ -354,26 +356,26 @@ Partial Public Class rptRechnungDruck 'txtBank1 ' Me.txtBank1.Height = 0.4181103! - Me.txtBank1.Left = 1.211024! + Me.txtBank1.Left = 1.096457! Me.txtBank1.Name = "txtBank1" - Me.txtBank1.Style = "font-size: 8pt; font-weight: normal; text-align: left; text-justify: auto; ddo-ch" & - "ar-set: 1" + Me.txtBank1.Style = "font-size: 6.75pt; font-weight: normal; text-align: left; text-justify: auto; ddo" & + "-char-set: 0" Me.txtBank1.Text = "Deutschland:" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Raiffeisenbank Suben" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "IBAN: AT54 3445 5000 0420 7791" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "BIC: RZOOAT2L" & "455" Me.txtBank1.Top = 0.1173228! - Me.txtBank1.Width = 2.480315! + Me.txtBank1.Width = 1.844882! ' 'txtBank2 ' Me.txtBank2.Height = 0.4181103! - Me.txtBank2.Left = 3.691339! + Me.txtBank2.Left = 2.941339! Me.txtBank2.Name = "txtBank2" - Me.txtBank2.Style = "font-size: 8pt; font-weight: normal; text-align: left; text-justify: auto; ddo-ch" & - "ar-set: 1" + Me.txtBank2.Style = "font-size: 6.75pt; font-weight: normal; text-align: left; text-justify: auto; ddo" & + "-char-set: 0" Me.txtBank2.Text = "Deutschland:" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Raiffeisenbank Suben" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "IBAN: AT54 3445 5000 0420 7791" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "BIC: RZOOAT2L" & "455" Me.txtBank2.Top = 0.1173228! - Me.txtBank2.Width = 2.837401! + Me.txtBank2.Width = 1.779134! ' 'txtDisclaimer ' @@ -386,6 +388,23 @@ Partial Public Class rptRechnungDruck Me.txtDisclaimer.Top = 0.6082678! Me.txtDisclaimer.Width = 7.466143! ' + 'txtBank3 + ' + Me.txtBank3.DataField = "" + Me.txtBank3.DistinctField = "" + Me.txtBank3.Height = 0.4181104! + Me.txtBank3.Left = 4.783071! + Me.txtBank3.Name = "txtBank3" + Me.txtBank3.Style = "color: Black; font-size: 6.75pt; font-weight: normal; text-align: left; text-just" & + "ify: auto; ddo-char-set: 0" + Me.txtBank3.SummaryGroup = "" + Me.txtBank3.Tag = "" + Me.txtBank3.Text = "Deutschland:" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Raiffeisenbank Suben" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "IBAN: AT54 3445 5000 0420 7791" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "BIC: RZOOAT2L" & + "455" + Me.txtBank3.Top = 0.1173228! + Me.txtBank3.Visible = False + Me.txtBank3.Width = 1.788977! + ' 'ReportHeader1 ' Me.ReportHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblRgNr, Me.lblRgNrUeberschrift, Me.Picture1, Me.picVERAG, Me.lblKundenNrUeberschrift, Me.lblUeberschriftRG_GS, Me.lblKundenNr, Me.Line3, Me.lblFirmaOrt, Me.lblFirmaStrasse, Me.lblFirmaTel, Me.lblFirmaFax, Me.lblFirmaEmail, Me.lblFirmaWeb, Me.lblRgDatumUeberschrift, Me.lblRgDatum, Me.lblAbfertigungsNrUeberschrift, Me.lblAbfertigungsNr, Me.lblAbfertigungsDatumUeberschrift, Me.lblAbfertigungsDatum, Me.lblLKWIdUebeschrift, Me.lblLKWId, Me.lblSachbearbeiterUeberschrift, Me.lblSachbearbeiter, Me.lblFirmenbuchUeberschrift, Me.lblFirmenbuch, Me.lblUIDUeberschrift, Me.lblUID, Me.lblEORIUeberschrift, Me.lblEORI, Me.lblRechnung_UID_Ueberschrift, Me.lblRechnung_UID, Me.lblRechnung_Steuernummer_Ueberschrift, Me.lblRechnung_Steuernummer, Me.txtKdAuftragsNr_Ueberschrift, Me.txtKdAuftragsNr, Me.Line15, Me.lblFirma, Me.Label1, Me.Label2, Me.lblRechnungAn}) @@ -1511,6 +1530,7 @@ Partial Public Class rptRechnungDruck CType(Me.txtBank1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.txtBank2, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.txtDisclaimer, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtBank3, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblRgNr, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblRgNrUeberschrift, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.Picture1, System.ComponentModel.ISupportInitialize).EndInit() @@ -1696,4 +1716,5 @@ Partial Public Class rptRechnungDruck Public WithEvents lblZollbelegNr As GrapeCity.ActiveReports.SectionReportModel.Label Public WithEvents txtBeförderungsmittelUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label Public WithEvents Line15 As GrapeCity.ActiveReports.SectionReportModel.Line + Public WithEvents txtBank3 As GrapeCity.ActiveReports.SectionReportModel.TextBox End Class diff --git a/SDL/Fakturierung/rptSammelRechnungAnlagenDruck.Designer.vb b/SDL/Fakturierung/rptSammelRechnungAnlagenDruck.Designer.vb index bd756710..99153569 100644 --- a/SDL/Fakturierung/rptSammelRechnungAnlagenDruck.Designer.vb +++ b/SDL/Fakturierung/rptSammelRechnungAnlagenDruck.Designer.vb @@ -67,6 +67,8 @@ Partial Public Class rptSammelRechnungAnlagenDruck Me.lblRechnung_Steuernummer_Ueberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.lblRechnung_Steuernummer = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.lblFirma = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.lblRechnungAn = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.Line13 = New GrapeCity.ActiveReports.SectionReportModel.Line() Me.ReportFooter1 = New GrapeCity.ActiveReports.SectionReportModel.ReportFooter() Me.Line8 = New GrapeCity.ActiveReports.SectionReportModel.Line() Me.Line9 = New GrapeCity.ActiveReports.SectionReportModel.Line() @@ -96,8 +98,7 @@ Partial Public Class rptSammelRechnungAnlagenDruck Me.Line15 = New GrapeCity.ActiveReports.SectionReportModel.Line() Me.Line17 = New GrapeCity.ActiveReports.SectionReportModel.Line() Me.GroupFooter4 = New GrapeCity.ActiveReports.SectionReportModel.GroupFooter() - Me.lblRechnungAn = New GrapeCity.ActiveReports.SectionReportModel.Label() - Me.Line13 = New GrapeCity.ActiveReports.SectionReportModel.Line() + Me.txtBank3 = New GrapeCity.ActiveReports.SectionReportModel.TextBox() CType(Me.lblPosNr, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblDatum, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblSteuerfrei, System.ComponentModel.ISupportInitialize).BeginInit() @@ -139,6 +140,7 @@ Partial Public Class rptSammelRechnungAnlagenDruck CType(Me.lblRechnung_Steuernummer_Ueberschrift, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblRechnung_Steuernummer, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblFirma, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblRechnungAn, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblSummeUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblSteuerfreiGes, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblSteuerpflichtigGes, System.ComponentModel.ISupportInitialize).BeginInit() @@ -153,7 +155,7 @@ Partial Public Class rptSammelRechnungAnlagenDruck CType(Me.lblPosNrUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblSendungUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblSteuerfreiUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.lblRechnungAn, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtBank3, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me, System.ComponentModel.ISupportInitialize).BeginInit() ' 'PageHeader @@ -299,7 +301,7 @@ Partial Public Class rptSammelRechnungAnlagenDruck ' 'PageFooter ' - Me.PageFooter.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Line2, Me.ReportInfo2, Me.lblBankUeberschrift, Me.txtBank1, Me.txtBank2, Me.txtDisclaimer}) + Me.PageFooter.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Line2, Me.ReportInfo2, Me.lblBankUeberschrift, Me.txtBank1, Me.txtBank2, Me.txtDisclaimer, Me.txtBank3}) Me.PageFooter.Height = 0.8791339! Me.PageFooter.Name = "PageFooter" ' @@ -348,19 +350,19 @@ Partial Public Class rptSammelRechnungAnlagenDruck Me.txtBank1.Text = "Deutschland:" & Global.Microsoft.VisualBasic.ChrW(10) & "Raiffeisenbank Suben" & Global.Microsoft.VisualBasic.ChrW(10) & "IBAN: AT54 3445 5000 0420 7791" & Global.Microsoft.VisualBasic.ChrW(10) & "BIC: RZOOAT2L455" & "" Me.txtBank1.Top = 0.1173228! - Me.txtBank1.Width = 2.483071! + Me.txtBank1.Width = 1.764173! ' 'txtBank2 ' Me.txtBank2.Height = 0.4181103! - Me.txtBank2.Left = 3.694095! + Me.txtBank2.Left = 2.975197! Me.txtBank2.Name = "txtBank2" Me.txtBank2.Style = "font-size: 8pt; font-weight: normal; text-align: left; text-justify: auto; ddo-ch" & "ar-set: 1" Me.txtBank2.Text = "Deutschland:" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Raiffeisenbank Suben" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "IBAN: AT54 3445 5000 0420 7791" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "BIC: RZOOAT2L" & "455" Me.txtBank2.Top = 0.1173228! - Me.txtBank2.Width = 2.472835! + Me.txtBank2.Width = 1.78622! ' 'txtDisclaimer ' @@ -726,6 +728,32 @@ Partial Public Class rptSammelRechnungAnlagenDruck Me.lblFirma.Top = 1.473528! Me.lblFirma.Width = 3.619685! ' + 'lblRechnungAn + ' + Me.lblRechnungAn.Height = 1.291339! + Me.lblRechnungAn.HyperLink = Nothing + Me.lblRechnungAn.Left = 0.514567! + Me.lblRechnungAn.Name = "lblRechnungAn" + Me.lblRechnungAn.Style = "font-size: 10pt; font-weight: normal; text-align: left; vertical-align: top; ddo-" & + "char-set: 1" + Me.lblRechnungAn.Text = "VERAG Spedition AG" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Abteilung: ZOLL" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Zusatz" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Suben Nr. 100" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "A 4975 SUBEN" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "ÖSTERRE" & + "ICH" + Me.lblRechnungAn.Top = 1.714173! + Me.lblRechnungAn.Width = 4.589763! + ' + 'Line13 + ' + Me.Line13.Height = 0! + Me.Line13.Left = 0.5145669! + Me.Line13.LineWeight = 1.0! + Me.Line13.Name = "Line13" + Me.Line13.Top = 1.64685! + Me.Line13.Width = 3.619684! + Me.Line13.X1 = 0.5145669! + Me.Line13.X2 = 4.134251! + Me.Line13.Y1 = 1.64685! + Me.Line13.Y2 = 1.64685! + ' 'ReportFooter1 ' Me.ReportFooter1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Line8, Me.Line9, Me.lblSummeUeberschrift, Me.lblSteuerfreiGes, Me.lblSteuerpflichtigGes, Me.lblSumme, Me.Label46, Me.Line1, Me.Line5, Me.lblZWSumme, Me.lblSteuerbetrag, Me.lblSteuersatz, Me.Line6, Me.Line7, Me.Line14, Me.lblZwText}) @@ -1070,31 +1098,21 @@ Partial Public Class rptSammelRechnungAnlagenDruck Me.GroupFooter4.Height = 0! Me.GroupFooter4.Name = "GroupFooter4" ' - 'lblRechnungAn + 'txtBank3 ' - Me.lblRechnungAn.Height = 1.291339! - Me.lblRechnungAn.HyperLink = Nothing - Me.lblRechnungAn.Left = 0.514567! - Me.lblRechnungAn.Name = "lblRechnungAn" - Me.lblRechnungAn.Style = "font-size: 10pt; font-weight: normal; text-align: left; vertical-align: top; ddo-" & - "char-set: 1" - Me.lblRechnungAn.Text = "VERAG Spedition AG" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Abteilung: ZOLL" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Zusatz" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Suben Nr. 100" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "A 4975 SUBEN" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "ÖSTERRE" & - "ICH" - Me.lblRechnungAn.Top = 1.714173! - Me.lblRechnungAn.Width = 4.589763! - ' - 'Line13 - ' - Me.Line13.Height = 0! - Me.Line13.Left = 0.5145669! - Me.Line13.LineWeight = 1.0! - Me.Line13.Name = "Line13" - Me.Line13.Top = 1.64685! - Me.Line13.Width = 3.619684! - Me.Line13.X1 = 0.5145669! - Me.Line13.X2 = 4.134251! - Me.Line13.Y1 = 1.64685! - Me.Line13.Y2 = 1.64685! + Me.txtBank3.DataField = "" + Me.txtBank3.DistinctField = "" + Me.txtBank3.Height = 0.4181104! + Me.txtBank3.Left = 4.761418! + Me.txtBank3.Name = "txtBank3" + Me.txtBank3.Style = "color: Black; font-size: 8pt; font-weight: normal; text-align: left; text-justify" & + ": auto; ddo-char-set: 1" + Me.txtBank3.SummaryGroup = "" + Me.txtBank3.Text = "Deutschland:" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Raiffeisenbank Suben" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "IBAN: AT54 3445 5000 0420 7791" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "BIC: RZOOAT2L" & + "455" + Me.txtBank3.Top = 0.1173228! + Me.txtBank3.Visible = False + Me.txtBank3.Width = 1.78622! ' 'rptSammelRechnungAnlagenDruck ' @@ -1159,6 +1177,7 @@ Partial Public Class rptSammelRechnungAnlagenDruck CType(Me.lblRechnung_Steuernummer_Ueberschrift, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblRechnung_Steuernummer, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblFirma, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblRechnungAn, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblSummeUeberschrift, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblSteuerfreiGes, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblSteuerpflichtigGes, System.ComponentModel.ISupportInitialize).EndInit() @@ -1173,7 +1192,7 @@ Partial Public Class rptSammelRechnungAnlagenDruck CType(Me.lblPosNrUeberschrift, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblSendungUeberschrift, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblSteuerfreiUeberschrift, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.lblRechnungAn, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtBank3, System.ComponentModel.ISupportInitialize).EndInit() CType(Me, System.ComponentModel.ISupportInitialize).EndInit() End Sub @@ -1256,4 +1275,5 @@ Partial Public Class rptSammelRechnungAnlagenDruck Public WithEvents lblRgDatumUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label Public WithEvents lblRechnungAn As GrapeCity.ActiveReports.SectionReportModel.Label Private WithEvents Line13 As GrapeCity.ActiveReports.SectionReportModel.Line + Public WithEvents txtBank3 As GrapeCity.ActiveReports.SectionReportModel.TextBox End Class diff --git a/SDL/Fakturierung/rptSammelRechnungDruck.Designer.vb b/SDL/Fakturierung/rptSammelRechnungDruck.Designer.vb index c4139a55..fd22790f 100644 --- a/SDL/Fakturierung/rptSammelRechnungDruck.Designer.vb +++ b/SDL/Fakturierung/rptSammelRechnungDruck.Designer.vb @@ -99,6 +99,7 @@ Partial Public Class rptSammelRechnungDruck Me.Line15 = New GrapeCity.ActiveReports.SectionReportModel.Line() Me.Line17 = New GrapeCity.ActiveReports.SectionReportModel.Line() Me.GroupFooter4 = New GrapeCity.ActiveReports.SectionReportModel.GroupFooter() + Me.txtBank3 = New GrapeCity.ActiveReports.SectionReportModel.TextBox() CType(Me.lblLeistungNr, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblAnzahl, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblSteuerfrei, System.ComponentModel.ISupportInitialize).BeginInit() @@ -157,6 +158,7 @@ Partial Public Class rptSammelRechnungDruck CType(Me.lblLeistungUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblAnzahlUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblSteuerfreiUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtBank3, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me, System.ComponentModel.ISupportInitialize).BeginInit() ' 'PageHeader @@ -258,7 +260,7 @@ Partial Public Class rptSammelRechnungDruck ' 'PageFooter ' - Me.PageFooter.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Line2, Me.ReportInfo2, Me.lblBankUeberschrift, Me.txtBank1, Me.txtBank2, Me.txtDisclaimer}) + Me.PageFooter.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Line2, Me.ReportInfo2, Me.lblBankUeberschrift, Me.txtBank1, Me.txtBank2, Me.txtDisclaimer, Me.txtBank3}) Me.PageFooter.Height = 0.8791339! Me.PageFooter.Name = "PageFooter" ' @@ -307,19 +309,19 @@ Partial Public Class rptSammelRechnungDruck Me.txtBank1.Text = "Deutschland:" & Global.Microsoft.VisualBasic.ChrW(10) & "Raiffeisenbank Suben" & Global.Microsoft.VisualBasic.ChrW(10) & "IBAN: AT54 3445 5000 0420 7791" & Global.Microsoft.VisualBasic.ChrW(10) & "BIC: RZOOAT2L455" & "" Me.txtBank1.Top = 0.1173228! - Me.txtBank1.Width = 2.512205! + Me.txtBank1.Width = 1.783071! ' 'txtBank2 ' Me.txtBank2.Height = 0.4181103! - Me.txtBank2.Left = 3.661417! + Me.txtBank2.Left = 2.994095! Me.txtBank2.Name = "txtBank2" Me.txtBank2.Style = "font-size: 8pt; font-weight: normal; text-align: left; text-justify: auto; ddo-ch" & "ar-set: 1" Me.txtBank2.Text = "Deutschland:" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Raiffeisenbank Suben" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "IBAN: AT54 3445 5000 0420 7791" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "BIC: RZOOAT2L" & "455" Me.txtBank2.Top = 0.1173228! - Me.txtBank2.Width = 2.837401! + Me.txtBank2.Width = 1.79567! ' 'txtDisclaimer ' @@ -1113,6 +1115,22 @@ Partial Public Class rptSammelRechnungDruck Me.GroupFooter4.Height = 0! Me.GroupFooter4.Name = "GroupFooter4" ' + 'txtBank3 + ' + Me.txtBank3.DataField = "" + Me.txtBank3.DistinctField = "" + Me.txtBank3.Height = 0.4181104! + Me.txtBank3.Left = 4.700394! + Me.txtBank3.Name = "txtBank3" + Me.txtBank3.Style = "color: Black; font-size: 8pt; font-weight: normal; text-align: left; text-justify" & + ": auto; ddo-char-set: 1" + Me.txtBank3.SummaryGroup = "" + Me.txtBank3.Text = "Deutschland:" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Raiffeisenbank Suben" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "IBAN: AT54 3445 5000 0420 7791" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "BIC: RZOOAT2L" & + "455" + Me.txtBank3.Top = 0.1901575! + Me.txtBank3.Visible = False + Me.txtBank3.Width = 1.795669! + ' 'rptSammelRechnungDruck ' Me.PageSettings.Margins.Bottom = 0.3937008! @@ -1193,6 +1211,7 @@ Partial Public Class rptSammelRechnungDruck CType(Me.lblLeistungUeberschrift, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblAnzahlUeberschrift, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblSteuerfreiUeberschrift, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtBank3, System.ComponentModel.ISupportInitialize).EndInit() CType(Me, System.ComponentModel.ISupportInitialize).EndInit() End Sub @@ -1276,4 +1295,5 @@ Partial Public Class rptSammelRechnungDruck Public WithEvents Label1 As GrapeCity.ActiveReports.SectionReportModel.Label Public WithEvents lblRgDatumUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label Public WithEvents lblRechnungAn As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents txtBank3 As GrapeCity.ActiveReports.SectionReportModel.TextBox End Class diff --git a/SDL/Fakturierung/usrCntlFaktAbrechnung.Designer.vb b/SDL/Fakturierung/usrCntlFaktAbrechnung.Designer.vb index 5e10ffaa..ba73b0f0 100644 --- a/SDL/Fakturierung/usrCntlFaktAbrechnung.Designer.vb +++ b/SDL/Fakturierung/usrCntlFaktAbrechnung.Designer.vb @@ -45,11 +45,6 @@ Partial Class usrCntlFaktAbrechnung Dim DataGridViewCellStyle20 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle21 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(usrCntlFaktAbrechnung)) - Dim DataGridViewCellStyle22 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle23 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle24 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle25 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle26 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Me.Label9 = New System.Windows.Forms.Label() Me.Label4 = New System.Windows.Forms.Label() Me.pnlTop = New System.Windows.Forms.Panel() @@ -89,11 +84,11 @@ Partial Class usrCntlFaktAbrechnung Me.Panel1 = New System.Windows.Forms.Panel() Me.txtTextZZ = New VERAG_PROG_ALLGEMEIN.MyRichTextBox() Me.dgvAnhaenge = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) - Me.DataGridViewCheckBoxColumn1 = New System.Windows.Forms.DataGridViewCheckBoxColumn() - Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.optAnhSel = New System.Windows.Forms.DataGridViewCheckBoxColumn() Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.DataGridViewTextBoxColumn3 = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.DataGridViewTextBoxColumn4 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.clmnBezeichnung = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.clmnDsId = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.clmnAnhId = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.Label36 = New System.Windows.Forms.Label() Me.Label54 = New System.Windows.Forms.Label() Me.cboRechnungSprache = New VERAG_PROG_ALLGEMEIN.MyComboBox() @@ -211,12 +206,12 @@ Partial Class usrCntlFaktAbrechnung Me.Label29 = New System.Windows.Forms.Label() Me.Label30 = New System.Windows.Forms.Label() Me.dgvRechnungenPositionen = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) - Me.DataGridViewTextBoxColumn5 = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.DataGridViewTextBoxColumn6 = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.DataGridViewTextBoxColumn7 = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.DataGridViewTextBoxColumn8 = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.DataGridViewTextBoxColumn9 = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.DataGridViewTextBoxColumn10 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.Leistung = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.Anzahl = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.Preis = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.SteuerpflichtigerBetrag = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.SteuerfreierBetrag = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.Aufschubkonto = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.dgvOffertenSperrliste = New System.Windows.Forms.DataGridView() Me.dgvOfferteDetailsUebersicht = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) Me.txtRohmasse = New VERAG_PROG_ALLGEMEIN.MyTextBox() @@ -241,6 +236,7 @@ Partial Class usrCntlFaktAbrechnung Me.lblEUR_4 = New System.Windows.Forms.Label() Me.Label55 = New System.Windows.Forms.Label() Me.cboSteuerschlüssel = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.rtbAbf_Besonderheiten = New SDL.usrCntlKundenBesonderheiten() Me.cbxOriginalPrint = New System.Windows.Forms.CheckBox() Me.Label46 = New System.Windows.Forms.Label() Me.Button9 = New System.Windows.Forms.Button() @@ -280,18 +276,7 @@ Partial Class usrCntlFaktAbrechnung Me.ContextMenuStrip2 = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.GutschriftAusRechnungToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.SeperateRechnungFürEUSTToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() - Me.EUStGutschriftAnVeragToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() - Me.optAnhSel = New System.Windows.Forms.DataGridViewCheckBoxColumn() - Me.clmnBezeichnung = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.clmnDsId = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.clmnAnhId = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.Leistung = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.Anzahl = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.Preis = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.SteuerpflichtigerBetrag = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.SteuerfreierBetrag = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.Aufschubkonto = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.rtbAbf_Besonderheiten = New SDL.usrCntlKundenBesonderheiten() + Me.GutschriftAnVeragToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.pnlTop.SuspendLayout() Me.Panel3.SuspendLayout() Me.Panel1.SuspendLayout() @@ -890,7 +875,7 @@ Partial Class usrCntlFaktAbrechnung DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] Me.dgvAnhaenge.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle1 Me.dgvAnhaenge.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - Me.dgvAnhaenge.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.DataGridViewCheckBoxColumn1, Me.DataGridViewTextBoxColumn1, Me.DataGridViewTextBoxColumn2, Me.DataGridViewTextBoxColumn3, Me.DataGridViewTextBoxColumn4}) + Me.dgvAnhaenge.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.optAnhSel, Me.DataGridViewTextBoxColumn2, Me.clmnBezeichnung, Me.clmnDsId, Me.clmnAnhId}) DataGridViewCellStyle4.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft DataGridViewCellStyle4.BackColor = System.Drawing.SystemColors.Window DataGridViewCellStyle4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) @@ -918,60 +903,59 @@ Partial Class usrCntlFaktAbrechnung Me.dgvAnhaenge.TabIndex = 90 Me.dgvAnhaenge.TabStop = False ' - 'DataGridViewCheckBoxColumn1 + 'optAnhSel ' - Me.DataGridViewCheckBoxColumn1.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.None - Me.DataGridViewCheckBoxColumn1.FillWeight = 78.74017! - Me.DataGridViewCheckBoxColumn1.HeaderText = "" - Me.DataGridViewCheckBoxColumn1.MinimumWidth = 8 - Me.DataGridViewCheckBoxColumn1.Name = "DataGridViewCheckBoxColumn1" - Me.DataGridViewCheckBoxColumn1.ReadOnly = True - Me.DataGridViewCheckBoxColumn1.Resizable = System.Windows.Forms.DataGridViewTriState.[True] - Me.DataGridViewCheckBoxColumn1.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.Automatic - Me.DataGridViewCheckBoxColumn1.Width = 35 + Me.optAnhSel.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.None + Me.optAnhSel.FillWeight = 78.74017! + Me.optAnhSel.HeaderText = "" + Me.optAnhSel.MinimumWidth = 8 + Me.optAnhSel.Name = "optAnhSel" + Me.optAnhSel.ReadOnly = True + Me.optAnhSel.Resizable = System.Windows.Forms.DataGridViewTriState.[True] + Me.optAnhSel.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.Automatic + Me.optAnhSel.Width = 35 ' - 'DataGridViewTextBoxColumn1 + 'DataGridViewTextBoxColumn2 ' DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight DataGridViewCellStyle2.Format = "N0" DataGridViewCellStyle2.NullValue = Nothing - Me.DataGridViewTextBoxColumn1.DefaultCellStyle = DataGridViewCellStyle2 - Me.DataGridViewTextBoxColumn1.HeaderText = "Art" - Me.DataGridViewTextBoxColumn1.MinimumWidth = 8 - Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1" - Me.DataGridViewTextBoxColumn1.ReadOnly = True - Me.DataGridViewTextBoxColumn1.Width = 70 - ' - 'DataGridViewTextBoxColumn2 - ' - Me.DataGridViewTextBoxColumn2.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill - DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight - DataGridViewCellStyle3.Format = "N0" - DataGridViewCellStyle3.NullValue = Nothing - Me.DataGridViewTextBoxColumn2.DefaultCellStyle = DataGridViewCellStyle3 - Me.DataGridViewTextBoxColumn2.FillWeight = 121.2598! + Me.DataGridViewTextBoxColumn2.DefaultCellStyle = DataGridViewCellStyle2 Me.DataGridViewTextBoxColumn2.HeaderText = "Art" Me.DataGridViewTextBoxColumn2.MinimumWidth = 8 Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2" Me.DataGridViewTextBoxColumn2.ReadOnly = True + Me.DataGridViewTextBoxColumn2.Width = 70 ' - 'DataGridViewTextBoxColumn3 + 'clmnBezeichnung ' - Me.DataGridViewTextBoxColumn3.HeaderText = "clmnDsId" - Me.DataGridViewTextBoxColumn3.MinimumWidth = 8 - Me.DataGridViewTextBoxColumn3.Name = "DataGridViewTextBoxColumn3" - Me.DataGridViewTextBoxColumn3.ReadOnly = True - Me.DataGridViewTextBoxColumn3.Visible = False - Me.DataGridViewTextBoxColumn3.Width = 150 + Me.clmnBezeichnung.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill + DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle3.Format = "c2" + Me.clmnBezeichnung.DefaultCellStyle = DataGridViewCellStyle3 + Me.clmnBezeichnung.FillWeight = 121.2598! + Me.clmnBezeichnung.HeaderText = "Bezeichnung" + Me.clmnBezeichnung.MinimumWidth = 8 + Me.clmnBezeichnung.Name = "clmnBezeichnung" + Me.clmnBezeichnung.ReadOnly = True ' - 'DataGridViewTextBoxColumn4 + 'clmnDsId ' - Me.DataGridViewTextBoxColumn4.HeaderText = "clmnAnhId" - Me.DataGridViewTextBoxColumn4.MinimumWidth = 8 - Me.DataGridViewTextBoxColumn4.Name = "DataGridViewTextBoxColumn4" - Me.DataGridViewTextBoxColumn4.ReadOnly = True - Me.DataGridViewTextBoxColumn4.Visible = False - Me.DataGridViewTextBoxColumn4.Width = 150 + Me.clmnDsId.HeaderText = "clmnDsId" + Me.clmnDsId.MinimumWidth = 8 + Me.clmnDsId.Name = "clmnDsId" + Me.clmnDsId.ReadOnly = True + Me.clmnDsId.Visible = False + Me.clmnDsId.Width = 150 + ' + 'clmnAnhId + ' + Me.clmnAnhId.HeaderText = "clmnAnhId" + Me.clmnAnhId.MinimumWidth = 8 + Me.clmnAnhId.Name = "clmnAnhId" + Me.clmnAnhId.ReadOnly = True + Me.clmnAnhId.Visible = False + Me.clmnAnhId.Width = 150 ' 'Label36 ' @@ -2925,7 +2909,7 @@ Partial Class usrCntlFaktAbrechnung DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] Me.dgvRechnungenPositionen.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle6 Me.dgvRechnungenPositionen.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - Me.dgvRechnungenPositionen.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.DataGridViewTextBoxColumn5, Me.DataGridViewTextBoxColumn6, Me.DataGridViewTextBoxColumn7, Me.DataGridViewTextBoxColumn8, Me.DataGridViewTextBoxColumn9, Me.DataGridViewTextBoxColumn10}) + Me.dgvRechnungenPositionen.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.Leistung, Me.Anzahl, Me.Preis, Me.SteuerpflichtigerBetrag, Me.SteuerfreierBetrag, Me.Aufschubkonto}) DataGridViewCellStyle11.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft DataGridViewCellStyle11.BackColor = System.Drawing.SystemColors.Window DataGridViewCellStyle11.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) @@ -2952,67 +2936,67 @@ Partial Class usrCntlFaktAbrechnung Me.dgvRechnungenPositionen.TabIndex = 5 Me.dgvRechnungenPositionen.TabStop = False ' - 'DataGridViewTextBoxColumn5 + 'Leistung ' - Me.DataGridViewTextBoxColumn5.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill - Me.DataGridViewTextBoxColumn5.HeaderText = "Leistung" - Me.DataGridViewTextBoxColumn5.MinimumWidth = 8 - Me.DataGridViewTextBoxColumn5.Name = "DataGridViewTextBoxColumn5" - Me.DataGridViewTextBoxColumn5.ReadOnly = True + Me.Leistung.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill + Me.Leistung.HeaderText = "Leistung" + Me.Leistung.MinimumWidth = 8 + Me.Leistung.Name = "Leistung" + Me.Leistung.ReadOnly = True ' - 'DataGridViewTextBoxColumn6 + 'Anzahl ' DataGridViewCellStyle7.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight DataGridViewCellStyle7.Format = "N0" DataGridViewCellStyle7.NullValue = Nothing - Me.DataGridViewTextBoxColumn6.DefaultCellStyle = DataGridViewCellStyle7 - Me.DataGridViewTextBoxColumn6.HeaderText = "Anzahl" - Me.DataGridViewTextBoxColumn6.MinimumWidth = 8 - Me.DataGridViewTextBoxColumn6.Name = "DataGridViewTextBoxColumn6" - Me.DataGridViewTextBoxColumn6.ReadOnly = True - Me.DataGridViewTextBoxColumn6.Width = 50 + Me.Anzahl.DefaultCellStyle = DataGridViewCellStyle7 + Me.Anzahl.HeaderText = "Anzahl" + Me.Anzahl.MinimumWidth = 8 + Me.Anzahl.Name = "Anzahl" + Me.Anzahl.ReadOnly = True + Me.Anzahl.Width = 50 ' - 'DataGridViewTextBoxColumn7 + 'Preis ' DataGridViewCellStyle8.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight DataGridViewCellStyle8.Format = "c2" - Me.DataGridViewTextBoxColumn7.DefaultCellStyle = DataGridViewCellStyle8 - Me.DataGridViewTextBoxColumn7.HeaderText = "Preis" - Me.DataGridViewTextBoxColumn7.MinimumWidth = 8 - Me.DataGridViewTextBoxColumn7.Name = "DataGridViewTextBoxColumn7" - Me.DataGridViewTextBoxColumn7.ReadOnly = True - Me.DataGridViewTextBoxColumn7.Width = 80 + Me.Preis.DefaultCellStyle = DataGridViewCellStyle8 + Me.Preis.HeaderText = "Preis" + Me.Preis.MinimumWidth = 8 + Me.Preis.Name = "Preis" + Me.Preis.ReadOnly = True + Me.Preis.Width = 80 ' - 'DataGridViewTextBoxColumn8 + 'SteuerpflichtigerBetrag ' DataGridViewCellStyle9.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight DataGridViewCellStyle9.Format = "c2" - Me.DataGridViewTextBoxColumn8.DefaultCellStyle = DataGridViewCellStyle9 - Me.DataGridViewTextBoxColumn8.HeaderText = "Steuerpfl." - Me.DataGridViewTextBoxColumn8.MinimumWidth = 8 - Me.DataGridViewTextBoxColumn8.Name = "DataGridViewTextBoxColumn8" - Me.DataGridViewTextBoxColumn8.ReadOnly = True - Me.DataGridViewTextBoxColumn8.Width = 120 + Me.SteuerpflichtigerBetrag.DefaultCellStyle = DataGridViewCellStyle9 + Me.SteuerpflichtigerBetrag.HeaderText = "Steuerpfl." + Me.SteuerpflichtigerBetrag.MinimumWidth = 8 + Me.SteuerpflichtigerBetrag.Name = "SteuerpflichtigerBetrag" + Me.SteuerpflichtigerBetrag.ReadOnly = True + Me.SteuerpflichtigerBetrag.Width = 120 ' - 'DataGridViewTextBoxColumn9 + 'SteuerfreierBetrag ' DataGridViewCellStyle10.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight DataGridViewCellStyle10.Format = "C2" DataGridViewCellStyle10.NullValue = Nothing - Me.DataGridViewTextBoxColumn9.DefaultCellStyle = DataGridViewCellStyle10 - Me.DataGridViewTextBoxColumn9.HeaderText = "Steuerfrei" - Me.DataGridViewTextBoxColumn9.MinimumWidth = 8 - Me.DataGridViewTextBoxColumn9.Name = "DataGridViewTextBoxColumn9" - Me.DataGridViewTextBoxColumn9.ReadOnly = True - Me.DataGridViewTextBoxColumn9.Width = 120 + Me.SteuerfreierBetrag.DefaultCellStyle = DataGridViewCellStyle10 + Me.SteuerfreierBetrag.HeaderText = "Steuerfrei" + Me.SteuerfreierBetrag.MinimumWidth = 8 + Me.SteuerfreierBetrag.Name = "SteuerfreierBetrag" + Me.SteuerfreierBetrag.ReadOnly = True + Me.SteuerfreierBetrag.Width = 120 ' - 'DataGridViewTextBoxColumn10 + 'Aufschubkonto ' - Me.DataGridViewTextBoxColumn10.HeaderText = "Aufschubkonto" - Me.DataGridViewTextBoxColumn10.MinimumWidth = 8 - Me.DataGridViewTextBoxColumn10.Name = "DataGridViewTextBoxColumn10" - Me.DataGridViewTextBoxColumn10.ReadOnly = True - Me.DataGridViewTextBoxColumn10.Width = 120 + Me.Aufschubkonto.HeaderText = "Aufschubkonto" + Me.Aufschubkonto.MinimumWidth = 8 + Me.Aufschubkonto.Name = "Aufschubkonto" + Me.Aufschubkonto.ReadOnly = True + Me.Aufschubkonto.Width = 120 ' 'dgvOffertenSperrliste ' @@ -3493,6 +3477,17 @@ Partial Class usrCntlFaktAbrechnung Me.cboSteuerschlüssel.Size = New System.Drawing.Size(145, 21) Me.cboSteuerschlüssel.TabIndex = 3 ' + 'rtbAbf_Besonderheiten + ' + Me.rtbAbf_Besonderheiten.BackColor = System.Drawing.Color.White + Me.rtbAbf_Besonderheiten.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.rtbAbf_Besonderheiten.Location = New System.Drawing.Point(10, 19) + Me.rtbAbf_Besonderheiten.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.rtbAbf_Besonderheiten.Name = "rtbAbf_Besonderheiten" + Me.rtbAbf_Besonderheiten.Size = New System.Drawing.Size(107, 133) + Me.rtbAbf_Besonderheiten.TabIndex = 235 + Me.rtbAbf_Besonderheiten.Visible = False + ' 'cbxOriginalPrint ' Me.cbxOriginalPrint.AutoSize = True @@ -3932,7 +3927,7 @@ Partial Class usrCntlFaktAbrechnung ' 'ContextMenuStrip2 ' - Me.ContextMenuStrip2.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.GutschriftAusRechnungToolStripMenuItem, Me.SeperateRechnungFürEUSTToolStripMenuItem, Me.EUStGutschriftAnVeragToolStripMenuItem}) + Me.ContextMenuStrip2.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.GutschriftAusRechnungToolStripMenuItem, Me.SeperateRechnungFürEUSTToolStripMenuItem, Me.GutschriftAnVeragToolStripMenuItem}) Me.ContextMenuStrip2.Name = "ContextMenuStrip2" Me.ContextMenuStrip2.Size = New System.Drawing.Size(224, 92) ' @@ -3948,127 +3943,11 @@ Partial Class usrCntlFaktAbrechnung Me.SeperateRechnungFürEUSTToolStripMenuItem.Size = New System.Drawing.Size(223, 22) Me.SeperateRechnungFürEUSTToolStripMenuItem.Text = "Seperate Rechnung für EUST" ' - 'EUStGutschriftAnVeragToolStripMenuItem + 'GutschriftAnVeragToolStripMenuItem ' - Me.EUStGutschriftAnVeragToolStripMenuItem.Name = "EUStGutschriftAnVeragToolStripMenuItem" - Me.EUStGutschriftAnVeragToolStripMenuItem.Size = New System.Drawing.Size(223, 22) - Me.EUStGutschriftAnVeragToolStripMenuItem.Text = "EUSt Gutschrift an Verag" - Me.EUStGutschriftAnVeragToolStripMenuItem.Visible = False - ' - 'optAnhSel - ' - Me.optAnhSel.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.None - Me.optAnhSel.FillWeight = 78.74017! - Me.optAnhSel.HeaderText = "" - Me.optAnhSel.MinimumWidth = 8 - Me.optAnhSel.Name = "optAnhSel" - Me.optAnhSel.ReadOnly = True - Me.optAnhSel.Resizable = System.Windows.Forms.DataGridViewTriState.[True] - Me.optAnhSel.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.Automatic - Me.optAnhSel.Width = 35 - ' - 'clmnBezeichnung - ' - Me.clmnBezeichnung.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill - DataGridViewCellStyle22.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle22.Format = "c2" - Me.clmnBezeichnung.DefaultCellStyle = DataGridViewCellStyle22 - Me.clmnBezeichnung.FillWeight = 121.2598! - Me.clmnBezeichnung.HeaderText = "Bezeichnung" - Me.clmnBezeichnung.MinimumWidth = 8 - Me.clmnBezeichnung.Name = "clmnBezeichnung" - Me.clmnBezeichnung.ReadOnly = True - ' - 'clmnDsId - ' - Me.clmnDsId.HeaderText = "clmnDsId" - Me.clmnDsId.MinimumWidth = 8 - Me.clmnDsId.Name = "clmnDsId" - Me.clmnDsId.ReadOnly = True - Me.clmnDsId.Visible = False - Me.clmnDsId.Width = 150 - ' - 'clmnAnhId - ' - Me.clmnAnhId.HeaderText = "clmnAnhId" - Me.clmnAnhId.MinimumWidth = 8 - Me.clmnAnhId.Name = "clmnAnhId" - Me.clmnAnhId.ReadOnly = True - Me.clmnAnhId.Visible = False - Me.clmnAnhId.Width = 150 - ' - 'Leistung - ' - Me.Leistung.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill - Me.Leistung.HeaderText = "Leistung" - Me.Leistung.MinimumWidth = 8 - Me.Leistung.Name = "Leistung" - Me.Leistung.ReadOnly = True - ' - 'Anzahl - ' - DataGridViewCellStyle23.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight - DataGridViewCellStyle23.Format = "N0" - DataGridViewCellStyle23.NullValue = Nothing - Me.Anzahl.DefaultCellStyle = DataGridViewCellStyle23 - Me.Anzahl.HeaderText = "Anzahl" - Me.Anzahl.MinimumWidth = 8 - Me.Anzahl.Name = "Anzahl" - Me.Anzahl.ReadOnly = True - Me.Anzahl.Width = 50 - ' - 'Preis - ' - DataGridViewCellStyle24.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight - DataGridViewCellStyle24.Format = "c2" - Me.Preis.DefaultCellStyle = DataGridViewCellStyle24 - Me.Preis.HeaderText = "Preis" - Me.Preis.MinimumWidth = 8 - Me.Preis.Name = "Preis" - Me.Preis.ReadOnly = True - Me.Preis.Width = 80 - ' - 'SteuerpflichtigerBetrag - ' - DataGridViewCellStyle25.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight - DataGridViewCellStyle25.Format = "c2" - Me.SteuerpflichtigerBetrag.DefaultCellStyle = DataGridViewCellStyle25 - Me.SteuerpflichtigerBetrag.HeaderText = "Steuerpfl." - Me.SteuerpflichtigerBetrag.MinimumWidth = 8 - Me.SteuerpflichtigerBetrag.Name = "SteuerpflichtigerBetrag" - Me.SteuerpflichtigerBetrag.ReadOnly = True - Me.SteuerpflichtigerBetrag.Width = 120 - ' - 'SteuerfreierBetrag - ' - DataGridViewCellStyle26.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight - DataGridViewCellStyle26.Format = "C2" - DataGridViewCellStyle26.NullValue = Nothing - Me.SteuerfreierBetrag.DefaultCellStyle = DataGridViewCellStyle26 - Me.SteuerfreierBetrag.HeaderText = "Steuerfrei" - Me.SteuerfreierBetrag.MinimumWidth = 8 - Me.SteuerfreierBetrag.Name = "SteuerfreierBetrag" - Me.SteuerfreierBetrag.ReadOnly = True - Me.SteuerfreierBetrag.Width = 120 - ' - 'Aufschubkonto - ' - Me.Aufschubkonto.HeaderText = "Aufschubkonto" - Me.Aufschubkonto.MinimumWidth = 8 - Me.Aufschubkonto.Name = "Aufschubkonto" - Me.Aufschubkonto.ReadOnly = True - Me.Aufschubkonto.Width = 120 - ' - 'rtbAbf_Besonderheiten - ' - Me.rtbAbf_Besonderheiten.BackColor = System.Drawing.Color.White - Me.rtbAbf_Besonderheiten.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.rtbAbf_Besonderheiten.Location = New System.Drawing.Point(10, 19) - Me.rtbAbf_Besonderheiten.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) - Me.rtbAbf_Besonderheiten.Name = "rtbAbf_Besonderheiten" - Me.rtbAbf_Besonderheiten.Size = New System.Drawing.Size(107, 133) - Me.rtbAbf_Besonderheiten.TabIndex = 235 - Me.rtbAbf_Besonderheiten.Visible = False + Me.GutschriftAnVeragToolStripMenuItem.Name = "GutschriftAnVeragToolStripMenuItem" + Me.GutschriftAnVeragToolStripMenuItem.Size = New System.Drawing.Size(223, 22) + Me.GutschriftAnVeragToolStripMenuItem.Text = "Gutschrift an Verag" ' 'usrCntlFaktAbrechnung ' @@ -4351,15 +4230,5 @@ Partial Class usrCntlFaktAbrechnung Friend WithEvents SeperateRechnungFürEUSTToolStripMenuItem As ToolStripMenuItem Friend WithEvents Label56 As Label Friend WithEvents txtRechnungAnZusatz As VERAG_PROG_ALLGEMEIN.MyTextBox - Friend WithEvents EUStGutschriftAnVeragToolStripMenuItem As ToolStripMenuItem - Friend WithEvents DataGridViewCheckBoxColumn1 As DataGridViewCheckBoxColumn - Friend WithEvents DataGridViewTextBoxColumn1 As DataGridViewTextBoxColumn - Friend WithEvents DataGridViewTextBoxColumn3 As DataGridViewTextBoxColumn - Friend WithEvents DataGridViewTextBoxColumn4 As DataGridViewTextBoxColumn - Friend WithEvents DataGridViewTextBoxColumn5 As DataGridViewTextBoxColumn - Friend WithEvents DataGridViewTextBoxColumn6 As DataGridViewTextBoxColumn - Friend WithEvents DataGridViewTextBoxColumn7 As DataGridViewTextBoxColumn - Friend WithEvents DataGridViewTextBoxColumn8 As DataGridViewTextBoxColumn - Friend WithEvents DataGridViewTextBoxColumn9 As DataGridViewTextBoxColumn - Friend WithEvents DataGridViewTextBoxColumn10 As DataGridViewTextBoxColumn + Friend WithEvents GutschriftAnVeragToolStripMenuItem As ToolStripMenuItem End Class diff --git a/SDL/Fakturierung/usrCntlFaktAbrechnung.resx b/SDL/Fakturierung/usrCntlFaktAbrechnung.resx index 94449424..e32eb792 100644 --- a/SDL/Fakturierung/usrCntlFaktAbrechnung.resx +++ b/SDL/Fakturierung/usrCntlFaktAbrechnung.resx @@ -117,9 +117,39 @@ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + True + True + + True + + + True + + + True + + + True + + + True + + + True + + + True + + + True + + + True + @@ -160,36 +190,6 @@ 500, 15 - - True - - - True - - - True - - - True - - - True - - - True - - - True - - - True - - - True - - - True - 45 diff --git a/SDL/Fakturierung/usrCntlFaktAbrechnung.vb b/SDL/Fakturierung/usrCntlFaktAbrechnung.vb index 2f46c324..5552955f 100644 --- a/SDL/Fakturierung/usrCntlFaktAbrechnung.vb +++ b/SDL/Fakturierung/usrCntlFaktAbrechnung.vb @@ -507,7 +507,7 @@ Public Class usrCntlFaktAbrechnung cboRgGS.SelectedIndex = 0 - EUStGutschriftAnVeragToolStripMenuItem.Visible = False + GutschriftAnVeragToolStripMenuItem.Visible = False cboFiliale.fillWithSQL("SELECT FilialenNr, Grenzstelle FROM Filialen WHERE Fil_Status='A' ORDER BY FilialenNr ", True, "FMZOLL", True) @@ -539,6 +539,8 @@ Public Class usrCntlFaktAbrechnung FirmaTmp = "VERAGIMEX" End If + FirmaTmp = "AMBAR" + Select Case FirmaTmp Case "VERAG" If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("FAKTURIERUNG_VERAGAG_DE", "SDL") Then @@ -554,7 +556,7 @@ Public Class usrCntlFaktAbrechnung Case "ATILLA" : whereFirma = " AND Firma_ID=7 " : pnlDocs.Visible = True Case "UNISPED" : whereFirma = " AND FIRMENGRUPPE IN ('UNISPED') " : firstEmpty = True : pnlDocs.Visible = True - Case "AMBAR" : whereFirma = " AND Firma_ID=24 " : pnlDocs.Visible = True : EUStGutschriftAnVeragToolStripMenuItem.Visible = True + Case "AMBAR" : whereFirma = " AND Firma_ID=24 " : pnlDocs.Visible = True : GutschriftAnVeragToolStripMenuItem.Visible = True Case "FRONT-OFFICE" : whereFirma = " AND Firma_ID=17 " : pnlDocs.Visible = True Case "VERAGIMEX" whereFirma = " AND FIRMENGRUPPE IN ('VERAG','IMEX','ATILLA','VERAGUNISPED','FRONTOFFICE') " @@ -1039,9 +1041,9 @@ Public Class usrCntlFaktAbrechnung Exit Sub End If - Dim top = IIf(VeragGU, "top(1)", "") + Dim nurVerzollung = IIf(VeragGU, " AND Offerten.OffertenNr = 1", "") - .DataSource = SQL.loadDgvBySql("SELECT " & top & "Offerten.OffertenNr, cast(Offerten.OffertenNr as varchar(3)) + ' - ' + Offertenstamm.OffertenBez as OffertenBez ,Offerten.Besonderheiten, Gesperrt, Gesperrt_Datum, Gesperrt_Grund FROM Offerten inner join Offertenstamm on [Offerten].OffertenNr=Offertenstamm.OffertenNr WHERE Offerten.KundenNr='" & kdNr & "' ORDER BY Offerten.OffertenNr ", "FMZOLL") + .DataSource = SQL.loadDgvBySql("SELECT Offerten.OffertenNr, cast(Offerten.OffertenNr as varchar(3)) + ' - ' + Offertenstamm.OffertenBez as OffertenBez ,Offerten.Besonderheiten, Gesperrt, Gesperrt_Datum, Gesperrt_Grund FROM Offerten inner join Offertenstamm on [Offerten].OffertenNr=Offertenstamm.OffertenNr WHERE Offerten.KundenNr='" & kdNr & "' " & nurVerzollung & " ORDER BY Offerten.OffertenNr ", "FMZOLL") If .ColumnCount = 0 Then Exit Sub .Columns("OffertenNr").Visible = False .Columns("Besonderheiten").Visible = False @@ -1782,7 +1784,7 @@ Public Class usrCntlFaktAbrechnung Case 23 : pic.BackgroundImage = My.Resources.Unisped_ZS_logo pnlTop.BackColor = Color.FromArgb(192, 0, 0) : errCOlor = Color.DarkRed - Case 24 : pic.BackgroundImage = My.Resources.ambar_simple + Case 24 : pic.BackgroundImage = My.Resources.ambar_boarder pnlTop.BackColor = Color.FromArgb(0, 120, 120) : errCOlor = Color.DarkRed 'Case 23 : pic.BackgroundImage = My.Resources.FrontOfficeSUB_Horizontal ' pnlTop.BackColor = Color.FromArgb(0, 120, 120) : errCOlor = Color.DarkRed @@ -3939,7 +3941,12 @@ Nächste_Textzeile_lesen: End If End Sub - Private Sub EUStGutschriftAnVeragToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles EUStGutschriftAnVeragToolStripMenuItem.Click + Private Sub EUStGutschriftAnVeragToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles GutschriftAnVeragToolStripMenuItem.Click + + Dim spedbuch = New VERAG_PROG_ALLGEMEIN.cSpeditionsbuch(cboFiliale._value, txtAbfertigungsnummer.Text, cboSpedBuchUnterNr._value) + + If spedbuch.Abfertigungsart <> 1 AndAlso RECHNUNG.[BelegartenNr] = 71 Then Exit Sub 'nur bei Rechnung und abfertigungsart 1 + Dim abfrage = "Soll eine neue Gutschrift an die Verag AG für die Verzollung/EUST erstellt werden?" Dim PosWithWEustOrVerz As Boolean = False @@ -3947,7 +3954,7 @@ Nächste_Textzeile_lesen: For Each POS In RECHNUNG.POSITIONEN.Where(Function(x) x.Anzahl > 0).ToList Select Case POS.LeistungsNr Case "20" : abfrage &= vbNewLine & POS.Anzahl & "x EUSt: " & CDbl(POS.Preis) : PosWithWEustOrVerz = True : selectedPOS.Add(POS) - Case "340" : abfrage &= vbNewLine & POS.Anzahl & "x Verzollung: " & CDbl(POS.LeistungsBez) : PosWithWEustOrVerz = True : selectedPOS.Add(POS) + Case "340", "60" : abfrage &= vbNewLine & POS.Anzahl & "x : " & POS.LeistungsBez & " laut Offerte" : PosWithWEustOrVerz = True : selectedPOS.Add(POS) End Select Next @@ -3957,19 +3964,7 @@ Nächste_Textzeile_lesen: veragKunde = 3013401 saveMe() Dim RECHNUNGOldID = RECHNUNG.RK_ID - - 'ALTE RECHNUNG-------------------------------------------------------------------------------------------- - 'If Not saveMe() Then Exit Sub 'alte Rechnung kopieren (in neuen DS speichern) - 'Dim REM_POS_TMP As New List(Of VERAG_PROG_ALLGEMEIN.cRechnungsausgangPositionen) Dim RECHNUNG_TMP = New VERAG_PROG_ALLGEMEIN.cRechnungsausgang(RECHNUNGOldID) - 'RECHNUNG_TMP.Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME - 'For Each POS In RECHNUNG_TMP.POSITIONEN - ' REM_POS_TMP.Add(POS) - 'Next - - 'initDGVRechnungenPositionen() - 'RECHNUNG_TMP.SAVE_POSITIONEN(RECHNUNG_TMP.RK_ID) - 'saveMe() '-------------------------------------------------------------------------------------------- 'Gutschrift @@ -3985,12 +3980,6 @@ Nächste_Textzeile_lesen: cboRgGS.SelectedIndex = 1 - dgvOfferteDetailsUebersicht.Columns.Clear() - - przBerechneRAPos("") - loadFormRGPosInOfferte() - initDGVRechnungenPositionen() - cboFiliale.Focus() 'setze VERG ALS Vermittler/Kunde Dim kundeVerag As New cKunde(veragKunde) Dim kundeVeragAdr As New cAdressen(veragKunde) @@ -4001,9 +3990,15 @@ Nächste_Textzeile_lesen: kdFirmaAuftraggeber.KdData_KUNDE = kundeVerag kdFirmaAuftraggeber.KdData_ADRESSEN = kundeVeragAdr kdFirmaAuftraggeber.KdData_KUNDE_ERW = kundeVeragErw - - cboRechnungAn.changeItem("3") RECHNUNG.Rechnung_an = cboRechnungAn._value + cboRechnungAn.changeItem("3") + + kdFirmaRechnungAn.KdNr = veragKunde + + przBerechneRAPos("") + loadFormRGPosInOfferte() + initDGVRechnungenPositionen() + cboFiliale.Focus() cboFiliale.Focus() saveMe() @@ -4015,7 +4010,7 @@ Nächste_Textzeile_lesen: For Each POS In RECHNUNG_TMP.POSITIONEN POS.RK_ID = RECHNUNG.RK_ID Select Case POS.LeistungsNr - Case "20" '->org. EUST direkt in POS + Case "20", "60" '->org. EUST direkt in POS ''POS.Preis = POS.Preis * -1 'REM_POS_GU.Add(POS) For Each r As DataGridViewRow In dgvOfferteDetailsUebersicht.Rows @@ -4038,11 +4033,6 @@ Nächste_Textzeile_lesen: RECHNUNG.POSITIONEN.Clear() przRefreshDGV_Positionen() - - 'For Each POS_NEW In REM_POS_GU - ' RECHNUNG.POSITIONEN.Add(POS_NEW) - 'Next - RECHNUNG.SAVE_POSITIONEN(RECHNUNG.RK_ID) saveMe() If Not loaded Then Exit Sub @@ -4057,4 +4047,5 @@ Nächste_Textzeile_lesen: End Sub + End Class \ No newline at end of file diff --git a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVorauskasse.vb b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVorauskasse.vb index 60ad5325..2487c0d8 100644 --- a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVorauskasse.vb +++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVorauskasse.vb @@ -782,11 +782,16 @@ Public Class usrcntlVorauskasse 'Dim SQL As New SQL ' Dim dt As DataTable = SQL.loadDgvBySql("SELECT [LeistungsNr], [Preis], [Anzahl], BerechnungsartPosInkludiert FROM [Offertenpositionen] WHERE KundenNr='" & KdNR & "' and OffertenNr='1' and preis is not null order by LeistungsNr, Preis desc", "FMZOLL") + Dim dt As DataTable + If SENDUNG Is Nothing Then + MsgBox("keine Sendung hinterlegt, Offert kann nicht geladen werden!") + Exit Sub + End If - Dim dt As DataTable = SQL.loadDgvBySql("SELECT [LeistungsNr], [Preis], [BerechnungsartNr] ,[Anzahl], BerechnungsartPosInkludiert FROM [Offertenpositionen] WHERE KundenNr='" & KdNR & "' and OffertenNr=(SELECT ISNULL(AO.ao_OffertenNr,-1) FROM tblAbfertigungsartOffertenstamm as AO WHERE AO.ao_Abfertigungsart='" & SENDUNG.tblSnd_Abfertigungsart_ID & "') and preis is not null order by LeistungsNr, Preis desc", "FMZOLL") + dt = SQL.loadDgvBySql("SELECT [LeistungsNr], [Preis], [BerechnungsartNr] ,[Anzahl], BerechnungsartPosInkludiert FROM [Offertenpositionen] WHERE KundenNr='" & KdNR & "' and OffertenNr=(SELECT ISNULL(AO.ao_OffertenNr,-1) FROM tblAbfertigungsartOffertenstamm as AO WHERE AO.ao_Abfertigungsart='" & SENDUNG.tblSnd_Abfertigungsart_ID & "') and preis is not null order by LeistungsNr, Preis desc", "FMZOLL") If dt.Rows.Count = 0 Then - MsgBox("Es konnten keine Offertpositionen für Abfertigunsgart" & SENDUNG.tblSnd_Abfertigungsart_ID & " ermittelt werden!") + MsgBox("Es konnten keine Offertpositionen für Abfertigunsgart " & SENDUNG.tblSnd_Abfertigungsart_ID & " ermittelt werden!") Exit Sub End If diff --git a/SDL/My Project/Resources.Designer.vb b/SDL/My Project/Resources.Designer.vb index 72635f7b..b4a01d96 100644 --- a/SDL/My Project/Resources.Designer.vb +++ b/SDL/My Project/Resources.Designer.vb @@ -180,6 +180,16 @@ Namespace My.Resources End Get End Property + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property ambar_boarder() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("ambar_boarder", 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 981cc694..accec4d9 100644 --- a/SDL/My Project/Resources.resx +++ b/SDL/My Project/Resources.resx @@ -913,4 +913,7 @@ ..\Resources\cbam_s.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\ambar_boarder.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/Resources/ambar_boarder.png b/SDL/Resources/ambar_boarder.png new file mode 100644 index 00000000..bc0c1013 Binary files /dev/null and b/SDL/Resources/ambar_boarder.png differ diff --git a/SDL/SDL.vbproj b/SDL/SDL.vbproj index 1a332585..4598939a 100644 --- a/SDL/SDL.vbproj +++ b/SDL/SDL.vbproj @@ -4745,6 +4745,7 @@ + diff --git a/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmUeberstundenauszahlen.vb b/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmUeberstundenauszahlen.vb index 40f443ab..c8dc92f7 100644 --- a/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmUeberstundenauszahlen.vb +++ b/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmUeberstundenauszahlen.vb @@ -593,6 +593,29 @@ Public Class frmUeberstundenauszahlen Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click + Dim checkauszahlungsdatum As Boolean = False + Dim meldung As String = "" + Dim stichtag As Integer = 25 + Select Case MA.mit_firma + Case "ATILLA" + meldung = " des Vormonats" + If auszahlugsdatum.Month = Now.Month - 1 AndAlso Now.Day < 25 Or auszahlugsdatum.Month = Now.Month AndAlso Now.Day < 25 Or auszahlugsdatum.Month > Now.Month Then + checkauszahlungsdatum = True + End If + + Case Else + meldung = " des Monats" + If auszahlugsdatum.Month = Now.Month AndAlso Now.Day < 25 Or auszahlugsdatum.Month > Now.Month Then + checkauszahlungsdatum = True + End If + + End Select + + If Not checkauszahlungsdatum Then + Dim check = InputBox("Die Ãœ-Std. von " & MonthName(auszahlugsdatum.Month) & " wurden uU schon in die Lohnverrechnung übertragen (Stichtag: " & stichtag & meldung & ")!" & vbNewLine & "Wollten Sie die Ãœ-Std. trotzdem in Timas austragen, dann bitte GELESEN eingeben!", "Auszahlungsmonat beachten!") + If check <> "GELESEN" Then Exit Sub + End If + '65;"01-Lfd Saldo" '66;02-Krank '67;03-Urlaub @@ -617,6 +640,10 @@ Public Class frmUeberstundenauszahlen '1551;"AUSZ ÃœS 50%" '1598; Korrektur MJ - ÃœBER API ansprechen! + + + + 'sum100 = RoundOfDigits(CDbl(txtAusz100.Text) * 100 / faktor100Zuschlag, 2) 'Ãœbergabe in ZE-System als heruntergerechnete 100%ige bzw. 50%ige ÃœS! 'sum50 = RoundOfDigits(CDbl(txtAusz50.Text) * 100 / faktor50Zuschlag, 2) 'sum0 = RoundOfDigits(CDbl(txtAusz50vonSaldo.Text) * 100 / faktorTeilzeit, 2)