diff --git a/SDL/Fakturierung/cFakturierung.vb b/SDL/Fakturierung/cFakturierung.vb index 8c81753a..f6f41d94 100644 --- a/SDL/Fakturierung/cFakturierung.vb +++ b/SDL/Fakturierung/cFakturierung.vb @@ -2522,7 +2522,7 @@ Public Class cFakturierung If RECHNUNG.FilialenNr = 8001 AndAlso RECHNUNG.OffertenNr = 95 Then 'dann ist es eine Zinsnachberechnungs-Rechnung - Dim subRpt = New rptRechnungMDM_AnlagenDruck_Zinsennachberechnung(rpt._LAN, RECHNUNG) + Dim subRpt = New rptRechnungMDM_AnlagenDruck_Zinsennachberechnung(rpt._LAN, RECHNUNG, rpt.txtLeistung.Text) rpt.SubReport.Report = subRpt rpt.lblSteuerfrei.Font = New Font(rpt.lblSteuerfrei.Font, FontStyle.Bold) diff --git a/SDL/Fakturierung/rptRechnungMDM_AnlagenDruck_Zinsennachberechnung.Designer.vb b/SDL/Fakturierung/rptRechnungMDM_AnlagenDruck_Zinsennachberechnung.Designer.vb index 69b9f9f4..4af44a83 100644 --- a/SDL/Fakturierung/rptRechnungMDM_AnlagenDruck_Zinsennachberechnung.Designer.vb +++ b/SDL/Fakturierung/rptRechnungMDM_AnlagenDruck_Zinsennachberechnung.Designer.vb @@ -20,23 +20,23 @@ Partial Public Class rptRechnungMDM_AnlagenDruck_Zinsennachberechnung Me.PageHeader = New GrapeCity.ActiveReports.SectionReportModel.PageHeader() Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail() Me.txtREnr = New GrapeCity.ActiveReports.SectionReportModel.TextBox() - Me.PageFooter = New GrapeCity.ActiveReports.SectionReportModel.PageFooter() - Me.GroupHeader4 = New GrapeCity.ActiveReports.SectionReportModel.GroupHeader() - Me.GroupFooter4 = New GrapeCity.ActiveReports.SectionReportModel.GroupFooter() - Me.Line18 = New GrapeCity.ActiveReports.SectionReportModel.Line() Me.txtReDat = New GrapeCity.ActiveReports.SectionReportModel.TextBox() Me.txtZE = New GrapeCity.ActiveReports.SectionReportModel.TextBox() Me.txtReBetrag = New GrapeCity.ActiveReports.SectionReportModel.TextBox() Me.txtTage = New GrapeCity.ActiveReports.SectionReportModel.TextBox() Me.txtZinsen = New GrapeCity.ActiveReports.SectionReportModel.TextBox() Me.txtVZ = New GrapeCity.ActiveReports.SectionReportModel.TextBox() + Me.PageFooter = New GrapeCity.ActiveReports.SectionReportModel.PageFooter() + Me.GroupHeader4 = New GrapeCity.ActiveReports.SectionReportModel.GroupHeader() Me.lblReNr = New GrapeCity.ActiveReports.SectionReportModel.Label() - Me.Label1 = New GrapeCity.ActiveReports.SectionReportModel.Label() - Me.Label2 = New GrapeCity.ActiveReports.SectionReportModel.Label() - Me.Label3 = New GrapeCity.ActiveReports.SectionReportModel.Label() - Me.Label4 = New GrapeCity.ActiveReports.SectionReportModel.Label() - Me.Label5 = New GrapeCity.ActiveReports.SectionReportModel.Label() - Me.Label6 = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.lblReDat = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.lblReBetrag = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.lblZahlungsdat = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.lblTage = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.lblZinsen = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.lblVZ = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.GroupFooter4 = New GrapeCity.ActiveReports.SectionReportModel.GroupFooter() + Me.Line18 = New GrapeCity.ActiveReports.SectionReportModel.Line() CType(Me.txtREnr, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.txtReDat, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.txtZE, System.ComponentModel.ISupportInitialize).BeginInit() @@ -45,12 +45,12 @@ Partial Public Class rptRechnungMDM_AnlagenDruck_Zinsennachberechnung CType(Me.txtZinsen, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.txtVZ, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblReNr, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.Label1, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.Label2, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.Label3, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.Label4, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.Label5, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.Label6, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblReDat, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblReBetrag, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblZahlungsdat, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblTage, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblZinsen, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblVZ, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me, System.ComponentModel.ISupportInitialize).BeginInit() ' 'PageHeader @@ -77,38 +77,6 @@ Partial Public Class rptRechnungMDM_AnlagenDruck_Zinsennachberechnung Me.txtREnr.Top = 0! Me.txtREnr.Width = 1.562204! ' - 'PageFooter - ' - Me.PageFooter.Height = 0! - Me.PageFooter.Name = "PageFooter" - ' - 'GroupHeader4 - ' - Me.GroupHeader4.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblReNr, Me.Label1, Me.Label2, Me.Label3, Me.Label4, Me.Label5, Me.Label6}) - Me.GroupHeader4.Height = 0.1433071! - Me.GroupHeader4.KeepTogether = True - Me.GroupHeader4.Name = "GroupHeader4" - ' - 'GroupFooter4 - ' - Me.GroupFooter4.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Line18}) - Me.GroupFooter4.Height = 0.1875001! - Me.GroupFooter4.Name = "GroupFooter4" - ' - 'Line18 - ' - Me.Line18.Height = 0.00004923344! - Me.Line18.Left = 0.03444719! - Me.Line18.LineColor = System.Drawing.Color.FromArgb(CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer)) - Me.Line18.LineWeight = 1.0! - Me.Line18.Name = "Line18" - Me.Line18.Top = 0.0937008! - Me.Line18.Width = 7.323034! - Me.Line18.X1 = 0.03444719! - Me.Line18.X2 = 7.357481! - Me.Line18.Y1 = 0.09375003! - Me.Line18.Y2 = 0.0937008! - ' 'txtReDat ' Me.txtReDat.Height = 0.1338583! @@ -173,7 +141,19 @@ Partial Public Class rptRechnungMDM_AnlagenDruck_Zinsennachberechnung Me.txtVZ.Style = "color: #202020; font-size: 6.75pt; font-style: italic; ddo-char-set: 0" Me.txtVZ.Text = "-" Me.txtVZ.Top = 0! - Me.txtVZ.Width = 0.6039373! + Me.txtVZ.Width = 0.6988189! + ' + 'PageFooter + ' + Me.PageFooter.Height = 0! + Me.PageFooter.Name = "PageFooter" + ' + 'GroupHeader4 + ' + Me.GroupHeader4.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblReNr, Me.lblReDat, Me.lblReBetrag, Me.lblZahlungsdat, Me.lblTage, Me.lblZinsen, Me.lblVZ}) + Me.GroupHeader4.Height = 0.1433071! + Me.GroupHeader4.KeepTogether = True + Me.GroupHeader4.Name = "GroupHeader4" ' 'lblReNr ' @@ -187,77 +167,97 @@ Partial Public Class rptRechnungMDM_AnlagenDruck_Zinsennachberechnung Me.lblReNr.Top = 0! Me.lblReNr.Width = 1.562205! ' - 'Label1 + 'lblReDat ' - Me.Label1.Height = 0.1433071! - Me.Label1.HyperLink = Nothing - Me.Label1.Left = 1.567323! - Me.Label1.Name = "Label1" - Me.Label1.Style = "font-size: 6.75pt; font-weight: bold; text-align: left; text-justify: auto; ddo-c" & + Me.lblReDat.Height = 0.1433071! + Me.lblReDat.HyperLink = Nothing + Me.lblReDat.Left = 1.567323! + Me.lblReDat.Name = "lblReDat" + Me.lblReDat.Style = "font-size: 6.75pt; font-weight: bold; text-align: left; text-justify: auto; ddo-c" & "har-set: 0" - Me.Label1.Text = "Rechnungsdatum" - Me.Label1.Top = 0! - Me.Label1.Width = 1.562205! + Me.lblReDat.Text = "Rechnungsdatum" + Me.lblReDat.Top = 0! + Me.lblReDat.Width = 1.562205! ' - 'Label2 + 'lblReBetrag ' - Me.Label2.Height = 0.1433071! - Me.Label2.HyperLink = Nothing - Me.Label2.Left = 3.129528! - Me.Label2.Name = "Label2" - Me.Label2.Style = "font-size: 6.75pt; font-weight: bold; text-align: left; text-justify: auto; ddo-c" & + Me.lblReBetrag.Height = 0.1433071! + Me.lblReBetrag.HyperLink = Nothing + Me.lblReBetrag.Left = 3.129528! + Me.lblReBetrag.Name = "lblReBetrag" + Me.lblReBetrag.Style = "font-size: 6.75pt; font-weight: bold; text-align: left; text-justify: auto; ddo-c" & "har-set: 0" - Me.Label2.Text = "Rechnungsbetrag" - Me.Label2.Top = 0! - Me.Label2.Width = 1.562205! + Me.lblReBetrag.Text = "Rechnungsbetrag" + Me.lblReBetrag.Top = 0! + Me.lblReBetrag.Width = 1.562205! ' - 'Label3 + 'lblZahlungsdat ' - Me.Label3.Height = 0.1433071! - Me.Label3.HyperLink = Nothing - Me.Label3.Left = 4.691732! - Me.Label3.Name = "Label3" - Me.Label3.Style = "font-size: 6.75pt; font-weight: bold; text-align: left; text-justify: auto; ddo-c" & + Me.lblZahlungsdat.Height = 0.1433071! + Me.lblZahlungsdat.HyperLink = Nothing + Me.lblZahlungsdat.Left = 4.691732! + Me.lblZahlungsdat.Name = "lblZahlungsdat" + Me.lblZahlungsdat.Style = "font-size: 6.75pt; font-weight: bold; text-align: left; text-justify: auto; ddo-c" & "har-set: 0" - Me.Label3.Text = "Zahlungsdatum" - Me.Label3.Top = 0! - Me.Label3.Width = 0.8539371! + Me.lblZahlungsdat.Text = "Zahlungsdatum" + Me.lblZahlungsdat.Top = 0! + Me.lblZahlungsdat.Width = 0.8539371! ' - 'Label4 + 'lblTage ' - Me.Label4.Height = 0.1433071! - Me.Label4.HyperLink = Nothing - Me.Label4.Left = 5.518111! - Me.Label4.Name = "Label4" - Me.Label4.Style = "font-size: 6.75pt; font-weight: bold; text-align: left; text-justify: auto; ddo-c" & + Me.lblTage.Height = 0.1433071! + Me.lblTage.HyperLink = Nothing + Me.lblTage.Left = 5.518111! + Me.lblTage.Name = "lblTage" + Me.lblTage.Style = "font-size: 6.75pt; font-weight: bold; text-align: left; text-justify: auto; ddo-c" & "har-set: 0" - Me.Label4.Text = "Tage" - Me.Label4.Top = 0! - Me.Label4.Width = 0.6314961! + Me.lblTage.Text = "Tage" + Me.lblTage.Top = 0! + Me.lblTage.Width = 0.6314961! ' - 'Label5 + 'lblZinsen ' - Me.Label5.Height = 0.1433071! - Me.Label5.HyperLink = Nothing - Me.Label5.Left = 6.149607! - Me.Label5.Name = "Label5" - Me.Label5.Style = "font-size: 6.75pt; font-weight: bold; text-align: left; text-justify: auto; ddo-c" & + Me.lblZinsen.Height = 0.1433071! + Me.lblZinsen.HyperLink = Nothing + Me.lblZinsen.Left = 6.149607! + Me.lblZinsen.Name = "lblZinsen" + Me.lblZinsen.Style = "font-size: 6.75pt; font-weight: bold; text-align: left; text-justify: auto; ddo-c" & "har-set: 0" - Me.Label5.Text = "Zinsen" - Me.Label5.Top = 0! - Me.Label5.Width = 0.6039373! + Me.lblZinsen.Text = "Zinsen" + Me.lblZinsen.Top = 0! + Me.lblZinsen.Width = 0.6039373! ' - 'Label6 + 'lblVZ ' - Me.Label6.Height = 0.1433071! - Me.Label6.HyperLink = Nothing - Me.Label6.Left = 6.753544! - Me.Label6.Name = "Label6" - Me.Label6.Style = "font-size: 6.75pt; font-weight: bold; text-align: left; text-justify: auto; ddo-c" & + Me.lblVZ.Height = 0.1433071! + Me.lblVZ.HyperLink = Nothing + Me.lblVZ.Left = 6.753544! + Me.lblVZ.Name = "lblVZ" + Me.lblVZ.Style = "font-size: 6.75pt; font-weight: bold; text-align: left; text-justify: auto; ddo-c" & "har-set: 0" - Me.Label6.Text = "Verzugszinsen" - Me.Label6.Top = 0! - Me.Label6.Width = 0.6039373! + Me.lblVZ.Text = "Verzugszinsen" + Me.lblVZ.Top = 0! + Me.lblVZ.Width = 0.6988189! + ' + 'GroupFooter4 + ' + Me.GroupFooter4.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Line18}) + Me.GroupFooter4.Height = 0.1875001! + Me.GroupFooter4.Name = "GroupFooter4" + ' + 'Line18 + ' + Me.Line18.Height = 0.00004923344! + Me.Line18.Left = 0.03444719! + Me.Line18.LineColor = System.Drawing.Color.FromArgb(CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer)) + Me.Line18.LineWeight = 1.0! + Me.Line18.Name = "Line18" + Me.Line18.Top = 0.0937008! + Me.Line18.Width = 7.323034! + Me.Line18.X1 = 0.03444719! + Me.Line18.X2 = 7.357481! + Me.Line18.Y1 = 0.09375003! + Me.Line18.Y2 = 0.0937008! ' 'rptRechnungMDM_AnlagenDruck_Zinsennachberechnung ' @@ -288,12 +288,12 @@ Partial Public Class rptRechnungMDM_AnlagenDruck_Zinsennachberechnung CType(Me.txtZinsen, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.txtVZ, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblReNr, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.Label1, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.Label2, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.Label3, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.Label4, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.Label5, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.Label6, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblReDat, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblReBetrag, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblZahlungsdat, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblTage, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblZinsen, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblVZ, System.ComponentModel.ISupportInitialize).EndInit() CType(Me, System.ComponentModel.ISupportInitialize).EndInit() End Sub @@ -309,10 +309,10 @@ Partial Public Class rptRechnungMDM_AnlagenDruck_Zinsennachberechnung Public WithEvents txtZinsen As GrapeCity.ActiveReports.SectionReportModel.TextBox Public WithEvents txtVZ As GrapeCity.ActiveReports.SectionReportModel.TextBox Private WithEvents lblReNr As GrapeCity.ActiveReports.SectionReportModel.Label - Private WithEvents Label1 As GrapeCity.ActiveReports.SectionReportModel.Label - Private WithEvents Label2 As GrapeCity.ActiveReports.SectionReportModel.Label - Private WithEvents Label3 As GrapeCity.ActiveReports.SectionReportModel.Label - Private WithEvents Label4 As GrapeCity.ActiveReports.SectionReportModel.Label - Private WithEvents Label5 As GrapeCity.ActiveReports.SectionReportModel.Label - Private WithEvents Label6 As GrapeCity.ActiveReports.SectionReportModel.Label + Private WithEvents lblReDat As GrapeCity.ActiveReports.SectionReportModel.Label + Private WithEvents lblReBetrag As GrapeCity.ActiveReports.SectionReportModel.Label + Private WithEvents lblZahlungsdat As GrapeCity.ActiveReports.SectionReportModel.Label + Private WithEvents lblTage As GrapeCity.ActiveReports.SectionReportModel.Label + Private WithEvents lblZinsen As GrapeCity.ActiveReports.SectionReportModel.Label + Private WithEvents lblVZ As GrapeCity.ActiveReports.SectionReportModel.Label End Class diff --git a/SDL/Fakturierung/rptRechnungMDM_AnlagenDruck_Zinsennachberechnung.vb b/SDL/Fakturierung/rptRechnungMDM_AnlagenDruck_Zinsennachberechnung.vb index 6c92a0f6..b56a782a 100644 --- a/SDL/Fakturierung/rptRechnungMDM_AnlagenDruck_Zinsennachberechnung.vb +++ b/SDL/Fakturierung/rptRechnungMDM_AnlagenDruck_Zinsennachberechnung.vb @@ -1,12 +1,14 @@ Public Class rptRechnungMDM_AnlagenDruck_Zinsennachberechnung Dim _LAN = "" Dim RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang = Nothing + Dim LeistungsText As String Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL - Sub New(_LAN As String, RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang) + Sub New(_LAN As String, RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang, LeistungsText As String) ' Dieser Aufruf ist für den Designer erforderlich. InitializeComponent() Me._LAN = _LAN Me.RECHNUNG = RECHNUNG + Me.LeistungsText = LeistungsText ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. End Sub Private Sub rptRechnungDruck_ReportStart(sender As Object, e As EventArgs) Handles MyBase.ReportStart @@ -59,7 +61,7 @@ Public Class rptRechnungMDM_AnlagenDruck_Zinsennachberechnung For Each POS In RECHNUNG.POSITIONEN Dim dtTemp As DataTable - dtTemp = SQL.loadDgvBySql_Param("select [id] as clmnID,[belegNr] as clmnReNr,[buchungstext] as clmnAbfNr,[zinssatz] clmnVZ,[belegZahlungsziel],[ueberschreitungInTagen] clmnTage,[zinsbetrag] clmnZinsen,[belegDatum] as clmnReDatum,[zahlungsBetrag] as clmnReBetrag,[zahlungDatum] as clmnZE from tblMDM_Zinsberechnung where RK_ID =" & POS.RK_ID & " and id = " & POS.NachzahlungsID, "FMZOLL") + dtTemp = SQL.loadDgvBySql_Param("select [id] as clmnID,[belegNr] as clmnReNr,[buchungstext] as clmnAbfNr,[zinssatz] clmnVZ,[belegZahlungsziel],[ueberschreitungInTagen] clmnTage,[zinsbetrag] clmnZinsen,[belegDatum] as clmnReDatum,[zahlungsBetrag] as clmnReBetrag,[zahlungDatum] as clmnZE from tblMDM_Zinsberechnung where RK_ID =" & POS.RK_ID & " and id = " & POS.NachzahlungsID & " AND buchungstext like '" & LeistungsText.Trim() & "%'", "FMZOLL") For Each rg As DataRow In dtTemp.Rows dt.Rows.Add(rg.Item("clmnID"), rg.Item("clmnReNr"), rg.Item("clmnReDatum"), rg.Item("clmnAbfNr"), rg.Item("clmnReBetrag"), rg.Item("clmnZE"), rg.Item("clmnTage"), rg.Item("clmnZinsen"), rg.Item("clmnVZ")) diff --git a/SDL/Fakturierung/usrCntlFaktAbrechnung.Designer.vb b/SDL/Fakturierung/usrCntlFaktAbrechnung.Designer.vb index 588afe0e..bcf1c464 100644 --- a/SDL/Fakturierung/usrCntlFaktAbrechnung.Designer.vb +++ b/SDL/Fakturierung/usrCntlFaktAbrechnung.Designer.vb @@ -23,6 +23,11 @@ Partial Class usrCntlFaktAbrechnung Private Sub InitializeComponent() Me.components = New System.ComponentModel.Container() + Dim DataGridViewCellStyle13 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle14 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle15 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle16 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(usrCntlFaktAbrechnung)) Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() @@ -35,16 +40,11 @@ Partial Class usrCntlFaktAbrechnung Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle9 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle10 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle13 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle14 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle15 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle16 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle17 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle18 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle19 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() 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)) Me.Label9 = New System.Windows.Forms.Label() Me.Label4 = New System.Windows.Forms.Label() Me.pnlTop = New System.Windows.Forms.Panel() @@ -53,7 +53,6 @@ Partial Class usrCntlFaktAbrechnung Me.Button10 = New System.Windows.Forms.Button() Me.Button11 = New System.Windows.Forms.Button() Me.lblDruckaufheben = New System.Windows.Forms.LinkLabel() - Me.cboRgGS = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.Panel3 = New System.Windows.Forms.Panel() Me.lblSendungen = New System.Windows.Forms.Label() Me.Label44 = New System.Windows.Forms.Label() @@ -63,18 +62,14 @@ Partial Class usrCntlFaktAbrechnung Me.Label45 = New System.Windows.Forms.Label() Me.Label42 = New System.Windows.Forms.Label() Me.btnDatenLaden = New System.Windows.Forms.Button() - Me.cboSpedBuchUnterNr = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.lblErrFiliale = New System.Windows.Forms.Label() Me.lblErrUnterNr = New System.Windows.Forms.Label() Me.lblAbfNrExists = New System.Windows.Forms.Label() Me.lblAbfNr_Err = New System.Windows.Forms.Label() Me.Label8 = New System.Windows.Forms.Label() Me.Label41 = New System.Windows.Forms.Label() - Me.txtUnterNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label11 = New System.Windows.Forms.Label() Me.Label12 = New System.Windows.Forms.Label() - Me.cboFiliale = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.txtAbfertigungsnummer = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label39 = New System.Windows.Forms.Label() Me.Label38 = New System.Windows.Forms.Label() Me.lblSB = New System.Windows.Forms.Label() @@ -88,83 +83,40 @@ Partial Class usrCntlFaktAbrechnung Me.EmpfängerToolStripMenuItem2 = New System.Windows.Forms.ToolStripMenuItem() Me.AuftraggeberToolStripMenuItem2 = New System.Windows.Forms.ToolStripMenuItem() Me.AvisiererToolStripMenuItem2 = New System.Windows.Forms.ToolStripMenuItem() - Me.txtTextZZ = New VERAG_PROG_ALLGEMEIN.MyRichTextBox() - Me.dgvAnhaenge = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) - Me.optAnhSel = New System.Windows.Forms.DataGridViewCheckBoxColumn() - Me.DataGridViewTextBoxColumn2 = 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() - Me.rtbHandling = New VERAG_PROG_ALLGEMEIN.MyRichTextBox() Me.Label52 = New System.Windows.Forms.Label() Me.Panel2 = New System.Windows.Forms.Panel() - Me.txtPositionAnzahl = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label49 = New System.Windows.Forms.Label() - Me.txtAbfertigungsanzahl = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label48 = New System.Windows.Forms.Label() - Me.txtAbfertigungsart = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label47 = New System.Windows.Forms.Label() Me.pnlAvisierer = New System.Windows.Forms.Panel() - Me.txtkdNrAvisierer = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label27 = New System.Windows.Forms.Label() Me.btnAvisiererEuro = New System.Windows.Forms.Button() Me.Label2 = New System.Windows.Forms.Label() Me.Label21 = New System.Windows.Forms.Label() - Me.txtAvisoId = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.kdFirmaAvisierer = New VERAG_PROG_ALLGEMEIN.KdSearchBox() - Me.FlatButton5 = New VERAG_PROG_ALLGEMEIN.FlatButton() - Me.cboAnlage5 = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.cboAnlage1 = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.txtWarenwertUmrechnung = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label13 = New System.Windows.Forms.Label() - Me.cboAnlage2 = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.Label34 = New System.Windows.Forms.Label() - Me.cboAnlage3 = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.txtVermerk = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.cboAnlage6 = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.Label25 = New System.Windows.Forms.Label() - Me.cboAnlage4 = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.txtErfassungsnummer = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label24 = New System.Windows.Forms.Label() Me.Label22 = New System.Windows.Forms.Label() - Me.cboRechnungNotiz = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.pic = New System.Windows.Forms.PictureBox() - Me.cboFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.lblFirma3 = New System.Windows.Forms.Label() Me.lblFirma2 = New System.Windows.Forms.Label() Me.lblFirma1 = New System.Windows.Forms.Label() Me.Label32 = New System.Windows.Forms.Label() Me.pnlAuftraggeber = New System.Windows.Forms.Panel() - Me.txtkdNrAuftraggeber = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.btnAuftraggeberEuro = New System.Windows.Forms.Button() - Me.kdFirmaAuftraggeber = New VERAG_PROG_ALLGEMEIN.KdSearchBox() - Me.txtAuftraggeberName2 = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label15 = New System.Windows.Forms.Label() - Me.txtAuftragggeberOrt = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtAuftragggeberStrasse = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.FlatButton4 = New VERAG_PROG_ALLGEMEIN.FlatButton() - Me.txtText = New VERAG_PROG_ALLGEMEIN.MyRichTextBox() - Me.txtBefoerderungsmittel = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtGrenze = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label20 = New System.Windows.Forms.Label() Me.Label19 = New System.Windows.Forms.Label() - Me.txtSendungsdaten = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label17 = New System.Windows.Forms.Label() - Me.txtWarenwert = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label16 = New System.Windows.Forms.Label() - Me.txtZollbelegNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label10 = New System.Windows.Forms.Label() Me.pnlRechnungAn = New System.Windows.Forms.Panel() - Me.cboRgArt = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.Label57 = New System.Windows.Forms.Label() - Me.cboVorauskasse = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.Label56 = New System.Windows.Forms.Label() - Me.txtRechnungAnZusatz = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Button15 = New System.Windows.Forms.Button() - Me.cboSammelrechnung = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.Button14 = New System.Windows.Forms.Button() Me.picKdAuftrInfo = New System.Windows.Forms.PictureBox() Me.lblKdInaktiv = New System.Windows.Forms.Label() @@ -172,80 +124,40 @@ Partial Class usrCntlFaktAbrechnung Me.lblUIDOK = New System.Windows.Forms.Label() Me.lblUIDErr = New System.Windows.Forms.Label() Me.Button6 = New System.Windows.Forms.Button() - Me.txtRechnungAnName2 = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.kdFirmaRechnungAn = New VERAG_PROG_ALLGEMEIN.KdSearchBox() - Me.FlatButton3 = New VERAG_PROG_ALLGEMEIN.FlatButton() - Me.txtKdAuftragsNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label43 = New System.Windows.Forms.Label() - Me.txtRechnungAnUIDKz = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label1 = New System.Windows.Forms.Label() - Me.cboRechnungAn = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.txtRechnungAnUIDNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label6 = New System.Windows.Forms.Label() - Me.txtRechnungAnBuKdNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label3 = New System.Windows.Forms.Label() - Me.txtkdNrRechnungAn = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtRechnungAnOrt = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtRechnungAnStrasse = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label7 = New System.Windows.Forms.Label() Me.pnlAbsender = New System.Windows.Forms.Panel() - Me.txtkdNrAbsender = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.btnAbsenderEuro = New System.Windows.Forms.Button() - Me.kdFirmaAbsender = New VERAG_PROG_ALLGEMEIN.KdSearchBox() - Me.txtAbsenderName2 = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtAbsenderOrt = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtAbsenderStrasse = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.FlatButton1 = New VERAG_PROG_ALLGEMEIN.FlatButton() Me.Panel7 = New System.Windows.Forms.Panel() Me.lblOFgesperrt = New System.Windows.Forms.Label() Me.picVK = New System.Windows.Forms.PictureBox() Me.Button1 = New System.Windows.Forms.Button() Me.Button12 = New System.Windows.Forms.Button() Me.Label14 = New System.Windows.Forms.Label() - Me.sbLeistung = New VERAG_PROG_ALLGEMEIN.MySearchBox() Me.Button7 = New System.Windows.Forms.Button() Me.btnVorauskasseAnzeigen = New System.Windows.Forms.Button() Me.Button5 = New System.Windows.Forms.Button() Me.btnZoll_EUST = New System.Windows.Forms.Button() - Me.txtUnterNrRef = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.cboFilialeRef = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.txtAbfertigungsnummerRef = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label26 = New System.Windows.Forms.Label() Me.Label31 = New System.Windows.Forms.Label() Me.Label29 = New System.Windows.Forms.Label() Me.Label30 = New System.Windows.Forms.Label() - Me.dgvRechnungenPositionen = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) - 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() Me.Label18 = New System.Windows.Forms.Label() Me.lblVK_ZahlungseingangBemerkung = New System.Windows.Forms.Label() Me.lblVK_Zahlungseingang = New System.Windows.Forms.Label() - Me.cboWaehrung = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.cboWaehrungUmrechnung = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.pnlEmpfaenger = New System.Windows.Forms.Panel() - Me.txtkdNrEmpfaenger = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.btnEmpfaengerEuro = New System.Windows.Forms.Button() - Me.txtEmpfeangerName2 = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label5 = New System.Windows.Forms.Label() - Me.txtEmpfaengerOrt = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtEmpfaengerStrasse = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.kdFirmaEmpfaenger = New VERAG_PROG_ALLGEMEIN.KdSearchBox() - Me.FlatButton2 = New VERAG_PROG_ALLGEMEIN.FlatButton() Me.pnl = New System.Windows.Forms.Panel() Me.Button16 = New System.Windows.Forms.Button() Me.lblEUR_1 = New System.Windows.Forms.Label() Me.lblEUR_2 = New System.Windows.Forms.Label() 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() @@ -256,17 +168,11 @@ Partial Class usrCntlFaktAbrechnung Me.Button2 = New System.Windows.Forms.Button() Me.btnOK = New System.Windows.Forms.Button() Me.Label23 = New System.Windows.Forms.Label() - Me.txtSteuersatz = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtSteuerFreierBetrag = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label37 = New System.Windows.Forms.Label() Me.lblEUR_3 = New System.Windows.Forms.Label() - Me.txtGesamtsumme = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtSteuerBetrag = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtSteuerpflichtigerBetrag = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label33 = New System.Windows.Forms.Label() Me.Label35 = New System.Windows.Forms.Label() Me.Label28 = New System.Windows.Forms.Label() - Me.txtBesonderheiten = New VERAG_PROG_ALLGEMEIN.MyRichTextBox() Me.pnlDocs = New System.Windows.Forms.Panel() Me.PictureBox1 = New System.Windows.Forms.PictureBox() Me.Label51 = New System.Windows.Forms.Label() @@ -288,11 +194,104 @@ Partial Class usrCntlFaktAbrechnung Me.GutschriftAnVeragToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.VeragAGToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.VeragCSToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.txtTextZZ = New VERAG_PROG_ALLGEMEIN.MyRichTextBox() + Me.dgvAnhaenge = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) + Me.optAnhSel = New System.Windows.Forms.DataGridViewCheckBoxColumn() + Me.DataGridViewTextBoxColumn2 = 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.cboRechnungSprache = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.rtbHandling = New VERAG_PROG_ALLGEMEIN.MyRichTextBox() + Me.txtPositionAnzahl = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtAbfertigungsanzahl = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtAbfertigungsart = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtkdNrAvisierer = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtAvisoId = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.kdFirmaAvisierer = New VERAG_PROG_ALLGEMEIN.KdSearchBox() + Me.FlatButton5 = New VERAG_PROG_ALLGEMEIN.FlatButton() + Me.cboAnlage5 = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.cboAnlage1 = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.txtWarenwertUmrechnung = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.cboAnlage2 = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.cboAnlage3 = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.txtVermerk = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.cboAnlage6 = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.cboAnlage4 = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.txtErfassungsnummer = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.cboRechnungNotiz = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.cboFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.txtkdNrAuftraggeber = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.kdFirmaAuftraggeber = New VERAG_PROG_ALLGEMEIN.KdSearchBox() + Me.txtAuftraggeberName2 = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtAuftragggeberOrt = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtAuftragggeberStrasse = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.FlatButton4 = New VERAG_PROG_ALLGEMEIN.FlatButton() + Me.txtText = New VERAG_PROG_ALLGEMEIN.MyRichTextBox() + Me.txtBefoerderungsmittel = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtGrenze = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtSendungsdaten = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtWarenwert = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtZollbelegNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.cboRgArt = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.cboVorauskasse = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.txtRechnungAnZusatz = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.cboSammelrechnung = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.txtRechnungAnName2 = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.kdFirmaRechnungAn = New VERAG_PROG_ALLGEMEIN.KdSearchBox() + Me.FlatButton3 = New VERAG_PROG_ALLGEMEIN.FlatButton() + Me.txtKdAuftragsNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtRechnungAnUIDKz = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.cboRechnungAn = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.txtRechnungAnUIDNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtRechnungAnBuKdNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtkdNrRechnungAn = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtRechnungAnOrt = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtRechnungAnStrasse = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtkdNrAbsender = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.kdFirmaAbsender = New VERAG_PROG_ALLGEMEIN.KdSearchBox() + Me.txtAbsenderName2 = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtAbsenderOrt = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtAbsenderStrasse = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.FlatButton1 = New VERAG_PROG_ALLGEMEIN.FlatButton() + Me.sbLeistung = New VERAG_PROG_ALLGEMEIN.MySearchBox() + Me.txtUnterNrRef = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.cboFilialeRef = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.txtAbfertigungsnummerRef = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.dgvRechnungenPositionen = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) + 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.dgvOfferteDetailsUebersicht = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) + Me.txtRohmasse = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.cboWaehrung = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.cboWaehrungUmrechnung = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.txtkdNrEmpfaenger = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtEmpfeangerName2 = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtEmpfaengerOrt = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtEmpfaengerStrasse = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.kdFirmaEmpfaenger = New VERAG_PROG_ALLGEMEIN.KdSearchBox() + Me.FlatButton2 = New VERAG_PROG_ALLGEMEIN.FlatButton() + Me.cboSteuerschlüssel = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.txtSteuersatz = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtSteuerFreierBetrag = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtGesamtsumme = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtSteuerBetrag = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtSteuerpflichtigerBetrag = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtBesonderheiten = New VERAG_PROG_ALLGEMEIN.MyRichTextBox() + Me.cboRgGS = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.cboSpedBuchUnterNr = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.txtUnterNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.cboFiliale = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.txtAbfertigungsnummer = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.rtbAbf_Besonderheiten = New SDL.usrCntlKundenBesonderheiten() Me.pnlTop.SuspendLayout() Me.Panel3.SuspendLayout() Me.Panel1.SuspendLayout() Me.ContextMenuStrip3.SuspendLayout() - CType(Me.dgvAnhaenge, System.ComponentModel.ISupportInitialize).BeginInit() Me.Panel2.SuspendLayout() Me.pnlAvisierer.SuspendLayout() CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit() @@ -303,9 +302,7 @@ Partial Class usrCntlFaktAbrechnung Me.pnlAbsender.SuspendLayout() Me.Panel7.SuspendLayout() CType(Me.picVK, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.dgvRechnungenPositionen, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.dgvOffertenSperrliste, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.dgvOfferteDetailsUebersicht, System.ComponentModel.ISupportInitialize).BeginInit() Me.pnlEmpfaenger.SuspendLayout() Me.pnl.SuspendLayout() Me.pnlDocs.SuspendLayout() @@ -314,6 +311,9 @@ Partial Class usrCntlFaktAbrechnung Me.CntxtAbfArt.SuspendLayout() Me.ContextMenuStrip1.SuspendLayout() Me.ContextMenuStrip2.SuspendLayout() + CType(Me.dgvAnhaenge, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.dgvRechnungenPositionen, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.dgvOfferteDetailsUebersicht, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' 'Label9 @@ -440,23 +440,6 @@ Partial Class usrCntlFaktAbrechnung Me.lblDruckaufheben.Text = "Druck aufheben" Me.lblDruckaufheben.Visible = False ' - 'cboRgGS - ' - Me.cboRgGS._allowedValuesFreiText = Nothing - Me.cboRgGS._allowFreiText = False - Me.cboRgGS._value = "" - Me.cboRgGS.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.cboRgGS.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.cboRgGS.Font = New System.Drawing.Font("Microsoft Sans Serif", 16.0!, System.Drawing.FontStyle.Bold) - Me.cboRgGS.ForeColor = System.Drawing.Color.White - Me.cboRgGS.FormattingEnabled = True - Me.cboRgGS.Items.AddRange(New Object() {"Rechnung", "Gutschrift"}) - Me.cboRgGS.Location = New System.Drawing.Point(3, -1) - Me.cboRgGS.Name = "cboRgGS" - Me.cboRgGS.Size = New System.Drawing.Size(211, 33) - Me.cboRgGS.TabIndex = 26 - Me.cboRgGS.Text = "Rechnung" - ' 'Panel3 ' Me.Panel3.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) @@ -572,19 +555,6 @@ Partial Class usrCntlFaktAbrechnung Me.btnDatenLaden.Text = "Daten laden" Me.btnDatenLaden.UseVisualStyleBackColor = False ' - 'cboSpedBuchUnterNr - ' - Me.cboSpedBuchUnterNr._allowedValuesFreiText = Nothing - Me.cboSpedBuchUnterNr._allowFreiText = False - Me.cboSpedBuchUnterNr._value = "" - Me.cboSpedBuchUnterNr.DropDownWidth = 350 - Me.cboSpedBuchUnterNr.FormattingEnabled = True - Me.cboSpedBuchUnterNr.Location = New System.Drawing.Point(255, 48) - Me.cboSpedBuchUnterNr.Margin = New System.Windows.Forms.Padding(2) - Me.cboSpedBuchUnterNr.Name = "cboSpedBuchUnterNr" - Me.cboSpedBuchUnterNr.Size = New System.Drawing.Size(71, 21) - Me.cboSpedBuchUnterNr.TabIndex = 5 - ' 'lblErrFiliale ' Me.lblErrFiliale.AutoSize = True @@ -654,30 +624,6 @@ Partial Class usrCntlFaktAbrechnung Me.Label41.Text = "Druck-Datum:" Me.Label41.TextAlign = System.Drawing.ContentAlignment.TopRight ' - 'txtUnterNr - ' - Me.txtUnterNr._DateTimeOnly = False - Me.txtUnterNr._numbersOnly = False - Me.txtUnterNr._numbersOnlyKommastellen = "" - Me.txtUnterNr._numbersOnlyTrennzeichen = True - Me.txtUnterNr._Prozent = False - Me.txtUnterNr._ShortDateNew = False - Me.txtUnterNr._ShortDateOnly = False - Me.txtUnterNr._TimeOnly = False - Me.txtUnterNr._TimeOnly_Seconds = False - Me.txtUnterNr._value = Nothing - Me.txtUnterNr._Waehrung = False - Me.txtUnterNr._WaehrungZeichen = True - Me.txtUnterNr.Font = New System.Drawing.Font("Microsoft Tai Le", 8.0!) - Me.txtUnterNr.Location = New System.Drawing.Point(417, 48) - Me.txtUnterNr.MaxLineLength = -1 - Me.txtUnterNr.MaxLines_Warning = "" - Me.txtUnterNr.MaxLines_Warning_Label = Nothing - Me.txtUnterNr.Name = "txtUnterNr" - Me.txtUnterNr.ReadOnly = True - Me.txtUnterNr.Size = New System.Drawing.Size(55, 21) - Me.txtUnterNr.TabIndex = 7 - ' 'Label11 ' Me.Label11.AutoSize = True @@ -700,43 +646,6 @@ Partial Class usrCntlFaktAbrechnung Me.Label12.TabIndex = 2 Me.Label12.Text = "UnterNr" ' - 'cboFiliale - ' - Me.cboFiliale._allowedValuesFreiText = Nothing - Me.cboFiliale._allowFreiText = False - Me.cboFiliale._value = "" - Me.cboFiliale.DropDownWidth = 280 - Me.cboFiliale.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.cboFiliale.FormattingEnabled = True - Me.cboFiliale.Location = New System.Drawing.Point(8, 48) - Me.cboFiliale.Name = "cboFiliale" - Me.cboFiliale.Size = New System.Drawing.Size(80, 21) - Me.cboFiliale.TabIndex = 3 - ' - 'txtAbfertigungsnummer - ' - Me.txtAbfertigungsnummer._DateTimeOnly = False - Me.txtAbfertigungsnummer._numbersOnly = True - Me.txtAbfertigungsnummer._numbersOnlyKommastellen = "" - Me.txtAbfertigungsnummer._numbersOnlyTrennzeichen = True - Me.txtAbfertigungsnummer._Prozent = False - Me.txtAbfertigungsnummer._ShortDateNew = False - Me.txtAbfertigungsnummer._ShortDateOnly = False - Me.txtAbfertigungsnummer._TimeOnly = False - Me.txtAbfertigungsnummer._TimeOnly_Seconds = False - Me.txtAbfertigungsnummer._value = "" - Me.txtAbfertigungsnummer._Waehrung = False - Me.txtAbfertigungsnummer._WaehrungZeichen = True - Me.txtAbfertigungsnummer.Font = New System.Drawing.Font("Microsoft Tai Le", 8.0!) - Me.txtAbfertigungsnummer.Location = New System.Drawing.Point(87, 48) - Me.txtAbfertigungsnummer.MaxLength = 8 - Me.txtAbfertigungsnummer.MaxLineLength = -1 - Me.txtAbfertigungsnummer.MaxLines_Warning = "" - Me.txtAbfertigungsnummer.MaxLines_Warning_Label = Nothing - Me.txtAbfertigungsnummer.Name = "txtAbfertigungsnummer" - Me.txtAbfertigungsnummer.Size = New System.Drawing.Size(169, 21) - Me.txtAbfertigungsnummer.TabIndex = 4 - ' 'Label39 ' Me.Label39.ForeColor = System.Drawing.Color.White @@ -904,117 +813,6 @@ Partial Class usrCntlFaktAbrechnung Me.AvisiererToolStripMenuItem2.Size = New System.Drawing.Size(153, 22) Me.AvisiererToolStripMenuItem2.Text = "4 Avisierer" ' - 'txtTextZZ - ' - Me.txtTextZZ.Location = New System.Drawing.Point(64, 1061) - Me.txtTextZZ.MaxLineLength = -1 - Me.txtTextZZ.MaxLines_Warning = "" - Me.txtTextZZ.MaxLines_Warning_Label = Nothing - Me.txtTextZZ.Name = "txtTextZZ" - Me.txtTextZZ.ReadOnly = True - Me.txtTextZZ.Size = New System.Drawing.Size(423, 23) - Me.txtTextZZ.TabIndex = 91 - Me.txtTextZZ.Text = "" - ' - 'dgvAnhaenge - ' - Me.dgvAnhaenge.AKTUALISIERUNGS_INTERVALL = -1 - Me.dgvAnhaenge.AllowUserToAddRows = False - Me.dgvAnhaenge.AllowUserToDeleteRows = False - Me.dgvAnhaenge.AllowUserToResizeColumns = False - Me.dgvAnhaenge.AllowUserToResizeRows = False - Me.dgvAnhaenge.BackgroundColor = System.Drawing.Color.White - DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle1.BackColor = System.Drawing.SystemColors.Control - DataGridViewCellStyle1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle1.ForeColor = System.Drawing.SystemColors.WindowText - DataGridViewCellStyle1.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle1.SelectionForeColor = System.Drawing.SystemColors.HighlightText - 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.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)) - DataGridViewCellStyle4.ForeColor = System.Drawing.SystemColors.ControlText - DataGridViewCellStyle4.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle4.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] - Me.dgvAnhaenge.DefaultCellStyle = DataGridViewCellStyle4 - Me.dgvAnhaenge.Location = New System.Drawing.Point(493, 911) - Me.dgvAnhaenge.MultiSelect = False - Me.dgvAnhaenge.Name = "dgvAnhaenge" - Me.dgvAnhaenge.ReadOnly = True - DataGridViewCellStyle5.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle5.BackColor = System.Drawing.SystemColors.Control - DataGridViewCellStyle5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle5.ForeColor = System.Drawing.SystemColors.WindowText - DataGridViewCellStyle5.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle5.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.dgvAnhaenge.RowHeadersDefaultCellStyle = DataGridViewCellStyle5 - Me.dgvAnhaenge.RowHeadersVisible = False - Me.dgvAnhaenge.RowHeadersWidth = 62 - Me.dgvAnhaenge.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect - Me.dgvAnhaenge.Size = New System.Drawing.Size(329, 219) - Me.dgvAnhaenge.TabIndex = 90 - Me.dgvAnhaenge.TabStop = 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 - ' - 'DataGridViewTextBoxColumn2 - ' - DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight - DataGridViewCellStyle2.Format = "N0" - DataGridViewCellStyle2.NullValue = Nothing - Me.DataGridViewTextBoxColumn2.DefaultCellStyle = DataGridViewCellStyle2 - Me.DataGridViewTextBoxColumn2.HeaderText = "Art" - Me.DataGridViewTextBoxColumn2.MinimumWidth = 8 - Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2" - Me.DataGridViewTextBoxColumn2.ReadOnly = True - Me.DataGridViewTextBoxColumn2.Width = 70 - ' - 'clmnBezeichnung - ' - 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 - ' - '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 - ' 'Label36 ' Me.Label36.AutoSize = True @@ -1036,30 +834,6 @@ Partial Class usrCntlFaktAbrechnung Me.Label54.Text = "Sprache Rechnung:" Me.Label54.TextAlign = System.Drawing.ContentAlignment.TopRight ' - 'cboRechnungSprache - ' - Me.cboRechnungSprache._allowedValuesFreiText = Nothing - Me.cboRechnungSprache._allowFreiText = False - Me.cboRechnungSprache._value = "" - Me.cboRechnungSprache.FormattingEnabled = True - Me.cboRechnungSprache.Location = New System.Drawing.Point(697, 116) - Me.cboRechnungSprache.Margin = New System.Windows.Forms.Padding(2) - Me.cboRechnungSprache.Name = "cboRechnungSprache" - Me.cboRechnungSprache.Size = New System.Drawing.Size(123, 21) - Me.cboRechnungSprache.TabIndex = 45 - Me.cboRechnungSprache.TabStop = False - ' - 'rtbHandling - ' - Me.rtbHandling.Location = New System.Drawing.Point(280, 911) - Me.rtbHandling.MaxLineLength = -1 - Me.rtbHandling.MaxLines_Warning = "" - Me.rtbHandling.MaxLines_Warning_Label = Nothing - Me.rtbHandling.Name = "rtbHandling" - Me.rtbHandling.Size = New System.Drawing.Size(207, 121) - Me.rtbHandling.TabIndex = 44 - Me.rtbHandling.Text = "" - ' 'Label52 ' Me.Label52.AutoSize = True @@ -1086,31 +860,6 @@ Partial Class usrCntlFaktAbrechnung Me.Panel2.Size = New System.Drawing.Size(411, 45) Me.Panel2.TabIndex = 41 ' - 'txtPositionAnzahl - ' - Me.txtPositionAnzahl._DateTimeOnly = False - Me.txtPositionAnzahl._numbersOnly = False - Me.txtPositionAnzahl._numbersOnlyKommastellen = "" - Me.txtPositionAnzahl._numbersOnlyTrennzeichen = True - Me.txtPositionAnzahl._Prozent = False - Me.txtPositionAnzahl._ShortDateNew = False - Me.txtPositionAnzahl._ShortDateOnly = False - Me.txtPositionAnzahl._TimeOnly = False - Me.txtPositionAnzahl._TimeOnly_Seconds = False - Me.txtPositionAnzahl._value = Nothing - Me.txtPositionAnzahl._Waehrung = False - Me.txtPositionAnzahl._WaehrungZeichen = True - Me.txtPositionAnzahl.ForeColor = System.Drawing.Color.Black - Me.txtPositionAnzahl.Location = New System.Drawing.Point(358, 21) - Me.txtPositionAnzahl.MaxLength = 35 - Me.txtPositionAnzahl.MaxLineLength = -1 - Me.txtPositionAnzahl.MaxLines_Warning = "" - Me.txtPositionAnzahl.MaxLines_Warning_Label = Nothing - Me.txtPositionAnzahl.Name = "txtPositionAnzahl" - Me.txtPositionAnzahl.ReadOnly = True - Me.txtPositionAnzahl.Size = New System.Drawing.Size(43, 20) - Me.txtPositionAnzahl.TabIndex = 46 - ' 'Label49 ' Me.Label49.AutoSize = True @@ -1121,31 +870,6 @@ Partial Class usrCntlFaktAbrechnung Me.Label49.Text = "Pos.Anz.:" Me.Label49.TextAlign = System.Drawing.ContentAlignment.TopRight ' - 'txtAbfertigungsanzahl - ' - Me.txtAbfertigungsanzahl._DateTimeOnly = False - Me.txtAbfertigungsanzahl._numbersOnly = False - Me.txtAbfertigungsanzahl._numbersOnlyKommastellen = "" - Me.txtAbfertigungsanzahl._numbersOnlyTrennzeichen = True - Me.txtAbfertigungsanzahl._Prozent = False - Me.txtAbfertigungsanzahl._ShortDateNew = False - Me.txtAbfertigungsanzahl._ShortDateOnly = False - Me.txtAbfertigungsanzahl._TimeOnly = False - Me.txtAbfertigungsanzahl._TimeOnly_Seconds = False - Me.txtAbfertigungsanzahl._value = Nothing - Me.txtAbfertigungsanzahl._Waehrung = False - Me.txtAbfertigungsanzahl._WaehrungZeichen = True - Me.txtAbfertigungsanzahl.ForeColor = System.Drawing.Color.Black - Me.txtAbfertigungsanzahl.Location = New System.Drawing.Point(358, 3) - Me.txtAbfertigungsanzahl.MaxLength = 35 - Me.txtAbfertigungsanzahl.MaxLineLength = -1 - Me.txtAbfertigungsanzahl.MaxLines_Warning = "" - Me.txtAbfertigungsanzahl.MaxLines_Warning_Label = Nothing - Me.txtAbfertigungsanzahl.Name = "txtAbfertigungsanzahl" - Me.txtAbfertigungsanzahl.ReadOnly = True - Me.txtAbfertigungsanzahl.Size = New System.Drawing.Size(43, 20) - Me.txtAbfertigungsanzahl.TabIndex = 44 - ' 'Label48 ' Me.Label48.AutoSize = True @@ -1156,31 +880,6 @@ Partial Class usrCntlFaktAbrechnung Me.Label48.Text = "Anzahl:" Me.Label48.TextAlign = System.Drawing.ContentAlignment.TopRight ' - 'txtAbfertigungsart - ' - Me.txtAbfertigungsart._DateTimeOnly = False - Me.txtAbfertigungsart._numbersOnly = False - Me.txtAbfertigungsart._numbersOnlyKommastellen = "" - Me.txtAbfertigungsart._numbersOnlyTrennzeichen = True - Me.txtAbfertigungsart._Prozent = False - Me.txtAbfertigungsart._ShortDateNew = False - Me.txtAbfertigungsart._ShortDateOnly = False - Me.txtAbfertigungsart._TimeOnly = False - Me.txtAbfertigungsart._TimeOnly_Seconds = False - Me.txtAbfertigungsart._value = Nothing - Me.txtAbfertigungsart._Waehrung = False - Me.txtAbfertigungsart._WaehrungZeichen = True - Me.txtAbfertigungsart.ForeColor = System.Drawing.Color.Black - Me.txtAbfertigungsart.Location = New System.Drawing.Point(97, 3) - Me.txtAbfertigungsart.MaxLength = 35 - Me.txtAbfertigungsart.MaxLineLength = -1 - Me.txtAbfertigungsart.MaxLines_Warning = "" - Me.txtAbfertigungsart.MaxLines_Warning_Label = Nothing - Me.txtAbfertigungsart.Name = "txtAbfertigungsart" - Me.txtAbfertigungsart.ReadOnly = True - Me.txtAbfertigungsart.Size = New System.Drawing.Size(199, 20) - Me.txtAbfertigungsart.TabIndex = 42 - ' 'Label47 ' Me.Label47.AutoSize = True @@ -1208,34 +907,6 @@ Partial Class usrCntlFaktAbrechnung Me.pnlAvisierer.Size = New System.Drawing.Size(415, 67) Me.pnlAvisierer.TabIndex = 8 ' - 'txtkdNrAvisierer - ' - Me.txtkdNrAvisierer._DateTimeOnly = False - Me.txtkdNrAvisierer._numbersOnly = False - Me.txtkdNrAvisierer._numbersOnlyKommastellen = "" - Me.txtkdNrAvisierer._numbersOnlyTrennzeichen = True - Me.txtkdNrAvisierer._Prozent = False - Me.txtkdNrAvisierer._ShortDateNew = False - Me.txtkdNrAvisierer._ShortDateOnly = False - Me.txtkdNrAvisierer._TimeOnly = False - Me.txtkdNrAvisierer._TimeOnly_Seconds = False - Me.txtkdNrAvisierer._value = Nothing - Me.txtkdNrAvisierer._Waehrung = False - Me.txtkdNrAvisierer._WaehrungZeichen = True - Me.txtkdNrAvisierer.BackColor = System.Drawing.Color.WhiteSmoke - Me.txtkdNrAvisierer.BorderStyle = System.Windows.Forms.BorderStyle.None - Me.txtkdNrAvisierer.ForeColor = System.Drawing.Color.Black - Me.txtkdNrAvisierer.Location = New System.Drawing.Point(7, 22) - Me.txtkdNrAvisierer.MaxLength = 35 - Me.txtkdNrAvisierer.MaxLineLength = -1 - Me.txtkdNrAvisierer.MaxLines_Warning = "" - Me.txtkdNrAvisierer.MaxLines_Warning_Label = Nothing - Me.txtkdNrAvisierer.Name = "txtkdNrAvisierer" - Me.txtkdNrAvisierer.ReadOnly = True - Me.txtkdNrAvisierer.Size = New System.Drawing.Size(94, 13) - Me.txtkdNrAvisierer.TabIndex = 1 - Me.txtkdNrAvisierer.TabStop = False - ' 'Label27 ' Me.Label27.AutoSize = True @@ -1283,132 +954,6 @@ Partial Class usrCntlFaktAbrechnung Me.Label21.TabIndex = 0 Me.Label21.Text = "4. Avisierer:" ' - 'txtAvisoId - ' - Me.txtAvisoId._DateTimeOnly = False - Me.txtAvisoId._numbersOnly = False - Me.txtAvisoId._numbersOnlyKommastellen = "" - Me.txtAvisoId._numbersOnlyTrennzeichen = True - Me.txtAvisoId._Prozent = False - Me.txtAvisoId._ShortDateNew = False - Me.txtAvisoId._ShortDateOnly = False - Me.txtAvisoId._TimeOnly = False - Me.txtAvisoId._TimeOnly_Seconds = False - Me.txtAvisoId._value = Nothing - Me.txtAvisoId._Waehrung = False - Me.txtAvisoId._WaehrungZeichen = True - Me.txtAvisoId.ForeColor = System.Drawing.Color.Black - Me.txtAvisoId.Location = New System.Drawing.Point(157, 32) - Me.txtAvisoId.MaxLength = 35 - Me.txtAvisoId.MaxLineLength = -1 - Me.txtAvisoId.MaxLines_Warning = "" - Me.txtAvisoId.MaxLines_Warning_Label = Nothing - Me.txtAvisoId.Name = "txtAvisoId" - Me.txtAvisoId.ReadOnly = True - Me.txtAvisoId.Size = New System.Drawing.Size(126, 20) - Me.txtAvisoId.TabIndex = 6 - Me.txtAvisoId.TabStop = False - Me.txtAvisoId.TextAlign = System.Windows.Forms.HorizontalAlignment.Right - ' - 'kdFirmaAvisierer - ' - Me.kdFirmaAvisierer._AlleFirmenCLUSTER = False - Me.kdFirmaAvisierer._AllowSetValue = True - Me.kdFirmaAvisierer._autoSizeGross = False - Me.kdFirmaAvisierer._display_Name1 = True - Me.kdFirmaAvisierer._displayAVISO_Email = False - Me.kdFirmaAvisierer._displayFullName = False - Me.kdFirmaAvisierer._displayWoelflKd = False - Me.kdFirmaAvisierer._hideIfListEmpty = True - Me.kdFirmaAvisierer._loadKdData = True - Me.kdFirmaAvisierer._searchName1 = True - Me.kdFirmaAvisierer._UseFIRMA = "" - Me.kdFirmaAvisierer._ValueKdAndName = False - Me.kdFirmaAvisierer.BackColor = System.Drawing.Color.White - Me.kdFirmaAvisierer.dgvpos = "LEFT" - Me.kdFirmaAvisierer.KdName = Nothing - Me.kdFirmaAvisierer.KdNr = "-1" - Me.kdFirmaAvisierer.kdNrField = Nothing - Me.kdFirmaAvisierer.KdNrNullInt = Nothing - Me.kdFirmaAvisierer.Location = New System.Drawing.Point(101, 2) - Me.kdFirmaAvisierer.MaxLength = 35 - Me.kdFirmaAvisierer.Name = "kdFirmaAvisierer" - Me.kdFirmaAvisierer.nurAktive = True - Me.kdFirmaAvisierer.searchActive = True - Me.kdFirmaAvisierer.Size = New System.Drawing.Size(283, 20) - Me.kdFirmaAvisierer.TabIndex = 3 - Me.kdFirmaAvisierer.TabStop = False - Me.kdFirmaAvisierer.TIMER_SEARCH = True - Me.kdFirmaAvisierer.usrcntl = Nothing - ' - 'FlatButton5 - ' - Me.FlatButton5.allowBorder = False - Me.FlatButton5.FlatAppearance.BorderSize = 0 - Me.FlatButton5.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.FlatButton5.ForeColor = System.Drawing.Color.Black - Me.FlatButton5.Image = Global.SDL.My.Resources.Resources.personInaktiv - Me.FlatButton5.Location = New System.Drawing.Point(382, -1) - Me.FlatButton5.Name = "FlatButton5" - Me.FlatButton5.Size = New System.Drawing.Size(24, 25) - Me.FlatButton5.TabIndex = 2 - Me.FlatButton5.TabStop = False - Me.FlatButton5.UseVisualStyleBackColor = True - ' - 'cboAnlage5 - ' - Me.cboAnlage5._allowedValuesFreiText = Nothing - Me.cboAnlage5._allowFreiText = True - Me.cboAnlage5._value = "" - Me.cboAnlage5.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend - Me.cboAnlage5.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems - Me.cboAnlage5.FormattingEnabled = True - Me.cboAnlage5.Location = New System.Drawing.Point(10, 991) - Me.cboAnlage5.MaxLength = 35 - Me.cboAnlage5.Name = "cboAnlage5" - Me.cboAnlage5.Size = New System.Drawing.Size(266, 21) - Me.cboAnlage5.TabIndex = 32 - ' - 'cboAnlage1 - ' - Me.cboAnlage1._allowedValuesFreiText = Nothing - Me.cboAnlage1._allowFreiText = True - Me.cboAnlage1._value = "" - Me.cboAnlage1.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend - Me.cboAnlage1.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems - Me.cboAnlage1.FormattingEnabled = True - Me.cboAnlage1.Location = New System.Drawing.Point(10, 911) - Me.cboAnlage1.MaxLength = 35 - Me.cboAnlage1.Name = "cboAnlage1" - Me.cboAnlage1.Size = New System.Drawing.Size(266, 21) - Me.cboAnlage1.TabIndex = 28 - ' - 'txtWarenwertUmrechnung - ' - Me.txtWarenwertUmrechnung._DateTimeOnly = False - Me.txtWarenwertUmrechnung._numbersOnly = False - Me.txtWarenwertUmrechnung._numbersOnlyKommastellen = "" - Me.txtWarenwertUmrechnung._numbersOnlyTrennzeichen = True - Me.txtWarenwertUmrechnung._Prozent = False - Me.txtWarenwertUmrechnung._ShortDateNew = False - Me.txtWarenwertUmrechnung._ShortDateOnly = False - Me.txtWarenwertUmrechnung._TimeOnly = False - Me.txtWarenwertUmrechnung._TimeOnly_Seconds = False - Me.txtWarenwertUmrechnung._value = "" - Me.txtWarenwertUmrechnung._Waehrung = True - Me.txtWarenwertUmrechnung._WaehrungZeichen = False - Me.txtWarenwertUmrechnung.Enabled = False - Me.txtWarenwertUmrechnung.ForeColor = System.Drawing.Color.Black - Me.txtWarenwertUmrechnung.Location = New System.Drawing.Point(562, 197) - Me.txtWarenwertUmrechnung.MaxLength = 35 - Me.txtWarenwertUmrechnung.MaxLineLength = -1 - Me.txtWarenwertUmrechnung.MaxLines_Warning = "" - Me.txtWarenwertUmrechnung.MaxLines_Warning_Label = Nothing - Me.txtWarenwertUmrechnung.Name = "txtWarenwertUmrechnung" - Me.txtWarenwertUmrechnung.Size = New System.Drawing.Size(129, 20) - Me.txtWarenwertUmrechnung.TabIndex = 18 - Me.txtWarenwertUmrechnung.TextAlign = System.Windows.Forms.HorizontalAlignment.Right - ' 'Label13 ' Me.Label13.AutoSize = True @@ -1420,20 +965,6 @@ Partial Class usrCntlFaktAbrechnung Me.Label13.Text = "Anlagen:" Me.Label13.TextAlign = System.Drawing.ContentAlignment.TopRight ' - 'cboAnlage2 - ' - Me.cboAnlage2._allowedValuesFreiText = Nothing - Me.cboAnlage2._allowFreiText = True - Me.cboAnlage2._value = "" - Me.cboAnlage2.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend - Me.cboAnlage2.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems - Me.cboAnlage2.FormattingEnabled = True - Me.cboAnlage2.Location = New System.Drawing.Point(10, 931) - Me.cboAnlage2.MaxLength = 35 - Me.cboAnlage2.Name = "cboAnlage2" - Me.cboAnlage2.Size = New System.Drawing.Size(266, 21) - Me.cboAnlage2.TabIndex = 29 - ' 'Label34 ' Me.Label34.AutoSize = True @@ -1444,58 +975,6 @@ Partial Class usrCntlFaktAbrechnung Me.Label34.Text = "Umrechnung:" Me.Label34.TextAlign = System.Drawing.ContentAlignment.TopRight ' - 'cboAnlage3 - ' - Me.cboAnlage3._allowedValuesFreiText = Nothing - Me.cboAnlage3._allowFreiText = True - Me.cboAnlage3._value = "" - Me.cboAnlage3.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend - Me.cboAnlage3.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems - Me.cboAnlage3.FormattingEnabled = True - Me.cboAnlage3.Location = New System.Drawing.Point(10, 951) - Me.cboAnlage3.MaxLength = 35 - Me.cboAnlage3.Name = "cboAnlage3" - Me.cboAnlage3.Size = New System.Drawing.Size(266, 21) - Me.cboAnlage3.TabIndex = 30 - ' - 'txtVermerk - ' - Me.txtVermerk._DateTimeOnly = False - Me.txtVermerk._numbersOnly = False - Me.txtVermerk._numbersOnlyKommastellen = "" - Me.txtVermerk._numbersOnlyTrennzeichen = True - Me.txtVermerk._Prozent = False - Me.txtVermerk._ShortDateNew = False - Me.txtVermerk._ShortDateOnly = False - Me.txtVermerk._TimeOnly = False - Me.txtVermerk._TimeOnly_Seconds = False - Me.txtVermerk._value = Nothing - Me.txtVermerk._Waehrung = False - Me.txtVermerk._WaehrungZeichen = True - Me.txtVermerk.ForeColor = System.Drawing.Color.Black - Me.txtVermerk.Location = New System.Drawing.Point(517, 341) - Me.txtVermerk.MaxLength = 35 - Me.txtVermerk.MaxLineLength = -1 - Me.txtVermerk.MaxLines_Warning = "" - Me.txtVermerk.MaxLines_Warning_Label = Nothing - Me.txtVermerk.Name = "txtVermerk" - Me.txtVermerk.Size = New System.Drawing.Size(305, 20) - Me.txtVermerk.TabIndex = 25 - ' - 'cboAnlage6 - ' - Me.cboAnlage6._allowedValuesFreiText = Nothing - Me.cboAnlage6._allowFreiText = True - Me.cboAnlage6._value = "" - Me.cboAnlage6.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend - Me.cboAnlage6.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems - Me.cboAnlage6.FormattingEnabled = True - Me.cboAnlage6.Location = New System.Drawing.Point(10, 1011) - Me.cboAnlage6.MaxLength = 35 - Me.cboAnlage6.Name = "cboAnlage6" - Me.cboAnlage6.Size = New System.Drawing.Size(266, 21) - Me.cboAnlage6.TabIndex = 33 - ' 'Label25 ' Me.Label25.AutoSize = True @@ -1506,44 +985,6 @@ Partial Class usrCntlFaktAbrechnung Me.Label25.Text = "Vermerk:" Me.Label25.TextAlign = System.Drawing.ContentAlignment.TopRight ' - 'cboAnlage4 - ' - Me.cboAnlage4._allowedValuesFreiText = Nothing - Me.cboAnlage4._allowFreiText = True - Me.cboAnlage4._value = "" - Me.cboAnlage4.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend - Me.cboAnlage4.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems - Me.cboAnlage4.FormattingEnabled = True - Me.cboAnlage4.Location = New System.Drawing.Point(10, 971) - Me.cboAnlage4.MaxLength = 35 - Me.cboAnlage4.Name = "cboAnlage4" - Me.cboAnlage4.Size = New System.Drawing.Size(266, 21) - Me.cboAnlage4.TabIndex = 31 - ' - 'txtErfassungsnummer - ' - Me.txtErfassungsnummer._DateTimeOnly = False - Me.txtErfassungsnummer._numbersOnly = False - Me.txtErfassungsnummer._numbersOnlyKommastellen = "" - Me.txtErfassungsnummer._numbersOnlyTrennzeichen = True - Me.txtErfassungsnummer._Prozent = False - Me.txtErfassungsnummer._ShortDateNew = False - Me.txtErfassungsnummer._ShortDateOnly = False - Me.txtErfassungsnummer._TimeOnly = False - Me.txtErfassungsnummer._TimeOnly_Seconds = False - Me.txtErfassungsnummer._value = Nothing - Me.txtErfassungsnummer._Waehrung = False - Me.txtErfassungsnummer._WaehrungZeichen = True - Me.txtErfassungsnummer.ForeColor = System.Drawing.Color.Black - Me.txtErfassungsnummer.Location = New System.Drawing.Point(517, 242) - Me.txtErfassungsnummer.MaxLength = 35 - Me.txtErfassungsnummer.MaxLineLength = -1 - Me.txtErfassungsnummer.MaxLines_Warning = "" - Me.txtErfassungsnummer.MaxLines_Warning_Label = Nothing - Me.txtErfassungsnummer.Name = "txtErfassungsnummer" - Me.txtErfassungsnummer.Size = New System.Drawing.Size(305, 20) - Me.txtErfassungsnummer.TabIndex = 11 - ' 'Label24 ' Me.Label24.AutoSize = True @@ -1564,17 +1005,6 @@ Partial Class usrCntlFaktAbrechnung Me.Label22.Text = "Rg-Notiz:" Me.Label22.TextAlign = System.Drawing.ContentAlignment.TopRight ' - 'cboRechnungNotiz - ' - Me.cboRechnungNotiz._allowedValuesFreiText = Nothing - Me.cboRechnungNotiz._allowFreiText = True - Me.cboRechnungNotiz._value = "" - Me.cboRechnungNotiz.FormattingEnabled = True - Me.cboRechnungNotiz.Location = New System.Drawing.Point(64, 1039) - Me.cboRechnungNotiz.Name = "cboRechnungNotiz" - Me.cboRechnungNotiz.Size = New System.Drawing.Size(423, 21) - Me.cboRechnungNotiz.TabIndex = 36 - ' 'pic ' Me.pic.BackgroundImage = Global.SDL.My.Resources.Resources.Verag_AG_Logo_med @@ -1586,19 +1016,6 @@ Partial Class usrCntlFaktAbrechnung Me.pic.TabIndex = 36 Me.pic.TabStop = False ' - 'cboFirma - ' - Me.cboFirma._allowedValuesFreiText = Nothing - Me.cboFirma._allowFreiText = False - Me.cboFirma._value = "" - Me.cboFirma.FormattingEnabled = True - Me.cboFirma.Location = New System.Drawing.Point(592, 51) - Me.cboFirma.Margin = New System.Windows.Forms.Padding(2) - Me.cboFirma.Name = "cboFirma" - Me.cboFirma.Size = New System.Drawing.Size(229, 21) - Me.cboFirma.TabIndex = 1 - Me.cboFirma.TabStop = False - ' 'lblFirma3 ' Me.lblFirma3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) @@ -1656,34 +1073,6 @@ Partial Class usrCntlFaktAbrechnung Me.pnlAuftraggeber.Size = New System.Drawing.Size(415, 73) Me.pnlAuftraggeber.TabIndex = 7 ' - 'txtkdNrAuftraggeber - ' - Me.txtkdNrAuftraggeber._DateTimeOnly = False - Me.txtkdNrAuftraggeber._numbersOnly = False - Me.txtkdNrAuftraggeber._numbersOnlyKommastellen = "" - Me.txtkdNrAuftraggeber._numbersOnlyTrennzeichen = True - Me.txtkdNrAuftraggeber._Prozent = False - Me.txtkdNrAuftraggeber._ShortDateNew = False - Me.txtkdNrAuftraggeber._ShortDateOnly = False - Me.txtkdNrAuftraggeber._TimeOnly = False - Me.txtkdNrAuftraggeber._TimeOnly_Seconds = False - Me.txtkdNrAuftraggeber._value = Nothing - Me.txtkdNrAuftraggeber._Waehrung = False - Me.txtkdNrAuftraggeber._WaehrungZeichen = True - Me.txtkdNrAuftraggeber.BackColor = System.Drawing.Color.WhiteSmoke - Me.txtkdNrAuftraggeber.BorderStyle = System.Windows.Forms.BorderStyle.None - Me.txtkdNrAuftraggeber.ForeColor = System.Drawing.Color.Black - Me.txtkdNrAuftraggeber.Location = New System.Drawing.Point(7, 25) - Me.txtkdNrAuftraggeber.MaxLength = 35 - Me.txtkdNrAuftraggeber.MaxLineLength = -1 - Me.txtkdNrAuftraggeber.MaxLines_Warning = "" - Me.txtkdNrAuftraggeber.MaxLines_Warning_Label = Nothing - Me.txtkdNrAuftraggeber.Name = "txtkdNrAuftraggeber" - Me.txtkdNrAuftraggeber.ReadOnly = True - Me.txtkdNrAuftraggeber.Size = New System.Drawing.Size(94, 13) - Me.txtkdNrAuftraggeber.TabIndex = 1 - Me.txtkdNrAuftraggeber.TabStop = False - ' 'btnAuftraggeberEuro ' Me.btnAuftraggeberEuro.FlatAppearance.BorderSize = 0 @@ -1699,64 +1088,6 @@ Partial Class usrCntlFaktAbrechnung Me.btnAuftraggeberEuro.Text = "€" Me.btnAuftraggeberEuro.UseVisualStyleBackColor = True ' - 'kdFirmaAuftraggeber - ' - Me.kdFirmaAuftraggeber._AlleFirmenCLUSTER = False - Me.kdFirmaAuftraggeber._AllowSetValue = True - Me.kdFirmaAuftraggeber._autoSizeGross = False - Me.kdFirmaAuftraggeber._display_Name1 = True - Me.kdFirmaAuftraggeber._displayAVISO_Email = False - Me.kdFirmaAuftraggeber._displayFullName = False - Me.kdFirmaAuftraggeber._displayWoelflKd = False - Me.kdFirmaAuftraggeber._hideIfListEmpty = True - Me.kdFirmaAuftraggeber._loadKdData = True - Me.kdFirmaAuftraggeber._searchName1 = True - Me.kdFirmaAuftraggeber._UseFIRMA = "" - Me.kdFirmaAuftraggeber._ValueKdAndName = False - Me.kdFirmaAuftraggeber.BackColor = System.Drawing.Color.White - Me.kdFirmaAuftraggeber.dgvpos = "LEFT" - Me.kdFirmaAuftraggeber.KdName = Nothing - Me.kdFirmaAuftraggeber.KdNr = "-1" - Me.kdFirmaAuftraggeber.kdNrField = Nothing - Me.kdFirmaAuftraggeber.KdNrNullInt = Nothing - Me.kdFirmaAuftraggeber.Location = New System.Drawing.Point(101, 3) - Me.kdFirmaAuftraggeber.MaxLength = 35 - Me.kdFirmaAuftraggeber.Name = "kdFirmaAuftraggeber" - Me.kdFirmaAuftraggeber.nurAktive = True - Me.kdFirmaAuftraggeber.searchActive = True - Me.kdFirmaAuftraggeber.Size = New System.Drawing.Size(283, 20) - Me.kdFirmaAuftraggeber.TabIndex = 3 - Me.kdFirmaAuftraggeber.TabStop = False - Me.kdFirmaAuftraggeber.TIMER_SEARCH = True - Me.kdFirmaAuftraggeber.usrcntl = Nothing - ' - 'txtAuftraggeberName2 - ' - Me.txtAuftraggeberName2._DateTimeOnly = False - Me.txtAuftraggeberName2._numbersOnly = False - Me.txtAuftraggeberName2._numbersOnlyKommastellen = "" - Me.txtAuftraggeberName2._numbersOnlyTrennzeichen = True - Me.txtAuftraggeberName2._Prozent = False - Me.txtAuftraggeberName2._ShortDateNew = False - Me.txtAuftraggeberName2._ShortDateOnly = False - Me.txtAuftraggeberName2._TimeOnly = False - Me.txtAuftraggeberName2._TimeOnly_Seconds = False - Me.txtAuftraggeberName2._value = Nothing - Me.txtAuftraggeberName2._Waehrung = False - Me.txtAuftraggeberName2._WaehrungZeichen = True - Me.txtAuftraggeberName2.BackColor = System.Drawing.Color.WhiteSmoke - Me.txtAuftraggeberName2.BorderStyle = System.Windows.Forms.BorderStyle.None - Me.txtAuftraggeberName2.ForeColor = System.Drawing.Color.Black - Me.txtAuftraggeberName2.Location = New System.Drawing.Point(101, 25) - Me.txtAuftraggeberName2.MaxLength = 35 - Me.txtAuftraggeberName2.MaxLineLength = -1 - Me.txtAuftraggeberName2.MaxLines_Warning = "" - Me.txtAuftraggeberName2.MaxLines_Warning_Label = Nothing - Me.txtAuftraggeberName2.Name = "txtAuftraggeberName2" - Me.txtAuftraggeberName2.Size = New System.Drawing.Size(305, 13) - Me.txtAuftraggeberName2.TabIndex = 4 - Me.txtAuftraggeberName2.TabStop = False - ' 'Label15 ' Me.Label15.AutoSize = True @@ -1767,134 +1098,6 @@ Partial Class usrCntlFaktAbrechnung Me.Label15.TabIndex = 0 Me.Label15.Text = "3. Auftraggeber:" ' - 'txtAuftragggeberOrt - ' - Me.txtAuftragggeberOrt._DateTimeOnly = False - Me.txtAuftragggeberOrt._numbersOnly = False - Me.txtAuftragggeberOrt._numbersOnlyKommastellen = "" - Me.txtAuftragggeberOrt._numbersOnlyTrennzeichen = True - Me.txtAuftragggeberOrt._Prozent = False - Me.txtAuftragggeberOrt._ShortDateNew = False - Me.txtAuftragggeberOrt._ShortDateOnly = False - Me.txtAuftragggeberOrt._TimeOnly = False - Me.txtAuftragggeberOrt._TimeOnly_Seconds = False - Me.txtAuftragggeberOrt._value = Nothing - Me.txtAuftragggeberOrt._Waehrung = False - Me.txtAuftragggeberOrt._WaehrungZeichen = True - Me.txtAuftragggeberOrt.BackColor = System.Drawing.Color.WhiteSmoke - Me.txtAuftragggeberOrt.BorderStyle = System.Windows.Forms.BorderStyle.None - Me.txtAuftragggeberOrt.ForeColor = System.Drawing.Color.Black - Me.txtAuftragggeberOrt.Location = New System.Drawing.Point(101, 53) - Me.txtAuftragggeberOrt.MaxLength = 35 - Me.txtAuftragggeberOrt.MaxLineLength = -1 - Me.txtAuftragggeberOrt.MaxLines_Warning = "" - Me.txtAuftragggeberOrt.MaxLines_Warning_Label = Nothing - Me.txtAuftragggeberOrt.Name = "txtAuftragggeberOrt" - Me.txtAuftragggeberOrt.Size = New System.Drawing.Size(305, 13) - Me.txtAuftragggeberOrt.TabIndex = 7 - Me.txtAuftragggeberOrt.TabStop = False - ' - 'txtAuftragggeberStrasse - ' - Me.txtAuftragggeberStrasse._DateTimeOnly = False - Me.txtAuftragggeberStrasse._numbersOnly = False - Me.txtAuftragggeberStrasse._numbersOnlyKommastellen = "" - Me.txtAuftragggeberStrasse._numbersOnlyTrennzeichen = True - Me.txtAuftragggeberStrasse._Prozent = False - Me.txtAuftragggeberStrasse._ShortDateNew = False - Me.txtAuftragggeberStrasse._ShortDateOnly = False - Me.txtAuftragggeberStrasse._TimeOnly = False - Me.txtAuftragggeberStrasse._TimeOnly_Seconds = False - Me.txtAuftragggeberStrasse._value = Nothing - Me.txtAuftragggeberStrasse._Waehrung = False - Me.txtAuftragggeberStrasse._WaehrungZeichen = True - Me.txtAuftragggeberStrasse.BackColor = System.Drawing.Color.WhiteSmoke - Me.txtAuftragggeberStrasse.BorderStyle = System.Windows.Forms.BorderStyle.None - Me.txtAuftragggeberStrasse.ForeColor = System.Drawing.Color.Black - Me.txtAuftragggeberStrasse.Location = New System.Drawing.Point(101, 39) - Me.txtAuftragggeberStrasse.MaxLength = 35 - Me.txtAuftragggeberStrasse.MaxLineLength = -1 - Me.txtAuftragggeberStrasse.MaxLines_Warning = "" - Me.txtAuftragggeberStrasse.MaxLines_Warning_Label = Nothing - Me.txtAuftragggeberStrasse.Name = "txtAuftragggeberStrasse" - Me.txtAuftragggeberStrasse.Size = New System.Drawing.Size(305, 13) - Me.txtAuftragggeberStrasse.TabIndex = 6 - Me.txtAuftragggeberStrasse.TabStop = False - ' - 'FlatButton4 - ' - Me.FlatButton4.allowBorder = False - Me.FlatButton4.FlatAppearance.BorderSize = 0 - Me.FlatButton4.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.FlatButton4.ForeColor = System.Drawing.Color.Black - Me.FlatButton4.Image = Global.SDL.My.Resources.Resources.personInaktiv - Me.FlatButton4.Location = New System.Drawing.Point(382, 0) - Me.FlatButton4.Name = "FlatButton4" - Me.FlatButton4.Size = New System.Drawing.Size(24, 25) - Me.FlatButton4.TabIndex = 2 - Me.FlatButton4.TabStop = False - Me.FlatButton4.UseVisualStyleBackColor = True - ' - 'txtText - ' - Me.txtText.Location = New System.Drawing.Point(64, 1083) - Me.txtText.MaxLineLength = -1 - Me.txtText.MaxLines_Warning = "" - Me.txtText.MaxLines_Warning_Label = Nothing - Me.txtText.Name = "txtText" - Me.txtText.ReadOnly = True - Me.txtText.Size = New System.Drawing.Size(423, 47) - Me.txtText.TabIndex = 35 - Me.txtText.Text = "" - ' - 'txtBefoerderungsmittel - ' - Me.txtBefoerderungsmittel._DateTimeOnly = False - Me.txtBefoerderungsmittel._numbersOnly = False - Me.txtBefoerderungsmittel._numbersOnlyKommastellen = "" - Me.txtBefoerderungsmittel._numbersOnlyTrennzeichen = True - Me.txtBefoerderungsmittel._Prozent = False - Me.txtBefoerderungsmittel._ShortDateNew = False - Me.txtBefoerderungsmittel._ShortDateOnly = False - Me.txtBefoerderungsmittel._TimeOnly = False - Me.txtBefoerderungsmittel._TimeOnly_Seconds = False - Me.txtBefoerderungsmittel._value = Nothing - Me.txtBefoerderungsmittel._Waehrung = False - Me.txtBefoerderungsmittel._WaehrungZeichen = True - Me.txtBefoerderungsmittel.ForeColor = System.Drawing.Color.Black - Me.txtBefoerderungsmittel.Location = New System.Drawing.Point(517, 279) - Me.txtBefoerderungsmittel.MaxLength = 35 - Me.txtBefoerderungsmittel.MaxLineLength = -1 - Me.txtBefoerderungsmittel.MaxLines_Warning = "" - Me.txtBefoerderungsmittel.MaxLines_Warning_Label = Nothing - Me.txtBefoerderungsmittel.Name = "txtBefoerderungsmittel" - Me.txtBefoerderungsmittel.Size = New System.Drawing.Size(305, 20) - Me.txtBefoerderungsmittel.TabIndex = 19 - ' - 'txtGrenze - ' - Me.txtGrenze._DateTimeOnly = False - Me.txtGrenze._numbersOnly = False - Me.txtGrenze._numbersOnlyKommastellen = "" - Me.txtGrenze._numbersOnlyTrennzeichen = True - Me.txtGrenze._Prozent = False - Me.txtGrenze._ShortDateNew = False - Me.txtGrenze._ShortDateOnly = False - Me.txtGrenze._TimeOnly = False - Me.txtGrenze._TimeOnly_Seconds = False - Me.txtGrenze._value = Nothing - Me.txtGrenze._Waehrung = False - Me.txtGrenze._WaehrungZeichen = True - Me.txtGrenze.ForeColor = System.Drawing.Color.Black - Me.txtGrenze.Location = New System.Drawing.Point(517, 260) - Me.txtGrenze.MaxLength = 35 - Me.txtGrenze.MaxLineLength = -1 - Me.txtGrenze.MaxLines_Warning = "" - Me.txtGrenze.MaxLines_Warning_Label = Nothing - Me.txtGrenze.Name = "txtGrenze" - Me.txtGrenze.Size = New System.Drawing.Size(305, 20) - Me.txtGrenze.TabIndex = 16 - ' 'Label20 ' Me.Label20.AutoSize = True @@ -1915,30 +1118,6 @@ Partial Class usrCntlFaktAbrechnung Me.Label19.Text = "Grenze:" Me.Label19.TextAlign = System.Drawing.ContentAlignment.TopRight ' - 'txtSendungsdaten - ' - Me.txtSendungsdaten._DateTimeOnly = False - Me.txtSendungsdaten._numbersOnly = False - Me.txtSendungsdaten._numbersOnlyKommastellen = "" - Me.txtSendungsdaten._numbersOnlyTrennzeichen = True - Me.txtSendungsdaten._Prozent = False - Me.txtSendungsdaten._ShortDateNew = False - Me.txtSendungsdaten._ShortDateOnly = False - Me.txtSendungsdaten._TimeOnly = False - Me.txtSendungsdaten._TimeOnly_Seconds = False - Me.txtSendungsdaten._value = Nothing - Me.txtSendungsdaten._Waehrung = False - Me.txtSendungsdaten._WaehrungZeichen = True - Me.txtSendungsdaten.ForeColor = System.Drawing.Color.Black - Me.txtSendungsdaten.Location = New System.Drawing.Point(517, 323) - Me.txtSendungsdaten.MaxLength = 300 - Me.txtSendungsdaten.MaxLineLength = -1 - Me.txtSendungsdaten.MaxLines_Warning = "" - Me.txtSendungsdaten.MaxLines_Warning_Label = Nothing - Me.txtSendungsdaten.Name = "txtSendungsdaten" - Me.txtSendungsdaten.Size = New System.Drawing.Size(305, 20) - Me.txtSendungsdaten.TabIndex = 22 - ' 'Label17 ' Me.Label17.AutoSize = True @@ -1949,31 +1128,6 @@ Partial Class usrCntlFaktAbrechnung Me.Label17.Text = "Sendungsdaten:" Me.Label17.TextAlign = System.Drawing.ContentAlignment.TopRight ' - 'txtWarenwert - ' - Me.txtWarenwert._DateTimeOnly = False - Me.txtWarenwert._numbersOnly = False - Me.txtWarenwert._numbersOnlyKommastellen = "" - Me.txtWarenwert._numbersOnlyTrennzeichen = True - Me.txtWarenwert._Prozent = False - Me.txtWarenwert._ShortDateNew = False - Me.txtWarenwert._ShortDateOnly = False - Me.txtWarenwert._TimeOnly = False - Me.txtWarenwert._TimeOnly_Seconds = False - Me.txtWarenwert._value = "" - Me.txtWarenwert._Waehrung = True - Me.txtWarenwert._WaehrungZeichen = False - Me.txtWarenwert.ForeColor = System.Drawing.Color.Black - Me.txtWarenwert.Location = New System.Drawing.Point(562, 178) - Me.txtWarenwert.MaxLength = 35 - Me.txtWarenwert.MaxLineLength = -1 - Me.txtWarenwert.MaxLines_Warning = "" - Me.txtWarenwert.MaxLines_Warning_Label = Nothing - Me.txtWarenwert.Name = "txtWarenwert" - Me.txtWarenwert.Size = New System.Drawing.Size(129, 20) - Me.txtWarenwert.TabIndex = 15 - Me.txtWarenwert.TextAlign = System.Windows.Forms.HorizontalAlignment.Right - ' 'Label16 ' Me.Label16.AutoSize = True @@ -1984,30 +1138,6 @@ Partial Class usrCntlFaktAbrechnung Me.Label16.Text = "Warenwert:" Me.Label16.TextAlign = System.Drawing.ContentAlignment.TopRight ' - 'txtZollbelegNr - ' - Me.txtZollbelegNr._DateTimeOnly = False - Me.txtZollbelegNr._numbersOnly = False - Me.txtZollbelegNr._numbersOnlyKommastellen = "" - Me.txtZollbelegNr._numbersOnlyTrennzeichen = True - Me.txtZollbelegNr._Prozent = False - Me.txtZollbelegNr._ShortDateNew = False - Me.txtZollbelegNr._ShortDateOnly = False - Me.txtZollbelegNr._TimeOnly = False - Me.txtZollbelegNr._TimeOnly_Seconds = False - Me.txtZollbelegNr._value = Nothing - Me.txtZollbelegNr._Waehrung = False - Me.txtZollbelegNr._WaehrungZeichen = True - Me.txtZollbelegNr.ForeColor = System.Drawing.Color.Black - Me.txtZollbelegNr.Location = New System.Drawing.Point(517, 159) - Me.txtZollbelegNr.MaxLength = 35 - Me.txtZollbelegNr.MaxLineLength = -1 - Me.txtZollbelegNr.MaxLines_Warning = "" - Me.txtZollbelegNr.MaxLines_Warning_Label = Nothing - Me.txtZollbelegNr.Name = "txtZollbelegNr" - Me.txtZollbelegNr.Size = New System.Drawing.Size(305, 20) - Me.txtZollbelegNr.TabIndex = 10 - ' 'Label10 ' Me.Label10.AutoSize = True @@ -2058,17 +1188,6 @@ Partial Class usrCntlFaktAbrechnung Me.pnlRechnungAn.Size = New System.Drawing.Size(582, 153) Me.pnlRechnungAn.TabIndex = 0 ' - 'cboRgArt - ' - Me.cboRgArt._allowedValuesFreiText = Nothing - Me.cboRgArt._allowFreiText = False - Me.cboRgArt._value = "" - Me.cboRgArt.FormattingEnabled = True - Me.cboRgArt.Location = New System.Drawing.Point(478, 127) - Me.cboRgArt.Name = "cboRgArt" - Me.cboRgArt.Size = New System.Drawing.Size(97, 21) - Me.cboRgArt.TabIndex = 246 - ' 'Label57 ' Me.Label57.AutoSize = True @@ -2079,17 +1198,6 @@ Partial Class usrCntlFaktAbrechnung Me.Label57.Text = "RG-Art:" Me.Label57.TextAlign = System.Drawing.ContentAlignment.TopRight ' - 'cboVorauskasse - ' - Me.cboVorauskasse._allowedValuesFreiText = Nothing - Me.cboVorauskasse._allowFreiText = False - Me.cboVorauskasse._value = "" - Me.cboVorauskasse.FormattingEnabled = True - Me.cboVorauskasse.Location = New System.Drawing.Point(506, 5) - Me.cboVorauskasse.Name = "cboVorauskasse" - Me.cboVorauskasse.Size = New System.Drawing.Size(69, 21) - Me.cboVorauskasse.TabIndex = 244 - ' 'Label56 ' Me.Label56.AutoSize = True @@ -2100,31 +1208,6 @@ Partial Class usrCntlFaktAbrechnung Me.Label56.TabIndex = 243 Me.Label56.Text = "Adresse:" ' - 'txtRechnungAnZusatz - ' - Me.txtRechnungAnZusatz._DateTimeOnly = False - Me.txtRechnungAnZusatz._numbersOnly = False - Me.txtRechnungAnZusatz._numbersOnlyKommastellen = "" - Me.txtRechnungAnZusatz._numbersOnlyTrennzeichen = True - Me.txtRechnungAnZusatz._Prozent = False - Me.txtRechnungAnZusatz._ShortDateNew = False - Me.txtRechnungAnZusatz._ShortDateOnly = False - Me.txtRechnungAnZusatz._TimeOnly = False - Me.txtRechnungAnZusatz._TimeOnly_Seconds = False - Me.txtRechnungAnZusatz._value = Nothing - Me.txtRechnungAnZusatz._Waehrung = False - Me.txtRechnungAnZusatz._WaehrungZeichen = True - Me.txtRechnungAnZusatz.ForeColor = System.Drawing.Color.Black - Me.txtRechnungAnZusatz.Location = New System.Drawing.Point(101, 63) - Me.txtRechnungAnZusatz.MaxLength = 52 - Me.txtRechnungAnZusatz.MaxLineLength = -1 - Me.txtRechnungAnZusatz.MaxLines_Warning = "" - Me.txtRechnungAnZusatz.MaxLines_Warning_Label = Nothing - Me.txtRechnungAnZusatz.Name = "txtRechnungAnZusatz" - Me.txtRechnungAnZusatz.Size = New System.Drawing.Size(306, 20) - Me.txtRechnungAnZusatz.TabIndex = 242 - Me.txtRechnungAnZusatz.TabStop = False - ' 'Button15 ' Me.Button15.Enabled = False @@ -2136,17 +1219,6 @@ Partial Class usrCntlFaktAbrechnung Me.Button15.Text = "Post" Me.Button15.UseVisualStyleBackColor = True ' - 'cboSammelrechnung - ' - Me.cboSammelrechnung._allowedValuesFreiText = Nothing - Me.cboSammelrechnung._allowFreiText = False - Me.cboSammelrechnung._value = "" - Me.cboSammelrechnung.FormattingEnabled = True - Me.cboSammelrechnung.Location = New System.Drawing.Point(282, 5) - Me.cboSammelrechnung.Name = "cboSammelrechnung" - Me.cboSammelrechnung.Size = New System.Drawing.Size(102, 21) - Me.cboSammelrechnung.TabIndex = 2 - ' 'Button14 ' Me.Button14.BackgroundImage = Global.SDL.My.Resources.Resources.person_add @@ -2232,99 +1304,6 @@ Partial Class usrCntlFaktAbrechnung Me.Button6.Text = "UID prüfen" Me.Button6.UseVisualStyleBackColor = True ' - 'txtRechnungAnName2 - ' - Me.txtRechnungAnName2._DateTimeOnly = False - Me.txtRechnungAnName2._numbersOnly = False - Me.txtRechnungAnName2._numbersOnlyKommastellen = "" - Me.txtRechnungAnName2._numbersOnlyTrennzeichen = True - Me.txtRechnungAnName2._Prozent = False - Me.txtRechnungAnName2._ShortDateNew = False - Me.txtRechnungAnName2._ShortDateOnly = False - Me.txtRechnungAnName2._TimeOnly = False - Me.txtRechnungAnName2._TimeOnly_Seconds = False - Me.txtRechnungAnName2._value = Nothing - Me.txtRechnungAnName2._Waehrung = False - Me.txtRechnungAnName2._WaehrungZeichen = True - Me.txtRechnungAnName2.ForeColor = System.Drawing.Color.Black - Me.txtRechnungAnName2.Location = New System.Drawing.Point(101, 44) - Me.txtRechnungAnName2.MaxLength = 40 - Me.txtRechnungAnName2.MaxLineLength = -1 - Me.txtRechnungAnName2.MaxLines_Warning = "" - Me.txtRechnungAnName2.MaxLines_Warning_Label = Nothing - Me.txtRechnungAnName2.Name = "txtRechnungAnName2" - Me.txtRechnungAnName2.Size = New System.Drawing.Size(306, 20) - Me.txtRechnungAnName2.TabIndex = 11 - Me.txtRechnungAnName2.TabStop = False - ' - 'kdFirmaRechnungAn - ' - Me.kdFirmaRechnungAn._AlleFirmenCLUSTER = False - Me.kdFirmaRechnungAn._AllowSetValue = True - Me.kdFirmaRechnungAn._autoSizeGross = False - Me.kdFirmaRechnungAn._display_Name1 = True - Me.kdFirmaRechnungAn._displayAVISO_Email = False - Me.kdFirmaRechnungAn._displayFullName = False - Me.kdFirmaRechnungAn._displayWoelflKd = False - Me.kdFirmaRechnungAn._hideIfListEmpty = True - Me.kdFirmaRechnungAn._loadKdData = True - Me.kdFirmaRechnungAn._searchName1 = True - Me.kdFirmaRechnungAn._UseFIRMA = "" - Me.kdFirmaRechnungAn._ValueKdAndName = False - Me.kdFirmaRechnungAn.dgvpos = "LEFT" - Me.kdFirmaRechnungAn.KdName = Nothing - Me.kdFirmaRechnungAn.KdNr = "-1" - Me.kdFirmaRechnungAn.kdNrField = Nothing - Me.kdFirmaRechnungAn.KdNrNullInt = Nothing - Me.kdFirmaRechnungAn.Location = New System.Drawing.Point(101, 25) - Me.kdFirmaRechnungAn.MaxLength = 35 - Me.kdFirmaRechnungAn.Name = "kdFirmaRechnungAn" - Me.kdFirmaRechnungAn.nurAktive = True - Me.kdFirmaRechnungAn.searchActive = True - Me.kdFirmaRechnungAn.Size = New System.Drawing.Size(283, 20) - Me.kdFirmaRechnungAn.TabIndex = 5 - Me.kdFirmaRechnungAn.TabStop = False - Me.kdFirmaRechnungAn.TIMER_SEARCH = True - Me.kdFirmaRechnungAn.usrcntl = Nothing - ' - 'FlatButton3 - ' - Me.FlatButton3.allowBorder = False - Me.FlatButton3.FlatAppearance.BorderSize = 0 - Me.FlatButton3.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.FlatButton3.ForeColor = System.Drawing.Color.Black - Me.FlatButton3.Image = Global.SDL.My.Resources.Resources.personInaktiv - Me.FlatButton3.Location = New System.Drawing.Point(383, 20) - Me.FlatButton3.Name = "FlatButton3" - Me.FlatButton3.Size = New System.Drawing.Size(24, 25) - Me.FlatButton3.TabIndex = 7 - Me.FlatButton3.TabStop = False - Me.FlatButton3.UseVisualStyleBackColor = True - ' - 'txtKdAuftragsNr - ' - Me.txtKdAuftragsNr._DateTimeOnly = False - Me.txtKdAuftragsNr._numbersOnly = False - Me.txtKdAuftragsNr._numbersOnlyKommastellen = "" - Me.txtKdAuftragsNr._numbersOnlyTrennzeichen = True - Me.txtKdAuftragsNr._Prozent = False - Me.txtKdAuftragsNr._ShortDateNew = False - Me.txtKdAuftragsNr._ShortDateOnly = False - Me.txtKdAuftragsNr._TimeOnly = False - Me.txtKdAuftragsNr._TimeOnly_Seconds = False - Me.txtKdAuftragsNr._value = Nothing - Me.txtKdAuftragsNr._Waehrung = False - Me.txtKdAuftragsNr._WaehrungZeichen = True - Me.txtKdAuftragsNr.ForeColor = System.Drawing.Color.Black - Me.txtKdAuftragsNr.Location = New System.Drawing.Point(101, 123) - Me.txtKdAuftragsNr.MaxLength = 35 - Me.txtKdAuftragsNr.MaxLineLength = -1 - Me.txtKdAuftragsNr.MaxLines_Warning = "" - Me.txtKdAuftragsNr.MaxLines_Warning_Label = Nothing - Me.txtKdAuftragsNr.Name = "txtKdAuftragsNr" - Me.txtKdAuftragsNr.Size = New System.Drawing.Size(306, 20) - Me.txtKdAuftragsNr.TabIndex = 20 - ' 'Label43 ' Me.Label43.AutoSize = True @@ -2335,31 +1314,6 @@ Partial Class usrCntlFaktAbrechnung Me.Label43.TabIndex = 19 Me.Label43.Text = "Kd-Auftr.Nr.:" ' - 'txtRechnungAnUIDKz - ' - Me.txtRechnungAnUIDKz._DateTimeOnly = False - Me.txtRechnungAnUIDKz._numbersOnly = False - Me.txtRechnungAnUIDKz._numbersOnlyKommastellen = "" - Me.txtRechnungAnUIDKz._numbersOnlyTrennzeichen = True - Me.txtRechnungAnUIDKz._Prozent = False - Me.txtRechnungAnUIDKz._ShortDateNew = False - Me.txtRechnungAnUIDKz._ShortDateOnly = False - Me.txtRechnungAnUIDKz._TimeOnly = False - Me.txtRechnungAnUIDKz._TimeOnly_Seconds = False - Me.txtRechnungAnUIDKz._value = Nothing - Me.txtRechnungAnUIDKz._Waehrung = False - Me.txtRechnungAnUIDKz._WaehrungZeichen = True - Me.txtRechnungAnUIDKz.ForeColor = System.Drawing.Color.Black - Me.txtRechnungAnUIDKz.Location = New System.Drawing.Point(481, 44) - Me.txtRechnungAnUIDKz.MaxLength = 35 - Me.txtRechnungAnUIDKz.MaxLineLength = -1 - Me.txtRechnungAnUIDKz.MaxLines_Warning = "" - Me.txtRechnungAnUIDKz.MaxLines_Warning_Label = Nothing - Me.txtRechnungAnUIDKz.Name = "txtRechnungAnUIDKz" - Me.txtRechnungAnUIDKz.Size = New System.Drawing.Size(27, 20) - Me.txtRechnungAnUIDKz.TabIndex = 18 - Me.txtRechnungAnUIDKz.TabStop = False - ' 'Label1 ' Me.Label1.AutoSize = True @@ -2370,42 +1324,6 @@ Partial Class usrCntlFaktAbrechnung Me.Label1.Text = "Vorauskasse:" Me.Label1.TextAlign = System.Drawing.ContentAlignment.TopRight ' - 'cboRechnungAn - ' - Me.cboRechnungAn._allowedValuesFreiText = Nothing - Me.cboRechnungAn._allowFreiText = False - Me.cboRechnungAn._value = "" - Me.cboRechnungAn.FormattingEnabled = True - Me.cboRechnungAn.Location = New System.Drawing.Point(101, 5) - Me.cboRechnungAn.Name = "cboRechnungAn" - Me.cboRechnungAn.Size = New System.Drawing.Size(183, 21) - Me.cboRechnungAn.TabIndex = 1 - ' - 'txtRechnungAnUIDNr - ' - Me.txtRechnungAnUIDNr._DateTimeOnly = False - Me.txtRechnungAnUIDNr._numbersOnly = False - Me.txtRechnungAnUIDNr._numbersOnlyKommastellen = "" - Me.txtRechnungAnUIDNr._numbersOnlyTrennzeichen = True - Me.txtRechnungAnUIDNr._Prozent = False - Me.txtRechnungAnUIDNr._ShortDateNew = False - Me.txtRechnungAnUIDNr._ShortDateOnly = False - Me.txtRechnungAnUIDNr._TimeOnly = False - Me.txtRechnungAnUIDNr._TimeOnly_Seconds = False - Me.txtRechnungAnUIDNr._value = Nothing - Me.txtRechnungAnUIDNr._Waehrung = False - Me.txtRechnungAnUIDNr._WaehrungZeichen = True - Me.txtRechnungAnUIDNr.ForeColor = System.Drawing.Color.Black - Me.txtRechnungAnUIDNr.Location = New System.Drawing.Point(506, 44) - Me.txtRechnungAnUIDNr.MaxLength = 35 - Me.txtRechnungAnUIDNr.MaxLineLength = -1 - Me.txtRechnungAnUIDNr.MaxLines_Warning = "" - Me.txtRechnungAnUIDNr.MaxLines_Warning_Label = Nothing - Me.txtRechnungAnUIDNr.Name = "txtRechnungAnUIDNr" - Me.txtRechnungAnUIDNr.Size = New System.Drawing.Size(69, 20) - Me.txtRechnungAnUIDNr.TabIndex = 13 - Me.txtRechnungAnUIDNr.TabStop = False - ' 'Label6 ' Me.Label6.AutoSize = True @@ -2416,31 +1334,6 @@ Partial Class usrCntlFaktAbrechnung Me.Label6.TabIndex = 12 Me.Label6.Text = "UID-Nr.:" ' - 'txtRechnungAnBuKdNr - ' - Me.txtRechnungAnBuKdNr._DateTimeOnly = False - Me.txtRechnungAnBuKdNr._numbersOnly = False - Me.txtRechnungAnBuKdNr._numbersOnlyKommastellen = "" - Me.txtRechnungAnBuKdNr._numbersOnlyTrennzeichen = True - Me.txtRechnungAnBuKdNr._Prozent = False - Me.txtRechnungAnBuKdNr._ShortDateNew = False - Me.txtRechnungAnBuKdNr._ShortDateOnly = False - Me.txtRechnungAnBuKdNr._TimeOnly = False - Me.txtRechnungAnBuKdNr._TimeOnly_Seconds = False - Me.txtRechnungAnBuKdNr._value = Nothing - Me.txtRechnungAnBuKdNr._Waehrung = False - Me.txtRechnungAnBuKdNr._WaehrungZeichen = True - Me.txtRechnungAnBuKdNr.ForeColor = System.Drawing.Color.Black - Me.txtRechnungAnBuKdNr.Location = New System.Drawing.Point(481, 25) - Me.txtRechnungAnBuKdNr.MaxLength = 35 - Me.txtRechnungAnBuKdNr.MaxLineLength = -1 - Me.txtRechnungAnBuKdNr.MaxLines_Warning = "" - Me.txtRechnungAnBuKdNr.MaxLines_Warning_Label = Nothing - Me.txtRechnungAnBuKdNr.Name = "txtRechnungAnBuKdNr" - Me.txtRechnungAnBuKdNr.Size = New System.Drawing.Size(94, 20) - Me.txtRechnungAnBuKdNr.TabIndex = 10 - Me.txtRechnungAnBuKdNr.TabStop = False - ' 'Label3 ' Me.Label3.AutoSize = True @@ -2451,81 +1344,6 @@ Partial Class usrCntlFaktAbrechnung Me.Label3.TabIndex = 9 Me.Label3.Text = "BuKdNr:" ' - 'txtkdNrRechnungAn - ' - Me.txtkdNrRechnungAn._DateTimeOnly = False - Me.txtkdNrRechnungAn._numbersOnly = False - Me.txtkdNrRechnungAn._numbersOnlyKommastellen = "" - Me.txtkdNrRechnungAn._numbersOnlyTrennzeichen = True - Me.txtkdNrRechnungAn._Prozent = False - Me.txtkdNrRechnungAn._ShortDateNew = False - Me.txtkdNrRechnungAn._ShortDateOnly = False - Me.txtkdNrRechnungAn._TimeOnly = False - Me.txtkdNrRechnungAn._TimeOnly_Seconds = False - Me.txtkdNrRechnungAn._value = Nothing - Me.txtkdNrRechnungAn._Waehrung = False - Me.txtkdNrRechnungAn._WaehrungZeichen = True - Me.txtkdNrRechnungAn.ForeColor = System.Drawing.Color.Black - Me.txtkdNrRechnungAn.Location = New System.Drawing.Point(8, 25) - Me.txtkdNrRechnungAn.MaxLength = 35 - Me.txtkdNrRechnungAn.MaxLineLength = -1 - Me.txtkdNrRechnungAn.MaxLines_Warning = "" - Me.txtkdNrRechnungAn.MaxLines_Warning_Label = Nothing - Me.txtkdNrRechnungAn.Name = "txtkdNrRechnungAn" - Me.txtkdNrRechnungAn.Size = New System.Drawing.Size(94, 20) - Me.txtkdNrRechnungAn.TabIndex = 3 - Me.txtkdNrRechnungAn.TabStop = False - ' - 'txtRechnungAnOrt - ' - Me.txtRechnungAnOrt._DateTimeOnly = False - Me.txtRechnungAnOrt._numbersOnly = False - Me.txtRechnungAnOrt._numbersOnlyKommastellen = "" - Me.txtRechnungAnOrt._numbersOnlyTrennzeichen = True - Me.txtRechnungAnOrt._Prozent = False - Me.txtRechnungAnOrt._ShortDateNew = False - Me.txtRechnungAnOrt._ShortDateOnly = False - Me.txtRechnungAnOrt._TimeOnly = False - Me.txtRechnungAnOrt._TimeOnly_Seconds = False - Me.txtRechnungAnOrt._value = Nothing - Me.txtRechnungAnOrt._Waehrung = False - Me.txtRechnungAnOrt._WaehrungZeichen = True - Me.txtRechnungAnOrt.ForeColor = System.Drawing.Color.Black - Me.txtRechnungAnOrt.Location = New System.Drawing.Point(101, 101) - Me.txtRechnungAnOrt.MaxLength = 52 - Me.txtRechnungAnOrt.MaxLineLength = -1 - Me.txtRechnungAnOrt.MaxLines_Warning = "" - Me.txtRechnungAnOrt.MaxLines_Warning_Label = Nothing - Me.txtRechnungAnOrt.Name = "txtRechnungAnOrt" - Me.txtRechnungAnOrt.Size = New System.Drawing.Size(306, 20) - Me.txtRechnungAnOrt.TabIndex = 17 - Me.txtRechnungAnOrt.TabStop = False - ' - 'txtRechnungAnStrasse - ' - Me.txtRechnungAnStrasse._DateTimeOnly = False - Me.txtRechnungAnStrasse._numbersOnly = False - Me.txtRechnungAnStrasse._numbersOnlyKommastellen = "" - Me.txtRechnungAnStrasse._numbersOnlyTrennzeichen = True - Me.txtRechnungAnStrasse._Prozent = False - Me.txtRechnungAnStrasse._ShortDateNew = False - Me.txtRechnungAnStrasse._ShortDateOnly = False - Me.txtRechnungAnStrasse._TimeOnly = False - Me.txtRechnungAnStrasse._TimeOnly_Seconds = False - Me.txtRechnungAnStrasse._value = Nothing - Me.txtRechnungAnStrasse._Waehrung = False - Me.txtRechnungAnStrasse._WaehrungZeichen = True - Me.txtRechnungAnStrasse.ForeColor = System.Drawing.Color.Black - Me.txtRechnungAnStrasse.Location = New System.Drawing.Point(101, 82) - Me.txtRechnungAnStrasse.MaxLength = 40 - Me.txtRechnungAnStrasse.MaxLineLength = -1 - Me.txtRechnungAnStrasse.MaxLines_Warning = "" - Me.txtRechnungAnStrasse.MaxLines_Warning_Label = Nothing - Me.txtRechnungAnStrasse.Name = "txtRechnungAnStrasse" - Me.txtRechnungAnStrasse.Size = New System.Drawing.Size(306, 20) - Me.txtRechnungAnStrasse.TabIndex = 14 - Me.txtRechnungAnStrasse.TabStop = False - ' 'Label7 ' Me.Label7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) @@ -2553,34 +1371,6 @@ Partial Class usrCntlFaktAbrechnung Me.pnlAbsender.Size = New System.Drawing.Size(415, 77) Me.pnlAbsender.TabIndex = 5 ' - 'txtkdNrAbsender - ' - Me.txtkdNrAbsender._DateTimeOnly = False - Me.txtkdNrAbsender._numbersOnly = False - Me.txtkdNrAbsender._numbersOnlyKommastellen = "" - Me.txtkdNrAbsender._numbersOnlyTrennzeichen = True - Me.txtkdNrAbsender._Prozent = False - Me.txtkdNrAbsender._ShortDateNew = False - Me.txtkdNrAbsender._ShortDateOnly = False - Me.txtkdNrAbsender._TimeOnly = False - Me.txtkdNrAbsender._TimeOnly_Seconds = False - Me.txtkdNrAbsender._value = Nothing - Me.txtkdNrAbsender._Waehrung = False - Me.txtkdNrAbsender._WaehrungZeichen = True - Me.txtkdNrAbsender.BackColor = System.Drawing.Color.WhiteSmoke - Me.txtkdNrAbsender.BorderStyle = System.Windows.Forms.BorderStyle.None - Me.txtkdNrAbsender.ForeColor = System.Drawing.Color.Black - Me.txtkdNrAbsender.Location = New System.Drawing.Point(8, 26) - Me.txtkdNrAbsender.MaxLength = 35 - Me.txtkdNrAbsender.MaxLineLength = -1 - Me.txtkdNrAbsender.MaxLines_Warning = "" - Me.txtkdNrAbsender.MaxLines_Warning_Label = Nothing - Me.txtkdNrAbsender.Name = "txtkdNrAbsender" - Me.txtkdNrAbsender.ReadOnly = True - Me.txtkdNrAbsender.Size = New System.Drawing.Size(94, 13) - Me.txtkdNrAbsender.TabIndex = 1 - Me.txtkdNrAbsender.TabStop = False - ' 'btnAbsenderEuro ' Me.btnAbsenderEuro.FlatAppearance.BorderSize = 0 @@ -2596,132 +1386,6 @@ Partial Class usrCntlFaktAbrechnung Me.btnAbsenderEuro.Text = "€" Me.btnAbsenderEuro.UseVisualStyleBackColor = True ' - 'kdFirmaAbsender - ' - Me.kdFirmaAbsender._AlleFirmenCLUSTER = False - Me.kdFirmaAbsender._AllowSetValue = True - Me.kdFirmaAbsender._autoSizeGross = False - Me.kdFirmaAbsender._display_Name1 = True - Me.kdFirmaAbsender._displayAVISO_Email = False - Me.kdFirmaAbsender._displayFullName = False - Me.kdFirmaAbsender._displayWoelflKd = False - Me.kdFirmaAbsender._hideIfListEmpty = True - Me.kdFirmaAbsender._loadKdData = True - Me.kdFirmaAbsender._searchName1 = True - Me.kdFirmaAbsender._UseFIRMA = "" - Me.kdFirmaAbsender._ValueKdAndName = False - Me.kdFirmaAbsender.BackColor = System.Drawing.Color.White - Me.kdFirmaAbsender.dgvpos = "LEFT" - Me.kdFirmaAbsender.KdName = Nothing - Me.kdFirmaAbsender.KdNr = "-1" - Me.kdFirmaAbsender.kdNrField = Nothing - Me.kdFirmaAbsender.KdNrNullInt = Nothing - Me.kdFirmaAbsender.Location = New System.Drawing.Point(101, 3) - Me.kdFirmaAbsender.MaxLength = 35 - Me.kdFirmaAbsender.Name = "kdFirmaAbsender" - Me.kdFirmaAbsender.nurAktive = True - Me.kdFirmaAbsender.searchActive = True - Me.kdFirmaAbsender.Size = New System.Drawing.Size(283, 20) - Me.kdFirmaAbsender.TabIndex = 3 - Me.kdFirmaAbsender.TabStop = False - Me.kdFirmaAbsender.TIMER_SEARCH = True - Me.kdFirmaAbsender.usrcntl = Nothing - ' - 'txtAbsenderName2 - ' - Me.txtAbsenderName2._DateTimeOnly = False - Me.txtAbsenderName2._numbersOnly = False - Me.txtAbsenderName2._numbersOnlyKommastellen = "" - Me.txtAbsenderName2._numbersOnlyTrennzeichen = True - Me.txtAbsenderName2._Prozent = False - Me.txtAbsenderName2._ShortDateNew = False - Me.txtAbsenderName2._ShortDateOnly = False - Me.txtAbsenderName2._TimeOnly = False - Me.txtAbsenderName2._TimeOnly_Seconds = False - Me.txtAbsenderName2._value = Nothing - Me.txtAbsenderName2._Waehrung = False - Me.txtAbsenderName2._WaehrungZeichen = True - Me.txtAbsenderName2.BackColor = System.Drawing.Color.WhiteSmoke - Me.txtAbsenderName2.BorderStyle = System.Windows.Forms.BorderStyle.None - Me.txtAbsenderName2.ForeColor = System.Drawing.Color.Black - Me.txtAbsenderName2.Location = New System.Drawing.Point(101, 26) - Me.txtAbsenderName2.MaxLength = 35 - Me.txtAbsenderName2.MaxLineLength = -1 - Me.txtAbsenderName2.MaxLines_Warning = "" - Me.txtAbsenderName2.MaxLines_Warning_Label = Nothing - Me.txtAbsenderName2.Name = "txtAbsenderName2" - Me.txtAbsenderName2.Size = New System.Drawing.Size(305, 13) - Me.txtAbsenderName2.TabIndex = 4 - Me.txtAbsenderName2.TabStop = False - ' - 'txtAbsenderOrt - ' - Me.txtAbsenderOrt._DateTimeOnly = False - Me.txtAbsenderOrt._numbersOnly = False - Me.txtAbsenderOrt._numbersOnlyKommastellen = "" - Me.txtAbsenderOrt._numbersOnlyTrennzeichen = True - Me.txtAbsenderOrt._Prozent = False - Me.txtAbsenderOrt._ShortDateNew = False - Me.txtAbsenderOrt._ShortDateOnly = False - Me.txtAbsenderOrt._TimeOnly = False - Me.txtAbsenderOrt._TimeOnly_Seconds = False - Me.txtAbsenderOrt._value = Nothing - Me.txtAbsenderOrt._Waehrung = False - Me.txtAbsenderOrt._WaehrungZeichen = True - Me.txtAbsenderOrt.BackColor = System.Drawing.Color.WhiteSmoke - Me.txtAbsenderOrt.BorderStyle = System.Windows.Forms.BorderStyle.None - Me.txtAbsenderOrt.ForeColor = System.Drawing.Color.Black - Me.txtAbsenderOrt.Location = New System.Drawing.Point(101, 54) - Me.txtAbsenderOrt.MaxLength = 35 - Me.txtAbsenderOrt.MaxLineLength = -1 - Me.txtAbsenderOrt.MaxLines_Warning = "" - Me.txtAbsenderOrt.MaxLines_Warning_Label = Nothing - Me.txtAbsenderOrt.Name = "txtAbsenderOrt" - Me.txtAbsenderOrt.Size = New System.Drawing.Size(305, 13) - Me.txtAbsenderOrt.TabIndex = 7 - Me.txtAbsenderOrt.TabStop = False - ' - 'txtAbsenderStrasse - ' - Me.txtAbsenderStrasse._DateTimeOnly = False - Me.txtAbsenderStrasse._numbersOnly = False - Me.txtAbsenderStrasse._numbersOnlyKommastellen = "" - Me.txtAbsenderStrasse._numbersOnlyTrennzeichen = True - Me.txtAbsenderStrasse._Prozent = False - Me.txtAbsenderStrasse._ShortDateNew = False - Me.txtAbsenderStrasse._ShortDateOnly = False - Me.txtAbsenderStrasse._TimeOnly = False - Me.txtAbsenderStrasse._TimeOnly_Seconds = False - Me.txtAbsenderStrasse._value = Nothing - Me.txtAbsenderStrasse._Waehrung = False - Me.txtAbsenderStrasse._WaehrungZeichen = True - Me.txtAbsenderStrasse.BackColor = System.Drawing.Color.WhiteSmoke - Me.txtAbsenderStrasse.BorderStyle = System.Windows.Forms.BorderStyle.None - Me.txtAbsenderStrasse.ForeColor = System.Drawing.Color.Black - Me.txtAbsenderStrasse.Location = New System.Drawing.Point(101, 40) - Me.txtAbsenderStrasse.MaxLength = 35 - Me.txtAbsenderStrasse.MaxLineLength = -1 - Me.txtAbsenderStrasse.MaxLines_Warning = "" - Me.txtAbsenderStrasse.MaxLines_Warning_Label = Nothing - Me.txtAbsenderStrasse.Name = "txtAbsenderStrasse" - Me.txtAbsenderStrasse.Size = New System.Drawing.Size(305, 13) - Me.txtAbsenderStrasse.TabIndex = 6 - Me.txtAbsenderStrasse.TabStop = False - ' - 'FlatButton1 - ' - Me.FlatButton1.allowBorder = False - Me.FlatButton1.FlatAppearance.BorderSize = 0 - Me.FlatButton1.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.FlatButton1.ForeColor = System.Drawing.Color.Black - Me.FlatButton1.Image = Global.SDL.My.Resources.Resources.personInaktiv - Me.FlatButton1.Location = New System.Drawing.Point(382, 0) - Me.FlatButton1.Name = "FlatButton1" - Me.FlatButton1.Size = New System.Drawing.Size(24, 25) - Me.FlatButton1.TabIndex = 2 - Me.FlatButton1.TabStop = False - Me.FlatButton1.UseVisualStyleBackColor = True - ' 'Panel7 ' Me.Panel7.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ @@ -2815,31 +1479,6 @@ Partial Class usrCntlFaktAbrechnung Me.Label14.Text = "+ Leistung:" Me.Label14.TextAlign = System.Drawing.ContentAlignment.TopRight ' - 'sbLeistung - ' - Me.sbLeistung._allowFreitext = False - Me.sbLeistung._AllowSetValue = False - Me.sbLeistung._allowSpaceAsSplitter = False - Me.sbLeistung._autoSizeGross = False - Me.sbLeistung._hideIfListEmpty = True - Me.sbLeistung._value = Nothing - Me.sbLeistung.conn_art = "FMZOLL" - Me.sbLeistung.dgvpos = "LEFT" - Me.sbLeistung.DISPLAY_PARAM = Nothing - Me.sbLeistung.INVISIBLE_COLUMNS = Nothing - Me.sbLeistung.key_visible = False - Me.sbLeistung.KEYPARAM = Nothing - Me.sbLeistung.Location = New System.Drawing.Point(623, 232) - Me.sbLeistung.Name = "sbLeistung" - Me.sbLeistung.searchActive = True - Me.sbLeistung.Size = New System.Drawing.Size(161, 20) - Me.sbLeistung.SQL_ORDER_BY = Nothing - Me.sbLeistung.SQL_SELECT = Nothing - Me.sbLeistung.SQL_WHERE = Nothing - Me.sbLeistung.SQL_WhereParamList = Nothing - Me.sbLeistung.TabIndex = 14 - Me.sbLeistung.usrcntl = Nothing - ' 'Button7 ' Me.Button7.Enabled = False @@ -2882,68 +1521,6 @@ Partial Class usrCntlFaktAbrechnung Me.btnZoll_EUST.Text = "ZOLL / EUST Daten (F3)" Me.btnZoll_EUST.UseVisualStyleBackColor = True ' - 'txtUnterNrRef - ' - Me.txtUnterNrRef._DateTimeOnly = False - Me.txtUnterNrRef._numbersOnly = False - Me.txtUnterNrRef._numbersOnlyKommastellen = "" - Me.txtUnterNrRef._numbersOnlyTrennzeichen = True - Me.txtUnterNrRef._Prozent = False - Me.txtUnterNrRef._ShortDateNew = False - Me.txtUnterNrRef._ShortDateOnly = False - Me.txtUnterNrRef._TimeOnly = False - Me.txtUnterNrRef._TimeOnly_Seconds = False - Me.txtUnterNrRef._value = Nothing - Me.txtUnterNrRef._Waehrung = False - Me.txtUnterNrRef._WaehrungZeichen = True - Me.txtUnterNrRef.Font = New System.Drawing.Font("Microsoft Tai Le", 8.0!) - Me.txtUnterNrRef.Location = New System.Drawing.Point(536, 69) - Me.txtUnterNrRef.MaxLineLength = -1 - Me.txtUnterNrRef.MaxLines_Warning = "" - Me.txtUnterNrRef.MaxLines_Warning_Label = Nothing - Me.txtUnterNrRef.Name = "txtUnterNrRef" - Me.txtUnterNrRef.Size = New System.Drawing.Size(39, 21) - Me.txtUnterNrRef.TabIndex = 8 - Me.txtUnterNrRef.Visible = False - ' - 'cboFilialeRef - ' - Me.cboFilialeRef._allowedValuesFreiText = Nothing - Me.cboFilialeRef._allowFreiText = False - Me.cboFilialeRef._value = "" - Me.cboFilialeRef.DropDownWidth = 280 - Me.cboFilialeRef.Font = New System.Drawing.Font("Microsoft Tai Le", 8.0!) - Me.cboFilialeRef.FormattingEnabled = True - Me.cboFilialeRef.Location = New System.Drawing.Point(289, 68) - Me.cboFilialeRef.Name = "cboFilialeRef" - Me.cboFilialeRef.Size = New System.Drawing.Size(80, 22) - Me.cboFilialeRef.TabIndex = 6 - Me.cboFilialeRef.Visible = False - ' - 'txtAbfertigungsnummerRef - ' - Me.txtAbfertigungsnummerRef._DateTimeOnly = False - Me.txtAbfertigungsnummerRef._numbersOnly = False - Me.txtAbfertigungsnummerRef._numbersOnlyKommastellen = "" - Me.txtAbfertigungsnummerRef._numbersOnlyTrennzeichen = True - Me.txtAbfertigungsnummerRef._Prozent = False - Me.txtAbfertigungsnummerRef._ShortDateNew = False - Me.txtAbfertigungsnummerRef._ShortDateOnly = False - Me.txtAbfertigungsnummerRef._TimeOnly = False - Me.txtAbfertigungsnummerRef._TimeOnly_Seconds = False - Me.txtAbfertigungsnummerRef._value = Nothing - Me.txtAbfertigungsnummerRef._Waehrung = False - Me.txtAbfertigungsnummerRef._WaehrungZeichen = True - Me.txtAbfertigungsnummerRef.Font = New System.Drawing.Font("Microsoft Tai Le", 8.0!) - Me.txtAbfertigungsnummerRef.Location = New System.Drawing.Point(368, 69) - Me.txtAbfertigungsnummerRef.MaxLineLength = -1 - Me.txtAbfertigungsnummerRef.MaxLines_Warning = "" - Me.txtAbfertigungsnummerRef.MaxLines_Warning_Label = Nothing - Me.txtAbfertigungsnummerRef.Name = "txtAbfertigungsnummerRef" - Me.txtAbfertigungsnummerRef.Size = New System.Drawing.Size(169, 21) - Me.txtAbfertigungsnummerRef.TabIndex = 7 - Me.txtAbfertigungsnummerRef.Visible = False - ' 'Label26 ' Me.Label26.AutoSize = True @@ -2986,112 +1563,6 @@ Partial Class usrCntlFaktAbrechnung Me.Label30.Text = "Positionen:" Me.Label30.TextAlign = System.Drawing.ContentAlignment.TopRight ' - 'dgvRechnungenPositionen - ' - Me.dgvRechnungenPositionen.AKTUALISIERUNGS_INTERVALL = -1 - Me.dgvRechnungenPositionen.AllowUserToAddRows = False - Me.dgvRechnungenPositionen.AllowUserToDeleteRows = False - Me.dgvRechnungenPositionen.AllowUserToResizeColumns = False - Me.dgvRechnungenPositionen.AllowUserToResizeRows = False - Me.dgvRechnungenPositionen.BackgroundColor = System.Drawing.Color.White - DataGridViewCellStyle6.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle6.BackColor = System.Drawing.SystemColors.Control - DataGridViewCellStyle6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle6.ForeColor = System.Drawing.SystemColors.WindowText - DataGridViewCellStyle6.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle6.SelectionForeColor = System.Drawing.SystemColors.HighlightText - 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.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)) - DataGridViewCellStyle11.ForeColor = System.Drawing.SystemColors.ControlText - DataGridViewCellStyle11.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle11.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle11.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] - Me.dgvRechnungenPositionen.DefaultCellStyle = DataGridViewCellStyle11 - Me.dgvRechnungenPositionen.Location = New System.Drawing.Point(10, 258) - Me.dgvRechnungenPositionen.Name = "dgvRechnungenPositionen" - Me.dgvRechnungenPositionen.ReadOnly = True - DataGridViewCellStyle12.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle12.BackColor = System.Drawing.SystemColors.Control - DataGridViewCellStyle12.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle12.ForeColor = System.Drawing.SystemColors.WindowText - DataGridViewCellStyle12.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle12.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle12.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.dgvRechnungenPositionen.RowHeadersDefaultCellStyle = DataGridViewCellStyle12 - Me.dgvRechnungenPositionen.RowHeadersVisible = False - Me.dgvRechnungenPositionen.RowHeadersWidth = 62 - Me.dgvRechnungenPositionen.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect - Me.dgvRechnungenPositionen.Size = New System.Drawing.Size(811, 189) - Me.dgvRechnungenPositionen.TabIndex = 5 - Me.dgvRechnungenPositionen.TabStop = False - ' - '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 - ' - DataGridViewCellStyle7.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight - DataGridViewCellStyle7.Format = "N0" - DataGridViewCellStyle7.NullValue = Nothing - Me.Anzahl.DefaultCellStyle = DataGridViewCellStyle7 - Me.Anzahl.HeaderText = "Anzahl" - Me.Anzahl.MinimumWidth = 8 - Me.Anzahl.Name = "Anzahl" - Me.Anzahl.ReadOnly = True - Me.Anzahl.Width = 50 - ' - 'Preis - ' - DataGridViewCellStyle8.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight - DataGridViewCellStyle8.Format = "c2" - Me.Preis.DefaultCellStyle = DataGridViewCellStyle8 - Me.Preis.HeaderText = "Preis" - Me.Preis.MinimumWidth = 8 - Me.Preis.Name = "Preis" - Me.Preis.ReadOnly = True - Me.Preis.Width = 80 - ' - 'SteuerpflichtigerBetrag - ' - DataGridViewCellStyle9.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight - DataGridViewCellStyle9.Format = "c2" - Me.SteuerpflichtigerBetrag.DefaultCellStyle = DataGridViewCellStyle9 - Me.SteuerpflichtigerBetrag.HeaderText = "Steuerpfl." - Me.SteuerpflichtigerBetrag.MinimumWidth = 8 - Me.SteuerpflichtigerBetrag.Name = "SteuerpflichtigerBetrag" - Me.SteuerpflichtigerBetrag.ReadOnly = True - Me.SteuerpflichtigerBetrag.Width = 120 - ' - 'SteuerfreierBetrag - ' - DataGridViewCellStyle10.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight - DataGridViewCellStyle10.Format = "C2" - DataGridViewCellStyle10.NullValue = Nothing - Me.SteuerfreierBetrag.DefaultCellStyle = DataGridViewCellStyle10 - 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 - ' 'dgvOffertenSperrliste ' Me.dgvOffertenSperrliste.AllowUserToAddRows = False @@ -3140,80 +1611,6 @@ Partial Class usrCntlFaktAbrechnung Me.dgvOffertenSperrliste.TabIndex = 2 Me.dgvOffertenSperrliste.TabStop = False ' - 'dgvOfferteDetailsUebersicht - ' - Me.dgvOfferteDetailsUebersicht.AKTUALISIERUNGS_INTERVALL = -1 - Me.dgvOfferteDetailsUebersicht.AllowUserToAddRows = False - Me.dgvOfferteDetailsUebersicht.AllowUserToDeleteRows = False - Me.dgvOfferteDetailsUebersicht.AllowUserToOrderColumns = True - Me.dgvOfferteDetailsUebersicht.AllowUserToResizeRows = False - DataGridViewCellStyle17.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.dgvOfferteDetailsUebersicht.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle17 - Me.dgvOfferteDetailsUebersicht.BackgroundColor = System.Drawing.Color.White - Me.dgvOfferteDetailsUebersicht.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D - DataGridViewCellStyle18.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle18.BackColor = System.Drawing.SystemColors.Control - DataGridViewCellStyle18.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle18.ForeColor = System.Drawing.SystemColors.WindowText - DataGridViewCellStyle18.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle18.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle18.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.dgvOfferteDetailsUebersicht.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle18 - Me.dgvOfferteDetailsUebersicht.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - DataGridViewCellStyle19.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle19.BackColor = System.Drawing.SystemColors.Window - DataGridViewCellStyle19.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle19.ForeColor = System.Drawing.SystemColors.ControlText - DataGridViewCellStyle19.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle19.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle19.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] - Me.dgvOfferteDetailsUebersicht.DefaultCellStyle = DataGridViewCellStyle19 - Me.dgvOfferteDetailsUebersicht.Location = New System.Drawing.Point(220, 29) - Me.dgvOfferteDetailsUebersicht.MultiSelect = False - Me.dgvOfferteDetailsUebersicht.Name = "dgvOfferteDetailsUebersicht" - DataGridViewCellStyle20.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle20.BackColor = System.Drawing.SystemColors.Control - DataGridViewCellStyle20.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle20.ForeColor = System.Drawing.SystemColors.WindowText - DataGridViewCellStyle20.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle20.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle20.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.dgvOfferteDetailsUebersicht.RowHeadersDefaultCellStyle = DataGridViewCellStyle20 - Me.dgvOfferteDetailsUebersicht.RowHeadersVisible = False - Me.dgvOfferteDetailsUebersicht.RowHeadersWidth = 62 - DataGridViewCellStyle21.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle21.SelectionBackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(240, Byte), Integer), CType(CType(240, Byte), Integer)) - DataGridViewCellStyle21.SelectionForeColor = System.Drawing.Color.Black - Me.dgvOfferteDetailsUebersicht.RowsDefaultCellStyle = DataGridViewCellStyle21 - Me.dgvOfferteDetailsUebersicht.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect - Me.dgvOfferteDetailsUebersicht.Size = New System.Drawing.Size(601, 201) - Me.dgvOfferteDetailsUebersicht.TabIndex = 3 - ' - 'txtRohmasse - ' - Me.txtRohmasse._DateTimeOnly = False - Me.txtRohmasse._numbersOnly = False - Me.txtRohmasse._numbersOnlyKommastellen = "" - Me.txtRohmasse._numbersOnlyTrennzeichen = True - Me.txtRohmasse._Prozent = False - Me.txtRohmasse._ShortDateNew = False - Me.txtRohmasse._ShortDateOnly = False - Me.txtRohmasse._TimeOnly = False - Me.txtRohmasse._TimeOnly_Seconds = False - Me.txtRohmasse._value = Nothing - Me.txtRohmasse._Waehrung = False - Me.txtRohmasse._WaehrungZeichen = True - Me.txtRohmasse.ForeColor = System.Drawing.Color.Black - Me.txtRohmasse.Location = New System.Drawing.Point(370, 115) - Me.txtRohmasse.MaxLength = 35 - Me.txtRohmasse.MaxLineLength = -1 - Me.txtRohmasse.MaxLines_Warning = "" - Me.txtRohmasse.MaxLines_Warning_Label = Nothing - Me.txtRohmasse.Name = "txtRohmasse" - Me.txtRohmasse.Size = New System.Drawing.Size(305, 20) - Me.txtRohmasse.TabIndex = 24 - Me.txtRohmasse.Visible = False - ' 'Label18 ' Me.Label18.AutoSize = True @@ -3244,29 +1641,6 @@ Partial Class usrCntlFaktAbrechnung Me.lblVK_Zahlungseingang.TabIndex = 26 Me.lblVK_Zahlungseingang.Text = "TEST" ' - 'cboWaehrung - ' - Me.cboWaehrung._allowedValuesFreiText = Nothing - Me.cboWaehrung._allowFreiText = False - Me.cboWaehrung._value = "" - Me.cboWaehrung.FormattingEnabled = True - Me.cboWaehrung.Location = New System.Drawing.Point(517, 177) - Me.cboWaehrung.Name = "cboWaehrung" - Me.cboWaehrung.Size = New System.Drawing.Size(47, 21) - Me.cboWaehrung.TabIndex = 14 - ' - 'cboWaehrungUmrechnung - ' - Me.cboWaehrungUmrechnung._allowedValuesFreiText = Nothing - Me.cboWaehrungUmrechnung._allowFreiText = False - Me.cboWaehrungUmrechnung._value = "" - Me.cboWaehrungUmrechnung.Enabled = False - Me.cboWaehrungUmrechnung.FormattingEnabled = True - Me.cboWaehrungUmrechnung.Location = New System.Drawing.Point(517, 196) - Me.cboWaehrungUmrechnung.Name = "cboWaehrungUmrechnung" - Me.cboWaehrungUmrechnung.Size = New System.Drawing.Size(47, 21) - Me.cboWaehrungUmrechnung.TabIndex = 17 - ' 'pnlEmpfaenger ' Me.pnlEmpfaenger.BackColor = System.Drawing.Color.WhiteSmoke @@ -3284,34 +1658,6 @@ Partial Class usrCntlFaktAbrechnung Me.pnlEmpfaenger.Size = New System.Drawing.Size(415, 75) Me.pnlEmpfaenger.TabIndex = 6 ' - 'txtkdNrEmpfaenger - ' - Me.txtkdNrEmpfaenger._DateTimeOnly = False - Me.txtkdNrEmpfaenger._numbersOnly = False - Me.txtkdNrEmpfaenger._numbersOnlyKommastellen = "" - Me.txtkdNrEmpfaenger._numbersOnlyTrennzeichen = True - Me.txtkdNrEmpfaenger._Prozent = False - Me.txtkdNrEmpfaenger._ShortDateNew = False - Me.txtkdNrEmpfaenger._ShortDateOnly = False - Me.txtkdNrEmpfaenger._TimeOnly = False - Me.txtkdNrEmpfaenger._TimeOnly_Seconds = False - Me.txtkdNrEmpfaenger._value = Nothing - Me.txtkdNrEmpfaenger._Waehrung = False - Me.txtkdNrEmpfaenger._WaehrungZeichen = True - Me.txtkdNrEmpfaenger.BackColor = System.Drawing.Color.WhiteSmoke - Me.txtkdNrEmpfaenger.BorderStyle = System.Windows.Forms.BorderStyle.None - Me.txtkdNrEmpfaenger.ForeColor = System.Drawing.Color.Black - Me.txtkdNrEmpfaenger.Location = New System.Drawing.Point(8, 26) - Me.txtkdNrEmpfaenger.MaxLength = 35 - Me.txtkdNrEmpfaenger.MaxLineLength = -1 - Me.txtkdNrEmpfaenger.MaxLines_Warning = "" - Me.txtkdNrEmpfaenger.MaxLines_Warning_Label = Nothing - Me.txtkdNrEmpfaenger.Name = "txtkdNrEmpfaenger" - Me.txtkdNrEmpfaenger.ReadOnly = True - Me.txtkdNrEmpfaenger.Size = New System.Drawing.Size(94, 13) - Me.txtkdNrEmpfaenger.TabIndex = 1 - Me.txtkdNrEmpfaenger.TabStop = False - ' 'btnEmpfaengerEuro ' Me.btnEmpfaengerEuro.FlatAppearance.BorderSize = 0 @@ -3327,33 +1673,6 @@ Partial Class usrCntlFaktAbrechnung Me.btnEmpfaengerEuro.Text = "€" Me.btnEmpfaengerEuro.UseVisualStyleBackColor = True ' - 'txtEmpfeangerName2 - ' - Me.txtEmpfeangerName2._DateTimeOnly = False - Me.txtEmpfeangerName2._numbersOnly = False - Me.txtEmpfeangerName2._numbersOnlyKommastellen = "" - Me.txtEmpfeangerName2._numbersOnlyTrennzeichen = True - Me.txtEmpfeangerName2._Prozent = False - Me.txtEmpfeangerName2._ShortDateNew = False - Me.txtEmpfeangerName2._ShortDateOnly = False - Me.txtEmpfeangerName2._TimeOnly = False - Me.txtEmpfeangerName2._TimeOnly_Seconds = False - Me.txtEmpfeangerName2._value = Nothing - Me.txtEmpfeangerName2._Waehrung = False - Me.txtEmpfeangerName2._WaehrungZeichen = True - Me.txtEmpfeangerName2.BackColor = System.Drawing.Color.WhiteSmoke - Me.txtEmpfeangerName2.BorderStyle = System.Windows.Forms.BorderStyle.None - Me.txtEmpfeangerName2.ForeColor = System.Drawing.Color.Black - Me.txtEmpfeangerName2.Location = New System.Drawing.Point(101, 26) - Me.txtEmpfeangerName2.MaxLength = 35 - Me.txtEmpfeangerName2.MaxLineLength = -1 - Me.txtEmpfeangerName2.MaxLines_Warning = "" - Me.txtEmpfeangerName2.MaxLines_Warning_Label = Nothing - Me.txtEmpfeangerName2.Name = "txtEmpfeangerName2" - Me.txtEmpfeangerName2.Size = New System.Drawing.Size(305, 13) - Me.txtEmpfeangerName2.TabIndex = 4 - Me.txtEmpfeangerName2.TabStop = False - ' 'Label5 ' Me.Label5.AutoSize = True @@ -3364,105 +1683,6 @@ Partial Class usrCntlFaktAbrechnung Me.Label5.TabIndex = 0 Me.Label5.Text = "2. Empfänger:" ' - 'txtEmpfaengerOrt - ' - Me.txtEmpfaengerOrt._DateTimeOnly = False - Me.txtEmpfaengerOrt._numbersOnly = False - Me.txtEmpfaengerOrt._numbersOnlyKommastellen = "" - Me.txtEmpfaengerOrt._numbersOnlyTrennzeichen = True - Me.txtEmpfaengerOrt._Prozent = False - Me.txtEmpfaengerOrt._ShortDateNew = False - Me.txtEmpfaengerOrt._ShortDateOnly = False - Me.txtEmpfaengerOrt._TimeOnly = False - Me.txtEmpfaengerOrt._TimeOnly_Seconds = False - Me.txtEmpfaengerOrt._value = Nothing - Me.txtEmpfaengerOrt._Waehrung = False - Me.txtEmpfaengerOrt._WaehrungZeichen = True - Me.txtEmpfaengerOrt.BackColor = System.Drawing.Color.WhiteSmoke - Me.txtEmpfaengerOrt.BorderStyle = System.Windows.Forms.BorderStyle.None - Me.txtEmpfaengerOrt.ForeColor = System.Drawing.Color.Black - Me.txtEmpfaengerOrt.Location = New System.Drawing.Point(101, 54) - Me.txtEmpfaengerOrt.MaxLength = 35 - Me.txtEmpfaengerOrt.MaxLineLength = -1 - Me.txtEmpfaengerOrt.MaxLines_Warning = "" - Me.txtEmpfaengerOrt.MaxLines_Warning_Label = Nothing - Me.txtEmpfaengerOrt.Name = "txtEmpfaengerOrt" - Me.txtEmpfaengerOrt.Size = New System.Drawing.Size(305, 13) - Me.txtEmpfaengerOrt.TabIndex = 7 - Me.txtEmpfaengerOrt.TabStop = False - ' - 'txtEmpfaengerStrasse - ' - Me.txtEmpfaengerStrasse._DateTimeOnly = False - Me.txtEmpfaengerStrasse._numbersOnly = False - Me.txtEmpfaengerStrasse._numbersOnlyKommastellen = "" - Me.txtEmpfaengerStrasse._numbersOnlyTrennzeichen = True - Me.txtEmpfaengerStrasse._Prozent = False - Me.txtEmpfaengerStrasse._ShortDateNew = False - Me.txtEmpfaengerStrasse._ShortDateOnly = False - Me.txtEmpfaengerStrasse._TimeOnly = False - Me.txtEmpfaengerStrasse._TimeOnly_Seconds = False - Me.txtEmpfaengerStrasse._value = Nothing - Me.txtEmpfaengerStrasse._Waehrung = False - Me.txtEmpfaengerStrasse._WaehrungZeichen = True - Me.txtEmpfaengerStrasse.BackColor = System.Drawing.Color.WhiteSmoke - Me.txtEmpfaengerStrasse.BorderStyle = System.Windows.Forms.BorderStyle.None - Me.txtEmpfaengerStrasse.ForeColor = System.Drawing.Color.Black - Me.txtEmpfaengerStrasse.Location = New System.Drawing.Point(101, 40) - Me.txtEmpfaengerStrasse.MaxLength = 35 - Me.txtEmpfaengerStrasse.MaxLineLength = -1 - Me.txtEmpfaengerStrasse.MaxLines_Warning = "" - Me.txtEmpfaengerStrasse.MaxLines_Warning_Label = Nothing - Me.txtEmpfaengerStrasse.Name = "txtEmpfaengerStrasse" - Me.txtEmpfaengerStrasse.Size = New System.Drawing.Size(305, 13) - Me.txtEmpfaengerStrasse.TabIndex = 6 - Me.txtEmpfaengerStrasse.TabStop = False - ' - 'kdFirmaEmpfaenger - ' - Me.kdFirmaEmpfaenger._AlleFirmenCLUSTER = False - Me.kdFirmaEmpfaenger._AllowSetValue = True - Me.kdFirmaEmpfaenger._autoSizeGross = False - Me.kdFirmaEmpfaenger._display_Name1 = True - Me.kdFirmaEmpfaenger._displayAVISO_Email = False - Me.kdFirmaEmpfaenger._displayFullName = False - Me.kdFirmaEmpfaenger._displayWoelflKd = False - Me.kdFirmaEmpfaenger._hideIfListEmpty = True - Me.kdFirmaEmpfaenger._loadKdData = True - Me.kdFirmaEmpfaenger._searchName1 = True - Me.kdFirmaEmpfaenger._UseFIRMA = "" - Me.kdFirmaEmpfaenger._ValueKdAndName = False - Me.kdFirmaEmpfaenger.BackColor = System.Drawing.Color.White - Me.kdFirmaEmpfaenger.dgvpos = "LEFT" - Me.kdFirmaEmpfaenger.KdName = Nothing - Me.kdFirmaEmpfaenger.KdNr = "-1" - Me.kdFirmaEmpfaenger.kdNrField = Nothing - Me.kdFirmaEmpfaenger.KdNrNullInt = Nothing - Me.kdFirmaEmpfaenger.Location = New System.Drawing.Point(101, 3) - Me.kdFirmaEmpfaenger.MaxLength = 35 - Me.kdFirmaEmpfaenger.Name = "kdFirmaEmpfaenger" - Me.kdFirmaEmpfaenger.nurAktive = True - Me.kdFirmaEmpfaenger.searchActive = True - Me.kdFirmaEmpfaenger.Size = New System.Drawing.Size(283, 20) - Me.kdFirmaEmpfaenger.TabIndex = 3 - Me.kdFirmaEmpfaenger.TabStop = False - Me.kdFirmaEmpfaenger.TIMER_SEARCH = True - Me.kdFirmaEmpfaenger.usrcntl = Nothing - ' - 'FlatButton2 - ' - Me.FlatButton2.allowBorder = False - Me.FlatButton2.FlatAppearance.BorderSize = 0 - Me.FlatButton2.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.FlatButton2.ForeColor = System.Drawing.Color.Black - Me.FlatButton2.Image = Global.SDL.My.Resources.Resources.personInaktiv - Me.FlatButton2.Location = New System.Drawing.Point(382, 0) - Me.FlatButton2.Name = "FlatButton2" - Me.FlatButton2.Size = New System.Drawing.Size(24, 25) - Me.FlatButton2.TabIndex = 2 - Me.FlatButton2.TabStop = False - Me.FlatButton2.UseVisualStyleBackColor = True - ' 'pnl ' Me.pnl.BackColor = System.Drawing.Color.Gainsboro @@ -3558,30 +1778,6 @@ Partial Class usrCntlFaktAbrechnung Me.Label55.Text = "Steuerfreier Betrag:" Me.Label55.TextAlign = System.Drawing.ContentAlignment.TopRight ' - 'cboSteuerschlüssel - ' - Me.cboSteuerschlüssel._allowedValuesFreiText = Nothing - Me.cboSteuerschlüssel._allowFreiText = False - Me.cboSteuerschlüssel._value = "" - Me.cboSteuerschlüssel.CausesValidation = False - Me.cboSteuerschlüssel.DropDownWidth = 350 - Me.cboSteuerschlüssel.FormattingEnabled = True - Me.cboSteuerschlüssel.Location = New System.Drawing.Point(463, 30) - Me.cboSteuerschlüssel.Name = "cboSteuerschlüssel" - 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 @@ -3712,59 +1908,6 @@ Partial Class usrCntlFaktAbrechnung Me.Label23.TabIndex = 2 Me.Label23.Text = "Steuer:" ' - 'txtSteuersatz - ' - Me.txtSteuersatz._DateTimeOnly = False - Me.txtSteuersatz._numbersOnly = False - Me.txtSteuersatz._numbersOnlyKommastellen = "" - Me.txtSteuersatz._numbersOnlyTrennzeichen = True - Me.txtSteuersatz._Prozent = True - Me.txtSteuersatz._ShortDateNew = False - Me.txtSteuersatz._ShortDateOnly = False - Me.txtSteuersatz._TimeOnly = False - Me.txtSteuersatz._TimeOnly_Seconds = False - Me.txtSteuersatz._value = Nothing - Me.txtSteuersatz._Waehrung = False - Me.txtSteuersatz._WaehrungZeichen = True - Me.txtSteuersatz.ForeColor = System.Drawing.Color.Black - Me.txtSteuersatz.Location = New System.Drawing.Point(603, 30) - Me.txtSteuersatz.MaxLineLength = -1 - Me.txtSteuersatz.MaxLines_Warning = "" - Me.txtSteuersatz.MaxLines_Warning_Label = Nothing - Me.txtSteuersatz.Multiline = True - Me.txtSteuersatz.Name = "txtSteuersatz" - Me.txtSteuersatz.ReadOnly = True - Me.txtSteuersatz.Size = New System.Drawing.Size(61, 21) - Me.txtSteuersatz.TabIndex = 4 - Me.txtSteuersatz.Text = "0,00 %" - Me.txtSteuersatz.TextAlign = System.Windows.Forms.HorizontalAlignment.Right - ' - 'txtSteuerFreierBetrag - ' - Me.txtSteuerFreierBetrag._DateTimeOnly = False - Me.txtSteuerFreierBetrag._numbersOnly = False - Me.txtSteuerFreierBetrag._numbersOnlyKommastellen = "" - Me.txtSteuerFreierBetrag._numbersOnlyTrennzeichen = True - Me.txtSteuerFreierBetrag._Prozent = False - Me.txtSteuerFreierBetrag._ShortDateNew = False - Me.txtSteuerFreierBetrag._ShortDateOnly = False - Me.txtSteuerFreierBetrag._TimeOnly = False - Me.txtSteuerFreierBetrag._TimeOnly_Seconds = False - Me.txtSteuerFreierBetrag._value = "" - Me.txtSteuerFreierBetrag._Waehrung = True - Me.txtSteuerFreierBetrag._WaehrungZeichen = False - Me.txtSteuerFreierBetrag.ForeColor = System.Drawing.Color.Black - Me.txtSteuerFreierBetrag.Location = New System.Drawing.Point(540, 91) - Me.txtSteuerFreierBetrag.MaxLength = 35 - Me.txtSteuerFreierBetrag.MaxLineLength = -1 - Me.txtSteuerFreierBetrag.MaxLines_Warning = "" - Me.txtSteuerFreierBetrag.MaxLines_Warning_Label = Nothing - Me.txtSteuerFreierBetrag.Name = "txtSteuerFreierBetrag" - Me.txtSteuerFreierBetrag.ReadOnly = True - Me.txtSteuerFreierBetrag.Size = New System.Drawing.Size(98, 20) - Me.txtSteuerFreierBetrag.TabIndex = 10 - Me.txtSteuerFreierBetrag.TextAlign = System.Windows.Forms.HorizontalAlignment.Right - ' 'Label37 ' Me.Label37.AutoSize = True @@ -3785,84 +1928,6 @@ Partial Class usrCntlFaktAbrechnung Me.lblEUR_3.Text = "EUR" Me.lblEUR_3.TextAlign = System.Drawing.ContentAlignment.TopRight ' - 'txtGesamtsumme - ' - Me.txtGesamtsumme._DateTimeOnly = False - Me.txtGesamtsumme._numbersOnly = False - Me.txtGesamtsumme._numbersOnlyKommastellen = "" - Me.txtGesamtsumme._numbersOnlyTrennzeichen = True - Me.txtGesamtsumme._Prozent = False - Me.txtGesamtsumme._ShortDateNew = False - Me.txtGesamtsumme._ShortDateOnly = False - Me.txtGesamtsumme._TimeOnly = False - Me.txtGesamtsumme._TimeOnly_Seconds = False - Me.txtGesamtsumme._value = "" - Me.txtGesamtsumme._Waehrung = True - Me.txtGesamtsumme._WaehrungZeichen = False - Me.txtGesamtsumme.ForeColor = System.Drawing.Color.Black - Me.txtGesamtsumme.Location = New System.Drawing.Point(540, 114) - Me.txtGesamtsumme.MaxLength = 35 - Me.txtGesamtsumme.MaxLineLength = -1 - Me.txtGesamtsumme.MaxLines_Warning = "" - Me.txtGesamtsumme.MaxLines_Warning_Label = Nothing - Me.txtGesamtsumme.Name = "txtGesamtsumme" - Me.txtGesamtsumme.ReadOnly = True - Me.txtGesamtsumme.Size = New System.Drawing.Size(98, 20) - Me.txtGesamtsumme.TabIndex = 12 - Me.txtGesamtsumme.TextAlign = System.Windows.Forms.HorizontalAlignment.Right - ' - 'txtSteuerBetrag - ' - Me.txtSteuerBetrag._DateTimeOnly = False - Me.txtSteuerBetrag._numbersOnly = False - Me.txtSteuerBetrag._numbersOnlyKommastellen = "" - Me.txtSteuerBetrag._numbersOnlyTrennzeichen = True - Me.txtSteuerBetrag._Prozent = False - Me.txtSteuerBetrag._ShortDateNew = False - Me.txtSteuerBetrag._ShortDateOnly = False - Me.txtSteuerBetrag._TimeOnly = False - Me.txtSteuerBetrag._TimeOnly_Seconds = False - Me.txtSteuerBetrag._value = "" - Me.txtSteuerBetrag._Waehrung = True - Me.txtSteuerBetrag._WaehrungZeichen = False - Me.txtSteuerBetrag.ForeColor = System.Drawing.Color.Black - Me.txtSteuerBetrag.Location = New System.Drawing.Point(540, 74) - Me.txtSteuerBetrag.MaxLength = 35 - Me.txtSteuerBetrag.MaxLineLength = -1 - Me.txtSteuerBetrag.MaxLines_Warning = "" - Me.txtSteuerBetrag.MaxLines_Warning_Label = Nothing - Me.txtSteuerBetrag.Name = "txtSteuerBetrag" - Me.txtSteuerBetrag.ReadOnly = True - Me.txtSteuerBetrag.Size = New System.Drawing.Size(98, 20) - Me.txtSteuerBetrag.TabIndex = 8 - Me.txtSteuerBetrag.TextAlign = System.Windows.Forms.HorizontalAlignment.Right - ' - 'txtSteuerpflichtigerBetrag - ' - Me.txtSteuerpflichtigerBetrag._DateTimeOnly = False - Me.txtSteuerpflichtigerBetrag._numbersOnly = False - Me.txtSteuerpflichtigerBetrag._numbersOnlyKommastellen = "" - Me.txtSteuerpflichtigerBetrag._numbersOnlyTrennzeichen = True - Me.txtSteuerpflichtigerBetrag._Prozent = False - Me.txtSteuerpflichtigerBetrag._ShortDateNew = False - Me.txtSteuerpflichtigerBetrag._ShortDateOnly = False - Me.txtSteuerpflichtigerBetrag._TimeOnly = False - Me.txtSteuerpflichtigerBetrag._TimeOnly_Seconds = False - Me.txtSteuerpflichtigerBetrag._value = "" - Me.txtSteuerpflichtigerBetrag._Waehrung = True - Me.txtSteuerpflichtigerBetrag._WaehrungZeichen = False - Me.txtSteuerpflichtigerBetrag.ForeColor = System.Drawing.Color.Black - Me.txtSteuerpflichtigerBetrag.Location = New System.Drawing.Point(540, 56) - Me.txtSteuerpflichtigerBetrag.MaxLength = 35 - Me.txtSteuerpflichtigerBetrag.MaxLineLength = -1 - Me.txtSteuerpflichtigerBetrag.MaxLines_Warning = "" - Me.txtSteuerpflichtigerBetrag.MaxLines_Warning_Label = Nothing - Me.txtSteuerpflichtigerBetrag.Name = "txtSteuerpflichtigerBetrag" - Me.txtSteuerpflichtigerBetrag.ReadOnly = True - Me.txtSteuerpflichtigerBetrag.Size = New System.Drawing.Size(98, 20) - Me.txtSteuerpflichtigerBetrag.TabIndex = 6 - Me.txtSteuerpflichtigerBetrag.TextAlign = System.Windows.Forms.HorizontalAlignment.Right - ' 'Label33 ' Me.Label33.AutoSize = True @@ -3894,17 +1959,6 @@ Partial Class usrCntlFaktAbrechnung Me.Label28.Text = "Besonderheiten für Verrechung:" Me.Label28.TextAlign = System.Drawing.ContentAlignment.TopRight ' - 'txtBesonderheiten - ' - Me.txtBesonderheiten.Location = New System.Drawing.Point(9, 17) - Me.txtBesonderheiten.MaxLineLength = -1 - Me.txtBesonderheiten.MaxLines_Warning = "" - Me.txtBesonderheiten.MaxLines_Warning_Label = Nothing - Me.txtBesonderheiten.Name = "txtBesonderheiten" - Me.txtBesonderheiten.Size = New System.Drawing.Size(405, 131) - Me.txtBesonderheiten.TabIndex = 1 - Me.txtBesonderheiten.Text = "" - ' 'pnlDocs ' Me.pnlDocs.Controls.Add(Me.PictureBox1) @@ -4056,6 +2110,1953 @@ Partial Class usrCntlFaktAbrechnung Me.VeragCSToolStripMenuItem.Size = New System.Drawing.Size(122, 22) Me.VeragCSToolStripMenuItem.Text = "Verag CS" ' + 'txtTextZZ + ' + Me.txtTextZZ.Location = New System.Drawing.Point(64, 1061) + Me.txtTextZZ.MaxLineLength = -1 + Me.txtTextZZ.MaxLines_Warning = "" + Me.txtTextZZ.MaxLines_Warning_Label = Nothing + Me.txtTextZZ.Name = "txtTextZZ" + Me.txtTextZZ.ReadOnly = True + Me.txtTextZZ.Size = New System.Drawing.Size(423, 23) + Me.txtTextZZ.TabIndex = 91 + Me.txtTextZZ.Text = "" + ' + 'dgvAnhaenge + ' + Me.dgvAnhaenge.AKTUALISIERUNGS_INTERVALL = -1 + Me.dgvAnhaenge.AllowUserToAddRows = False + Me.dgvAnhaenge.AllowUserToDeleteRows = False + Me.dgvAnhaenge.AllowUserToResizeColumns = False + Me.dgvAnhaenge.AllowUserToResizeRows = False + Me.dgvAnhaenge.BackgroundColor = System.Drawing.Color.White + DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle1.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle1.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle1.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle1.SelectionForeColor = System.Drawing.SystemColors.HighlightText + 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.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)) + DataGridViewCellStyle4.ForeColor = System.Drawing.SystemColors.ControlText + DataGridViewCellStyle4.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle4.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.dgvAnhaenge.DefaultCellStyle = DataGridViewCellStyle4 + Me.dgvAnhaenge.Location = New System.Drawing.Point(493, 911) + Me.dgvAnhaenge.MultiSelect = False + Me.dgvAnhaenge.Name = "dgvAnhaenge" + Me.dgvAnhaenge.ReadOnly = True + DataGridViewCellStyle5.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle5.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle5.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle5.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle5.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvAnhaenge.RowHeadersDefaultCellStyle = DataGridViewCellStyle5 + Me.dgvAnhaenge.RowHeadersVisible = False + Me.dgvAnhaenge.RowHeadersWidth = 62 + Me.dgvAnhaenge.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect + Me.dgvAnhaenge.Size = New System.Drawing.Size(329, 219) + Me.dgvAnhaenge.TabIndex = 90 + Me.dgvAnhaenge.TabStop = 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 + ' + 'DataGridViewTextBoxColumn2 + ' + DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight + DataGridViewCellStyle2.Format = "N0" + DataGridViewCellStyle2.NullValue = Nothing + Me.DataGridViewTextBoxColumn2.DefaultCellStyle = DataGridViewCellStyle2 + Me.DataGridViewTextBoxColumn2.HeaderText = "Art" + Me.DataGridViewTextBoxColumn2.MinimumWidth = 8 + Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2" + Me.DataGridViewTextBoxColumn2.ReadOnly = True + Me.DataGridViewTextBoxColumn2.Width = 70 + ' + 'clmnBezeichnung + ' + 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 + ' + '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 + ' + 'cboRechnungSprache + ' + Me.cboRechnungSprache._allowedValuesFreiText = Nothing + Me.cboRechnungSprache._allowFreiText = False + Me.cboRechnungSprache._value = "" + Me.cboRechnungSprache.FormattingEnabled = True + Me.cboRechnungSprache.Location = New System.Drawing.Point(697, 116) + Me.cboRechnungSprache.Margin = New System.Windows.Forms.Padding(2) + Me.cboRechnungSprache.Name = "cboRechnungSprache" + Me.cboRechnungSprache.Size = New System.Drawing.Size(123, 21) + Me.cboRechnungSprache.TabIndex = 45 + Me.cboRechnungSprache.TabStop = False + ' + 'rtbHandling + ' + Me.rtbHandling.Location = New System.Drawing.Point(280, 911) + Me.rtbHandling.MaxLineLength = -1 + Me.rtbHandling.MaxLines_Warning = "" + Me.rtbHandling.MaxLines_Warning_Label = Nothing + Me.rtbHandling.Name = "rtbHandling" + Me.rtbHandling.Size = New System.Drawing.Size(207, 121) + Me.rtbHandling.TabIndex = 44 + Me.rtbHandling.Text = "" + ' + 'txtPositionAnzahl + ' + Me.txtPositionAnzahl._DateTimeOnly = False + Me.txtPositionAnzahl._numbersOnly = False + Me.txtPositionAnzahl._numbersOnlyKommastellen = "" + Me.txtPositionAnzahl._numbersOnlyTrennzeichen = True + Me.txtPositionAnzahl._Prozent = False + Me.txtPositionAnzahl._ShortDateNew = False + Me.txtPositionAnzahl._ShortDateOnly = False + Me.txtPositionAnzahl._TimeOnly = False + Me.txtPositionAnzahl._TimeOnly_Seconds = False + Me.txtPositionAnzahl._value = Nothing + Me.txtPositionAnzahl._Waehrung = False + Me.txtPositionAnzahl._WaehrungZeichen = True + Me.txtPositionAnzahl.ForeColor = System.Drawing.Color.Black + Me.txtPositionAnzahl.Location = New System.Drawing.Point(358, 21) + Me.txtPositionAnzahl.MaxLength = 35 + Me.txtPositionAnzahl.MaxLineLength = -1 + Me.txtPositionAnzahl.MaxLines_Warning = "" + Me.txtPositionAnzahl.MaxLines_Warning_Label = Nothing + Me.txtPositionAnzahl.Name = "txtPositionAnzahl" + Me.txtPositionAnzahl.ReadOnly = True + Me.txtPositionAnzahl.Size = New System.Drawing.Size(43, 20) + Me.txtPositionAnzahl.TabIndex = 46 + ' + 'txtAbfertigungsanzahl + ' + Me.txtAbfertigungsanzahl._DateTimeOnly = False + Me.txtAbfertigungsanzahl._numbersOnly = False + Me.txtAbfertigungsanzahl._numbersOnlyKommastellen = "" + Me.txtAbfertigungsanzahl._numbersOnlyTrennzeichen = True + Me.txtAbfertigungsanzahl._Prozent = False + Me.txtAbfertigungsanzahl._ShortDateNew = False + Me.txtAbfertigungsanzahl._ShortDateOnly = False + Me.txtAbfertigungsanzahl._TimeOnly = False + Me.txtAbfertigungsanzahl._TimeOnly_Seconds = False + Me.txtAbfertigungsanzahl._value = Nothing + Me.txtAbfertigungsanzahl._Waehrung = False + Me.txtAbfertigungsanzahl._WaehrungZeichen = True + Me.txtAbfertigungsanzahl.ForeColor = System.Drawing.Color.Black + Me.txtAbfertigungsanzahl.Location = New System.Drawing.Point(358, 3) + Me.txtAbfertigungsanzahl.MaxLength = 35 + Me.txtAbfertigungsanzahl.MaxLineLength = -1 + Me.txtAbfertigungsanzahl.MaxLines_Warning = "" + Me.txtAbfertigungsanzahl.MaxLines_Warning_Label = Nothing + Me.txtAbfertigungsanzahl.Name = "txtAbfertigungsanzahl" + Me.txtAbfertigungsanzahl.ReadOnly = True + Me.txtAbfertigungsanzahl.Size = New System.Drawing.Size(43, 20) + Me.txtAbfertigungsanzahl.TabIndex = 44 + ' + 'txtAbfertigungsart + ' + Me.txtAbfertigungsart._DateTimeOnly = False + Me.txtAbfertigungsart._numbersOnly = False + Me.txtAbfertigungsart._numbersOnlyKommastellen = "" + Me.txtAbfertigungsart._numbersOnlyTrennzeichen = True + Me.txtAbfertigungsart._Prozent = False + Me.txtAbfertigungsart._ShortDateNew = False + Me.txtAbfertigungsart._ShortDateOnly = False + Me.txtAbfertigungsart._TimeOnly = False + Me.txtAbfertigungsart._TimeOnly_Seconds = False + Me.txtAbfertigungsart._value = Nothing + Me.txtAbfertigungsart._Waehrung = False + Me.txtAbfertigungsart._WaehrungZeichen = True + Me.txtAbfertigungsart.ForeColor = System.Drawing.Color.Black + Me.txtAbfertigungsart.Location = New System.Drawing.Point(97, 3) + Me.txtAbfertigungsart.MaxLength = 35 + Me.txtAbfertigungsart.MaxLineLength = -1 + Me.txtAbfertigungsart.MaxLines_Warning = "" + Me.txtAbfertigungsart.MaxLines_Warning_Label = Nothing + Me.txtAbfertigungsart.Name = "txtAbfertigungsart" + Me.txtAbfertigungsart.ReadOnly = True + Me.txtAbfertigungsart.Size = New System.Drawing.Size(199, 20) + Me.txtAbfertigungsart.TabIndex = 42 + ' + 'txtkdNrAvisierer + ' + Me.txtkdNrAvisierer._DateTimeOnly = False + Me.txtkdNrAvisierer._numbersOnly = False + Me.txtkdNrAvisierer._numbersOnlyKommastellen = "" + Me.txtkdNrAvisierer._numbersOnlyTrennzeichen = True + Me.txtkdNrAvisierer._Prozent = False + Me.txtkdNrAvisierer._ShortDateNew = False + Me.txtkdNrAvisierer._ShortDateOnly = False + Me.txtkdNrAvisierer._TimeOnly = False + Me.txtkdNrAvisierer._TimeOnly_Seconds = False + Me.txtkdNrAvisierer._value = Nothing + Me.txtkdNrAvisierer._Waehrung = False + Me.txtkdNrAvisierer._WaehrungZeichen = True + Me.txtkdNrAvisierer.BackColor = System.Drawing.Color.WhiteSmoke + Me.txtkdNrAvisierer.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.txtkdNrAvisierer.ForeColor = System.Drawing.Color.Black + Me.txtkdNrAvisierer.Location = New System.Drawing.Point(7, 22) + Me.txtkdNrAvisierer.MaxLength = 35 + Me.txtkdNrAvisierer.MaxLineLength = -1 + Me.txtkdNrAvisierer.MaxLines_Warning = "" + Me.txtkdNrAvisierer.MaxLines_Warning_Label = Nothing + Me.txtkdNrAvisierer.Name = "txtkdNrAvisierer" + Me.txtkdNrAvisierer.ReadOnly = True + Me.txtkdNrAvisierer.Size = New System.Drawing.Size(94, 13) + Me.txtkdNrAvisierer.TabIndex = 1 + Me.txtkdNrAvisierer.TabStop = False + ' + 'txtAvisoId + ' + Me.txtAvisoId._DateTimeOnly = False + Me.txtAvisoId._numbersOnly = False + Me.txtAvisoId._numbersOnlyKommastellen = "" + Me.txtAvisoId._numbersOnlyTrennzeichen = True + Me.txtAvisoId._Prozent = False + Me.txtAvisoId._ShortDateNew = False + Me.txtAvisoId._ShortDateOnly = False + Me.txtAvisoId._TimeOnly = False + Me.txtAvisoId._TimeOnly_Seconds = False + Me.txtAvisoId._value = Nothing + Me.txtAvisoId._Waehrung = False + Me.txtAvisoId._WaehrungZeichen = True + Me.txtAvisoId.ForeColor = System.Drawing.Color.Black + Me.txtAvisoId.Location = New System.Drawing.Point(157, 32) + Me.txtAvisoId.MaxLength = 35 + Me.txtAvisoId.MaxLineLength = -1 + Me.txtAvisoId.MaxLines_Warning = "" + Me.txtAvisoId.MaxLines_Warning_Label = Nothing + Me.txtAvisoId.Name = "txtAvisoId" + Me.txtAvisoId.ReadOnly = True + Me.txtAvisoId.Size = New System.Drawing.Size(126, 20) + Me.txtAvisoId.TabIndex = 6 + Me.txtAvisoId.TabStop = False + Me.txtAvisoId.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + ' + 'kdFirmaAvisierer + ' + Me.kdFirmaAvisierer._AlleFirmenCLUSTER = False + Me.kdFirmaAvisierer._AllowSetValue = True + Me.kdFirmaAvisierer._autoSizeGross = False + Me.kdFirmaAvisierer._display_Name1 = True + Me.kdFirmaAvisierer._displayAVISO_Email = False + Me.kdFirmaAvisierer._displayFullName = False + Me.kdFirmaAvisierer._displayWoelflKd = False + Me.kdFirmaAvisierer._hideIfListEmpty = True + Me.kdFirmaAvisierer._loadKdData = True + Me.kdFirmaAvisierer._searchName1 = True + Me.kdFirmaAvisierer._UseFIRMA = "" + Me.kdFirmaAvisierer._ValueKdAndName = False + Me.kdFirmaAvisierer.BackColor = System.Drawing.Color.White + Me.kdFirmaAvisierer.dgvpos = "LEFT" + Me.kdFirmaAvisierer.KdName = Nothing + Me.kdFirmaAvisierer.KdNr = "-1" + Me.kdFirmaAvisierer.kdNrField = Nothing + Me.kdFirmaAvisierer.KdNrNullInt = Nothing + Me.kdFirmaAvisierer.Location = New System.Drawing.Point(101, 2) + Me.kdFirmaAvisierer.MaxLength = 35 + Me.kdFirmaAvisierer.Name = "kdFirmaAvisierer" + Me.kdFirmaAvisierer.nurAktive = True + Me.kdFirmaAvisierer.searchActive = True + Me.kdFirmaAvisierer.Size = New System.Drawing.Size(283, 20) + Me.kdFirmaAvisierer.TabIndex = 3 + Me.kdFirmaAvisierer.TabStop = False + Me.kdFirmaAvisierer.TIMER_SEARCH = True + Me.kdFirmaAvisierer.usrcntl = Nothing + ' + 'FlatButton5 + ' + Me.FlatButton5.allowBorder = False + Me.FlatButton5.FlatAppearance.BorderSize = 0 + Me.FlatButton5.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.FlatButton5.ForeColor = System.Drawing.Color.Black + Me.FlatButton5.Image = Global.SDL.My.Resources.Resources.personInaktiv + Me.FlatButton5.Location = New System.Drawing.Point(382, -1) + Me.FlatButton5.Name = "FlatButton5" + Me.FlatButton5.Size = New System.Drawing.Size(24, 25) + Me.FlatButton5.TabIndex = 2 + Me.FlatButton5.TabStop = False + Me.FlatButton5.UseVisualStyleBackColor = True + ' + 'cboAnlage5 + ' + Me.cboAnlage5._allowedValuesFreiText = Nothing + Me.cboAnlage5._allowFreiText = True + Me.cboAnlage5._value = "" + Me.cboAnlage5.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend + Me.cboAnlage5.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems + Me.cboAnlage5.FormattingEnabled = True + Me.cboAnlage5.Location = New System.Drawing.Point(10, 991) + Me.cboAnlage5.MaxLength = 35 + Me.cboAnlage5.Name = "cboAnlage5" + Me.cboAnlage5.Size = New System.Drawing.Size(266, 21) + Me.cboAnlage5.TabIndex = 32 + ' + 'cboAnlage1 + ' + Me.cboAnlage1._allowedValuesFreiText = Nothing + Me.cboAnlage1._allowFreiText = True + Me.cboAnlage1._value = "" + Me.cboAnlage1.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend + Me.cboAnlage1.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems + Me.cboAnlage1.FormattingEnabled = True + Me.cboAnlage1.Location = New System.Drawing.Point(10, 911) + Me.cboAnlage1.MaxLength = 35 + Me.cboAnlage1.Name = "cboAnlage1" + Me.cboAnlage1.Size = New System.Drawing.Size(266, 21) + Me.cboAnlage1.TabIndex = 28 + ' + 'txtWarenwertUmrechnung + ' + Me.txtWarenwertUmrechnung._DateTimeOnly = False + Me.txtWarenwertUmrechnung._numbersOnly = False + Me.txtWarenwertUmrechnung._numbersOnlyKommastellen = "" + Me.txtWarenwertUmrechnung._numbersOnlyTrennzeichen = True + Me.txtWarenwertUmrechnung._Prozent = False + Me.txtWarenwertUmrechnung._ShortDateNew = False + Me.txtWarenwertUmrechnung._ShortDateOnly = False + Me.txtWarenwertUmrechnung._TimeOnly = False + Me.txtWarenwertUmrechnung._TimeOnly_Seconds = False + Me.txtWarenwertUmrechnung._value = "" + Me.txtWarenwertUmrechnung._Waehrung = True + Me.txtWarenwertUmrechnung._WaehrungZeichen = False + Me.txtWarenwertUmrechnung.Enabled = False + Me.txtWarenwertUmrechnung.ForeColor = System.Drawing.Color.Black + Me.txtWarenwertUmrechnung.Location = New System.Drawing.Point(562, 197) + Me.txtWarenwertUmrechnung.MaxLength = 35 + Me.txtWarenwertUmrechnung.MaxLineLength = -1 + Me.txtWarenwertUmrechnung.MaxLines_Warning = "" + Me.txtWarenwertUmrechnung.MaxLines_Warning_Label = Nothing + Me.txtWarenwertUmrechnung.Name = "txtWarenwertUmrechnung" + Me.txtWarenwertUmrechnung.Size = New System.Drawing.Size(129, 20) + Me.txtWarenwertUmrechnung.TabIndex = 18 + Me.txtWarenwertUmrechnung.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + ' + 'cboAnlage2 + ' + Me.cboAnlage2._allowedValuesFreiText = Nothing + Me.cboAnlage2._allowFreiText = True + Me.cboAnlage2._value = "" + Me.cboAnlage2.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend + Me.cboAnlage2.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems + Me.cboAnlage2.FormattingEnabled = True + Me.cboAnlage2.Location = New System.Drawing.Point(10, 931) + Me.cboAnlage2.MaxLength = 35 + Me.cboAnlage2.Name = "cboAnlage2" + Me.cboAnlage2.Size = New System.Drawing.Size(266, 21) + Me.cboAnlage2.TabIndex = 29 + ' + 'cboAnlage3 + ' + Me.cboAnlage3._allowedValuesFreiText = Nothing + Me.cboAnlage3._allowFreiText = True + Me.cboAnlage3._value = "" + Me.cboAnlage3.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend + Me.cboAnlage3.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems + Me.cboAnlage3.FormattingEnabled = True + Me.cboAnlage3.Location = New System.Drawing.Point(10, 951) + Me.cboAnlage3.MaxLength = 35 + Me.cboAnlage3.Name = "cboAnlage3" + Me.cboAnlage3.Size = New System.Drawing.Size(266, 21) + Me.cboAnlage3.TabIndex = 30 + ' + 'txtVermerk + ' + Me.txtVermerk._DateTimeOnly = False + Me.txtVermerk._numbersOnly = False + Me.txtVermerk._numbersOnlyKommastellen = "" + Me.txtVermerk._numbersOnlyTrennzeichen = True + Me.txtVermerk._Prozent = False + Me.txtVermerk._ShortDateNew = False + Me.txtVermerk._ShortDateOnly = False + Me.txtVermerk._TimeOnly = False + Me.txtVermerk._TimeOnly_Seconds = False + Me.txtVermerk._value = Nothing + Me.txtVermerk._Waehrung = False + Me.txtVermerk._WaehrungZeichen = True + Me.txtVermerk.ForeColor = System.Drawing.Color.Black + Me.txtVermerk.Location = New System.Drawing.Point(517, 341) + Me.txtVermerk.MaxLength = 35 + Me.txtVermerk.MaxLineLength = -1 + Me.txtVermerk.MaxLines_Warning = "" + Me.txtVermerk.MaxLines_Warning_Label = Nothing + Me.txtVermerk.Name = "txtVermerk" + Me.txtVermerk.Size = New System.Drawing.Size(305, 20) + Me.txtVermerk.TabIndex = 25 + ' + 'cboAnlage6 + ' + Me.cboAnlage6._allowedValuesFreiText = Nothing + Me.cboAnlage6._allowFreiText = True + Me.cboAnlage6._value = "" + Me.cboAnlage6.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend + Me.cboAnlage6.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems + Me.cboAnlage6.FormattingEnabled = True + Me.cboAnlage6.Location = New System.Drawing.Point(10, 1011) + Me.cboAnlage6.MaxLength = 35 + Me.cboAnlage6.Name = "cboAnlage6" + Me.cboAnlage6.Size = New System.Drawing.Size(266, 21) + Me.cboAnlage6.TabIndex = 33 + ' + 'cboAnlage4 + ' + Me.cboAnlage4._allowedValuesFreiText = Nothing + Me.cboAnlage4._allowFreiText = True + Me.cboAnlage4._value = "" + Me.cboAnlage4.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend + Me.cboAnlage4.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems + Me.cboAnlage4.FormattingEnabled = True + Me.cboAnlage4.Location = New System.Drawing.Point(10, 971) + Me.cboAnlage4.MaxLength = 35 + Me.cboAnlage4.Name = "cboAnlage4" + Me.cboAnlage4.Size = New System.Drawing.Size(266, 21) + Me.cboAnlage4.TabIndex = 31 + ' + 'txtErfassungsnummer + ' + Me.txtErfassungsnummer._DateTimeOnly = False + Me.txtErfassungsnummer._numbersOnly = False + Me.txtErfassungsnummer._numbersOnlyKommastellen = "" + Me.txtErfassungsnummer._numbersOnlyTrennzeichen = True + Me.txtErfassungsnummer._Prozent = False + Me.txtErfassungsnummer._ShortDateNew = False + Me.txtErfassungsnummer._ShortDateOnly = False + Me.txtErfassungsnummer._TimeOnly = False + Me.txtErfassungsnummer._TimeOnly_Seconds = False + Me.txtErfassungsnummer._value = Nothing + Me.txtErfassungsnummer._Waehrung = False + Me.txtErfassungsnummer._WaehrungZeichen = True + Me.txtErfassungsnummer.ForeColor = System.Drawing.Color.Black + Me.txtErfassungsnummer.Location = New System.Drawing.Point(517, 242) + Me.txtErfassungsnummer.MaxLength = 35 + Me.txtErfassungsnummer.MaxLineLength = -1 + Me.txtErfassungsnummer.MaxLines_Warning = "" + Me.txtErfassungsnummer.MaxLines_Warning_Label = Nothing + Me.txtErfassungsnummer.Name = "txtErfassungsnummer" + Me.txtErfassungsnummer.Size = New System.Drawing.Size(305, 20) + Me.txtErfassungsnummer.TabIndex = 11 + ' + 'cboRechnungNotiz + ' + Me.cboRechnungNotiz._allowedValuesFreiText = Nothing + Me.cboRechnungNotiz._allowFreiText = True + Me.cboRechnungNotiz._value = "" + Me.cboRechnungNotiz.FormattingEnabled = True + Me.cboRechnungNotiz.Location = New System.Drawing.Point(64, 1039) + Me.cboRechnungNotiz.Name = "cboRechnungNotiz" + Me.cboRechnungNotiz.Size = New System.Drawing.Size(423, 21) + Me.cboRechnungNotiz.TabIndex = 36 + ' + 'cboFirma + ' + Me.cboFirma._allowedValuesFreiText = Nothing + Me.cboFirma._allowFreiText = False + Me.cboFirma._value = "" + Me.cboFirma.FormattingEnabled = True + Me.cboFirma.Location = New System.Drawing.Point(592, 51) + Me.cboFirma.Margin = New System.Windows.Forms.Padding(2) + Me.cboFirma.Name = "cboFirma" + Me.cboFirma.Size = New System.Drawing.Size(229, 21) + Me.cboFirma.TabIndex = 1 + Me.cboFirma.TabStop = False + ' + 'txtkdNrAuftraggeber + ' + Me.txtkdNrAuftraggeber._DateTimeOnly = False + Me.txtkdNrAuftraggeber._numbersOnly = False + Me.txtkdNrAuftraggeber._numbersOnlyKommastellen = "" + Me.txtkdNrAuftraggeber._numbersOnlyTrennzeichen = True + Me.txtkdNrAuftraggeber._Prozent = False + Me.txtkdNrAuftraggeber._ShortDateNew = False + Me.txtkdNrAuftraggeber._ShortDateOnly = False + Me.txtkdNrAuftraggeber._TimeOnly = False + Me.txtkdNrAuftraggeber._TimeOnly_Seconds = False + Me.txtkdNrAuftraggeber._value = Nothing + Me.txtkdNrAuftraggeber._Waehrung = False + Me.txtkdNrAuftraggeber._WaehrungZeichen = True + Me.txtkdNrAuftraggeber.BackColor = System.Drawing.Color.WhiteSmoke + Me.txtkdNrAuftraggeber.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.txtkdNrAuftraggeber.ForeColor = System.Drawing.Color.Black + Me.txtkdNrAuftraggeber.Location = New System.Drawing.Point(7, 25) + Me.txtkdNrAuftraggeber.MaxLength = 35 + Me.txtkdNrAuftraggeber.MaxLineLength = -1 + Me.txtkdNrAuftraggeber.MaxLines_Warning = "" + Me.txtkdNrAuftraggeber.MaxLines_Warning_Label = Nothing + Me.txtkdNrAuftraggeber.Name = "txtkdNrAuftraggeber" + Me.txtkdNrAuftraggeber.ReadOnly = True + Me.txtkdNrAuftraggeber.Size = New System.Drawing.Size(94, 13) + Me.txtkdNrAuftraggeber.TabIndex = 1 + Me.txtkdNrAuftraggeber.TabStop = False + ' + 'kdFirmaAuftraggeber + ' + Me.kdFirmaAuftraggeber._AlleFirmenCLUSTER = False + Me.kdFirmaAuftraggeber._AllowSetValue = True + Me.kdFirmaAuftraggeber._autoSizeGross = False + Me.kdFirmaAuftraggeber._display_Name1 = True + Me.kdFirmaAuftraggeber._displayAVISO_Email = False + Me.kdFirmaAuftraggeber._displayFullName = False + Me.kdFirmaAuftraggeber._displayWoelflKd = False + Me.kdFirmaAuftraggeber._hideIfListEmpty = True + Me.kdFirmaAuftraggeber._loadKdData = True + Me.kdFirmaAuftraggeber._searchName1 = True + Me.kdFirmaAuftraggeber._UseFIRMA = "" + Me.kdFirmaAuftraggeber._ValueKdAndName = False + Me.kdFirmaAuftraggeber.BackColor = System.Drawing.Color.White + Me.kdFirmaAuftraggeber.dgvpos = "LEFT" + Me.kdFirmaAuftraggeber.KdName = Nothing + Me.kdFirmaAuftraggeber.KdNr = "-1" + Me.kdFirmaAuftraggeber.kdNrField = Nothing + Me.kdFirmaAuftraggeber.KdNrNullInt = Nothing + Me.kdFirmaAuftraggeber.Location = New System.Drawing.Point(101, 3) + Me.kdFirmaAuftraggeber.MaxLength = 35 + Me.kdFirmaAuftraggeber.Name = "kdFirmaAuftraggeber" + Me.kdFirmaAuftraggeber.nurAktive = True + Me.kdFirmaAuftraggeber.searchActive = True + Me.kdFirmaAuftraggeber.Size = New System.Drawing.Size(283, 20) + Me.kdFirmaAuftraggeber.TabIndex = 3 + Me.kdFirmaAuftraggeber.TabStop = False + Me.kdFirmaAuftraggeber.TIMER_SEARCH = True + Me.kdFirmaAuftraggeber.usrcntl = Nothing + ' + 'txtAuftraggeberName2 + ' + Me.txtAuftraggeberName2._DateTimeOnly = False + Me.txtAuftraggeberName2._numbersOnly = False + Me.txtAuftraggeberName2._numbersOnlyKommastellen = "" + Me.txtAuftraggeberName2._numbersOnlyTrennzeichen = True + Me.txtAuftraggeberName2._Prozent = False + Me.txtAuftraggeberName2._ShortDateNew = False + Me.txtAuftraggeberName2._ShortDateOnly = False + Me.txtAuftraggeberName2._TimeOnly = False + Me.txtAuftraggeberName2._TimeOnly_Seconds = False + Me.txtAuftraggeberName2._value = Nothing + Me.txtAuftraggeberName2._Waehrung = False + Me.txtAuftraggeberName2._WaehrungZeichen = True + Me.txtAuftraggeberName2.BackColor = System.Drawing.Color.WhiteSmoke + Me.txtAuftraggeberName2.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.txtAuftraggeberName2.ForeColor = System.Drawing.Color.Black + Me.txtAuftraggeberName2.Location = New System.Drawing.Point(101, 25) + Me.txtAuftraggeberName2.MaxLength = 35 + Me.txtAuftraggeberName2.MaxLineLength = -1 + Me.txtAuftraggeberName2.MaxLines_Warning = "" + Me.txtAuftraggeberName2.MaxLines_Warning_Label = Nothing + Me.txtAuftraggeberName2.Name = "txtAuftraggeberName2" + Me.txtAuftraggeberName2.Size = New System.Drawing.Size(305, 13) + Me.txtAuftraggeberName2.TabIndex = 4 + Me.txtAuftraggeberName2.TabStop = False + ' + 'txtAuftragggeberOrt + ' + Me.txtAuftragggeberOrt._DateTimeOnly = False + Me.txtAuftragggeberOrt._numbersOnly = False + Me.txtAuftragggeberOrt._numbersOnlyKommastellen = "" + Me.txtAuftragggeberOrt._numbersOnlyTrennzeichen = True + Me.txtAuftragggeberOrt._Prozent = False + Me.txtAuftragggeberOrt._ShortDateNew = False + Me.txtAuftragggeberOrt._ShortDateOnly = False + Me.txtAuftragggeberOrt._TimeOnly = False + Me.txtAuftragggeberOrt._TimeOnly_Seconds = False + Me.txtAuftragggeberOrt._value = Nothing + Me.txtAuftragggeberOrt._Waehrung = False + Me.txtAuftragggeberOrt._WaehrungZeichen = True + Me.txtAuftragggeberOrt.BackColor = System.Drawing.Color.WhiteSmoke + Me.txtAuftragggeberOrt.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.txtAuftragggeberOrt.ForeColor = System.Drawing.Color.Black + Me.txtAuftragggeberOrt.Location = New System.Drawing.Point(101, 53) + Me.txtAuftragggeberOrt.MaxLength = 35 + Me.txtAuftragggeberOrt.MaxLineLength = -1 + Me.txtAuftragggeberOrt.MaxLines_Warning = "" + Me.txtAuftragggeberOrt.MaxLines_Warning_Label = Nothing + Me.txtAuftragggeberOrt.Name = "txtAuftragggeberOrt" + Me.txtAuftragggeberOrt.Size = New System.Drawing.Size(305, 13) + Me.txtAuftragggeberOrt.TabIndex = 7 + Me.txtAuftragggeberOrt.TabStop = False + ' + 'txtAuftragggeberStrasse + ' + Me.txtAuftragggeberStrasse._DateTimeOnly = False + Me.txtAuftragggeberStrasse._numbersOnly = False + Me.txtAuftragggeberStrasse._numbersOnlyKommastellen = "" + Me.txtAuftragggeberStrasse._numbersOnlyTrennzeichen = True + Me.txtAuftragggeberStrasse._Prozent = False + Me.txtAuftragggeberStrasse._ShortDateNew = False + Me.txtAuftragggeberStrasse._ShortDateOnly = False + Me.txtAuftragggeberStrasse._TimeOnly = False + Me.txtAuftragggeberStrasse._TimeOnly_Seconds = False + Me.txtAuftragggeberStrasse._value = Nothing + Me.txtAuftragggeberStrasse._Waehrung = False + Me.txtAuftragggeberStrasse._WaehrungZeichen = True + Me.txtAuftragggeberStrasse.BackColor = System.Drawing.Color.WhiteSmoke + Me.txtAuftragggeberStrasse.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.txtAuftragggeberStrasse.ForeColor = System.Drawing.Color.Black + Me.txtAuftragggeberStrasse.Location = New System.Drawing.Point(101, 39) + Me.txtAuftragggeberStrasse.MaxLength = 35 + Me.txtAuftragggeberStrasse.MaxLineLength = -1 + Me.txtAuftragggeberStrasse.MaxLines_Warning = "" + Me.txtAuftragggeberStrasse.MaxLines_Warning_Label = Nothing + Me.txtAuftragggeberStrasse.Name = "txtAuftragggeberStrasse" + Me.txtAuftragggeberStrasse.Size = New System.Drawing.Size(305, 13) + Me.txtAuftragggeberStrasse.TabIndex = 6 + Me.txtAuftragggeberStrasse.TabStop = False + ' + 'FlatButton4 + ' + Me.FlatButton4.allowBorder = False + Me.FlatButton4.FlatAppearance.BorderSize = 0 + Me.FlatButton4.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.FlatButton4.ForeColor = System.Drawing.Color.Black + Me.FlatButton4.Image = Global.SDL.My.Resources.Resources.personInaktiv + Me.FlatButton4.Location = New System.Drawing.Point(382, 0) + Me.FlatButton4.Name = "FlatButton4" + Me.FlatButton4.Size = New System.Drawing.Size(24, 25) + Me.FlatButton4.TabIndex = 2 + Me.FlatButton4.TabStop = False + Me.FlatButton4.UseVisualStyleBackColor = True + ' + 'txtText + ' + Me.txtText.Location = New System.Drawing.Point(64, 1083) + Me.txtText.MaxLineLength = -1 + Me.txtText.MaxLines_Warning = "" + Me.txtText.MaxLines_Warning_Label = Nothing + Me.txtText.Name = "txtText" + Me.txtText.ReadOnly = True + Me.txtText.Size = New System.Drawing.Size(423, 47) + Me.txtText.TabIndex = 35 + Me.txtText.Text = "" + ' + 'txtBefoerderungsmittel + ' + Me.txtBefoerderungsmittel._DateTimeOnly = False + Me.txtBefoerderungsmittel._numbersOnly = False + Me.txtBefoerderungsmittel._numbersOnlyKommastellen = "" + Me.txtBefoerderungsmittel._numbersOnlyTrennzeichen = True + Me.txtBefoerderungsmittel._Prozent = False + Me.txtBefoerderungsmittel._ShortDateNew = False + Me.txtBefoerderungsmittel._ShortDateOnly = False + Me.txtBefoerderungsmittel._TimeOnly = False + Me.txtBefoerderungsmittel._TimeOnly_Seconds = False + Me.txtBefoerderungsmittel._value = Nothing + Me.txtBefoerderungsmittel._Waehrung = False + Me.txtBefoerderungsmittel._WaehrungZeichen = True + Me.txtBefoerderungsmittel.ForeColor = System.Drawing.Color.Black + Me.txtBefoerderungsmittel.Location = New System.Drawing.Point(517, 279) + Me.txtBefoerderungsmittel.MaxLength = 35 + Me.txtBefoerderungsmittel.MaxLineLength = -1 + Me.txtBefoerderungsmittel.MaxLines_Warning = "" + Me.txtBefoerderungsmittel.MaxLines_Warning_Label = Nothing + Me.txtBefoerderungsmittel.Name = "txtBefoerderungsmittel" + Me.txtBefoerderungsmittel.Size = New System.Drawing.Size(305, 20) + Me.txtBefoerderungsmittel.TabIndex = 19 + ' + 'txtGrenze + ' + Me.txtGrenze._DateTimeOnly = False + Me.txtGrenze._numbersOnly = False + Me.txtGrenze._numbersOnlyKommastellen = "" + Me.txtGrenze._numbersOnlyTrennzeichen = True + Me.txtGrenze._Prozent = False + Me.txtGrenze._ShortDateNew = False + Me.txtGrenze._ShortDateOnly = False + Me.txtGrenze._TimeOnly = False + Me.txtGrenze._TimeOnly_Seconds = False + Me.txtGrenze._value = Nothing + Me.txtGrenze._Waehrung = False + Me.txtGrenze._WaehrungZeichen = True + Me.txtGrenze.ForeColor = System.Drawing.Color.Black + Me.txtGrenze.Location = New System.Drawing.Point(517, 260) + Me.txtGrenze.MaxLength = 35 + Me.txtGrenze.MaxLineLength = -1 + Me.txtGrenze.MaxLines_Warning = "" + Me.txtGrenze.MaxLines_Warning_Label = Nothing + Me.txtGrenze.Name = "txtGrenze" + Me.txtGrenze.Size = New System.Drawing.Size(305, 20) + Me.txtGrenze.TabIndex = 16 + ' + 'txtSendungsdaten + ' + Me.txtSendungsdaten._DateTimeOnly = False + Me.txtSendungsdaten._numbersOnly = False + Me.txtSendungsdaten._numbersOnlyKommastellen = "" + Me.txtSendungsdaten._numbersOnlyTrennzeichen = True + Me.txtSendungsdaten._Prozent = False + Me.txtSendungsdaten._ShortDateNew = False + Me.txtSendungsdaten._ShortDateOnly = False + Me.txtSendungsdaten._TimeOnly = False + Me.txtSendungsdaten._TimeOnly_Seconds = False + Me.txtSendungsdaten._value = Nothing + Me.txtSendungsdaten._Waehrung = False + Me.txtSendungsdaten._WaehrungZeichen = True + Me.txtSendungsdaten.ForeColor = System.Drawing.Color.Black + Me.txtSendungsdaten.Location = New System.Drawing.Point(517, 323) + Me.txtSendungsdaten.MaxLength = 300 + Me.txtSendungsdaten.MaxLineLength = -1 + Me.txtSendungsdaten.MaxLines_Warning = "" + Me.txtSendungsdaten.MaxLines_Warning_Label = Nothing + Me.txtSendungsdaten.Name = "txtSendungsdaten" + Me.txtSendungsdaten.Size = New System.Drawing.Size(305, 20) + Me.txtSendungsdaten.TabIndex = 22 + ' + 'txtWarenwert + ' + Me.txtWarenwert._DateTimeOnly = False + Me.txtWarenwert._numbersOnly = False + Me.txtWarenwert._numbersOnlyKommastellen = "" + Me.txtWarenwert._numbersOnlyTrennzeichen = True + Me.txtWarenwert._Prozent = False + Me.txtWarenwert._ShortDateNew = False + Me.txtWarenwert._ShortDateOnly = False + Me.txtWarenwert._TimeOnly = False + Me.txtWarenwert._TimeOnly_Seconds = False + Me.txtWarenwert._value = "" + Me.txtWarenwert._Waehrung = True + Me.txtWarenwert._WaehrungZeichen = False + Me.txtWarenwert.ForeColor = System.Drawing.Color.Black + Me.txtWarenwert.Location = New System.Drawing.Point(562, 178) + Me.txtWarenwert.MaxLength = 35 + Me.txtWarenwert.MaxLineLength = -1 + Me.txtWarenwert.MaxLines_Warning = "" + Me.txtWarenwert.MaxLines_Warning_Label = Nothing + Me.txtWarenwert.Name = "txtWarenwert" + Me.txtWarenwert.Size = New System.Drawing.Size(129, 20) + Me.txtWarenwert.TabIndex = 15 + Me.txtWarenwert.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + ' + 'txtZollbelegNr + ' + Me.txtZollbelegNr._DateTimeOnly = False + Me.txtZollbelegNr._numbersOnly = False + Me.txtZollbelegNr._numbersOnlyKommastellen = "" + Me.txtZollbelegNr._numbersOnlyTrennzeichen = True + Me.txtZollbelegNr._Prozent = False + Me.txtZollbelegNr._ShortDateNew = False + Me.txtZollbelegNr._ShortDateOnly = False + Me.txtZollbelegNr._TimeOnly = False + Me.txtZollbelegNr._TimeOnly_Seconds = False + Me.txtZollbelegNr._value = Nothing + Me.txtZollbelegNr._Waehrung = False + Me.txtZollbelegNr._WaehrungZeichen = True + Me.txtZollbelegNr.ForeColor = System.Drawing.Color.Black + Me.txtZollbelegNr.Location = New System.Drawing.Point(517, 159) + Me.txtZollbelegNr.MaxLength = 35 + Me.txtZollbelegNr.MaxLineLength = -1 + Me.txtZollbelegNr.MaxLines_Warning = "" + Me.txtZollbelegNr.MaxLines_Warning_Label = Nothing + Me.txtZollbelegNr.Name = "txtZollbelegNr" + Me.txtZollbelegNr.Size = New System.Drawing.Size(305, 20) + Me.txtZollbelegNr.TabIndex = 10 + ' + 'cboRgArt + ' + Me.cboRgArt._allowedValuesFreiText = Nothing + Me.cboRgArt._allowFreiText = False + Me.cboRgArt._value = "" + Me.cboRgArt.FormattingEnabled = True + Me.cboRgArt.Location = New System.Drawing.Point(478, 127) + Me.cboRgArt.Name = "cboRgArt" + Me.cboRgArt.Size = New System.Drawing.Size(97, 21) + Me.cboRgArt.TabIndex = 246 + ' + 'cboVorauskasse + ' + Me.cboVorauskasse._allowedValuesFreiText = Nothing + Me.cboVorauskasse._allowFreiText = False + Me.cboVorauskasse._value = "" + Me.cboVorauskasse.FormattingEnabled = True + Me.cboVorauskasse.Location = New System.Drawing.Point(506, 5) + Me.cboVorauskasse.Name = "cboVorauskasse" + Me.cboVorauskasse.Size = New System.Drawing.Size(69, 21) + Me.cboVorauskasse.TabIndex = 244 + ' + 'txtRechnungAnZusatz + ' + Me.txtRechnungAnZusatz._DateTimeOnly = False + Me.txtRechnungAnZusatz._numbersOnly = False + Me.txtRechnungAnZusatz._numbersOnlyKommastellen = "" + Me.txtRechnungAnZusatz._numbersOnlyTrennzeichen = True + Me.txtRechnungAnZusatz._Prozent = False + Me.txtRechnungAnZusatz._ShortDateNew = False + Me.txtRechnungAnZusatz._ShortDateOnly = False + Me.txtRechnungAnZusatz._TimeOnly = False + Me.txtRechnungAnZusatz._TimeOnly_Seconds = False + Me.txtRechnungAnZusatz._value = Nothing + Me.txtRechnungAnZusatz._Waehrung = False + Me.txtRechnungAnZusatz._WaehrungZeichen = True + Me.txtRechnungAnZusatz.ForeColor = System.Drawing.Color.Black + Me.txtRechnungAnZusatz.Location = New System.Drawing.Point(101, 63) + Me.txtRechnungAnZusatz.MaxLength = 52 + Me.txtRechnungAnZusatz.MaxLineLength = -1 + Me.txtRechnungAnZusatz.MaxLines_Warning = "" + Me.txtRechnungAnZusatz.MaxLines_Warning_Label = Nothing + Me.txtRechnungAnZusatz.Name = "txtRechnungAnZusatz" + Me.txtRechnungAnZusatz.Size = New System.Drawing.Size(306, 20) + Me.txtRechnungAnZusatz.TabIndex = 242 + Me.txtRechnungAnZusatz.TabStop = False + ' + 'cboSammelrechnung + ' + Me.cboSammelrechnung._allowedValuesFreiText = Nothing + Me.cboSammelrechnung._allowFreiText = False + Me.cboSammelrechnung._value = "" + Me.cboSammelrechnung.FormattingEnabled = True + Me.cboSammelrechnung.Location = New System.Drawing.Point(282, 5) + Me.cboSammelrechnung.Name = "cboSammelrechnung" + Me.cboSammelrechnung.Size = New System.Drawing.Size(102, 21) + Me.cboSammelrechnung.TabIndex = 2 + ' + 'txtRechnungAnName2 + ' + Me.txtRechnungAnName2._DateTimeOnly = False + Me.txtRechnungAnName2._numbersOnly = False + Me.txtRechnungAnName2._numbersOnlyKommastellen = "" + Me.txtRechnungAnName2._numbersOnlyTrennzeichen = True + Me.txtRechnungAnName2._Prozent = False + Me.txtRechnungAnName2._ShortDateNew = False + Me.txtRechnungAnName2._ShortDateOnly = False + Me.txtRechnungAnName2._TimeOnly = False + Me.txtRechnungAnName2._TimeOnly_Seconds = False + Me.txtRechnungAnName2._value = Nothing + Me.txtRechnungAnName2._Waehrung = False + Me.txtRechnungAnName2._WaehrungZeichen = True + Me.txtRechnungAnName2.ForeColor = System.Drawing.Color.Black + Me.txtRechnungAnName2.Location = New System.Drawing.Point(101, 44) + Me.txtRechnungAnName2.MaxLength = 40 + Me.txtRechnungAnName2.MaxLineLength = -1 + Me.txtRechnungAnName2.MaxLines_Warning = "" + Me.txtRechnungAnName2.MaxLines_Warning_Label = Nothing + Me.txtRechnungAnName2.Name = "txtRechnungAnName2" + Me.txtRechnungAnName2.Size = New System.Drawing.Size(306, 20) + Me.txtRechnungAnName2.TabIndex = 11 + Me.txtRechnungAnName2.TabStop = False + ' + 'kdFirmaRechnungAn + ' + Me.kdFirmaRechnungAn._AlleFirmenCLUSTER = False + Me.kdFirmaRechnungAn._AllowSetValue = True + Me.kdFirmaRechnungAn._autoSizeGross = False + Me.kdFirmaRechnungAn._display_Name1 = True + Me.kdFirmaRechnungAn._displayAVISO_Email = False + Me.kdFirmaRechnungAn._displayFullName = False + Me.kdFirmaRechnungAn._displayWoelflKd = False + Me.kdFirmaRechnungAn._hideIfListEmpty = True + Me.kdFirmaRechnungAn._loadKdData = True + Me.kdFirmaRechnungAn._searchName1 = True + Me.kdFirmaRechnungAn._UseFIRMA = "" + Me.kdFirmaRechnungAn._ValueKdAndName = False + Me.kdFirmaRechnungAn.dgvpos = "LEFT" + Me.kdFirmaRechnungAn.KdName = Nothing + Me.kdFirmaRechnungAn.KdNr = "-1" + Me.kdFirmaRechnungAn.kdNrField = Nothing + Me.kdFirmaRechnungAn.KdNrNullInt = Nothing + Me.kdFirmaRechnungAn.Location = New System.Drawing.Point(101, 25) + Me.kdFirmaRechnungAn.MaxLength = 35 + Me.kdFirmaRechnungAn.Name = "kdFirmaRechnungAn" + Me.kdFirmaRechnungAn.nurAktive = True + Me.kdFirmaRechnungAn.searchActive = True + Me.kdFirmaRechnungAn.Size = New System.Drawing.Size(283, 20) + Me.kdFirmaRechnungAn.TabIndex = 5 + Me.kdFirmaRechnungAn.TabStop = False + Me.kdFirmaRechnungAn.TIMER_SEARCH = True + Me.kdFirmaRechnungAn.usrcntl = Nothing + ' + 'FlatButton3 + ' + Me.FlatButton3.allowBorder = False + Me.FlatButton3.FlatAppearance.BorderSize = 0 + Me.FlatButton3.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.FlatButton3.ForeColor = System.Drawing.Color.Black + Me.FlatButton3.Image = Global.SDL.My.Resources.Resources.personInaktiv + Me.FlatButton3.Location = New System.Drawing.Point(383, 20) + Me.FlatButton3.Name = "FlatButton3" + Me.FlatButton3.Size = New System.Drawing.Size(24, 25) + Me.FlatButton3.TabIndex = 7 + Me.FlatButton3.TabStop = False + Me.FlatButton3.UseVisualStyleBackColor = True + ' + 'txtKdAuftragsNr + ' + Me.txtKdAuftragsNr._DateTimeOnly = False + Me.txtKdAuftragsNr._numbersOnly = False + Me.txtKdAuftragsNr._numbersOnlyKommastellen = "" + Me.txtKdAuftragsNr._numbersOnlyTrennzeichen = True + Me.txtKdAuftragsNr._Prozent = False + Me.txtKdAuftragsNr._ShortDateNew = False + Me.txtKdAuftragsNr._ShortDateOnly = False + Me.txtKdAuftragsNr._TimeOnly = False + Me.txtKdAuftragsNr._TimeOnly_Seconds = False + Me.txtKdAuftragsNr._value = Nothing + Me.txtKdAuftragsNr._Waehrung = False + Me.txtKdAuftragsNr._WaehrungZeichen = True + Me.txtKdAuftragsNr.BackColor = System.Drawing.Color.Yellow + Me.txtKdAuftragsNr.ForeColor = System.Drawing.Color.Black + Me.txtKdAuftragsNr.Location = New System.Drawing.Point(101, 123) + Me.txtKdAuftragsNr.MaxLength = 35 + Me.txtKdAuftragsNr.MaxLineLength = -1 + Me.txtKdAuftragsNr.MaxLines_Warning = "" + Me.txtKdAuftragsNr.MaxLines_Warning_Label = Nothing + Me.txtKdAuftragsNr.Name = "txtKdAuftragsNr" + Me.txtKdAuftragsNr.Size = New System.Drawing.Size(306, 20) + Me.txtKdAuftragsNr.TabIndex = 20 + ' + 'txtRechnungAnUIDKz + ' + Me.txtRechnungAnUIDKz._DateTimeOnly = False + Me.txtRechnungAnUIDKz._numbersOnly = False + Me.txtRechnungAnUIDKz._numbersOnlyKommastellen = "" + Me.txtRechnungAnUIDKz._numbersOnlyTrennzeichen = True + Me.txtRechnungAnUIDKz._Prozent = False + Me.txtRechnungAnUIDKz._ShortDateNew = False + Me.txtRechnungAnUIDKz._ShortDateOnly = False + Me.txtRechnungAnUIDKz._TimeOnly = False + Me.txtRechnungAnUIDKz._TimeOnly_Seconds = False + Me.txtRechnungAnUIDKz._value = Nothing + Me.txtRechnungAnUIDKz._Waehrung = False + Me.txtRechnungAnUIDKz._WaehrungZeichen = True + Me.txtRechnungAnUIDKz.ForeColor = System.Drawing.Color.Black + Me.txtRechnungAnUIDKz.Location = New System.Drawing.Point(481, 44) + Me.txtRechnungAnUIDKz.MaxLength = 35 + Me.txtRechnungAnUIDKz.MaxLineLength = -1 + Me.txtRechnungAnUIDKz.MaxLines_Warning = "" + Me.txtRechnungAnUIDKz.MaxLines_Warning_Label = Nothing + Me.txtRechnungAnUIDKz.Name = "txtRechnungAnUIDKz" + Me.txtRechnungAnUIDKz.Size = New System.Drawing.Size(27, 20) + Me.txtRechnungAnUIDKz.TabIndex = 18 + Me.txtRechnungAnUIDKz.TabStop = False + ' + 'cboRechnungAn + ' + Me.cboRechnungAn._allowedValuesFreiText = Nothing + Me.cboRechnungAn._allowFreiText = False + Me.cboRechnungAn._value = "" + Me.cboRechnungAn.FormattingEnabled = True + Me.cboRechnungAn.Location = New System.Drawing.Point(101, 5) + Me.cboRechnungAn.Name = "cboRechnungAn" + Me.cboRechnungAn.Size = New System.Drawing.Size(183, 21) + Me.cboRechnungAn.TabIndex = 1 + ' + 'txtRechnungAnUIDNr + ' + Me.txtRechnungAnUIDNr._DateTimeOnly = False + Me.txtRechnungAnUIDNr._numbersOnly = False + Me.txtRechnungAnUIDNr._numbersOnlyKommastellen = "" + Me.txtRechnungAnUIDNr._numbersOnlyTrennzeichen = True + Me.txtRechnungAnUIDNr._Prozent = False + Me.txtRechnungAnUIDNr._ShortDateNew = False + Me.txtRechnungAnUIDNr._ShortDateOnly = False + Me.txtRechnungAnUIDNr._TimeOnly = False + Me.txtRechnungAnUIDNr._TimeOnly_Seconds = False + Me.txtRechnungAnUIDNr._value = Nothing + Me.txtRechnungAnUIDNr._Waehrung = False + Me.txtRechnungAnUIDNr._WaehrungZeichen = True + Me.txtRechnungAnUIDNr.ForeColor = System.Drawing.Color.Black + Me.txtRechnungAnUIDNr.Location = New System.Drawing.Point(506, 44) + Me.txtRechnungAnUIDNr.MaxLength = 35 + Me.txtRechnungAnUIDNr.MaxLineLength = -1 + Me.txtRechnungAnUIDNr.MaxLines_Warning = "" + Me.txtRechnungAnUIDNr.MaxLines_Warning_Label = Nothing + Me.txtRechnungAnUIDNr.Name = "txtRechnungAnUIDNr" + Me.txtRechnungAnUIDNr.Size = New System.Drawing.Size(69, 20) + Me.txtRechnungAnUIDNr.TabIndex = 13 + Me.txtRechnungAnUIDNr.TabStop = False + ' + 'txtRechnungAnBuKdNr + ' + Me.txtRechnungAnBuKdNr._DateTimeOnly = False + Me.txtRechnungAnBuKdNr._numbersOnly = False + Me.txtRechnungAnBuKdNr._numbersOnlyKommastellen = "" + Me.txtRechnungAnBuKdNr._numbersOnlyTrennzeichen = True + Me.txtRechnungAnBuKdNr._Prozent = False + Me.txtRechnungAnBuKdNr._ShortDateNew = False + Me.txtRechnungAnBuKdNr._ShortDateOnly = False + Me.txtRechnungAnBuKdNr._TimeOnly = False + Me.txtRechnungAnBuKdNr._TimeOnly_Seconds = False + Me.txtRechnungAnBuKdNr._value = Nothing + Me.txtRechnungAnBuKdNr._Waehrung = False + Me.txtRechnungAnBuKdNr._WaehrungZeichen = True + Me.txtRechnungAnBuKdNr.ForeColor = System.Drawing.Color.Black + Me.txtRechnungAnBuKdNr.Location = New System.Drawing.Point(481, 25) + Me.txtRechnungAnBuKdNr.MaxLength = 35 + Me.txtRechnungAnBuKdNr.MaxLineLength = -1 + Me.txtRechnungAnBuKdNr.MaxLines_Warning = "" + Me.txtRechnungAnBuKdNr.MaxLines_Warning_Label = Nothing + Me.txtRechnungAnBuKdNr.Name = "txtRechnungAnBuKdNr" + Me.txtRechnungAnBuKdNr.Size = New System.Drawing.Size(94, 20) + Me.txtRechnungAnBuKdNr.TabIndex = 10 + Me.txtRechnungAnBuKdNr.TabStop = False + ' + 'txtkdNrRechnungAn + ' + Me.txtkdNrRechnungAn._DateTimeOnly = False + Me.txtkdNrRechnungAn._numbersOnly = False + Me.txtkdNrRechnungAn._numbersOnlyKommastellen = "" + Me.txtkdNrRechnungAn._numbersOnlyTrennzeichen = True + Me.txtkdNrRechnungAn._Prozent = False + Me.txtkdNrRechnungAn._ShortDateNew = False + Me.txtkdNrRechnungAn._ShortDateOnly = False + Me.txtkdNrRechnungAn._TimeOnly = False + Me.txtkdNrRechnungAn._TimeOnly_Seconds = False + Me.txtkdNrRechnungAn._value = Nothing + Me.txtkdNrRechnungAn._Waehrung = False + Me.txtkdNrRechnungAn._WaehrungZeichen = True + Me.txtkdNrRechnungAn.ForeColor = System.Drawing.Color.Black + Me.txtkdNrRechnungAn.Location = New System.Drawing.Point(8, 25) + Me.txtkdNrRechnungAn.MaxLength = 35 + Me.txtkdNrRechnungAn.MaxLineLength = -1 + Me.txtkdNrRechnungAn.MaxLines_Warning = "" + Me.txtkdNrRechnungAn.MaxLines_Warning_Label = Nothing + Me.txtkdNrRechnungAn.Name = "txtkdNrRechnungAn" + Me.txtkdNrRechnungAn.Size = New System.Drawing.Size(94, 20) + Me.txtkdNrRechnungAn.TabIndex = 3 + Me.txtkdNrRechnungAn.TabStop = False + ' + 'txtRechnungAnOrt + ' + Me.txtRechnungAnOrt._DateTimeOnly = False + Me.txtRechnungAnOrt._numbersOnly = False + Me.txtRechnungAnOrt._numbersOnlyKommastellen = "" + Me.txtRechnungAnOrt._numbersOnlyTrennzeichen = True + Me.txtRechnungAnOrt._Prozent = False + Me.txtRechnungAnOrt._ShortDateNew = False + Me.txtRechnungAnOrt._ShortDateOnly = False + Me.txtRechnungAnOrt._TimeOnly = False + Me.txtRechnungAnOrt._TimeOnly_Seconds = False + Me.txtRechnungAnOrt._value = Nothing + Me.txtRechnungAnOrt._Waehrung = False + Me.txtRechnungAnOrt._WaehrungZeichen = True + Me.txtRechnungAnOrt.ForeColor = System.Drawing.Color.Black + Me.txtRechnungAnOrt.Location = New System.Drawing.Point(101, 101) + Me.txtRechnungAnOrt.MaxLength = 52 + Me.txtRechnungAnOrt.MaxLineLength = -1 + Me.txtRechnungAnOrt.MaxLines_Warning = "" + Me.txtRechnungAnOrt.MaxLines_Warning_Label = Nothing + Me.txtRechnungAnOrt.Name = "txtRechnungAnOrt" + Me.txtRechnungAnOrt.Size = New System.Drawing.Size(306, 20) + Me.txtRechnungAnOrt.TabIndex = 17 + Me.txtRechnungAnOrt.TabStop = False + ' + 'txtRechnungAnStrasse + ' + Me.txtRechnungAnStrasse._DateTimeOnly = False + Me.txtRechnungAnStrasse._numbersOnly = False + Me.txtRechnungAnStrasse._numbersOnlyKommastellen = "" + Me.txtRechnungAnStrasse._numbersOnlyTrennzeichen = True + Me.txtRechnungAnStrasse._Prozent = False + Me.txtRechnungAnStrasse._ShortDateNew = False + Me.txtRechnungAnStrasse._ShortDateOnly = False + Me.txtRechnungAnStrasse._TimeOnly = False + Me.txtRechnungAnStrasse._TimeOnly_Seconds = False + Me.txtRechnungAnStrasse._value = Nothing + Me.txtRechnungAnStrasse._Waehrung = False + Me.txtRechnungAnStrasse._WaehrungZeichen = True + Me.txtRechnungAnStrasse.ForeColor = System.Drawing.Color.Black + Me.txtRechnungAnStrasse.Location = New System.Drawing.Point(101, 82) + Me.txtRechnungAnStrasse.MaxLength = 40 + Me.txtRechnungAnStrasse.MaxLineLength = -1 + Me.txtRechnungAnStrasse.MaxLines_Warning = "" + Me.txtRechnungAnStrasse.MaxLines_Warning_Label = Nothing + Me.txtRechnungAnStrasse.Name = "txtRechnungAnStrasse" + Me.txtRechnungAnStrasse.Size = New System.Drawing.Size(306, 20) + Me.txtRechnungAnStrasse.TabIndex = 14 + Me.txtRechnungAnStrasse.TabStop = False + ' + 'txtkdNrAbsender + ' + Me.txtkdNrAbsender._DateTimeOnly = False + Me.txtkdNrAbsender._numbersOnly = False + Me.txtkdNrAbsender._numbersOnlyKommastellen = "" + Me.txtkdNrAbsender._numbersOnlyTrennzeichen = True + Me.txtkdNrAbsender._Prozent = False + Me.txtkdNrAbsender._ShortDateNew = False + Me.txtkdNrAbsender._ShortDateOnly = False + Me.txtkdNrAbsender._TimeOnly = False + Me.txtkdNrAbsender._TimeOnly_Seconds = False + Me.txtkdNrAbsender._value = Nothing + Me.txtkdNrAbsender._Waehrung = False + Me.txtkdNrAbsender._WaehrungZeichen = True + Me.txtkdNrAbsender.BackColor = System.Drawing.Color.WhiteSmoke + Me.txtkdNrAbsender.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.txtkdNrAbsender.ForeColor = System.Drawing.Color.Black + Me.txtkdNrAbsender.Location = New System.Drawing.Point(8, 26) + Me.txtkdNrAbsender.MaxLength = 35 + Me.txtkdNrAbsender.MaxLineLength = -1 + Me.txtkdNrAbsender.MaxLines_Warning = "" + Me.txtkdNrAbsender.MaxLines_Warning_Label = Nothing + Me.txtkdNrAbsender.Name = "txtkdNrAbsender" + Me.txtkdNrAbsender.ReadOnly = True + Me.txtkdNrAbsender.Size = New System.Drawing.Size(94, 13) + Me.txtkdNrAbsender.TabIndex = 1 + Me.txtkdNrAbsender.TabStop = False + ' + 'kdFirmaAbsender + ' + Me.kdFirmaAbsender._AlleFirmenCLUSTER = False + Me.kdFirmaAbsender._AllowSetValue = True + Me.kdFirmaAbsender._autoSizeGross = False + Me.kdFirmaAbsender._display_Name1 = True + Me.kdFirmaAbsender._displayAVISO_Email = False + Me.kdFirmaAbsender._displayFullName = False + Me.kdFirmaAbsender._displayWoelflKd = False + Me.kdFirmaAbsender._hideIfListEmpty = True + Me.kdFirmaAbsender._loadKdData = True + Me.kdFirmaAbsender._searchName1 = True + Me.kdFirmaAbsender._UseFIRMA = "" + Me.kdFirmaAbsender._ValueKdAndName = False + Me.kdFirmaAbsender.BackColor = System.Drawing.Color.White + Me.kdFirmaAbsender.dgvpos = "LEFT" + Me.kdFirmaAbsender.KdName = Nothing + Me.kdFirmaAbsender.KdNr = "-1" + Me.kdFirmaAbsender.kdNrField = Nothing + Me.kdFirmaAbsender.KdNrNullInt = Nothing + Me.kdFirmaAbsender.Location = New System.Drawing.Point(101, 3) + Me.kdFirmaAbsender.MaxLength = 35 + Me.kdFirmaAbsender.Name = "kdFirmaAbsender" + Me.kdFirmaAbsender.nurAktive = True + Me.kdFirmaAbsender.searchActive = True + Me.kdFirmaAbsender.Size = New System.Drawing.Size(283, 20) + Me.kdFirmaAbsender.TabIndex = 3 + Me.kdFirmaAbsender.TabStop = False + Me.kdFirmaAbsender.TIMER_SEARCH = True + Me.kdFirmaAbsender.usrcntl = Nothing + ' + 'txtAbsenderName2 + ' + Me.txtAbsenderName2._DateTimeOnly = False + Me.txtAbsenderName2._numbersOnly = False + Me.txtAbsenderName2._numbersOnlyKommastellen = "" + Me.txtAbsenderName2._numbersOnlyTrennzeichen = True + Me.txtAbsenderName2._Prozent = False + Me.txtAbsenderName2._ShortDateNew = False + Me.txtAbsenderName2._ShortDateOnly = False + Me.txtAbsenderName2._TimeOnly = False + Me.txtAbsenderName2._TimeOnly_Seconds = False + Me.txtAbsenderName2._value = Nothing + Me.txtAbsenderName2._Waehrung = False + Me.txtAbsenderName2._WaehrungZeichen = True + Me.txtAbsenderName2.BackColor = System.Drawing.Color.WhiteSmoke + Me.txtAbsenderName2.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.txtAbsenderName2.ForeColor = System.Drawing.Color.Black + Me.txtAbsenderName2.Location = New System.Drawing.Point(101, 26) + Me.txtAbsenderName2.MaxLength = 35 + Me.txtAbsenderName2.MaxLineLength = -1 + Me.txtAbsenderName2.MaxLines_Warning = "" + Me.txtAbsenderName2.MaxLines_Warning_Label = Nothing + Me.txtAbsenderName2.Name = "txtAbsenderName2" + Me.txtAbsenderName2.Size = New System.Drawing.Size(305, 13) + Me.txtAbsenderName2.TabIndex = 4 + Me.txtAbsenderName2.TabStop = False + ' + 'txtAbsenderOrt + ' + Me.txtAbsenderOrt._DateTimeOnly = False + Me.txtAbsenderOrt._numbersOnly = False + Me.txtAbsenderOrt._numbersOnlyKommastellen = "" + Me.txtAbsenderOrt._numbersOnlyTrennzeichen = True + Me.txtAbsenderOrt._Prozent = False + Me.txtAbsenderOrt._ShortDateNew = False + Me.txtAbsenderOrt._ShortDateOnly = False + Me.txtAbsenderOrt._TimeOnly = False + Me.txtAbsenderOrt._TimeOnly_Seconds = False + Me.txtAbsenderOrt._value = Nothing + Me.txtAbsenderOrt._Waehrung = False + Me.txtAbsenderOrt._WaehrungZeichen = True + Me.txtAbsenderOrt.BackColor = System.Drawing.Color.WhiteSmoke + Me.txtAbsenderOrt.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.txtAbsenderOrt.ForeColor = System.Drawing.Color.Black + Me.txtAbsenderOrt.Location = New System.Drawing.Point(101, 54) + Me.txtAbsenderOrt.MaxLength = 35 + Me.txtAbsenderOrt.MaxLineLength = -1 + Me.txtAbsenderOrt.MaxLines_Warning = "" + Me.txtAbsenderOrt.MaxLines_Warning_Label = Nothing + Me.txtAbsenderOrt.Name = "txtAbsenderOrt" + Me.txtAbsenderOrt.Size = New System.Drawing.Size(305, 13) + Me.txtAbsenderOrt.TabIndex = 7 + Me.txtAbsenderOrt.TabStop = False + ' + 'txtAbsenderStrasse + ' + Me.txtAbsenderStrasse._DateTimeOnly = False + Me.txtAbsenderStrasse._numbersOnly = False + Me.txtAbsenderStrasse._numbersOnlyKommastellen = "" + Me.txtAbsenderStrasse._numbersOnlyTrennzeichen = True + Me.txtAbsenderStrasse._Prozent = False + Me.txtAbsenderStrasse._ShortDateNew = False + Me.txtAbsenderStrasse._ShortDateOnly = False + Me.txtAbsenderStrasse._TimeOnly = False + Me.txtAbsenderStrasse._TimeOnly_Seconds = False + Me.txtAbsenderStrasse._value = Nothing + Me.txtAbsenderStrasse._Waehrung = False + Me.txtAbsenderStrasse._WaehrungZeichen = True + Me.txtAbsenderStrasse.BackColor = System.Drawing.Color.WhiteSmoke + Me.txtAbsenderStrasse.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.txtAbsenderStrasse.ForeColor = System.Drawing.Color.Black + Me.txtAbsenderStrasse.Location = New System.Drawing.Point(101, 40) + Me.txtAbsenderStrasse.MaxLength = 35 + Me.txtAbsenderStrasse.MaxLineLength = -1 + Me.txtAbsenderStrasse.MaxLines_Warning = "" + Me.txtAbsenderStrasse.MaxLines_Warning_Label = Nothing + Me.txtAbsenderStrasse.Name = "txtAbsenderStrasse" + Me.txtAbsenderStrasse.Size = New System.Drawing.Size(305, 13) + Me.txtAbsenderStrasse.TabIndex = 6 + Me.txtAbsenderStrasse.TabStop = False + ' + 'FlatButton1 + ' + Me.FlatButton1.allowBorder = False + Me.FlatButton1.FlatAppearance.BorderSize = 0 + Me.FlatButton1.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.FlatButton1.ForeColor = System.Drawing.Color.Black + Me.FlatButton1.Image = Global.SDL.My.Resources.Resources.personInaktiv + Me.FlatButton1.Location = New System.Drawing.Point(382, 0) + Me.FlatButton1.Name = "FlatButton1" + Me.FlatButton1.Size = New System.Drawing.Size(24, 25) + Me.FlatButton1.TabIndex = 2 + Me.FlatButton1.TabStop = False + Me.FlatButton1.UseVisualStyleBackColor = True + ' + 'sbLeistung + ' + Me.sbLeistung._allowFreitext = False + Me.sbLeistung._AllowSetValue = False + Me.sbLeistung._allowSpaceAsSplitter = False + Me.sbLeistung._autoSizeGross = False + Me.sbLeistung._hideIfListEmpty = True + Me.sbLeistung._value = Nothing + Me.sbLeistung.conn_art = "FMZOLL" + Me.sbLeistung.dgvpos = "LEFT" + Me.sbLeistung.DISPLAY_PARAM = Nothing + Me.sbLeistung.INVISIBLE_COLUMNS = Nothing + Me.sbLeistung.key_visible = False + Me.sbLeistung.KEYPARAM = Nothing + Me.sbLeistung.Location = New System.Drawing.Point(623, 232) + Me.sbLeistung.Name = "sbLeistung" + Me.sbLeistung.searchActive = True + Me.sbLeistung.Size = New System.Drawing.Size(161, 20) + Me.sbLeistung.SQL_ORDER_BY = Nothing + Me.sbLeistung.SQL_SELECT = Nothing + Me.sbLeistung.SQL_WHERE = Nothing + Me.sbLeistung.SQL_WhereParamList = Nothing + Me.sbLeistung.TabIndex = 14 + Me.sbLeistung.usrcntl = Nothing + ' + 'txtUnterNrRef + ' + Me.txtUnterNrRef._DateTimeOnly = False + Me.txtUnterNrRef._numbersOnly = False + Me.txtUnterNrRef._numbersOnlyKommastellen = "" + Me.txtUnterNrRef._numbersOnlyTrennzeichen = True + Me.txtUnterNrRef._Prozent = False + Me.txtUnterNrRef._ShortDateNew = False + Me.txtUnterNrRef._ShortDateOnly = False + Me.txtUnterNrRef._TimeOnly = False + Me.txtUnterNrRef._TimeOnly_Seconds = False + Me.txtUnterNrRef._value = Nothing + Me.txtUnterNrRef._Waehrung = False + Me.txtUnterNrRef._WaehrungZeichen = True + Me.txtUnterNrRef.Font = New System.Drawing.Font("Microsoft Tai Le", 8.0!) + Me.txtUnterNrRef.Location = New System.Drawing.Point(536, 69) + Me.txtUnterNrRef.MaxLineLength = -1 + Me.txtUnterNrRef.MaxLines_Warning = "" + Me.txtUnterNrRef.MaxLines_Warning_Label = Nothing + Me.txtUnterNrRef.Name = "txtUnterNrRef" + Me.txtUnterNrRef.Size = New System.Drawing.Size(39, 21) + Me.txtUnterNrRef.TabIndex = 8 + Me.txtUnterNrRef.Visible = False + ' + 'cboFilialeRef + ' + Me.cboFilialeRef._allowedValuesFreiText = Nothing + Me.cboFilialeRef._allowFreiText = False + Me.cboFilialeRef._value = "" + Me.cboFilialeRef.DropDownWidth = 280 + Me.cboFilialeRef.Font = New System.Drawing.Font("Microsoft Tai Le", 8.0!) + Me.cboFilialeRef.FormattingEnabled = True + Me.cboFilialeRef.Location = New System.Drawing.Point(289, 68) + Me.cboFilialeRef.Name = "cboFilialeRef" + Me.cboFilialeRef.Size = New System.Drawing.Size(80, 22) + Me.cboFilialeRef.TabIndex = 6 + Me.cboFilialeRef.Visible = False + ' + 'txtAbfertigungsnummerRef + ' + Me.txtAbfertigungsnummerRef._DateTimeOnly = False + Me.txtAbfertigungsnummerRef._numbersOnly = False + Me.txtAbfertigungsnummerRef._numbersOnlyKommastellen = "" + Me.txtAbfertigungsnummerRef._numbersOnlyTrennzeichen = True + Me.txtAbfertigungsnummerRef._Prozent = False + Me.txtAbfertigungsnummerRef._ShortDateNew = False + Me.txtAbfertigungsnummerRef._ShortDateOnly = False + Me.txtAbfertigungsnummerRef._TimeOnly = False + Me.txtAbfertigungsnummerRef._TimeOnly_Seconds = False + Me.txtAbfertigungsnummerRef._value = Nothing + Me.txtAbfertigungsnummerRef._Waehrung = False + Me.txtAbfertigungsnummerRef._WaehrungZeichen = True + Me.txtAbfertigungsnummerRef.Font = New System.Drawing.Font("Microsoft Tai Le", 8.0!) + Me.txtAbfertigungsnummerRef.Location = New System.Drawing.Point(368, 69) + Me.txtAbfertigungsnummerRef.MaxLineLength = -1 + Me.txtAbfertigungsnummerRef.MaxLines_Warning = "" + Me.txtAbfertigungsnummerRef.MaxLines_Warning_Label = Nothing + Me.txtAbfertigungsnummerRef.Name = "txtAbfertigungsnummerRef" + Me.txtAbfertigungsnummerRef.Size = New System.Drawing.Size(169, 21) + Me.txtAbfertigungsnummerRef.TabIndex = 7 + Me.txtAbfertigungsnummerRef.Visible = False + ' + 'dgvRechnungenPositionen + ' + Me.dgvRechnungenPositionen.AKTUALISIERUNGS_INTERVALL = -1 + Me.dgvRechnungenPositionen.AllowUserToAddRows = False + Me.dgvRechnungenPositionen.AllowUserToDeleteRows = False + Me.dgvRechnungenPositionen.AllowUserToResizeColumns = False + Me.dgvRechnungenPositionen.AllowUserToResizeRows = False + Me.dgvRechnungenPositionen.BackgroundColor = System.Drawing.Color.White + DataGridViewCellStyle6.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle6.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle6.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle6.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle6.SelectionForeColor = System.Drawing.SystemColors.HighlightText + 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.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)) + DataGridViewCellStyle11.ForeColor = System.Drawing.SystemColors.ControlText + DataGridViewCellStyle11.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle11.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle11.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.dgvRechnungenPositionen.DefaultCellStyle = DataGridViewCellStyle11 + Me.dgvRechnungenPositionen.Location = New System.Drawing.Point(10, 258) + Me.dgvRechnungenPositionen.Name = "dgvRechnungenPositionen" + Me.dgvRechnungenPositionen.ReadOnly = True + DataGridViewCellStyle12.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle12.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle12.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle12.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle12.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle12.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle12.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvRechnungenPositionen.RowHeadersDefaultCellStyle = DataGridViewCellStyle12 + Me.dgvRechnungenPositionen.RowHeadersVisible = False + Me.dgvRechnungenPositionen.RowHeadersWidth = 62 + Me.dgvRechnungenPositionen.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect + Me.dgvRechnungenPositionen.Size = New System.Drawing.Size(811, 189) + Me.dgvRechnungenPositionen.TabIndex = 5 + Me.dgvRechnungenPositionen.TabStop = False + ' + '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 + ' + DataGridViewCellStyle7.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight + DataGridViewCellStyle7.Format = "N0" + DataGridViewCellStyle7.NullValue = Nothing + Me.Anzahl.DefaultCellStyle = DataGridViewCellStyle7 + Me.Anzahl.HeaderText = "Anzahl" + Me.Anzahl.MinimumWidth = 8 + Me.Anzahl.Name = "Anzahl" + Me.Anzahl.ReadOnly = True + Me.Anzahl.Width = 50 + ' + 'Preis + ' + DataGridViewCellStyle8.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight + DataGridViewCellStyle8.Format = "c2" + Me.Preis.DefaultCellStyle = DataGridViewCellStyle8 + Me.Preis.HeaderText = "Preis" + Me.Preis.MinimumWidth = 8 + Me.Preis.Name = "Preis" + Me.Preis.ReadOnly = True + Me.Preis.Width = 80 + ' + 'SteuerpflichtigerBetrag + ' + DataGridViewCellStyle9.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight + DataGridViewCellStyle9.Format = "c2" + Me.SteuerpflichtigerBetrag.DefaultCellStyle = DataGridViewCellStyle9 + Me.SteuerpflichtigerBetrag.HeaderText = "Steuerpfl." + Me.SteuerpflichtigerBetrag.MinimumWidth = 8 + Me.SteuerpflichtigerBetrag.Name = "SteuerpflichtigerBetrag" + Me.SteuerpflichtigerBetrag.ReadOnly = True + Me.SteuerpflichtigerBetrag.Width = 120 + ' + 'SteuerfreierBetrag + ' + DataGridViewCellStyle10.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight + DataGridViewCellStyle10.Format = "C2" + DataGridViewCellStyle10.NullValue = Nothing + Me.SteuerfreierBetrag.DefaultCellStyle = DataGridViewCellStyle10 + 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 + ' + 'dgvOfferteDetailsUebersicht + ' + Me.dgvOfferteDetailsUebersicht.AKTUALISIERUNGS_INTERVALL = -1 + Me.dgvOfferteDetailsUebersicht.AllowUserToAddRows = False + Me.dgvOfferteDetailsUebersicht.AllowUserToDeleteRows = False + Me.dgvOfferteDetailsUebersicht.AllowUserToOrderColumns = True + Me.dgvOfferteDetailsUebersicht.AllowUserToResizeRows = False + DataGridViewCellStyle17.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.dgvOfferteDetailsUebersicht.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle17 + Me.dgvOfferteDetailsUebersicht.BackgroundColor = System.Drawing.Color.White + Me.dgvOfferteDetailsUebersicht.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D + DataGridViewCellStyle18.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle18.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle18.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle18.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle18.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle18.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle18.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvOfferteDetailsUebersicht.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle18 + Me.dgvOfferteDetailsUebersicht.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + DataGridViewCellStyle19.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle19.BackColor = System.Drawing.SystemColors.Window + DataGridViewCellStyle19.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle19.ForeColor = System.Drawing.SystemColors.ControlText + DataGridViewCellStyle19.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle19.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle19.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.dgvOfferteDetailsUebersicht.DefaultCellStyle = DataGridViewCellStyle19 + Me.dgvOfferteDetailsUebersicht.Location = New System.Drawing.Point(220, 29) + Me.dgvOfferteDetailsUebersicht.MultiSelect = False + Me.dgvOfferteDetailsUebersicht.Name = "dgvOfferteDetailsUebersicht" + DataGridViewCellStyle20.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle20.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle20.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle20.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle20.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle20.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle20.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvOfferteDetailsUebersicht.RowHeadersDefaultCellStyle = DataGridViewCellStyle20 + Me.dgvOfferteDetailsUebersicht.RowHeadersVisible = False + Me.dgvOfferteDetailsUebersicht.RowHeadersWidth = 62 + DataGridViewCellStyle21.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle21.SelectionBackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(240, Byte), Integer), CType(CType(240, Byte), Integer)) + DataGridViewCellStyle21.SelectionForeColor = System.Drawing.Color.Black + Me.dgvOfferteDetailsUebersicht.RowsDefaultCellStyle = DataGridViewCellStyle21 + Me.dgvOfferteDetailsUebersicht.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect + Me.dgvOfferteDetailsUebersicht.Size = New System.Drawing.Size(601, 201) + Me.dgvOfferteDetailsUebersicht.TabIndex = 3 + ' + 'txtRohmasse + ' + Me.txtRohmasse._DateTimeOnly = False + Me.txtRohmasse._numbersOnly = False + Me.txtRohmasse._numbersOnlyKommastellen = "" + Me.txtRohmasse._numbersOnlyTrennzeichen = True + Me.txtRohmasse._Prozent = False + Me.txtRohmasse._ShortDateNew = False + Me.txtRohmasse._ShortDateOnly = False + Me.txtRohmasse._TimeOnly = False + Me.txtRohmasse._TimeOnly_Seconds = False + Me.txtRohmasse._value = Nothing + Me.txtRohmasse._Waehrung = False + Me.txtRohmasse._WaehrungZeichen = True + Me.txtRohmasse.ForeColor = System.Drawing.Color.Black + Me.txtRohmasse.Location = New System.Drawing.Point(370, 115) + Me.txtRohmasse.MaxLength = 35 + Me.txtRohmasse.MaxLineLength = -1 + Me.txtRohmasse.MaxLines_Warning = "" + Me.txtRohmasse.MaxLines_Warning_Label = Nothing + Me.txtRohmasse.Name = "txtRohmasse" + Me.txtRohmasse.Size = New System.Drawing.Size(305, 20) + Me.txtRohmasse.TabIndex = 24 + Me.txtRohmasse.Visible = False + ' + 'cboWaehrung + ' + Me.cboWaehrung._allowedValuesFreiText = Nothing + Me.cboWaehrung._allowFreiText = False + Me.cboWaehrung._value = "" + Me.cboWaehrung.FormattingEnabled = True + Me.cboWaehrung.Location = New System.Drawing.Point(517, 177) + Me.cboWaehrung.Name = "cboWaehrung" + Me.cboWaehrung.Size = New System.Drawing.Size(47, 21) + Me.cboWaehrung.TabIndex = 14 + ' + 'cboWaehrungUmrechnung + ' + Me.cboWaehrungUmrechnung._allowedValuesFreiText = Nothing + Me.cboWaehrungUmrechnung._allowFreiText = False + Me.cboWaehrungUmrechnung._value = "" + Me.cboWaehrungUmrechnung.Enabled = False + Me.cboWaehrungUmrechnung.FormattingEnabled = True + Me.cboWaehrungUmrechnung.Location = New System.Drawing.Point(517, 196) + Me.cboWaehrungUmrechnung.Name = "cboWaehrungUmrechnung" + Me.cboWaehrungUmrechnung.Size = New System.Drawing.Size(47, 21) + Me.cboWaehrungUmrechnung.TabIndex = 17 + ' + 'txtkdNrEmpfaenger + ' + Me.txtkdNrEmpfaenger._DateTimeOnly = False + Me.txtkdNrEmpfaenger._numbersOnly = False + Me.txtkdNrEmpfaenger._numbersOnlyKommastellen = "" + Me.txtkdNrEmpfaenger._numbersOnlyTrennzeichen = True + Me.txtkdNrEmpfaenger._Prozent = False + Me.txtkdNrEmpfaenger._ShortDateNew = False + Me.txtkdNrEmpfaenger._ShortDateOnly = False + Me.txtkdNrEmpfaenger._TimeOnly = False + Me.txtkdNrEmpfaenger._TimeOnly_Seconds = False + Me.txtkdNrEmpfaenger._value = Nothing + Me.txtkdNrEmpfaenger._Waehrung = False + Me.txtkdNrEmpfaenger._WaehrungZeichen = True + Me.txtkdNrEmpfaenger.BackColor = System.Drawing.Color.WhiteSmoke + Me.txtkdNrEmpfaenger.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.txtkdNrEmpfaenger.ForeColor = System.Drawing.Color.Black + Me.txtkdNrEmpfaenger.Location = New System.Drawing.Point(8, 26) + Me.txtkdNrEmpfaenger.MaxLength = 35 + Me.txtkdNrEmpfaenger.MaxLineLength = -1 + Me.txtkdNrEmpfaenger.MaxLines_Warning = "" + Me.txtkdNrEmpfaenger.MaxLines_Warning_Label = Nothing + Me.txtkdNrEmpfaenger.Name = "txtkdNrEmpfaenger" + Me.txtkdNrEmpfaenger.ReadOnly = True + Me.txtkdNrEmpfaenger.Size = New System.Drawing.Size(94, 13) + Me.txtkdNrEmpfaenger.TabIndex = 1 + Me.txtkdNrEmpfaenger.TabStop = False + ' + 'txtEmpfeangerName2 + ' + Me.txtEmpfeangerName2._DateTimeOnly = False + Me.txtEmpfeangerName2._numbersOnly = False + Me.txtEmpfeangerName2._numbersOnlyKommastellen = "" + Me.txtEmpfeangerName2._numbersOnlyTrennzeichen = True + Me.txtEmpfeangerName2._Prozent = False + Me.txtEmpfeangerName2._ShortDateNew = False + Me.txtEmpfeangerName2._ShortDateOnly = False + Me.txtEmpfeangerName2._TimeOnly = False + Me.txtEmpfeangerName2._TimeOnly_Seconds = False + Me.txtEmpfeangerName2._value = Nothing + Me.txtEmpfeangerName2._Waehrung = False + Me.txtEmpfeangerName2._WaehrungZeichen = True + Me.txtEmpfeangerName2.BackColor = System.Drawing.Color.WhiteSmoke + Me.txtEmpfeangerName2.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.txtEmpfeangerName2.ForeColor = System.Drawing.Color.Black + Me.txtEmpfeangerName2.Location = New System.Drawing.Point(101, 26) + Me.txtEmpfeangerName2.MaxLength = 35 + Me.txtEmpfeangerName2.MaxLineLength = -1 + Me.txtEmpfeangerName2.MaxLines_Warning = "" + Me.txtEmpfeangerName2.MaxLines_Warning_Label = Nothing + Me.txtEmpfeangerName2.Name = "txtEmpfeangerName2" + Me.txtEmpfeangerName2.Size = New System.Drawing.Size(305, 13) + Me.txtEmpfeangerName2.TabIndex = 4 + Me.txtEmpfeangerName2.TabStop = False + ' + 'txtEmpfaengerOrt + ' + Me.txtEmpfaengerOrt._DateTimeOnly = False + Me.txtEmpfaengerOrt._numbersOnly = False + Me.txtEmpfaengerOrt._numbersOnlyKommastellen = "" + Me.txtEmpfaengerOrt._numbersOnlyTrennzeichen = True + Me.txtEmpfaengerOrt._Prozent = False + Me.txtEmpfaengerOrt._ShortDateNew = False + Me.txtEmpfaengerOrt._ShortDateOnly = False + Me.txtEmpfaengerOrt._TimeOnly = False + Me.txtEmpfaengerOrt._TimeOnly_Seconds = False + Me.txtEmpfaengerOrt._value = Nothing + Me.txtEmpfaengerOrt._Waehrung = False + Me.txtEmpfaengerOrt._WaehrungZeichen = True + Me.txtEmpfaengerOrt.BackColor = System.Drawing.Color.WhiteSmoke + Me.txtEmpfaengerOrt.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.txtEmpfaengerOrt.ForeColor = System.Drawing.Color.Black + Me.txtEmpfaengerOrt.Location = New System.Drawing.Point(101, 54) + Me.txtEmpfaengerOrt.MaxLength = 35 + Me.txtEmpfaengerOrt.MaxLineLength = -1 + Me.txtEmpfaengerOrt.MaxLines_Warning = "" + Me.txtEmpfaengerOrt.MaxLines_Warning_Label = Nothing + Me.txtEmpfaengerOrt.Name = "txtEmpfaengerOrt" + Me.txtEmpfaengerOrt.Size = New System.Drawing.Size(305, 13) + Me.txtEmpfaengerOrt.TabIndex = 7 + Me.txtEmpfaengerOrt.TabStop = False + ' + 'txtEmpfaengerStrasse + ' + Me.txtEmpfaengerStrasse._DateTimeOnly = False + Me.txtEmpfaengerStrasse._numbersOnly = False + Me.txtEmpfaengerStrasse._numbersOnlyKommastellen = "" + Me.txtEmpfaengerStrasse._numbersOnlyTrennzeichen = True + Me.txtEmpfaengerStrasse._Prozent = False + Me.txtEmpfaengerStrasse._ShortDateNew = False + Me.txtEmpfaengerStrasse._ShortDateOnly = False + Me.txtEmpfaengerStrasse._TimeOnly = False + Me.txtEmpfaengerStrasse._TimeOnly_Seconds = False + Me.txtEmpfaengerStrasse._value = Nothing + Me.txtEmpfaengerStrasse._Waehrung = False + Me.txtEmpfaengerStrasse._WaehrungZeichen = True + Me.txtEmpfaengerStrasse.BackColor = System.Drawing.Color.WhiteSmoke + Me.txtEmpfaengerStrasse.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.txtEmpfaengerStrasse.ForeColor = System.Drawing.Color.Black + Me.txtEmpfaengerStrasse.Location = New System.Drawing.Point(101, 40) + Me.txtEmpfaengerStrasse.MaxLength = 35 + Me.txtEmpfaengerStrasse.MaxLineLength = -1 + Me.txtEmpfaengerStrasse.MaxLines_Warning = "" + Me.txtEmpfaengerStrasse.MaxLines_Warning_Label = Nothing + Me.txtEmpfaengerStrasse.Name = "txtEmpfaengerStrasse" + Me.txtEmpfaengerStrasse.Size = New System.Drawing.Size(305, 13) + Me.txtEmpfaengerStrasse.TabIndex = 6 + Me.txtEmpfaengerStrasse.TabStop = False + ' + 'kdFirmaEmpfaenger + ' + Me.kdFirmaEmpfaenger._AlleFirmenCLUSTER = False + Me.kdFirmaEmpfaenger._AllowSetValue = True + Me.kdFirmaEmpfaenger._autoSizeGross = False + Me.kdFirmaEmpfaenger._display_Name1 = True + Me.kdFirmaEmpfaenger._displayAVISO_Email = False + Me.kdFirmaEmpfaenger._displayFullName = False + Me.kdFirmaEmpfaenger._displayWoelflKd = False + Me.kdFirmaEmpfaenger._hideIfListEmpty = True + Me.kdFirmaEmpfaenger._loadKdData = True + Me.kdFirmaEmpfaenger._searchName1 = True + Me.kdFirmaEmpfaenger._UseFIRMA = "" + Me.kdFirmaEmpfaenger._ValueKdAndName = False + Me.kdFirmaEmpfaenger.BackColor = System.Drawing.Color.White + Me.kdFirmaEmpfaenger.dgvpos = "LEFT" + Me.kdFirmaEmpfaenger.KdName = Nothing + Me.kdFirmaEmpfaenger.KdNr = "-1" + Me.kdFirmaEmpfaenger.kdNrField = Nothing + Me.kdFirmaEmpfaenger.KdNrNullInt = Nothing + Me.kdFirmaEmpfaenger.Location = New System.Drawing.Point(101, 3) + Me.kdFirmaEmpfaenger.MaxLength = 35 + Me.kdFirmaEmpfaenger.Name = "kdFirmaEmpfaenger" + Me.kdFirmaEmpfaenger.nurAktive = True + Me.kdFirmaEmpfaenger.searchActive = True + Me.kdFirmaEmpfaenger.Size = New System.Drawing.Size(283, 20) + Me.kdFirmaEmpfaenger.TabIndex = 3 + Me.kdFirmaEmpfaenger.TabStop = False + Me.kdFirmaEmpfaenger.TIMER_SEARCH = True + Me.kdFirmaEmpfaenger.usrcntl = Nothing + ' + 'FlatButton2 + ' + Me.FlatButton2.allowBorder = False + Me.FlatButton2.FlatAppearance.BorderSize = 0 + Me.FlatButton2.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.FlatButton2.ForeColor = System.Drawing.Color.Black + Me.FlatButton2.Image = Global.SDL.My.Resources.Resources.personInaktiv + Me.FlatButton2.Location = New System.Drawing.Point(382, 0) + Me.FlatButton2.Name = "FlatButton2" + Me.FlatButton2.Size = New System.Drawing.Size(24, 25) + Me.FlatButton2.TabIndex = 2 + Me.FlatButton2.TabStop = False + Me.FlatButton2.UseVisualStyleBackColor = True + ' + 'cboSteuerschlüssel + ' + Me.cboSteuerschlüssel._allowedValuesFreiText = Nothing + Me.cboSteuerschlüssel._allowFreiText = False + Me.cboSteuerschlüssel._value = "" + Me.cboSteuerschlüssel.CausesValidation = False + Me.cboSteuerschlüssel.DropDownWidth = 350 + Me.cboSteuerschlüssel.FormattingEnabled = True + Me.cboSteuerschlüssel.Location = New System.Drawing.Point(463, 30) + Me.cboSteuerschlüssel.Name = "cboSteuerschlüssel" + Me.cboSteuerschlüssel.Size = New System.Drawing.Size(145, 21) + Me.cboSteuerschlüssel.TabIndex = 3 + ' + 'txtSteuersatz + ' + Me.txtSteuersatz._DateTimeOnly = False + Me.txtSteuersatz._numbersOnly = False + Me.txtSteuersatz._numbersOnlyKommastellen = "" + Me.txtSteuersatz._numbersOnlyTrennzeichen = True + Me.txtSteuersatz._Prozent = True + Me.txtSteuersatz._ShortDateNew = False + Me.txtSteuersatz._ShortDateOnly = False + Me.txtSteuersatz._TimeOnly = False + Me.txtSteuersatz._TimeOnly_Seconds = False + Me.txtSteuersatz._value = Nothing + Me.txtSteuersatz._Waehrung = False + Me.txtSteuersatz._WaehrungZeichen = True + Me.txtSteuersatz.ForeColor = System.Drawing.Color.Black + Me.txtSteuersatz.Location = New System.Drawing.Point(603, 30) + Me.txtSteuersatz.MaxLineLength = -1 + Me.txtSteuersatz.MaxLines_Warning = "" + Me.txtSteuersatz.MaxLines_Warning_Label = Nothing + Me.txtSteuersatz.Multiline = True + Me.txtSteuersatz.Name = "txtSteuersatz" + Me.txtSteuersatz.ReadOnly = True + Me.txtSteuersatz.Size = New System.Drawing.Size(61, 21) + Me.txtSteuersatz.TabIndex = 4 + Me.txtSteuersatz.Text = "0,00 %" + Me.txtSteuersatz.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + ' + 'txtSteuerFreierBetrag + ' + Me.txtSteuerFreierBetrag._DateTimeOnly = False + Me.txtSteuerFreierBetrag._numbersOnly = False + Me.txtSteuerFreierBetrag._numbersOnlyKommastellen = "" + Me.txtSteuerFreierBetrag._numbersOnlyTrennzeichen = True + Me.txtSteuerFreierBetrag._Prozent = False + Me.txtSteuerFreierBetrag._ShortDateNew = False + Me.txtSteuerFreierBetrag._ShortDateOnly = False + Me.txtSteuerFreierBetrag._TimeOnly = False + Me.txtSteuerFreierBetrag._TimeOnly_Seconds = False + Me.txtSteuerFreierBetrag._value = "" + Me.txtSteuerFreierBetrag._Waehrung = True + Me.txtSteuerFreierBetrag._WaehrungZeichen = False + Me.txtSteuerFreierBetrag.ForeColor = System.Drawing.Color.Black + Me.txtSteuerFreierBetrag.Location = New System.Drawing.Point(540, 91) + Me.txtSteuerFreierBetrag.MaxLength = 35 + Me.txtSteuerFreierBetrag.MaxLineLength = -1 + Me.txtSteuerFreierBetrag.MaxLines_Warning = "" + Me.txtSteuerFreierBetrag.MaxLines_Warning_Label = Nothing + Me.txtSteuerFreierBetrag.Name = "txtSteuerFreierBetrag" + Me.txtSteuerFreierBetrag.ReadOnly = True + Me.txtSteuerFreierBetrag.Size = New System.Drawing.Size(98, 20) + Me.txtSteuerFreierBetrag.TabIndex = 10 + Me.txtSteuerFreierBetrag.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + ' + 'txtGesamtsumme + ' + Me.txtGesamtsumme._DateTimeOnly = False + Me.txtGesamtsumme._numbersOnly = False + Me.txtGesamtsumme._numbersOnlyKommastellen = "" + Me.txtGesamtsumme._numbersOnlyTrennzeichen = True + Me.txtGesamtsumme._Prozent = False + Me.txtGesamtsumme._ShortDateNew = False + Me.txtGesamtsumme._ShortDateOnly = False + Me.txtGesamtsumme._TimeOnly = False + Me.txtGesamtsumme._TimeOnly_Seconds = False + Me.txtGesamtsumme._value = "" + Me.txtGesamtsumme._Waehrung = True + Me.txtGesamtsumme._WaehrungZeichen = False + Me.txtGesamtsumme.ForeColor = System.Drawing.Color.Black + Me.txtGesamtsumme.Location = New System.Drawing.Point(540, 114) + Me.txtGesamtsumme.MaxLength = 35 + Me.txtGesamtsumme.MaxLineLength = -1 + Me.txtGesamtsumme.MaxLines_Warning = "" + Me.txtGesamtsumme.MaxLines_Warning_Label = Nothing + Me.txtGesamtsumme.Name = "txtGesamtsumme" + Me.txtGesamtsumme.ReadOnly = True + Me.txtGesamtsumme.Size = New System.Drawing.Size(98, 20) + Me.txtGesamtsumme.TabIndex = 12 + Me.txtGesamtsumme.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + ' + 'txtSteuerBetrag + ' + Me.txtSteuerBetrag._DateTimeOnly = False + Me.txtSteuerBetrag._numbersOnly = False + Me.txtSteuerBetrag._numbersOnlyKommastellen = "" + Me.txtSteuerBetrag._numbersOnlyTrennzeichen = True + Me.txtSteuerBetrag._Prozent = False + Me.txtSteuerBetrag._ShortDateNew = False + Me.txtSteuerBetrag._ShortDateOnly = False + Me.txtSteuerBetrag._TimeOnly = False + Me.txtSteuerBetrag._TimeOnly_Seconds = False + Me.txtSteuerBetrag._value = "" + Me.txtSteuerBetrag._Waehrung = True + Me.txtSteuerBetrag._WaehrungZeichen = False + Me.txtSteuerBetrag.ForeColor = System.Drawing.Color.Black + Me.txtSteuerBetrag.Location = New System.Drawing.Point(540, 74) + Me.txtSteuerBetrag.MaxLength = 35 + Me.txtSteuerBetrag.MaxLineLength = -1 + Me.txtSteuerBetrag.MaxLines_Warning = "" + Me.txtSteuerBetrag.MaxLines_Warning_Label = Nothing + Me.txtSteuerBetrag.Name = "txtSteuerBetrag" + Me.txtSteuerBetrag.ReadOnly = True + Me.txtSteuerBetrag.Size = New System.Drawing.Size(98, 20) + Me.txtSteuerBetrag.TabIndex = 8 + Me.txtSteuerBetrag.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + ' + 'txtSteuerpflichtigerBetrag + ' + Me.txtSteuerpflichtigerBetrag._DateTimeOnly = False + Me.txtSteuerpflichtigerBetrag._numbersOnly = False + Me.txtSteuerpflichtigerBetrag._numbersOnlyKommastellen = "" + Me.txtSteuerpflichtigerBetrag._numbersOnlyTrennzeichen = True + Me.txtSteuerpflichtigerBetrag._Prozent = False + Me.txtSteuerpflichtigerBetrag._ShortDateNew = False + Me.txtSteuerpflichtigerBetrag._ShortDateOnly = False + Me.txtSteuerpflichtigerBetrag._TimeOnly = False + Me.txtSteuerpflichtigerBetrag._TimeOnly_Seconds = False + Me.txtSteuerpflichtigerBetrag._value = "" + Me.txtSteuerpflichtigerBetrag._Waehrung = True + Me.txtSteuerpflichtigerBetrag._WaehrungZeichen = False + Me.txtSteuerpflichtigerBetrag.ForeColor = System.Drawing.Color.Black + Me.txtSteuerpflichtigerBetrag.Location = New System.Drawing.Point(540, 56) + Me.txtSteuerpflichtigerBetrag.MaxLength = 35 + Me.txtSteuerpflichtigerBetrag.MaxLineLength = -1 + Me.txtSteuerpflichtigerBetrag.MaxLines_Warning = "" + Me.txtSteuerpflichtigerBetrag.MaxLines_Warning_Label = Nothing + Me.txtSteuerpflichtigerBetrag.Name = "txtSteuerpflichtigerBetrag" + Me.txtSteuerpflichtigerBetrag.ReadOnly = True + Me.txtSteuerpflichtigerBetrag.Size = New System.Drawing.Size(98, 20) + Me.txtSteuerpflichtigerBetrag.TabIndex = 6 + Me.txtSteuerpflichtigerBetrag.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + ' + 'txtBesonderheiten + ' + Me.txtBesonderheiten.Location = New System.Drawing.Point(9, 17) + Me.txtBesonderheiten.MaxLineLength = -1 + Me.txtBesonderheiten.MaxLines_Warning = "" + Me.txtBesonderheiten.MaxLines_Warning_Label = Nothing + Me.txtBesonderheiten.Name = "txtBesonderheiten" + Me.txtBesonderheiten.Size = New System.Drawing.Size(405, 131) + Me.txtBesonderheiten.TabIndex = 1 + Me.txtBesonderheiten.Text = "" + ' + 'cboRgGS + ' + Me.cboRgGS._allowedValuesFreiText = Nothing + Me.cboRgGS._allowFreiText = False + Me.cboRgGS._value = "" + Me.cboRgGS.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.cboRgGS.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.cboRgGS.Font = New System.Drawing.Font("Microsoft Sans Serif", 16.0!, System.Drawing.FontStyle.Bold) + Me.cboRgGS.ForeColor = System.Drawing.Color.White + Me.cboRgGS.FormattingEnabled = True + Me.cboRgGS.Items.AddRange(New Object() {"Rechnung", "Gutschrift"}) + Me.cboRgGS.Location = New System.Drawing.Point(3, -1) + Me.cboRgGS.Name = "cboRgGS" + Me.cboRgGS.Size = New System.Drawing.Size(211, 33) + Me.cboRgGS.TabIndex = 26 + Me.cboRgGS.Text = "Rechnung" + ' + 'cboSpedBuchUnterNr + ' + Me.cboSpedBuchUnterNr._allowedValuesFreiText = Nothing + Me.cboSpedBuchUnterNr._allowFreiText = False + Me.cboSpedBuchUnterNr._value = "" + Me.cboSpedBuchUnterNr.DropDownWidth = 350 + Me.cboSpedBuchUnterNr.FormattingEnabled = True + Me.cboSpedBuchUnterNr.Location = New System.Drawing.Point(255, 48) + Me.cboSpedBuchUnterNr.Margin = New System.Windows.Forms.Padding(2) + Me.cboSpedBuchUnterNr.Name = "cboSpedBuchUnterNr" + Me.cboSpedBuchUnterNr.Size = New System.Drawing.Size(71, 21) + Me.cboSpedBuchUnterNr.TabIndex = 5 + ' + 'txtUnterNr + ' + Me.txtUnterNr._DateTimeOnly = False + Me.txtUnterNr._numbersOnly = False + Me.txtUnterNr._numbersOnlyKommastellen = "" + Me.txtUnterNr._numbersOnlyTrennzeichen = True + Me.txtUnterNr._Prozent = False + Me.txtUnterNr._ShortDateNew = False + Me.txtUnterNr._ShortDateOnly = False + Me.txtUnterNr._TimeOnly = False + Me.txtUnterNr._TimeOnly_Seconds = False + Me.txtUnterNr._value = Nothing + Me.txtUnterNr._Waehrung = False + Me.txtUnterNr._WaehrungZeichen = True + Me.txtUnterNr.Font = New System.Drawing.Font("Microsoft Tai Le", 8.0!) + Me.txtUnterNr.Location = New System.Drawing.Point(417, 48) + Me.txtUnterNr.MaxLineLength = -1 + Me.txtUnterNr.MaxLines_Warning = "" + Me.txtUnterNr.MaxLines_Warning_Label = Nothing + Me.txtUnterNr.Name = "txtUnterNr" + Me.txtUnterNr.ReadOnly = True + Me.txtUnterNr.Size = New System.Drawing.Size(55, 21) + Me.txtUnterNr.TabIndex = 7 + ' + 'cboFiliale + ' + Me.cboFiliale._allowedValuesFreiText = Nothing + Me.cboFiliale._allowFreiText = False + Me.cboFiliale._value = "" + Me.cboFiliale.DropDownWidth = 280 + Me.cboFiliale.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cboFiliale.FormattingEnabled = True + Me.cboFiliale.Location = New System.Drawing.Point(8, 48) + Me.cboFiliale.Name = "cboFiliale" + Me.cboFiliale.Size = New System.Drawing.Size(80, 21) + Me.cboFiliale.TabIndex = 3 + ' + 'txtAbfertigungsnummer + ' + Me.txtAbfertigungsnummer._DateTimeOnly = False + Me.txtAbfertigungsnummer._numbersOnly = True + Me.txtAbfertigungsnummer._numbersOnlyKommastellen = "" + Me.txtAbfertigungsnummer._numbersOnlyTrennzeichen = True + Me.txtAbfertigungsnummer._Prozent = False + Me.txtAbfertigungsnummer._ShortDateNew = False + Me.txtAbfertigungsnummer._ShortDateOnly = False + Me.txtAbfertigungsnummer._TimeOnly = False + Me.txtAbfertigungsnummer._TimeOnly_Seconds = False + Me.txtAbfertigungsnummer._value = "" + Me.txtAbfertigungsnummer._Waehrung = False + Me.txtAbfertigungsnummer._WaehrungZeichen = True + Me.txtAbfertigungsnummer.Font = New System.Drawing.Font("Microsoft Tai Le", 8.0!) + Me.txtAbfertigungsnummer.Location = New System.Drawing.Point(87, 48) + Me.txtAbfertigungsnummer.MaxLength = 8 + Me.txtAbfertigungsnummer.MaxLineLength = -1 + Me.txtAbfertigungsnummer.MaxLines_Warning = "" + Me.txtAbfertigungsnummer.MaxLines_Warning_Label = Nothing + Me.txtAbfertigungsnummer.Name = "txtAbfertigungsnummer" + Me.txtAbfertigungsnummer.Size = New System.Drawing.Size(169, 21) + Me.txtAbfertigungsnummer.TabIndex = 4 + ' + '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 + ' 'usrCntlFaktAbrechnung ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) @@ -4073,7 +4074,6 @@ Partial Class usrCntlFaktAbrechnung Me.Panel1.ResumeLayout(False) Me.Panel1.PerformLayout() Me.ContextMenuStrip3.ResumeLayout(False) - CType(Me.dgvAnhaenge, System.ComponentModel.ISupportInitialize).EndInit() Me.Panel2.ResumeLayout(False) Me.Panel2.PerformLayout() Me.pnlAvisierer.ResumeLayout(False) @@ -4090,9 +4090,7 @@ Partial Class usrCntlFaktAbrechnung Me.Panel7.ResumeLayout(False) Me.Panel7.PerformLayout() CType(Me.picVK, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.dgvRechnungenPositionen, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.dgvOffertenSperrliste, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.dgvOfferteDetailsUebersicht, System.ComponentModel.ISupportInitialize).EndInit() Me.pnlEmpfaenger.ResumeLayout(False) Me.pnlEmpfaenger.PerformLayout() Me.pnl.ResumeLayout(False) @@ -4104,6 +4102,9 @@ Partial Class usrCntlFaktAbrechnung Me.CntxtAbfArt.ResumeLayout(False) Me.ContextMenuStrip1.ResumeLayout(False) Me.ContextMenuStrip2.ResumeLayout(False) + CType(Me.dgvAnhaenge, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.dgvRechnungenPositionen, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.dgvOfferteDetailsUebersicht, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) End Sub diff --git a/SDL/My Project/AssemblyInfo.vb b/SDL/My Project/AssemblyInfo.vb index f2d0a19d..6d7422b7 100644 --- a/SDL/My Project/AssemblyInfo.vb +++ b/SDL/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + + diff --git a/SDL/buchhaltung/frmBU_Mahnlauf.vb b/SDL/buchhaltung/frmBU_Mahnlauf.vb index e9c25687..de7cd9d9 100644 --- a/SDL/buchhaltung/frmBU_Mahnlauf.vb +++ b/SDL/buchhaltung/frmBU_Mahnlauf.vb @@ -570,16 +570,16 @@ Public Class frmBU_Mahnlauf rpt.txtLeistung.Text = cFakturierung.checkNull(rpt.Fields.Item("OP_Typ").Value) rpt.Label15.Text = cFakturierung.checkNull(rpt.Fields.Item("Rechnungsdatum").Value) - If Not Firma_ID = 19 Then - If (CDate(rpt.Fields.Item("Faelligkeit").Value) > CDate(Now.ToShortDateString) And cFakturierung.checkNull(rpt.Fields.Item("Ausstand").Value, 0) > 0) Or cFakturierung.checkNull(rpt.Fields.Item("Ausstand").Value, 0) <= 0 Then - rpt.Label16.Text = "" - rpt.Label15.ForeColor = Color.Black - Else - rpt.Label16.Text = cFakturierung.checkNull(rpt.Fields.Item("Faelligkeit").Value) - rpt.Label15.ForeColor = Color.DarkRed - End If - Else - rpt.Label16.Text = cFakturierung.checkNull(rpt.Fields.Item("Faelligkeit").Value) + 'If Not Firma_ID = 19 Then 'Fälligkeit immer andrucken!!! + ' If (CDate(rpt.Fields.Item("Faelligkeit").Value) > CDate(Now.ToShortDateString) And cFakturierung.checkNull(rpt.Fields.Item("Ausstand").Value, 0) > 0) Or cFakturierung.checkNull(rpt.Fields.Item("Ausstand").Value, 0) <= 0 Then + ' rpt.Label16.Text = "" + ' rpt.Label15.ForeColor = Color.Black + ' Else + ' rpt.Label16.Text = cFakturierung.checkNull(rpt.Fields.Item("Faelligkeit").Value) + ' rpt.Label15.ForeColor = Color.DarkRed + ' End If + 'Else + rpt.Label16.Text = cFakturierung.checkNull(rpt.Fields.Item("Faelligkeit").Value) If (CDate(rpt.Fields.Item("Faelligkeit").Value) > CDate(Now.ToShortDateString) And cFakturierung.checkNull(rpt.Fields.Item("Ausstand").Value, 0) > 0) Or cFakturierung.checkNull(rpt.Fields.Item("Ausstand").Value, 0) <= 0 Then rpt.Label15.ForeColor = Color.Black rpt.Label16.ForeColor = Color.Black @@ -587,7 +587,7 @@ Public Class frmBU_Mahnlauf rpt.Label15.ForeColor = Color.DarkRed rpt.Label16.ForeColor = Color.DarkRed End If - End If + 'End If diff --git a/SDL/buchhaltung/usrCntlBH.vb b/SDL/buchhaltung/usrCntlBH.vb index 46bbd8aa..741dd140 100644 --- a/SDL/buchhaltung/usrCntlBH.vb +++ b/SDL/buchhaltung/usrCntlBH.vb @@ -1059,6 +1059,7 @@ Public Class usrCntlBH RG.[Währungscode] = "EUR" RG.ReErfZeitstempel = Now + RG.Vermerk = SPEDBUCH.Vermerk RG.Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME diff --git a/SDL/kunden/frmKundenblatt.Designer.vb b/SDL/kunden/frmKundenblatt.Designer.vb index 1f910f8e..bd4a1420 100644 --- a/SDL/kunden/frmKundenblatt.Designer.vb +++ b/SDL/kunden/frmKundenblatt.Designer.vb @@ -53,6 +53,7 @@ Partial Class frmKundenblatt Me.txtInfotext = New System.Windows.Forms.Label() Me.tbFirmendaten = New System.Windows.Forms.TabPage() Me.Panel4 = New System.Windows.Forms.Panel() + Me.UsrcntlKundeBearbeitenFull1 = New SDL.usrcntlKundeBearbeitenFull() Me.tbcntrMain = New System.Windows.Forms.TabControl() Me.tbAllgemein = New System.Windows.Forms.TabPage() Me.FlatButton6 = New VERAG_PROG_ALLGEMEIN.FlatButton() @@ -149,8 +150,10 @@ Partial Class frmKundenblatt Me.lblLetzterSA_SDL = New System.Windows.Forms.Label() Me.rtbVermerke = New System.Windows.Forms.RichTextBox() Me.tbSDLKarten = New System.Windows.Forms.TabPage() + Me.usrcntlKarten = New SDL.usrCntlKartenDaten() Me.tbLKW = New System.Windows.Forms.TabPage() Me.pnlLKWRight = New System.Windows.Forms.Panel() + Me.UsrCntlLKW1 = New SDL.usrCntlLKW() Me.pnlLKW = New System.Windows.Forms.Panel() Me.dgvLKW = New System.Windows.Forms.DataGridView() Me.pnlLKWBottom = New System.Windows.Forms.Panel() @@ -182,6 +185,7 @@ Partial Class frmKundenblatt Me.tbBesuchsberichte = New System.Windows.Forms.TabPage() Me.tbFremdrechnungen = New System.Windows.Forms.TabPage() Me.tbOfferte = New System.Windows.Forms.TabPage() + Me.UsrCntlOfferte1 = New SDL.usrCntlOfferte() Me.tbUSTV = New System.Windows.Forms.TabPage() Me.tbcntrUSTV = New System.Windows.Forms.TabControl() Me.tbUSTVDokumente = New System.Windows.Forms.TabPage() @@ -192,6 +196,7 @@ Partial Class frmKundenblatt Me.scanUSTVFABest = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList() Me.scanUSTVVollmachten = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList() Me.tbUSTVAntrage = New System.Windows.Forms.TabPage() + Me.UsrCntlUSTV = New SDL.usrCntlUSTV() Me.tbFIBU = New System.Windows.Forms.TabPage() Me.btn_FIBU_speichern = New System.Windows.Forms.Button() Me.lblZNB_verrechnet = New System.Windows.Forms.Label() @@ -241,11 +246,6 @@ Partial Class frmKundenblatt Me.tbiKartenverwaltung = New System.Windows.Forms.ToolStripMenuItem() Me.tbiLKW = New System.Windows.Forms.ToolStripMenuItem() Me.tbiVERAGCard = New System.Windows.Forms.ToolStripMenuItem() - Me.UsrcntlKundeBearbeitenFull1 = New SDL.usrcntlKundeBearbeitenFull() - Me.usrcntlKarten = New SDL.usrCntlKartenDaten() - Me.UsrCntlLKW1 = New SDL.usrCntlLKW() - Me.UsrCntlOfferte1 = New SDL.usrCntlOfferte() - Me.UsrCntlUSTV = New SDL.usrCntlUSTV() Me.pnlInfo.SuspendLayout() Me.tbFirmendaten.SuspendLayout() Me.Panel4.SuspendLayout() @@ -347,6 +347,16 @@ Partial Class frmKundenblatt Me.Panel4.Size = New System.Drawing.Size(1638, 922) Me.Panel4.TabIndex = 0 ' + 'UsrcntlKundeBearbeitenFull1 + ' + Me.UsrcntlKundeBearbeitenFull1.BackColor = System.Drawing.Color.White + Me.UsrcntlKundeBearbeitenFull1.Dock = System.Windows.Forms.DockStyle.Fill + Me.UsrcntlKundeBearbeitenFull1.Location = New System.Drawing.Point(0, 0) + Me.UsrcntlKundeBearbeitenFull1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.UsrcntlKundeBearbeitenFull1.Name = "UsrcntlKundeBearbeitenFull1" + Me.UsrcntlKundeBearbeitenFull1.Size = New System.Drawing.Size(1638, 922) + Me.UsrcntlKundeBearbeitenFull1.TabIndex = 0 + ' 'tbcntrMain ' Me.tbcntrMain.Appearance = System.Windows.Forms.TabAppearance.FlatButtons @@ -1758,11 +1768,21 @@ Partial Class frmKundenblatt Me.tbSDLKarten.Location = New System.Drawing.Point(4, 22) Me.tbSDLKarten.Name = "tbSDLKarten" Me.tbSDLKarten.Padding = New System.Windows.Forms.Padding(3) - Me.tbSDLKarten.Size = New System.Drawing.Size(1630, 896) + Me.tbSDLKarten.Size = New System.Drawing.Size(178, 39) Me.tbSDLKarten.TabIndex = 7 Me.tbSDLKarten.Text = "SDL-Kartenverwaltung" Me.tbSDLKarten.UseVisualStyleBackColor = True ' + 'usrcntlKarten + ' + Me.usrcntlKarten.Cursor = System.Windows.Forms.Cursors.Default + Me.usrcntlKarten.Dock = System.Windows.Forms.DockStyle.Fill + Me.usrcntlKarten.Location = New System.Drawing.Point(3, 3) + Me.usrcntlKarten.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.usrcntlKarten.Name = "usrcntlKarten" + Me.usrcntlKarten.Size = New System.Drawing.Size(172, 33) + Me.usrcntlKarten.TabIndex = 0 + ' 'tbLKW ' Me.tbLKW.Controls.Add(Me.pnlLKWRight) @@ -1770,7 +1790,7 @@ Partial Class frmKundenblatt Me.tbLKW.Location = New System.Drawing.Point(4, 22) Me.tbLKW.Name = "tbLKW" Me.tbLKW.Padding = New System.Windows.Forms.Padding(3) - Me.tbLKW.Size = New System.Drawing.Size(1630, 896) + Me.tbLKW.Size = New System.Drawing.Size(178, 39) Me.tbLKW.TabIndex = 4 Me.tbLKW.Text = "LKWs" Me.tbLKW.UseVisualStyleBackColor = True @@ -1782,9 +1802,22 @@ Partial Class frmKundenblatt Me.pnlLKWRight.Location = New System.Drawing.Point(309, 3) Me.pnlLKWRight.Name = "pnlLKWRight" Me.pnlLKWRight.Padding = New System.Windows.Forms.Padding(10, 0, 0, 0) - Me.pnlLKWRight.Size = New System.Drawing.Size(1318, 890) + Me.pnlLKWRight.Size = New System.Drawing.Size(0, 33) Me.pnlLKWRight.TabIndex = 2 ' + 'UsrCntlLKW1 + ' + Me.UsrCntlLKW1.BackColor = System.Drawing.Color.White + Me.UsrCntlLKW1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.UsrCntlLKW1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.UsrCntlLKW1.Dock = System.Windows.Forms.DockStyle.Fill + Me.UsrCntlLKW1.Location = New System.Drawing.Point(10, 0) + Me.UsrCntlLKW1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.UsrCntlLKW1.MaximumSize = New System.Drawing.Size(1200, 1000) + Me.UsrCntlLKW1.Name = "UsrCntlLKW1" + Me.UsrCntlLKW1.Size = New System.Drawing.Size(0, 33) + Me.UsrCntlLKW1.TabIndex = 0 + ' 'pnlLKW ' Me.pnlLKW.Controls.Add(Me.dgvLKW) @@ -1793,7 +1826,7 @@ Partial Class frmKundenblatt Me.pnlLKW.Dock = System.Windows.Forms.DockStyle.Left Me.pnlLKW.Location = New System.Drawing.Point(3, 3) Me.pnlLKW.Name = "pnlLKW" - Me.pnlLKW.Size = New System.Drawing.Size(306, 890) + Me.pnlLKW.Size = New System.Drawing.Size(306, 33) Me.pnlLKW.TabIndex = 3 ' 'dgvLKW @@ -1834,7 +1867,7 @@ Partial Class frmKundenblatt Me.dgvLKW.RowHeadersDefaultCellStyle = DataGridViewCellStyle25 Me.dgvLKW.RowHeadersVisible = False Me.dgvLKW.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect - Me.dgvLKW.Size = New System.Drawing.Size(306, 716) + Me.dgvLKW.Size = New System.Drawing.Size(306, 0) Me.dgvLKW.TabIndex = 2 ' 'pnlLKWBottom @@ -1846,7 +1879,7 @@ Partial Class frmKundenblatt Me.pnlLKWBottom.Controls.Add(Me.Button13) Me.pnlLKWBottom.Controls.Add(Me.lblErgebnisse) Me.pnlLKWBottom.Dock = System.Windows.Forms.DockStyle.Bottom - Me.pnlLKWBottom.Location = New System.Drawing.Point(0, 778) + Me.pnlLKWBottom.Location = New System.Drawing.Point(0, -79) Me.pnlLKWBottom.Name = "pnlLKWBottom" Me.pnlLKWBottom.Size = New System.Drawing.Size(306, 112) Me.pnlLKWBottom.TabIndex = 3 @@ -1987,7 +2020,7 @@ Partial Class frmKundenblatt Me.tbVERAGCard.Location = New System.Drawing.Point(4, 22) Me.tbVERAGCard.Name = "tbVERAGCard" Me.tbVERAGCard.Padding = New System.Windows.Forms.Padding(3) - Me.tbVERAGCard.Size = New System.Drawing.Size(1630, 896) + Me.tbVERAGCard.Size = New System.Drawing.Size(178, 39) Me.tbVERAGCard.TabIndex = 6 Me.tbVERAGCard.Text = "VERAG Card" Me.tbVERAGCard.UseVisualStyleBackColor = True @@ -1999,7 +2032,7 @@ Partial Class frmKundenblatt Me.Panel3.Dock = System.Windows.Forms.DockStyle.Fill Me.Panel3.Location = New System.Drawing.Point(3, 3) Me.Panel3.Name = "Panel3" - Me.Panel3.Size = New System.Drawing.Size(1624, 890) + Me.Panel3.Size = New System.Drawing.Size(172, 33) Me.Panel3.TabIndex = 0 ' 'tbDokumente @@ -2017,7 +2050,7 @@ Partial Class frmKundenblatt Me.tbDokumente.Controls.Add(Me.scanVertragVeragKd) Me.tbDokumente.Location = New System.Drawing.Point(4, 22) Me.tbDokumente.Name = "tbDokumente" - Me.tbDokumente.Size = New System.Drawing.Size(1630, 896) + Me.tbDokumente.Size = New System.Drawing.Size(178, 39) Me.tbDokumente.TabIndex = 8 Me.tbDokumente.Text = "Dokumente" Me.tbDokumente.UseVisualStyleBackColor = True @@ -2217,7 +2250,7 @@ Partial Class frmKundenblatt Me.tbBesuchsberichte.Location = New System.Drawing.Point(4, 22) Me.tbBesuchsberichte.Name = "tbBesuchsberichte" Me.tbBesuchsberichte.Padding = New System.Windows.Forms.Padding(3) - Me.tbBesuchsberichte.Size = New System.Drawing.Size(1630, 896) + Me.tbBesuchsberichte.Size = New System.Drawing.Size(178, 39) Me.tbBesuchsberichte.TabIndex = 9 Me.tbBesuchsberichte.Text = "Besuchsberichte" Me.tbBesuchsberichte.UseVisualStyleBackColor = True @@ -2226,7 +2259,7 @@ Partial Class frmKundenblatt ' Me.tbFremdrechnungen.Location = New System.Drawing.Point(4, 22) Me.tbFremdrechnungen.Name = "tbFremdrechnungen" - Me.tbFremdrechnungen.Size = New System.Drawing.Size(1630, 896) + Me.tbFremdrechnungen.Size = New System.Drawing.Size(178, 39) Me.tbFremdrechnungen.TabIndex = 10 Me.tbFremdrechnungen.Text = "Fremdrechnungen" Me.tbFremdrechnungen.UseVisualStyleBackColor = True @@ -2242,6 +2275,16 @@ Partial Class frmKundenblatt Me.tbOfferte.Text = "Offerte" Me.tbOfferte.UseVisualStyleBackColor = True ' + 'UsrCntlOfferte1 + ' + Me.UsrCntlOfferte1.BackColor = System.Drawing.Color.White + Me.UsrCntlOfferte1.Dock = System.Windows.Forms.DockStyle.Fill + Me.UsrCntlOfferte1.Location = New System.Drawing.Point(0, 0) + Me.UsrCntlOfferte1.Margin = New System.Windows.Forms.Padding(1) + Me.UsrCntlOfferte1.Name = "UsrCntlOfferte1" + Me.UsrCntlOfferte1.Size = New System.Drawing.Size(1644, 928) + Me.UsrCntlOfferte1.TabIndex = 0 + ' 'tbUSTV ' Me.tbUSTV.Controls.Add(Me.tbcntrUSTV) @@ -2375,11 +2418,19 @@ Partial Class frmKundenblatt Me.tbUSTVAntrage.Location = New System.Drawing.Point(4, 22) Me.tbUSTVAntrage.Name = "tbUSTVAntrage" Me.tbUSTVAntrage.Padding = New System.Windows.Forms.Padding(3) - Me.tbUSTVAntrage.Size = New System.Drawing.Size(1636, 902) + Me.tbUSTVAntrage.Size = New System.Drawing.Size(184, 45) Me.tbUSTVAntrage.TabIndex = 9 Me.tbUSTVAntrage.Text = "USTV-Anträge" Me.tbUSTVAntrage.UseVisualStyleBackColor = True ' + 'UsrCntlUSTV + ' + Me.UsrCntlUSTV.Dock = System.Windows.Forms.DockStyle.Fill + Me.UsrCntlUSTV.Location = New System.Drawing.Point(3, 3) + Me.UsrCntlUSTV.Name = "UsrCntlUSTV" + Me.UsrCntlUSTV.Size = New System.Drawing.Size(178, 39) + Me.UsrCntlUSTV.TabIndex = 0 + ' 'tbFIBU ' Me.tbFIBU.Controls.Add(Me.btn_FIBU_speichern) @@ -2397,7 +2448,7 @@ Partial Class frmKundenblatt Me.tbFIBU.Controls.Add(Me.txtFIBUKuerzel) Me.tbFIBU.Location = New System.Drawing.Point(4, 25) Me.tbFIBU.Name = "tbFIBU" - Me.tbFIBU.Size = New System.Drawing.Size(1644, 945) + Me.tbFIBU.Size = New System.Drawing.Size(1644, 928) Me.tbFIBU.TabIndex = 13 Me.tbFIBU.Text = "FIBU" Me.tbFIBU.UseVisualStyleBackColor = True @@ -2787,6 +2838,7 @@ Partial Class frmKundenblatt ' Me.cntxtCntxtMDM.ImageScalingSize = New System.Drawing.Size(24, 24) Me.cntxtCntxtMDM.Name = "cntxtCntxtMDM" + Me.cntxtCntxtMDM.OwnerItem = Me.ToolStripMenuItem8 Me.cntxtCntxtMDM.Size = New System.Drawing.Size(61, 4) Me.cntxtCntxtMDM.Text = "cntxtMDM" ' @@ -2948,57 +3000,6 @@ Partial Class frmKundenblatt Me.tbiVERAGCard.Size = New System.Drawing.Size(186, 22) Me.tbiVERAGCard.Text = "VERAG Card" ' - 'UsrcntlKundeBearbeitenFull1 - ' - Me.UsrcntlKundeBearbeitenFull1.BackColor = System.Drawing.Color.White - Me.UsrcntlKundeBearbeitenFull1.Dock = System.Windows.Forms.DockStyle.Fill - Me.UsrcntlKundeBearbeitenFull1.Location = New System.Drawing.Point(0, 0) - Me.UsrcntlKundeBearbeitenFull1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) - Me.UsrcntlKundeBearbeitenFull1.Name = "UsrcntlKundeBearbeitenFull1" - Me.UsrcntlKundeBearbeitenFull1.Size = New System.Drawing.Size(1638, 922) - Me.UsrcntlKundeBearbeitenFull1.TabIndex = 0 - ' - 'usrcntlKarten - ' - Me.usrcntlKarten.Cursor = System.Windows.Forms.Cursors.Default - Me.usrcntlKarten.Dock = System.Windows.Forms.DockStyle.Fill - Me.usrcntlKarten.Location = New System.Drawing.Point(3, 3) - Me.usrcntlKarten.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) - Me.usrcntlKarten.Name = "usrcntlKarten" - Me.usrcntlKarten.Size = New System.Drawing.Size(1624, 890) - Me.usrcntlKarten.TabIndex = 0 - ' - 'UsrCntlLKW1 - ' - Me.UsrCntlLKW1.BackColor = System.Drawing.Color.White - Me.UsrCntlLKW1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom - Me.UsrCntlLKW1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.UsrCntlLKW1.Dock = System.Windows.Forms.DockStyle.Fill - Me.UsrCntlLKW1.Location = New System.Drawing.Point(10, 0) - Me.UsrCntlLKW1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) - Me.UsrCntlLKW1.MaximumSize = New System.Drawing.Size(1200, 1000) - Me.UsrCntlLKW1.Name = "UsrCntlLKW1" - Me.UsrCntlLKW1.Size = New System.Drawing.Size(1200, 890) - Me.UsrCntlLKW1.TabIndex = 0 - ' - 'UsrCntlOfferte1 - ' - Me.UsrCntlOfferte1.BackColor = System.Drawing.Color.White - Me.UsrCntlOfferte1.Dock = System.Windows.Forms.DockStyle.Fill - Me.UsrCntlOfferte1.Location = New System.Drawing.Point(0, 0) - Me.UsrCntlOfferte1.Margin = New System.Windows.Forms.Padding(1) - Me.UsrCntlOfferte1.Name = "UsrCntlOfferte1" - Me.UsrCntlOfferte1.Size = New System.Drawing.Size(1644, 928) - Me.UsrCntlOfferte1.TabIndex = 0 - ' - 'UsrCntlUSTV - ' - Me.UsrCntlUSTV.Dock = System.Windows.Forms.DockStyle.Fill - Me.UsrCntlUSTV.Location = New System.Drawing.Point(3, 3) - Me.UsrCntlUSTV.Name = "UsrCntlUSTV" - Me.UsrCntlUSTV.Size = New System.Drawing.Size(1630, 896) - Me.UsrCntlUSTV.TabIndex = 0 - ' 'frmKundenblatt ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) diff --git a/SDL/kunden/frmKundenblatt.vb b/SDL/kunden/frmKundenblatt.vb index 2160240f..920c922f 100644 --- a/SDL/kunden/frmKundenblatt.vb +++ b/SDL/kunden/frmKundenblatt.vb @@ -1,14 +1,8 @@ Imports System.Data.SqlClient -Imports System.ComponentModel -Imports System.Reflection -Imports javax.xml.bind.annotation -Imports VERAG_PROG_ALLGEMEIN Imports System.Globalization -Imports System.Data.OleDb -Imports System.IO Imports System.Web.UI.WebControls.Expressions -Imports System.DirectoryServices.ActiveDirectory Imports Microsoft.Office.Interop +Imports VERAG_PROG_ALLGEMEIN Public Class frmKundenblatt @@ -2371,7 +2365,7 @@ Public Class frmKundenblatt initBtns("Monat") End Sub - Private Sub dgvRg_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvRg.DoubleClick, dgvRg.CellContentClick + Private Sub dgvRg_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvRg.DoubleClick, dgvRg.CellContentDoubleClick If dgvRg.SelectedRows.Count = 0 Then Exit Sub @@ -2386,7 +2380,7 @@ Public Class frmKundenblatt With dgvZinsnachberechnung Dim sqlStr = "" - sqlStr &= " SELECT TOP 1000 [belegNr] ,[belegDatum],[buchungstext],[zinsbetrag],[zinssatz],[ueberschreitungInTagen],[belegZahlungsziel],[timestamp], cast(case when [verrechnet] is null then 0 else 1 end as bit) as verrechnet" + sqlStr &= " SELECT TOP 1000 [belegNr] ,[belegDatum],[buchungstext],[zinsbetrag],[zinssatz],[ueberschreitungInTagen],[belegZahlungsziel],[timestamp], cast(case when [verrechnet] is null then 0 else 1 end as bit) as verrechnet, rk_id" sqlStr &= " FROM [tblMDM_Zinsberechnung] WHERE kundenNr=" & kdNr .SET_SQL(sqlStr & " ORDER BY belegdatum desc", "FMZOLL") @@ -2447,6 +2441,8 @@ Public Class frmKundenblatt .Columns("timestamp").HeaderCell.Style.Alignment = DataGridViewContentAlignment.TopCenter .Columns("timestamp").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter + .Columns("RK_ID").Visible = False + Dim sumOffeneZB As Double = 0 Dim sumVerrZB As Double = 0 @@ -2628,5 +2624,19 @@ Public Class frmKundenblatt KUNDE.SAVE() End If End Sub + + Private Sub dgvZinsnachberechnung_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvZinsnachberechnung.CellDoubleClick + + If dgvZinsnachberechnung.SelectedRows.Count = 0 Then Exit Sub + + If Not IsDBNull(dgvZinsnachberechnung.SelectedRows(0).Cells("RK_ID").Value) AndAlso IsNumeric(dgvZinsnachberechnung.SelectedRows(0).Cells("RK_ID").Value) Then + + Dim f As New SDL.frmAbrechnungsMaskeEinzeln(dgvZinsnachberechnung.SelectedRows(0).Cells("RK_ID").Value) + f.Show(Me) + + + End If + + End Sub End Class diff --git a/SDL/mdm/usrcntlFremdrechnungen.Designer.vb b/SDL/mdm/usrcntlFremdrechnungen.Designer.vb index 7615156e..e30e1d38 100644 --- a/SDL/mdm/usrcntlFremdrechnungen.Designer.vb +++ b/SDL/mdm/usrcntlFremdrechnungen.Designer.vb @@ -23,8 +23,8 @@ Partial Class usrcntlFremdrechnungen Private Sub InitializeComponent() Me.components = New System.ComponentModel.Container() - Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Me.DetailsAnzeigenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.FlowLayoutPanel = New System.Windows.Forms.FlowLayoutPanel() Me.btnSDL_Alle = New System.Windows.Forms.Button() @@ -39,6 +39,8 @@ Partial Class usrcntlFremdrechnungen Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.KundenblattAnzeigenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.Panel1 = New System.Windows.Forms.Panel() + Me.lblSumBto = New System.Windows.Forms.Label() + Me.Label5 = New System.Windows.Forms.Label() Me.cbxMailoeffnen = New System.Windows.Forms.CheckBox() Me.cbxPDFhinterlegt = New System.Windows.Forms.CheckBox() Me.cbx = New System.Windows.Forms.CheckBox() @@ -62,8 +64,11 @@ Partial Class usrcntlFremdrechnungen Me.cntxtExcel = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.ToolStripMenuItem3 = New System.Windows.Forms.ToolStripMenuItem() Me.ToolStripMenuItem6 = New System.Windows.Forms.ToolStripMenuItem() - Me.Label5 = New System.Windows.Forms.Label() - Me.lblSumBto = New System.Windows.Forms.Label() + Me.Label6 = New System.Windows.Forms.Label() + Me.ContextMenuStrip2 = New System.Windows.Forms.ContextMenuStrip(Me.components) + Me.txtKundenNrvon = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtKundenNrbis = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label7 = New System.Windows.Forms.Label() Me.FlowLayoutPanel.SuspendLayout() Me.ContextMenuStrip1.SuspendLayout() Me.Panel1.SuspendLayout() @@ -277,6 +282,10 @@ Partial Class usrcntlFremdrechnungen Me.Panel1.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink Me.Panel1.BackColor = System.Drawing.SystemColors.ControlLightLight Me.Panel1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.Panel1.Controls.Add(Me.Label7) + Me.Panel1.Controls.Add(Me.txtKundenNrbis) + Me.Panel1.Controls.Add(Me.txtKundenNrvon) + Me.Panel1.Controls.Add(Me.Label6) Me.Panel1.Controls.Add(Me.lblSumBto) Me.Panel1.Controls.Add(Me.Label5) Me.Panel1.Controls.Add(Me.cbxMailoeffnen) @@ -300,12 +309,31 @@ Partial Class usrcntlFremdrechnungen Me.Panel1.Size = New System.Drawing.Size(260, 907) Me.Panel1.TabIndex = 23 ' + 'lblSumBto + ' + Me.lblSumBto.AutoSize = True + Me.lblSumBto.BackColor = System.Drawing.Color.White + Me.lblSumBto.Location = New System.Drawing.Point(190, 20) + Me.lblSumBto.Name = "lblSumBto" + Me.lblSumBto.Size = New System.Drawing.Size(13, 13) + Me.lblSumBto.TabIndex = 56 + Me.lblSumBto.Text = "0" + ' + 'Label5 + ' + Me.Label5.AutoSize = True + Me.Label5.Location = New System.Drawing.Point(4, 20) + Me.Label5.Name = "Label5" + Me.Label5.Size = New System.Drawing.Size(76, 13) + Me.Label5.TabIndex = 55 + Me.Label5.Text = "Summe Brutto:" + ' 'cbxMailoeffnen ' Me.cbxMailoeffnen.AutoSize = True Me.cbxMailoeffnen.Checked = True Me.cbxMailoeffnen.CheckState = System.Windows.Forms.CheckState.Checked - Me.cbxMailoeffnen.Location = New System.Drawing.Point(146, 183) + Me.cbxMailoeffnen.Location = New System.Drawing.Point(146, 237) Me.cbxMailoeffnen.Name = "cbxMailoeffnen" Me.cbxMailoeffnen.Size = New System.Drawing.Size(91, 17) Me.cbxMailoeffnen.TabIndex = 54 @@ -317,7 +345,7 @@ Partial Class usrcntlFremdrechnungen Me.cbxPDFhinterlegt.AutoSize = True Me.cbxPDFhinterlegt.Checked = True Me.cbxPDFhinterlegt.CheckState = System.Windows.Forms.CheckState.Indeterminate - Me.cbxPDFhinterlegt.Location = New System.Drawing.Point(8, 125) + Me.cbxPDFhinterlegt.Location = New System.Drawing.Point(8, 179) Me.cbxPDFhinterlegt.Name = "cbxPDFhinterlegt" Me.cbxPDFhinterlegt.Size = New System.Drawing.Size(101, 17) Me.cbxPDFhinterlegt.TabIndex = 53 @@ -328,7 +356,7 @@ Partial Class usrcntlFremdrechnungen 'cbx ' Me.cbx.AutoSize = True - Me.cbx.Location = New System.Drawing.Point(8, 107) + Me.cbx.Location = New System.Drawing.Point(8, 161) Me.cbx.Name = "cbx" Me.cbx.Size = New System.Drawing.Size(169, 17) Me.cbx.TabIndex = 52 @@ -338,7 +366,7 @@ Partial Class usrcntlFremdrechnungen 'Label4 ' Me.Label4.AutoSize = True - Me.Label4.Location = New System.Drawing.Point(5, 35) + Me.Label4.Location = New System.Drawing.Point(2, 35) Me.Label4.Name = "Label4" Me.Label4.Size = New System.Drawing.Size(91, 13) Me.Label4.TabIndex = 51 @@ -384,7 +412,7 @@ Partial Class usrcntlFremdrechnungen Me.Button1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.Button1.Location = New System.Drawing.Point(5, 268) + Me.Button1.Location = New System.Drawing.Point(5, 322) Me.Button1.Name = "Button1" Me.Button1.Size = New System.Drawing.Size(50, 44) Me.Button1.TabIndex = 45 @@ -396,7 +424,7 @@ Partial Class usrcntlFremdrechnungen Me.cbxMax1000Eintrage.AutoSize = True Me.cbxMax1000Eintrage.Checked = True Me.cbxMax1000Eintrage.CheckState = System.Windows.Forms.CheckState.Checked - Me.cbxMax1000Eintrage.Location = New System.Drawing.Point(8, 145) + Me.cbxMax1000Eintrage.Location = New System.Drawing.Point(8, 199) Me.cbxMax1000Eintrage.Name = "cbxMax1000Eintrage" Me.cbxMax1000Eintrage.Size = New System.Drawing.Size(117, 17) Me.cbxMax1000Eintrage.TabIndex = 41 @@ -418,7 +446,7 @@ Partial Class usrcntlFremdrechnungen Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.Button4.Image = Global.SDL.My.Resources.Resources.checklist Me.Button4.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.Button4.Location = New System.Drawing.Point(8, 218) + Me.Button4.Location = New System.Drawing.Point(8, 272) Me.Button4.Name = "Button4" Me.Button4.Size = New System.Drawing.Size(118, 44) Me.Button4.TabIndex = 21 @@ -431,7 +459,7 @@ Partial Class usrcntlFremdrechnungen Me.Button5.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.Button5.Image = Global.SDL.My.Resources.Resources.email_big1 Me.Button5.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.Button5.Location = New System.Drawing.Point(8, 168) + Me.Button5.Location = New System.Drawing.Point(8, 222) Me.Button5.Name = "Button5" Me.Button5.Size = New System.Drawing.Size(118, 44) Me.Button5.TabIndex = 22 @@ -453,7 +481,7 @@ Partial Class usrcntlFremdrechnungen Me.Button8.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.Button8.Image = Global.SDL.My.Resources.Resources.Excel_logo Me.Button8.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.Button8.Location = New System.Drawing.Point(132, 218) + Me.Button8.Location = New System.Drawing.Point(132, 272) Me.Button8.Name = "Button8" Me.Button8.Size = New System.Drawing.Size(118, 44) Me.Button8.TabIndex = 31 @@ -501,8 +529,8 @@ Partial Class usrcntlFremdrechnungen Me.dgvLFRechnung.AllowUserToDeleteRows = False Me.dgvLFRechnung.AllowUserToResizeColumns = False Me.dgvLFRechnung.AllowUserToResizeRows = False - DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.dgvLFRechnung.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1 + DataGridViewCellStyle3.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.dgvLFRechnung.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle3 Me.dgvLFRechnung.BackgroundColor = System.Drawing.Color.White Me.dgvLFRechnung.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.dgvLFRechnung.Location = New System.Drawing.Point(4, 3) @@ -518,8 +546,8 @@ Partial Class usrcntlFremdrechnungen Me.dgvDetails.AllowUserToDeleteRows = False Me.dgvDetails.AllowUserToResizeColumns = False Me.dgvDetails.AllowUserToResizeRows = False - DataGridViewCellStyle2.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.dgvDetails.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2 + DataGridViewCellStyle4.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.dgvDetails.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle4 Me.dgvDetails.BackgroundColor = System.Drawing.Color.White Me.dgvDetails.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.dgvDetails.Location = New System.Drawing.Point(-1, 3) @@ -557,24 +585,74 @@ Partial Class usrcntlFremdrechnungen Me.ToolStripMenuItem6.Size = New System.Drawing.Size(210, 22) Me.ToolStripMenuItem6.Text = "Formatiert (dauert länger)" ' - 'Label5 + 'Label6 ' - Me.Label5.AutoSize = True - Me.Label5.Location = New System.Drawing.Point(4, 20) - Me.Label5.Name = "Label5" - Me.Label5.Size = New System.Drawing.Size(76, 13) - Me.Label5.TabIndex = 55 - Me.Label5.Text = "Summe Brutto:" + Me.Label6.AutoSize = True + Me.Label6.Location = New System.Drawing.Point(8, 107) + Me.Label6.Name = "Label6" + Me.Label6.Size = New System.Drawing.Size(58, 13) + Me.Label6.TabIndex = 57 + Me.Label6.Text = "KundenNr." ' - 'lblSumBto + 'ContextMenuStrip2 ' - Me.lblSumBto.AutoSize = True - Me.lblSumBto.BackColor = System.Drawing.Color.White - Me.lblSumBto.Location = New System.Drawing.Point(190, 20) - Me.lblSumBto.Name = "lblSumBto" - Me.lblSumBto.Size = New System.Drawing.Size(13, 13) - Me.lblSumBto.TabIndex = 56 - Me.lblSumBto.Text = "0" + Me.ContextMenuStrip2.Name = "ContextMenuStrip2" + Me.ContextMenuStrip2.Size = New System.Drawing.Size(61, 4) + ' + 'txtKundenNrvon + ' + Me.txtKundenNrvon._DateTimeOnly = False + Me.txtKundenNrvon._numbersOnly = True + Me.txtKundenNrvon._numbersOnlyKommastellen = "" + Me.txtKundenNrvon._numbersOnlyTrennzeichen = False + Me.txtKundenNrvon._Prozent = False + Me.txtKundenNrvon._ShortDateNew = False + Me.txtKundenNrvon._ShortDateOnly = False + Me.txtKundenNrvon._TimeOnly = False + Me.txtKundenNrvon._TimeOnly_Seconds = False + Me.txtKundenNrvon._value = "" + Me.txtKundenNrvon._Waehrung = False + Me.txtKundenNrvon._WaehrungZeichen = False + Me.txtKundenNrvon.ForeColor = System.Drawing.Color.Black + Me.txtKundenNrvon.Location = New System.Drawing.Point(11, 123) + Me.txtKundenNrvon.MaxLineLength = -1 + Me.txtKundenNrvon.MaxLines_Warning = "" + Me.txtKundenNrvon.MaxLines_Warning_Label = Nothing + Me.txtKundenNrvon.Name = "txtKundenNrvon" + Me.txtKundenNrvon.Size = New System.Drawing.Size(98, 20) + Me.txtKundenNrvon.TabIndex = 58 + ' + 'txtKundenNrbis + ' + Me.txtKundenNrbis._DateTimeOnly = False + Me.txtKundenNrbis._numbersOnly = True + Me.txtKundenNrbis._numbersOnlyKommastellen = "" + Me.txtKundenNrbis._numbersOnlyTrennzeichen = False + Me.txtKundenNrbis._Prozent = False + Me.txtKundenNrbis._ShortDateNew = False + Me.txtKundenNrbis._ShortDateOnly = False + Me.txtKundenNrbis._TimeOnly = False + Me.txtKundenNrbis._TimeOnly_Seconds = False + Me.txtKundenNrbis._value = "" + Me.txtKundenNrbis._Waehrung = False + Me.txtKundenNrbis._WaehrungZeichen = False + Me.txtKundenNrbis.ForeColor = System.Drawing.Color.Black + Me.txtKundenNrbis.Location = New System.Drawing.Point(146, 123) + Me.txtKundenNrbis.MaxLineLength = -1 + Me.txtKundenNrbis.MaxLines_Warning = "" + Me.txtKundenNrbis.MaxLines_Warning_Label = Nothing + Me.txtKundenNrbis.Name = "txtKundenNrbis" + Me.txtKundenNrbis.Size = New System.Drawing.Size(98, 20) + Me.txtKundenNrbis.TabIndex = 59 + ' + 'Label7 + ' + Me.Label7.AutoSize = True + Me.Label7.Location = New System.Drawing.Point(121, 126) + Me.Label7.Name = "Label7" + Me.Label7.Size = New System.Drawing.Size(10, 13) + Me.Label7.TabIndex = 60 + Me.Label7.Text = "-" ' 'usrcntlFremdrechnungen ' @@ -640,4 +718,9 @@ Partial Class usrcntlFremdrechnungen Friend WithEvents cbxMailoeffnen As CheckBox Friend WithEvents lblSumBto As Label Friend WithEvents Label5 As Label + Friend WithEvents Label7 As Label + Friend WithEvents txtKundenNrbis As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents txtKundenNrvon As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label6 As Label + Friend WithEvents ContextMenuStrip2 As ContextMenuStrip End Class diff --git a/SDL/mdm/usrcntlFremdrechnungen.resx b/SDL/mdm/usrcntlFremdrechnungen.resx index b5f92d43..f5796c7d 100644 --- a/SDL/mdm/usrcntlFremdrechnungen.resx +++ b/SDL/mdm/usrcntlFremdrechnungen.resx @@ -123,4 +123,7 @@ 807, 17 + + 913, 17 + \ No newline at end of file diff --git a/SDL/mdm/usrcntlFremdrechnungen.vb b/SDL/mdm/usrcntlFremdrechnungen.vb index f6e85c6c..b1a808de 100644 --- a/SDL/mdm/usrcntlFremdrechnungen.vb +++ b/SDL/mdm/usrcntlFremdrechnungen.vb @@ -50,6 +50,10 @@ Public Class usrcntlFremdrechnungen dgvInitWait = True + txtKundenNrvon.Enabled = kdNr <= 0 + txtKundenNrbis.Enabled = kdNr <= 0 + + Dim kdNr_WHERE = "" If kdNr_filter Then kdNr_WHERE = "" @@ -203,85 +207,99 @@ Public Class usrcntlFremdrechnungen End Sub - Sub SET_SDL(SDLNrTmp) + Sub SET_SDL(SDLNrTmp As String, Optional kdNrvon As Integer = -1, Optional kdNrbis As Integer = -1) aktLieferant = SDLNrTmp + Dim anzahlTop = 1000 Dim sqlfehlendePDF As String = "" Dim sqlfehlendePDF_PLOSE As String = "" Dim sqlfehlendePDF_RMC As String = "" + Dim sqlfehlendePDF_VERAG As String = "" 'veragPDF sind immer da (können nie fehlen)! Select Case cbxPDFhinterlegt.CheckState - Case CheckState.Unchecked : sqlfehlendePDF = " AND [daId] is null" : sqlfehlendePDF_PLOSE = " AND plInv_daId is null" : sqlfehlendePDF_RMC = " AND rmc_daId is null" - Case CheckState.Checked : sqlfehlendePDF = " AND not [daId] is null" : sqlfehlendePDF_PLOSE = " AND plInv_daId is not null" : sqlfehlendePDF_RMC = " AND rmc_daId is not null" + Case CheckState.Unchecked : sqlfehlendePDF = " AND [daId] is null" : sqlfehlendePDF_PLOSE = " AND plInv_daId is null" : sqlfehlendePDF_RMC = " AND rmc_daId is null" : sqlfehlendePDF_VERAG = " AND 1 = 0" + Case CheckState.Checked : sqlfehlendePDF = " AND not [daId] is null" : sqlfehlendePDF_PLOSE = " AND plInv_daId is not null" : sqlfehlendePDF_RMC = " AND rmc_daId is not null" : sqlfehlendePDF_VERAG = " AND 1 = 1" End Select + Dim whereKundennrKreisAlle As String = "" + Dim whereKundennrKreisLieferanten As String = "" + + If kdNrvon > 0 AndAlso kdNrbis > 0 Then + Select Case SDLNrTmp + Case "IDS" : whereKundennrKreisLieferanten = " and KdNrVERAG between " & kdNrvon & " and " & kdNrbis + Case "MSE" : whereKundennrKreisLieferanten = " and partner_customer_number between " & kdNrvon & " and " & kdNrbis + Case "ALLE" : whereKundennrKreisAlle = " and temp.AdressenNr between " & kdNrvon & " and " & kdNrbis + Case Else + whereKundennrKreisLieferanten = " and AdressenNr between " & kdNrvon & " and " & kdNrbis + End Select + End If Dim SQL_STR = "" Select Case SDLNrTmp 'IDS Case "IDS" : SQL_STR = "SELECT " & IIf(cbxMax1000Eintrage.Checked, " top " & anzahlTop, "") & - " invoice_id,[tbl_IDS_Kunden].KdNrVERAG as AdressenNr, [YearMonthDay] as Rechnungsdatum,[Invoicenumber] as Rechnungsnummer, tblIDSInvoicesNew.CustomerCode as Kundennummer,[daId],[TransactionVolume] as Transaktionsmenge,[AmminclVAT] as Bruttobetrag,[TotalNetAmount] as Nettobetrag,[VATAmount] as MWSt, cast(case when [daId] is not null then 1 else 0 end as bit) as PDFvorhanden FROM tblIDSInvoicesNew inner join [VERAG].[dbo].[tbl_IDS_Kunden] on tblIDSInvoicesNew.CustomerCode = tbl_IDS_Kunden.CustomerCode WHERE tblIDSInvoicesNew.[CustomerCode] in (SELECT distinct([CustomerCode]) FROM [VERAG].[dbo].[tbl_IDS_Kunden] WHERE 1 = 1 AND isnull([tbl_IDS_Kunden].KdNrAlt, 0) = 0 " & sqlfehlendePDF & IIf(kdNr > 0, " AND [KdNrVERAG]=" & kdNr, "") & ") and [YearMonthDay] " & setSQLWhere(SDLNrTmp, "") & " order by [YearMonthDay] desc, [Invoicenumber]" + " invoice_id,[tbl_IDS_Kunden].KdNrVERAG as AdressenNr, [YearMonthDay] as Rechnungsdatum,[Invoicenumber] as Rechnungsnummer, tblIDSInvoicesNew.CustomerCode as Kundennummer,[daId],[TransactionVolume] as Transaktionsmenge,[AmminclVAT] as Bruttobetrag,[TotalNetAmount] as Nettobetrag,[VATAmount] as MWSt, cast(case when [daId] is not null then 1 else 0 end as bit) as PDFvorhanden FROM tblIDSInvoicesNew inner join [VERAG].[dbo].[tbl_IDS_Kunden] on tblIDSInvoicesNew.CustomerCode = tbl_IDS_Kunden.CustomerCode WHERE tblIDSInvoicesNew.[CustomerCode] in (SELECT distinct([CustomerCode]) FROM [VERAG].[dbo].[tbl_IDS_Kunden] WHERE 1 = 1 AND isnull([tbl_IDS_Kunden].KdNrAlt, 0) = 0 " & sqlfehlendePDF & IIf(kdNr > 0, " AND [KdNrVERAG]=" & kdNr, "") & ") and [YearMonthDay] " & setSQLWhere(SDLNrTmp, "") & whereKundennrKreisLieferanten & " order by [YearMonthDay] desc, [Invoicenumber]" 'UTA Case "UTA" : SQL_STR = "SELECT " & IIf(cbxMax1000Eintrage.Checked, " top " & anzahlTop, "") & - " Adressen.AdressenNr, Adressen.[Name 1], [Rechnungsdatum],[Rechnungsnummer_pro_Lieferland] as Rechnungsnummer,Kundennummer,SUM(Gesamtbetrag_Brutto_in_Darstellwährung) as Bruttobetrag,SUM(Gesamtbetrag_Netto_in_Darstellwährung) as Nettobetrag, SUM(Gesamtbetrag_Umsatzsteuer_in_Darstellwährung) as MWSt,[daId],[Lieferland_ISO2] as Land, 'RE' as Art, cast(case when [daId] is not null then 1 else 0 end as bit) as PDFvorhanden, cast(archiv as bit) as archiv FROM [VERAG].[dbo].[tblUTAImportNew] inner join adressen on Kundennummer = UTAKundenNr where 1 = 1 " & sqlfehlendePDF & IIf(kdNr > 0, " AND [AdressenNr]=" & kdNr, "") & " AND [Rechnungsdatum] " & setSQLWhere(SDLNrTmp, "Lieferland_ISO2") & " group by Adressen.AdressenNr, Adressen.[Name 1],[Rechnungsnummer_pro_Lieferland],[Rechnungsdatum],Kundennummer,[daId],[Lieferland_ISO2], archiv" + " Adressen.AdressenNr, Adressen.[Name 1], [Rechnungsdatum],[Rechnungsnummer_pro_Lieferland] as Rechnungsnummer,Kundennummer,SUM(Gesamtbetrag_Brutto_in_Darstellwährung) as Bruttobetrag,SUM(Gesamtbetrag_Netto_in_Darstellwährung) as Nettobetrag, SUM(Gesamtbetrag_Umsatzsteuer_in_Darstellwährung) as MWSt,[daId],[Lieferland_ISO2] as Land, 'RE' as Art, cast(case when [daId] is not null then 1 else 0 end as bit) as PDFvorhanden, cast(archiv as bit) as archiv FROM [VERAG].[dbo].[tblUTAImportNew] inner join adressen on Kundennummer = UTAKundenNr where 1 = 1 " & sqlfehlendePDF & IIf(kdNr > 0, " AND [AdressenNr]=" & kdNr, "") & " AND [Rechnungsdatum] " & setSQLWhere(SDLNrTmp, "Lieferland_ISO2") & whereKundennrKreisLieferanten & " group by Adressen.AdressenNr, Adressen.[Name 1],[Rechnungsnummer_pro_Lieferland],[Rechnungsdatum],Kundennummer,[daId],[Lieferland_ISO2], archiv" - SQL_STR &= " UNION ALL SELECT " & IIf(cbxMax1000Eintrage.Checked, " top " & anzahlTop, "") & " Adressen.AdressenNr, Adressen.[Name 1],[Datum], [RechnungsNr],[KundenNr],0,0,0,[daId],'',[DocumentTyp], cast(case when [daId] is not null then 1 else 0 end as bit) as PDFvorhanden, cast(0 as bit) as archiv FROM [VERAG].[dbo].[tblUTADocuments] inner join adressen on KundenNr = UTAKundenNr where 1 = 1 " & IIf(kdNr > 0, " AND [AdressenNr]=" & kdNr, "") & " and [Datum] " & setSQLWhere("_", "") & " order by Rechnungsdatum desc" + SQL_STR &= " UNION ALL SELECT " & IIf(cbxMax1000Eintrage.Checked, " top " & anzahlTop, "") & " Adressen.AdressenNr, Adressen.[Name 1],[Datum], [RechnungsNr],[KundenNr],0,0,0,[daId],'',[DocumentTyp], cast(case when [daId] is not null then 1 else 0 end as bit) as PDFvorhanden, cast(0 as bit) as archiv FROM [VERAG].[dbo].[tblUTADocuments] inner join adressen on KundenNr = UTAKundenNr where 1 = 1 " & IIf(kdNr > 0, " AND [AdressenNr]=" & kdNr, "") & " and [Datum] " & setSQLWhere("_", "") & whereKundennrKreisLieferanten & " order by Rechnungsdatum desc" 'PLOSE Case "PLOSE" : SQL_STR = "SELECT " & IIf(cbxMax1000Eintrage.Checked, " top " & anzahlTop, "") & - " Adressen.AdressenNr, Adressen.[Name 1],[plInv_SupplierRechnungsDatum] as Rechnungsdatum, [plInv_SupplierRechnungsNr] as Rechnungsnummer,[plInv_PLOSEKundennummer] as Kundennummer,[plInv_Nettobetrag] as Nettobetrag,[plInv_MWSTBetrag] as MWST,[plInv_Bruttobetrag] as Bruttobetrag,[plInv_daId] as daId, [plInv_SupplierCountry] as Land, cast(case when [plInv_daId] is not null then 1 else 0 end as bit) as PDFvorhanden, plInv_Archiv as archiv FROM tblPLOSE_Inv_Data inner join Adressen on Adressen.PLOSEKundenNr = plInv_PLOSEKundennummer where 1 = 1 " & sqlfehlendePDF_PLOSE & IIf(kdNr > 0, " AND Adressen.AdressenNr=" & kdNr, "") & " and [plInv_SupplierRechnungsDatum] " & setSQLWhere(SDLNrTmp, "plInv_SupplierCountry") & " Order by plInv_SupplierRechnungsDatum desc, [plInv_SupplierRechnungsNr]" + " Adressen.AdressenNr, Adressen.[Name 1],[plInv_SupplierRechnungsDatum] as Rechnungsdatum, [plInv_SupplierRechnungsNr] as Rechnungsnummer,[plInv_PLOSEKundennummer] as Kundennummer,[plInv_Nettobetrag] as Nettobetrag,[plInv_MWSTBetrag] as MWST,[plInv_Bruttobetrag] as Bruttobetrag,[plInv_daId] as daId, [plInv_SupplierCountry] as Land, cast(case when [plInv_daId] is not null then 1 else 0 end as bit) as PDFvorhanden, plInv_Archiv as archiv FROM tblPLOSE_Inv_Data inner join Adressen on Adressen.PLOSEKundenNr = plInv_PLOSEKundennummer where 1 = 1 " & sqlfehlendePDF_PLOSE & IIf(kdNr > 0, " AND Adressen.AdressenNr=" & kdNr, "") & " and [plInv_SupplierRechnungsDatum] " & setSQLWhere(SDLNrTmp, "plInv_SupplierCountry") & whereKundennrKreisLieferanten & " Order by plInv_SupplierRechnungsDatum desc, [plInv_SupplierRechnungsNr]" 'MSE Case "MSE" : SQL_STR = "SELECT " & IIf(cbxMax1000Eintrage.Checked, " top " & anzahlTop, "") & - " partner_customer_number as AdressenNr, customer_name as [Name 1], [invoice_date] as Rechnungsdatum, [invoice_id] as Rechnungsnummer/*,[invoice_nr]*/,[customer_number] as Kundennummer, daId, [total_amount_euro] as Brutto_EUR ,[total_vat_amount_euro] as MWST,[country] as Land, cast(case when [daId] is not null then 1 else 0 end as bit) as PDFvorhanden, archiv FROM tblMSEInvoices inner join tblMSECustomers on customer_id = [customer_number] where 1 = 1 " & sqlfehlendePDF & IIf(kdNr > 0, " AND [partner_customer_number]=" & kdNr, "") & " and [invoice_date] " & setSQLWhere(SDLNrTmp, "country") & " order by invoice_date desc, invoice_id" + " partner_customer_number as AdressenNr, customer_name as [Name 1], [invoice_date] as Rechnungsdatum, [invoice_id] as Rechnungsnummer/*,[invoice_nr]*/,[customer_number] as Kundennummer, daId, [total_amount_euro] as Bruttobetrag ,[total_vat_amount_euro] as MWST,[country] as Land, cast(case when [daId] is not null then 1 else 0 end as bit) as PDFvorhanden, archiv FROM tblMSEInvoices inner join tblMSECustomers on customer_id = [customer_number] where 1 = 1 " & sqlfehlendePDF & IIf(kdNr > 0, " AND [partner_customer_number]=" & kdNr, "") & " and [invoice_date] " & setSQLWhere(SDLNrTmp, "country") & whereKundennrKreisLieferanten & " order by invoice_date desc, invoice_id" 'VERAG Case "VERAG" : SQL_STR = "SELECT " & IIf(cbxMax1000Eintrage.Checked, " top " & anzahlTop, "") & - " Adressen.AdressenNr, Adressen.[Name 1], tblTrdinInvoice.Rechnungsdatum, tblTrdinInvoice.Rechnungsnummer , tblTrdinInvoice.SteuerbetragLokal, 1 as daId, cast(1 as bit) as PDFvorhanden FROM tblTrdinInvoice inner join Adressen on KundenNrZentrale = AdressenNr WHERE 1 = 1 " & IIf(kdNr > 0, " AND tblTrdinInvoice.RechnungsKundenNr=" & kdNr, "") & " AND tblTrdinInvoice.FilialenNr = 4814 and tblTrdinInvoice.Rechnungsdatum " & setSQLWhere(SDLNrTmp, "'AT'") & " ORDER BY tblTrdinInvoice.Rechnungsdatum desc, tblTrdinInvoice.Rechnungsnummer" + " Adressen.AdressenNr, Adressen.[Name 1], tblTrdinInvoice.Rechnungsdatum, tblTrdinInvoice.Rechnungsnummer , tblTrdinInvoice.RechnungsbetragLokal as Bruttobetrag, 1 as daId, cast(1 as bit) as PDFvorhanden FROM tblTrdinInvoice inner join Adressen on KundenNrZentrale = AdressenNr WHERE 1 = 1 " & sqlfehlendePDF_VERAG & IIf(kdNr > 0, " AND tblTrdinInvoice.RechnungsKundenNr=" & kdNr, "") & " AND tblTrdinInvoice.FilialenNr = 4814 and tblTrdinInvoice.Rechnungsdatum " & setSQLWhere(SDLNrTmp, "'AT'") & " ORDER BY tblTrdinInvoice.Rechnungsdatum desc, tblTrdinInvoice.Rechnungsnummer" 'RMC Case "RMC" : SQL_STR = "SELECT " & IIf(cbxMax1000Eintrage.Checked, " top " & anzahlTop, "") & - "Adressen.AdressenNr, Adressen.[Name 1],[rmc_reDatum] as Rechnungsdatum,[rmc_reNr] as Rechnungsnummer,rmc_kdNr as Kundennummer,[rmc_betragNetto] as Nettobetrag,[rmc_betragBrutto] as Bruttobetrag,[rmc_waehrung] as Währung ,[rmc_euroBrutto] as Brutto_EUR,[rmc_daId] as daId,[rmc_betragMWST] as MWST,rmc_landKZ as Land, cast(case when [rmc_daId] is not null then 1 else 0 end as bit) as PDFvorhanden, rmc_archiv as archiv FROM [VERAG].[dbo].[tblRMCImport] inner join Adressen on Adressen.WölflKundenNr = rmc_kdNr where 1 = 1 " & sqlfehlendePDF_RMC & IIf(kdNr > 0, " AND AdressenNr=" & kdNr, "") & " and [rmc_reDatum] " & setSQLWhere(SDLNrTmp, "rmc_landKZ") & " order by rmc_reDatum desc, rmc_reNr" + "Adressen.AdressenNr, Adressen.[Name 1],[rmc_reDatum] as Rechnungsdatum,[rmc_reNr] as Rechnungsnummer,rmc_kdNr as Kundennummer,[rmc_betragNetto] as Nettobetrag,[rmc_betragBrutto] as Bruttobetrag,[rmc_waehrung] as Währung ,[rmc_euroBrutto] as Bruttobetrag,[rmc_daId] as daId,[rmc_betragMWST] as MWST,rmc_landKZ as Land, cast(case when [rmc_daId] is not null then 1 else 0 end as bit) as PDFvorhanden, rmc_archiv as archiv FROM [VERAG].[dbo].[tblRMCImport] inner join Adressen on Adressen.WölflKundenNr = rmc_kdNr where 1 = 1 " & sqlfehlendePDF_RMC & IIf(kdNr > 0, " AND AdressenNr=" & kdNr, "") & " and [rmc_reDatum] " & setSQLWhere(SDLNrTmp, "rmc_landKZ") & whereKundennrKreisLieferanten & " order by rmc_reDatum desc, rmc_reNr" Case "ALLE" : Dim anzahl As Integer = anzahlTop / 6 : SQL_STR = " select * from (SELECT " & IIf(cbxMax1000Eintrage.Checked, " top " & anzahl, "") & " --IDS - 'IDS' as Lieferant,invoice_id,[tbl_IDS_Kunden].KdNrVERAG as AdressenNr, [YearMonthDay] as Rechnungsdatum,[Invoicenumber] as Rechnungsnummer,tblIDSInvoicesNew.CustomerCode as Kundennummer,[AmminclVAT] as Bruttobetrag,[TotalNetAmount] as Nettobetrag,[VATAmount] as MWSt,'' as Land, 'RE' as Art,[daId], cast(case when [daId] is not null then 1 else 0 end as bit) as PDFvorhanden FROM tblIDSInvoicesNew inner join [VERAG].[dbo].[tbl_IDS_Kunden] on tblIDSInvoicesNew.CustomerCode = tbl_IDS_Kunden.CustomerCode WHERE tblIDSInvoicesNew.[CustomerCode] in (SELECT [CustomerCode] FROM [VERAG].[dbo].[tbl_IDS_Kunden] WHERE 1 = 1 and isnull([tbl_IDS_Kunden].KdNrAlt, 1) = 0 " & sqlfehlendePDF & IIf(kdNr > 0, " AND [KdNrVERAG]=" & kdNr, "") & " ) and [YearMonthDay] " & setSQLWhere("IDS", "") & " -- order by [YearMonthDay], [Invoicenumber] + 'IDS' as Lieferant,invoice_id,[tbl_IDS_Kunden].KdNrVERAG as AdressenNr, [YearMonthDay] as Rechnungsdatum,[Invoicenumber] as Rechnungsnummer,tblIDSInvoicesNew.CustomerCode as Kundennummer,[AmminclVAT] as Bruttobetrag,[TotalNetAmount] as Nettobetrag,[VATAmount] as MWSt,'' as Land, 'RE' as Art,[daId], cast(case when [daId] is not null then 1 else 0 end as bit) as PDFvorhanden FROM tblIDSInvoicesNew inner join [VERAG].[dbo].[tbl_IDS_Kunden] on tblIDSInvoicesNew.CustomerCode = tbl_IDS_Kunden.CustomerCode WHERE tblIDSInvoicesNew.[CustomerCode] in (SELECT [CustomerCode] FROM [VERAG].[dbo].[tbl_IDS_Kunden] WHERE 1 = 1 and isnull([tbl_IDS_Kunden].KdNrAlt, 1) = 0 " & sqlfehlendePDF & IIf(kdNr > 0, " AND [KdNrVERAG]=" & kdNr, "") & " ) and [YearMonthDay] " & setSQLWhere("IDS", "") & whereKundennrKreisLieferanten & " -- order by [YearMonthDay], [Invoicenumber] UNION ALL --MSE - SELECT " & IIf(cbxMax1000Eintrage.Checked, " top " & anzahl, "") & " 'MSE' as Lieferant,-1 as invoice_id,partner_customer_number as AdressenNr, [invoice_date] as Rechnungsdatum, cast([invoice_id] as nvarchar) as Rechnungsnummer,[customer_number] as Kundennummer, [total_amount_euro] as Bruttobetrag ,(total_amount_euro - [total_vat_amount_euro]) as Nettobetrag ,[total_vat_amount_euro] as MWST,[country] as Land,'RE' as Art,daId, cast(case when [daId] is not null then 1 else 0 end as bit) as PDFvorhanden FROM tblMSEInvoices inner join tblMSECustomers on customer_id = [customer_number] where 1 = 1 " & sqlfehlendePDF & IIf(kdNr > 0, " AND [partner_customer_number]=" & kdNr, "") & " and [invoice_date] " & setSQLWhere("MSE", "country") & " --order by invoice_date, invoice_id + SELECT " & IIf(cbxMax1000Eintrage.Checked, " top " & anzahl, "") & " 'MSE' as Lieferant,-1 as invoice_id,partner_customer_number as AdressenNr, [invoice_date] as Rechnungsdatum, cast([invoice_id] as nvarchar) as Rechnungsnummer,[customer_number] as Kundennummer, [total_amount_euro] as Bruttobetrag ,(total_amount_euro - [total_vat_amount_euro]) as Nettobetrag ,[total_vat_amount_euro] as MWST,[country] as Land,'RE' as Art,daId, cast(case when [daId] is not null then 1 else 0 end as bit) as PDFvorhanden FROM tblMSEInvoices inner join tblMSECustomers on customer_id = [customer_number] where 1 = 1 " & sqlfehlendePDF & IIf(kdNr > 0, " AND [partner_customer_number]=" & kdNr, "") & " and [invoice_date] " & setSQLWhere("MSE", "country") & whereKundennrKreisLieferanten & " --order by invoice_date, invoice_id UNION ALL --UTA - SELECT " & IIf(cbxMax1000Eintrage.Checked, " top " & anzahl, "") & " 'UTA' as Lieferant,-1 as invoice_id,Adressen.AdressenNr, [Rechnungsdatum],STR([Rechnungsnummer_pro_Lieferland]) as Rechnungsnummer,Kundennummer,SUM(Gesamtbetrag_Brutto_in_Darstellwährung) as Bruttobetrag,SUM(Gesamtbetrag_Netto_in_Darstellwährung) as Nettobetrag, SUM(Gesamtbetrag_Umsatzsteuer_in_Darstellwährung) as MWSt,[Lieferland_ISO2] as Land, 'RE' as Art,[daId], cast(case when [daId] is not null then 1 else 0 end as bit) as PDFvorhanden FROM [VERAG].[dbo].[tblUTAImportNew] inner join adressen on Kundennummer = UTAKundenNr where 1 = 1 " & sqlfehlendePDF & IIf(kdNr > 0, " AND [AdressenNr]=" & kdNr, "") & " and [Rechnungsdatum] " & setSQLWhere("UTA", "Lieferland_ISO2") & " group by [Rechnungsnummer_pro_Lieferland],[Rechnungsdatum],Kundennummer,AdressenNr,[daId],[Lieferland_ISO2] UNION ALL SELECT 'UTA',-1,AdressenNr, [Datum], cast([RechnungsNr] as nvarchar) ,[KundenNr],0,0,0,'',[DocumentTyp],[daId], cast(case when [daId] is not null then 1 else 0 end as bit) as PDFvorhanden FROM [VERAG].[dbo].[tblUTADocuments] inner join adressen on KundenNr = UTAKundenNr where AdressenNr = " & kdNr & " AND Datum " & setSQLWhere("UTA_", "") & " --order by Rechnungsnummer desc + SELECT " & IIf(cbxMax1000Eintrage.Checked, " top " & anzahl, "") & " 'UTA' as Lieferant,-1 as invoice_id,Adressen.AdressenNr, [Rechnungsdatum],STR([Rechnungsnummer_pro_Lieferland]) as Rechnungsnummer,Kundennummer,SUM(Gesamtbetrag_Brutto_in_Darstellwährung) as Bruttobetrag,SUM(Gesamtbetrag_Netto_in_Darstellwährung) as Nettobetrag, SUM(Gesamtbetrag_Umsatzsteuer_in_Darstellwährung) as MWSt,[Lieferland_ISO2] as Land, 'RE' as Art,[daId], cast(case when [daId] is not null then 1 else 0 end as bit) as PDFvorhanden FROM [VERAG].[dbo].[tblUTAImportNew] inner join adressen on Kundennummer = UTAKundenNr where 1 = 1 " & sqlfehlendePDF & IIf(kdNr > 0, " AND [AdressenNr]=" & kdNr, "") & " and [Rechnungsdatum] " & setSQLWhere("UTA", "Lieferland_ISO2") & whereKundennrKreisLieferanten & " group by [Rechnungsnummer_pro_Lieferland],[Rechnungsdatum],Kundennummer,AdressenNr,[daId],[Lieferland_ISO2] UNION ALL SELECT 'UTA',-1,AdressenNr, [Datum], cast([RechnungsNr] as nvarchar) ,[KundenNr],0,0,0,'',[DocumentTyp],[daId], cast(case when [daId] is not null then 1 else 0 end as bit) as PDFvorhanden FROM [VERAG].[dbo].[tblUTADocuments] inner join adressen on KundenNr = UTAKundenNr where AdressenNr = " & kdNr & " AND Datum " & setSQLWhere("UTA_", "") & whereKundennrKreisLieferanten & " --order by Rechnungsnummer desc UNION ALL --VERAG - SELECT " & IIf(cbxMax1000Eintrage.Checked, " top " & anzahl, "") & " 'VERAG' as Lieferant,-1 as invoice_id,Adressen.AdressenNr, tblTrdinInvoice.Rechnungsdatum, cast(tblTrdinInvoice.Rechnungsnummer as nvarchar) as Rechnungsnummer ,tblTrdinInvoice.KundenNrZentrale as Kundennummer, tblTrdinInvoice.SteuerpflichtigerBetragLokal + tblTrdinInvoice.SteuerfreierBetragLokal as Bruttobetrag ,tblTrdinInvoice.SteuerpflichtigerBetragLokal + tblTrdinInvoice.SteuerfreierBetragLokal - tblTrdinInvoice.SteuerbetragLokal as Nettobetrag ,tblTrdinInvoice.SteuerbetragLokal as MWST, 'AT' as Land, 'RE' as Art, 1 as daId, cast(1 as bit) PDFvorhanden FROM tblTrdinInvoice inner join Adressen on KundenNrZentrale = AdressenNr WHERE 1 = 1 " & IIf(kdNr > 0, " AND tblTrdinInvoice.RechnungsKundenNr=" & kdNr, "") & " and tblTrdinInvoice.Rechnungsdatum " & setSQLWhere("VERAG", "'AT'") & " AND tblTrdinInvoice.FilialenNr = 4814 --ORDER BY tblTrdinInvoice.Rechnungsdatum, tblTrdinInvoice.Rechnungsnummer + SELECT " & IIf(cbxMax1000Eintrage.Checked, " top " & anzahl, "") & " 'VERAG' as Lieferant,-1 as invoice_id,Adressen.AdressenNr, tblTrdinInvoice.Rechnungsdatum, cast(tblTrdinInvoice.Rechnungsnummer as nvarchar) as Rechnungsnummer ,tblTrdinInvoice.KundenNrZentrale as Kundennummer, tblTrdinInvoice.SteuerpflichtigerBetragLokal + tblTrdinInvoice.SteuerfreierBetragLokal as Bruttobetrag ,tblTrdinInvoice.SteuerpflichtigerBetragLokal + tblTrdinInvoice.SteuerfreierBetragLokal - tblTrdinInvoice.SteuerbetragLokal as Nettobetrag ,tblTrdinInvoice.SteuerbetragLokal as MWST, 'AT' as Land, 'RE' as Art, 1 as daId, cast(1 as bit) PDFvorhanden FROM tblTrdinInvoice inner join Adressen on KundenNrZentrale = AdressenNr WHERE 1 = 1 " & sqlfehlendePDF_VERAG & IIf(kdNr > 0, " AND tblTrdinInvoice.RechnungsKundenNr=" & kdNr, "") & " and tblTrdinInvoice.Rechnungsdatum " & setSQLWhere("VERAG", "'AT'") & whereKundennrKreisLieferanten & " AND tblTrdinInvoice.FilialenNr = 4814 --ORDER BY tblTrdinInvoice.Rechnungsdatum, tblTrdinInvoice.Rechnungsnummer UNION ALL --PLOSE - SELECT " & IIf(cbxMax1000Eintrage.Checked, " top " & anzahl, "") & " 'PLOSE' as Lieferant,-1 as invoice_id,Adressen.AdressenNr, [plInv_SupplierRechnungsDatum] as Rechnungsdatum, cast([plInv_SupplierRechnungsNr] as nvarchar) as Rechnungsnummer,[plInv_PLOSEKundennummer] as Kundennummer,[plInv_Bruttobetrag] as Bruttobetrag,[plInv_Nettobetrag] as Nettobetrag,[plInv_MWSTBetrag] as MWST, [plInv_SupplierCountry] as Land, 'RE' as Art,[plInv_daId] as daId, cast(case when [plInv_daId] is not null then 1 else 0 end as bit) as PDFvorhanden FROM tblPLOSE_Inv_Data inner join Adressen on Adressen.PLOSEKundenNr = plInv_PLOSEKundennummer where 1 = 1 " & sqlfehlendePDF_PLOSE & IIf(kdNr > 0, " AND Adressen.AdressenNr=" & kdNr, "") & " and [plInv_SupplierRechnungsDatum] " & setSQLWhere("PLOSE", "plInv_SupplierCountry") & "-- Order by plInv_SupplierRechnungsDatum desc, [plInv_SupplierRechnungsNr] + SELECT " & IIf(cbxMax1000Eintrage.Checked, " top " & anzahl, "") & " 'PLOSE' as Lieferant,-1 as invoice_id,Adressen.AdressenNr, [plInv_SupplierRechnungsDatum] as Rechnungsdatum, cast([plInv_SupplierRechnungsNr] as nvarchar) as Rechnungsnummer,[plInv_PLOSEKundennummer] as Kundennummer,[plInv_Bruttobetrag] as Bruttobetrag,[plInv_Nettobetrag] as Nettobetrag,[plInv_MWSTBetrag] as MWST, [plInv_SupplierCountry] as Land, 'RE' as Art,[plInv_daId] as daId, cast(case when [plInv_daId] is not null then 1 else 0 end as bit) as PDFvorhanden FROM tblPLOSE_Inv_Data inner join Adressen on Adressen.PLOSEKundenNr = plInv_PLOSEKundennummer where 1 = 1 " & sqlfehlendePDF_PLOSE & IIf(kdNr > 0, " AND Adressen.AdressenNr=" & kdNr, "") & " and [plInv_SupplierRechnungsDatum] " & setSQLWhere("PLOSE", "plInv_SupplierCountry") & whereKundennrKreisLieferanten & "-- Order by plInv_SupplierRechnungsDatum desc, [plInv_SupplierRechnungsNr] UNION ALL --RMC - SELECT " & IIf(cbxMax1000Eintrage.Checked, " top " & anzahl, "") & " 'RMC' as Lieferant,-1 as invoice_id,Adressen.AdressenNr, [rmc_reDatum] as Rechnungsdatum,cast([rmc_reNr] as nvarchar) as Rechnungsnummer,rmc_kdNr as Kundennummer ,[rmc_betragBrutto] as Bruttobetrag,[rmc_betragNetto] as Nettobetrag,[rmc_betragMWST] as MWST, rmc_landKZ as Land, 'RE' as Art, [rmc_daId] as daId, cast(case when [rmc_daId] is not null then 1 else 0 end as bit) as PDFvorhanden FROM [VERAG].[dbo].[tblRMCImport] inner join Adressen on Adressen.WölflKundenNr = rmc_kdNr where 1 = 1 " & sqlfehlendePDF_RMC & IIf(kdNr > 0, " AND AdressenNr=" & kdNr, "") & " and [rmc_reDatum] " & setSQLWhere("RMC", "rmc_landKZ") & "-- order by rmc_reDatum, rmc_reNr + SELECT " & IIf(cbxMax1000Eintrage.Checked, " top " & anzahl, "") & " 'RMC' as Lieferant,-1 as invoice_id,Adressen.AdressenNr, [rmc_reDatum] as Rechnungsdatum,cast([rmc_reNr] as nvarchar) as Rechnungsnummer,rmc_kdNr as Kundennummer ,[rmc_betragBrutto] as Bruttobetrag,[rmc_betragNetto] as Nettobetrag,[rmc_betragMWST] as MWST, rmc_landKZ as Land, 'RE' as Art, [rmc_daId] as daId, cast(case when [rmc_daId] is not null then 1 else 0 end as bit) as PDFvorhanden FROM [VERAG].[dbo].[tblRMCImport] inner join Adressen on Adressen.WölflKundenNr = rmc_kdNr where 1 = 1 " & sqlfehlendePDF_RMC & IIf(kdNr > 0, " AND AdressenNr=" & kdNr, "") & " and [rmc_reDatum] " & setSQLWhere("RMC", "rmc_landKZ") & whereKundennrKreisLieferanten & "-- order by rmc_reDatum, rmc_reNr - ) as temp where 1=1 and temp.Rechnungsdatum" & setSQLWhere(SDLNrTmp, "temp.Land") & " order by Rechnungsdatum desc" + ) as temp where 1=1 and temp.Rechnungsdatum" & setSQLWhere(SDLNrTmp, "temp.Land") & whereKundennrKreisAlle & " order by Rechnungsdatum desc" @@ -513,44 +531,141 @@ Public Class usrcntlFremdrechnungen End Select End Function Private Sub btnSDL_Alle_Click(sender As Object, e As EventArgs) Handles btnSDL_Alle.Click - SET_SDL("ALLE") + 'SET_SDL("ALLE") + + If txtKundenNrvon.Text <> "" AndAlso txtKundenNrvon.Text.Length = 6 AndAlso IsNumeric(txtKundenNrvon.Text) AndAlso txtKundenNrbis.Text <> "" AndAlso txtKundenNrbis.Text.Length = 6 AndAlso IsNumeric(txtKundenNrbis.Text) Then + SET_SDL("ALLE", txtKundenNrvon.Text, txtKundenNrbis.Text) + + ElseIf txtKundenNrvon.Text = "" AndAlso txtKundenNrbis.Text = "" Then + + SET_SDL("ALLE") + + End If End Sub Private Sub btnSDL_IDS_Click(sender As Object, e As EventArgs) Handles btnSDL_IDS.Click - SET_SDL("IDS") + 'SET_SDL("IDS") + + If txtKundenNrvon.Text <> "" AndAlso txtKundenNrvon.Text.Length = 6 AndAlso IsNumeric(txtKundenNrvon.Text) AndAlso txtKundenNrbis.Text <> "" AndAlso txtKundenNrbis.Text.Length = 6 AndAlso IsNumeric(txtKundenNrbis.Text) Then + SET_SDL("IDS", txtKundenNrvon.Text, txtKundenNrbis.Text) + + ElseIf txtKundenNrvon.Text = "" AndAlso txtKundenNrbis.Text = "" Then + + SET_SDL("IDS") + + End If + End Sub Private Sub btnSDL_UTA_Click(sender As Object, e As EventArgs) Handles btnSDL_UTA.Click - SET_SDL("UTA") + 'SET_SDL("UTA") + + + If txtKundenNrvon.Text <> "" AndAlso txtKundenNrvon.Text.Length = 6 AndAlso IsNumeric(txtKundenNrvon.Text) AndAlso txtKundenNrbis.Text <> "" AndAlso txtKundenNrbis.Text.Length = 6 AndAlso IsNumeric(txtKundenNrbis.Text) Then + SET_SDL("UTA", txtKundenNrvon.Text, txtKundenNrbis.Text) + + ElseIf txtKundenNrvon.Text = "" AndAlso txtKundenNrbis.Text = "" Then + + SET_SDL("UTA") + + End If End Sub Private Sub btnSDL_Hugo_Click(sender As Object, e As EventArgs) Handles btnSDL_Hugo.Click - SET_SDL("HUGO") + 'SET_SDL("HUGO") + + + If txtKundenNrvon.Text <> "" AndAlso txtKundenNrvon.Text.Length = 6 AndAlso IsNumeric(txtKundenNrvon.Text) AndAlso txtKundenNrbis.Text <> "" AndAlso txtKundenNrbis.Text.Length = 6 AndAlso IsNumeric(txtKundenNrbis.Text) Then + SET_SDL("HUGO", txtKundenNrvon.Text, txtKundenNrbis.Text) + + ElseIf txtKundenNrvon.Text = "" AndAlso txtKundenNrbis.Text = "" Then + + SET_SDL("HUGO") + + End If End Sub Private Sub btnSDL_PLOSE_Click(sender As Object, e As EventArgs) Handles btnSDL_PLOSE.Click - SET_SDL("PLOSE") + 'SET_SDL("PLOSE") + + + If txtKundenNrvon.Text <> "" AndAlso txtKundenNrvon.Text.Length = 6 AndAlso IsNumeric(txtKundenNrvon.Text) AndAlso txtKundenNrbis.Text <> "" AndAlso txtKundenNrbis.Text.Length = 6 AndAlso IsNumeric(txtKundenNrbis.Text) Then + SET_SDL("PLOSE", txtKundenNrvon.Text, txtKundenNrbis.Text) + + ElseIf txtKundenNrvon.Text = "" AndAlso txtKundenNrbis.Text = "" Then + + SET_SDL("PLOSE") + + End If End Sub Private Sub btnSDL_MautMSE_Click(sender As Object, e As EventArgs) Handles btnSDL_MautMSE.Click - SET_SDL("MSE") + 'SET_SDL("MSE") + + + If txtKundenNrvon.Text <> "" AndAlso txtKundenNrvon.Text.Length = 6 AndAlso IsNumeric(txtKundenNrvon.Text) AndAlso txtKundenNrbis.Text <> "" AndAlso txtKundenNrbis.Text.Length = 6 AndAlso IsNumeric(txtKundenNrbis.Text) Then + SET_SDL("MSE", txtKundenNrvon.Text, txtKundenNrbis.Text) + + ElseIf txtKundenNrvon.Text = "" AndAlso txtKundenNrbis.Text = "" Then + + SET_SDL("MSE") + + End If End Sub Private Sub btnSDL_MotorWay_Click(sender As Object, e As EventArgs) - SET_SDL("MW") + 'SET_SDL("MW") + + If txtKundenNrvon.Text <> "" AndAlso txtKundenNrvon.Text.Length = 6 AndAlso IsNumeric(txtKundenNrvon.Text) AndAlso txtKundenNrbis.Text <> "" AndAlso txtKundenNrbis.Text.Length = 6 AndAlso IsNumeric(txtKundenNrbis.Text) Then + SET_SDL("MW", txtKundenNrvon.Text, txtKundenNrbis.Text) + + ElseIf txtKundenNrvon.Text = "" AndAlso txtKundenNrbis.Text = "" Then + + SET_SDL("MW") + + End If End Sub Private Sub btnSDL_FREJUS_Click(sender As Object, e As EventArgs) Handles btnSDL_FREJUS.Click - SET_SDL("FREJUS") + 'SET_SDL("FREJUS") + + + If txtKundenNrvon.Text <> "" AndAlso txtKundenNrvon.Text.Length = 6 AndAlso IsNumeric(txtKundenNrvon.Text) AndAlso txtKundenNrbis.Text <> "" AndAlso txtKundenNrbis.Text.Length = 6 AndAlso IsNumeric(txtKundenNrbis.Text) Then + SET_SDL("FREJUS", txtKundenNrvon.Text, txtKundenNrbis.Text) + + ElseIf txtKundenNrvon.Text = "" AndAlso txtKundenNrbis.Text = "" Then + + SET_SDL("FREJUS") + + End If + End Sub Private Sub btnVERAGCardNew_Click(sender As Object, e As EventArgs) Handles btnVERAGCardNew.Click - SET_SDL("VERAG") + 'SET_SDL("VERAG") + + If txtKundenNrvon.Text <> "" AndAlso txtKundenNrvon.Text.Length = 6 AndAlso IsNumeric(txtKundenNrvon.Text) AndAlso txtKundenNrbis.Text <> "" AndAlso txtKundenNrbis.Text.Length = 6 AndAlso IsNumeric(txtKundenNrbis.Text) Then + SET_SDL("VERAG", txtKundenNrvon.Text, txtKundenNrbis.Text) + + ElseIf txtKundenNrvon.Text = "" AndAlso txtKundenNrbis.Text = "" Then + + SET_SDL("VERAG") + + End If End Sub Private Sub btnSDL_RMC_Click(sender As Object, e As EventArgs) Handles btnSDL_RMC.Click - SET_SDL("RMC") + + If txtKundenNrvon.Text <> "" AndAlso txtKundenNrvon.Text.Length = 6 AndAlso IsNumeric(txtKundenNrvon.Text) AndAlso txtKundenNrbis.Text <> "" AndAlso txtKundenNrbis.Text.Length = 6 AndAlso IsNumeric(txtKundenNrbis.Text) Then + SET_SDL("RMC", txtKundenNrvon.Text, txtKundenNrbis.Text) + + ElseIf txtKundenNrvon.Text = "" AndAlso txtKundenNrbis.Text = "" Then + + SET_SDL("RMC") + + End If + End Sub @@ -666,7 +781,7 @@ Public Class usrcntlFremdrechnungen Next If aktLieferant = "ALLE" And cbxMax1000Eintrage.Checked Then - MsgBox("Entferne die MAX 1000 Einträge Beschänkung, da ansonsten können nicht alle Daten ermittelt werden!") + MsgBox("Entferne die MAX 1000 Einträge Beschänkung, da ansonsten nicht alle Daten ermittelt werden können!") Exit Sub End If @@ -680,87 +795,87 @@ Public Class usrcntlFremdrechnungen For Each kvp In groups - Dim TextHTMLtable = "" + Dim TextHTMLtable = "" - TextHTMLtable &= "" - TextHTMLtable &= "" + TextHTMLtable &= "
SupplierCountryDate
" + TextHTMLtable &= "" - Dim pdflist As New List(Of String) + Dim pdflist As New List(Of String) - For Each row In kvp.Value + For Each row In kvp.Value - Dim Lieferant = "" + Dim Lieferant = "" - If dgvLFRechnung.Columns.Contains("Lieferant") Then - Lieferant = row.Cells("Lieferant").Value - Else - Lieferant = aktLieferant - End If + If dgvLFRechnung.Columns.Contains("Lieferant") Then + Lieferant = row.Cells("Lieferant").Value + Else + Lieferant = aktLieferant + End If - If Lieferant = "VERAG" Then - 'VERAG IGNORIEREN - 'Dim ReDat = row.Cells("Rechnungsdatum").Value - 'Dim ReNr = row.Cells("Rechnungsnummer").Value + If Lieferant = "VERAG" Then + 'VERAG IGNORIEREN + 'Dim ReDat = row.Cells("Rechnungsdatum").Value + 'Dim ReNr = row.Cells("Rechnungsnummer").Value - 'If ReDat IsNot Nothing AndAlso ReNr > 0 Then - ' Me.Cursor = Cursors.WaitCursor - ' Dim da_id = SQL.getValueTxtBySql("SELECT TOP(1) RK_ID FROM Rechnungsausgang where cast(Rechnungsausgang.RechnungsDatum as Date) ='" & ReDat & "' and Rechnungsausgang.RechnungsNr='" & ReNr & "' AND FilialenNr = 4814 AND RK_ID is not null", "FMZOLL") - ' cFakturierung.doRechnungsDruck_SRorER(da_id,, False, 3) - 'End If + 'If ReDat IsNot Nothing AndAlso ReNr > 0 Then + ' Me.Cursor = Cursors.WaitCursor + ' Dim da_id = SQL.getValueTxtBySql("SELECT TOP(1) RK_ID FROM Rechnungsausgang where cast(Rechnungsausgang.RechnungsDatum as Date) ='" & ReDat & "' and Rechnungsausgang.RechnungsNr='" & ReNr & "' AND FilialenNr = 4814 AND RK_ID is not null", "FMZOLL") + ' cFakturierung.doRechnungsDruck_SRorER(da_id,, False, 3) + 'End If - Else + Else - If Lieferant = "IDS" Then + If Lieferant = "IDS" Then - Dim dt As New DataTable - dt = initDGVRechnungsdetails(row.Cells("invoice_id").Value, True) + Dim dt As New DataTable + dt = initDGVRechnungsdetails(row.Cells("invoice_id").Value, True) - For Each r As DataRow In dt.Rows + For Each r As DataRow In dt.Rows - TextHTMLtable &= "" - TextHTMLtable &= "" - TextHTMLtable &= "" - TextHTMLtable &= "" - TextHTMLtable &= "" - - Dim daId As Integer = IIf(IsDBNull(r.Item("daId")), -1, r.Item("daId")) - If daId > 0 Then - Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(daId) - pdflist.Add(DS.GET_TOP1_PATH()) - End If - - Next - - - - Else TextHTMLtable &= "" TextHTMLtable &= "" - TextHTMLtable &= "" - TextHTMLtable &= "" + TextHTMLtable &= "" + TextHTMLtable &= "" TextHTMLtable &= "" - Dim daId As Integer = IIf(IsDBNull(row.Cells("daId").Value), -1, row.Cells("daId").Value) + Dim daId As Integer = IIf(IsDBNull(r.Item("daId")), -1, r.Item("daId")) If daId > 0 Then Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(daId) pdflist.Add(DS.GET_TOP1_PATH()) End If + Next + + + + Else + TextHTMLtable &= "" + TextHTMLtable &= "" + TextHTMLtable &= "" + TextHTMLtable &= "" + TextHTMLtable &= "" + + Dim daId As Integer = IIf(IsDBNull(row.Cells("daId").Value), -1, row.Cells("daId").Value) + If daId > 0 Then + Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(daId) + pdflist.Add(DS.GET_TOP1_PATH()) End If - - End If - Next - TextHTMLtable &= "
SupplierCountryDate
" & Lieferant & "" & r.Item("Land") & "" & r.Item("Rechnungsdatum") & "
" & Lieferant & "" & row.Cells("Land").Value & "" & row.Cells("Rechnungsdatum").Value & "" & r.Item("Land") & "" & r.Item("Rechnungsdatum") & "
" & Lieferant & "" & row.Cells("Land").Value & "" & row.Cells("Rechnungsdatum").Value & "
" + End If - Dim outl As New Outlook.Application - Dim Mail As Microsoft.Office.Interop.Outlook.MailItem - Mail = outl.CreateItem(0) + Next + + + TextHTMLtable &= "" + + Dim outl As New Outlook.Application + Dim Mail As Microsoft.Office.Interop.Outlook.MailItem + Mail = outl.CreateItem(0) Dim kundeMail As New cKunden() kundeMail = kundenSQL.getKundeByKdNr(kvp.Key) @@ -818,53 +933,68 @@ Public Class usrcntlFremdrechnungen End Select + + Mail.HTMLBody &= VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME & "
" + Mail.HTMLBody &= "
" + Mail.HTMLBody &= cFakturierung.getSignature("DE", 19, True, True) + If pdflist.Count > 0 Then - For Each pdf In pdflist - Mail.Attachments.Add(pdf, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue, , ) - Next - End If + For Each pdf In pdflist + Mail.Attachments.Add(pdf, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue, , ) + Next + End If Mail.To &= kundeMail.EMail Mail.CC &= kundeMail.EMail2 If cbxMailoeffnen.Checked Then + Try + Mail.Display() + Catch ex As Exception + MsgBox(ex.Message) + End Try - Mail.Display() Else - - If Mail IsNot Nothing Then - - - Dim API = VERAG_PROG_ALLGEMEIN.cAPI.INSERT_API(VERAG_PROG_ALLGEMEIN.cAPI_INOUT.OUT, VERAG_PROG_ALLGEMEIN.cAPI_Type.MAIL, VERAG_PROG_ALLGEMEIN.cAPI_ART.SDL_OUT_SAMMELRECHNUNG, "MAIL-ORIG-RG",,, kvp.Key) - - API.api_EMail = Mail.To - API.api_EMailCC = Mail.CC - API.api_EMailBCC = Mail.BCC - API.api_EMailSubject = Mail.Subject - API.api_EMailText = Mail.HTMLBody - API.api_EMailAttCnt = Mail.Attachments.Count + Try If Mail IsNot Nothing Then - If VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(API.api_EMail, API.api_EMailSubject, API.api_EMailText, "mmdabrechnung@verag.ag", False, False, API.api_EMailCC, API.api_EMailBCC, pdflist,, "mmdabrechnung@verag.ag") Then - API.UPDTAE_OK() - Else - API.UPDTAE_ERR() + Dim API = VERAG_PROG_ALLGEMEIN.cAPI.INSERT_API(VERAG_PROG_ALLGEMEIN.cAPI_INOUT.OUT, VERAG_PROG_ALLGEMEIN.cAPI_Type.MAIL, VERAG_PROG_ALLGEMEIN.cAPI_ART.SDL_OUT_SAMMELRECHNUNG, "MAIL-ORIG-RG",,, kvp.Key) + + API.api_EMail = Mail.To + API.api_EMailCC = Mail.CC + API.api_EMailBCC = IIf(Mail.BCC <> "", Mail.BCC & ";mmdabrechnung@verag.ag", "mmdabrechnung@verag.ag") + API.api_EMailSubject = Mail.Subject + API.api_EMailText = Mail.HTMLBody + API.api_EMailAttCnt = Mail.Attachments.Count + + If Mail IsNot Nothing Then + + If VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(API.api_EMail, API.api_EMailSubject, API.api_EMailText, "mmdabrechnung@verag.ag", False, False, API.api_EMailCC, API.api_EMailBCC, pdflist,, "mmdabrechnung@verag.ag") Then + API.UPDTAE_OK() + + Else + API.UPDTAE_ERR() + + End If End If End If - End If + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + Me.Cursor = Cursors.Default + End Try End If - Next + Next - End If + End If End Sub @@ -1000,11 +1130,25 @@ Public Class usrcntlFremdrechnungen End Sub Private Sub dat_Sum_Von_Leave(sender As Object, e As EventArgs) Handles dat_Sum_Von.Leave, dat_Sum_Bis.Leave - SET_SDL(aktLieferant) + If txtKundenNrvon.Text <> "" AndAlso txtKundenNrvon.Text.Length = 6 AndAlso IsNumeric(txtKundenNrvon.Text) AndAlso txtKundenNrbis.Text <> "" AndAlso txtKundenNrbis.Text.Length = 6 AndAlso IsNumeric(txtKundenNrbis.Text) Then + SET_SDL(aktLieferant, txtKundenNrvon.Text, txtKundenNrbis.Text) + + ElseIf txtKundenNrvon.Text = "" AndAlso txtKundenNrbis.Text = "" Then + + SET_SDL(aktLieferant) + + End If End Sub Private Sub cbx_CheckedChanged(sender As Object, e As EventArgs) Handles cbx.CheckedChanged - SET_SDL(aktLieferant) + If txtKundenNrvon.Text <> "" AndAlso txtKundenNrvon.Text.Length = 6 AndAlso IsNumeric(txtKundenNrvon.Text) AndAlso txtKundenNrbis.Text <> "" AndAlso txtKundenNrbis.Text.Length = 6 AndAlso IsNumeric(txtKundenNrbis.Text) Then + SET_SDL(aktLieferant, txtKundenNrvon.Text, txtKundenNrbis.Text) + + ElseIf txtKundenNrvon.Text = "" AndAlso txtKundenNrbis.Text = "" Then + + SET_SDL(aktLieferant) + + End If End Sub Private Sub Button2_Click(sender As Object, e As EventArgs) @@ -1210,11 +1354,37 @@ Public Class usrcntlFremdrechnungen End Sub Private Sub cbxMax1000Eintrage_CheckedChanged(sender As Object, e As EventArgs) Handles cbxMax1000Eintrage.CheckedChanged - SET_SDL(aktLieferant) + If txtKundenNrvon.Text <> "" AndAlso txtKundenNrvon.Text.Length = 6 AndAlso IsNumeric(txtKundenNrvon.Text) AndAlso txtKundenNrbis.Text <> "" AndAlso txtKundenNrbis.Text.Length = 6 AndAlso IsNumeric(txtKundenNrbis.Text) Then + SET_SDL(aktLieferant, txtKundenNrvon.Text, txtKundenNrbis.Text) + + ElseIf txtKundenNrvon.Text = "" AndAlso txtKundenNrbis.Text = "" Then + + SET_SDL(aktLieferant) + + End If End Sub Private Sub chxfehlendePDFs_CheckedChanged(sender As Object, e As EventArgs) Handles cbxPDFhinterlegt.CheckStateChanged - SET_SDL(aktLieferant) + If txtKundenNrvon.Text <> "" AndAlso txtKundenNrvon.Text.Length = 6 AndAlso IsNumeric(txtKundenNrvon.Text) AndAlso txtKundenNrbis.Text <> "" AndAlso txtKundenNrbis.Text.Length = 6 AndAlso IsNumeric(txtKundenNrbis.Text) Then + SET_SDL(aktLieferant, txtKundenNrvon.Text, txtKundenNrbis.Text) + + ElseIf txtKundenNrvon.Text = "" AndAlso txtKundenNrbis.Text = "" Then + + SET_SDL(aktLieferant) + + End If End Sub + + Private Sub txtKundenNrvon_TextChanged(sender As Object, e As EventArgs) Handles txtKundenNrvon.TextChanged, txtKundenNrbis.TextChanged + If txtKundenNrvon.Text <> "" AndAlso txtKundenNrvon.Text.Length = 6 AndAlso IsNumeric(txtKundenNrvon.Text) AndAlso txtKundenNrbis.Text <> "" AndAlso txtKundenNrbis.Text.Length = 6 AndAlso IsNumeric(txtKundenNrbis.Text) Then + SET_SDL(aktLieferant, txtKundenNrvon.Text, txtKundenNrbis.Text) + + ElseIf txtKundenNrvon.Text = "" AndAlso txtKundenNrbis.Text = "" Then + + SET_SDL(aktLieferant) + + End If + End Sub + End Class diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cTrdInvoice.vb b/VERAG_PROG_ALLGEMEIN/Classes/cTrdInvoice.vb index 85bdf3d3..b0ca7e74 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cTrdInvoice.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cTrdInvoice.vb @@ -496,15 +496,21 @@ Class TrdInvoice_FUNCTIONS End If + Dim Buchungstext As String = ROW("RK_Buchungstext") + + If Buchungstext <> "" AndAlso Buchungstext.Contains("Abrechnungsperiode von") Then + Buchungstext = Buchungstext.Replace("Abrechnungsperiode von", "Zinsen") + End If + If TRD_INVOICE.SAVE Then - If TrdinSchreibenProduct(TRD_INVOICE.Rechnungsdatum, ROW("RK_RechnungsNr"), TRD_INVOICE.Rechnungsnummer, RK_Währungscode, ROW("RK_RechnungsLandKz"), ROW("RK_Buchungstext"), TRD_INVOICE.Firma_ID, lngSatzzähler, WährungsdifferenzSteuerpflichtigerBetrag, WährungsdifferenzSteuerfreierBetrag, Buchungsjahr, TRD_INVOICE.VZ) Then + If TrdinSchreibenProduct(TRD_INVOICE.Rechnungsdatum, ROW("RK_RechnungsNr"), TRD_INVOICE.Rechnungsnummer, RK_Währungscode, ROW("RK_RechnungsLandKz"), Buchungstext, TRD_INVOICE.Firma_ID, lngSatzzähler, WährungsdifferenzSteuerpflichtigerBetrag, WährungsdifferenzSteuerfreierBetrag, Buchungsjahr, TRD_INVOICE.VZ) Then 'UPDATE rechnugnsausgang Dim firmaTmpsql = If(Firma > 0, " AND Firma_ID= '" & Firma & "' ", "") Dim buchungsjahrTmpsql = If(Buchungsjahr > 0, " AND Buchungsjahr= '" & Buchungsjahr & "' ", "") SQL.doSQL("UPDATE [Rechnungsausgang] SET [Trdin] = 1 WHERE convert(date,[RechnungsDatum] ,104) = '" & TRD_INVOICE.Rechnungsdatum.ToShortDateString & "' AND RechnungsNr = " & ROW("RK_RechnungsNr") & firmaTmpsql & buchungsjahrTmpsql, "FMZOLL") End If End If - End If + End If Next Return True @@ -699,7 +705,10 @@ Class TrdInvoice_FUNCTIONS Shared Function getSQLString_SELECTForTrdInvoice(Optional Firma As Integer = -1, Optional Buchungsjahr As Integer = -1) getSQLString_SELECTForTrdInvoice = "SELECT Rechnungsausgang.RechnungsDatum AS RK_RechnungsDatum, Rechnungsausgang.RechnungsNr AS RK_RechnungsNr, min(Rechnungsausgang.Abfertigungsdatum) AS RK_Abfertigungsdatum, min(Rechnungsausgang.FilialenNr) AS RK_FilialenNr, min(Rechnungsausgang.AbfertigungsNr) AS RK_AbfertigungsNr, min(Rechnungsausgang.UnterNr) AS RK_UnterNr, min(Rechnungsausgang.BelegartenNr) AS RK_BelegartenNr, - (min(cast([FilialenNr] as varchar(4))) + '/' + min(cast([AbfertigungsNr] as varchar(8))) + '/' + min(cast([UnterNr] as varchar(2)))) AS RK_Buchungstext, + case when min(Firma_ID)=19 and min(Rechnungsausgang.FilialenNr) = 8001 and min(Rechnungsausgang.OffertenNr) = 95 then + min(Rechnungsausgang.Vermerk) + else + (min(cast([FilialenNr] as varchar(4))) + '/' + min(cast([AbfertigungsNr] as varchar(8))) + '/' + min(cast([UnterNr] as varchar(2)))) end AS RK_Buchungstext, min(Rechnungsausgang.KundenNrZentrale) AS RK_KundenNrZentrale, min(Rechnungsausgang.RechnungsKundenNr) AS RK_RechnungsKundenNr, min(Rechnungsausgang.RechnungsLandKz) AS RK_RechnungsLandKz, min(Rechnungsausgang.RechnungsUstIdKz) AS RK_RechnungsUstIdKz, min(Rechnungsausgang.RechnungsUstIdNr) AS RK_RechnungsUstIdNr, min(Rechnungsausgang.Lastschrift+0) AS RK_Lastschrift, min(Rechnungsausgang.Steuerschlüssel) AS RK_Steuerschlüssel, min(Rechnungsausgang.[Steuersatz %]) AS RK_SteuersatzProzent, min(Rechnungsausgang.Währungscode) AS RK_Währungscode, diff --git a/VERAG_PROG_ALLGEMEIN/Schnittstellen/cSyska_Interface.vb b/VERAG_PROG_ALLGEMEIN/Schnittstellen/cSyska_Interface.vb index 0bba04bf..9c2a29a8 100644 --- a/VERAG_PROG_ALLGEMEIN/Schnittstellen/cSyska_Interface.vb +++ b/VERAG_PROG_ALLGEMEIN/Schnittstellen/cSyska_Interface.vb @@ -660,7 +660,8 @@ Public Class cSyska_Interface genBuchungsZeileSum &= FiBuSollkontonummer & vbTab genBuchungsZeileSum &= FiBuHabenkontonummer & vbTab - genBuchungsZeileSum &= row("FilialenNr") & "/" & row("AbfertigungsNr") & "/" & CDbl(row("UnterNr")).ToString("00") & vbTab + 'genBuchungsZeileSum &= row("FilialenNr") & "/" & row("AbfertigungsNr") & "/" & CDbl(row("UnterNr")).ToString("00") & vbTab + genBuchungsZeileSum &= IIf(row("Buchungstext") <> "" AndAlso row("Buchungstext").ToString.Contains("Zinsen"), row("Buchungstext") & vbTab, row("FilialenNr") & "/" & row("AbfertigungsNr") & "/" & CDbl(row("UnterNr")).ToString("00") & vbTab) genBuchungsZeileSum &= Format(CDbl(Bruttobetrag), fmt) & vbTab genBuchungsZeileSum &= "" & vbTab 'FiBuSteuersatz @@ -695,7 +696,9 @@ Public Class cSyska_Interface genBuchungsZeileSum &= FiBuSollkontonummer & vbTab genBuchungsZeileSum &= FiBuHabenkontonummer & vbTab - genBuchungsZeileSum &= row("FilialenNr") & "/" & row("AbfertigungsNr") & "/" & CDbl(row("UnterNr")).ToString("00") & vbTab + + 'genBuchungsZeileSum &= row("FilialenNr") & "/" & row("AbfertigungsNr") & "/" & CDbl(row("UnterNr")).ToString("00") & vbTab + genBuchungsZeileSum &= IIf(row("Buchungstext") <> "" AndAlso row("Buchungstext").ToString.Contains("Zinsen"), row("Buchungstext") & vbTab, row("FilialenNr") & "/" & row("AbfertigungsNr") & "/" & CDbl(row("UnterNr")).ToString("00") & vbTab) genBuchungsZeileSum &= Format(CDbl(FiBuBruttobetrag), fmt) & vbTab genBuchungsZeileSum &= "" & vbTab 'FiBuSteuersatz @@ -720,7 +723,9 @@ Public Class cSyska_Interface genBuchungsZeileSum &= FiBuHabenkontonummer & vbTab genBuchungsZeileSum &= FiBuSollkontonummer & vbTab - genBuchungsZeileSum &= row("FilialenNr") & "/" & row("AbfertigungsNr") & "/" & CDbl(row("UnterNr")).ToString("00") & vbTab + + 'genBuchungsZeileSum &= row("FilialenNr") & "/" & row("AbfertigungsNr") & "/" & CDbl(row("UnterNr")).ToString("00") & vbTab + genBuchungsZeileSum &= IIf(row("Buchungstext") <> "" AndAlso row("Buchungstext").ToString.Contains("Zinsen"), row("Buchungstext") & vbTab, row("FilialenNr") & "/" & row("AbfertigungsNr") & "/" & CDbl(row("UnterNr")).ToString("00") & vbTab) genBuchungsZeileSum &= Format(CDbl(FiBuBruttobetrag), fmt) & vbTab genBuchungsZeileSum &= "" & vbTab 'FiBuSteuersatz @@ -815,6 +820,7 @@ Public Class cSyska_Interface genBuchungsZeile &= FiBuHabenkontonummer & vbTab genBuchungsZeile &= row("FilialenNr") & "/" & row("AbfertigungsNr") & "/" & CDbl(row("UnterNr")).ToString("00") & vbTab + genBuchungsZeile &= Format(CDbl(FiBuBruttobetrag), fmt) & vbTab genBuchungsZeile &= Format(CDbl(FiBuSteuersatz), fmt) & vbTab 'FiBuSteuersatz genBuchungsZeile &= FormatStringDbl(FiBuSteuerbetrag) & vbTab 'FiBuSteuerbetrag