edv/SDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

AMbar, Vorauskasse, etc.

Browse Source
This commit is contained in:
d.breimaier
2024-05-03 14:09:47 +02:00
parent eba128614d
commit aceb2bc29d
14 changed files with 351 additions and 357 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
SDL/Fakturierung/cFakturierung.vb
View File

@@ -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

15
SDL/Fakturierung/frmAbrechnungsMaske.vb
View File

@@ -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
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

39
SDL/Fakturierung/rptRechnungDruck.Designer.vb generated
View File

@@ -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

84
SDL/Fakturierung/rptSammelRechnungAnlagenDruck.Designer.vb generated
View File

@@ -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

28
SDL/Fakturierung/rptSammelRechnungDruck.Designer.vb generated
View File

@@ -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

351
SDL/Fakturierung/usrCntlFaktAbrechnung.Designer.vb generated
View File

@@ -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

60
SDL/Fakturierung/usrCntlFaktAbrechnung.resx
View File

@@ -117,9 +117,39 @@
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="optAnhSel.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="DataGridViewTextBoxColumn2.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="clmnBezeichnung.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="clmnDsId.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="clmnAnhId.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="Leistung.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="Anzahl.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="Preis.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="SteuerpflichtigerBetrag.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="SteuerfreierBetrag.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="Aufschubkonto.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="btnOK.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
@@ -160,36 +190,6 @@
<metadata name="ContextMenuStrip2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>500, 15</value>
</metadata>
<metadata name="optAnhSel.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="clmnBezeichnung.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="clmnDsId.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="clmnAnhId.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="Leistung.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="Anzahl.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="Preis.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="SteuerpflichtigerBetrag.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="SteuerfreierBetrag.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="Aufschubkonto.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>45</value>
</metadata>

57
SDL/Fakturierung/usrCntlFaktAbrechnung.vb
View File

@@ -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

7
SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVorauskasse.vb
View File

@@ -782,8 +782,13 @@ 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!")

10
SDL/My Project/Resources.Designer.vb generated
View File

@@ -180,6 +180,16 @@ Namespace My.Resources
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
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
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>

3
SDL/My Project/Resources.resx
View File

@@ -913,4 +913,7 @@
<data name="cbam_s" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\cbam_s.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="ambar_boarder" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ambar_boarder.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
</root>

BIN
SDL/Resources/ambar_boarder.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 23 KiB

1
SDL/SDL.vbproj
View File

@@ -4745,6 +4745,7 @@
<None Include="Resources\Abrechnung_s.png" />
<None Include="Resources\air-pollution.png" />
<None Include="Resources\cbam_s.png" />
<None Include="Resources\ambar_boarder.png" />
<Content Include="Resources\food.png" />
<None Include="Resources\food1.png" />
<None Include="Resources\food2.png" />

27
VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmUeberstundenauszahlen.vb
View File

@@ -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)