diff --git a/SDL/My Project/AssemblyInfo.vb b/SDL/My Project/AssemblyInfo.vb index ad94606e..e33bba71 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/USTV/frmMDM_USTVAntrag.Designer.vb b/SDL/USTV/frmMDM_USTVAntrag.Designer.vb index d20ed807..07440f1d 100644 --- a/SDL/USTV/frmMDM_USTVAntrag.Designer.vb +++ b/SDL/USTV/frmMDM_USTVAntrag.Designer.vb @@ -41,6 +41,7 @@ Partial Class frmMDM_USTVAntrag Me.cbxLand = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.lblLand = New System.Windows.Forms.Label() Me.Panel8 = New System.Windows.Forms.Panel() + Me.lblMWSTAbrechnung = New System.Windows.Forms.Label() Me.Label13 = New System.Windows.Forms.Label() Me.txtGueltig = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label11 = New System.Windows.Forms.Label() @@ -89,13 +90,12 @@ Partial Class frmMDM_USTVAntrag Me.dgvUSTVPositionen = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) Me.pnl = New System.Windows.Forms.Panel() Me.Panel2 = New System.Windows.Forms.Panel() - Me.UstCntlUSTV_AntragPosition1 = New SDL.ustCntlUSTV_AntragPosition() Me.Panel4 = New System.Windows.Forms.Panel() Me.btnEintragloeschen = New System.Windows.Forms.Button() Me.btnNeuerEintrag = New System.Windows.Forms.Button() Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.ContextMenuStrip2 = New System.Windows.Forms.ContextMenuStrip(Me.components) - Me.lblMWSTAbrechnung = New System.Windows.Forms.Label() + Me.UstCntlUSTV_AntragPosition1 = New SDL.ustCntlUSTV_AntragPosition() Me.Panel3.SuspendLayout() CType(Me.picPDF, System.ComponentModel.ISupportInitialize).BeginInit() Me.Panel1.SuspendLayout() @@ -362,6 +362,18 @@ Partial Class frmMDM_USTVAntrag Me.Panel8.Size = New System.Drawing.Size(973, 87) Me.Panel8.TabIndex = 19 ' + 'lblMWSTAbrechnung + ' + Me.lblMWSTAbrechnung.AutoSize = True + Me.lblMWSTAbrechnung.BackColor = System.Drawing.Color.Transparent + Me.lblMWSTAbrechnung.Cursor = System.Windows.Forms.Cursors.Hand + Me.lblMWSTAbrechnung.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblMWSTAbrechnung.ForeColor = System.Drawing.Color.Black + Me.lblMWSTAbrechnung.Location = New System.Drawing.Point(224, 41) + Me.lblMWSTAbrechnung.Name = "lblMWSTAbrechnung" + Me.lblMWSTAbrechnung.Size = New System.Drawing.Size(0, 17) + Me.lblMWSTAbrechnung.TabIndex = 25 + ' 'Label13 ' Me.Label13.AutoSize = True @@ -522,9 +534,9 @@ Partial Class frmMDM_USTVAntrag Me.cbxFiliale.DropDownWidth = 150 Me.cbxFiliale.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.cbxFiliale.FormattingEnabled = True - Me.cbxFiliale.Location = New System.Drawing.Point(429, 33) + Me.cbxFiliale.Location = New System.Drawing.Point(413, 33) Me.cbxFiliale.Name = "cbxFiliale" - Me.cbxFiliale.Size = New System.Drawing.Size(89, 24) + Me.cbxFiliale.Size = New System.Drawing.Size(105, 24) Me.cbxFiliale.TabIndex = 16 ' 'Label4 @@ -534,7 +546,7 @@ Partial Class frmMDM_USTVAntrag Me.Label4.Cursor = System.Windows.Forms.Cursors.Hand Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label4.ForeColor = System.Drawing.Color.Black - Me.Label4.Location = New System.Drawing.Point(363, 38) + Me.Label4.Location = New System.Drawing.Point(352, 38) Me.Label4.Name = "Label4" Me.Label4.Size = New System.Drawing.Size(48, 17) Me.Label4.TabIndex = 15 @@ -585,9 +597,9 @@ Partial Class frmMDM_USTVAntrag Me.cbxWahrung._value = "" Me.cbxWahrung.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.cbxWahrung.FormattingEnabled = True - Me.cbxWahrung.Location = New System.Drawing.Point(447, 5) + Me.cbxWahrung.Location = New System.Drawing.Point(431, 5) Me.cbxWahrung.Name = "cbxWahrung" - Me.cbxWahrung.Size = New System.Drawing.Size(71, 24) + Me.cbxWahrung.Size = New System.Drawing.Size(87, 24) Me.cbxWahrung.TabIndex = 12 ' 'lblWahrung @@ -597,7 +609,7 @@ Partial Class frmMDM_USTVAntrag Me.lblWahrung.Cursor = System.Windows.Forms.Cursors.Hand Me.lblWahrung.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.lblWahrung.ForeColor = System.Drawing.Color.Black - Me.lblWahrung.Location = New System.Drawing.Point(363, 9) + Me.lblWahrung.Location = New System.Drawing.Point(352, 9) Me.lblWahrung.Name = "lblWahrung" Me.lblWahrung.Size = New System.Drawing.Size(70, 17) Me.lblWahrung.TabIndex = 11 @@ -1090,14 +1102,6 @@ Partial Class frmMDM_USTVAntrag Me.Panel2.Size = New System.Drawing.Size(1300, 269) Me.Panel2.TabIndex = 1 ' - 'UstCntlUSTV_AntragPosition1 - ' - Me.UstCntlUSTV_AntragPosition1.Dock = System.Windows.Forms.DockStyle.Fill - Me.UstCntlUSTV_AntragPosition1.Location = New System.Drawing.Point(0, 0) - Me.UstCntlUSTV_AntragPosition1.Name = "UstCntlUSTV_AntragPosition1" - Me.UstCntlUSTV_AntragPosition1.Size = New System.Drawing.Size(1298, 267) - Me.UstCntlUSTV_AntragPosition1.TabIndex = 0 - ' 'Panel4 ' Me.Panel4.BackColor = System.Drawing.Color.WhiteSmoke @@ -1148,17 +1152,13 @@ Partial Class frmMDM_USTVAntrag Me.ContextMenuStrip2.Name = "ContextMenuStrip1" Me.ContextMenuStrip2.Size = New System.Drawing.Size(61, 4) ' - 'lblMWSTAbrechnung + 'UstCntlUSTV_AntragPosition1 ' - Me.lblMWSTAbrechnung.AutoSize = True - Me.lblMWSTAbrechnung.BackColor = System.Drawing.Color.Transparent - Me.lblMWSTAbrechnung.Cursor = System.Windows.Forms.Cursors.Hand - Me.lblMWSTAbrechnung.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.lblMWSTAbrechnung.ForeColor = System.Drawing.Color.Black - Me.lblMWSTAbrechnung.Location = New System.Drawing.Point(224, 41) - Me.lblMWSTAbrechnung.Name = "lblMWSTAbrechnung" - Me.lblMWSTAbrechnung.Size = New System.Drawing.Size(0, 17) - Me.lblMWSTAbrechnung.TabIndex = 25 + Me.UstCntlUSTV_AntragPosition1.Dock = System.Windows.Forms.DockStyle.Fill + Me.UstCntlUSTV_AntragPosition1.Location = New System.Drawing.Point(0, 0) + Me.UstCntlUSTV_AntragPosition1.Name = "UstCntlUSTV_AntragPosition1" + Me.UstCntlUSTV_AntragPosition1.Size = New System.Drawing.Size(1298, 267) + Me.UstCntlUSTV_AntragPosition1.TabIndex = 0 ' 'frmMDM_USTVAntrag ' diff --git a/SDL/USTV/frmMDM_USTVAntrag.vb b/SDL/USTV/frmMDM_USTVAntrag.vb index 4d20104d..fc9949da 100644 --- a/SDL/USTV/frmMDM_USTVAntrag.vb +++ b/SDL/USTV/frmMDM_USTVAntrag.vb @@ -724,7 +724,7 @@ Public Class frmMDM_USTVAntrag If Not alreadyExists(USTV_ANTRAG.UStVAn_KuNr, USTV_ANTRAG.UStVAn_LandNr, USTV_POS) Then Dim sql As New SQL USTV_POS.UStVPo_Schnittstelle = True - USTV_POS.UStVPo_Leistender = "VERAG 360 GmbH; 4975 Suben" + USTV_POS.UStVPo_Leistender = "VERAG 360 GmbH" USTV_POS.UStVPo_Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME USTV_POS.UStVPo_Zeitstempel = Now() @@ -1855,8 +1855,8 @@ Public Class frmMDM_USTVAntrag Dim dtSteuerNr As DataTable = SQL.loadDgvBySql("SELECT * FROM tblSteuernummern WHERE AdressenNr = " & USTV_ANTRAG.UStVAn_KuNr & " and tblSteuernummern.LandNr =" & USTV_ANTRAG.UStVAn_LandNr, "FMZOLL") If dtSteuerNr.Rows.Count > 0 Then - txtStNr.Text = dtSteuerNr.Rows(0).Item("StNrFürRückerstattungUSt") - txtGueltig.Text = dtSteuerNr.Rows(0).Item("StNrGültigkeitsdatum") + txtStNr.Text = IIf(Not IsDBNull(dtSteuerNr.Rows(0).Item("StNrFürRückerstattungUSt")), dtSteuerNr.Rows(0).Item("StNrFürRückerstattungUSt"), "") + txtGueltig.Text = IIf(Not IsDBNull(dtSteuerNr.Rows(0).Item("StNrGültigkeitsdatum")), dtSteuerNr.Rows(0).Item("StNrGültigkeitsdatum"), "") End If diff --git a/SDL/USTV/usrCntlUSTV.Designer.vb b/SDL/USTV/usrCntlUSTV.Designer.vb index 1afc541b..15f4e73e 100644 --- a/SDL/USTV/usrCntlUSTV.Designer.vb +++ b/SDL/USTV/usrCntlUSTV.Designer.vb @@ -70,6 +70,7 @@ Partial Class usrCntlUSTV Me.Button8 = New System.Windows.Forms.Button() Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.ContextMenuStrip2 = New System.Windows.Forms.ContextMenuStrip(Me.components) + Me.ContextMenuStrip3 = New System.Windows.Forms.ContextMenuStrip(Me.components) CType(Me.dgvUSTV, System.ComponentModel.ISupportInitialize).BeginInit() Me.Panel1.SuspendLayout() Me.Panel2.SuspendLayout() @@ -694,7 +695,7 @@ Partial Class usrCntlUSTV Me.Button2.Name = "Button2" Me.Button2.Size = New System.Drawing.Size(92, 39) Me.Button2.TabIndex = 27 - Me.Button2.Text = "St.-Nr. prüfen" + Me.Button2.Text = "FA-Bestätig. prüfen" Me.Button2.UseVisualStyleBackColor = True ' 'btnVorschau @@ -776,6 +777,11 @@ Partial Class usrCntlUSTV Me.ContextMenuStrip2.Name = "ContextMenuStrip1" Me.ContextMenuStrip2.Size = New System.Drawing.Size(61, 4) ' + 'ContextMenuStrip3 + ' + Me.ContextMenuStrip3.Name = "ContextMenuStrip1" + Me.ContextMenuStrip3.Size = New System.Drawing.Size(61, 4) + ' 'usrCntlUSTV ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) @@ -840,4 +846,5 @@ Partial Class usrCntlUSTV Friend WithEvents Button2 As Button Friend WithEvents lblVZhint As Label Friend WithEvents lblVZKunde As Label + Friend WithEvents ContextMenuStrip3 As ContextMenuStrip End Class diff --git a/SDL/USTV/usrCntlUSTV.resx b/SDL/USTV/usrCntlUSTV.resx index 091f0a76..06e50070 100644 --- a/SDL/USTV/usrCntlUSTV.resx +++ b/SDL/USTV/usrCntlUSTV.resx @@ -123,4 +123,7 @@ 174, 17 + + 331, 17 + \ No newline at end of file diff --git a/SDL/USTV/usrCntlUSTV.vb b/SDL/USTV/usrCntlUSTV.vb index f8528eaf..c9a267d6 100644 --- a/SDL/USTV/usrCntlUSTV.vb +++ b/SDL/USTV/usrCntlUSTV.vb @@ -1,6 +1,9 @@ Imports System.ComponentModel +Imports com.sun.javadoc Imports com.sun.xml.internal.bind.v2.model.core +Imports itextsharp.text.factories Imports Microsoft.Office.Interop +Imports sun.swing Imports VERAG_PROG_ALLGEMEIN @@ -541,6 +544,38 @@ Public Class usrCntlUSTV + Private Sub btn2_Click(sender As Object, e As EventArgs) Handles Button2.Click + + + If Not ContextMenuStrip3.Items.ContainsKey("dgv") Then + Dim dgv = New ToolStripMenuItem() With {.Text = "Übersicht anzeigen", .Name = "dgv", .Font = New Font(Me.Font.FontFamily, Me.Font.Size)} + AddHandler dgv.Click, AddressOf mnuItem3_Clicked + ContextMenuStrip3.Items.Add(dgv) + End If + + + + If Not ContextMenuStrip3.Items.ContainsKey("excel") Then + Dim excel = New ToolStripMenuItem() With {.Text = "Excelauswertung starten", .Name = "excel", .Font = New Font(Me.Font.FontFamily, Me.Font.Size)} + ContextMenuStrip3.Items.Add(excel) + AddHandler excel.Click, AddressOf mnuItem3_Clicked + End If + + + If Not ContextMenuStrip3.Items.ContainsKey("mail") Then + Dim mail = New ToolStripMenuItem() With {.Text = "Email generieren", .Name = "mail", .Font = New Font(Me.Font.FontFamily, Me.Font.Size)} + AddHandler mail.Click, AddressOf mnuItem3_Clicked + ContextMenuStrip3.Items.Add(mail) + End If + + + + ContextMenuStrip3.Show(Cursor.Position) + + + End Sub + + Private Sub btnMail_Click(sender As Object, e As EventArgs) Handles btnMail.Click If Not ContextMenuStrip1.Items.ContainsKey("excel") Then @@ -952,49 +987,197 @@ Public Class usrCntlUSTV End Sub - Private Sub Button2_Click_1(sender As Object, e As EventArgs) Handles Button2.Click + Private Sub mnuItem3_Clicked(sender As Object, e As EventArgs) - Dim f As New frmDatumsabfrage("Bitte Prüfdatum eingeben", False) - f.ShowDialog() - If f.DialogResult = DialogResult.OK Then + Dim item As ToolStripMenuItem = TryCast(sender, ToolStripMenuItem) - Dim pruefdatum As Date = CDate(f.Datum) + Dim sqlKunde = "" + Dim sqlKundeadmin = "" + If KdSearchBox1.KdNr > 0 Then + sqlKunde = " And A.AdressenNr = " & KdSearchBox1.KdNr + sqlKundeadmin = " AND [api_KundenNr] = " & KdSearchBox1.KdNr + End If - Dim sqlKunde = "" - If KdSearchBox1.KdNr > 0 Then - sqlKunde = " AND A.AdressenNr = " & KdSearchBox1.KdNr + If item IsNot Nothing Then + + If item.Name = "dgv" Then + + Try + + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + Dim frm As New Form + Dim dgv As New DataGridView() + Dim dt As DataTable = SQL.loadDgvBySql(" select [api_datetime] as erstelltAm,[api_EMail] as An ,[api_EMailCC] as CC,[api_EMailBCC] as BCC,[api_EMailSubject] as Betreff,[api_EMailAttCnt] as Anzahl_Anhänge, [api_KundenNr] as KundenNr, [api_Username] as erstelltVon from [tblAPI] where [api_apiUArt] = 'FA-Bestaetigung' AND api_progName = 'SDL'" & sqlKundeadmin & " Order by api_datetime desc", "ADMIN") + + dgv.DataSource = dt + If dgv IsNot Nothing Then + frm.Size = New Size(1000, 1000) + dgv.Size = New Size(frm.Size.Width - 10, frm.Size.Height - 10) + dgv.Dock = DockStyle.Fill + dgv.Anchor = AnchorStyles.Left + dgv.Anchor = AnchorStyles.Top + dgv.ReadOnly = True + frm.Controls.Add(dgv) + frm.StartPosition = FormStartPosition.CenterScreen + frm.ShowDialog() + End If + + + Catch ex As System.Exception + + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + + + Else + + Dim f As New frmDatumsabfrage("Bitte Prüfdatum eingeben", False) + f.ShowDialog() + If f.DialogResult = DialogResult.OK Then + + Dim pruefdatum As Date = CDate(f.Datum) + + + + + Dim sqlQery = "Select A.AdressenNr, A.[E-Mail], A.[E-Mail2], A.LandKz, A.Ordnungsbegriff, L.LandKz, S.StNrFürRückerstattungUSt, S.StNrGültigkeitsdatum, CAST('" & pruefdatum & "' AS DATE) AS Prüfdatum, + CASE + WHEN S.StNrGültigkeitsdatum > CAST('" & pruefdatum & "' AS DATE) THEN 1 ELSE 0 + END AS Gültig + FROM [Länderverzeichnis für die Außenhandelsstatistik] L INNER JOIN (Adressen A INNER JOIN Währungstabelle W ON A.LandKz = W.LandKz INNER JOIN tblSteuernummern S ON A.AdressenNr = S.AdressenNr) ON L.LandNr = S.LandNr + WHERE S.StNrGültigkeitsdatum IS NOT NULL AND W.MitgliedslandEU = 0 " & sqlKunde + + Dim dtVorschau As DataTable = SQL.loadDgvBySql(sqlQery, "FMZOLL") + + ContextMenuStrip3.Hide() + + If dtVorschau.Rows.Count = 0 Then Exit Sub + + + If item.Name = "excel" Then + + If dtVorschau.Columns.Contains("E-Mail") Then dtVorschau.Columns.Remove("E-Mail") + If dtVorschau.Columns.Contains("E-Mail2") Then dtVorschau.Columns.Remove("E-Mail2") + + cProgramFunctions.genExcelFromDT_NEW(dtVorschau,,,,,, True) + + ElseIf item.Name = "mail" Then + + Dim displayView = New DataView(dtVorschau, "Gültig = 0", "AdressenNr", DataViewRowState.CurrentRows) + Dim distinctDT As DataTable = displayView.ToTable(True, "AdressenNr") + + If distinctDT.Rows.Count = 0 Then + MsgBox("Zu diesem Datum sind alle FA-Bestätigung gültig!") + Exit Sub + End If + + If Not vbYes = MsgBox("Es werden Emails für " & distinctDT.Rows.Count & " unterschiedliche/n Kunden erstellt." & vbNewLine & "Möchten Sie fortfahren?", vbYesNoCancel) Then Exit Sub + + For Each row In distinctDT.Rows + + Dim dt_Data_selected = dtVorschau.Select("AdressenNr ='" & row.Item(0) & "'").CopyToDataTable + + Try + + Dim outl As New Outlook.Application + Dim Mail As Microsoft.Office.Interop.Outlook.MailItem + Mail = outl.CreateItem(0) + + + Mail.Subject = "PDV UVERENJA" + + Dim TextHTML = "" + TextHTML &= "Postovani,
" + TextHTML &= "
" + TextHTML &= "isteklo nam je staro porezno Uvjerenje i potrebno je da nam dostavite hitno nova za sljedece zemlje.

" + + Dim attachmentSRB As Boolean = False + Dim attachmentBIH As Boolean = False + Dim attachmendSK As Boolean = False + + For Each r In dt_Data_selected.Rows + + If Not IsDBNull(r.item("LandKZ1")) Then + Select Case r.item("LandKZ1") + Case "HU" : TextHTML &= "
  • " & r.item("LandKZ1") & " (Na uverenju mora biti naveden datum kad ste registrovani kao PDV obaveznik, prevedite na Madarski, potpis sluzbene osobe ne smije biti faksimil mora bit vlastorucan)


  • " + Case "SI" : TextHTML &= "
  • " & r.item("LandKZ1") & " (Na uverenju mora biti naveden datum kad ste registrovani kao PDV obaveznik, prevedite na Slovenacki)


  • " + Case "LU" : TextHTML &= "
  • " & r.item("LandKZ1") & " (Na uverenju obavezno navedite sifru djelatnosti 4941, prevesti na Engleski)


  • " + Case "SK" : TextHTML &= "
  • " & r.item("LandKZ1") & " (Na uverenju mora biti naveden datum kad ste registrovani kao PDV obaveznik, prevedite na Engleski)


  • " : attachmendSK = True + Case "RO" : TextHTML &= "
  • " & r.item("LandKZ1") & " (Na uverenju mora biti naveden datum kad ste registrovani kao PDV obaveznik, prevedite na Rumonski)


  • " + Case "HR" : TextHTML &= "
  • " & r.item("LandKZ1") & " (Na uverenju mora biti naveden datum kad ste registrovani kao PDV obaveznik, prevedite na Hrvatski)


  • " + Case Else + TextHTML &= "
  • " & r.item("LandKZ1") & " (prevod na Engleski)


  • " + End Select + + + End If + + If Not IsDBNull(r.item("LandKZ")) Then + Select Case r.item("LandKZ") + Case "SRB" : attachmentSRB = True + Case "BIH" : attachmentBIH = True + End Select + End If + + Next + + TextHTML &= "

    Molim Vas da nam original uverenja + prijevod dostavite pojedinacno za svaku zemlju, znaci koliko zemalja toliko uverenja I prevoda.

    " + + TextHTML &= "U privitku se nalazi primjer uverenja (u smislu sadrzaja)

    " + + TextHTML &= "za pitanja stojim na raspolaganju!

    " + + + TextHTML &= "Mit freundlichen Grüßen
    " + TextHTML &= VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME & "
    " + TextHTML &= "
    " + Mail.HTMLBody = "
    " & TextHTML & SDL.cFakturierung.getSignature("DE") & "
    " + + If Not IsDBNull(dt_Data_selected.Rows(0).Item("E-Mail")) Then Mail.To &= dt_Data_selected.Rows(0).Item("E-Mail") & ";" + If Not IsDBNull(dt_Data_selected.Rows(0).Item("E-Mail2")) Then Mail.To &= dt_Data_selected.Rows(0).Item("E-Mail2") & ";" + + If attachmentSRB Then + Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "SONSTIGE", "MDM", "", "SRB_FA_BESTAETIGUNG") + Dim filepath = DS.GET_TOP1_PATH(False) + If filepath <> "" Then Mail.Attachments.Add(filepath, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue) + + End If + If attachmentBIH Then + Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "SONSTIGE", "MDM", "", "BIH_FA_BESTAETIGUNG") + Dim filepath = DS.GET_TOP1_PATH(False) + If filepath <> "" Then Mail.Attachments.Add(filepath, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue) + End If + If attachmentBIH And attachmendSK Then + Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "SONSTIGE", "MDM", "", "SVK_FA_BESTAETIGUNG") + Dim filepath = DS.GET_TOP1_PATH(False) + If filepath <> "" Then Mail.Attachments.Add(filepath, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue) + End If + + Mail.Display() + + 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_FA, "FA-Bestaetigung",,, row.Item(0)) + API.api_EMail = Mail.To + API.api_EMailSubject = Mail.Subject + API.api_EMailText = TextHTML + API.api_EMailAttCnt = Mail.Attachments.Count + API.SAVE() + + + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Fehler beim Öffnen der Mail!") + End Try + Next + + + End If + + + End If End If - - Dim sqlQery = "SELECT - A.LandKz, - A.AdressenNr, - A.Ordnungsbegriff, - L.LandKz, - S.StNrFürRückerstattungUSt, - S.StNrGültigkeitsdatum, - CAST('" & pruefdatum & "' AS DATE) AS Prüfdatum, - CASE - WHEN S.StNrGültigkeitsdatum > CAST('" & pruefdatum & "' AS DATE) THEN 1 - ELSE 0 - END AS Gültig - FROM - [Länderverzeichnis für die Außenhandelsstatistik] L - INNER JOIN - (Adressen A - INNER JOIN Währungstabelle W ON A.LandKz = W.LandKz - INNER JOIN tblSteuernummern S ON A.AdressenNr = S.AdressenNr) - ON L.LandNr = S.LandNr - WHERE - S.StNrGültigkeitsdatum IS NOT NULL - AND W.MitgliedslandEU = 0 " & sqlKunde - - - Dim dtVorschau As DataTable = SQL.loadDgvBySql(sqlQery, "FMZOLL") - - cProgramFunctions.genExcelFromDT_NEW(dtVorschau,,,,,, True) - End If + + End Sub End Class diff --git a/SDL/USTV/ustCntlUSTV_AntragPosition.vb b/SDL/USTV/ustCntlUSTV_AntragPosition.vb index 50a2acae..43ead722 100644 --- a/SDL/USTV/ustCntlUSTV_AntragPosition.vb +++ b/SDL/USTV/ustCntlUSTV_AntragPosition.vb @@ -302,7 +302,7 @@ Public Class ustCntlUSTV_AntragPosition If UStV_Leist.SAVE() Then btnLeistenderSave.Visible = False - UStV_POS.UStVPo_Leistender = UStV_Leist + UStV_POS.UStVPo_Leistender = UStV_Leist.UStV_Leistender 'RaiseEvent CHANGED(UStV_POS.UStVPo_ID) values_changed() End If @@ -332,7 +332,7 @@ Public Class ustCntlUSTV_AntragPosition If Not vbYes = MsgBox("Bei diesem Leistenden ist bereits eine Adresse hinterlegt, soll diese Adresse wirklich geändert werden?", vbYesNo) Then btnLeistenderSave.Visible = False - UStV_POS.UStVPo_Leistender = UStV_Leist + UStV_POS.UStVPo_Leistender = UStV_Leist.UStV_Leistender 'RaiseEvent CHANGED(UStV_POS.UStVPo_ID) values_changed() Exit Sub @@ -342,12 +342,12 @@ Public Class ustCntlUSTV_AntragPosition If UStV_Leist.SAVE() Then If Not UStV_Leist.UstV_Leistender_Adresse And adresseChanged Then UStV_Leist.UstV_Leistender_Adresse = True btnLeistenderSave.Visible = False - UStV_POS.UStVPo_Leistender = UStV_Leist.UStV_Leistender - 'RaiseEvent CHANGED(UStV_POS.UStVPo_ID) - values_changed() + UStV_POS.UStVPo_Leistender = UStV_Leist.UStV_Leistender + 'RaiseEvent CHANGED(UStV_POS.UStVPo_ID) + values_changed() - End If End If + End If End Sub diff --git a/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS004/usrCntlATLAS_NCTS004.vb b/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS004/usrCntlATLAS_NCTS004.vb index 81b56d9d..44209428 100644 --- a/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS004/usrCntlATLAS_NCTS004.vb +++ b/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS004/usrCntlATLAS_NCTS004.vb @@ -119,7 +119,7 @@ Public Class usrCntlATLAS_NCTS004 ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. End Sub - Shared Function getBezugsnr(FIRMA_DY, SENDUNG, ByRef BezugsNr, ByRef zusatz) + Shared Function getBezugsnr(FIRMA_DY As String, SENDUNG As cSendungen, ByRef BezugsNr As String, ByRef zusatz As String) Dim BezugsNrTmp = "" Select Case FIRMA_DY Case "UNISPED" diff --git a/SDL/kunden/frmKundenblatt.Designer.vb b/SDL/kunden/frmKundenblatt.Designer.vb index a4b0e1f0..c84065e4 100644 --- a/SDL/kunden/frmKundenblatt.Designer.vb +++ b/SDL/kunden/frmKundenblatt.Designer.vb @@ -45,13 +45,11 @@ 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.lblAdressenzusatz = New System.Windows.Forms.TextBox() Me.btnReloadOP = New System.Windows.Forms.Button() Me.Label11 = New System.Windows.Forms.Label() - Me.cboFirmaFMZOLL = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.Label10 = New System.Windows.Forms.Label() Me.Label9 = New System.Windows.Forms.Label() Me.dgvOffenePosten = New System.Windows.Forms.DataGridView() @@ -102,9 +100,6 @@ Partial Class frmKundenblatt Me.Button7 = New System.Windows.Forms.Button() Me.Label35 = New System.Windows.Forms.Label() Me.flpSDLDok = New System.Windows.Forms.FlowLayoutPanel() - Me.scanErstbestellung = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan() - Me.scanJaraVereinbarung = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan() - Me.scanMWSTAgreement = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan() Me.Label34 = New System.Windows.Forms.Label() Me.Panel2 = New System.Windows.Forms.Panel() Me.Button6 = New System.Windows.Forms.Button() @@ -115,24 +110,18 @@ Partial Class frmKundenblatt Me.Label33 = New System.Windows.Forms.Label() Me.Label5 = New System.Windows.Forms.Label() Me.Label32 = New System.Windows.Forms.Label() - Me.scanSDLSonst = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList() Me.lblAenderungsdatum_SDL = New System.Windows.Forms.Label() Me.lblErfassungsdatum_SDL = New System.Windows.Forms.Label() Me.grpMautDE = New System.Windows.Forms.GroupBox() Me.Button15 = New System.Windows.Forms.Button() Me.Label1 = New System.Windows.Forms.Label() - Me.txtMautDE_BenutzerNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.lblMautDEFlottenPIN = New System.Windows.Forms.Label() Me.Label6 = New System.Windows.Forms.Label() - Me.txtMautDE_FlottenPIN = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtMautDEMasterPIN = New VERAG_PROG_ALLGEMEIN.MyTextBox() 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() @@ -153,29 +142,16 @@ Partial Class frmKundenblatt Me.Label7 = New System.Windows.Forms.Label() Me.Label3 = New System.Windows.Forms.Label() Me.lblSonstigeDokumente = New System.Windows.Forms.Label() - Me.scanUebernahmebestätigungen = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList() - Me.scanHKA = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan() - Me.scanSonstiges = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList() - Me.scanEULizenz = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan() - Me.scanHRA = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan() - Me.scanPersonalAusweisGF = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan() - Me.scanBankGarantie = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan() - Me.scanVertragVeragKd = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan() 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() Me.Label8 = New System.Windows.Forms.Label() - Me.scanUSTVsonstigeDokumente = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList() Me.Label27 = New System.Windows.Forms.Label() Me.Label37 = New System.Windows.Forms.Label() - 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.cntxtExcel = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.ToolStripMenuItem3 = New System.Windows.Forms.ToolStripMenuItem() Me.ToolStripMenuItem6 = New System.Windows.Forms.ToolStripMenuItem() @@ -196,11 +172,35 @@ Partial Class frmKundenblatt Me.ToolStripMenuItem7 = New System.Windows.Forms.ToolStripMenuItem() Me.pnl = New System.Windows.Forms.Panel() Me.lblINAKTIV = New System.Windows.Forms.Label() - Me.KdSearchBox1 = New VERAG_PROG_ALLGEMEIN.KdSearchBox() Me.tbiLeistungen = New System.Windows.Forms.ToolStripMenuItem() Me.tbiKartenverwaltung = New System.Windows.Forms.ToolStripMenuItem() Me.tbiLKW = New System.Windows.Forms.ToolStripMenuItem() Me.tbiVERAGCard = New System.Windows.Forms.ToolStripMenuItem() + Me.cboFirmaFMZOLL = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.scanErstbestellung = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan() + Me.scanJaraVereinbarung = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan() + Me.scanMWSTAgreement = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan() + Me.scanSDLSonst = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList() + Me.txtMautDE_BenutzerNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtMautDE_FlottenPIN = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtMautDEMasterPIN = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.scanUebernahmebestätigungen = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList() + Me.scanHKA = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan() + Me.scanSonstiges = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList() + Me.scanEULizenz = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan() + Me.scanHRA = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan() + Me.scanPersonalAusweisGF = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan() + Me.scanBankGarantie = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan() + Me.scanVertragVeragKd = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan() + Me.scanUSTVsonstigeDokumente = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList() + Me.scanUSTVFABest = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList() + Me.scanUSTVVollmachten = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList() + Me.KdSearchBox1 = New VERAG_PROG_ALLGEMEIN.KdSearchBox() + 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() @@ -277,7 +277,7 @@ Partial Class frmKundenblatt Me.tbFirmendaten.Location = New System.Drawing.Point(4, 25) Me.tbFirmendaten.Name = "tbFirmendaten" Me.tbFirmendaten.Padding = New System.Windows.Forms.Padding(3) - Me.tbFirmendaten.Size = New System.Drawing.Size(1644, 1067) + Me.tbFirmendaten.Size = New System.Drawing.Size(1644, 1135) Me.tbFirmendaten.TabIndex = 3 Me.tbFirmendaten.Text = "Firmendaten" ' @@ -287,19 +287,9 @@ Partial Class frmKundenblatt Me.Panel4.Dock = System.Windows.Forms.DockStyle.Fill Me.Panel4.Location = New System.Drawing.Point(3, 3) Me.Panel4.Name = "Panel4" - Me.Panel4.Size = New System.Drawing.Size(1638, 1061) + Me.Panel4.Size = New System.Drawing.Size(1638, 1129) 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, 1061) - Me.UsrcntlKundeBearbeitenFull1.TabIndex = 0 - ' 'tbcntrMain ' Me.tbcntrMain.Appearance = System.Windows.Forms.TabAppearance.FlatButtons @@ -315,7 +305,7 @@ Partial Class frmKundenblatt Me.tbcntrMain.Margin = New System.Windows.Forms.Padding(0) Me.tbcntrMain.Name = "tbcntrMain" Me.tbcntrMain.SelectedIndex = 0 - Me.tbcntrMain.Size = New System.Drawing.Size(1652, 1096) + Me.tbcntrMain.Size = New System.Drawing.Size(1652, 1164) Me.tbcntrMain.TabIndex = 3 ' 'tbAllgemein @@ -356,7 +346,7 @@ Partial Class frmKundenblatt Me.tbAllgemein.Margin = New System.Windows.Forms.Padding(0) Me.tbAllgemein.Name = "tbAllgemein" Me.tbAllgemein.Padding = New System.Windows.Forms.Padding(3) - Me.tbAllgemein.Size = New System.Drawing.Size(1644, 1067) + Me.tbAllgemein.Size = New System.Drawing.Size(1644, 1135) Me.tbAllgemein.TabIndex = 0 Me.tbAllgemein.Text = "Allgemein" ' @@ -396,18 +386,6 @@ Partial Class frmKundenblatt Me.Label11.TabIndex = 178 Me.Label11.Text = "Daten für Firma:" ' - 'cboFirmaFMZOLL - ' - Me.cboFirmaFMZOLL._allowedValuesFreiText = Nothing - Me.cboFirmaFMZOLL._allowFreiText = False - Me.cboFirmaFMZOLL._value = "" - Me.cboFirmaFMZOLL.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList - Me.cboFirmaFMZOLL.FormattingEnabled = True - Me.cboFirmaFMZOLL.Location = New System.Drawing.Point(354, 567) - Me.cboFirmaFMZOLL.Name = "cboFirmaFMZOLL" - Me.cboFirmaFMZOLL.Size = New System.Drawing.Size(184, 21) - Me.cboFirmaFMZOLL.TabIndex = 179 - ' 'Label10 ' Me.Label10.AutoSize = True @@ -466,7 +444,7 @@ Partial Class frmKundenblatt Me.dgvOffenePosten.RowHeadersDefaultCellStyle = DataGridViewCellStyle4 Me.dgvOffenePosten.RowHeadersVisible = False Me.dgvOffenePosten.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect - Me.dgvOffenePosten.Size = New System.Drawing.Size(714, 468) + Me.dgvOffenePosten.Size = New System.Drawing.Size(714, 536) Me.dgvOffenePosten.TabIndex = 175 ' 'btnOP @@ -806,7 +784,7 @@ Partial Class frmKundenblatt Me.dgvSperrliste.Name = "dgvSperrliste" Me.dgvSperrliste.ReadOnly = True Me.dgvSperrliste.RowHeadersDefaultCellStyle = DataGridViewCellStyle7 - Me.dgvSperrliste.Size = New System.Drawing.Size(446, 1023) + Me.dgvSperrliste.Size = New System.Drawing.Size(446, 1091) Me.dgvSperrliste.TabIndex = 23 ' 'PictureBox2 @@ -860,7 +838,7 @@ Partial Class frmKundenblatt Me.tbZoll.Location = New System.Drawing.Point(4, 25) Me.tbZoll.Name = "tbZoll" Me.tbZoll.Padding = New System.Windows.Forms.Padding(3) - Me.tbZoll.Size = New System.Drawing.Size(1644, 1067) + Me.tbZoll.Size = New System.Drawing.Size(1644, 1135) Me.tbZoll.TabIndex = 9 Me.tbZoll.Text = "ZOLL" Me.tbZoll.UseVisualStyleBackColor = True @@ -872,7 +850,7 @@ Partial Class frmKundenblatt Me.tbcntrZOLL.Location = New System.Drawing.Point(3, 3) Me.tbcntrZOLL.Name = "tbcntrZOLL" Me.tbcntrZOLL.SelectedIndex = 0 - Me.tbcntrZOLL.Size = New System.Drawing.Size(1638, 1061) + Me.tbcntrZOLL.Size = New System.Drawing.Size(1638, 1129) Me.tbcntrZOLL.TabIndex = 0 ' 'tabZoll_Artikel @@ -880,7 +858,7 @@ Partial Class frmKundenblatt Me.tabZoll_Artikel.Location = New System.Drawing.Point(4, 22) Me.tabZoll_Artikel.Name = "tabZoll_Artikel" Me.tabZoll_Artikel.Padding = New System.Windows.Forms.Padding(3) - Me.tabZoll_Artikel.Size = New System.Drawing.Size(1630, 1035) + Me.tabZoll_Artikel.Size = New System.Drawing.Size(1630, 1103) Me.tabZoll_Artikel.TabIndex = 1 Me.tabZoll_Artikel.Text = "Artikel" Me.tabZoll_Artikel.UseVisualStyleBackColor = True @@ -891,7 +869,7 @@ Partial Class frmKundenblatt Me.tbMdm.Location = New System.Drawing.Point(4, 25) Me.tbMdm.Name = "tbMdm" Me.tbMdm.Padding = New System.Windows.Forms.Padding(3) - Me.tbMdm.Size = New System.Drawing.Size(1644, 1067) + Me.tbMdm.Size = New System.Drawing.Size(1644, 1135) Me.tbMdm.TabIndex = 10 Me.tbMdm.Text = "MDM" Me.tbMdm.UseVisualStyleBackColor = True @@ -910,7 +888,7 @@ Partial Class frmKundenblatt Me.tbcntrMDM.Margin = New System.Windows.Forms.Padding(0) Me.tbcntrMDM.Name = "tbcntrMDM" Me.tbcntrMDM.SelectedIndex = 0 - Me.tbcntrMDM.Size = New System.Drawing.Size(1638, 1061) + Me.tbcntrMDM.Size = New System.Drawing.Size(1638, 1129) Me.tbcntrMDM.TabIndex = 0 ' 'tbSDL @@ -922,7 +900,7 @@ Partial Class frmKundenblatt Me.tbSDL.Margin = New System.Windows.Forms.Padding(0) Me.tbSDL.Name = "tbSDL" Me.tbSDL.Padding = New System.Windows.Forms.Padding(3) - Me.tbSDL.Size = New System.Drawing.Size(1630, 1035) + Me.tbSDL.Size = New System.Drawing.Size(1630, 1103) Me.tbSDL.TabIndex = 5 Me.tbSDL.Text = "SDL-Leistungen" Me.tbSDL.UseVisualStyleBackColor = True @@ -964,7 +942,7 @@ Partial Class frmKundenblatt DataGridViewCellStyle13.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] Me.dgvSDLLeistungenFull.RowHeadersDefaultCellStyle = DataGridViewCellStyle13 Me.dgvSDLLeistungenFull.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect - Me.dgvSDLLeistungenFull.Size = New System.Drawing.Size(1624, 839) + Me.dgvSDLLeistungenFull.Size = New System.Drawing.Size(1624, 907) Me.dgvSDLLeistungenFull.TabIndex = 5 ' 'Panel6 @@ -1069,7 +1047,7 @@ Partial Class frmKundenblatt Me.Panel5.Controls.Add(Me.lblLetzterSA_SDL) Me.Panel5.Controls.Add(Me.rtbVermerke) Me.Panel5.Dock = System.Windows.Forms.DockStyle.Bottom - Me.Panel5.Location = New System.Drawing.Point(3, 889) + Me.Panel5.Location = New System.Drawing.Point(3, 957) Me.Panel5.Name = "Panel5" Me.Panel5.Size = New System.Drawing.Size(1624, 143) Me.Panel5.TabIndex = 177 @@ -1105,67 +1083,6 @@ Partial Class frmKundenblatt Me.flpSDLDok.Size = New System.Drawing.Size(158, 125) Me.flpSDLDok.TabIndex = 176 ' - 'scanErstbestellung - ' - Me.scanErstbestellung._ARCHIV = True - Me.scanErstbestellung._DATENSERVER_KATEGORIE = "DOKUMENTE" - Me.scanErstbestellung._DATENSERVER_ORDNER = "MDM" - Me.scanErstbestellung._DATENSERVER_UOrdner1 = Nothing - Me.scanErstbestellung._DATENSERVER_UOrdner2 = Nothing - Me.scanErstbestellung._DATENSERVER_UOrdner3 = Nothing - Me.scanErstbestellung._MULTI_FILES = True - Me.scanErstbestellung._TEXT_PDF = "Erstbestellung" - Me.scanErstbestellung.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink - Me.scanErstbestellung.BackColor = System.Drawing.Color.White - Me.scanErstbestellung.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.scanErstbestellung.Cursor = System.Windows.Forms.Cursors.Hand - Me.scanErstbestellung.Location = New System.Drawing.Point(1, 1) - Me.scanErstbestellung.Margin = New System.Windows.Forms.Padding(1) - Me.scanErstbestellung.Name = "scanErstbestellung" - Me.scanErstbestellung.Size = New System.Drawing.Size(137, 24) - Me.scanErstbestellung.TabIndex = 172 - ' - 'scanJaraVereinbarung - ' - Me.scanJaraVereinbarung._ARCHIV = True - Me.scanJaraVereinbarung._DATENSERVER_KATEGORIE = "DOKUMENTE" - Me.scanJaraVereinbarung._DATENSERVER_ORDNER = "MDM" - Me.scanJaraVereinbarung._DATENSERVER_UOrdner1 = Nothing - Me.scanJaraVereinbarung._DATENSERVER_UOrdner2 = Nothing - Me.scanJaraVereinbarung._DATENSERVER_UOrdner3 = Nothing - Me.scanJaraVereinbarung._MULTI_FILES = True - Me.scanJaraVereinbarung._TEXT_PDF = "Jara-Vereinbarung" - Me.scanJaraVereinbarung.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink - Me.scanJaraVereinbarung.BackColor = System.Drawing.Color.White - Me.scanJaraVereinbarung.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.scanJaraVereinbarung.Cursor = System.Windows.Forms.Cursors.Hand - Me.scanJaraVereinbarung.Location = New System.Drawing.Point(1, 27) - Me.scanJaraVereinbarung.Margin = New System.Windows.Forms.Padding(1) - Me.scanJaraVereinbarung.Name = "scanJaraVereinbarung" - Me.scanJaraVereinbarung.Size = New System.Drawing.Size(137, 24) - Me.scanJaraVereinbarung.TabIndex = 173 - ' - 'scanMWSTAgreement - ' - Me.scanMWSTAgreement._ARCHIV = True - Me.scanMWSTAgreement._DATENSERVER_KATEGORIE = "DOKUMENTE" - Me.scanMWSTAgreement._DATENSERVER_ORDNER = "MDM" - Me.scanMWSTAgreement._DATENSERVER_UOrdner1 = Nothing - Me.scanMWSTAgreement._DATENSERVER_UOrdner2 = Nothing - Me.scanMWSTAgreement._DATENSERVER_UOrdner3 = Nothing - Me.scanMWSTAgreement._MULTI_FILES = True - Me.scanMWSTAgreement._TEXT_PDF = "MST Agreement" - Me.scanMWSTAgreement.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink - Me.scanMWSTAgreement.BackColor = System.Drawing.Color.White - Me.scanMWSTAgreement.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.scanMWSTAgreement.Cursor = System.Windows.Forms.Cursors.Hand - Me.scanMWSTAgreement.Location = New System.Drawing.Point(1, 53) - Me.scanMWSTAgreement.Margin = New System.Windows.Forms.Padding(1) - Me.scanMWSTAgreement.Name = "scanMWSTAgreement" - Me.scanMWSTAgreement.Size = New System.Drawing.Size(137, 24) - Me.scanMWSTAgreement.TabIndex = 174 - Me.scanMWSTAgreement.Visible = False - ' 'Label34 ' Me.Label34.AutoSize = True @@ -1265,25 +1182,6 @@ Partial Class frmKundenblatt Me.Label32.TabIndex = 13 Me.Label32.Text = "Letzter Sachbearbeiter:" ' - 'scanSDLSonst - ' - Me.scanSDLSonst._DATENSERVER_KATEGORIE = "DOKUMENTE" - Me.scanSDLSonst._DATENSERVER_ORDNER = "MDM" - Me.scanSDLSonst._DATENSERVER_UOrdner1 = "" - Me.scanSDLSonst._DATENSERVER_UOrdner2 = "" - Me.scanSDLSonst._DATENSERVER_UOrdner3 = "" - Me.scanSDLSonst._OPEN_ORIGINAL = False - Me.scanSDLSonst._TYPE = "PDF" - Me.scanSDLSonst.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink - Me.scanSDLSonst.BackColor = System.Drawing.Color.White - Me.scanSDLSonst.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.scanSDLSonst.Cursor = System.Windows.Forms.Cursors.Default - Me.scanSDLSonst.Location = New System.Drawing.Point(890, 19) - Me.scanSDLSonst.Margin = New System.Windows.Forms.Padding(0) - Me.scanSDLSonst.Name = "scanSDLSonst" - Me.scanSDLSonst.Size = New System.Drawing.Size(260, 124) - Me.scanSDLSonst.TabIndex = 173 - ' 'lblAenderungsdatum_SDL ' Me.lblAenderungsdatum_SDL.AutoSize = True @@ -1340,29 +1238,6 @@ Partial Class frmKundenblatt Me.Label1.TabIndex = 19 Me.Label1.Text = "Benutzer-Nr:" ' - 'txtMautDE_BenutzerNr - ' - Me.txtMautDE_BenutzerNr._DateTimeOnly = False - Me.txtMautDE_BenutzerNr._numbersOnly = True - Me.txtMautDE_BenutzerNr._numbersOnlyKommastellen = "" - Me.txtMautDE_BenutzerNr._numbersOnlyTrennzeichen = True - Me.txtMautDE_BenutzerNr._Prozent = False - Me.txtMautDE_BenutzerNr._ShortDateNew = False - Me.txtMautDE_BenutzerNr._ShortDateOnly = False - Me.txtMautDE_BenutzerNr._TimeOnly = False - Me.txtMautDE_BenutzerNr._TimeOnly_Seconds = False - Me.txtMautDE_BenutzerNr._value = "" - Me.txtMautDE_BenutzerNr._Waehrung = False - Me.txtMautDE_BenutzerNr._WaehrungZeichen = True - Me.txtMautDE_BenutzerNr.ForeColor = System.Drawing.Color.Black - Me.txtMautDE_BenutzerNr.Location = New System.Drawing.Point(72, 21) - Me.txtMautDE_BenutzerNr.MaxLineLength = -1 - Me.txtMautDE_BenutzerNr.MaxLines_Warning = "" - Me.txtMautDE_BenutzerNr.MaxLines_Warning_Label = Nothing - Me.txtMautDE_BenutzerNr.Name = "txtMautDE_BenutzerNr" - Me.txtMautDE_BenutzerNr.Size = New System.Drawing.Size(129, 20) - Me.txtMautDE_BenutzerNr.TabIndex = 18 - ' 'lblMautDEFlottenPIN ' Me.lblMautDEFlottenPIN.AutoSize = True @@ -1381,52 +1256,6 @@ Partial Class frmKundenblatt Me.Label6.TabIndex = 17 Me.Label6.Text = "Master-PIN:" ' - 'txtMautDE_FlottenPIN - ' - Me.txtMautDE_FlottenPIN._DateTimeOnly = False - Me.txtMautDE_FlottenPIN._numbersOnly = True - Me.txtMautDE_FlottenPIN._numbersOnlyKommastellen = "" - Me.txtMautDE_FlottenPIN._numbersOnlyTrennzeichen = True - Me.txtMautDE_FlottenPIN._Prozent = False - Me.txtMautDE_FlottenPIN._ShortDateNew = False - Me.txtMautDE_FlottenPIN._ShortDateOnly = False - Me.txtMautDE_FlottenPIN._TimeOnly = False - Me.txtMautDE_FlottenPIN._TimeOnly_Seconds = False - Me.txtMautDE_FlottenPIN._value = "" - Me.txtMautDE_FlottenPIN._Waehrung = False - Me.txtMautDE_FlottenPIN._WaehrungZeichen = True - Me.txtMautDE_FlottenPIN.ForeColor = System.Drawing.Color.Black - Me.txtMautDE_FlottenPIN.Location = New System.Drawing.Point(72, 47) - Me.txtMautDE_FlottenPIN.MaxLineLength = -1 - Me.txtMautDE_FlottenPIN.MaxLines_Warning = "" - Me.txtMautDE_FlottenPIN.MaxLines_Warning_Label = Nothing - Me.txtMautDE_FlottenPIN.Name = "txtMautDE_FlottenPIN" - Me.txtMautDE_FlottenPIN.Size = New System.Drawing.Size(63, 20) - Me.txtMautDE_FlottenPIN.TabIndex = 14 - ' - 'txtMautDEMasterPIN - ' - Me.txtMautDEMasterPIN._DateTimeOnly = False - Me.txtMautDEMasterPIN._numbersOnly = True - Me.txtMautDEMasterPIN._numbersOnlyKommastellen = "" - Me.txtMautDEMasterPIN._numbersOnlyTrennzeichen = True - Me.txtMautDEMasterPIN._Prozent = False - Me.txtMautDEMasterPIN._ShortDateNew = False - Me.txtMautDEMasterPIN._ShortDateOnly = False - Me.txtMautDEMasterPIN._TimeOnly = False - Me.txtMautDEMasterPIN._TimeOnly_Seconds = False - Me.txtMautDEMasterPIN._value = "" - Me.txtMautDEMasterPIN._Waehrung = False - Me.txtMautDEMasterPIN._WaehrungZeichen = True - Me.txtMautDEMasterPIN.ForeColor = System.Drawing.Color.Black - Me.txtMautDEMasterPIN.Location = New System.Drawing.Point(207, 47) - Me.txtMautDEMasterPIN.MaxLineLength = -1 - Me.txtMautDEMasterPIN.MaxLines_Warning = "" - Me.txtMautDEMasterPIN.MaxLines_Warning_Label = Nothing - Me.txtMautDEMasterPIN.Name = "txtMautDEMasterPIN" - Me.txtMautDEMasterPIN.Size = New System.Drawing.Size(63, 20) - Me.txtMautDEMasterPIN.TabIndex = 16 - ' 'lblLetzterSA_SDL ' Me.lblLetzterSA_SDL.AutoSize = True @@ -1452,21 +1281,11 @@ 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(178, 39) + Me.tbSDLKarten.Size = New System.Drawing.Size(1630, 1103) 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) @@ -1474,7 +1293,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(178, 39) + Me.tbLKW.Size = New System.Drawing.Size(1630, 1103) Me.tbLKW.TabIndex = 4 Me.tbLKW.Text = "LKWs" Me.tbLKW.UseVisualStyleBackColor = True @@ -1486,22 +1305,9 @@ 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(0, 33) + Me.pnlLKWRight.Size = New System.Drawing.Size(1318, 1080) 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) @@ -1510,7 +1316,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, 33) + Me.pnlLKW.Size = New System.Drawing.Size(306, 1080) Me.pnlLKW.TabIndex = 3 ' 'dgvLKW @@ -1551,7 +1357,7 @@ Partial Class frmKundenblatt Me.dgvLKW.RowHeadersDefaultCellStyle = DataGridViewCellStyle17 Me.dgvLKW.RowHeadersVisible = False Me.dgvLKW.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect - Me.dgvLKW.Size = New System.Drawing.Size(306, 0) + Me.dgvLKW.Size = New System.Drawing.Size(306, 906) Me.dgvLKW.TabIndex = 2 ' 'pnlLKWBottom @@ -1563,7 +1369,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, -79) + Me.pnlLKWBottom.Location = New System.Drawing.Point(0, 968) Me.pnlLKWBottom.Name = "pnlLKWBottom" Me.pnlLKWBottom.Size = New System.Drawing.Size(306, 112) Me.pnlLKWBottom.TabIndex = 3 @@ -1704,7 +1510,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(178, 39) + Me.tbVERAGCard.Size = New System.Drawing.Size(1630, 1103) Me.tbVERAGCard.TabIndex = 6 Me.tbVERAGCard.Text = "VERAG Card" Me.tbVERAGCard.UseVisualStyleBackColor = True @@ -1716,7 +1522,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(172, 33) + Me.Panel3.Size = New System.Drawing.Size(1624, 1080) Me.Panel3.TabIndex = 0 ' 'tbDokumente @@ -1734,7 +1540,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(178, 39) + Me.tbDokumente.Size = New System.Drawing.Size(1630, 1103) Me.tbDokumente.TabIndex = 8 Me.tbDokumente.Text = "Dokumente" Me.tbDokumente.UseVisualStyleBackColor = True @@ -1769,170 +1575,12 @@ Partial Class frmKundenblatt Me.lblSonstigeDokumente.TabIndex = 2 Me.lblSonstigeDokumente.Text = "Sonstige Dokumente" ' - 'scanUebernahmebestätigungen - ' - Me.scanUebernahmebestätigungen._DATENSERVER_KATEGORIE = "DOKUMENTE" - Me.scanUebernahmebestätigungen._DATENSERVER_ORDNER = "MDM" - Me.scanUebernahmebestätigungen._DATENSERVER_UOrdner1 = "" - Me.scanUebernahmebestätigungen._DATENSERVER_UOrdner2 = "" - Me.scanUebernahmebestätigungen._DATENSERVER_UOrdner3 = "" - Me.scanUebernahmebestätigungen._OPEN_ORIGINAL = False - Me.scanUebernahmebestätigungen._TYPE = "PDF" - Me.scanUebernahmebestätigungen.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink - Me.scanUebernahmebestätigungen.BackColor = System.Drawing.Color.White - Me.scanUebernahmebestätigungen.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.scanUebernahmebestätigungen.Cursor = System.Windows.Forms.Cursors.Default - Me.scanUebernahmebestätigungen.Location = New System.Drawing.Point(488, 40) - Me.scanUebernahmebestätigungen.Margin = New System.Windows.Forms.Padding(0) - Me.scanUebernahmebestätigungen.Name = "scanUebernahmebestätigungen" - Me.scanUebernahmebestätigungen.Size = New System.Drawing.Size(285, 505) - Me.scanUebernahmebestätigungen.TabIndex = 5 - ' - 'scanHKA - ' - Me.scanHKA._ARCHIV = True - Me.scanHKA._DATENSERVER_KATEGORIE = "DOKUMENTE" - Me.scanHKA._DATENSERVER_ORDNER = "MDM" - Me.scanHKA._DATENSERVER_UOrdner1 = Nothing - Me.scanHKA._DATENSERVER_UOrdner2 = Nothing - Me.scanHKA._DATENSERVER_UOrdner3 = Nothing - Me.scanHKA._MULTI_FILES = True - Me.scanHKA._TEXT_PDF = "Handelskammerauszug" - Me.scanHKA.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink - Me.scanHKA.BackColor = System.Drawing.Color.White - Me.scanHKA.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.scanHKA.Cursor = System.Windows.Forms.Cursors.Default - Me.scanHKA.Location = New System.Drawing.Point(17, 163) - Me.scanHKA.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) - Me.scanHKA.Name = "scanHKA" - Me.scanHKA.Size = New System.Drawing.Size(168, 24) - Me.scanHKA.TabIndex = 4 - ' - 'scanSonstiges - ' - Me.scanSonstiges._DATENSERVER_KATEGORIE = "DOKUMENTE" - Me.scanSonstiges._DATENSERVER_ORDNER = "MDM" - Me.scanSonstiges._DATENSERVER_UOrdner1 = "" - Me.scanSonstiges._DATENSERVER_UOrdner2 = "" - Me.scanSonstiges._DATENSERVER_UOrdner3 = "" - Me.scanSonstiges._OPEN_ORIGINAL = False - Me.scanSonstiges._TYPE = "PDF" - Me.scanSonstiges.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink - Me.scanSonstiges.BackColor = System.Drawing.Color.White - Me.scanSonstiges.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.scanSonstiges.Cursor = System.Windows.Forms.Cursors.Default - Me.scanSonstiges.Location = New System.Drawing.Point(191, 40) - Me.scanSonstiges.Margin = New System.Windows.Forms.Padding(0) - Me.scanSonstiges.Name = "scanSonstiges" - Me.scanSonstiges.Size = New System.Drawing.Size(285, 505) - Me.scanSonstiges.TabIndex = 1 - ' - 'scanEULizenz - ' - Me.scanEULizenz._ARCHIV = True - Me.scanEULizenz._DATENSERVER_KATEGORIE = "DOKUMENTE" - Me.scanEULizenz._DATENSERVER_ORDNER = "MDM" - Me.scanEULizenz._DATENSERVER_UOrdner1 = Nothing - Me.scanEULizenz._DATENSERVER_UOrdner2 = Nothing - Me.scanEULizenz._DATENSERVER_UOrdner3 = Nothing - Me.scanEULizenz._MULTI_FILES = True - Me.scanEULizenz._TEXT_PDF = "EU-Lizenz" - Me.scanEULizenz.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink - Me.scanEULizenz.BackColor = System.Drawing.Color.White - Me.scanEULizenz.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.scanEULizenz.Cursor = System.Windows.Forms.Cursors.Default - Me.scanEULizenz.Location = New System.Drawing.Point(17, 197) - Me.scanEULizenz.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) - Me.scanEULizenz.Name = "scanEULizenz" - Me.scanEULizenz.Size = New System.Drawing.Size(168, 24) - Me.scanEULizenz.TabIndex = 0 - ' - 'scanHRA - ' - Me.scanHRA._ARCHIV = True - Me.scanHRA._DATENSERVER_KATEGORIE = "DOKUMENTE" - Me.scanHRA._DATENSERVER_ORDNER = "MDM" - Me.scanHRA._DATENSERVER_UOrdner1 = Nothing - Me.scanHRA._DATENSERVER_UOrdner2 = Nothing - Me.scanHRA._DATENSERVER_UOrdner3 = Nothing - Me.scanHRA._MULTI_FILES = True - Me.scanHRA._TEXT_PDF = "Handelsregisterauszug" - Me.scanHRA.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink - Me.scanHRA.BackColor = System.Drawing.Color.White - Me.scanHRA.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.scanHRA.Cursor = System.Windows.Forms.Cursors.Default - Me.scanHRA.Location = New System.Drawing.Point(17, 133) - Me.scanHRA.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) - Me.scanHRA.Name = "scanHRA" - Me.scanHRA.Size = New System.Drawing.Size(168, 24) - Me.scanHRA.TabIndex = 0 - ' - 'scanPersonalAusweisGF - ' - Me.scanPersonalAusweisGF._ARCHIV = True - Me.scanPersonalAusweisGF._DATENSERVER_KATEGORIE = "DOKUMENTE" - Me.scanPersonalAusweisGF._DATENSERVER_ORDNER = "MDM" - Me.scanPersonalAusweisGF._DATENSERVER_UOrdner1 = Nothing - Me.scanPersonalAusweisGF._DATENSERVER_UOrdner2 = Nothing - Me.scanPersonalAusweisGF._DATENSERVER_UOrdner3 = Nothing - Me.scanPersonalAusweisGF._MULTI_FILES = True - Me.scanPersonalAusweisGF._TEXT_PDF = "Personalausweis GF" - Me.scanPersonalAusweisGF.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink - Me.scanPersonalAusweisGF.BackColor = System.Drawing.Color.White - Me.scanPersonalAusweisGF.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.scanPersonalAusweisGF.Cursor = System.Windows.Forms.Cursors.Default - Me.scanPersonalAusweisGF.Location = New System.Drawing.Point(17, 99) - Me.scanPersonalAusweisGF.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) - Me.scanPersonalAusweisGF.Name = "scanPersonalAusweisGF" - Me.scanPersonalAusweisGF.Size = New System.Drawing.Size(168, 24) - Me.scanPersonalAusweisGF.TabIndex = 0 - ' - 'scanBankGarantie - ' - Me.scanBankGarantie._ARCHIV = True - Me.scanBankGarantie._DATENSERVER_KATEGORIE = "DOKUMENTE" - Me.scanBankGarantie._DATENSERVER_ORDNER = "MDM" - Me.scanBankGarantie._DATENSERVER_UOrdner1 = Nothing - Me.scanBankGarantie._DATENSERVER_UOrdner2 = Nothing - Me.scanBankGarantie._DATENSERVER_UOrdner3 = Nothing - Me.scanBankGarantie._MULTI_FILES = True - Me.scanBankGarantie._TEXT_PDF = "Bankgarantie" - Me.scanBankGarantie.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink - Me.scanBankGarantie.BackColor = System.Drawing.Color.White - Me.scanBankGarantie.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.scanBankGarantie.Cursor = System.Windows.Forms.Cursors.Default - Me.scanBankGarantie.Location = New System.Drawing.Point(17, 70) - Me.scanBankGarantie.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) - Me.scanBankGarantie.Name = "scanBankGarantie" - Me.scanBankGarantie.Size = New System.Drawing.Size(168, 24) - Me.scanBankGarantie.TabIndex = 0 - ' - 'scanVertragVeragKd - ' - Me.scanVertragVeragKd._ARCHIV = True - Me.scanVertragVeragKd._DATENSERVER_KATEGORIE = "DOKUMENTE" - Me.scanVertragVeragKd._DATENSERVER_ORDNER = "MDM" - Me.scanVertragVeragKd._DATENSERVER_UOrdner1 = Nothing - Me.scanVertragVeragKd._DATENSERVER_UOrdner2 = Nothing - Me.scanVertragVeragKd._DATENSERVER_UOrdner3 = Nothing - Me.scanVertragVeragKd._MULTI_FILES = True - Me.scanVertragVeragKd._TEXT_PDF = "Vertrag VERAG-Kunde" - Me.scanVertragVeragKd.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink - Me.scanVertragVeragKd.BackColor = System.Drawing.Color.White - Me.scanVertragVeragKd.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.scanVertragVeragKd.Cursor = System.Windows.Forms.Cursors.Default - Me.scanVertragVeragKd.Location = New System.Drawing.Point(17, 40) - Me.scanVertragVeragKd.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) - Me.scanVertragVeragKd.Name = "scanVertragVeragKd" - Me.scanVertragVeragKd.Size = New System.Drawing.Size(168, 24) - Me.scanVertragVeragKd.TabIndex = 0 - ' 'tbBesuchsberichte ' 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(178, 39) + Me.tbBesuchsberichte.Size = New System.Drawing.Size(1630, 1103) Me.tbBesuchsberichte.TabIndex = 9 Me.tbBesuchsberichte.Text = "Besuchsberichte" Me.tbBesuchsberichte.UseVisualStyleBackColor = True @@ -1941,7 +1589,7 @@ Partial Class frmKundenblatt ' Me.tbFremdrechnungen.Location = New System.Drawing.Point(4, 22) Me.tbFremdrechnungen.Name = "tbFremdrechnungen" - Me.tbFremdrechnungen.Size = New System.Drawing.Size(178, 39) + Me.tbFremdrechnungen.Size = New System.Drawing.Size(1630, 1103) Me.tbFremdrechnungen.TabIndex = 10 Me.tbFremdrechnungen.Text = "Fremdrechnungen" Me.tbFremdrechnungen.UseVisualStyleBackColor = True @@ -1952,27 +1600,17 @@ Partial Class frmKundenblatt Me.tbOfferte.Location = New System.Drawing.Point(4, 25) Me.tbOfferte.Margin = New System.Windows.Forms.Padding(2) Me.tbOfferte.Name = "tbOfferte" - Me.tbOfferte.Size = New System.Drawing.Size(1644, 1067) + Me.tbOfferte.Size = New System.Drawing.Size(1644, 1135) Me.tbOfferte.TabIndex = 11 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, 1067) - Me.UsrCntlOfferte1.TabIndex = 0 - ' 'tbUSTV ' Me.tbUSTV.Controls.Add(Me.tbcntrUSTV) Me.tbUSTV.Location = New System.Drawing.Point(4, 25) Me.tbUSTV.Name = "tbUSTV" - Me.tbUSTV.Size = New System.Drawing.Size(1644, 1067) + Me.tbUSTV.Size = New System.Drawing.Size(1644, 1135) Me.tbUSTV.TabIndex = 12 Me.tbUSTV.Text = "USTV" Me.tbUSTV.UseVisualStyleBackColor = True @@ -1986,7 +1624,7 @@ Partial Class frmKundenblatt Me.tbcntrUSTV.Margin = New System.Windows.Forms.Padding(0) Me.tbcntrUSTV.Name = "tbcntrUSTV" Me.tbcntrUSTV.SelectedIndex = 0 - Me.tbcntrUSTV.Size = New System.Drawing.Size(1644, 1067) + Me.tbcntrUSTV.Size = New System.Drawing.Size(1644, 1135) Me.tbcntrUSTV.TabIndex = 1 ' 'tbUSTVDokumente @@ -1999,7 +1637,7 @@ Partial Class frmKundenblatt Me.tbUSTVDokumente.Controls.Add(Me.scanUSTVVollmachten) Me.tbUSTVDokumente.Location = New System.Drawing.Point(4, 22) Me.tbUSTVDokumente.Name = "tbUSTVDokumente" - Me.tbUSTVDokumente.Size = New System.Drawing.Size(1636, 1041) + Me.tbUSTVDokumente.Size = New System.Drawing.Size(1636, 1109) Me.tbUSTVDokumente.TabIndex = 8 Me.tbUSTVDokumente.Text = "Dokumente" Me.tbUSTVDokumente.UseVisualStyleBackColor = True @@ -2014,25 +1652,6 @@ Partial Class frmKundenblatt Me.Label8.TabIndex = 8 Me.Label8.Text = "sonstige Dokumente:" ' - 'scanUSTVsonstigeDokumente - ' - Me.scanUSTVsonstigeDokumente._DATENSERVER_KATEGORIE = "DOKUMENTE" - Me.scanUSTVsonstigeDokumente._DATENSERVER_ORDNER = "MDM" - Me.scanUSTVsonstigeDokumente._DATENSERVER_UOrdner1 = "" - Me.scanUSTVsonstigeDokumente._DATENSERVER_UOrdner2 = "" - Me.scanUSTVsonstigeDokumente._DATENSERVER_UOrdner3 = "" - Me.scanUSTVsonstigeDokumente._OPEN_ORIGINAL = False - Me.scanUSTVsonstigeDokumente._TYPE = "PDF" - Me.scanUSTVsonstigeDokumente.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink - Me.scanUSTVsonstigeDokumente.BackColor = System.Drawing.Color.White - Me.scanUSTVsonstigeDokumente.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.scanUSTVsonstigeDokumente.Cursor = System.Windows.Forms.Cursors.Default - Me.scanUSTVsonstigeDokumente.Location = New System.Drawing.Point(607, 36) - Me.scanUSTVsonstigeDokumente.Margin = New System.Windows.Forms.Padding(0) - Me.scanUSTVsonstigeDokumente.Name = "scanUSTVsonstigeDokumente" - Me.scanUSTVsonstigeDokumente.Size = New System.Drawing.Size(285, 505) - Me.scanUSTVsonstigeDokumente.TabIndex = 7 - ' 'Label27 ' Me.Label27.AutoSize = True @@ -2053,63 +1672,17 @@ Partial Class frmKundenblatt Me.Label37.TabIndex = 2 Me.Label37.Text = "USTV Vollmachten" ' - 'scanUSTVFABest - ' - Me.scanUSTVFABest._DATENSERVER_KATEGORIE = "DOKUMENTE" - Me.scanUSTVFABest._DATENSERVER_ORDNER = "MDM" - Me.scanUSTVFABest._DATENSERVER_UOrdner1 = "" - Me.scanUSTVFABest._DATENSERVER_UOrdner2 = "" - Me.scanUSTVFABest._DATENSERVER_UOrdner3 = "" - Me.scanUSTVFABest._OPEN_ORIGINAL = False - Me.scanUSTVFABest._TYPE = "PDF" - Me.scanUSTVFABest.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink - Me.scanUSTVFABest.BackColor = System.Drawing.Color.White - Me.scanUSTVFABest.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.scanUSTVFABest.Cursor = System.Windows.Forms.Cursors.Default - Me.scanUSTVFABest.Location = New System.Drawing.Point(311, 36) - Me.scanUSTVFABest.Margin = New System.Windows.Forms.Padding(0) - Me.scanUSTVFABest.Name = "scanUSTVFABest" - Me.scanUSTVFABest.Size = New System.Drawing.Size(285, 505) - Me.scanUSTVFABest.TabIndex = 5 - ' - 'scanUSTVVollmachten - ' - Me.scanUSTVVollmachten._DATENSERVER_KATEGORIE = "DOKUMENTE" - Me.scanUSTVVollmachten._DATENSERVER_ORDNER = "MDM" - Me.scanUSTVVollmachten._DATENSERVER_UOrdner1 = "" - Me.scanUSTVVollmachten._DATENSERVER_UOrdner2 = "" - Me.scanUSTVVollmachten._DATENSERVER_UOrdner3 = "" - Me.scanUSTVVollmachten._OPEN_ORIGINAL = False - Me.scanUSTVVollmachten._TYPE = "PDF" - Me.scanUSTVVollmachten.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink - Me.scanUSTVVollmachten.BackColor = System.Drawing.Color.White - Me.scanUSTVVollmachten.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.scanUSTVVollmachten.Cursor = System.Windows.Forms.Cursors.Default - Me.scanUSTVVollmachten.Location = New System.Drawing.Point(14, 36) - Me.scanUSTVVollmachten.Margin = New System.Windows.Forms.Padding(0) - Me.scanUSTVVollmachten.Name = "scanUSTVVollmachten" - Me.scanUSTVVollmachten.Size = New System.Drawing.Size(285, 505) - Me.scanUSTVVollmachten.TabIndex = 1 - ' 'tbUSTVAntrage ' Me.tbUSTVAntrage.Controls.Add(Me.UsrCntlUSTV) 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(184, 45) + Me.tbUSTVAntrage.Size = New System.Drawing.Size(1636, 1109) 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 - ' 'cntxtExcel ' Me.cntxtExcel.ImageScalingSize = New System.Drawing.Size(24, 24) @@ -2328,6 +1901,406 @@ Partial Class frmKundenblatt Me.lblINAKTIV.Text = "! INAKTIV !" Me.lblINAKTIV.Visible = False ' + 'tbiLeistungen + ' + Me.tbiLeistungen.Name = "tbiLeistungen" + Me.tbiLeistungen.Size = New System.Drawing.Size(186, 22) + Me.tbiLeistungen.Text = "Leistungen" + ' + 'tbiKartenverwaltung + ' + Me.tbiKartenverwaltung.Name = "tbiKartenverwaltung" + Me.tbiKartenverwaltung.Size = New System.Drawing.Size(186, 22) + Me.tbiKartenverwaltung.Text = "Kartenverwaltung" + ' + 'tbiLKW + ' + Me.tbiLKW.Name = "tbiLKW" + Me.tbiLKW.Size = New System.Drawing.Size(186, 22) + Me.tbiLKW.Text = "LKWs" + ' + 'tbiVERAGCard + ' + Me.tbiVERAGCard.Name = "tbiVERAGCard" + Me.tbiVERAGCard.Size = New System.Drawing.Size(186, 22) + Me.tbiVERAGCard.Text = "VERAG Card" + ' + 'cboFirmaFMZOLL + ' + Me.cboFirmaFMZOLL._allowedValuesFreiText = Nothing + Me.cboFirmaFMZOLL._allowFreiText = False + Me.cboFirmaFMZOLL._value = "" + Me.cboFirmaFMZOLL.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cboFirmaFMZOLL.FormattingEnabled = True + Me.cboFirmaFMZOLL.Location = New System.Drawing.Point(354, 567) + Me.cboFirmaFMZOLL.Name = "cboFirmaFMZOLL" + Me.cboFirmaFMZOLL.Size = New System.Drawing.Size(184, 21) + Me.cboFirmaFMZOLL.TabIndex = 179 + ' + 'scanErstbestellung + ' + Me.scanErstbestellung._ARCHIV = True + Me.scanErstbestellung._DATENSERVER_KATEGORIE = "DOKUMENTE" + Me.scanErstbestellung._DATENSERVER_ORDNER = "MDM" + Me.scanErstbestellung._DATENSERVER_UOrdner1 = Nothing + Me.scanErstbestellung._DATENSERVER_UOrdner2 = Nothing + Me.scanErstbestellung._DATENSERVER_UOrdner3 = Nothing + Me.scanErstbestellung._MULTI_FILES = True + Me.scanErstbestellung._TEXT_PDF = "Erstbestellung" + Me.scanErstbestellung.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.scanErstbestellung.BackColor = System.Drawing.Color.White + Me.scanErstbestellung.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.scanErstbestellung.Cursor = System.Windows.Forms.Cursors.Hand + Me.scanErstbestellung.Location = New System.Drawing.Point(1, 1) + Me.scanErstbestellung.Margin = New System.Windows.Forms.Padding(1) + Me.scanErstbestellung.Name = "scanErstbestellung" + Me.scanErstbestellung.Size = New System.Drawing.Size(137, 24) + Me.scanErstbestellung.TabIndex = 172 + ' + 'scanJaraVereinbarung + ' + Me.scanJaraVereinbarung._ARCHIV = True + Me.scanJaraVereinbarung._DATENSERVER_KATEGORIE = "DOKUMENTE" + Me.scanJaraVereinbarung._DATENSERVER_ORDNER = "MDM" + Me.scanJaraVereinbarung._DATENSERVER_UOrdner1 = Nothing + Me.scanJaraVereinbarung._DATENSERVER_UOrdner2 = Nothing + Me.scanJaraVereinbarung._DATENSERVER_UOrdner3 = Nothing + Me.scanJaraVereinbarung._MULTI_FILES = True + Me.scanJaraVereinbarung._TEXT_PDF = "Jara-Vereinbarung" + Me.scanJaraVereinbarung.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.scanJaraVereinbarung.BackColor = System.Drawing.Color.White + Me.scanJaraVereinbarung.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.scanJaraVereinbarung.Cursor = System.Windows.Forms.Cursors.Hand + Me.scanJaraVereinbarung.Location = New System.Drawing.Point(1, 27) + Me.scanJaraVereinbarung.Margin = New System.Windows.Forms.Padding(1) + Me.scanJaraVereinbarung.Name = "scanJaraVereinbarung" + Me.scanJaraVereinbarung.Size = New System.Drawing.Size(137, 24) + Me.scanJaraVereinbarung.TabIndex = 173 + ' + 'scanMWSTAgreement + ' + Me.scanMWSTAgreement._ARCHIV = True + Me.scanMWSTAgreement._DATENSERVER_KATEGORIE = "DOKUMENTE" + Me.scanMWSTAgreement._DATENSERVER_ORDNER = "MDM" + Me.scanMWSTAgreement._DATENSERVER_UOrdner1 = Nothing + Me.scanMWSTAgreement._DATENSERVER_UOrdner2 = Nothing + Me.scanMWSTAgreement._DATENSERVER_UOrdner3 = Nothing + Me.scanMWSTAgreement._MULTI_FILES = True + Me.scanMWSTAgreement._TEXT_PDF = "MST Agreement" + Me.scanMWSTAgreement.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.scanMWSTAgreement.BackColor = System.Drawing.Color.White + Me.scanMWSTAgreement.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.scanMWSTAgreement.Cursor = System.Windows.Forms.Cursors.Hand + Me.scanMWSTAgreement.Location = New System.Drawing.Point(1, 53) + Me.scanMWSTAgreement.Margin = New System.Windows.Forms.Padding(1) + Me.scanMWSTAgreement.Name = "scanMWSTAgreement" + Me.scanMWSTAgreement.Size = New System.Drawing.Size(137, 24) + Me.scanMWSTAgreement.TabIndex = 174 + Me.scanMWSTAgreement.Visible = False + ' + 'scanSDLSonst + ' + Me.scanSDLSonst._DATENSERVER_KATEGORIE = "DOKUMENTE" + Me.scanSDLSonst._DATENSERVER_ORDNER = "MDM" + Me.scanSDLSonst._DATENSERVER_UOrdner1 = "" + Me.scanSDLSonst._DATENSERVER_UOrdner2 = "" + Me.scanSDLSonst._DATENSERVER_UOrdner3 = "" + Me.scanSDLSonst._OPEN_ORIGINAL = False + Me.scanSDLSonst._TYPE = "PDF" + Me.scanSDLSonst.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.scanSDLSonst.BackColor = System.Drawing.Color.White + Me.scanSDLSonst.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.scanSDLSonst.Cursor = System.Windows.Forms.Cursors.Default + Me.scanSDLSonst.Location = New System.Drawing.Point(890, 19) + Me.scanSDLSonst.Margin = New System.Windows.Forms.Padding(0) + Me.scanSDLSonst.Name = "scanSDLSonst" + Me.scanSDLSonst.Size = New System.Drawing.Size(260, 124) + Me.scanSDLSonst.TabIndex = 173 + ' + 'txtMautDE_BenutzerNr + ' + Me.txtMautDE_BenutzerNr._DateTimeOnly = False + Me.txtMautDE_BenutzerNr._numbersOnly = True + Me.txtMautDE_BenutzerNr._numbersOnlyKommastellen = "" + Me.txtMautDE_BenutzerNr._numbersOnlyTrennzeichen = True + Me.txtMautDE_BenutzerNr._Prozent = False + Me.txtMautDE_BenutzerNr._ShortDateNew = False + Me.txtMautDE_BenutzerNr._ShortDateOnly = False + Me.txtMautDE_BenutzerNr._TimeOnly = False + Me.txtMautDE_BenutzerNr._TimeOnly_Seconds = False + Me.txtMautDE_BenutzerNr._value = "" + Me.txtMautDE_BenutzerNr._Waehrung = False + Me.txtMautDE_BenutzerNr._WaehrungZeichen = True + Me.txtMautDE_BenutzerNr.ForeColor = System.Drawing.Color.Black + Me.txtMautDE_BenutzerNr.Location = New System.Drawing.Point(72, 21) + Me.txtMautDE_BenutzerNr.MaxLineLength = -1 + Me.txtMautDE_BenutzerNr.MaxLines_Warning = "" + Me.txtMautDE_BenutzerNr.MaxLines_Warning_Label = Nothing + Me.txtMautDE_BenutzerNr.Name = "txtMautDE_BenutzerNr" + Me.txtMautDE_BenutzerNr.Size = New System.Drawing.Size(129, 20) + Me.txtMautDE_BenutzerNr.TabIndex = 18 + ' + 'txtMautDE_FlottenPIN + ' + Me.txtMautDE_FlottenPIN._DateTimeOnly = False + Me.txtMautDE_FlottenPIN._numbersOnly = True + Me.txtMautDE_FlottenPIN._numbersOnlyKommastellen = "" + Me.txtMautDE_FlottenPIN._numbersOnlyTrennzeichen = True + Me.txtMautDE_FlottenPIN._Prozent = False + Me.txtMautDE_FlottenPIN._ShortDateNew = False + Me.txtMautDE_FlottenPIN._ShortDateOnly = False + Me.txtMautDE_FlottenPIN._TimeOnly = False + Me.txtMautDE_FlottenPIN._TimeOnly_Seconds = False + Me.txtMautDE_FlottenPIN._value = "" + Me.txtMautDE_FlottenPIN._Waehrung = False + Me.txtMautDE_FlottenPIN._WaehrungZeichen = True + Me.txtMautDE_FlottenPIN.ForeColor = System.Drawing.Color.Black + Me.txtMautDE_FlottenPIN.Location = New System.Drawing.Point(72, 47) + Me.txtMautDE_FlottenPIN.MaxLineLength = -1 + Me.txtMautDE_FlottenPIN.MaxLines_Warning = "" + Me.txtMautDE_FlottenPIN.MaxLines_Warning_Label = Nothing + Me.txtMautDE_FlottenPIN.Name = "txtMautDE_FlottenPIN" + Me.txtMautDE_FlottenPIN.Size = New System.Drawing.Size(63, 20) + Me.txtMautDE_FlottenPIN.TabIndex = 14 + ' + 'txtMautDEMasterPIN + ' + Me.txtMautDEMasterPIN._DateTimeOnly = False + Me.txtMautDEMasterPIN._numbersOnly = True + Me.txtMautDEMasterPIN._numbersOnlyKommastellen = "" + Me.txtMautDEMasterPIN._numbersOnlyTrennzeichen = True + Me.txtMautDEMasterPIN._Prozent = False + Me.txtMautDEMasterPIN._ShortDateNew = False + Me.txtMautDEMasterPIN._ShortDateOnly = False + Me.txtMautDEMasterPIN._TimeOnly = False + Me.txtMautDEMasterPIN._TimeOnly_Seconds = False + Me.txtMautDEMasterPIN._value = "" + Me.txtMautDEMasterPIN._Waehrung = False + Me.txtMautDEMasterPIN._WaehrungZeichen = True + Me.txtMautDEMasterPIN.ForeColor = System.Drawing.Color.Black + Me.txtMautDEMasterPIN.Location = New System.Drawing.Point(207, 47) + Me.txtMautDEMasterPIN.MaxLineLength = -1 + Me.txtMautDEMasterPIN.MaxLines_Warning = "" + Me.txtMautDEMasterPIN.MaxLines_Warning_Label = Nothing + Me.txtMautDEMasterPIN.Name = "txtMautDEMasterPIN" + Me.txtMautDEMasterPIN.Size = New System.Drawing.Size(63, 20) + Me.txtMautDEMasterPIN.TabIndex = 16 + ' + 'scanUebernahmebestätigungen + ' + Me.scanUebernahmebestätigungen._DATENSERVER_KATEGORIE = "DOKUMENTE" + Me.scanUebernahmebestätigungen._DATENSERVER_ORDNER = "MDM" + Me.scanUebernahmebestätigungen._DATENSERVER_UOrdner1 = "" + Me.scanUebernahmebestätigungen._DATENSERVER_UOrdner2 = "" + Me.scanUebernahmebestätigungen._DATENSERVER_UOrdner3 = "" + Me.scanUebernahmebestätigungen._OPEN_ORIGINAL = False + Me.scanUebernahmebestätigungen._TYPE = "PDF" + Me.scanUebernahmebestätigungen.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.scanUebernahmebestätigungen.BackColor = System.Drawing.Color.White + Me.scanUebernahmebestätigungen.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.scanUebernahmebestätigungen.Cursor = System.Windows.Forms.Cursors.Default + Me.scanUebernahmebestätigungen.Location = New System.Drawing.Point(488, 40) + Me.scanUebernahmebestätigungen.Margin = New System.Windows.Forms.Padding(0) + Me.scanUebernahmebestätigungen.Name = "scanUebernahmebestätigungen" + Me.scanUebernahmebestätigungen.Size = New System.Drawing.Size(285, 505) + Me.scanUebernahmebestätigungen.TabIndex = 5 + ' + 'scanHKA + ' + Me.scanHKA._ARCHIV = True + Me.scanHKA._DATENSERVER_KATEGORIE = "DOKUMENTE" + Me.scanHKA._DATENSERVER_ORDNER = "MDM" + Me.scanHKA._DATENSERVER_UOrdner1 = Nothing + Me.scanHKA._DATENSERVER_UOrdner2 = Nothing + Me.scanHKA._DATENSERVER_UOrdner3 = Nothing + Me.scanHKA._MULTI_FILES = True + Me.scanHKA._TEXT_PDF = "Handelskammerauszug" + Me.scanHKA.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.scanHKA.BackColor = System.Drawing.Color.White + Me.scanHKA.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.scanHKA.Cursor = System.Windows.Forms.Cursors.Default + Me.scanHKA.Location = New System.Drawing.Point(17, 163) + Me.scanHKA.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.scanHKA.Name = "scanHKA" + Me.scanHKA.Size = New System.Drawing.Size(168, 24) + Me.scanHKA.TabIndex = 4 + ' + 'scanSonstiges + ' + Me.scanSonstiges._DATENSERVER_KATEGORIE = "DOKUMENTE" + Me.scanSonstiges._DATENSERVER_ORDNER = "MDM" + Me.scanSonstiges._DATENSERVER_UOrdner1 = "" + Me.scanSonstiges._DATENSERVER_UOrdner2 = "" + Me.scanSonstiges._DATENSERVER_UOrdner3 = "" + Me.scanSonstiges._OPEN_ORIGINAL = False + Me.scanSonstiges._TYPE = "PDF" + Me.scanSonstiges.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.scanSonstiges.BackColor = System.Drawing.Color.White + Me.scanSonstiges.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.scanSonstiges.Cursor = System.Windows.Forms.Cursors.Default + Me.scanSonstiges.Location = New System.Drawing.Point(191, 40) + Me.scanSonstiges.Margin = New System.Windows.Forms.Padding(0) + Me.scanSonstiges.Name = "scanSonstiges" + Me.scanSonstiges.Size = New System.Drawing.Size(285, 505) + Me.scanSonstiges.TabIndex = 1 + ' + 'scanEULizenz + ' + Me.scanEULizenz._ARCHIV = True + Me.scanEULizenz._DATENSERVER_KATEGORIE = "DOKUMENTE" + Me.scanEULizenz._DATENSERVER_ORDNER = "MDM" + Me.scanEULizenz._DATENSERVER_UOrdner1 = Nothing + Me.scanEULizenz._DATENSERVER_UOrdner2 = Nothing + Me.scanEULizenz._DATENSERVER_UOrdner3 = Nothing + Me.scanEULizenz._MULTI_FILES = True + Me.scanEULizenz._TEXT_PDF = "EU-Lizenz" + Me.scanEULizenz.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.scanEULizenz.BackColor = System.Drawing.Color.White + Me.scanEULizenz.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.scanEULizenz.Cursor = System.Windows.Forms.Cursors.Default + Me.scanEULizenz.Location = New System.Drawing.Point(17, 197) + Me.scanEULizenz.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.scanEULizenz.Name = "scanEULizenz" + Me.scanEULizenz.Size = New System.Drawing.Size(168, 24) + Me.scanEULizenz.TabIndex = 0 + ' + 'scanHRA + ' + Me.scanHRA._ARCHIV = True + Me.scanHRA._DATENSERVER_KATEGORIE = "DOKUMENTE" + Me.scanHRA._DATENSERVER_ORDNER = "MDM" + Me.scanHRA._DATENSERVER_UOrdner1 = Nothing + Me.scanHRA._DATENSERVER_UOrdner2 = Nothing + Me.scanHRA._DATENSERVER_UOrdner3 = Nothing + Me.scanHRA._MULTI_FILES = True + Me.scanHRA._TEXT_PDF = "Handelsregisterauszug" + Me.scanHRA.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.scanHRA.BackColor = System.Drawing.Color.White + Me.scanHRA.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.scanHRA.Cursor = System.Windows.Forms.Cursors.Default + Me.scanHRA.Location = New System.Drawing.Point(17, 133) + Me.scanHRA.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.scanHRA.Name = "scanHRA" + Me.scanHRA.Size = New System.Drawing.Size(168, 24) + Me.scanHRA.TabIndex = 0 + ' + 'scanPersonalAusweisGF + ' + Me.scanPersonalAusweisGF._ARCHIV = True + Me.scanPersonalAusweisGF._DATENSERVER_KATEGORIE = "DOKUMENTE" + Me.scanPersonalAusweisGF._DATENSERVER_ORDNER = "MDM" + Me.scanPersonalAusweisGF._DATENSERVER_UOrdner1 = Nothing + Me.scanPersonalAusweisGF._DATENSERVER_UOrdner2 = Nothing + Me.scanPersonalAusweisGF._DATENSERVER_UOrdner3 = Nothing + Me.scanPersonalAusweisGF._MULTI_FILES = True + Me.scanPersonalAusweisGF._TEXT_PDF = "Personalausweis GF" + Me.scanPersonalAusweisGF.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.scanPersonalAusweisGF.BackColor = System.Drawing.Color.White + Me.scanPersonalAusweisGF.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.scanPersonalAusweisGF.Cursor = System.Windows.Forms.Cursors.Default + Me.scanPersonalAusweisGF.Location = New System.Drawing.Point(17, 99) + Me.scanPersonalAusweisGF.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.scanPersonalAusweisGF.Name = "scanPersonalAusweisGF" + Me.scanPersonalAusweisGF.Size = New System.Drawing.Size(168, 24) + Me.scanPersonalAusweisGF.TabIndex = 0 + ' + 'scanBankGarantie + ' + Me.scanBankGarantie._ARCHIV = True + Me.scanBankGarantie._DATENSERVER_KATEGORIE = "DOKUMENTE" + Me.scanBankGarantie._DATENSERVER_ORDNER = "MDM" + Me.scanBankGarantie._DATENSERVER_UOrdner1 = Nothing + Me.scanBankGarantie._DATENSERVER_UOrdner2 = Nothing + Me.scanBankGarantie._DATENSERVER_UOrdner3 = Nothing + Me.scanBankGarantie._MULTI_FILES = True + Me.scanBankGarantie._TEXT_PDF = "Bankgarantie" + Me.scanBankGarantie.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.scanBankGarantie.BackColor = System.Drawing.Color.White + Me.scanBankGarantie.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.scanBankGarantie.Cursor = System.Windows.Forms.Cursors.Default + Me.scanBankGarantie.Location = New System.Drawing.Point(17, 70) + Me.scanBankGarantie.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.scanBankGarantie.Name = "scanBankGarantie" + Me.scanBankGarantie.Size = New System.Drawing.Size(168, 24) + Me.scanBankGarantie.TabIndex = 0 + ' + 'scanVertragVeragKd + ' + Me.scanVertragVeragKd._ARCHIV = True + Me.scanVertragVeragKd._DATENSERVER_KATEGORIE = "DOKUMENTE" + Me.scanVertragVeragKd._DATENSERVER_ORDNER = "MDM" + Me.scanVertragVeragKd._DATENSERVER_UOrdner1 = Nothing + Me.scanVertragVeragKd._DATENSERVER_UOrdner2 = Nothing + Me.scanVertragVeragKd._DATENSERVER_UOrdner3 = Nothing + Me.scanVertragVeragKd._MULTI_FILES = True + Me.scanVertragVeragKd._TEXT_PDF = "Vertrag VERAG-Kunde" + Me.scanVertragVeragKd.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.scanVertragVeragKd.BackColor = System.Drawing.Color.White + Me.scanVertragVeragKd.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.scanVertragVeragKd.Cursor = System.Windows.Forms.Cursors.Default + Me.scanVertragVeragKd.Location = New System.Drawing.Point(17, 40) + Me.scanVertragVeragKd.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.scanVertragVeragKd.Name = "scanVertragVeragKd" + Me.scanVertragVeragKd.Size = New System.Drawing.Size(168, 24) + Me.scanVertragVeragKd.TabIndex = 0 + ' + 'scanUSTVsonstigeDokumente + ' + Me.scanUSTVsonstigeDokumente._DATENSERVER_KATEGORIE = "DOKUMENTE" + Me.scanUSTVsonstigeDokumente._DATENSERVER_ORDNER = "MDM" + Me.scanUSTVsonstigeDokumente._DATENSERVER_UOrdner1 = "" + Me.scanUSTVsonstigeDokumente._DATENSERVER_UOrdner2 = "" + Me.scanUSTVsonstigeDokumente._DATENSERVER_UOrdner3 = "" + Me.scanUSTVsonstigeDokumente._OPEN_ORIGINAL = False + Me.scanUSTVsonstigeDokumente._TYPE = "PDF" + Me.scanUSTVsonstigeDokumente.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.scanUSTVsonstigeDokumente.BackColor = System.Drawing.Color.White + Me.scanUSTVsonstigeDokumente.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.scanUSTVsonstigeDokumente.Cursor = System.Windows.Forms.Cursors.Default + Me.scanUSTVsonstigeDokumente.Location = New System.Drawing.Point(607, 36) + Me.scanUSTVsonstigeDokumente.Margin = New System.Windows.Forms.Padding(0) + Me.scanUSTVsonstigeDokumente.Name = "scanUSTVsonstigeDokumente" + Me.scanUSTVsonstigeDokumente.Size = New System.Drawing.Size(285, 505) + Me.scanUSTVsonstigeDokumente.TabIndex = 7 + ' + 'scanUSTVFABest + ' + Me.scanUSTVFABest._DATENSERVER_KATEGORIE = "DOKUMENTE" + Me.scanUSTVFABest._DATENSERVER_ORDNER = "MDM" + Me.scanUSTVFABest._DATENSERVER_UOrdner1 = "" + Me.scanUSTVFABest._DATENSERVER_UOrdner2 = "" + Me.scanUSTVFABest._DATENSERVER_UOrdner3 = "" + Me.scanUSTVFABest._OPEN_ORIGINAL = False + Me.scanUSTVFABest._TYPE = "PDF" + Me.scanUSTVFABest.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.scanUSTVFABest.BackColor = System.Drawing.Color.White + Me.scanUSTVFABest.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.scanUSTVFABest.Cursor = System.Windows.Forms.Cursors.Default + Me.scanUSTVFABest.Location = New System.Drawing.Point(311, 36) + Me.scanUSTVFABest.Margin = New System.Windows.Forms.Padding(0) + Me.scanUSTVFABest.Name = "scanUSTVFABest" + Me.scanUSTVFABest.Size = New System.Drawing.Size(285, 505) + Me.scanUSTVFABest.TabIndex = 5 + ' + 'scanUSTVVollmachten + ' + Me.scanUSTVVollmachten._DATENSERVER_KATEGORIE = "DOKUMENTE" + Me.scanUSTVVollmachten._DATENSERVER_ORDNER = "MDM" + Me.scanUSTVVollmachten._DATENSERVER_UOrdner1 = "" + Me.scanUSTVVollmachten._DATENSERVER_UOrdner2 = "" + Me.scanUSTVVollmachten._DATENSERVER_UOrdner3 = "" + Me.scanUSTVVollmachten._OPEN_ORIGINAL = False + Me.scanUSTVVollmachten._TYPE = "PDF" + Me.scanUSTVVollmachten.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.scanUSTVVollmachten.BackColor = System.Drawing.Color.White + Me.scanUSTVVollmachten.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.scanUSTVVollmachten.Cursor = System.Windows.Forms.Cursors.Default + Me.scanUSTVVollmachten.Location = New System.Drawing.Point(14, 36) + Me.scanUSTVVollmachten.Margin = New System.Windows.Forms.Padding(0) + Me.scanUSTVVollmachten.Name = "scanUSTVVollmachten" + Me.scanUSTVVollmachten.Size = New System.Drawing.Size(285, 505) + Me.scanUSTVVollmachten.TabIndex = 1 + ' 'KdSearchBox1 ' Me.KdSearchBox1._AlleFirmenCLUSTER = False @@ -2362,29 +2335,56 @@ Partial Class frmKundenblatt Me.KdSearchBox1.TIMER_SEARCH = True Me.KdSearchBox1.usrcntl = Nothing ' - 'tbiLeistungen + 'UsrcntlKundeBearbeitenFull1 ' - Me.tbiLeistungen.Name = "tbiLeistungen" - Me.tbiLeistungen.Size = New System.Drawing.Size(186, 22) - Me.tbiLeistungen.Text = "Leistungen" + 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, 1129) + Me.UsrcntlKundeBearbeitenFull1.TabIndex = 0 ' - 'tbiKartenverwaltung + 'usrcntlKarten ' - Me.tbiKartenverwaltung.Name = "tbiKartenverwaltung" - Me.tbiKartenverwaltung.Size = New System.Drawing.Size(186, 22) - Me.tbiKartenverwaltung.Text = "Kartenverwaltung" + 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, 1080) + Me.usrcntlKarten.TabIndex = 0 ' - 'tbiLKW + 'UsrCntlLKW1 ' - Me.tbiLKW.Name = "tbiLKW" - Me.tbiLKW.Size = New System.Drawing.Size(186, 22) - Me.tbiLKW.Text = "LKWs" + 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, 1000) + Me.UsrCntlLKW1.TabIndex = 0 ' - 'tbiVERAGCard + 'UsrCntlOfferte1 ' - Me.tbiVERAGCard.Name = "tbiVERAGCard" - Me.tbiVERAGCard.Size = New System.Drawing.Size(186, 22) - Me.tbiVERAGCard.Text = "VERAG Card" + 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, 1135) + 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, 1086) + Me.UsrCntlUSTV.TabIndex = 0 ' 'frmKundenblatt ' @@ -2392,7 +2392,7 @@ Partial Class frmKundenblatt Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.AutoScroll = True Me.BackColor = System.Drawing.Color.White - Me.ClientSize = New System.Drawing.Size(1595, 1225) + Me.ClientSize = New System.Drawing.Size(1595, 1293) Me.Controls.Add(Me.lblAbfVerb) Me.Controls.Add(Me.btnAbfVerb) Me.Controls.Add(Me.tbcntrMain) diff --git a/SDL/seriendruck/usrCntlFakturierung.vb b/SDL/seriendruck/usrCntlFakturierung.vb index 76460df9..1d5ef869 100644 --- a/SDL/seriendruck/usrCntlFakturierung.vb +++ b/SDL/seriendruck/usrCntlFakturierung.vb @@ -450,6 +450,7 @@ Public Class usrcntlFakturierung If intZlr = 0 Then Exit For + Next End If diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cAPI.vb b/VERAG_PROG_ALLGEMEIN/Classes/cAPI.vb index 7d7175a6..e7c37d0c 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cAPI.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cAPI.vb @@ -25,6 +25,7 @@ Public Enum cAPI_ART VERAG_OUT_EZA = 11 AVISO_IN_MSE = 80 + SDL_OUT_FA = 81 End Enum