Merge branch 'master' of https://verag.visualstudio.com/SDL/_git/SDL
This commit is contained in:
File diff suppressed because it is too large
Load Diff
@@ -1,4 +1,6 @@
|
||||
Public Class usrcntlVollmacht_MDM_PDF
|
||||
Imports VERAG_PROG_ALLGEMEIN
|
||||
|
||||
Public Class usrcntlVollmacht_MDM_BHI
|
||||
Implements FormualrInterface
|
||||
|
||||
Public Event CHANGED(name, value)
|
||||
@@ -46,7 +48,30 @@
|
||||
Public Sub initKdNR(KdNR)
|
||||
Me.KdNR = KdNR
|
||||
Dim KUNDE As New VERAG_PROG_ALLGEMEIN.cKunde(KdNR)
|
||||
Dim KUNDE_ERW As New VERAG_PROG_ALLGEMEIN.cKundenErweitert(KdNR)
|
||||
Dim ADRESSE As New VERAG_PROG_ALLGEMEIN.cAdressen(KdNR)
|
||||
Dim KK_List As New VERAG_PROG_ALLGEMEIN.cKundenKontakteList(KdNR)
|
||||
|
||||
Dim GF As cKundenKontakte = KK_List.LIST.Find(Function(c) c.kkd_kkaId = 13 And c.kkd_KundenNr = KdNR)
|
||||
If GF IsNot Nothing Then
|
||||
txt_GF_Name.Text = GF.kkd_AnsprechpartnerAnrede & " " & IIf(GF.kkd_AnsprechpartnerNachname <> "", GF.kkd_AnsprechpartnerNachname & " ", "") & IIf(GF.kkd_AnsprechpartnerVorname <> "", GF.kkd_AnsprechpartnerVorname & " ", "")
|
||||
|
||||
If (GF.kkd_GebDatum IsNot Nothing AndAlso IsDate(GF.kkd_GebDatum)) Then
|
||||
txt_GF_Geb.Text = CDate(GF.kkd_GebDatum).ToShortDateString
|
||||
End If
|
||||
|
||||
txt_GF_Adresse.Text = If(GF.kkd_Adresse, "")
|
||||
txt_GF_Ort.Text = If(GF.kkd_Ort, "")
|
||||
txt_GF_PLZ.Text = If(GF.kkd_PLZ, "")
|
||||
cbx_GF_Land.changeItem(GF.kkd_Land)
|
||||
Else
|
||||
txt_GF_Name.Text = ""
|
||||
txt_GF_Geb.Text = ""
|
||||
txt_GF_Adresse.Text = ""
|
||||
txt_GF_Ort.Text = ""
|
||||
txt_GF_PLZ.Text = ""
|
||||
cbx_GF_Land.changeItem("")
|
||||
End If
|
||||
|
||||
txtFirma.Text = If(ADRESSE.Name_1, "") & If(If(ADRESSE.Name_2, "") <> "", " " & ADRESSE.Name_2, "")
|
||||
txtAdresse1.Text = If(ADRESSE.Straße, "")
|
||||
@@ -54,12 +79,16 @@
|
||||
txtAdresse2.Text = If(ADRESSE.PLZ, "").ToString.Trim
|
||||
txtAdresse3.Text = If(ADRESSE.Ort, "").ToString.Trim
|
||||
txtUid.Text = If(ADRESSE.UstIdKz, "") & If(ADRESSE.UstIdNr, "")
|
||||
txtEori.Text = If(KUNDE.EORITIN, "")
|
||||
txtHRNr.Text = If(KUNDE.EORITIN, "")
|
||||
txtTel.Text = If(ADRESSE.Telefon, "")
|
||||
txtFax.Text = If(ADRESSE.Telefax, "")
|
||||
txtSteuerNr.Text = If(ADRESSE.Steuernummer, "")
|
||||
txtEmail.Text = If(ADRESSE.E_Mail, "")
|
||||
txtAnsprechpartner.Text = (If(ADRESSE.Anrede, "") & " " & If(ADRESSE.Ansprechpartner, "")).trim
|
||||
cbxKapitalWahrung.changeItem(KUNDE_ERW.kde_KapitalWaehrung)
|
||||
txtKapital.Text = If(KUNDE_ERW.kde_Kapital, "")
|
||||
txtHRNr.Text = If(KUNDE_ERW.kde_HRNr, "")
|
||||
txtGruendungsdat.Text = If(KUNDE_ERW.kde_GruendungsDatum, "")
|
||||
|
||||
End Sub
|
||||
|
||||
@@ -96,14 +125,10 @@
|
||||
cboLand.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Slovakia", "SK"))
|
||||
cboLand.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Slovenia", "SI"))
|
||||
cboLand.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Spain", "ES"))
|
||||
|
||||
cbxLandKz.fillWithSQL(" select distinct landkz, Währungstabelle.Land from Währungstabelle where landkz is not null order by LandKz", , "FMZOLL", True)
|
||||
|
||||
cbxVMArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("BHI", "BHI"))
|
||||
cbxVMArt.changeItem("BHI")
|
||||
'cbxVMArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("EU", "EU"))
|
||||
'cbxVMArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("RO", "RO"))
|
||||
'cbxVMArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("TR", "TR"))
|
||||
'cbxVMArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("YU", "YU"))
|
||||
cbx_GF_Land.Items.AddRange(cbxLandKz.Items.Cast(Of VERAG_PROG_ALLGEMEIN.MyListItem).ToArray())
|
||||
|
||||
If KdNR > 0 Then initKdNR(KdNR)
|
||||
End Sub
|
||||
File diff suppressed because it is too large
Load Diff
@@ -0,0 +1,157 @@
|
||||
Imports VERAG_PROG_ALLGEMEIN
|
||||
|
||||
Public Class usrcntlVollmacht_MDM_EU
|
||||
Implements FormualrInterface
|
||||
|
||||
Public Event CHANGED(name, value)
|
||||
Public Event KDNR_CHANGED(kdnr)
|
||||
Public Event DELETE(c As Control)
|
||||
Public Event MOVE_UP(c As Control)
|
||||
Public Event MOVE_DOWN(c As Control)
|
||||
|
||||
Public KdNR As Integer = -1
|
||||
Public Sub ChangeKDNr(kdnr As Integer) Implements FormualrInterface.ChangeKDNr
|
||||
initKdNR(kdnr)
|
||||
End Sub
|
||||
|
||||
Sub initControlsHandler()
|
||||
For Each c In Me.Controls
|
||||
Select Case c.GetType.ToString
|
||||
Case GetType(VERAG_PROG_ALLGEMEIN.MyTextBox).ToString
|
||||
AddHandler DirectCast(c, VERAG_PROG_ALLGEMEIN.MyTextBox).Leave, Sub()
|
||||
RaiseEvent CHANGED(c.name, c.text)
|
||||
End Sub
|
||||
Case GetType(VERAG_PROG_ALLGEMEIN.MyComboBox).ToString
|
||||
AddHandler DirectCast(c, VERAG_PROG_ALLGEMEIN.MyComboBox).SelectedIndexChanged, Sub()
|
||||
RaiseEvent CHANGED(c.name, c._value)
|
||||
End Sub
|
||||
Case GetType(TextBox).ToString
|
||||
AddHandler DirectCast(c, TextBox).Leave, Sub()
|
||||
RaiseEvent CHANGED(c.name, c.text)
|
||||
End Sub
|
||||
End Select
|
||||
Next
|
||||
End Sub
|
||||
|
||||
Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click
|
||||
Dim kdsrch As New SDL.frmKundenSuche
|
||||
'Panel1.Enabled = False
|
||||
If kdsrch.ShowDialog(Me) = System.Windows.Forms.DialogResult.OK Then
|
||||
If IsNumeric(kdsrch.kundenNrSearch.Text) Then
|
||||
initKdNR(kdsrch.kundenNrSearch.Text)
|
||||
RaiseEvent KDNR_CHANGED(KdNR)
|
||||
End If
|
||||
End If
|
||||
' Panel1.Enabled = True
|
||||
End Sub
|
||||
|
||||
Public Sub initKdNR(KdNR)
|
||||
Me.KdNR = KdNR
|
||||
Dim KUNDE As New VERAG_PROG_ALLGEMEIN.cKunde(KdNR)
|
||||
Dim ADRESSE As New VERAG_PROG_ALLGEMEIN.cAdressen(KdNR)
|
||||
Dim KUNDE_ERW As New VERAG_PROG_ALLGEMEIN.cKundenErweitert(KdNR)
|
||||
Dim KK_List As New VERAG_PROG_ALLGEMEIN.cKundenKontakteList(KdNR)
|
||||
|
||||
Dim GF As cKundenKontakte = KK_List.LIST.Find(Function(c) c.kkd_kkaId = 13 And c.kkd_KundenNr = KdNR)
|
||||
If GF IsNot Nothing Then
|
||||
txt_GF_Name.Text = GF.kkd_AnsprechpartnerAnrede & IIf(GF.kkd_AnsprechpartnerNachname <> "", GF.kkd_AnsprechpartnerNachname & " ", "") & IIf(GF.kkd_AnsprechpartnerVorname <> "", GF.kkd_AnsprechpartnerVorname & " ", "")
|
||||
|
||||
If (GF.kkd_GebDatum IsNot Nothing AndAlso IsDate(GF.kkd_GebDatum)) Then
|
||||
txt_GF_Geb.Text = CDate(GF.kkd_GebDatum).ToShortDateString
|
||||
End If
|
||||
|
||||
txt_GF_Adresse.Text = If(GF.kkd_Adresse, "")
|
||||
txt_GF_Ort.Text = If(GF.kkd_Ort, "")
|
||||
txt_GF_PLZ.Text = If(GF.kkd_PLZ, "")
|
||||
cbx_GF_Land.changeItem(GF.kkd_Land)
|
||||
Else
|
||||
txt_GF_Name.Text = ""
|
||||
txt_GF_Geb.Text = ""
|
||||
txt_GF_Adresse.Text = ""
|
||||
txt_GF_Ort.Text = ""
|
||||
txt_GF_PLZ.Text = ""
|
||||
cbx_GF_Land.changeItem("")
|
||||
End If
|
||||
|
||||
txtFirma.Text = If(ADRESSE.Name_1, "") & If(If(ADRESSE.Name_2, "") <> "", " " & ADRESSE.Name_2, "")
|
||||
txtAdresse1.Text = If(ADRESSE.Straße, "")
|
||||
cbxLandKz.changeItem(ADRESSE.LandKz)
|
||||
txtAdresse2.Text = If(ADRESSE.PLZ, "").ToString.Trim
|
||||
txtAdresse3.Text = If(ADRESSE.Ort, "").ToString.Trim
|
||||
txtUid.Text = If(ADRESSE.UstIdKz, "") & If(ADRESSE.UstIdNr, "")
|
||||
txtKapital.Text = If(KUNDE.EORITIN, "")
|
||||
txtTel.Text = If(ADRESSE.Telefon, "")
|
||||
txtFax.Text = If(ADRESSE.Telefax, "")
|
||||
txtSteuerNr.Text = If(ADRESSE.Steuernummer, "")
|
||||
txtEmail.Text = If(ADRESSE.E_Mail, "")
|
||||
txtAnsprechpartner.Text = (If(ADRESSE.Anrede, "") & " " & If(ADRESSE.Ansprechpartner, "")).trim
|
||||
cbxKapitalWahrung.changeItem(KUNDE_ERW.kde_KapitalWaehrung)
|
||||
txtKapital.Text = If(KUNDE_ERW.kde_Kapital, "")
|
||||
txtHRNr.Text = If(KUNDE_ERW.kde_HRNr, "")
|
||||
txtGruendungsdat.Text = If(KUNDE_ERW.kde_GruendungsDatum, "")
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub btnDel_Click(sender As Object, e As EventArgs) Handles btnDel.Click
|
||||
RaiseEvent DELETE(Me)
|
||||
End Sub
|
||||
|
||||
Private Sub btnup_Click(sender As Object, e As EventArgs) Handles btnUp.Click
|
||||
RaiseEvent MOVE_UP(Me)
|
||||
End Sub
|
||||
|
||||
Private Sub btnDown_Click(sender As Object, e As EventArgs) Handles btnDown.Click
|
||||
RaiseEvent MOVE_DOWN(Me)
|
||||
End Sub
|
||||
|
||||
Private Sub usrcntlVollmacht_DE_Load(sender As Object, e As EventArgs) Handles Me.Load
|
||||
initControlsHandler()
|
||||
cboLand.Items.Clear()
|
||||
cboLand.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Austria", "AT"))
|
||||
cboLand.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Belgium", "BE"))
|
||||
cboLand.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Czech Rep", "CZ"))
|
||||
cboLand.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Denmark", "DK"))
|
||||
cboLand.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Spain", "ES"))
|
||||
cboLand.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("France", "FR"))
|
||||
cboLand.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Great Britain", "GB"))
|
||||
cboLand.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Hungary", "HU"))
|
||||
cboLand.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Italy", "IT"))
|
||||
cboLand.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Luxenbourg", "LU"))
|
||||
cboLand.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Netherlands", "NL"))
|
||||
cboLand.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Poland", "PL"))
|
||||
cboLand.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Romania", "RO"))
|
||||
cboLand.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Sweden", "SE"))
|
||||
cboLand.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Slovakia", "SK"))
|
||||
cboLand.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Slovenia", "SI"))
|
||||
|
||||
cboLand.changeItem("AT")
|
||||
|
||||
cbxLandKz.fillWithSQL("select distinct landkz, Währungstabelle.Land from Währungstabelle where landkz is not null order by LandKz", , "FMZOLL", True)
|
||||
|
||||
cbx_GF_Land.Items.AddRange(cbxLandKz.Items.Cast(Of VERAG_PROG_ALLGEMEIN.MyListItem).ToArray())
|
||||
|
||||
cbxKapitalWahrung.fillWithSQL("SELECT [Währungscode],[Land] FROM Währungstabelle ORDER BY Währungscode", , "FMZOLL", False)
|
||||
|
||||
|
||||
txtEmailzurueck.Text = "juricevic@verag.ag"
|
||||
txtOrt.Text = "Suben"
|
||||
|
||||
If KdNR > 0 Then initKdNR(KdNR)
|
||||
End Sub
|
||||
|
||||
Private Sub pic_Click(sender As Object, e As EventArgs) Handles pic.Click
|
||||
FormularManagerNEU.genPDF(Me, True)
|
||||
End Sub
|
||||
|
||||
|
||||
Sub New()
|
||||
|
||||
' Dieser Aufruf ist für den Designer erforderlich.
|
||||
InitializeComponent()
|
||||
|
||||
|
||||
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
987
SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_MDM_NICHT_EU.Designer.vb
generated
Normal file
987
SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_MDM_NICHT_EU.Designer.vb
generated
Normal file
@@ -0,0 +1,987 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
|
||||
Partial Class usrcntlVollmacht_MDM_NICHT_EU
|
||||
Inherits System.Windows.Forms.UserControl
|
||||
|
||||
'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
|
||||
<System.Diagnostics.DebuggerNonUserCode()>
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
Try
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
Finally
|
||||
MyBase.Dispose(disposing)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
'Wird vom Windows Form-Designer benötigt.
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
|
||||
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
|
||||
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
|
||||
<System.Diagnostics.DebuggerStepThrough()>
|
||||
Private Sub InitializeComponent()
|
||||
Me.lbl = New System.Windows.Forms.Label()
|
||||
Me.Label1 = New System.Windows.Forms.Label()
|
||||
Me.btn = New System.Windows.Forms.Button()
|
||||
Me.Label8 = New System.Windows.Forms.Label()
|
||||
Me.pic = New System.Windows.Forms.PictureBox()
|
||||
Me.lblVollmacht = New System.Windows.Forms.Label()
|
||||
Me.btnDown = New System.Windows.Forms.Button()
|
||||
Me.btnUp = New System.Windows.Forms.Button()
|
||||
Me.btnDel = New System.Windows.Forms.Button()
|
||||
Me.lblLand = New System.Windows.Forms.Label()
|
||||
Me.Label9 = New System.Windows.Forms.Label()
|
||||
Me.Label14 = New System.Windows.Forms.Label()
|
||||
Me.Label11 = New System.Windows.Forms.Label()
|
||||
Me.Label4 = New System.Windows.Forms.Label()
|
||||
Me.Label17 = New System.Windows.Forms.Label()
|
||||
Me.Label16 = New System.Windows.Forms.Label()
|
||||
Me.Label15 = New System.Windows.Forms.Label()
|
||||
Me.Label10 = New System.Windows.Forms.Label()
|
||||
Me.lblGFGebDat = New System.Windows.Forms.Label()
|
||||
Me.Label12 = New System.Windows.Forms.Label()
|
||||
Me.datDatum = New System.Windows.Forms.DateTimePicker()
|
||||
Me.Label13 = New System.Windows.Forms.Label()
|
||||
Me.Label7 = New System.Windows.Forms.Label()
|
||||
Me.txtFax = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.txtSteuerNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.txtHRNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.txt_GF_Ort = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.cbx_GF_Land = New VERAG_PROG_ALLGEMEIN.MyComboBox()
|
||||
Me.txt_GF_PLZ = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.txt_GF_Adresse = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.txt_GF_Geb = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.txt_GF_Name = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.txtOrt = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.txtEmailzurueck = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.txtAdresse3 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.cbxLandKz = New VERAG_PROG_ALLGEMEIN.MyComboBox()
|
||||
Me.cboLand = New VERAG_PROG_ALLGEMEIN.MyComboBox()
|
||||
Me.txtAnsprechpartner = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.txtAdresse2 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.txtAdresse1 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.txtFirma = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.txtGruendungsdat = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.Label2 = New System.Windows.Forms.Label()
|
||||
Me.cbxKapitalWahrung = New VERAG_PROG_ALLGEMEIN.MyComboBox()
|
||||
Me.txtKapital = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.Label3 = New System.Windows.Forms.Label()
|
||||
Me.txtEmail = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.Label6 = New System.Windows.Forms.Label()
|
||||
Me.txtTel = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.Label5 = New System.Windows.Forms.Label()
|
||||
Me.txtUid = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.Label18 = New System.Windows.Forms.Label()
|
||||
CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'lbl
|
||||
'
|
||||
Me.lbl.AutoSize = True
|
||||
Me.lbl.Location = New System.Drawing.Point(158, 67)
|
||||
Me.lbl.Name = "lbl"
|
||||
Me.lbl.Size = New System.Drawing.Size(78, 13)
|
||||
Me.lbl.TabIndex = 6
|
||||
Me.lbl.Text = "Firmenwortlaut:"
|
||||
'
|
||||
'Label1
|
||||
'
|
||||
Me.Label1.AutoSize = True
|
||||
Me.Label1.Location = New System.Drawing.Point(158, 86)
|
||||
Me.Label1.Name = "Label1"
|
||||
Me.Label1.Size = New System.Drawing.Size(48, 13)
|
||||
Me.Label1.TabIndex = 11
|
||||
Me.Label1.Text = "Adresse:"
|
||||
'
|
||||
'btn
|
||||
'
|
||||
Me.btn.BackgroundImage = Global.SDL.My.Resources.Resources.search
|
||||
Me.btn.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
|
||||
Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btn.Location = New System.Drawing.Point(937, 64)
|
||||
Me.btn.Name = "btn"
|
||||
Me.btn.Size = New System.Drawing.Size(26, 20)
|
||||
Me.btn.TabIndex = 8
|
||||
Me.btn.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Label8
|
||||
'
|
||||
Me.Label8.AutoSize = True
|
||||
Me.Label8.Location = New System.Drawing.Point(523, 8)
|
||||
Me.Label8.Name = "Label8"
|
||||
Me.Label8.Size = New System.Drawing.Size(88, 13)
|
||||
Me.Label8.TabIndex = 2
|
||||
Me.Label8.Text = "Ansprechpartner:"
|
||||
'
|
||||
'pic
|
||||
'
|
||||
Me.pic.BackgroundImage = Global.SDL.My.Resources.Resources.pdf
|
||||
Me.pic.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
|
||||
Me.pic.Cursor = System.Windows.Forms.Cursors.Hand
|
||||
Me.pic.Location = New System.Drawing.Point(5, 5)
|
||||
Me.pic.Name = "pic"
|
||||
Me.pic.Size = New System.Drawing.Size(32, 32)
|
||||
Me.pic.TabIndex = 32
|
||||
Me.pic.TabStop = False
|
||||
'
|
||||
'lblVollmacht
|
||||
'
|
||||
Me.lblVollmacht.AutoSize = True
|
||||
Me.lblVollmacht.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.lblVollmacht.Location = New System.Drawing.Point(43, 9)
|
||||
Me.lblVollmacht.Name = "lblVollmacht"
|
||||
Me.lblVollmacht.Size = New System.Drawing.Size(176, 20)
|
||||
Me.lblVollmacht.TabIndex = 1
|
||||
Me.lblVollmacht.Text = "Vollmacht NICHT EU"
|
||||
'
|
||||
'btnDown
|
||||
'
|
||||
Me.btnDown.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Me.btnDown.BackgroundImage = Global.SDL.My.Resources.Resources.pfeil_unten
|
||||
Me.btnDown.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
|
||||
Me.btnDown.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnDown.Location = New System.Drawing.Point(976, 42)
|
||||
Me.btnDown.Name = "btnDown"
|
||||
Me.btnDown.Size = New System.Drawing.Size(25, 21)
|
||||
Me.btnDown.TabIndex = 9
|
||||
Me.btnDown.UseVisualStyleBackColor = True
|
||||
'
|
||||
'btnUp
|
||||
'
|
||||
Me.btnUp.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Me.btnUp.BackgroundImage = Global.SDL.My.Resources.Resources.pfeil_oben
|
||||
Me.btnUp.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
|
||||
Me.btnUp.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnUp.Location = New System.Drawing.Point(976, 22)
|
||||
Me.btnUp.Name = "btnUp"
|
||||
Me.btnUp.Size = New System.Drawing.Size(25, 21)
|
||||
Me.btnUp.TabIndex = 4
|
||||
Me.btnUp.UseVisualStyleBackColor = True
|
||||
'
|
||||
'btnDel
|
||||
'
|
||||
Me.btnDel.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Me.btnDel.BackgroundImage = Global.SDL.My.Resources.Resources.del
|
||||
Me.btnDel.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
|
||||
Me.btnDel.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnDel.Location = New System.Drawing.Point(976, -1)
|
||||
Me.btnDel.Name = "btnDel"
|
||||
Me.btnDel.Size = New System.Drawing.Size(25, 21)
|
||||
Me.btnDel.TabIndex = 0
|
||||
Me.btnDel.UseVisualStyleBackColor = True
|
||||
'
|
||||
'lblLand
|
||||
'
|
||||
Me.lblLand.AutoSize = True
|
||||
Me.lblLand.Location = New System.Drawing.Point(3, 64)
|
||||
Me.lblLand.Name = "lblLand"
|
||||
Me.lblLand.Size = New System.Drawing.Size(49, 13)
|
||||
Me.lblLand.TabIndex = 5
|
||||
Me.lblLand.Text = "für Land:"
|
||||
'
|
||||
'Label9
|
||||
'
|
||||
Me.Label9.AutoSize = True
|
||||
Me.Label9.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label9.Location = New System.Drawing.Point(158, 109)
|
||||
Me.Label9.Name = "Label9"
|
||||
Me.Label9.Size = New System.Drawing.Size(90, 13)
|
||||
Me.Label9.TabIndex = 35
|
||||
Me.Label9.Text = "Land / PLZ / Ort:"
|
||||
'
|
||||
'Label14
|
||||
'
|
||||
Me.Label14.AutoSize = True
|
||||
Me.Label14.Location = New System.Drawing.Point(523, 26)
|
||||
Me.Label14.Name = "Label14"
|
||||
Me.Label14.Size = New System.Drawing.Size(106, 13)
|
||||
Me.Label14.TabIndex = 66
|
||||
Me.Label14.Text = "Rücksendung EMail:"
|
||||
'
|
||||
'Label11
|
||||
'
|
||||
Me.Label11.AutoSize = True
|
||||
Me.Label11.Location = New System.Drawing.Point(587, 156)
|
||||
Me.Label11.Name = "Label11"
|
||||
Me.Label11.Size = New System.Drawing.Size(55, 13)
|
||||
Me.Label11.TabIndex = 124
|
||||
Me.Label11.Text = "Steuer-Nr:"
|
||||
'
|
||||
'Label4
|
||||
'
|
||||
Me.Label4.AutoSize = True
|
||||
Me.Label4.Location = New System.Drawing.Point(587, 175)
|
||||
Me.Label4.Name = "Label4"
|
||||
Me.Label4.Size = New System.Drawing.Size(27, 13)
|
||||
Me.Label4.TabIndex = 122
|
||||
Me.Label4.Text = "Fax:"
|
||||
'
|
||||
'Label17
|
||||
'
|
||||
Me.Label17.AutoSize = True
|
||||
Me.Label17.Location = New System.Drawing.Point(587, 137)
|
||||
Me.Label17.Name = "Label17"
|
||||
Me.Label17.Size = New System.Drawing.Size(43, 13)
|
||||
Me.Label17.TabIndex = 120
|
||||
Me.Label17.Text = "HR.-Nr:"
|
||||
'
|
||||
'Label16
|
||||
'
|
||||
Me.Label16.AutoSize = True
|
||||
Me.Label16.Location = New System.Drawing.Point(10, 214)
|
||||
Me.Label16.Name = "Label16"
|
||||
Me.Label16.Size = New System.Drawing.Size(85, 13)
|
||||
Me.Label16.TabIndex = 119
|
||||
Me.Label16.Text = "Geschäftsführer:"
|
||||
'
|
||||
'Label15
|
||||
'
|
||||
Me.Label15.AutoSize = True
|
||||
Me.Label15.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label15.Location = New System.Drawing.Point(158, 264)
|
||||
Me.Label15.Name = "Label15"
|
||||
Me.Label15.Size = New System.Drawing.Size(90, 13)
|
||||
Me.Label15.TabIndex = 116
|
||||
Me.Label15.Text = "Land / PLZ / Ort:"
|
||||
'
|
||||
'Label10
|
||||
'
|
||||
Me.Label10.AutoSize = True
|
||||
Me.Label10.Location = New System.Drawing.Point(158, 243)
|
||||
Me.Label10.Name = "Label10"
|
||||
Me.Label10.Size = New System.Drawing.Size(48, 13)
|
||||
Me.Label10.TabIndex = 113
|
||||
Me.Label10.Text = "Adresse:"
|
||||
'
|
||||
'lblGFGebDat
|
||||
'
|
||||
Me.lblGFGebDat.AutoSize = True
|
||||
Me.lblGFGebDat.Location = New System.Drawing.Point(587, 225)
|
||||
Me.lblGFGebDat.Name = "lblGFGebDat"
|
||||
Me.lblGFGebDat.Size = New System.Drawing.Size(53, 13)
|
||||
Me.lblGFGebDat.TabIndex = 111
|
||||
Me.lblGFGebDat.Text = "Geb-Dat.:"
|
||||
'
|
||||
'Label12
|
||||
'
|
||||
Me.Label12.AutoSize = True
|
||||
Me.Label12.Location = New System.Drawing.Point(158, 229)
|
||||
Me.Label12.Name = "Label12"
|
||||
Me.Label12.Size = New System.Drawing.Size(56, 13)
|
||||
Me.Label12.TabIndex = 109
|
||||
Me.Label12.Text = "Herr/Frau:"
|
||||
'
|
||||
'datDatum
|
||||
'
|
||||
Me.datDatum.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
|
||||
Me.datDatum.Location = New System.Drawing.Point(865, 292)
|
||||
Me.datDatum.Name = "datDatum"
|
||||
Me.datDatum.Size = New System.Drawing.Size(95, 20)
|
||||
Me.datDatum.TabIndex = 108
|
||||
'
|
||||
'Label13
|
||||
'
|
||||
Me.Label13.AutoSize = True
|
||||
Me.Label13.Location = New System.Drawing.Point(809, 292)
|
||||
Me.Label13.Name = "Label13"
|
||||
Me.Label13.Size = New System.Drawing.Size(41, 13)
|
||||
Me.Label13.TabIndex = 107
|
||||
Me.Label13.Text = "Datum:"
|
||||
'
|
||||
'Label7
|
||||
'
|
||||
Me.Label7.AutoSize = True
|
||||
Me.Label7.Location = New System.Drawing.Point(587, 292)
|
||||
Me.Label7.Name = "Label7"
|
||||
Me.Label7.Size = New System.Drawing.Size(24, 13)
|
||||
Me.Label7.TabIndex = 105
|
||||
Me.Label7.Text = "Ort:"
|
||||
'
|
||||
'txtFax
|
||||
'
|
||||
Me.txtFax._DateTimeOnly = False
|
||||
Me.txtFax._numbersOnly = False
|
||||
Me.txtFax._numbersOnlyKommastellen = ""
|
||||
Me.txtFax._numbersOnlyTrennzeichen = True
|
||||
Me.txtFax._Prozent = False
|
||||
Me.txtFax._ShortDateNew = False
|
||||
Me.txtFax._ShortDateOnly = False
|
||||
Me.txtFax._TimeOnly = False
|
||||
Me.txtFax._TimeOnly_Seconds = False
|
||||
Me.txtFax._value = Nothing
|
||||
Me.txtFax._Waehrung = False
|
||||
Me.txtFax._WaehrungZeichen = True
|
||||
Me.txtFax.ForeColor = System.Drawing.Color.Black
|
||||
Me.txtFax.Location = New System.Drawing.Point(653, 172)
|
||||
Me.txtFax.MaxLineLength = -1
|
||||
Me.txtFax.MaxLines_Warning = ""
|
||||
Me.txtFax.MaxLines_Warning_Label = Nothing
|
||||
Me.txtFax.Name = "txtFax"
|
||||
Me.txtFax.Size = New System.Drawing.Size(310, 20)
|
||||
Me.txtFax.TabIndex = 123
|
||||
'
|
||||
'txtSteuerNr
|
||||
'
|
||||
Me.txtSteuerNr._DateTimeOnly = False
|
||||
Me.txtSteuerNr._numbersOnly = False
|
||||
Me.txtSteuerNr._numbersOnlyKommastellen = ""
|
||||
Me.txtSteuerNr._numbersOnlyTrennzeichen = True
|
||||
Me.txtSteuerNr._Prozent = False
|
||||
Me.txtSteuerNr._ShortDateNew = False
|
||||
Me.txtSteuerNr._ShortDateOnly = False
|
||||
Me.txtSteuerNr._TimeOnly = False
|
||||
Me.txtSteuerNr._TimeOnly_Seconds = False
|
||||
Me.txtSteuerNr._value = Nothing
|
||||
Me.txtSteuerNr._Waehrung = False
|
||||
Me.txtSteuerNr._WaehrungZeichen = True
|
||||
Me.txtSteuerNr.ForeColor = System.Drawing.Color.Black
|
||||
Me.txtSteuerNr.Location = New System.Drawing.Point(653, 153)
|
||||
Me.txtSteuerNr.MaxLineLength = -1
|
||||
Me.txtSteuerNr.MaxLines_Warning = ""
|
||||
Me.txtSteuerNr.MaxLines_Warning_Label = Nothing
|
||||
Me.txtSteuerNr.Name = "txtSteuerNr"
|
||||
Me.txtSteuerNr.Size = New System.Drawing.Size(310, 20)
|
||||
Me.txtSteuerNr.TabIndex = 125
|
||||
'
|
||||
'txtHRNr
|
||||
'
|
||||
Me.txtHRNr._DateTimeOnly = False
|
||||
Me.txtHRNr._numbersOnly = False
|
||||
Me.txtHRNr._numbersOnlyKommastellen = ""
|
||||
Me.txtHRNr._numbersOnlyTrennzeichen = True
|
||||
Me.txtHRNr._Prozent = False
|
||||
Me.txtHRNr._ShortDateNew = False
|
||||
Me.txtHRNr._ShortDateOnly = False
|
||||
Me.txtHRNr._TimeOnly = False
|
||||
Me.txtHRNr._TimeOnly_Seconds = False
|
||||
Me.txtHRNr._value = Nothing
|
||||
Me.txtHRNr._Waehrung = False
|
||||
Me.txtHRNr._WaehrungZeichen = True
|
||||
Me.txtHRNr.ForeColor = System.Drawing.Color.Black
|
||||
Me.txtHRNr.Location = New System.Drawing.Point(653, 134)
|
||||
Me.txtHRNr.MaxLineLength = -1
|
||||
Me.txtHRNr.MaxLines_Warning = ""
|
||||
Me.txtHRNr.MaxLines_Warning_Label = Nothing
|
||||
Me.txtHRNr.Name = "txtHRNr"
|
||||
Me.txtHRNr.Size = New System.Drawing.Size(310, 20)
|
||||
Me.txtHRNr.TabIndex = 121
|
||||
'
|
||||
'txt_GF_Ort
|
||||
'
|
||||
Me.txt_GF_Ort._DateTimeOnly = False
|
||||
Me.txt_GF_Ort._numbersOnly = False
|
||||
Me.txt_GF_Ort._numbersOnlyKommastellen = ""
|
||||
Me.txt_GF_Ort._numbersOnlyTrennzeichen = True
|
||||
Me.txt_GF_Ort._Prozent = False
|
||||
Me.txt_GF_Ort._ShortDateNew = False
|
||||
Me.txt_GF_Ort._ShortDateOnly = False
|
||||
Me.txt_GF_Ort._TimeOnly = False
|
||||
Me.txt_GF_Ort._TimeOnly_Seconds = False
|
||||
Me.txt_GF_Ort._value = Nothing
|
||||
Me.txt_GF_Ort._Waehrung = False
|
||||
Me.txt_GF_Ort._WaehrungZeichen = True
|
||||
Me.txt_GF_Ort.ForeColor = System.Drawing.Color.Black
|
||||
Me.txt_GF_Ort.Location = New System.Drawing.Point(653, 257)
|
||||
Me.txt_GF_Ort.MaxLineLength = -1
|
||||
Me.txt_GF_Ort.MaxLines_Warning = ""
|
||||
Me.txt_GF_Ort.MaxLines_Warning_Label = Nothing
|
||||
Me.txt_GF_Ort.Name = "txt_GF_Ort"
|
||||
Me.txt_GF_Ort.Size = New System.Drawing.Size(310, 20)
|
||||
Me.txt_GF_Ort.TabIndex = 118
|
||||
'
|
||||
'cbx_GF_Land
|
||||
'
|
||||
Me.cbx_GF_Land._allowedValuesFreiText = Nothing
|
||||
Me.cbx_GF_Land._allowFreiText = False
|
||||
Me.cbx_GF_Land._value = ""
|
||||
Me.cbx_GF_Land.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
|
||||
Me.cbx_GF_Land.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
|
||||
Me.cbx_GF_Land.DropDownWidth = 200
|
||||
Me.cbx_GF_Land.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.cbx_GF_Land.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.cbx_GF_Land.FormattingEnabled = True
|
||||
Me.cbx_GF_Land.Location = New System.Drawing.Point(254, 257)
|
||||
Me.cbx_GF_Land.Name = "cbx_GF_Land"
|
||||
Me.cbx_GF_Land.Size = New System.Drawing.Size(111, 21)
|
||||
Me.cbx_GF_Land.TabIndex = 117
|
||||
'
|
||||
'txt_GF_PLZ
|
||||
'
|
||||
Me.txt_GF_PLZ._DateTimeOnly = False
|
||||
Me.txt_GF_PLZ._numbersOnly = False
|
||||
Me.txt_GF_PLZ._numbersOnlyKommastellen = ""
|
||||
Me.txt_GF_PLZ._numbersOnlyTrennzeichen = True
|
||||
Me.txt_GF_PLZ._Prozent = False
|
||||
Me.txt_GF_PLZ._ShortDateNew = False
|
||||
Me.txt_GF_PLZ._ShortDateOnly = False
|
||||
Me.txt_GF_PLZ._TimeOnly = False
|
||||
Me.txt_GF_PLZ._TimeOnly_Seconds = False
|
||||
Me.txt_GF_PLZ._value = Nothing
|
||||
Me.txt_GF_PLZ._Waehrung = False
|
||||
Me.txt_GF_PLZ._WaehrungZeichen = True
|
||||
Me.txt_GF_PLZ.ForeColor = System.Drawing.Color.Black
|
||||
Me.txt_GF_PLZ.Location = New System.Drawing.Point(365, 257)
|
||||
Me.txt_GF_PLZ.MaxLineLength = -1
|
||||
Me.txt_GF_PLZ.MaxLines_Warning = ""
|
||||
Me.txt_GF_PLZ.MaxLines_Warning_Label = Nothing
|
||||
Me.txt_GF_PLZ.Name = "txt_GF_PLZ"
|
||||
Me.txt_GF_PLZ.Size = New System.Drawing.Size(288, 20)
|
||||
Me.txt_GF_PLZ.TabIndex = 115
|
||||
'
|
||||
'txt_GF_Adresse
|
||||
'
|
||||
Me.txt_GF_Adresse._DateTimeOnly = False
|
||||
Me.txt_GF_Adresse._numbersOnly = False
|
||||
Me.txt_GF_Adresse._numbersOnlyKommastellen = ""
|
||||
Me.txt_GF_Adresse._numbersOnlyTrennzeichen = True
|
||||
Me.txt_GF_Adresse._Prozent = False
|
||||
Me.txt_GF_Adresse._ShortDateNew = True
|
||||
Me.txt_GF_Adresse._ShortDateOnly = False
|
||||
Me.txt_GF_Adresse._TimeOnly = False
|
||||
Me.txt_GF_Adresse._TimeOnly_Seconds = False
|
||||
Me.txt_GF_Adresse._value = ""
|
||||
Me.txt_GF_Adresse._Waehrung = False
|
||||
Me.txt_GF_Adresse._WaehrungZeichen = False
|
||||
Me.txt_GF_Adresse.ForeColor = System.Drawing.Color.Black
|
||||
Me.txt_GF_Adresse.Location = New System.Drawing.Point(254, 240)
|
||||
Me.txt_GF_Adresse.MaxLength = 10
|
||||
Me.txt_GF_Adresse.MaxLineLength = -1
|
||||
Me.txt_GF_Adresse.MaxLines_Warning = ""
|
||||
Me.txt_GF_Adresse.MaxLines_Warning_Label = Nothing
|
||||
Me.txt_GF_Adresse.Name = "txt_GF_Adresse"
|
||||
Me.txt_GF_Adresse.Size = New System.Drawing.Size(709, 20)
|
||||
Me.txt_GF_Adresse.TabIndex = 114
|
||||
'
|
||||
'txt_GF_Geb
|
||||
'
|
||||
Me.txt_GF_Geb._DateTimeOnly = False
|
||||
Me.txt_GF_Geb._numbersOnly = False
|
||||
Me.txt_GF_Geb._numbersOnlyKommastellen = ""
|
||||
Me.txt_GF_Geb._numbersOnlyTrennzeichen = True
|
||||
Me.txt_GF_Geb._Prozent = False
|
||||
Me.txt_GF_Geb._ShortDateNew = True
|
||||
Me.txt_GF_Geb._ShortDateOnly = False
|
||||
Me.txt_GF_Geb._TimeOnly = False
|
||||
Me.txt_GF_Geb._TimeOnly_Seconds = False
|
||||
Me.txt_GF_Geb._value = ""
|
||||
Me.txt_GF_Geb._Waehrung = False
|
||||
Me.txt_GF_Geb._WaehrungZeichen = False
|
||||
Me.txt_GF_Geb.ForeColor = System.Drawing.Color.Black
|
||||
Me.txt_GF_Geb.Location = New System.Drawing.Point(653, 222)
|
||||
Me.txt_GF_Geb.MaxLength = 10
|
||||
Me.txt_GF_Geb.MaxLineLength = -1
|
||||
Me.txt_GF_Geb.MaxLines_Warning = ""
|
||||
Me.txt_GF_Geb.MaxLines_Warning_Label = Nothing
|
||||
Me.txt_GF_Geb.Name = "txt_GF_Geb"
|
||||
Me.txt_GF_Geb.Size = New System.Drawing.Size(310, 20)
|
||||
Me.txt_GF_Geb.TabIndex = 112
|
||||
'
|
||||
'txt_GF_Name
|
||||
'
|
||||
Me.txt_GF_Name._DateTimeOnly = False
|
||||
Me.txt_GF_Name._numbersOnly = False
|
||||
Me.txt_GF_Name._numbersOnlyKommastellen = ""
|
||||
Me.txt_GF_Name._numbersOnlyTrennzeichen = True
|
||||
Me.txt_GF_Name._Prozent = False
|
||||
Me.txt_GF_Name._ShortDateNew = False
|
||||
Me.txt_GF_Name._ShortDateOnly = False
|
||||
Me.txt_GF_Name._TimeOnly = False
|
||||
Me.txt_GF_Name._TimeOnly_Seconds = False
|
||||
Me.txt_GF_Name._value = Nothing
|
||||
Me.txt_GF_Name._Waehrung = False
|
||||
Me.txt_GF_Name._WaehrungZeichen = True
|
||||
Me.txt_GF_Name.ForeColor = System.Drawing.Color.Black
|
||||
Me.txt_GF_Name.Location = New System.Drawing.Point(254, 222)
|
||||
Me.txt_GF_Name.MaxLineLength = -1
|
||||
Me.txt_GF_Name.MaxLines_Warning = ""
|
||||
Me.txt_GF_Name.MaxLines_Warning_Label = Nothing
|
||||
Me.txt_GF_Name.Name = "txt_GF_Name"
|
||||
Me.txt_GF_Name.Size = New System.Drawing.Size(310, 20)
|
||||
Me.txt_GF_Name.TabIndex = 110
|
||||
'
|
||||
'txtOrt
|
||||
'
|
||||
Me.txtOrt._DateTimeOnly = False
|
||||
Me.txtOrt._numbersOnly = False
|
||||
Me.txtOrt._numbersOnlyKommastellen = ""
|
||||
Me.txtOrt._numbersOnlyTrennzeichen = True
|
||||
Me.txtOrt._Prozent = False
|
||||
Me.txtOrt._ShortDateNew = False
|
||||
Me.txtOrt._ShortDateOnly = False
|
||||
Me.txtOrt._TimeOnly = False
|
||||
Me.txtOrt._TimeOnly_Seconds = False
|
||||
Me.txtOrt._value = Nothing
|
||||
Me.txtOrt._Waehrung = False
|
||||
Me.txtOrt._WaehrungZeichen = True
|
||||
Me.txtOrt.Enabled = False
|
||||
Me.txtOrt.ForeColor = System.Drawing.Color.Black
|
||||
Me.txtOrt.Location = New System.Drawing.Point(650, 289)
|
||||
Me.txtOrt.MaxLineLength = -1
|
||||
Me.txtOrt.MaxLines_Warning = ""
|
||||
Me.txtOrt.MaxLines_Warning_Label = Nothing
|
||||
Me.txtOrt.Name = "txtOrt"
|
||||
Me.txtOrt.Size = New System.Drawing.Size(109, 20)
|
||||
Me.txtOrt.TabIndex = 106
|
||||
'
|
||||
'txtEmailzurueck
|
||||
'
|
||||
Me.txtEmailzurueck._DateTimeOnly = False
|
||||
Me.txtEmailzurueck._numbersOnly = False
|
||||
Me.txtEmailzurueck._numbersOnlyKommastellen = ""
|
||||
Me.txtEmailzurueck._numbersOnlyTrennzeichen = True
|
||||
Me.txtEmailzurueck._Prozent = False
|
||||
Me.txtEmailzurueck._ShortDateNew = False
|
||||
Me.txtEmailzurueck._ShortDateOnly = False
|
||||
Me.txtEmailzurueck._TimeOnly = False
|
||||
Me.txtEmailzurueck._TimeOnly_Seconds = False
|
||||
Me.txtEmailzurueck._value = Nothing
|
||||
Me.txtEmailzurueck._Waehrung = False
|
||||
Me.txtEmailzurueck._WaehrungZeichen = True
|
||||
Me.txtEmailzurueck.ForeColor = System.Drawing.Color.Black
|
||||
Me.txtEmailzurueck.Location = New System.Drawing.Point(653, 23)
|
||||
Me.txtEmailzurueck.MaxLineLength = -1
|
||||
Me.txtEmailzurueck.MaxLines_Warning = ""
|
||||
Me.txtEmailzurueck.MaxLines_Warning_Label = Nothing
|
||||
Me.txtEmailzurueck.Name = "txtEmailzurueck"
|
||||
Me.txtEmailzurueck.Size = New System.Drawing.Size(310, 20)
|
||||
Me.txtEmailzurueck.TabIndex = 67
|
||||
'
|
||||
'txtAdresse3
|
||||
'
|
||||
Me.txtAdresse3._DateTimeOnly = False
|
||||
Me.txtAdresse3._numbersOnly = False
|
||||
Me.txtAdresse3._numbersOnlyKommastellen = ""
|
||||
Me.txtAdresse3._numbersOnlyTrennzeichen = True
|
||||
Me.txtAdresse3._Prozent = False
|
||||
Me.txtAdresse3._ShortDateNew = False
|
||||
Me.txtAdresse3._ShortDateOnly = False
|
||||
Me.txtAdresse3._TimeOnly = False
|
||||
Me.txtAdresse3._TimeOnly_Seconds = False
|
||||
Me.txtAdresse3._value = Nothing
|
||||
Me.txtAdresse3._Waehrung = False
|
||||
Me.txtAdresse3._WaehrungZeichen = True
|
||||
Me.txtAdresse3.ForeColor = System.Drawing.Color.Black
|
||||
Me.txtAdresse3.Location = New System.Drawing.Point(653, 102)
|
||||
Me.txtAdresse3.MaxLineLength = -1
|
||||
Me.txtAdresse3.MaxLines_Warning = ""
|
||||
Me.txtAdresse3.MaxLines_Warning_Label = Nothing
|
||||
Me.txtAdresse3.Name = "txtAdresse3"
|
||||
Me.txtAdresse3.Size = New System.Drawing.Size(310, 20)
|
||||
Me.txtAdresse3.TabIndex = 37
|
||||
'
|
||||
'cbxLandKz
|
||||
'
|
||||
Me.cbxLandKz._allowedValuesFreiText = Nothing
|
||||
Me.cbxLandKz._allowFreiText = False
|
||||
Me.cbxLandKz._value = ""
|
||||
Me.cbxLandKz.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
|
||||
Me.cbxLandKz.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
|
||||
Me.cbxLandKz.DropDownWidth = 200
|
||||
Me.cbxLandKz.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.cbxLandKz.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.cbxLandKz.FormattingEnabled = True
|
||||
Me.cbxLandKz.Location = New System.Drawing.Point(254, 102)
|
||||
Me.cbxLandKz.Name = "cbxLandKz"
|
||||
Me.cbxLandKz.Size = New System.Drawing.Size(111, 21)
|
||||
Me.cbxLandKz.TabIndex = 36
|
||||
'
|
||||
'cboLand
|
||||
'
|
||||
Me.cboLand._allowedValuesFreiText = Nothing
|
||||
Me.cboLand._allowFreiText = False
|
||||
Me.cboLand._value = ""
|
||||
Me.cboLand.FormattingEnabled = True
|
||||
Me.cboLand.Location = New System.Drawing.Point(6, 80)
|
||||
Me.cboLand.Name = "cboLand"
|
||||
Me.cboLand.Size = New System.Drawing.Size(89, 21)
|
||||
Me.cboLand.TabIndex = 10
|
||||
'
|
||||
'txtAnsprechpartner
|
||||
'
|
||||
Me.txtAnsprechpartner._DateTimeOnly = False
|
||||
Me.txtAnsprechpartner._numbersOnly = False
|
||||
Me.txtAnsprechpartner._numbersOnlyKommastellen = ""
|
||||
Me.txtAnsprechpartner._numbersOnlyTrennzeichen = True
|
||||
Me.txtAnsprechpartner._Prozent = False
|
||||
Me.txtAnsprechpartner._ShortDateNew = False
|
||||
Me.txtAnsprechpartner._ShortDateOnly = False
|
||||
Me.txtAnsprechpartner._TimeOnly = False
|
||||
Me.txtAnsprechpartner._TimeOnly_Seconds = False
|
||||
Me.txtAnsprechpartner._value = Nothing
|
||||
Me.txtAnsprechpartner._Waehrung = False
|
||||
Me.txtAnsprechpartner._WaehrungZeichen = True
|
||||
Me.txtAnsprechpartner.ForeColor = System.Drawing.Color.Black
|
||||
Me.txtAnsprechpartner.Location = New System.Drawing.Point(653, 5)
|
||||
Me.txtAnsprechpartner.MaxLineLength = -1
|
||||
Me.txtAnsprechpartner.MaxLines_Warning = ""
|
||||
Me.txtAnsprechpartner.MaxLines_Warning_Label = Nothing
|
||||
Me.txtAnsprechpartner.Name = "txtAnsprechpartner"
|
||||
Me.txtAnsprechpartner.Size = New System.Drawing.Size(310, 20)
|
||||
Me.txtAnsprechpartner.TabIndex = 3
|
||||
'
|
||||
'txtAdresse2
|
||||
'
|
||||
Me.txtAdresse2._DateTimeOnly = False
|
||||
Me.txtAdresse2._numbersOnly = False
|
||||
Me.txtAdresse2._numbersOnlyKommastellen = ""
|
||||
Me.txtAdresse2._numbersOnlyTrennzeichen = True
|
||||
Me.txtAdresse2._Prozent = False
|
||||
Me.txtAdresse2._ShortDateNew = False
|
||||
Me.txtAdresse2._ShortDateOnly = False
|
||||
Me.txtAdresse2._TimeOnly = False
|
||||
Me.txtAdresse2._TimeOnly_Seconds = False
|
||||
Me.txtAdresse2._value = Nothing
|
||||
Me.txtAdresse2._Waehrung = False
|
||||
Me.txtAdresse2._WaehrungZeichen = True
|
||||
Me.txtAdresse2.ForeColor = System.Drawing.Color.Black
|
||||
Me.txtAdresse2.Location = New System.Drawing.Point(365, 102)
|
||||
Me.txtAdresse2.MaxLineLength = -1
|
||||
Me.txtAdresse2.MaxLines_Warning = ""
|
||||
Me.txtAdresse2.MaxLines_Warning_Label = Nothing
|
||||
Me.txtAdresse2.Name = "txtAdresse2"
|
||||
Me.txtAdresse2.Size = New System.Drawing.Size(288, 20)
|
||||
Me.txtAdresse2.TabIndex = 13
|
||||
'
|
||||
'txtAdresse1
|
||||
'
|
||||
Me.txtAdresse1._DateTimeOnly = False
|
||||
Me.txtAdresse1._numbersOnly = False
|
||||
Me.txtAdresse1._numbersOnlyKommastellen = ""
|
||||
Me.txtAdresse1._numbersOnlyTrennzeichen = True
|
||||
Me.txtAdresse1._Prozent = False
|
||||
Me.txtAdresse1._ShortDateNew = False
|
||||
Me.txtAdresse1._ShortDateOnly = False
|
||||
Me.txtAdresse1._TimeOnly = False
|
||||
Me.txtAdresse1._TimeOnly_Seconds = False
|
||||
Me.txtAdresse1._value = Nothing
|
||||
Me.txtAdresse1._Waehrung = False
|
||||
Me.txtAdresse1._WaehrungZeichen = True
|
||||
Me.txtAdresse1.ForeColor = System.Drawing.Color.Black
|
||||
Me.txtAdresse1.Location = New System.Drawing.Point(254, 83)
|
||||
Me.txtAdresse1.MaxLineLength = -1
|
||||
Me.txtAdresse1.MaxLines_Warning = ""
|
||||
Me.txtAdresse1.MaxLines_Warning_Label = Nothing
|
||||
Me.txtAdresse1.Name = "txtAdresse1"
|
||||
Me.txtAdresse1.Size = New System.Drawing.Size(709, 20)
|
||||
Me.txtAdresse1.TabIndex = 12
|
||||
'
|
||||
'txtFirma
|
||||
'
|
||||
Me.txtFirma._DateTimeOnly = False
|
||||
Me.txtFirma._numbersOnly = False
|
||||
Me.txtFirma._numbersOnlyKommastellen = ""
|
||||
Me.txtFirma._numbersOnlyTrennzeichen = True
|
||||
Me.txtFirma._Prozent = False
|
||||
Me.txtFirma._ShortDateNew = False
|
||||
Me.txtFirma._ShortDateOnly = False
|
||||
Me.txtFirma._TimeOnly = False
|
||||
Me.txtFirma._TimeOnly_Seconds = False
|
||||
Me.txtFirma._value = Nothing
|
||||
Me.txtFirma._Waehrung = False
|
||||
Me.txtFirma._WaehrungZeichen = True
|
||||
Me.txtFirma.ForeColor = System.Drawing.Color.Black
|
||||
Me.txtFirma.Location = New System.Drawing.Point(254, 64)
|
||||
Me.txtFirma.MaxLineLength = -1
|
||||
Me.txtFirma.MaxLines_Warning = ""
|
||||
Me.txtFirma.MaxLines_Warning_Label = Nothing
|
||||
Me.txtFirma.Name = "txtFirma"
|
||||
Me.txtFirma.Size = New System.Drawing.Size(684, 20)
|
||||
Me.txtFirma.TabIndex = 7
|
||||
'
|
||||
'txtGruendungsdat
|
||||
'
|
||||
Me.txtGruendungsdat._DateTimeOnly = False
|
||||
Me.txtGruendungsdat._numbersOnly = False
|
||||
Me.txtGruendungsdat._numbersOnlyKommastellen = ""
|
||||
Me.txtGruendungsdat._numbersOnlyTrennzeichen = True
|
||||
Me.txtGruendungsdat._Prozent = False
|
||||
Me.txtGruendungsdat._ShortDateNew = True
|
||||
Me.txtGruendungsdat._ShortDateOnly = False
|
||||
Me.txtGruendungsdat._TimeOnly = False
|
||||
Me.txtGruendungsdat._TimeOnly_Seconds = False
|
||||
Me.txtGruendungsdat._value = ""
|
||||
Me.txtGruendungsdat._Waehrung = False
|
||||
Me.txtGruendungsdat._WaehrungZeichen = False
|
||||
Me.txtGruendungsdat.ForeColor = System.Drawing.Color.Black
|
||||
Me.txtGruendungsdat.Location = New System.Drawing.Point(255, 188)
|
||||
Me.txtGruendungsdat.MaxLength = 10
|
||||
Me.txtGruendungsdat.MaxLineLength = -1
|
||||
Me.txtGruendungsdat.MaxLines_Warning = ""
|
||||
Me.txtGruendungsdat.MaxLines_Warning_Label = Nothing
|
||||
Me.txtGruendungsdat.Name = "txtGruendungsdat"
|
||||
Me.txtGruendungsdat.Size = New System.Drawing.Size(93, 20)
|
||||
Me.txtGruendungsdat.TabIndex = 136
|
||||
'
|
||||
'Label2
|
||||
'
|
||||
Me.Label2.AutoSize = True
|
||||
Me.Label2.Location = New System.Drawing.Point(158, 190)
|
||||
Me.Label2.Name = "Label2"
|
||||
Me.Label2.Size = New System.Drawing.Size(83, 13)
|
||||
Me.Label2.TabIndex = 135
|
||||
Me.Label2.Text = "Gründungsdat..:"
|
||||
'
|
||||
'cbxKapitalWahrung
|
||||
'
|
||||
Me.cbxKapitalWahrung._allowedValuesFreiText = Nothing
|
||||
Me.cbxKapitalWahrung._allowFreiText = False
|
||||
Me.cbxKapitalWahrung._value = ""
|
||||
Me.cbxKapitalWahrung.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
|
||||
Me.cbxKapitalWahrung.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
|
||||
Me.cbxKapitalWahrung.DropDownWidth = 150
|
||||
Me.cbxKapitalWahrung.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.cbxKapitalWahrung.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.cbxKapitalWahrung.FormattingEnabled = True
|
||||
Me.cbxKapitalWahrung.Location = New System.Drawing.Point(518, 187)
|
||||
Me.cbxKapitalWahrung.Name = "cbxKapitalWahrung"
|
||||
Me.cbxKapitalWahrung.Size = New System.Drawing.Size(47, 21)
|
||||
Me.cbxKapitalWahrung.TabIndex = 134
|
||||
'
|
||||
'txtKapital
|
||||
'
|
||||
Me.txtKapital._DateTimeOnly = False
|
||||
Me.txtKapital._numbersOnly = False
|
||||
Me.txtKapital._numbersOnlyKommastellen = ""
|
||||
Me.txtKapital._numbersOnlyTrennzeichen = True
|
||||
Me.txtKapital._Prozent = False
|
||||
Me.txtKapital._ShortDateNew = False
|
||||
Me.txtKapital._ShortDateOnly = False
|
||||
Me.txtKapital._TimeOnly = False
|
||||
Me.txtKapital._TimeOnly_Seconds = False
|
||||
Me.txtKapital._value = Nothing
|
||||
Me.txtKapital._Waehrung = True
|
||||
Me.txtKapital._WaehrungZeichen = True
|
||||
Me.txtKapital.ForeColor = System.Drawing.Color.Black
|
||||
Me.txtKapital.Location = New System.Drawing.Point(402, 188)
|
||||
Me.txtKapital.MaxLineLength = -1
|
||||
Me.txtKapital.MaxLines_Warning = ""
|
||||
Me.txtKapital.MaxLines_Warning_Label = Nothing
|
||||
Me.txtKapital.Name = "txtKapital"
|
||||
Me.txtKapital.Size = New System.Drawing.Size(119, 20)
|
||||
Me.txtKapital.TabIndex = 133
|
||||
'
|
||||
'Label3
|
||||
'
|
||||
Me.Label3.AutoSize = True
|
||||
Me.Label3.Location = New System.Drawing.Point(354, 194)
|
||||
Me.Label3.Name = "Label3"
|
||||
Me.Label3.Size = New System.Drawing.Size(42, 13)
|
||||
Me.Label3.TabIndex = 132
|
||||
Me.Label3.Text = "Kapital:"
|
||||
'
|
||||
'txtEmail
|
||||
'
|
||||
Me.txtEmail._DateTimeOnly = False
|
||||
Me.txtEmail._numbersOnly = False
|
||||
Me.txtEmail._numbersOnlyKommastellen = ""
|
||||
Me.txtEmail._numbersOnlyTrennzeichen = True
|
||||
Me.txtEmail._Prozent = False
|
||||
Me.txtEmail._ShortDateNew = False
|
||||
Me.txtEmail._ShortDateOnly = False
|
||||
Me.txtEmail._TimeOnly = False
|
||||
Me.txtEmail._TimeOnly_Seconds = False
|
||||
Me.txtEmail._value = Nothing
|
||||
Me.txtEmail._Waehrung = False
|
||||
Me.txtEmail._WaehrungZeichen = True
|
||||
Me.txtEmail.ForeColor = System.Drawing.Color.Black
|
||||
Me.txtEmail.Location = New System.Drawing.Point(255, 169)
|
||||
Me.txtEmail.MaxLineLength = -1
|
||||
Me.txtEmail.MaxLines_Warning = ""
|
||||
Me.txtEmail.MaxLines_Warning_Label = Nothing
|
||||
Me.txtEmail.Name = "txtEmail"
|
||||
Me.txtEmail.Size = New System.Drawing.Size(310, 20)
|
||||
Me.txtEmail.TabIndex = 131
|
||||
'
|
||||
'Label6
|
||||
'
|
||||
Me.Label6.AutoSize = True
|
||||
Me.Label6.Location = New System.Drawing.Point(158, 172)
|
||||
Me.Label6.Name = "Label6"
|
||||
Me.Label6.Size = New System.Drawing.Size(39, 13)
|
||||
Me.Label6.TabIndex = 130
|
||||
Me.Label6.Text = "E-Mail:"
|
||||
'
|
||||
'txtTel
|
||||
'
|
||||
Me.txtTel._DateTimeOnly = False
|
||||
Me.txtTel._numbersOnly = False
|
||||
Me.txtTel._numbersOnlyKommastellen = ""
|
||||
Me.txtTel._numbersOnlyTrennzeichen = True
|
||||
Me.txtTel._Prozent = False
|
||||
Me.txtTel._ShortDateNew = False
|
||||
Me.txtTel._ShortDateOnly = False
|
||||
Me.txtTel._TimeOnly = False
|
||||
Me.txtTel._TimeOnly_Seconds = False
|
||||
Me.txtTel._value = Nothing
|
||||
Me.txtTel._Waehrung = False
|
||||
Me.txtTel._WaehrungZeichen = True
|
||||
Me.txtTel.ForeColor = System.Drawing.Color.Black
|
||||
Me.txtTel.Location = New System.Drawing.Point(255, 150)
|
||||
Me.txtTel.MaxLineLength = -1
|
||||
Me.txtTel.MaxLines_Warning = ""
|
||||
Me.txtTel.MaxLines_Warning_Label = Nothing
|
||||
Me.txtTel.Name = "txtTel"
|
||||
Me.txtTel.Size = New System.Drawing.Size(310, 20)
|
||||
Me.txtTel.TabIndex = 129
|
||||
'
|
||||
'Label5
|
||||
'
|
||||
Me.Label5.AutoSize = True
|
||||
Me.Label5.Location = New System.Drawing.Point(158, 153)
|
||||
Me.Label5.Name = "Label5"
|
||||
Me.Label5.Size = New System.Drawing.Size(28, 13)
|
||||
Me.Label5.TabIndex = 128
|
||||
Me.Label5.Text = "Tel.:"
|
||||
'
|
||||
'txtUid
|
||||
'
|
||||
Me.txtUid._DateTimeOnly = False
|
||||
Me.txtUid._numbersOnly = False
|
||||
Me.txtUid._numbersOnlyKommastellen = ""
|
||||
Me.txtUid._numbersOnlyTrennzeichen = True
|
||||
Me.txtUid._Prozent = False
|
||||
Me.txtUid._ShortDateNew = False
|
||||
Me.txtUid._ShortDateOnly = False
|
||||
Me.txtUid._TimeOnly = False
|
||||
Me.txtUid._TimeOnly_Seconds = False
|
||||
Me.txtUid._value = Nothing
|
||||
Me.txtUid._Waehrung = False
|
||||
Me.txtUid._WaehrungZeichen = True
|
||||
Me.txtUid.ForeColor = System.Drawing.Color.Black
|
||||
Me.txtUid.Location = New System.Drawing.Point(255, 131)
|
||||
Me.txtUid.MaxLineLength = -1
|
||||
Me.txtUid.MaxLines_Warning = ""
|
||||
Me.txtUid.MaxLines_Warning_Label = Nothing
|
||||
Me.txtUid.Name = "txtUid"
|
||||
Me.txtUid.Size = New System.Drawing.Size(310, 20)
|
||||
Me.txtUid.TabIndex = 127
|
||||
'
|
||||
'Label18
|
||||
'
|
||||
Me.Label18.AutoSize = True
|
||||
Me.Label18.Location = New System.Drawing.Point(158, 134)
|
||||
Me.Label18.Name = "Label18"
|
||||
Me.Label18.Size = New System.Drawing.Size(43, 13)
|
||||
Me.Label18.TabIndex = 126
|
||||
Me.Label18.Text = "UID-Nr:"
|
||||
'
|
||||
'usrcntlVollmacht_MDM_NICHT_EU
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.BackColor = System.Drawing.Color.WhiteSmoke
|
||||
Me.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
||||
Me.Controls.Add(Me.txtGruendungsdat)
|
||||
Me.Controls.Add(Me.Label2)
|
||||
Me.Controls.Add(Me.cbxKapitalWahrung)
|
||||
Me.Controls.Add(Me.txtKapital)
|
||||
Me.Controls.Add(Me.Label3)
|
||||
Me.Controls.Add(Me.txtEmail)
|
||||
Me.Controls.Add(Me.Label6)
|
||||
Me.Controls.Add(Me.txtTel)
|
||||
Me.Controls.Add(Me.Label5)
|
||||
Me.Controls.Add(Me.txtUid)
|
||||
Me.Controls.Add(Me.Label18)
|
||||
Me.Controls.Add(Me.txtFax)
|
||||
Me.Controls.Add(Me.txtSteuerNr)
|
||||
Me.Controls.Add(Me.Label11)
|
||||
Me.Controls.Add(Me.Label4)
|
||||
Me.Controls.Add(Me.txtHRNr)
|
||||
Me.Controls.Add(Me.Label17)
|
||||
Me.Controls.Add(Me.Label16)
|
||||
Me.Controls.Add(Me.txt_GF_Ort)
|
||||
Me.Controls.Add(Me.cbx_GF_Land)
|
||||
Me.Controls.Add(Me.Label15)
|
||||
Me.Controls.Add(Me.txt_GF_PLZ)
|
||||
Me.Controls.Add(Me.txt_GF_Adresse)
|
||||
Me.Controls.Add(Me.Label10)
|
||||
Me.Controls.Add(Me.txt_GF_Geb)
|
||||
Me.Controls.Add(Me.lblGFGebDat)
|
||||
Me.Controls.Add(Me.txt_GF_Name)
|
||||
Me.Controls.Add(Me.Label12)
|
||||
Me.Controls.Add(Me.datDatum)
|
||||
Me.Controls.Add(Me.Label13)
|
||||
Me.Controls.Add(Me.txtOrt)
|
||||
Me.Controls.Add(Me.Label7)
|
||||
Me.Controls.Add(Me.txtEmailzurueck)
|
||||
Me.Controls.Add(Me.Label14)
|
||||
Me.Controls.Add(Me.txtAdresse3)
|
||||
Me.Controls.Add(Me.cbxLandKz)
|
||||
Me.Controls.Add(Me.Label9)
|
||||
Me.Controls.Add(Me.lblLand)
|
||||
Me.Controls.Add(Me.cboLand)
|
||||
Me.Controls.Add(Me.btnDown)
|
||||
Me.Controls.Add(Me.btnUp)
|
||||
Me.Controls.Add(Me.btnDel)
|
||||
Me.Controls.Add(Me.pic)
|
||||
Me.Controls.Add(Me.lblVollmacht)
|
||||
Me.Controls.Add(Me.txtAnsprechpartner)
|
||||
Me.Controls.Add(Me.Label8)
|
||||
Me.Controls.Add(Me.btn)
|
||||
Me.Controls.Add(Me.txtAdresse2)
|
||||
Me.Controls.Add(Me.txtAdresse1)
|
||||
Me.Controls.Add(Me.Label1)
|
||||
Me.Controls.Add(Me.txtFirma)
|
||||
Me.Controls.Add(Me.lbl)
|
||||
Me.Name = "usrcntlVollmacht_MDM_NICHT_EU"
|
||||
Me.Size = New System.Drawing.Size(1000, 339)
|
||||
CType(Me.pic, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ResumeLayout(False)
|
||||
Me.PerformLayout()
|
||||
|
||||
End Sub
|
||||
Friend WithEvents lbl As System.Windows.Forms.Label
|
||||
Friend WithEvents txtFirma As VERAG_PROG_ALLGEMEIN.MyTextBox
|
||||
Friend WithEvents txtAdresse1 As VERAG_PROG_ALLGEMEIN.MyTextBox
|
||||
Friend WithEvents Label1 As System.Windows.Forms.Label
|
||||
Friend WithEvents txtAdresse2 As VERAG_PROG_ALLGEMEIN.MyTextBox
|
||||
Friend WithEvents btn As System.Windows.Forms.Button
|
||||
Friend WithEvents txtAnsprechpartner As VERAG_PROG_ALLGEMEIN.MyTextBox
|
||||
Friend WithEvents Label8 As System.Windows.Forms.Label
|
||||
Friend WithEvents pic As System.Windows.Forms.PictureBox
|
||||
Friend WithEvents lblVollmacht As System.Windows.Forms.Label
|
||||
Friend WithEvents btnDown As System.Windows.Forms.Button
|
||||
Friend WithEvents btnUp As System.Windows.Forms.Button
|
||||
Friend WithEvents btnDel As System.Windows.Forms.Button
|
||||
Friend WithEvents lblLand As System.Windows.Forms.Label
|
||||
Friend WithEvents cboLand As VERAG_PROG_ALLGEMEIN.MyComboBox
|
||||
Friend WithEvents cbxLandKz As VERAG_PROG_ALLGEMEIN.MyComboBox
|
||||
Friend WithEvents Label9 As Label
|
||||
Friend WithEvents txtAdresse3 As VERAG_PROG_ALLGEMEIN.MyTextBox
|
||||
Friend WithEvents txtEmailzurueck As VERAG_PROG_ALLGEMEIN.MyTextBox
|
||||
Friend WithEvents Label14 As Label
|
||||
Friend WithEvents txtFax As VERAG_PROG_ALLGEMEIN.MyTextBox
|
||||
Friend WithEvents txtSteuerNr As VERAG_PROG_ALLGEMEIN.MyTextBox
|
||||
Friend WithEvents Label11 As Label
|
||||
Friend WithEvents Label4 As Label
|
||||
Friend WithEvents txtHRNr As VERAG_PROG_ALLGEMEIN.MyTextBox
|
||||
Friend WithEvents Label17 As Label
|
||||
Friend WithEvents Label16 As Label
|
||||
Friend WithEvents txt_GF_Ort As VERAG_PROG_ALLGEMEIN.MyTextBox
|
||||
Friend WithEvents cbx_GF_Land As VERAG_PROG_ALLGEMEIN.MyComboBox
|
||||
Friend WithEvents Label15 As Label
|
||||
Friend WithEvents txt_GF_PLZ As VERAG_PROG_ALLGEMEIN.MyTextBox
|
||||
Friend WithEvents txt_GF_Adresse As VERAG_PROG_ALLGEMEIN.MyTextBox
|
||||
Friend WithEvents Label10 As Label
|
||||
Friend WithEvents txt_GF_Geb As VERAG_PROG_ALLGEMEIN.MyTextBox
|
||||
Friend WithEvents lblGFGebDat As Label
|
||||
Friend WithEvents txt_GF_Name As VERAG_PROG_ALLGEMEIN.MyTextBox
|
||||
Friend WithEvents Label12 As Label
|
||||
Friend WithEvents datDatum As DateTimePicker
|
||||
Friend WithEvents Label13 As Label
|
||||
Friend WithEvents txtOrt As VERAG_PROG_ALLGEMEIN.MyTextBox
|
||||
Friend WithEvents Label7 As Label
|
||||
Friend WithEvents txtGruendungsdat As VERAG_PROG_ALLGEMEIN.MyTextBox
|
||||
Friend WithEvents Label2 As Label
|
||||
Friend WithEvents cbxKapitalWahrung As VERAG_PROG_ALLGEMEIN.MyComboBox
|
||||
Friend WithEvents txtKapital As VERAG_PROG_ALLGEMEIN.MyTextBox
|
||||
Friend WithEvents Label3 As Label
|
||||
Friend WithEvents txtEmail As VERAG_PROG_ALLGEMEIN.MyTextBox
|
||||
Friend WithEvents Label6 As Label
|
||||
Friend WithEvents txtTel As VERAG_PROG_ALLGEMEIN.MyTextBox
|
||||
Friend WithEvents Label5 As Label
|
||||
Friend WithEvents txtUid As VERAG_PROG_ALLGEMEIN.MyTextBox
|
||||
Friend WithEvents Label18 As Label
|
||||
End Class
|
||||
@@ -0,0 +1,120 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 2.0
|
||||
|
||||
The primary goals of this format is to allow a simple XML format
|
||||
that is mostly human readable. The generation and parsing of the
|
||||
various data types are done through the TypeConverter classes
|
||||
associated with the data types.
|
||||
|
||||
Example:
|
||||
|
||||
... ado.net/XML headers & schema ...
|
||||
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||
<resheader name="version">2.0</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||
<comment>This is a comment</comment>
|
||||
</data>
|
||||
|
||||
There are any number of "resheader" rows that contain simple
|
||||
name/value pairs.
|
||||
|
||||
Each data row contains a name, and value. The row also contains a
|
||||
type or mimetype. Type corresponds to a .NET class that support
|
||||
text/value conversion through the TypeConverter architecture.
|
||||
Classes that don't support this are serialized and stored with the
|
||||
mimetype set.
|
||||
|
||||
The mimetype is used for serialized objects, and tells the
|
||||
ResXResourceReader how to depersist the object. This is currently not
|
||||
extensible. For a given mimetype the value must be set accordingly:
|
||||
|
||||
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||
that the ResXResourceWriter will generate, however the reader can
|
||||
read any of the formats listed below.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.binary.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.soap.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||
value : The object must be serialized into a byte array
|
||||
: using a System.ComponentModel.TypeConverter
|
||||
: and then encoded with base64 encoding.
|
||||
-->
|
||||
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
|
||||
<xsd:element name="root" msdata:IsDataSet="true">
|
||||
<xsd:complexType>
|
||||
<xsd:choice maxOccurs="unbounded">
|
||||
<xsd:element name="metadata">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" use="required" type="xsd:string" />
|
||||
<xsd:attribute name="type" type="xsd:string" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="assembly">
|
||||
<xsd:complexType>
|
||||
<xsd:attribute name="alias" type="xsd:string" />
|
||||
<xsd:attribute name="name" type="xsd:string" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="data">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
|
||||
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="resheader">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:choice>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:schema>
|
||||
<resheader name="resmimetype">
|
||||
<value>text/microsoft-resx</value>
|
||||
</resheader>
|
||||
<resheader name="version">
|
||||
<value>2.0</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
</root>
|
||||
@@ -1,4 +1,6 @@
|
||||
Public Class usrcntlVollmacht_MDM_Word
|
||||
Imports VERAG_PROG_ALLGEMEIN
|
||||
|
||||
Public Class usrcntlVollmacht_MDM_NICHT_EU
|
||||
Implements FormualrInterface
|
||||
|
||||
Public Event CHANGED(name, value)
|
||||
@@ -46,7 +48,30 @@
|
||||
Public Sub initKdNR(KdNR)
|
||||
Me.KdNR = KdNR
|
||||
Dim KUNDE As New VERAG_PROG_ALLGEMEIN.cKunde(KdNR)
|
||||
Dim KUNDE_ERW As New VERAG_PROG_ALLGEMEIN.cKundenErweitert(KdNR)
|
||||
Dim ADRESSE As New VERAG_PROG_ALLGEMEIN.cAdressen(KdNR)
|
||||
Dim KK_List As New VERAG_PROG_ALLGEMEIN.cKundenKontakteList(KdNR)
|
||||
|
||||
Dim GF As cKundenKontakte = KK_List.LIST.Find(Function(c) c.kkd_kkaId = 13 And c.kkd_KundenNr = KdNR)
|
||||
If GF IsNot Nothing Then
|
||||
txt_GF_Name.Text = GF.kkd_AnsprechpartnerAnrede & " " & IIf(GF.kkd_AnsprechpartnerNachname <> "", GF.kkd_AnsprechpartnerNachname & " ", "") & IIf(GF.kkd_AnsprechpartnerVorname <> "", GF.kkd_AnsprechpartnerVorname & " ", "")
|
||||
|
||||
If (GF.kkd_GebDatum IsNot Nothing AndAlso IsDate(GF.kkd_GebDatum)) Then
|
||||
txt_GF_Geb.Text = CDate(GF.kkd_GebDatum).ToShortDateString
|
||||
End If
|
||||
|
||||
txt_GF_Adresse.Text = If(GF.kkd_Adresse, "")
|
||||
txt_GF_Ort.Text = If(GF.kkd_Ort, "")
|
||||
txt_GF_PLZ.Text = If(GF.kkd_PLZ, "")
|
||||
cbx_GF_Land.changeItem(GF.kkd_Land)
|
||||
Else
|
||||
txt_GF_Name.Text = ""
|
||||
txt_GF_Geb.Text = ""
|
||||
txt_GF_Adresse.Text = ""
|
||||
txt_GF_Ort.Text = ""
|
||||
txt_GF_PLZ.Text = ""
|
||||
cbx_GF_Land.changeItem("")
|
||||
End If
|
||||
|
||||
txtFirma.Text = If(ADRESSE.Name_1, "") & If(If(ADRESSE.Name_2, "") <> "", " " & ADRESSE.Name_2, "")
|
||||
txtAdresse1.Text = If(ADRESSE.Straße, "")
|
||||
@@ -54,12 +79,15 @@
|
||||
txtAdresse2.Text = If(ADRESSE.PLZ, "").ToString.Trim
|
||||
txtAdresse3.Text = If(ADRESSE.Ort, "").ToString.Trim
|
||||
txtUid.Text = If(ADRESSE.UstIdKz, "") & If(ADRESSE.UstIdNr, "")
|
||||
txtEori.Text = If(KUNDE.EORITIN, "")
|
||||
txtTel.Text = If(ADRESSE.Telefon, "")
|
||||
txtFax.Text = If(ADRESSE.Telefax, "")
|
||||
txtSteuerNr.Text = If(ADRESSE.Steuernummer, "")
|
||||
txtEmail.Text = If(ADRESSE.E_Mail, "")
|
||||
txtAnsprechpartner.Text = (If(ADRESSE.Anrede, "") & " " & If(ADRESSE.Ansprechpartner, "")).trim
|
||||
cbxKapitalWahrung.changeItem(KUNDE_ERW.kde_KapitalWaehrung)
|
||||
txtKapital.Text = If(KUNDE_ERW.kde_Kapital, "")
|
||||
txtHRNr.Text = If(KUNDE_ERW.kde_HRNr, "")
|
||||
txtGruendungsdat.Text = If(KUNDE_ERW.kde_GruendungsDatum, "")
|
||||
|
||||
End Sub
|
||||
|
||||
@@ -97,22 +125,13 @@
|
||||
'cboLand.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Spain", "ES"))
|
||||
cboLand.changeItem("AT")
|
||||
|
||||
cbxSprache.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("EN", "EN"))
|
||||
cbxSprache.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DE", "DE"))
|
||||
cboLand.changeItem("DE")
|
||||
|
||||
cbxLandKz.fillWithSQL("select distinct landkz, Währungstabelle.Land from Währungstabelle where landkz is not null order by LandKz", , "FMZOLL", True)
|
||||
|
||||
cbxVMArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("EU", "EU"))
|
||||
cbxVMArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("RO", "RO"))
|
||||
'cbxVMArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("TR", "TR"))
|
||||
'cbxVMArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("YU", "YU"))
|
||||
cbx_GF_Land.Items.AddRange(cbxLandKz.Items.Cast(Of VERAG_PROG_ALLGEMEIN.MyListItem).ToArray())
|
||||
|
||||
txtEmailzurueck.Text = "juricevic@verag.ag"
|
||||
txtOrt.Text = "Suben"
|
||||
|
||||
cbxVMArt.changeItem("EU")
|
||||
|
||||
If KdNR > 0 Then initKdNR(KdNR)
|
||||
End Sub
|
||||
|
||||
@@ -130,18 +149,4 @@
|
||||
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
|
||||
End Sub
|
||||
|
||||
Private Sub cbxVMArt_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cbxVMArt.SelectedIndexChanged
|
||||
If cbxVMArt._value = "RO" Then
|
||||
cboLand.Visible = False
|
||||
lblLand.Visible = False
|
||||
cbxSprache.Visible = True
|
||||
lblSprache.Visible = True
|
||||
Else
|
||||
cboLand.Visible = True
|
||||
lblLand.Visible = True
|
||||
cbxSprache.Visible = False
|
||||
lblSprache.Visible = False
|
||||
|
||||
End If
|
||||
End Sub
|
||||
End Class
|
||||
@@ -8,6 +8,7 @@ Imports System.Reflection
|
||||
Imports System.Text.RegularExpressions
|
||||
Imports System.Windows.Documents
|
||||
Imports VERAG_PROG_ALLGEMEIN
|
||||
Imports sun.jdbc
|
||||
|
||||
Public Class frmFormulare
|
||||
Dim isSingleForm = False
|
||||
@@ -256,12 +257,10 @@ Public Class frmFormulare
|
||||
|
||||
Case Else
|
||||
If VERAG_PROG_ALLGEMEIN.cAllgemein.PROGID = "7" Then 'SDL
|
||||
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Vollmacht", FormularManagerArten.MDM_Vollmacht_PDF))
|
||||
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Vollmacht EU", FormularManagerArten.MDM_Vollmacht_Word))
|
||||
'MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("EU Vollmacht", FormularManagerArten.MDM_Vollmacht))
|
||||
'MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("RO Vollmacht", FormularManagerArten.MDM_Vollmacht))
|
||||
'MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("TR Vollmacht", FormularManagerArten.MDM_Vollmacht))
|
||||
'MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("YU Vollmacht", FormularManagerArten.MDM_Vollmacht))
|
||||
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Vollmacht BHI", FormularManagerArten.MDM_Vollmacht_BHI))
|
||||
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Vollmacht EU", FormularManagerArten.MDM_Vollmacht_EU))
|
||||
'MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Vollmacht NICHT EU", FormularManagerArten.MDM_Vollmacht_NICHT_EU))
|
||||
|
||||
Else
|
||||
|
||||
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DE Vollmacht", FormularManagerArten.DE_Vollmacht))
|
||||
@@ -390,8 +389,8 @@ Public Class frmFormulare
|
||||
MyFlowLayoutPanel1.Controls.Add(c)
|
||||
End If
|
||||
|
||||
Case FormularManagerArten.MDM_Vollmacht_PDF
|
||||
Dim c As New usrcntlVollmacht_MDM_PDF
|
||||
Case FormularManagerArten.MDM_Vollmacht_BHI
|
||||
Dim c As New usrcntlVollmacht_MDM_BHI
|
||||
If ControlExists_addOK(c.GetType.ToString) Then
|
||||
c.Width = MyFlowLayoutPanel1.Width - 6
|
||||
c.KdNR = KdNr
|
||||
@@ -403,8 +402,8 @@ Public Class frmFormulare
|
||||
MyFlowLayoutPanel1.Controls.Add(c)
|
||||
End If
|
||||
|
||||
Case FormularManagerArten.MDM_Vollmacht_Word
|
||||
Dim c As New usrcntlVollmacht_MDM_Word
|
||||
Case FormularManagerArten.MDM_Vollmacht_EU
|
||||
Dim c As New usrcntlVollmacht_MDM_EU
|
||||
If ControlExists_addOK(c.GetType.ToString) Then
|
||||
c.Width = MyFlowLayoutPanel1.Width - 6
|
||||
c.KdNR = KdNr
|
||||
@@ -415,6 +414,20 @@ Public Class frmFormulare
|
||||
AddHandler c.MOVE_DOWN, AddressOf ControlMoveDown
|
||||
MyFlowLayoutPanel1.Controls.Add(c)
|
||||
End If
|
||||
|
||||
Case FormularManagerArten.MDM_Vollmacht_NICHT_EU
|
||||
Dim c As New usrcntlVollmacht_MDM_NICHT_EU
|
||||
If ControlExists_addOK(c.GetType.ToString) Then
|
||||
c.Width = MyFlowLayoutPanel1.Width - 6
|
||||
c.KdNR = KdNr
|
||||
AddHandler c.CHANGED, AddressOf ValueChanged
|
||||
AddHandler c.KDNR_CHANGED, AddressOf KDNR_CHANGED
|
||||
AddHandler c.DELETE, AddressOf ControlDELETE
|
||||
AddHandler c.MOVE_UP, AddressOf ControlMoveUp
|
||||
AddHandler c.MOVE_DOWN, AddressOf ControlMoveDown
|
||||
MyFlowLayoutPanel1.Controls.Add(c)
|
||||
End If
|
||||
|
||||
Case FormularManagerArten.DE_Fiskal
|
||||
Dim c As New usrcntlVollmacht_DE_Fiskal
|
||||
If ControlExists_addOK(c.GetType.ToString) Then
|
||||
@@ -1459,11 +1472,14 @@ Public Class FormularManagerNEU
|
||||
Case GetType(usrcntlEinfuhrverbot).ToString
|
||||
retStr = FormularManagerNEU.Einfuhrverbot(c)
|
||||
|
||||
Case GetType(usrcntlVollmacht_MDM_PDF).ToString
|
||||
retStr = FormularManagerNEU.VM_MDM_PDF(c)
|
||||
Case GetType(usrcntlVollmacht_MDM_BHI).ToString
|
||||
retStr = FormularManagerNEU.VM_MDM_BHI(c)
|
||||
|
||||
Case GetType(usrcntlVollmacht_MDM_Word).ToString
|
||||
striList = FormularManagerNEU.VM_MDM_WORD(c, printReportElsePdf, printerName, openWord)
|
||||
Case GetType(usrcntlVollmacht_MDM_EU).ToString
|
||||
striList = FormularManagerNEU.VM_MDM_EU(c, printReportElsePdf, printerName, openWord)
|
||||
|
||||
Case GetType(usrcntlVollmacht_MDM_NICHT_EU).ToString
|
||||
striList = FormularManagerNEU.VM_MDM_NICHT_EU(c, printReportElsePdf, printerName, openWord)
|
||||
|
||||
End Select
|
||||
If retStr <> "" Then
|
||||
@@ -1609,26 +1625,17 @@ Public Class FormularManagerNEU
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
Shared Function VM_MDM_PDF(usrCntl As usrcntlVollmacht_MDM_PDF) As String
|
||||
Shared Function VM_MDM_BHI(usrCntl As usrcntlVollmacht_MDM_BHI) As String
|
||||
|
||||
'aktuell nur als PDF
|
||||
|
||||
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.MyListItem)
|
||||
|
||||
Dim fm As New VERAG_PROG_ALLGEMEIN.cFormularManager
|
||||
|
||||
list = fm.getPDFFields_Editierbar("DOKUMENTE", "VORLAGEN", "VOLLMACHTEN", "MDM", "", "VM_BHI_" & usrCntl.cboLand._value)
|
||||
|
||||
|
||||
Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues)
|
||||
|
||||
'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnsprechpartner.Text, 128, 36, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFirma.Text, 70, 90, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse1.Text & " " & usrCntl.txtAdresse2.Text & " " & usrCntl.txtAdresse3.Text, 70, 98, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.cbxLandKz.Text, 70, 105, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtUid.Text, 70, 115, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(Today(), 30, 197, 55, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(Today(), 122, 197, 70, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
|
||||
Dim listItem2 As New List(Of VERAG_PROG_ALLGEMEIN.MyListItem)
|
||||
|
||||
For Each item In list
|
||||
|
||||
Select Case item.Text.ToLower().Trim()
|
||||
@@ -1639,11 +1646,13 @@ Public Class FormularManagerNEU
|
||||
Case "country" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.cbxLandKz.Text))
|
||||
Case "vatno" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txtUid.Text))
|
||||
Case "vatnr" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txtUid.Text))
|
||||
Case "surname_firstname" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txtHerrFrau.Text))
|
||||
Case "surname" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txtHerrFrau.Text))
|
||||
Case "firstname" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txtHerrFrau.Text))
|
||||
Case "surname_firstname" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txt_GF_Name.Text))
|
||||
Case "surname" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txt_GF_Name.Text))
|
||||
Case "firstname" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txt_GF_Name.Text))
|
||||
Case "place" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txtOrt.Text))
|
||||
Case "place_date" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txtOrt.Text & " " & usrCntl.datDatum.ToString("ddMMyyyy")))
|
||||
Case "capital" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txtKapital.Text & " " & usrCntl.cbxKapitalWahrung._value))
|
||||
Case "crnumber" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txtHRNr.Text))
|
||||
|
||||
End Select
|
||||
|
||||
@@ -1655,28 +1664,21 @@ Public Class FormularManagerNEU
|
||||
'place
|
||||
'c_mailcontact
|
||||
|
||||
|
||||
Next
|
||||
|
||||
Select Case usrCntl.cbxVMArt._value
|
||||
Case "BHI" : Return fm.fillPDF_Editierbar("DOKUMENTE", "VORLAGEN", "VOLLMACHTEN", "MDM", "", "VM_BHI_" & usrCntl.cboLand._value, listItem2, listTowrite,,,,,, False)
|
||||
Case "BHI" : Return fm.fillPDF_Editierbar("DOKUMENTE", "VORLAGEN", "VOLLMACHTEN", "MDM", "", "VM_BHI_" & usrCntl.cboLand._value, listItem2, listTowrite,,,,,, False)
|
||||
Case "BHI" : Return fm.fillPDF_Editierbar("DOKUMENTE", "VORLAGEN", "VOLLMACHTEN", "MDM", "", "VM_BHI_" & usrCntl.cboLand._value, listItem2, listTowrite,,,,,, False)
|
||||
|
||||
Case Else
|
||||
|
||||
End Select
|
||||
|
||||
|
||||
Return fm.fillPDF_Editierbar("DOKUMENTE", "VORLAGEN", "VOLLMACHTEN", "MDM", "", "VM_BHI_" & usrCntl.cboLand._value, listItem2, listTowrite,,,,,, False)
|
||||
|
||||
End Function
|
||||
|
||||
Shared Function VM_MDM_WORD(usrCntl As usrcntlVollmacht_MDM_Word, Optional printReportElsePDF As Boolean = False, Optional printername As String = "", Optional openWord As Boolean = False) As List(Of String)
|
||||
|
||||
Shared Function VM_MDM_NICHT_EU(usrCntl As usrcntlVollmacht_MDM_NICHT_EU, Optional printReportElsePDF As Boolean = False, Optional printername As String = "", Optional openWord As Boolean = False) As List(Of String)
|
||||
Dim striList As New List(Of String)
|
||||
|
||||
|
||||
Try
|
||||
|
||||
'aktuell immer nur WORD
|
||||
|
||||
Dim fm As New VERAG_PROG_ALLGEMEIN.cFormularManager
|
||||
Dim odoc As Microsoft.Office.Interop.Word.Document = Nothing
|
||||
Dim oWord As New Microsoft.Office.Interop.Word.Application
|
||||
@@ -1684,10 +1686,7 @@ Public Class FormularManagerNEU
|
||||
|
||||
Dim docBez As String = ""
|
||||
|
||||
Select Case usrCntl.cbxVMArt._value
|
||||
Case "EU" : docBez = "VOLLMACHT_" & usrCntl.cboLand._value
|
||||
Case "RO" : docBez = "GENERALVOLLMACHT_" & usrCntl.cbxVMArt._value & "_" & usrCntl.cbxSprache._value
|
||||
End Select
|
||||
docBez = "VOLLMACHT_NICHTEU_" & usrCntl.cboLand._value
|
||||
|
||||
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "VOLLMACHTEN", "MDM", "", docBez)
|
||||
Dim pfadWord = DS.GET_TOP1_PATH(False)
|
||||
@@ -1712,7 +1711,7 @@ Public Class FormularManagerNEU
|
||||
Case "country" : odoc.FormFields(fieldName).Range.Text = usrCntl.cbxLandKz.Text
|
||||
Case "place" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtAdresse3.Text
|
||||
Case "street" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtAdresse1.Text
|
||||
Case "surname_firstname" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtHerrFrau.Text
|
||||
Case "surname_firstname" : odoc.FormFields(fieldName).Range.Text = IIf(usrCntl.txt_GF_Name.Text <> "", usrCntl.txt_GF_Name.Text, "")
|
||||
Case "vatno" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtUid.Text
|
||||
Case "mailcontact" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtEmail.Text ' TODO: neues Feld im formular
|
||||
Case "phone" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtEmail.Text ' TODO: neues Feld im formular
|
||||
@@ -1734,6 +1733,137 @@ Public Class FormularManagerNEU
|
||||
Case "c_iban" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_IBAN1.Replace("IBAN:", "")
|
||||
Case "c_bic" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_BIC1.Replace("BIC:", "")
|
||||
Case "place_date" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtOrt.Text & ", " & usrCntl.datDatum.Value.ToString("dd-MM-yyyy")
|
||||
Case "capital" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtKapital.Text & " " & usrCntl.cbxKapitalWahrung._value
|
||||
Case "crnumber" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtHRNr.Text
|
||||
|
||||
'Case "company" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txtFirma.Text))
|
||||
'Case "address" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txtAdresse1.Text & " " & usrCntl.txtAdresse2.Text & " " & usrCntl.txtAdresse3.Text))
|
||||
'Case "zipcode" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txtAdresse2.Text))
|
||||
'Case "country" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.cbxLandKz.Text))
|
||||
'Case "vatno" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txtUid.Text))
|
||||
'Case "vatnr" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txtUid.Text))
|
||||
'Case "surname_firstname" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txtHerrFrau.Text))
|
||||
'Case "surname" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txtHerrFrau.Text))
|
||||
'Case "firstname" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txtHerrFrau.Text))
|
||||
'Case "place" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txtOrt.Text))
|
||||
'Case "place_date" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txtOrt.Text & " " & usrCntl.datDatum.ToString("ddMMyyyy")))
|
||||
|
||||
End Select
|
||||
|
||||
Next
|
||||
|
||||
|
||||
odoc.Save() : odoc.Activate()
|
||||
|
||||
|
||||
If openWord Then
|
||||
oWord.Visible = True
|
||||
Return New List(Of String)
|
||||
ElseIf printReportElsePDF Then
|
||||
|
||||
oWord.DisplayAlerts = False
|
||||
oWord.PrintOut()
|
||||
Try
|
||||
oWord.Documents.Close()
|
||||
'Quit word application
|
||||
oWord.Quit()
|
||||
|
||||
'Release
|
||||
oWord = Nothing
|
||||
Catch ex As Exception
|
||||
'NIX, kann sein, dass noch offen..
|
||||
End Try
|
||||
|
||||
Else
|
||||
'oWord.Visible = True
|
||||
Dim path = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath("VOLLMACHT_NICHTEU_" & usrCntl.cboLand._value & ".pdf", ".pdf", True, False)
|
||||
|
||||
odoc.SaveAs(path, Word.WdSaveFormat.wdFormatPDF)
|
||||
|
||||
Try
|
||||
odoc.Close()
|
||||
oWord.Quit()
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message)
|
||||
End Try
|
||||
striList.Add(path)
|
||||
End If
|
||||
|
||||
Catch ex As Exception
|
||||
MessageBox.Show(ex.ToString & ex.StackTrace)
|
||||
End Try
|
||||
|
||||
Return striList
|
||||
|
||||
|
||||
|
||||
End Function
|
||||
|
||||
|
||||
Shared Function VM_MDM_EU(usrCntl As usrcntlVollmacht_MDM_EU, Optional printReportElsePDF As Boolean = False, Optional printername As String = "", Optional openWord As Boolean = False) As List(Of String)
|
||||
Dim striList As New List(Of String)
|
||||
|
||||
|
||||
Try
|
||||
|
||||
'aktuell immer nur WORD
|
||||
|
||||
Dim fm As New VERAG_PROG_ALLGEMEIN.cFormularManager
|
||||
Dim odoc As Microsoft.Office.Interop.Word.Document = Nothing
|
||||
Dim oWord As New Microsoft.Office.Interop.Word.Application
|
||||
Dim FIRMA As New VERAG_PROG_ALLGEMEIN.cFirmen(VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA_ID)
|
||||
|
||||
Dim docBez As String = ""
|
||||
|
||||
docBez = "VOLLMACHT_" & usrCntl.cboLand._value
|
||||
|
||||
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "VOLLMACHTEN", "MDM", "", docBez)
|
||||
Dim pfadWord = DS.GET_TOP1_PATH(False)
|
||||
|
||||
Dim cGenWord As New cGenWord
|
||||
|
||||
odoc = cGenWord.openWord(pfadWord, False, oWord)
|
||||
If odoc Is Nothing Then Return striList
|
||||
|
||||
|
||||
Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues)
|
||||
For Each item In odoc.FormFields
|
||||
|
||||
Dim fieldName = item.Name.ToLower().Trim()
|
||||
|
||||
Select Case fieldName
|
||||
Case "name" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtFirma.Text
|
||||
Case "name_1" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtFirma.Text
|
||||
Case "name_2" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtFirma.Text
|
||||
Case "address" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtAdresse1.Text & " " & usrCntl.cbxLandKz.Text & "-" & usrCntl.txtAdresse2.Text & " " & usrCntl.txtAdresse3.Text
|
||||
Case "zipcode" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtAdresse2.Text
|
||||
Case "country" : odoc.FormFields(fieldName).Range.Text = usrCntl.cbxLandKz.Text
|
||||
Case "place" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtAdresse3.Text
|
||||
Case "street" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtAdresse1.Text
|
||||
Case "surname_firstname" : odoc.FormFields(fieldName).Range.Text = IIf(usrCntl.txt_GF_Name.Text <> "", usrCntl.txt_GF_Name.Text, usrCntl.txtHerrFrau.Text)
|
||||
Case "vatno" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtUid.Text
|
||||
Case "mailcontact" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtEmail.Text ' TODO: neues Feld im formular
|
||||
Case "phone" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtEmail.Text ' TODO: neues Feld im formular
|
||||
Case "taxno" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtSteuerNr.Text
|
||||
Case "c_name" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_Bez
|
||||
Case "c_name1" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_Bez
|
||||
Case "c_name2" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_Bez
|
||||
Case "c_name3" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_Bez
|
||||
Case "c_name4" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_Bez
|
||||
Case "c_name5" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_Bez
|
||||
Case "c_name6" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_Bez
|
||||
Case "c_name7" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_Bez
|
||||
Case "c_address" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_Straße & " " & FIRMA.Firma_Ort
|
||||
Case "c_zipcode" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_Ort
|
||||
Case "c_vatno" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_UID
|
||||
Case "c_phone" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_Telefon & " " & FIRMA.Firma_Telefax
|
||||
Case "c_mailcontact" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtEmail.Text
|
||||
Case "c_bank" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_Bankverbindung1
|
||||
Case "c_iban" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_IBAN1.Replace("IBAN:", "")
|
||||
Case "c_bic" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_BIC1.Replace("BIC:", "")
|
||||
Case "place_date" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtOrt.Text & ", " & usrCntl.datDatum.Value.ToString("dd-MM-yyyy")
|
||||
Case "capital" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtKapital.Text & " " & usrCntl.cbxKapitalWahrung._value
|
||||
Case "crnumber" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtHRNr.Text
|
||||
|
||||
'Case "company" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txtFirma.Text))
|
||||
'Case "address" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txtAdresse1.Text & " " & usrCntl.txtAdresse2.Text & " " & usrCntl.txtAdresse3.Text))
|
||||
@@ -6247,8 +6377,9 @@ Public Class FormularManagerArten
|
||||
Shared Property AT_Fiskal = "AT_Fiskal"
|
||||
Shared Property GB_Vollmacht_IE = "GB_Vollmacht_IE"
|
||||
Shared Property GB_Vollmacht_indirekt = "GB_Vollmacht_indirekt"
|
||||
Shared Property MDM_Vollmacht_PDF = "MDM_Vollmacht_PDF"
|
||||
Shared Property MDM_Vollmacht_Word = "MDM_Vollmacht_Word"
|
||||
Shared Property MDM_Vollmacht_BHI = "MDM_Vollmacht_BHI"
|
||||
Shared Property MDM_Vollmacht_EU = "MDM_Vollmacht_EU"
|
||||
Shared Property MDM_Vollmacht_NICHT_EU = "MDM_Vollmacht_NICHT_EU"
|
||||
Shared Property Vollmacht_FA = "Vollmacht_FA"
|
||||
Shared Property VERAG_EXPORT = "VERAG_EXPORT"
|
||||
Shared Property ATILLA_EXPORT = "ATILLA_EXPORT"
|
||||
|
||||
@@ -632,16 +632,22 @@
|
||||
<Compile Include="Formulare\KDFormulare\FormulareBaukasten\usrcntlEinfuhrverbot.vb">
|
||||
<SubType>UserControl</SubType>
|
||||
</Compile>
|
||||
<Compile Include="Formulare\KDFormulare\FormulareBaukasten\usrcntlVollmacht_MDM_Word.Designer.vb">
|
||||
<DependentUpon>usrcntlVollmacht_MDM_Word.vb</DependentUpon>
|
||||
<Compile Include="Formulare\KDFormulare\FormulareBaukasten\usrcntlVollmacht_MDM_NICHT_EU.Designer.vb">
|
||||
<DependentUpon>usrcntlVollmacht_MDM_NICHT_EU.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="Formulare\KDFormulare\FormulareBaukasten\usrcntlVollmacht_MDM_Word.vb">
|
||||
<Compile Include="Formulare\KDFormulare\FormulareBaukasten\usrcntlVollmacht_MDM_NICHT_EU.vb">
|
||||
<SubType>UserControl</SubType>
|
||||
</Compile>
|
||||
<Compile Include="Formulare\KDFormulare\FormulareBaukasten\usrcntlVollmacht_MDM_PDF.Designer.vb">
|
||||
<DependentUpon>usrcntlVollmacht_MDM_PDF.vb</DependentUpon>
|
||||
<Compile Include="Formulare\KDFormulare\FormulareBaukasten\usrcntlVollmacht_MDM_EU.Designer.vb">
|
||||
<DependentUpon>usrcntlVollmacht_MDM_EU.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="Formulare\KDFormulare\FormulareBaukasten\usrcntlVollmacht_MDM_PDF.vb">
|
||||
<Compile Include="Formulare\KDFormulare\FormulareBaukasten\usrcntlVollmacht_MDM_EU.vb">
|
||||
<SubType>UserControl</SubType>
|
||||
</Compile>
|
||||
<Compile Include="Formulare\KDFormulare\FormulareBaukasten\usrcntlVollmacht_MDM_BHI.Designer.vb">
|
||||
<DependentUpon>usrcntlVollmacht_MDM_BHI.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="Formulare\KDFormulare\FormulareBaukasten\usrcntlVollmacht_MDM_BHI.vb">
|
||||
<SubType>UserControl</SubType>
|
||||
</Compile>
|
||||
<Compile Include="Formulare\KDFormulare\FormulareBaukasten\usrcntlVollmacht_DE_indirekt.Designer.vb">
|
||||
@@ -3184,11 +3190,14 @@
|
||||
<EmbeddedResource Include="Formulare\KDFormulare\FormulareBaukasten\usrcntlEinfuhrverbot.resx">
|
||||
<DependentUpon>usrcntlEinfuhrverbot.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="Formulare\KDFormulare\FormulareBaukasten\usrcntlVollmacht_MDM_Word.resx">
|
||||
<DependentUpon>usrcntlVollmacht_MDM_Word.vb</DependentUpon>
|
||||
<EmbeddedResource Include="Formulare\KDFormulare\FormulareBaukasten\usrcntlVollmacht_MDM_NICHT_EU.resx">
|
||||
<DependentUpon>usrcntlVollmacht_MDM_NICHT_EU.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="Formulare\KDFormulare\FormulareBaukasten\usrcntlVollmacht_MDM_PDF.resx">
|
||||
<DependentUpon>usrcntlVollmacht_MDM_PDF.vb</DependentUpon>
|
||||
<EmbeddedResource Include="Formulare\KDFormulare\FormulareBaukasten\usrcntlVollmacht_MDM_EU.resx">
|
||||
<DependentUpon>usrcntlVollmacht_MDM_EU.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="Formulare\KDFormulare\FormulareBaukasten\usrcntlVollmacht_MDM_BHI.resx">
|
||||
<DependentUpon>usrcntlVollmacht_MDM_BHI.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="Formulare\KDFormulare\FormulareBaukasten\usrcntlVollmacht_DE_indirekt.resx">
|
||||
<DependentUpon>usrcntlVollmacht_DE_indirekt.vb</DependentUpon>
|
||||
|
||||
@@ -250,7 +250,7 @@ Public Class frmVorauskasse
|
||||
End If
|
||||
|
||||
'sqlstr &= " SELECT " & TopMax & " [vk_id],[vk_FilialeNr],[vk_AbfertigungsNr],[vk_Datum],[vk_LKW],[vk_KdNr],[vk_Firma],[vk_QS_Sachbearbeiter],[vk_QS_Bemerkung],vk_Betrag,[vk_GeldEingetroffen],[vk_BH_Sachbearbeiter],[vk_BH_Bemerkung],[vk_BH_DatumGeldeingang],vk_storno,vk_Freigegeben " & LKWAnkunft & " FROM tblVorauskassen WHERE 1=1 "
|
||||
sqlstr &= " SELECT " & TopMax & " [vk_id],[vk_FilialeNr],[vk_AbfertigungsNr],[vk_Datum],[vk_LKW],[vk_KdNr],[vk_Firma],[vk_QS_Sachbearbeiter],vk_QS_SachbearbeiterId,[vk_QS_Bemerkung],vk_Betrag,[vk_GeldEingetroffen],[vk_BH_Sachbearbeiter],[vk_BH_Bemerkung],[vk_BH_DatumGeldeingang],vk_storno,vk_Freigegeben FROM tblVorauskassen " & LKWAnkunft & " "
|
||||
sqlstr &= " SELECT " & TopMax & " [vk_id],[vk_FilialeNr],[vk_AbfertigungsNr],[vk_Datum],[vk_LKW],[vk_KdNr],[vk_Firma],[vk_QS_Sachbearbeiter],vk_QS_SachbearbeiterId,[vk_QS_Bemerkung],vk_Betrag,[vk_GeldEingetroffen],[vk_BH_Sachbearbeiter],[vk_BH_Bemerkung],[vk_BH_DatumGeldeingang],vk_storno,vk_Freigegeben,vk_SendungId FROM tblVorauskassen " & LKWAnkunft & " "
|
||||
|
||||
' MsgBox(sqlstr & getVorauskasseWhere() & " ORDER BY vk_Datum desc ")
|
||||
With MyDatagridview1
|
||||
@@ -357,6 +357,7 @@ Public Class frmVorauskasse
|
||||
.MultiSelect = False
|
||||
|
||||
.Columns("vk_id").Visible = False
|
||||
.Columns("vk_SendungId").Visible = False
|
||||
.Columns("vk_QS_SachbearbeiterId").Visible = False
|
||||
.Columns("vk_FilialeNr").Width = 45
|
||||
.Columns("vk_FilialeNr").HeaderText = "Filiale"
|
||||
@@ -440,17 +441,23 @@ Public Class frmVorauskasse
|
||||
Dim VK As New VERAG_PROG_ALLGEMEIN.cVorauskasse(MyDatagridview1.SelectedRows(0).Cells("vk_id").Value)
|
||||
VK.SET_GELDEINGANG(True, txtBemerkung.Text)
|
||||
Dim VermerkIDNew = -1
|
||||
cVorauskasseOptions.insertVermerk(MyDatagridview1.SelectedRows(0).Cells("vk_FilialeNr").Value, MyDatagridview1.SelectedRows(0).Cells("vk_AbfertigungsNr").Value, 14,,, VermerkIDNew,,, MyDatagridview1.SelectedRows(0).Cells("vk_id").Value, MyDatagridview1.SelectedRows(0).Cells("vk_QS_SachbearbeiterId").Value)
|
||||
Dim sendungsId = -1
|
||||
|
||||
If VK.vk_VermerkId IsNot Nothing AndAlso VermerkIDNew > 0 Then
|
||||
Dim cVermerkeDAL As New VERAG_PROG_ALLGEMEIN.cVermerkeDAL
|
||||
cVermerkeDAL.SpeichernVermerkIDAufgehoben(VK.vk_VermerkId, VermerkIDNew)
|
||||
If MyDatagridview1.SelectedRows(0).Cells("vk_SendungId").Value IsNot Nothing AndAlso MyDatagridview1.SelectedRows(0).Cells("vk_SendungId").Value > -1 Then
|
||||
sendungsId = MyDatagridview1.SelectedRows(0).Cells("vk_SendungId").Value
|
||||
End If
|
||||
|
||||
txtBemerkung.Text = ""
|
||||
MyDatagridview1.RELOAD()
|
||||
setDGVOptions()
|
||||
End If
|
||||
cVorauskasseOptions.insertVermerk(MyDatagridview1.SelectedRows(0).Cells("vk_FilialeNr").Value, MyDatagridview1.SelectedRows(0).Cells("vk_AbfertigungsNr").Value, 14,,, VermerkIDNew, sendungsId,, MyDatagridview1.SelectedRows(0).Cells("vk_id").Value, MyDatagridview1.SelectedRows(0).Cells("vk_QS_SachbearbeiterId").Value)
|
||||
|
||||
If VK.vk_VermerkId IsNot Nothing AndAlso VermerkIDNew > 0 Then
|
||||
Dim cVermerkeDAL As New VERAG_PROG_ALLGEMEIN.cVermerkeDAL
|
||||
cVermerkeDAL.SpeichernVermerkIDAufgehoben(VK.vk_VermerkId, VermerkIDNew)
|
||||
End If
|
||||
|
||||
txtBemerkung.Text = ""
|
||||
MyDatagridview1.RELOAD()
|
||||
setDGVOptions()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub MyDatagridview1_SelectionChanged(sender As Object, e As EventArgs) Handles MyDatagridview1.SelectionChanged
|
||||
|
||||
232
SDL/kunden/frmKundenKontakteDetails.Designer.vb
generated
232
SDL/kunden/frmKundenKontakteDetails.Designer.vb
generated
@@ -35,15 +35,25 @@ Partial Class frmKundenKontakteDetails
|
||||
Me.PictureBox3 = New System.Windows.Forms.PictureBox()
|
||||
Me.PictureBox5 = New System.Windows.Forms.PictureBox()
|
||||
Me.lbl = New System.Windows.Forms.Label()
|
||||
Me.cboKontaktArt = New VERAG_PROG_ALLGEMEIN.MyComboBox()
|
||||
Me.lblAnsprechpartnerVN = New System.Windows.Forms.TextBox()
|
||||
Me.cboMannFrau = New VERAG_PROG_ALLGEMEIN.MyComboBox()
|
||||
Me.lblEmailCC = New System.Windows.Forms.TextBox()
|
||||
Me.PictureBox6 = New System.Windows.Forms.PictureBox()
|
||||
Me.lblEmailBCC = New System.Windows.Forms.TextBox()
|
||||
Me.PictureBox7 = New System.Windows.Forms.PictureBox()
|
||||
Me.Label1 = New System.Windows.Forms.Label()
|
||||
Me.Label2 = New System.Windows.Forms.Label()
|
||||
Me.txtStrasse = New System.Windows.Forms.TextBox()
|
||||
Me.txtOrt = New System.Windows.Forms.TextBox()
|
||||
Me.txtPLZ = New System.Windows.Forms.TextBox()
|
||||
Me.PictureBox8 = New System.Windows.Forms.PictureBox()
|
||||
Me.PictureBox9 = New System.Windows.Forms.PictureBox()
|
||||
Me.PictureBox10 = New System.Windows.Forms.PictureBox()
|
||||
Me.Label3 = New System.Windows.Forms.Label()
|
||||
Me.Label4 = New System.Windows.Forms.Label()
|
||||
Me.txtGebDatum = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.cbxLand = New VERAG_PROG_ALLGEMEIN.MyComboBox()
|
||||
Me.cboMannFrau = New VERAG_PROG_ALLGEMEIN.MyComboBox()
|
||||
Me.cboKontaktArt = New VERAG_PROG_ALLGEMEIN.MyComboBox()
|
||||
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.PictureBox4, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
@@ -51,12 +61,15 @@ Partial Class frmKundenKontakteDetails
|
||||
CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.PictureBox6, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.PictureBox7, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.PictureBox8, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.PictureBox9, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.PictureBox10, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'btn
|
||||
'
|
||||
Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btn.Location = New System.Drawing.Point(185, 293)
|
||||
Me.btn.Location = New System.Drawing.Point(373, 358)
|
||||
Me.btn.Name = "btn"
|
||||
Me.btn.Size = New System.Drawing.Size(136, 39)
|
||||
Me.btn.TabIndex = 9
|
||||
@@ -67,7 +80,7 @@ Partial Class frmKundenKontakteDetails
|
||||
'
|
||||
Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None
|
||||
Me.PictureBox1.Image = Global.SDL.My.Resources.Resources.telefon
|
||||
Me.PictureBox1.Location = New System.Drawing.Point(17, 75)
|
||||
Me.PictureBox1.Location = New System.Drawing.Point(9, 75)
|
||||
Me.PictureBox1.Name = "PictureBox1"
|
||||
Me.PictureBox1.Size = New System.Drawing.Size(25, 18)
|
||||
Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
|
||||
@@ -123,7 +136,7 @@ Partial Class frmKundenKontakteDetails
|
||||
'
|
||||
Me.PictureBox4.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None
|
||||
Me.PictureBox4.Image = Global.SDL.My.Resources.Resources.email
|
||||
Me.PictureBox4.Location = New System.Drawing.Point(20, 156)
|
||||
Me.PictureBox4.Location = New System.Drawing.Point(12, 156)
|
||||
Me.PictureBox4.Name = "PictureBox4"
|
||||
Me.PictureBox4.Size = New System.Drawing.Size(22, 18)
|
||||
Me.PictureBox4.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
|
||||
@@ -134,7 +147,7 @@ Partial Class frmKundenKontakteDetails
|
||||
'
|
||||
Me.PictureBox2.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None
|
||||
Me.PictureBox2.Image = Global.SDL.My.Resources.Resources.fax
|
||||
Me.PictureBox2.Location = New System.Drawing.Point(17, 99)
|
||||
Me.PictureBox2.Location = New System.Drawing.Point(9, 99)
|
||||
Me.PictureBox2.Name = "PictureBox2"
|
||||
Me.PictureBox2.Size = New System.Drawing.Size(25, 18)
|
||||
Me.PictureBox2.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
|
||||
@@ -156,7 +169,7 @@ Partial Class frmKundenKontakteDetails
|
||||
'
|
||||
Me.PictureBox3.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None
|
||||
Me.PictureBox3.Image = Global.SDL.My.Resources.Resources.handy
|
||||
Me.PictureBox3.Location = New System.Drawing.Point(17, 123)
|
||||
Me.PictureBox3.Location = New System.Drawing.Point(9, 123)
|
||||
Me.PictureBox3.Name = "PictureBox3"
|
||||
Me.PictureBox3.Size = New System.Drawing.Size(25, 18)
|
||||
Me.PictureBox3.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
|
||||
@@ -167,7 +180,7 @@ Partial Class frmKundenKontakteDetails
|
||||
'
|
||||
Me.PictureBox5.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None
|
||||
Me.PictureBox5.Image = Global.SDL.My.Resources.Resources.person
|
||||
Me.PictureBox5.Location = New System.Drawing.Point(17, 242)
|
||||
Me.PictureBox5.Location = New System.Drawing.Point(9, 242)
|
||||
Me.PictureBox5.Name = "PictureBox5"
|
||||
Me.PictureBox5.Size = New System.Drawing.Size(25, 18)
|
||||
Me.PictureBox5.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
|
||||
@@ -177,24 +190,12 @@ Partial Class frmKundenKontakteDetails
|
||||
'lbl
|
||||
'
|
||||
Me.lbl.AutoSize = True
|
||||
Me.lbl.Location = New System.Drawing.Point(14, 13)
|
||||
Me.lbl.Location = New System.Drawing.Point(6, 13)
|
||||
Me.lbl.Name = "lbl"
|
||||
Me.lbl.Size = New System.Drawing.Size(59, 13)
|
||||
Me.lbl.TabIndex = 0
|
||||
Me.lbl.Text = "Kontaktart:"
|
||||
'
|
||||
'cboKontaktArt
|
||||
'
|
||||
Me.cboKontaktArt._allowedValuesFreiText = Nothing
|
||||
Me.cboKontaktArt._allowFreiText = False
|
||||
Me.cboKontaktArt._value = ""
|
||||
Me.cboKontaktArt.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!)
|
||||
Me.cboKontaktArt.FormattingEnabled = True
|
||||
Me.cboKontaktArt.Location = New System.Drawing.Point(17, 29)
|
||||
Me.cboKontaktArt.Name = "cboKontaktArt"
|
||||
Me.cboKontaktArt.Size = New System.Drawing.Size(487, 28)
|
||||
Me.cboKontaktArt.TabIndex = 1
|
||||
'
|
||||
'lblAnsprechpartnerVN
|
||||
'
|
||||
Me.lblAnsprechpartnerVN.BackColor = System.Drawing.Color.White
|
||||
@@ -206,18 +207,6 @@ Partial Class frmKundenKontakteDetails
|
||||
Me.lblAnsprechpartnerVN.TabIndex = 7
|
||||
Me.lblAnsprechpartnerVN.Text = "ansprechpartner"
|
||||
'
|
||||
'cboMannFrau
|
||||
'
|
||||
Me.cboMannFrau._allowedValuesFreiText = Nothing
|
||||
Me.cboMannFrau._allowFreiText = False
|
||||
Me.cboMannFrau._value = ""
|
||||
Me.cboMannFrau.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.0!)
|
||||
Me.cboMannFrau.FormattingEnabled = True
|
||||
Me.cboMannFrau.Location = New System.Drawing.Point(52, 239)
|
||||
Me.cboMannFrau.Name = "cboMannFrau"
|
||||
Me.cboMannFrau.Size = New System.Drawing.Size(54, 26)
|
||||
Me.cboMannFrau.TabIndex = 6
|
||||
'
|
||||
'lblEmailCC
|
||||
'
|
||||
Me.lblEmailCC.BackColor = System.Drawing.Color.White
|
||||
@@ -234,7 +223,7 @@ Partial Class frmKundenKontakteDetails
|
||||
'
|
||||
Me.PictureBox6.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None
|
||||
Me.PictureBox6.Image = Global.SDL.My.Resources.Resources.email
|
||||
Me.PictureBox6.Location = New System.Drawing.Point(20, 181)
|
||||
Me.PictureBox6.Location = New System.Drawing.Point(12, 181)
|
||||
Me.PictureBox6.Name = "PictureBox6"
|
||||
Me.PictureBox6.Size = New System.Drawing.Size(22, 18)
|
||||
Me.PictureBox6.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
|
||||
@@ -257,7 +246,7 @@ Partial Class frmKundenKontakteDetails
|
||||
'
|
||||
Me.PictureBox7.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None
|
||||
Me.PictureBox7.Image = Global.SDL.My.Resources.Resources.email
|
||||
Me.PictureBox7.Location = New System.Drawing.Point(20, 206)
|
||||
Me.PictureBox7.Location = New System.Drawing.Point(12, 206)
|
||||
Me.PictureBox7.Name = "PictureBox7"
|
||||
Me.PictureBox7.Size = New System.Drawing.Size(22, 18)
|
||||
Me.PictureBox7.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
|
||||
@@ -282,12 +271,170 @@ Partial Class frmKundenKontakteDetails
|
||||
Me.Label2.TabIndex = 197
|
||||
Me.Label2.Text = "BCC:"
|
||||
'
|
||||
'txtStrasse
|
||||
'
|
||||
Me.txtStrasse.BackColor = System.Drawing.Color.White
|
||||
Me.txtStrasse.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
||||
Me.txtStrasse.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.txtStrasse.Location = New System.Drawing.Point(52, 271)
|
||||
Me.txtStrasse.Name = "txtStrasse"
|
||||
Me.txtStrasse.Size = New System.Drawing.Size(452, 26)
|
||||
Me.txtStrasse.TabIndex = 198
|
||||
Me.txtStrasse.Text = "adresse"
|
||||
'
|
||||
'txtOrt
|
||||
'
|
||||
Me.txtOrt.BackColor = System.Drawing.Color.White
|
||||
Me.txtOrt.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
||||
Me.txtOrt.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.txtOrt.Location = New System.Drawing.Point(272, 303)
|
||||
Me.txtOrt.Name = "txtOrt"
|
||||
Me.txtOrt.Size = New System.Drawing.Size(232, 26)
|
||||
Me.txtOrt.TabIndex = 203
|
||||
Me.txtOrt.Text = "ort"
|
||||
'
|
||||
'txtPLZ
|
||||
'
|
||||
Me.txtPLZ.BackColor = System.Drawing.Color.White
|
||||
Me.txtPLZ.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
||||
Me.txtPLZ.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.txtPLZ.Location = New System.Drawing.Point(167, 303)
|
||||
Me.txtPLZ.Name = "txtPLZ"
|
||||
Me.txtPLZ.Size = New System.Drawing.Size(99, 26)
|
||||
Me.txtPLZ.TabIndex = 206
|
||||
Me.txtPLZ.Text = "plz"
|
||||
'
|
||||
'PictureBox8
|
||||
'
|
||||
Me.PictureBox8.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None
|
||||
Me.PictureBox8.Image = CType(resources.GetObject("PictureBox8.Image"), System.Drawing.Image)
|
||||
Me.PictureBox8.Location = New System.Drawing.Point(9, 271)
|
||||
Me.PictureBox8.Name = "PictureBox8"
|
||||
Me.PictureBox8.Size = New System.Drawing.Size(25, 18)
|
||||
Me.PictureBox8.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
|
||||
Me.PictureBox8.TabIndex = 208
|
||||
Me.PictureBox8.TabStop = False
|
||||
'
|
||||
'PictureBox9
|
||||
'
|
||||
Me.PictureBox9.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None
|
||||
Me.PictureBox9.Image = CType(resources.GetObject("PictureBox9.Image"), System.Drawing.Image)
|
||||
Me.PictureBox9.Location = New System.Drawing.Point(9, 340)
|
||||
Me.PictureBox9.Name = "PictureBox9"
|
||||
Me.PictureBox9.Size = New System.Drawing.Size(25, 18)
|
||||
Me.PictureBox9.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
|
||||
Me.PictureBox9.TabIndex = 209
|
||||
Me.PictureBox9.TabStop = False
|
||||
'
|
||||
'PictureBox10
|
||||
'
|
||||
Me.PictureBox10.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None
|
||||
Me.PictureBox10.Image = CType(resources.GetObject("PictureBox10.Image"), System.Drawing.Image)
|
||||
Me.PictureBox10.Location = New System.Drawing.Point(9, 305)
|
||||
Me.PictureBox10.Name = "PictureBox10"
|
||||
Me.PictureBox10.Size = New System.Drawing.Size(25, 18)
|
||||
Me.PictureBox10.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
|
||||
Me.PictureBox10.TabIndex = 210
|
||||
Me.PictureBox10.TabStop = False
|
||||
'
|
||||
'Label3
|
||||
'
|
||||
Me.Label3.AutoSize = True
|
||||
Me.Label3.Location = New System.Drawing.Point(40, 310)
|
||||
Me.Label3.Name = "Label3"
|
||||
Me.Label3.Size = New System.Drawing.Size(78, 13)
|
||||
Me.Label3.TabIndex = 211
|
||||
Me.Label3.Text = "Land/PLZ/Ort:"
|
||||
'
|
||||
'Label4
|
||||
'
|
||||
Me.Label4.AutoSize = True
|
||||
Me.Label4.Location = New System.Drawing.Point(40, 345)
|
||||
Me.Label4.Name = "Label4"
|
||||
Me.Label4.Size = New System.Drawing.Size(53, 13)
|
||||
Me.Label4.TabIndex = 212
|
||||
Me.Label4.Text = "Geb-Dat.:"
|
||||
'
|
||||
'txtGebDatum
|
||||
'
|
||||
Me.txtGebDatum._DateTimeOnly = False
|
||||
Me.txtGebDatum._numbersOnly = False
|
||||
Me.txtGebDatum._numbersOnlyKommastellen = ""
|
||||
Me.txtGebDatum._numbersOnlyTrennzeichen = True
|
||||
Me.txtGebDatum._Prozent = False
|
||||
Me.txtGebDatum._ShortDateNew = True
|
||||
Me.txtGebDatum._ShortDateOnly = False
|
||||
Me.txtGebDatum._TimeOnly = False
|
||||
Me.txtGebDatum._TimeOnly_Seconds = False
|
||||
Me.txtGebDatum._value = "geburtsdatum"
|
||||
Me.txtGebDatum._Waehrung = False
|
||||
Me.txtGebDatum._WaehrungZeichen = False
|
||||
Me.txtGebDatum.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.txtGebDatum.ForeColor = System.Drawing.Color.Black
|
||||
Me.txtGebDatum.Location = New System.Drawing.Point(120, 332)
|
||||
Me.txtGebDatum.MaxLength = 10
|
||||
Me.txtGebDatum.MaxLineLength = -1
|
||||
Me.txtGebDatum.MaxLines_Warning = ""
|
||||
Me.txtGebDatum.MaxLines_Warning_Label = Nothing
|
||||
Me.txtGebDatum.Multiline = True
|
||||
Me.txtGebDatum.Name = "txtGebDatum"
|
||||
Me.txtGebDatum.Size = New System.Drawing.Size(146, 26)
|
||||
Me.txtGebDatum.TabIndex = 207
|
||||
Me.txtGebDatum.Text = "geburtsdatum"
|
||||
'
|
||||
'cbxLand
|
||||
'
|
||||
Me.cbxLand._allowedValuesFreiText = Nothing
|
||||
Me.cbxLand._allowFreiText = False
|
||||
Me.cbxLand._value = ""
|
||||
Me.cbxLand.DropDownWidth = 150
|
||||
Me.cbxLand.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.0!)
|
||||
Me.cbxLand.FormattingEnabled = True
|
||||
Me.cbxLand.Location = New System.Drawing.Point(120, 303)
|
||||
Me.cbxLand.Name = "cbxLand"
|
||||
Me.cbxLand.Size = New System.Drawing.Size(41, 26)
|
||||
Me.cbxLand.TabIndex = 205
|
||||
'
|
||||
'cboMannFrau
|
||||
'
|
||||
Me.cboMannFrau._allowedValuesFreiText = Nothing
|
||||
Me.cboMannFrau._allowFreiText = False
|
||||
Me.cboMannFrau._value = ""
|
||||
Me.cboMannFrau.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.0!)
|
||||
Me.cboMannFrau.FormattingEnabled = True
|
||||
Me.cboMannFrau.Location = New System.Drawing.Point(52, 239)
|
||||
Me.cboMannFrau.Name = "cboMannFrau"
|
||||
Me.cboMannFrau.Size = New System.Drawing.Size(54, 26)
|
||||
Me.cboMannFrau.TabIndex = 6
|
||||
'
|
||||
'cboKontaktArt
|
||||
'
|
||||
Me.cboKontaktArt._allowedValuesFreiText = Nothing
|
||||
Me.cboKontaktArt._allowFreiText = False
|
||||
Me.cboKontaktArt._value = ""
|
||||
Me.cboKontaktArt.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!)
|
||||
Me.cboKontaktArt.FormattingEnabled = True
|
||||
Me.cboKontaktArt.Location = New System.Drawing.Point(9, 29)
|
||||
Me.cboKontaktArt.Name = "cboKontaktArt"
|
||||
Me.cboKontaktArt.Size = New System.Drawing.Size(495, 28)
|
||||
Me.cboKontaktArt.TabIndex = 1
|
||||
'
|
||||
'frmKundenKontakteDetails
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.BackColor = System.Drawing.Color.White
|
||||
Me.ClientSize = New System.Drawing.Size(521, 357)
|
||||
Me.ClientSize = New System.Drawing.Size(521, 409)
|
||||
Me.Controls.Add(Me.Label4)
|
||||
Me.Controls.Add(Me.Label3)
|
||||
Me.Controls.Add(Me.PictureBox10)
|
||||
Me.Controls.Add(Me.PictureBox9)
|
||||
Me.Controls.Add(Me.PictureBox8)
|
||||
Me.Controls.Add(Me.txtGebDatum)
|
||||
Me.Controls.Add(Me.txtPLZ)
|
||||
Me.Controls.Add(Me.cbxLand)
|
||||
Me.Controls.Add(Me.txtOrt)
|
||||
Me.Controls.Add(Me.txtStrasse)
|
||||
Me.Controls.Add(Me.Label2)
|
||||
Me.Controls.Add(Me.Label1)
|
||||
Me.Controls.Add(Me.lblEmailBCC)
|
||||
@@ -320,6 +467,9 @@ Partial Class frmKundenKontakteDetails
|
||||
CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.PictureBox6, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.PictureBox7, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.PictureBox8, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.PictureBox9, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.PictureBox10, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ResumeLayout(False)
|
||||
Me.PerformLayout()
|
||||
|
||||
@@ -346,4 +496,14 @@ Partial Class frmKundenKontakteDetails
|
||||
Friend WithEvents PictureBox7 As PictureBox
|
||||
Friend WithEvents Label1 As Label
|
||||
Friend WithEvents Label2 As Label
|
||||
Friend WithEvents txtStrasse As TextBox
|
||||
Friend WithEvents txtOrt As TextBox
|
||||
Friend WithEvents cbxLand As VERAG_PROG_ALLGEMEIN.MyComboBox
|
||||
Friend WithEvents txtPLZ As TextBox
|
||||
Friend WithEvents txtGebDatum As VERAG_PROG_ALLGEMEIN.MyTextBox
|
||||
Friend WithEvents PictureBox8 As PictureBox
|
||||
Friend WithEvents PictureBox9 As PictureBox
|
||||
Friend WithEvents PictureBox10 As PictureBox
|
||||
Friend WithEvents Label3 As Label
|
||||
Friend WithEvents Label4 As Label
|
||||
End Class
|
||||
|
||||
@@ -118,6 +118,141 @@
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
|
||||
<data name="PictureBox8.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAAQAAAAEACAYAAABccqhmAAAABGdBTUEAALGPC/xhBQAACHtJREFUeF7t
|
||||
3Y1xJDUQBtALhVAIhUwIhVAIhVDg+uoG7EXr/Z0Z9af3qr4qCrDP9mqkVkvr+wYAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAMD7/PI9v37Pbz/z+4f8Mcj237b/vz62PgcwsXpIt4f3z+/563v+fmPq81Xqc9dEsU0OwMG2
|
||||
VX172EcP7FHZJoX6WkwIsJNthT/7gb+VrVKor9XWAV7Q5aH/KiYDeFD3h/5atskAuLCt9qMHJy2qAvhp
|
||||
pQf/MjUR1ImCiYDl1KCvwT96MFZM/SycIhBv5RX/nqgIiOXBvy+ahUSp0rYG9Wiwy/XUz6xuHEJLVcom
|
||||
HucdnfoZ2hbQSq36o8Esz8W2gDbs9feLSYBpKfmPSVUDtgRMpZpVo8Eq+8SWgGm40HNeTAKcSsl/fmoC
|
||||
hsN5+OdJbQngEJp9c0ZzkN3VAKuBNhqAcn5MAuymBtZo0MlcMQnwdjWglP19YhLgrTz8/VKTALzMw983
|
||||
JgFe4uHvH/cEeIobfjlxY5CHeDtvXkwC3MVxX2aqH+AXj3KTfX9uNAX5UpWJo4EjOdEUZMi+f53YCvCJ
|
||||
ff9acVOQT+z710u95qD0Xzi2AvwoB0eDQ/LjVGBxuv7igtDCRgNC1oqG4KLc9Zct7gYsRuNPLqMhuBDH
|
||||
fnIZx4KLcOlHrkUVsAB7f7kWvYAFjF54kYoTgXDO/eVWVAHB3PqTW3E7MJS/wlvuTY0Vwqx+9FcrW/0M
|
||||
qsStrVClBvqW+vcVR6SOBCONXuj01ENfD/qjx1vVCKuPqY9ddUJwJBhktfK/Htx3qgmhPufoz0rNu3+G
|
||||
nGiVVWzvQbvSRGAbEGT0Aiel9u5Hnl+vMhHYBgRIL//r+ztL+iRgGxAg9ey/vq8ZVqiqBlJ/xrYBAUYv
|
||||
bPfUA3dkyX9L6iRQ3xONJZb/s65KNQkkNlv1ARpL26POtvJfSqwE9AEaq+746EXtmg6rUU0Co6+9a/QB
|
||||
Ghu9oF1zZrf/UUlbL32Apmq1HL2gHdNxFUqqvvQBGkpahWbe91+TtBXQB2goZQWq76OrlNfABNBQyuDr
|
||||
uPpvUqoAjcCGEo6jOq/+m4SJWCOwodEL2S2dV/9NQhVgAmho9EJ2StKgS7ghmDAZLyPhBCCh/N8k3Mh0
|
||||
FNhIwgSQNOAS7mR0uoi1vIQJIElCH8AE0Ej3kjPx2Kl7H8BdgEa6TwBJ+/9N9+NAE0Aj3Qdb4gTQfVI2
|
||||
ATRitZmPqozDdJ8AEhtO3RuzJoBGTADzMQFwmO4TgC3AfDEBNNJ9sCVOAN0nZRNAI90ngMR7AKoyDmMC
|
||||
mI+LQBym+wSQ+PbT0ffZKa4CN5Lw5pOkNwN1PwGomAAaSZgAkkrO7vv/it8H0IjfQjOX+l5G32OnmACa
|
||||
Gb2I3ZKyDRh9b91CMwmrTsLZc0L5n9iUjdf92KlSA6976Tn6vrrFJaCGuh8Fbuk8+BJW/4o7AA0lnARU
|
||||
qgro2AtIaMRucQTYUNIA7FgFJGzBtjgBaGr0YnZNpzI04eLPx9BU0irUZSuQsvXaogHYWEojcMvspwJJ
|
||||
264tJoDG0lajysxn0kkV1xYNwMYSV6TKbJVAfS2JD39l5oqLO6QOzJoEZlidEqusLTV2aC6tD/AxNQmc
|
||||
eTqQ1u2/jP1/gOQVaksN1CNL1fqz6s8cfS1Jsf8PUIN19OKmZasG9pwI6nMnV1SXIURqH2CUPSaC1R78
|
||||
ivI/SPpe9VpqMqiB/MwFou2hr88x+tzpUf4HqcE8epFXSj3IVQnVhFCph7sGeaX+uVL/fqVq6au8s4Ji
|
||||
Aga2PBLCrLaHledj/x/INkDujfI/lG2A3Er1SghlGyC3ovsfzDZAbkX5H842QK6lxgbhVr0UJLej/F+A
|
||||
bYBcC4uwDZDLOPtfyApvEZbH8sz7JWhMFSAfw2I0A2WL5t+CNANli7P/RVXjZzQgZJ1o/i1MFSCaf4vT
|
||||
DFw3bv7hSHDhaP7xYxugClgz8IMjwfVi9edfmoHrBT5RBayT+sUw8IkqYJ24+MOQi0H5cfGHq1QB+bH6
|
||||
8yVVQG6s/tykCsiN1Z+7qALyYvXnbqqAvFj9eYgqICdWfx6mCsiJ1Z+n+KvE+setP56mCugfeIn3CPSN
|
||||
1Z+XVRVQf2X0aIDJ3IG3UAX0i/f78zZVBfitQX1SFRu8ld8d2Cd+0y+7UAXMH7/pl904Fpw/Vn925Yrw
|
||||
vHHll92pAuZNvTawO8eC88WxH4dxLDhXHPtxOMeC80Tjj1NoCJ4fjT9OoyF4fjT+OJWG4Hnxbj9OpyF4
|
||||
TjT+mIaG4PHR+GMqGoLHReOP6WgIHheYkobg/nHjj6lpCO4Xb/VlerYC+0XjjxZsBd4fZ/604W7Ae6P0
|
||||
px1bgfdF6U9L/mqx16P0py1bgdfiui/t2Qo8H6U/EWwFHo/Snxi2Ao9F6U8cW4H7o/Qnkq3A7Sj9iWUr
|
||||
8HVc+CGercD1KP1Zgq3A/6P0Zxm2Ap+j9Gc5tgL/pX4WsBxvG7bvZ3Er/zJRpT/Lq/K3br6NHpDkuO0H
|
||||
P1UZPHpIkqP0hw9WOhp05AcXVjkatO+HK1Y4GlT6wxeSjwY9/HCHxH6A0h/ulHY06MgPHpTUD1D6wxMS
|
||||
+gEefnhB56vC9v3woq79APt+eJOO/QClP7xRp36Ahx920OF+gH0/7KS2AjO/X8C+H3Y2cz9A6Q8HmLEf
|
||||
4OGHA83UD/D+fjjYLP0ATT84ydmXhDT94GRnNgXt+2ECZzQFPfwwkSObgpp+MJmjmoKafjCpvZuCmn4w
|
||||
uT2bgvb90MAeTUEPPzTyzqagph809I5fJ6bpB029ejLg4Yfmnj0ZqI+pjwWae+ZkQNMPgjxyMuDhh0D3
|
||||
nAzo+EOwryYBTT8Id+1kwMMPi7g8GXDHHxazTQKO+2BR9eDr+AMAAAAAAAAAAAAAAAAAAAAAAAAAABzj
|
||||
27d/ABBabbXEUZDWAAAAAElFTkSuQmCC
|
||||
</value>
|
||||
</data>
|
||||
<data name="PictureBox9.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAAQAAAAEACAYAAABccqhmAAAABGdBTUEAALGPC/xhBQAACpNJREFUeF7t
|
||||
nYGN4wYSBC8Uh+JQPhOH4lAcikP518BHWL/Xe7t7PU2RM1VA4fGA/33qo0okJe1+AwAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAC4Nf8J+NtD6KU2VVu7wnL+G5ADq5/aVG3tCstRB4UrAeiHAEAEdVC4EoB+CABEUAeFKwHo
|
||||
hwBABHVQuBKAfggARFAHhSsB6IcAQAR1ULgSgH4IAERQB4UrAeiHAEAEdVC4EoB+CABEUAeFKwHohwBA
|
||||
BHVQuBKAfggARFAHhSsB6IcAQAR1ULgSgH4IAERQB4UrAeiHAEAEdVC4EoB+CABEUAeFKwHohwBABHVQ
|
||||
uBKAfggARFAHhSsB6IcAQAR1ULgSgH4IAERQB4UrAeiHAEAEdVC4EoB+CAD8QP2k2D8e/vnwr++qv2TE
|
||||
Dv/+bh1ndcxVlPgJ0CdzPOl5suNVrCjUMUkMwtTI6i8A8QoeIYBmUtd/iAkJQSN1raVGRry6RMCgrqe4
|
||||
zse7W2cD3Bv4BXjy4xSJwBfhyY/TrAjAJ+CaH6daxzb8hN8fquEQp8inRH9CnSap0RCnyKXAO/AhH9wi
|
||||
lwICNRTiRHlX4A180g+3yYeEnuBtP9xmHfPwHTUQ4nTrXa/1cPqPW+UtwQd88Ae3yrsBDwgAbpX7AA/4
|
||||
8A9ulQ8FPSAAuFUC8EAN41qXFXWDBbHL1KXqetQorvUXBtBJHVPqWHNdjxrFlQBANwQghBrFlQBANwQg
|
||||
hBrFlQBANwQghBrFlQBANwQghBrFlQBANwQghBrFlQBANwQghBrFlQBANwQghBrFlQBANwQghBrFlQBA
|
||||
NwQghBrFlQBANwQghBrFlQBANwQghBrFlQBANwQghBrFlQBANwQghBrFlQBANwQghBrFlQBANwQghBrF
|
||||
lQBANwQghBrFlQBANwQghBrFlQBANwQghBrFlQBANwQghBrFlR8Kit3yQ0FDqFEQt7geNQriFtejRkHc
|
||||
4nrUKIhbXI8aBXGL61GjIG5xPWoUxC2uR42CuMX1qFEQt7geNQriFtejRkHc4nrUKIhbXI8aBXGL61Gj
|
||||
IG5xPWoUxC2uR42CuMX1qFEQt7geNQriFtejRkHc4nrUKIhbXI8aBXGL61GjuNZPcQXopI4pday5rkeN
|
||||
4koAoBsCEEKN4koAoBsCEEKN4koAoBsCEEKN4koAoBsCEEKN4koAoBsCEEKN4koAoBsCEEKN4koAoBsC
|
||||
EEKN4koAoBsCEEKN4koAoBsCEEKN4koAfs5v3/39yfrv8D4EIIQaxZUA/Es9sf/47t8P1V7P1j/z58Pa
|
||||
sMIA/0AAQqhRXAnAP0/4vx6qfb5iBYE9CUAMNYrr5gO2XrU/80r/Vev/s6KyFQIQQo3iujEAdarf8Yr/
|
||||
kRWCjZcGBCCEGsV1WwBSB+d7bjwbIAAh1CiumwJQT0S1wRluigABCKFGcd0SgDNO+T+yzgY2QABCqFFc
|
||||
NwTgCk/+w3rbcDoEIIQaxXV6AF552v+e0y8HCEAINYrr5ADUHXj1mK/g5HcHCEAINYrr5ACox3sV637A
|
||||
1I8UE4AQahTXqQGoa231eK/k1PsBBCCEGsV1YgCufOr/7NQPChGAEGoU14kBuNJd/4+ceBZAAEKoUVyn
|
||||
BeAur/6HE88CCEAINYrrtABc8W2/j5z2tiABCKFGcZ0WgHpFVY/zyk77hCABCKFGcZ0WAPUY7+CkywAC
|
||||
EEKN4jopAKkD7wwJwMeuR43iOikAd3jv/z0n3QcgACHUKK4E4BrWW5dTIAAh1CiukwJwxxuAh5NuBBKA
|
||||
EGoUVwJwDQnAx65HjeI6KQDq8d1FAvCx61GjuBKA6zgFAhBCjeI6KQBcAlwDAhBCjeI6KQB3+hLQW3kX
|
||||
4GPXo0ZxJQDXcNK3AglACDWK66QA3PGLQId8EOhj16NGcZ0UgLt9FfhZPgr8setRo7hOCkD9jD31GO/g
|
||||
JAhACDWK66QAFHe8DzDtpwIRgBBqFNdpAbjjZcCk0/+CAIRQo7hOC8BZv/m3y0nv/x8QgBBqFNdpAShS
|
||||
B2BC9v+861GjuE48AO9yFjDpwz/PEIAQahTXiQEo7nAvYNq1/wEBCKFGcZ0agOLKPyBk2p3/ZwhACDWK
|
||||
6+QAXPVSYOqp/wEBCKFGcZ0cgKIicKVvCU686/8WAhBCjeI6PQDFVSJQf4ap1/3PEIAQahTXDQEoXh2B
|
||||
Da/8BwQghBrFdUsAilfdE5h+zf8WAhBCjeK6KQBFReDMrw1P+71/n4EAhFCjuG4LwEGFIPk2Yb3q179j
|
||||
IwQghBrFdWsADrpDUE/87ZsSgBBqFNftB+tBhaC2+JV7BHWDr071t77iv4UAhFCjuBKAH6kn8hGEOjs4
|
||||
rDjUf9aTvdzwlt6vQABCqFFcCQB0QwBCqFFcCQB0QwBCqFFcCQB0QwBCqFFcCQB0QwBCqFFcCQB0QwBC
|
||||
qFFcCQB0QwBCqFFcCQB0QwBCqFFcCQB0QwBCqFFcCQB0QwBCqFFcCQB0QwBCqFFcCQB0QwBCqFFcCcCP
|
||||
HN8FKOvz/u95/DPw/xCAEGoU120BOJ7Uxxd66gs+pfvjwup/f3h8aai2LevftwkCEEKN4jo5APVkf36i
|
||||
q8d/lkccjjBMjgIBCKFGcZ0UgOMJ/+on+2c9zhbqzzwpCAQghBrF9e4BOE7n1WO7m89nCHeGAIRQo7je
|
||||
8WA7XunV45niEYM7nhkQgBBqFNc7BaCe9PXEUI9jsvWY67HfBQIQQo3ievUAbHi1/6x3CQEBCKFGcb1y
|
||||
AHjia68eAgIQQo3iesUA1HXvxlP9r3rVEBCAEGoU1ysFgNP9X/NqESAAIdQorlcJQL3qqz8ffs46G6iA
|
||||
XgECEEKN4nqFAKQOmG1e5ZKAAIRQo7i+OgA8+ft9dQQIQAg1iusrA8CTP+crI0AAQqhRXF8VAK75877q
|
||||
75YAhFCjuL7iIKmbVerPgr2+6sYgAQihRnF9RQDu8m29CVYEzoYAhFCjuJ4dgNTBge979heKCEAINYrr
|
||||
2QGoVyT158CcZ58FEIAQahTXMwPAq//rPPMsgACEUKO4nhmA+n67+jNg3jPfFiQAIdQormcGgJt/r7O2
|
||||
PwsCEEKN4npmALj+f51n3gcgACHUKK5nBkD9+/EcCcAA1CiuBGCPZ0EAQqhRXM8MAOyAAIRQo7gSAOiG
|
||||
AIRQo7gSAOiGAIRQo7gSAOiGAIRQo7gSAOiGAIRQo7gSAOiGAIRQo7gSAOiGAIRQo7gSAOiGAIRQo7gS
|
||||
AOiGAIRQo7gSAOiGAIRQo7gev48escvU177Xw7fpcLPr4fv0uNUzf57BZSEAuNW6rFgPP1ILt0oAHtQN
|
||||
FjUO4nTr2F8Pv1EHt3qVX33+crgPgNvk9P+J+vHOaiTEqXL6/wSXAbhNTv/fwM1A3OKZv9DkNlQR+VQg
|
||||
bhDegbMAnC7X/h/ADUGcKh/9/QR1KcDbgjhNnvxfgPsBOMkzf4XZGDgTwAny5DeoCHBPAO8qp/1NVAS4
|
||||
JMC7WMcq7/U3w9kA3kGe+GGOEHB/AK8ir/gvomJQH6yob1ZVEEouFTBlHVtlHWd1zPGkBwAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAGM+3b/8D
|
||||
5YK/CrjgMXgAAAAASUVORK5CYII=
|
||||
</value>
|
||||
</data>
|
||||
<data name="PictureBox10.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAAQAAAAEACAYAAABccqhmAAAABGdBTUEAALGPC/xhBQAACHtJREFUeF7t
|
||||
3Y1xJDUQBtALhVAIhUwIhVAIhVDg+uoG7EXr/Z0Z9af3qr4qCrDP9mqkVkvr+wYAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAMD7/PI9v37Pbz/z+4f8Mcj237b/vz62PgcwsXpIt4f3z+/563v+fmPq81Xqc9dEsU0OwMG2
|
||||
VX172EcP7FHZJoX6WkwIsJNthT/7gb+VrVKor9XWAV7Q5aH/KiYDeFD3h/5atskAuLCt9qMHJy2qAvhp
|
||||
pQf/MjUR1ImCiYDl1KCvwT96MFZM/SycIhBv5RX/nqgIiOXBvy+ahUSp0rYG9Wiwy/XUz6xuHEJLVcom
|
||||
HucdnfoZ2hbQSq36o8Esz8W2gDbs9feLSYBpKfmPSVUDtgRMpZpVo8Eq+8SWgGm40HNeTAKcSsl/fmoC
|
||||
hsN5+OdJbQngEJp9c0ZzkN3VAKuBNhqAcn5MAuymBtZo0MlcMQnwdjWglP19YhLgrTz8/VKTALzMw983
|
||||
JgFe4uHvH/cEeIobfjlxY5CHeDtvXkwC3MVxX2aqH+AXj3KTfX9uNAX5UpWJo4EjOdEUZMi+f53YCvCJ
|
||||
ff9acVOQT+z710u95qD0Xzi2AvwoB0eDQ/LjVGBxuv7igtDCRgNC1oqG4KLc9Zct7gYsRuNPLqMhuBDH
|
||||
fnIZx4KLcOlHrkUVsAB7f7kWvYAFjF54kYoTgXDO/eVWVAHB3PqTW3E7MJS/wlvuTY0Vwqx+9FcrW/0M
|
||||
qsStrVClBvqW+vcVR6SOBCONXuj01ENfD/qjx1vVCKuPqY9ddUJwJBhktfK/Htx3qgmhPufoz0rNu3+G
|
||||
nGiVVWzvQbvSRGAbEGT0Aiel9u5Hnl+vMhHYBgRIL//r+ztL+iRgGxAg9ey/vq8ZVqiqBlJ/xrYBAUYv
|
||||
bPfUA3dkyX9L6iRQ3xONJZb/s65KNQkkNlv1ARpL26POtvJfSqwE9AEaq+746EXtmg6rUU0Co6+9a/QB
|
||||
Ghu9oF1zZrf/UUlbL32Apmq1HL2gHdNxFUqqvvQBGkpahWbe91+TtBXQB2goZQWq76OrlNfABNBQyuDr
|
||||
uPpvUqoAjcCGEo6jOq/+m4SJWCOwodEL2S2dV/9NQhVgAmho9EJ2StKgS7ghmDAZLyPhBCCh/N8k3Mh0
|
||||
FNhIwgSQNOAS7mR0uoi1vIQJIElCH8AE0Ej3kjPx2Kl7H8BdgEa6TwBJ+/9N9+NAE0Aj3Qdb4gTQfVI2
|
||||
ATRitZmPqozDdJ8AEhtO3RuzJoBGTADzMQFwmO4TgC3AfDEBNNJ9sCVOAN0nZRNAI90ngMR7AKoyDmMC
|
||||
mI+LQBym+wSQ+PbT0ffZKa4CN5Lw5pOkNwN1PwGomAAaSZgAkkrO7vv/it8H0IjfQjOX+l5G32OnmACa
|
||||
Gb2I3ZKyDRh9b91CMwmrTsLZc0L5n9iUjdf92KlSA6976Tn6vrrFJaCGuh8Fbuk8+BJW/4o7AA0lnARU
|
||||
qgro2AtIaMRucQTYUNIA7FgFJGzBtjgBaGr0YnZNpzI04eLPx9BU0irUZSuQsvXaogHYWEojcMvspwJJ
|
||||
264tJoDG0lajysxn0kkV1xYNwMYSV6TKbJVAfS2JD39l5oqLO6QOzJoEZlidEqusLTV2aC6tD/AxNQmc
|
||||
eTqQ1u2/jP1/gOQVaksN1CNL1fqz6s8cfS1Jsf8PUIN19OKmZasG9pwI6nMnV1SXIURqH2CUPSaC1R78
|
||||
ivI/SPpe9VpqMqiB/MwFou2hr88x+tzpUf4HqcE8epFXSj3IVQnVhFCph7sGeaX+uVL/fqVq6au8s4Ji
|
||||
Aga2PBLCrLaHledj/x/INkDujfI/lG2A3Er1SghlGyC3ovsfzDZAbkX5H842QK6lxgbhVr0UJLej/F+A
|
||||
bYBcC4uwDZDLOPtfyApvEZbH8sz7JWhMFSAfw2I0A2WL5t+CNANli7P/RVXjZzQgZJ1o/i1MFSCaf4vT
|
||||
DFw3bv7hSHDhaP7xYxugClgz8IMjwfVi9edfmoHrBT5RBayT+sUw8IkqYJ24+MOQi0H5cfGHq1QB+bH6
|
||||
8yVVQG6s/tykCsiN1Z+7qALyYvXnbqqAvFj9eYgqICdWfx6mCsiJ1Z+n+KvE+setP56mCugfeIn3CPSN
|
||||
1Z+XVRVQf2X0aIDJ3IG3UAX0i/f78zZVBfitQX1SFRu8ld8d2Cd+0y+7UAXMH7/pl904Fpw/Vn925Yrw
|
||||
vHHll92pAuZNvTawO8eC88WxH4dxLDhXHPtxOMeC80Tjj1NoCJ4fjT9OoyF4fjT+OJWG4Hnxbj9OpyF4
|
||||
TjT+mIaG4PHR+GMqGoLHReOP6WgIHheYkobg/nHjj6lpCO4Xb/VlerYC+0XjjxZsBd4fZ/604W7Ae6P0
|
||||
px1bgfdF6U9L/mqx16P0py1bgdfiui/t2Qo8H6U/EWwFHo/Snxi2Ao9F6U8cW4H7o/Qnkq3A7Sj9iWUr
|
||||
8HVc+CGercD1KP1Zgq3A/6P0Zxm2Ap+j9Gc5tgL/pX4WsBxvG7bvZ3Er/zJRpT/Lq/K3br6NHpDkuO0H
|
||||
P1UZPHpIkqP0hw9WOhp05AcXVjkatO+HK1Y4GlT6wxeSjwY9/HCHxH6A0h/ulHY06MgPHpTUD1D6wxMS
|
||||
+gEefnhB56vC9v3woq79APt+eJOO/QClP7xRp36Ahx920OF+gH0/7KS2AjO/X8C+H3Y2cz9A6Q8HmLEf
|
||||
4OGHA83UD/D+fjjYLP0ATT84ydmXhDT94GRnNgXt+2ECZzQFPfwwkSObgpp+MJmjmoKafjCpvZuCmn4w
|
||||
uT2bgvb90MAeTUEPPzTyzqagph809I5fJ6bpB029ejLg4Yfmnj0ZqI+pjwWae+ZkQNMPgjxyMuDhh0D3
|
||||
nAzo+EOwryYBTT8Id+1kwMMPi7g8GXDHHxazTQKO+2BR9eDr+AMAAAAAAAAAAAAAAAAAAAAAAAAAABzj
|
||||
27d/ABBabbXEUZDWAAAAAElFTkSuQmCC
|
||||
</value>
|
||||
</data>
|
||||
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
AAABAAEAgIAAAAEAGAAoyAAAFgAAACgAAACAAAAAAAEAAAEAGAAAAAAAAMgAAMQOAADEDgAAAAAAAAAA
|
||||
|
||||
@@ -32,6 +32,9 @@
|
||||
cboMannFrau.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Frau", "Frau"))
|
||||
|
||||
cboKontaktArt.fillWithSQL("SELECT [kka_id],[kka_Bezeichnung] FROM [tblKundenKontaktArten]", False, "FMZOLL", False)
|
||||
cbxLand.fillWithSQL(" select distinct landkz, Währungstabelle.Land from Währungstabelle where landkz is not null order by LandKz", , "FMZOLL", True)
|
||||
cbxLand.changeItem("")
|
||||
|
||||
If cboKontaktArt.Items.Count > 0 Then cboKontaktArt.SelectedIndex = 0
|
||||
|
||||
If kkd_id > 0 Then
|
||||
@@ -58,6 +61,12 @@
|
||||
lblEmailCC.Text = If(KD_KONTAKT.kkd_EmailCC, "")
|
||||
lblEmailBCC.Text = If(KD_KONTAKT.kkd_EmailBCC, "")
|
||||
lblMobil.Text = If(KD_KONTAKT.kkd_Mobil, "")
|
||||
txtOrt.Text = If(KD_KONTAKT.kkd_Ort, "")
|
||||
txtStrasse.Text = If(KD_KONTAKT.kkd_Adresse, "")
|
||||
txtPLZ.Text = If(KD_KONTAKT.kkd_PLZ, "")
|
||||
If Not IsDBNull(KD_KONTAKT.kkd_Land) Then cbxLand.changeItem(KD_KONTAKT.kkd_Land)
|
||||
txtGebDatum.Text = IIf(Not IsDBNull(KD_KONTAKT.kkd_GebDatum) AndAlso IsDate(KD_KONTAKT.kkd_GebDatum), CDate(KD_KONTAKT.kkd_GebDatum), "")
|
||||
|
||||
End Sub
|
||||
|
||||
Sub getvalue()
|
||||
@@ -78,6 +87,12 @@
|
||||
KD_KONTAKT.kkd_EmailBCC = lblEmailBCC.Text
|
||||
KD_KONTAKT.kkd_Mobil = lblMobil.Text
|
||||
|
||||
KD_KONTAKT.kkd_GebDatum = IIf(txtGebDatum.Text <> "" AndAlso IsDate(txtGebDatum.Text), txtGebDatum.Text, "")
|
||||
KD_KONTAKT.kkd_Ort = txtOrt.Text
|
||||
KD_KONTAKT.kkd_Land = cbxLand._value
|
||||
KD_KONTAKT.kkd_PLZ = txtPLZ.Text
|
||||
KD_KONTAKT.kkd_Adresse = txtStrasse.Text
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click
|
||||
@@ -86,7 +101,4 @@
|
||||
Me.Close()
|
||||
End Sub
|
||||
|
||||
Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles lblEmailCC.TextChanged
|
||||
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
1189
SDL/kunden/frmKundenblatt.Designer.vb
generated
1189
SDL/kunden/frmKundenblatt.Designer.vb
generated
File diff suppressed because it is too large
Load Diff
@@ -40,6 +40,7 @@ Public Class frmKundenblatt
|
||||
Private InfoDauer As Integer = 3
|
||||
Private WithEvents timShow As New Timer With {.Interval = 10}
|
||||
Private WithEvents timHide As New Timer With {.Interval = 10}
|
||||
Dim isVerag360 As Boolean = False
|
||||
|
||||
Sub New()
|
||||
|
||||
@@ -103,6 +104,7 @@ Public Class frmKundenblatt
|
||||
tbcntrMain.ItemSize = New Size(0, 1)
|
||||
tbcntrMain.SizeMode = TabSizeMode.Fixed
|
||||
|
||||
If Not IsDBNull(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_firmaFMZoll) AndAlso CInt(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_firmaFMZoll) = 19 Then isVerag360 = True
|
||||
|
||||
If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_FirmenDatenAnzeige IsNot Nothing AndAlso VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_FirmenDatenAnzeige <> "" Then
|
||||
Dim where = If(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_FirmenDatenAnzeige.contains("A"), "", " AND Firma_ID IN (" & VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_FirmenDatenAnzeige & ") ")
|
||||
@@ -168,6 +170,10 @@ Public Class frmKundenblatt
|
||||
btnOP.Visible = True
|
||||
End If
|
||||
|
||||
If isVerag360 Then
|
||||
ToolStripMenuItem5.Visible = False
|
||||
End If
|
||||
|
||||
loaded = True
|
||||
|
||||
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
||||
@@ -313,7 +319,7 @@ Public Class frmKundenblatt
|
||||
|
||||
'Dim usr As New usrcntlKundeBearbeitenFull(kdNr)
|
||||
|
||||
UsrcntlKundeBearbeitenFull1.init(kdNr)
|
||||
UsrcntlKundeBearbeitenFull1.init(kdNr, isVerag360)
|
||||
|
||||
If FilialeNr > 0 Then
|
||||
UsrcntlKundeBearbeitenFull1.cboFiliale.changeItem(FilialeNr)
|
||||
|
||||
@@ -65,109 +65,118 @@ Public Class usrCntlOfferte
|
||||
|
||||
Sub initDGVOfferteDetails(OffertenNr)
|
||||
loaded = False
|
||||
Try
|
||||
|
||||
With dgvOfferteDetails
|
||||
'.Columns.Clear()
|
||||
With dgvOfferteDetails
|
||||
'.Columns.Clear()
|
||||
|
||||
Try
|
||||
OFFERTEBind = New cEasyBinding(BIND_DB)
|
||||
OFFERTEBind.initBinding(" SELECT [LeistungsNr],[LeistungsBez],[BerechnungsartNr],[Preis],[Anzahl],[BGebLeistungsNr],[BGebProzent],[BGebMinBetrag],BerechnungsartPosInkludiert,[Eingegeben am],[Geändert am],[Sachbearbeiter],[PreisänderungProzent],[PreisAlt],[Preisänderung],KundenNr,OffertenNr " &
|
||||
" FROM [Offertenpositionen] " &
|
||||
" WHERE KundenNr='" & kdNr & "' and OffertenNr='" & OffertenNr & "' ORDER BY LeistungsNr, Preis DESC", "Offertenpositionen")
|
||||
For Each c As DataColumn In OFFERTEBind.bindingdataTable.Columns
|
||||
If c.ColumnName = "SSMA_TimeStamp" Then
|
||||
OFFERTEBind.bindingdataTable.Columns.Remove(c)
|
||||
Exit For
|
||||
End If
|
||||
Next
|
||||
' KASSENBind.initBinding("SELECT * FROM " & table & "", table)
|
||||
Try
|
||||
OFFERTEBind = New cEasyBinding(BIND_DB)
|
||||
OFFERTEBind.initBinding(" SELECT [LeistungsNr],[LeistungsBez],[BerechnungsartNr],[Preis],[Anzahl],[BGebLeistungsNr],[BGebProzent],[BGebMinBetrag],BerechnungsartPosInkludiert,[Eingegeben am],[Geändert am],[Sachbearbeiter],[PreisänderungProzent],[PreisAlt],[Preisänderung],KundenNr,OffertenNr " &
|
||||
" FROM [Offertenpositionen] " &
|
||||
" WHERE KundenNr='" & kdNr & "' and OffertenNr='" & OffertenNr & "' ORDER BY LeistungsNr, Preis DESC", "Offertenpositionen")
|
||||
For Each c As DataColumn In OFFERTEBind.bindingdataTable.Columns
|
||||
If c.ColumnName = "SSMA_TimeStamp" Then
|
||||
OFFERTEBind.bindingdataTable.Columns.Remove(c)
|
||||
Exit For
|
||||
End If
|
||||
Next
|
||||
' KASSENBind.initBinding("SELECT * FROM " & table & "", table)
|
||||
|
||||
.DataSource = OFFERTEBind.bindingdataTable
|
||||
' DataGridView.AutoSize = True
|
||||
' OFFERTEBind.bindingdataTable.PrimaryKey = {OFFERTEBind.bindingdataTable.Columns("KundenNr"), OFFERTEBind.bindingdataTable.Columns("LeistungsNr"), OFFERTEBind.bindingdataTable.Columns("LeistungsNr"), OFFERTEBind.bindingdataTable.Columns("LeistungsBez")}
|
||||
.DataSource = OFFERTEBind.bindingdataTable
|
||||
' DataGridView.AutoSize = True
|
||||
' OFFERTEBind.bindingdataTable.PrimaryKey = {OFFERTEBind.bindingdataTable.Columns("KundenNr"), OFFERTEBind.bindingdataTable.Columns("LeistungsNr"), OFFERTEBind.bindingdataTable.Columns("LeistungsNr"), OFFERTEBind.bindingdataTable.Columns("LeistungsBez")}
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message)
|
||||
End Try
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message)
|
||||
End Try
|
||||
|
||||
|
||||
'.DataSource = SQL.loadDgvBySql(" SELECT [LeistungsNr],[LeistungsBez],[BerechnungsartNr],[Preis],[Anzahl],[BGebLeistungsNr],[BGebProzent],[BGebMinBetrag],[Eingegeben am],[Geändert am],[Sachbearbeiter],[PreisänderungProzent],[PreisAlt],[Preisänderung] " &
|
||||
' " FROM [Offertenpositionen] " &
|
||||
' " WHERE KundenNr='" & kdNr & "' and OffertenNr='" & OffertenNr & "' ORDER BY LeistungsNr ", "FMZOLL")
|
||||
'.DataSource = SQL.loadDgvBySql(" SELECT [LeistungsNr],[LeistungsBez],[BerechnungsartNr],[Preis],[Anzahl],[BGebLeistungsNr],[BGebProzent],[BGebMinBetrag],[Eingegeben am],[Geändert am],[Sachbearbeiter],[PreisänderungProzent],[PreisAlt],[Preisänderung] " &
|
||||
' " FROM [Offertenpositionen] " &
|
||||
' " WHERE KundenNr='" & kdNr & "' and OffertenNr='" & OffertenNr & "' ORDER BY LeistungsNr ", "FMZOLL")
|
||||
|
||||
FUNC.dgvCellToCbo(dgvOfferteDetails, 2, "Berechnungsart", "BerechnungsartNr", " SELECT [BerechnungsartNr], CAST(BerechnungsartNr as varchar(3)) + ' - ' + [BerechnungsartBez] as [BerechnungsartBez] FROM [Berechnungsart] ORDER BY BerechnungsartNr ", "FMZOLL", 150)
|
||||
FUNC.dgvCellToCbo(dgvOfferteDetails, 5, "BGebLeist.", "BGebLeistungsNr", " SELECT [LeistungsNr], CAST(LeistungsNr as varchar(3)) + ' - ' + [LeistungsBez] as LeistungsBez FROM [Leistungen] ORDER BY [LeistungsNr] ", "FMZOLL", 250)
|
||||
FUNC.dgvCellToCbo(dgvOfferteDetails, 2, "Berechnungsart", "BerechnungsartNr", " SELECT [BerechnungsartNr], CAST(BerechnungsartNr as varchar(3)) + ' - ' + [BerechnungsartBez] as [BerechnungsartBez] FROM [Berechnungsart] ORDER BY BerechnungsartNr ", "FMZOLL", 150)
|
||||
FUNC.dgvCellToCbo(dgvOfferteDetails, 5, "BGebLeist.", "BGebLeistungsNr", " SELECT [LeistungsNr], CAST(LeistungsNr as varchar(3)) + ' - ' + [LeistungsBez] as LeistungsBez FROM [Leistungen] ORDER BY [LeistungsNr] ", "FMZOLL", 250)
|
||||
|
||||
checkPerimissionsDGVDetails()
|
||||
checkPerimissionsDGVDetails()
|
||||
|
||||
.Columns("OffertenNr").Visible = False
|
||||
.Columns("KundenNr").Visible = False
|
||||
.Columns("LeistungsNr").Width = 30
|
||||
.Columns("LeistungsNr").HeaderText = "Nr"
|
||||
.Columns("LeistungsBez").MinimumWidth = 200
|
||||
.Columns("LeistungsBez").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
|
||||
.Columns("LeistungsBez").HeaderText = "Leistung"
|
||||
.Columns("BerechnungsartNr").MinimumWidth = 150
|
||||
.Columns("Preis").Width = 60
|
||||
.Columns("Preis").DefaultCellStyle.Format = "N2"
|
||||
.Columns("Preis").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight
|
||||
.Columns("Anzahl").Width = 50
|
||||
.Columns("Anzahl").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
|
||||
.Columns("OffertenNr").Visible = False
|
||||
.Columns("KundenNr").Visible = False
|
||||
.Columns("LeistungsNr").Width = 30
|
||||
.Columns("LeistungsNr").HeaderText = "Nr"
|
||||
.Columns("LeistungsBez").MinimumWidth = 200
|
||||
.Columns("LeistungsBez").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
|
||||
.Columns("LeistungsBez").HeaderText = "Leistung"
|
||||
.Columns("BerechnungsartNr").MinimumWidth = 150
|
||||
.Columns("Preis").Width = 60
|
||||
.Columns("Preis").DefaultCellStyle.Format = "N2"
|
||||
.Columns("Preis").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight
|
||||
.Columns("Anzahl").Width = 50
|
||||
.Columns("Anzahl").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
|
||||
|
||||
.Columns("BerechnungsartPosInkludiert").HeaderText = "Pos.inkl."
|
||||
.Columns("BerechnungsartPosInkludiert").Width = 45
|
||||
.Columns("BerechnungsartPosInkludiert").HeaderText = "Pos.inkl."
|
||||
.Columns("BerechnungsartPosInkludiert").Width = 45
|
||||
|
||||
.Columns("BGebLeistungsNr").Width = 60
|
||||
.Columns("BGebProzent").Width = 55
|
||||
.Columns("BGebProzent").HeaderText = "BGeb %"
|
||||
.Columns("BGebProzent").DefaultCellStyle.Format = "P"
|
||||
.Columns("BGebProzent").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight
|
||||
.Columns("BGebMinBetrag").Width = 60
|
||||
.Columns("BGebMinBetrag").HeaderText = "BGebMinBetr."
|
||||
.Columns("BGebMinBetrag").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight
|
||||
.Columns("Eingegeben am").Visible = False
|
||||
' .Columns("Sachbearbeiter").Visible = False
|
||||
' .Columns("Geändert am").Visible = False
|
||||
.Columns("PreisänderungProzent").Width = 70
|
||||
.Columns("PreisänderungProzent").HeaderText = "Preisänd. %"
|
||||
.Columns("PreisänderungProzent").DefaultCellStyle.Format = "P"
|
||||
.Columns("PreisänderungProzent").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight
|
||||
.Columns("PreisAlt").Width = 60
|
||||
.Columns("PreisAlt").DefaultCellStyle.Format = "N2"
|
||||
.Columns("PreisAlt").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight
|
||||
.Columns("Preisänderung").Width = 60
|
||||
.Columns("Preisänderung").HeaderText = "PreisNeu"
|
||||
.Columns("Preisänderung").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight
|
||||
' .Columns("OffertenBez").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
|
||||
' .Columns("OffertenBez").HeaderText = "Bezeichnung"
|
||||
.Columns("BGebLeistungsNr").Width = 60
|
||||
.Columns("BGebProzent").Width = 55
|
||||
.Columns("BGebProzent").HeaderText = "BGeb %"
|
||||
.Columns("BGebProzent").DefaultCellStyle.Format = "P"
|
||||
.Columns("BGebProzent").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight
|
||||
.Columns("BGebMinBetrag").Width = 60
|
||||
.Columns("BGebMinBetrag").HeaderText = "BGebMinBetr."
|
||||
.Columns("BGebMinBetrag").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight
|
||||
.Columns("Eingegeben am").Visible = False
|
||||
' .Columns("Sachbearbeiter").Visible = False
|
||||
' .Columns("Geändert am").Visible = False
|
||||
.Columns("PreisänderungProzent").Width = 70
|
||||
.Columns("PreisänderungProzent").HeaderText = "Preisänd. %"
|
||||
.Columns("PreisänderungProzent").DefaultCellStyle.Format = "P"
|
||||
.Columns("PreisänderungProzent").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight
|
||||
.Columns("PreisAlt").Width = 60
|
||||
.Columns("PreisAlt").DefaultCellStyle.Format = "N2"
|
||||
.Columns("PreisAlt").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight
|
||||
.Columns("Preisänderung").Width = 60
|
||||
.Columns("Preisänderung").HeaderText = "PreisNeu"
|
||||
.Columns("Preisänderung").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight
|
||||
' .Columns("OffertenBez").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
|
||||
' .Columns("OffertenBez").HeaderText = "Bezeichnung"
|
||||
|
||||
loaded = True
|
||||
End With
|
||||
loaded = True
|
||||
End With
|
||||
|
||||
DGVHasChaged = False
|
||||
DGVHasChaged = False
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Private Sub dgvOfferteDetails_SelectionChanged(sender As Object, e As EventArgs) Handles dgvOfferteNew.SelectionChanged
|
||||
|
||||
cbxArchivierteOffertenAnzeigen.Checked = False
|
||||
cbxArchivierteOfferten.Items.Clear()
|
||||
checkPermissions()
|
||||
If dgvOfferteNew.RowCount > 0 Then
|
||||
|
||||
rtbBesonderheiten.Text = cSqlDb.checkNullStr(dgvOfferteNew.Rows(0).Cells("Besonderheiten").Value)
|
||||
Else
|
||||
btnStandardLaden.Visible = False
|
||||
cbxArchivierteOfferten.Enabled = False
|
||||
rtbBesonderheiten.Text = ""
|
||||
End If
|
||||
Try
|
||||
|
||||
|
||||
If dgvOfferteNew.SelectedRows.Count > 0 Then
|
||||
initDGVOfferteDetails(dgvOfferteNew.SelectedRows(0).Cells("OffertenNr").Value)
|
||||
End If
|
||||
cbxArchivierteOffertenAnzeigen.Checked = False
|
||||
cbxArchivierteOfferten.Items.Clear()
|
||||
checkPermissions()
|
||||
If dgvOfferteNew.RowCount > 0 Then
|
||||
|
||||
rtbBesonderheiten.Text = cSqlDb.checkNullStr(dgvOfferteNew.Rows(0).Cells("Besonderheiten").Value)
|
||||
Else
|
||||
btnStandardLaden.Visible = False
|
||||
cbxArchivierteOfferten.Enabled = False
|
||||
rtbBesonderheiten.Text = ""
|
||||
End If
|
||||
|
||||
|
||||
If dgvOfferteNew.SelectedRows.Count > 0 Then
|
||||
initDGVOfferteDetails(dgvOfferteNew.SelectedRows(0).Cells("OffertenNr").Value)
|
||||
End If
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
|
||||
@@ -206,30 +215,35 @@ Public Class usrCntlOfferte
|
||||
|
||||
Private Sub btnAddLeistung_Click(sender As Object, e As EventArgs) Handles btnAddLeistung.Click
|
||||
|
||||
Try
|
||||
|
||||
Dim SQLsrt = " SELECT (select case when COUNT(*)>0 then 1 else 0 end FROM Offertenpositionen where KundenNr=" & kdNr & " and [Offertenpositionen].[OffertenNr]=[Offertenstamm].[OffertenNr]) as vorhanden," &
|
||||
Dim SQLsrt = " SELECT (select case when COUNT(*)>0 then 1 else 0 end FROM Offertenpositionen where KundenNr=" & kdNr & " and [Offertenpositionen].[OffertenNr]=[Offertenstamm].[OffertenNr]) as vorhanden," &
|
||||
" [Offertenstamm].[OffertenNr],[OffertenBez] FROM Offertenstamm "
|
||||
|
||||
For Each r As DataRow In SQL.loadDgvBySql(SQLsrt, "FMZOLL").Rows
|
||||
If Not CBool(r("vorhanden")) Then
|
||||
Dim i As New ToolStripMenuItem
|
||||
i.Text = r("OffertenNr") & " - " & r("OffertenBez")
|
||||
i.Name = "tsmiOffertNr_" & r("OffertenNr")
|
||||
i.Tag = r("OffertenNr")
|
||||
cntxtAddSdl.Items.Add(i)
|
||||
' If s.Sperre <> 0 Then i.Enabled = False : i.Text = i.Text & " (gesperrt)"
|
||||
AddHandler i.Click, AddressOf AddOffert_Click
|
||||
End If
|
||||
Next
|
||||
For Each r As DataRow In SQL.loadDgvBySql(SQLsrt, "FMZOLL").Rows
|
||||
If Not CBool(r("vorhanden")) Then
|
||||
Dim i As New ToolStripMenuItem
|
||||
i.Text = r("OffertenNr") & " - " & r("OffertenBez")
|
||||
i.Name = "tsmiOffertNr_" & r("OffertenNr")
|
||||
i.Tag = r("OffertenNr")
|
||||
cntxtAddSdl.Items.Add(i)
|
||||
' If s.Sperre <> 0 Then i.Enabled = False : i.Text = i.Text & " (gesperrt)"
|
||||
AddHandler i.Click, AddressOf AddOffert_Click
|
||||
End If
|
||||
Next
|
||||
|
||||
|
||||
|
||||
btnAddLeistung.ContextMenuStrip = cntxtAddSdl
|
||||
' cntxtAddSdl
|
||||
Dim ptLowerLeft As New Point(sender.width, sender.Height)
|
||||
ptLowerLeft = sender.PointToScreen(ptLowerLeft)
|
||||
ptLowerLeft.X -= sender.width
|
||||
cntxtAddSdl.Show(ptLowerLeft)
|
||||
btnAddLeistung.ContextMenuStrip = cntxtAddSdl
|
||||
' cntxtAddSdl
|
||||
Dim ptLowerLeft As New Point(sender.width, sender.Height)
|
||||
ptLowerLeft = sender.PointToScreen(ptLowerLeft)
|
||||
ptLowerLeft.X -= sender.width
|
||||
cntxtAddSdl.Show(ptLowerLeft)
|
||||
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub AddOffert_Click(sender As Object, e As EventArgs) Handles DToolStripMenuItem.Click
|
||||
@@ -244,47 +258,54 @@ Public Class usrCntlOfferte
|
||||
|
||||
|
||||
Private Sub btnHinzufuegen_Click_1(sender As Object, e As EventArgs) Handles btnHinzufuegen.Click
|
||||
If edit = False Then
|
||||
MsgBox("Bitte vorher in den Editiermodus wechseln")
|
||||
Exit Sub
|
||||
End If
|
||||
lblLeistunAddErr.Visible = False
|
||||
lblLeistunAddErr2.Visible = False
|
||||
Label3.Visible = False
|
||||
|
||||
If dgvOfferteNew.SelectedRows.Count <> 1 Then
|
||||
Label3.Visible = True
|
||||
End If
|
||||
'Fehlerprüfung:
|
||||
'-------
|
||||
If cboLeistungenAdd._value = "" Then lblLeistunAddErr.Visible = True : Exit Sub
|
||||
If LeistungsBezexists(cboLeistungenAdd._value, MyTextBox1.Text, dgvOfferteNew.SelectedRows(0).Cells("OffertenNr").Value) Then lblLeistunAddErr2.Visible = True : Exit Sub
|
||||
'-------
|
||||
Try
|
||||
|
||||
Dim l As New VERAG_PROG_ALLGEMEIN.cLeistungen(cboLeistungenAdd._value)
|
||||
Dim o As New VERAG_PROG_ALLGEMEIN.cOffertPosition
|
||||
o.KundenNr = kdNr
|
||||
o.LeistungsNr = l.LeistungsNr
|
||||
o.LeistungsBez = MyTextBox1.Text
|
||||
o.OffertenNr = dgvOfferteNew.SelectedRows(0).Cells("OffertenNr").Value
|
||||
'o.Preis=l.preis
|
||||
o.BerechnungsartNr = l.BerechnungsartNr
|
||||
'o.Anzahl = l.m
|
||||
'o.BGebLeistungsNr = l.BGebUStV
|
||||
'o.BGebProzent = l.XXXXXXXXXX
|
||||
'o.BGebMinBetrag = l.XXXXXXXXXX
|
||||
o.Eingegeben_am = Now
|
||||
'o.Geändert_am = l.XXXXXXXXXX
|
||||
o.Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
|
||||
'o.Preisänderung = l.Preissperre
|
||||
'o.PreisänderungProzent = l.XXXXXXXXXX
|
||||
'o.PreisAlt = l.XXXXXXXXXX
|
||||
If o.INSERT() Then
|
||||
cboLeistungenAdd.changeItem("")
|
||||
initDGVOfferteDetails(o.OffertenNr)
|
||||
addLeistung = True
|
||||
End If
|
||||
|
||||
If edit = False Then
|
||||
MsgBox("Bitte vorher in den Editiermodus wechseln")
|
||||
Exit Sub
|
||||
End If
|
||||
lblLeistunAddErr.Visible = False
|
||||
lblLeistunAddErr2.Visible = False
|
||||
Label3.Visible = False
|
||||
|
||||
If dgvOfferteNew.SelectedRows.Count <> 1 Then
|
||||
Label3.Visible = True
|
||||
End If
|
||||
'Fehlerprüfung:
|
||||
'-------
|
||||
If cboLeistungenAdd._value = "" Then lblLeistunAddErr.Visible = True : Exit Sub
|
||||
If LeistungsBezexists(cboLeistungenAdd._value, MyTextBox1.Text, dgvOfferteNew.SelectedRows(0).Cells("OffertenNr").Value) Then lblLeistunAddErr2.Visible = True : Exit Sub
|
||||
'-------
|
||||
|
||||
Dim l As New VERAG_PROG_ALLGEMEIN.cLeistungen(cboLeistungenAdd._value)
|
||||
Dim o As New VERAG_PROG_ALLGEMEIN.cOffertPosition
|
||||
o.KundenNr = kdNr
|
||||
o.LeistungsNr = l.LeistungsNr
|
||||
o.LeistungsBez = MyTextBox1.Text
|
||||
o.OffertenNr = dgvOfferteNew.SelectedRows(0).Cells("OffertenNr").Value
|
||||
'o.Preis=l.preis
|
||||
o.BerechnungsartNr = l.BerechnungsartNr
|
||||
'o.Anzahl = l.m
|
||||
'o.BGebLeistungsNr = l.BGebUStV
|
||||
'o.BGebProzent = l.XXXXXXXXXX
|
||||
'o.BGebMinBetrag = l.XXXXXXXXXX
|
||||
o.Eingegeben_am = Now
|
||||
'o.Geändert_am = l.XXXXXXXXXX
|
||||
o.Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
|
||||
'o.Preisänderung = l.Preissperre
|
||||
'o.PreisänderungProzent = l.XXXXXXXXXX
|
||||
'o.PreisAlt = l.XXXXXXXXXX
|
||||
If o.INSERT() Then
|
||||
cboLeistungenAdd.changeItem("")
|
||||
initDGVOfferteDetails(o.OffertenNr)
|
||||
addLeistung = True
|
||||
End If
|
||||
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Function LeistungsBezexists(LeistungsNr, LeistungsBez, OffertenNr)
|
||||
@@ -307,28 +328,36 @@ Public Class usrCntlOfferte
|
||||
End Sub
|
||||
|
||||
Private Sub dgvOfferteDetails_CellValueChanged(sender As Object, e As DataGridViewCellEventArgs) Handles dgvOfferteDetails.CellValueChanged
|
||||
If loaded = True Then
|
||||
dgvOfferteDetails.Rows(e.RowIndex).Cells("Sachbearbeiter").Value = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
|
||||
dgvOfferteDetails.Rows(e.RowIndex).Cells("Geändert am").Value = Now
|
||||
DGVHasChaged = True
|
||||
'saveCurrentOffert()
|
||||
If isNew = True Then
|
||||
Try
|
||||
|
||||
currentOffert.Art = "Neuanlage"
|
||||
currentOffert.SAVE()
|
||||
|
||||
Else
|
||||
If loaded = True Then
|
||||
dgvOfferteDetails.Rows(e.RowIndex).Cells("Sachbearbeiter").Value = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
|
||||
dgvOfferteDetails.Rows(e.RowIndex).Cells("Geändert am").Value = Now
|
||||
DGVHasChaged = True
|
||||
'saveCurrentOffert()
|
||||
If isNew = True Then
|
||||
|
||||
currentOffert.Art = "Neuanlage"
|
||||
currentOffert.SAVE()
|
||||
|
||||
Else
|
||||
|
||||
currentOffert.Art = "Geändert"
|
||||
currentOffert.SAVE()
|
||||
End If
|
||||
|
||||
currentOffert.Art = "Geändert"
|
||||
currentOffert.SAVE()
|
||||
End If
|
||||
|
||||
End If
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub btnDeleteOfferte_Click(sender As Object, e As EventArgs) Handles btnDeleteOfferte.Click
|
||||
If dgvOfferteNew.SelectedRows.Count = 1 Then
|
||||
Try
|
||||
|
||||
If dgvOfferteNew.SelectedRows.Count = 1 Then
|
||||
If vbYes = MsgBox("Möchten Sie das Offert '" & dgvOfferteNew.SelectedRows(0).Cells("OffertenBez").Value & "' wirklich löschen", vbYesNoCancel) Then
|
||||
saveCurrentOffert()
|
||||
currentOffert.Art = "Offert gelöscht"
|
||||
@@ -340,20 +369,30 @@ Public Class usrCntlOfferte
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub btnOfferteSpeichern_Click(sender As Object, e As EventArgs) Handles btnOfferteSpeichern.Click
|
||||
KD_ERW.AutoFakturierung = cbxAutoFakturierung.Checked
|
||||
KD_ERW.SAVE()
|
||||
Try
|
||||
|
||||
checkPerimissionsDGVDetails()
|
||||
edit = False
|
||||
handleEditMode(edit)
|
||||
saveToArchive()
|
||||
KD_ERW.AutoFakturierung = cbxAutoFakturierung.Checked
|
||||
KD_ERW.SAVE()
|
||||
|
||||
OFFERTEBind.updateBinding()
|
||||
RaiseEvent OfferteChanged()
|
||||
DGVHasChaged = False
|
||||
checkPerimissionsDGVDetails()
|
||||
edit = False
|
||||
handleEditMode(edit)
|
||||
saveToArchive()
|
||||
|
||||
OFFERTEBind.updateBinding()
|
||||
RaiseEvent OfferteChanged()
|
||||
DGVHasChaged = False
|
||||
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
|
||||
@@ -368,81 +407,93 @@ Public Class usrCntlOfferte
|
||||
|
||||
Private Sub OfferteArchivieren(Optional Art As String = "")
|
||||
|
||||
currentOffertArchiv = New VERAG_PROG_ALLGEMEIN.cOfferteArchiv()
|
||||
currentOffertArchiv.KundenNr = currentOffert.KundenNr
|
||||
currentOffertArchiv.FilialenNr = currentOffert.FilialenNr
|
||||
currentOffertArchiv.OffertenNr = currentOffert.OffertenNr
|
||||
currentOffertArchiv.Standardofferte = currentOffert.Standardofferte
|
||||
currentOffertArchiv.Besonderheiten = currentOffert.Besonderheiten
|
||||
currentOffertArchiv.Eingegeben_am = currentOffert.Eingegeben_am
|
||||
currentOffertArchiv.Geändert_am = currentOffert.Geändert_am
|
||||
currentOffertArchiv.Sachbearbeiter = currentOffert.Sachbearbeiter
|
||||
currentOffertArchiv.SSMA_TimeStamp = currentOffert.SSMA_TimeStamp
|
||||
currentOffertArchiv.Gesperrt = currentOffert.Gesperrt
|
||||
currentOffertArchiv.Gesperrt_Datum = currentOffert.Gesperrt_Datum
|
||||
currentOffertArchiv.Gesperrt_Grund = currentOffert.Gesperrt_Grund
|
||||
currentOffertArchiv.Art = currentOffert.Art
|
||||
ofID = currentOffertArchiv.SAVERETURNID()
|
||||
Try
|
||||
|
||||
If ofID > 0 Then
|
||||
For Each row As DataRow In tmpDataTable.Rows
|
||||
If tmpDataTable.Rows.Count = 0 Then Exit Sub
|
||||
Dim oP As New VERAG_PROG_ALLGEMEIN.cOffertPositionArchiv
|
||||
oP.OfID = ofID
|
||||
oP.KundenNr = currentOffertArchiv.KundenNr
|
||||
oP.LeistungsNr = row("LeistungsNr")
|
||||
oP.LeistungsBez = row("LeistungsBez")
|
||||
oP.OffertenNr = currentOffertArchiv.OffertenNr
|
||||
oP.BerechnungsartNr = row("BerechnungsartNr")
|
||||
oP.Preis = row("Preis")
|
||||
oP.Anzahl = row("Anzahl")
|
||||
oP.BGebLeistungsNr = row("BGebLeistungsNr")
|
||||
oP.BGebProzent = row("BGebProzent")
|
||||
oP.BGebMinBetrag = row("BGebMinBetrag")
|
||||
oP.Eingegeben_am = row("Eingegeben am")
|
||||
oP.Geändert_am = row("Geändert am")
|
||||
oP.Sachbearbeiter = row("Sachbearbeiter")
|
||||
oP.Preisänderung = row("Preisänderung")
|
||||
oP.PreisänderungProzent = row("PreisänderungProzent")
|
||||
oP.PreisAlt = row("PreisAlt")
|
||||
oP.BerechnungsartPosInkludiert = row("BerechnungsartPosInkludiert")
|
||||
oP.INSERT()
|
||||
Next
|
||||
|
||||
End If
|
||||
|
||||
currentOffertArchiv = New VERAG_PROG_ALLGEMEIN.cOfferteArchiv()
|
||||
currentOffertArchiv.KundenNr = currentOffert.KundenNr
|
||||
currentOffertArchiv.FilialenNr = currentOffert.FilialenNr
|
||||
currentOffertArchiv.OffertenNr = currentOffert.OffertenNr
|
||||
currentOffertArchiv.Standardofferte = currentOffert.Standardofferte
|
||||
currentOffertArchiv.Besonderheiten = currentOffert.Besonderheiten
|
||||
currentOffertArchiv.Eingegeben_am = currentOffert.Eingegeben_am
|
||||
currentOffertArchiv.Geändert_am = currentOffert.Geändert_am
|
||||
currentOffertArchiv.Sachbearbeiter = currentOffert.Sachbearbeiter
|
||||
currentOffertArchiv.SSMA_TimeStamp = currentOffert.SSMA_TimeStamp
|
||||
currentOffertArchiv.Gesperrt = currentOffert.Gesperrt
|
||||
currentOffertArchiv.Gesperrt_Datum = currentOffert.Gesperrt_Datum
|
||||
currentOffertArchiv.Gesperrt_Grund = currentOffert.Gesperrt_Grund
|
||||
currentOffertArchiv.Art = currentOffert.Art
|
||||
ofID = currentOffertArchiv.SAVERETURNID()
|
||||
|
||||
If ofID > 0 Then
|
||||
For Each row As DataRow In tmpDataTable.Rows
|
||||
If tmpDataTable.Rows.Count = 0 Then Exit Sub
|
||||
Dim oP As New VERAG_PROG_ALLGEMEIN.cOffertPositionArchiv
|
||||
oP.OfID = ofID
|
||||
oP.KundenNr = currentOffertArchiv.KundenNr
|
||||
oP.LeistungsNr = row("LeistungsNr")
|
||||
oP.LeistungsBez = row("LeistungsBez")
|
||||
oP.OffertenNr = currentOffertArchiv.OffertenNr
|
||||
oP.BerechnungsartNr = row("BerechnungsartNr")
|
||||
oP.Preis = row("Preis")
|
||||
oP.Anzahl = row("Anzahl")
|
||||
oP.BGebLeistungsNr = row("BGebLeistungsNr")
|
||||
oP.BGebProzent = row("BGebProzent")
|
||||
oP.BGebMinBetrag = row("BGebMinBetrag")
|
||||
oP.Eingegeben_am = row("Eingegeben am")
|
||||
oP.Geändert_am = row("Geändert am")
|
||||
oP.Sachbearbeiter = row("Sachbearbeiter")
|
||||
oP.Preisänderung = row("Preisänderung")
|
||||
oP.PreisänderungProzent = row("PreisänderungProzent")
|
||||
oP.PreisAlt = row("PreisAlt")
|
||||
oP.BerechnungsartPosInkludiert = row("BerechnungsartPosInkludiert")
|
||||
oP.INSERT()
|
||||
Next
|
||||
|
||||
End If
|
||||
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub btnStandardLaden_Click(sender As Object, e As EventArgs) Handles btnStandardLaden.Click
|
||||
|
||||
Try
|
||||
|
||||
|
||||
Dim KUNDE As New VERAG_PROG_ALLGEMEIN.cKunde(kdNr)
|
||||
Dim FIRMA_TMP = VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale(KUNDE.FilialenNr)
|
||||
Dim KUNDE As New VERAG_PROG_ALLGEMEIN.cKunde(kdNr)
|
||||
Dim FIRMA_TMP = VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale(KUNDE.FilialenNr)
|
||||
|
||||
If Not vbYes = MsgBox("Möchten Sie die Standardofferte für den Kunden " & KUNDE.KundenNr & " laden?" & vbNewLine & "Aktuelle Offerteneinstellungen werden gelöscht.", vbYesNo) Then Exit Sub
|
||||
If Not vbYes = MsgBox("Möchten Sie die Standardofferte für den Kunden " & KUNDE.KundenNr & " laden?" & vbNewLine & "Aktuelle Offerteneinstellungen werden gelöscht.", vbYesNo) Then Exit Sub
|
||||
|
||||
edit = True
|
||||
handleEditMode(edit)
|
||||
saveCurrentOffert()
|
||||
edit = True
|
||||
handleEditMode(edit)
|
||||
saveCurrentOffert()
|
||||
|
||||
If SQL.doSQL("DELETE FROM Offerten where [KundenNr]='" & kdNr & "' AND [OffertenNr]='" & dgvOfferteNew.SelectedRows(0).Cells("OffertenNr").Value & "' ", "FMZOLL") Then
|
||||
isStandard = True
|
||||
isNew = True
|
||||
currentOffert.Art = "Neuer Standard erstellt"
|
||||
currentOffert.SAVE()
|
||||
currentOffert.LOAD_POSITIONEN()
|
||||
If currentOffert.POSITIONEN.Count = 0 Then '
|
||||
currentOffert.RESET_STANDARTOFFERTEN_FIRMA(VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME, FIRMA_TMP)
|
||||
If SQL.doSQL("DELETE FROM Offerten where [KundenNr]='" & kdNr & "' AND [OffertenNr]='" & dgvOfferteNew.SelectedRows(0).Cells("OffertenNr").Value & "' ", "FMZOLL") Then
|
||||
isStandard = True
|
||||
isNew = True
|
||||
currentOffert.Art = "Neuer Standard erstellt"
|
||||
currentOffert.SAVE()
|
||||
currentOffert.LOAD_POSITIONEN()
|
||||
If currentOffert.POSITIONEN.Count = 0 Then '
|
||||
currentOffert.RESET_STANDARTOFFERTEN_FIRMA(VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME, FIRMA_TMP)
|
||||
End If
|
||||
|
||||
dgvOfferteNew.GetOrder()
|
||||
initDGVOfferte()
|
||||
dgvOfferteNew.SetOrder()
|
||||
RaiseEvent OfferteChanged()
|
||||
isStandard = True
|
||||
isNew = True
|
||||
End If
|
||||
|
||||
dgvOfferteNew.GetOrder()
|
||||
initDGVOfferte()
|
||||
dgvOfferteNew.SetOrder()
|
||||
RaiseEvent OfferteChanged()
|
||||
isStandard = True
|
||||
isNew = True
|
||||
End If
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
|
||||
@@ -489,110 +540,122 @@ Public Class usrCntlOfferte
|
||||
|
||||
Private Sub checkPerimissionsDGVDetails()
|
||||
|
||||
With dgvOfferteDetails
|
||||
Try
|
||||
With dgvOfferteDetails
|
||||
|
||||
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("OFFERTE_BEARBEITEN", "SDL") Then
|
||||
For Each c As DataGridViewColumn In .Columns
|
||||
c.ReadOnly = True
|
||||
handleEditMode(False)
|
||||
Next
|
||||
dgvOfferteDetails.AllowUserToDeleteRows = False
|
||||
Else
|
||||
For Each c As DataGridViewColumn In .Columns
|
||||
If (c.Name = "Preis" Or c.Name = "LeistungsBez" Or c.Name = "Anzahl" Or c.Name = "BerechnungsartNr" Or c.Name = "BerechnungsartPosInkludiert") Then
|
||||
If edit Then
|
||||
c.ReadOnly = False
|
||||
handleEditMode(edit)
|
||||
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("OFFERTE_BEARBEITEN", "SDL") Then
|
||||
For Each c As DataGridViewColumn In .Columns
|
||||
c.ReadOnly = True
|
||||
handleEditMode(False)
|
||||
Next
|
||||
dgvOfferteDetails.AllowUserToDeleteRows = False
|
||||
Else
|
||||
For Each c As DataGridViewColumn In .Columns
|
||||
If (c.Name = "Preis" Or c.Name = "LeistungsBez" Or c.Name = "Anzahl" Or c.Name = "BerechnungsartNr" Or c.Name = "BerechnungsartPosInkludiert") Then
|
||||
If edit Then
|
||||
c.ReadOnly = False
|
||||
handleEditMode(edit)
|
||||
Else
|
||||
c.ReadOnly = True
|
||||
handleEditMode(edit)
|
||||
End If
|
||||
Else
|
||||
c.ReadOnly = True
|
||||
handleEditMode(edit)
|
||||
|
||||
End If
|
||||
Else
|
||||
c.ReadOnly = True
|
||||
Next
|
||||
dgvOfferteDetails.AllowUserToDeleteRows = edit
|
||||
End If
|
||||
|
||||
End If
|
||||
Next
|
||||
dgvOfferteDetails.AllowUserToDeleteRows = edit
|
||||
End If
|
||||
End With
|
||||
|
||||
End With
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub initDGVOfferteDetailsArchived(OffertenId)
|
||||
Try
|
||||
|
||||
loaded = False
|
||||
DGVHasChaged = False
|
||||
|
||||
With dgvOfferteDetails
|
||||
.Columns.Clear()
|
||||
|
||||
Try
|
||||
loaded = False
|
||||
DGVHasChaged = False
|
||||
|
||||
With dgvOfferteDetails
|
||||
.Columns.Clear()
|
||||
|
||||
OFFERTEBind = New cEasyBinding(BIND_DB)
|
||||
OFFERTEBind.initBinding(" SELECT [LeistungsNr],[LeistungsBez],[BerechnungsartNr],[Preis],[Anzahl],[BGebLeistungsNr],[BGebProzent],[BGebMinBetrag],BerechnungsartPosInkludiert,[Eingegeben am],[Geändert am],[Sachbearbeiter],[PreisänderungProzent],[PreisAlt],[Preisänderung],KundenNr,OffertenNr " &
|
||||
" FROM [tblOffertenpositionenArchiv] " &
|
||||
" WHERE OfId='" & OffertenId & "' ORDER BY LeistungsNr, Preis DESC", "tblOffertenpositionenArchiv")
|
||||
OFFERTEBind.initBinding(" SELECT [LeistungsNr],[LeistungsBez],[BerechnungsartNr],[Preis],[Anzahl],[BGebLeistungsNr],[BGebProzent],[BGebMinBetrag],BerechnungsartPosInkludiert,[Eingegeben am],[Geändert am],[Sachbearbeiter],[PreisänderungProzent],[PreisAlt],[Preisänderung],KundenNr,OffertenNr " &
|
||||
" FROM [tblOffertenpositionenArchiv] " &
|
||||
" WHERE OfId='" & OffertenId & "' ORDER BY LeistungsNr, Preis DESC", "tblOffertenpositionenArchiv")
|
||||
|
||||
.DataSource = OFFERTEBind.bindingdataTable
|
||||
.DataSource = OFFERTEBind.bindingdataTable
|
||||
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message)
|
||||
End Try
|
||||
|
||||
FUNC.dgvCellToCbo(dgvOfferteDetails, 2, "Berechnungsart", "BerechnungsartNr", " SELECT [BerechnungsartNr], CAST(BerechnungsartNr as varchar(3)) + ' - ' + [BerechnungsartBez] as [BerechnungsartBez] FROM [Berechnungsart] ORDER BY BerechnungsartNr ", "FMZOLL", 150)
|
||||
FUNC.dgvCellToCbo(dgvOfferteDetails, 5, "BGebLeist.", "BGebLeistungsNr", " SELECT [LeistungsNr], CAST(LeistungsNr as varchar(3)) + ' - ' + [LeistungsBez] as LeistungsBez FROM [Leistungen] ORDER BY [LeistungsNr] ", "FMZOLL", 250)
|
||||
|
||||
|
||||
checkPerimissionsDGVDetails()
|
||||
FUNC.dgvCellToCbo(dgvOfferteDetails, 2, "Berechnungsart", "BerechnungsartNr", " SELECT [BerechnungsartNr], CAST(BerechnungsartNr as varchar(3)) + ' - ' + [BerechnungsartBez] as [BerechnungsartBez] FROM [Berechnungsart] ORDER BY BerechnungsartNr ", "FMZOLL", 150)
|
||||
FUNC.dgvCellToCbo(dgvOfferteDetails, 5, "BGebLeist.", "BGebLeistungsNr", " SELECT [LeistungsNr], CAST(LeistungsNr as varchar(3)) + ' - ' + [LeistungsBez] as LeistungsBez FROM [Leistungen] ORDER BY [LeistungsNr] ", "FMZOLL", 250)
|
||||
|
||||
.Columns("OffertenNr").Visible = False
|
||||
.Columns("KundenNr").Visible = False
|
||||
.Columns("LeistungsNr").Width = 30
|
||||
.Columns("LeistungsNr").HeaderText = "Nr"
|
||||
.Columns("LeistungsBez").MinimumWidth = 200
|
||||
.Columns("LeistungsBez").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
|
||||
.Columns("LeistungsBez").HeaderText = "Leistung"
|
||||
.Columns("BerechnungsartNr").MinimumWidth = 150
|
||||
.Columns("Preis").Width = 60
|
||||
.Columns("Preis").DefaultCellStyle.Format = "N2"
|
||||
.Columns("Preis").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight
|
||||
.Columns("Anzahl").Width = 50
|
||||
.Columns("Anzahl").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
|
||||
.Columns("BerechnungsartPosInkludiert").HeaderText = "Pos.inkl."
|
||||
.Columns("BerechnungsartPosInkludiert").Width = 45
|
||||
.Columns("BGebLeistungsNr").Width = 60
|
||||
.Columns("BGebProzent").Width = 55
|
||||
.Columns("BGebProzent").HeaderText = "BGeb %"
|
||||
.Columns("BGebProzent").DefaultCellStyle.Format = "P"
|
||||
.Columns("BGebProzent").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight
|
||||
.Columns("BGebMinBetrag").Width = 60
|
||||
.Columns("BGebMinBetrag").HeaderText = "BGebMinBetr."
|
||||
.Columns("BGebMinBetrag").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight
|
||||
.Columns("Eingegeben am").Visible = False
|
||||
.Columns("PreisänderungProzent").Width = 70
|
||||
.Columns("PreisänderungProzent").HeaderText = "Preisänd. %"
|
||||
.Columns("PreisänderungProzent").DefaultCellStyle.Format = "P"
|
||||
.Columns("PreisänderungProzent").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight
|
||||
.Columns("PreisAlt").Width = 60
|
||||
.Columns("PreisAlt").DefaultCellStyle.Format = "N2"
|
||||
.Columns("PreisAlt").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight
|
||||
.Columns("Preisänderung").Width = 60
|
||||
.Columns("Preisänderung").HeaderText = "PreisNeu"
|
||||
.Columns("Preisänderung").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight
|
||||
|
||||
loaded = True
|
||||
End With
|
||||
checkPerimissionsDGVDetails()
|
||||
|
||||
.Columns("OffertenNr").Visible = False
|
||||
.Columns("KundenNr").Visible = False
|
||||
.Columns("LeistungsNr").Width = 30
|
||||
.Columns("LeistungsNr").HeaderText = "Nr"
|
||||
.Columns("LeistungsBez").MinimumWidth = 200
|
||||
.Columns("LeistungsBez").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
|
||||
.Columns("LeistungsBez").HeaderText = "Leistung"
|
||||
.Columns("BerechnungsartNr").MinimumWidth = 150
|
||||
.Columns("Preis").Width = 60
|
||||
.Columns("Preis").DefaultCellStyle.Format = "N2"
|
||||
.Columns("Preis").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight
|
||||
.Columns("Anzahl").Width = 50
|
||||
.Columns("Anzahl").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
|
||||
.Columns("BerechnungsartPosInkludiert").HeaderText = "Pos.inkl."
|
||||
.Columns("BerechnungsartPosInkludiert").Width = 45
|
||||
.Columns("BGebLeistungsNr").Width = 60
|
||||
.Columns("BGebProzent").Width = 55
|
||||
.Columns("BGebProzent").HeaderText = "BGeb %"
|
||||
.Columns("BGebProzent").DefaultCellStyle.Format = "P"
|
||||
.Columns("BGebProzent").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight
|
||||
.Columns("BGebMinBetrag").Width = 60
|
||||
.Columns("BGebMinBetrag").HeaderText = "BGebMinBetr."
|
||||
.Columns("BGebMinBetrag").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight
|
||||
.Columns("Eingegeben am").Visible = False
|
||||
.Columns("PreisänderungProzent").Width = 70
|
||||
.Columns("PreisänderungProzent").HeaderText = "Preisänd. %"
|
||||
.Columns("PreisänderungProzent").DefaultCellStyle.Format = "P"
|
||||
.Columns("PreisänderungProzent").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight
|
||||
.Columns("PreisAlt").Width = 60
|
||||
.Columns("PreisAlt").DefaultCellStyle.Format = "N2"
|
||||
.Columns("PreisAlt").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight
|
||||
.Columns("Preisänderung").Width = 60
|
||||
.Columns("Preisänderung").HeaderText = "PreisNeu"
|
||||
.Columns("Preisänderung").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight
|
||||
|
||||
loaded = True
|
||||
End With
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub saveCurrentOffert()
|
||||
Try
|
||||
|
||||
dgvOfferteNew.Enabled = False
|
||||
|
||||
dgvOfferteNew.Enabled = False
|
||||
currentOffert = New VERAG_PROG_ALLGEMEIN.cOfferte(kdNr, dgvOfferteNew.SelectedRows(0).Cells("OffertenNr").Value, False)
|
||||
Dim orgDataTable As DataTable = dgvOfferteDetails.DataSource
|
||||
tmpDataTable = orgDataTable.Copy
|
||||
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub checkPermissions()
|
||||
@@ -653,35 +716,41 @@ Public Class usrCntlOfferte
|
||||
|
||||
|
||||
Private Sub saveToArchive()
|
||||
Try
|
||||
|
||||
If isNew = False AndAlso isStandard = False Or isNew AndAlso isStandard = False Then 'Neuanlage oder Anlage über "Standardoffert laden" speichern,
|
||||
If DGVHasChaged = False Then Exit Sub
|
||||
End If
|
||||
|
||||
If isStandard Then
|
||||
If isNew Then
|
||||
OfferteArchivieren()
|
||||
isNew = False
|
||||
|
||||
If isNew = False AndAlso isStandard = False Or isNew AndAlso isStandard = False Then 'Neuanlage oder Anlage über "Standardoffert laden" speichern,
|
||||
If DGVHasChaged = False Then Exit Sub
|
||||
End If
|
||||
isStandard = False
|
||||
Else
|
||||
|
||||
If DGVHasChaged Then
|
||||
If isNew = False Then
|
||||
If isStandard Then
|
||||
If isNew Then
|
||||
OfferteArchivieren()
|
||||
Exit Sub
|
||||
|
||||
Else
|
||||
If isNew Then
|
||||
OfferteArchivieren()
|
||||
isNew = False
|
||||
End If
|
||||
isNew = False
|
||||
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
isStandard = False
|
||||
Else
|
||||
|
||||
If DGVHasChaged Then
|
||||
If isNew = False Then
|
||||
OfferteArchivieren()
|
||||
Exit Sub
|
||||
|
||||
Else
|
||||
If isNew Then
|
||||
OfferteArchivieren()
|
||||
isNew = False
|
||||
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)
|
||||
End Try
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
280
SDL/kunden/usrcntlKundeBearbeitenFull.Designer.vb
generated
280
SDL/kunden/usrcntlKundeBearbeitenFull.Designer.vb
generated
@@ -93,6 +93,9 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
Me.tbFiskal = New System.Windows.Forms.TabPage()
|
||||
Me.UsrCntlKundeFiskaldaten1 = New SDL.usrCntlKundeFiskaldaten()
|
||||
Me.tbVerrechnung = New System.Windows.Forms.TabPage()
|
||||
Me.cbxKapitalWaehrung = New VERAG_PROG_ALLGEMEIN.MyComboBox()
|
||||
Me.Label103 = New System.Windows.Forms.Label()
|
||||
Me.txtKapital = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.Label101 = New System.Windows.Forms.Label()
|
||||
Me.txtAbwZZVL = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.cbxSndDatenAusSTB = New System.Windows.Forms.CheckBox()
|
||||
@@ -264,6 +267,9 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
Me.lblEORI = New System.Windows.Forms.Label()
|
||||
Me.Label84 = New System.Windows.Forms.Label()
|
||||
Me.GroupBox3 = New System.Windows.Forms.GroupBox()
|
||||
Me.txtGruendungsDatum = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.Label33 = New System.Windows.Forms.Label()
|
||||
Me.txtHandelsregisterNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.PictureBox5 = New System.Windows.Forms.PictureBox()
|
||||
Me.Label100 = New System.Windows.Forms.Label()
|
||||
Me.txtAdresseZusatz = New System.Windows.Forms.TextBox()
|
||||
@@ -284,6 +290,7 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
Me.txtFirmenname2 = New System.Windows.Forms.TextBox()
|
||||
Me.Label16 = New System.Windows.Forms.Label()
|
||||
Me.txtUSt_Steuernummer = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.lblHandelregisterNr = New System.Windows.Forms.Label()
|
||||
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
|
||||
Me.cbxLandKz = New VERAG_PROG_ALLGEMEIN.MyComboBox()
|
||||
Me.Label14 = New System.Windows.Forms.Label()
|
||||
@@ -342,8 +349,6 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
Me.cboFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox()
|
||||
Me.cboAuswahl = New VERAG_PROG_ALLGEMEIN.MyComboBox()
|
||||
Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.lblHandelregisterNr = New System.Windows.Forms.Label()
|
||||
Me.txtHandelsregisterNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.tbcntrDetails.SuspendLayout()
|
||||
Me.tbAbfertigung.SuspendLayout()
|
||||
Me.tbcntrAbf.SuspendLayout()
|
||||
@@ -395,7 +400,7 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
Me.tbcntrDetails.Location = New System.Drawing.Point(462, 3)
|
||||
Me.tbcntrDetails.Name = "tbcntrDetails"
|
||||
Me.tbcntrDetails.SelectedIndex = 0
|
||||
Me.tbcntrDetails.Size = New System.Drawing.Size(680, 484)
|
||||
Me.tbcntrDetails.Size = New System.Drawing.Size(680, 521)
|
||||
Me.tbcntrDetails.TabIndex = 3
|
||||
'
|
||||
'tbAbfertigung
|
||||
@@ -424,7 +429,7 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
Me.tbAbfertigung.Location = New System.Drawing.Point(4, 22)
|
||||
Me.tbAbfertigung.Name = "tbAbfertigung"
|
||||
Me.tbAbfertigung.Padding = New System.Windows.Forms.Padding(3)
|
||||
Me.tbAbfertigung.Size = New System.Drawing.Size(672, 458)
|
||||
Me.tbAbfertigung.Size = New System.Drawing.Size(672, 495)
|
||||
Me.tbAbfertigung.TabIndex = 0
|
||||
Me.tbAbfertigung.Text = " Abfertigung"
|
||||
Me.tbAbfertigung.UseVisualStyleBackColor = True
|
||||
@@ -538,7 +543,7 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
Me.tbcntrAbf.Controls.Add(Me.tbAufschub)
|
||||
Me.tbcntrAbf.Controls.Add(Me.TabPage1)
|
||||
Me.tbcntrAbf.Dock = System.Windows.Forms.DockStyle.Bottom
|
||||
Me.tbcntrAbf.Location = New System.Drawing.Point(3, 251)
|
||||
Me.tbcntrAbf.Location = New System.Drawing.Point(3, 288)
|
||||
Me.tbcntrAbf.Name = "tbcntrAbf"
|
||||
Me.tbcntrAbf.SelectedIndex = 0
|
||||
Me.tbcntrAbf.Size = New System.Drawing.Size(666, 204)
|
||||
@@ -1050,7 +1055,7 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
Me.tbFiskal.Controls.Add(Me.UsrCntlKundeFiskaldaten1)
|
||||
Me.tbFiskal.Location = New System.Drawing.Point(4, 22)
|
||||
Me.tbFiskal.Name = "tbFiskal"
|
||||
Me.tbFiskal.Size = New System.Drawing.Size(672, 458)
|
||||
Me.tbFiskal.Size = New System.Drawing.Size(672, 495)
|
||||
Me.tbFiskal.TabIndex = 8
|
||||
Me.tbFiskal.Text = "Fiskal"
|
||||
Me.tbFiskal.UseVisualStyleBackColor = True
|
||||
@@ -1061,11 +1066,14 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
Me.UsrCntlKundeFiskaldaten1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.UsrCntlKundeFiskaldaten1.Location = New System.Drawing.Point(0, 0)
|
||||
Me.UsrCntlKundeFiskaldaten1.Name = "UsrCntlKundeFiskaldaten1"
|
||||
Me.UsrCntlKundeFiskaldaten1.Size = New System.Drawing.Size(672, 458)
|
||||
Me.UsrCntlKundeFiskaldaten1.Size = New System.Drawing.Size(672, 495)
|
||||
Me.UsrCntlKundeFiskaldaten1.TabIndex = 0
|
||||
'
|
||||
'tbVerrechnung
|
||||
'
|
||||
Me.tbVerrechnung.Controls.Add(Me.cbxKapitalWaehrung)
|
||||
Me.tbVerrechnung.Controls.Add(Me.Label103)
|
||||
Me.tbVerrechnung.Controls.Add(Me.txtKapital)
|
||||
Me.tbVerrechnung.Controls.Add(Me.Label101)
|
||||
Me.tbVerrechnung.Controls.Add(Me.txtAbwZZVL)
|
||||
Me.tbVerrechnung.Controls.Add(Me.cbxSndDatenAusSTB)
|
||||
@@ -1114,11 +1122,61 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
Me.tbVerrechnung.Controls.Add(Me.txtAbf_Zahlungsziel)
|
||||
Me.tbVerrechnung.Location = New System.Drawing.Point(4, 22)
|
||||
Me.tbVerrechnung.Name = "tbVerrechnung"
|
||||
Me.tbVerrechnung.Size = New System.Drawing.Size(672, 458)
|
||||
Me.tbVerrechnung.Size = New System.Drawing.Size(672, 495)
|
||||
Me.tbVerrechnung.TabIndex = 9
|
||||
Me.tbVerrechnung.Text = "Verrechnung"
|
||||
Me.tbVerrechnung.UseVisualStyleBackColor = True
|
||||
'
|
||||
'cbxKapitalWaehrung
|
||||
'
|
||||
Me.cbxKapitalWaehrung._allowedValuesFreiText = Nothing
|
||||
Me.cbxKapitalWaehrung._allowFreiText = False
|
||||
Me.cbxKapitalWaehrung._value = ""
|
||||
Me.cbxKapitalWaehrung.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
|
||||
Me.cbxKapitalWaehrung.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
|
||||
Me.cbxKapitalWaehrung.DropDownWidth = 200
|
||||
Me.cbxKapitalWaehrung.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.cbxKapitalWaehrung.ForeColor = System.Drawing.Color.Black
|
||||
Me.cbxKapitalWaehrung.FormattingEnabled = True
|
||||
Me.cbxKapitalWaehrung.Location = New System.Drawing.Point(191, 293)
|
||||
Me.cbxKapitalWaehrung.Name = "cbxKapitalWaehrung"
|
||||
Me.cbxKapitalWaehrung.Size = New System.Drawing.Size(47, 21)
|
||||
Me.cbxKapitalWaehrung.TabIndex = 45
|
||||
'
|
||||
'Label103
|
||||
'
|
||||
Me.Label103.AutoSize = True
|
||||
Me.Label103.Location = New System.Drawing.Point(12, 296)
|
||||
Me.Label103.Name = "Label103"
|
||||
Me.Label103.Size = New System.Drawing.Size(42, 13)
|
||||
Me.Label103.TabIndex = 43
|
||||
Me.Label103.Text = "Kapital:"
|
||||
'
|
||||
'txtKapital
|
||||
'
|
||||
Me.txtKapital._DateTimeOnly = False
|
||||
Me.txtKapital._numbersOnly = True
|
||||
Me.txtKapital._numbersOnlyKommastellen = ""
|
||||
Me.txtKapital._numbersOnlyTrennzeichen = False
|
||||
Me.txtKapital._Prozent = False
|
||||
Me.txtKapital._ShortDateNew = False
|
||||
Me.txtKapital._ShortDateOnly = False
|
||||
Me.txtKapital._TimeOnly = False
|
||||
Me.txtKapital._TimeOnly_Seconds = False
|
||||
Me.txtKapital._value = ""
|
||||
Me.txtKapital._Waehrung = True
|
||||
Me.txtKapital._WaehrungZeichen = False
|
||||
Me.txtKapital.ForeColor = System.Drawing.Color.Red
|
||||
Me.txtKapital.Location = New System.Drawing.Point(76, 293)
|
||||
Me.txtKapital.MaxLength = 10
|
||||
Me.txtKapital.MaxLineLength = -1
|
||||
Me.txtKapital.MaxLines_Warning = ""
|
||||
Me.txtKapital.MaxLines_Warning_Label = Nothing
|
||||
Me.txtKapital.Name = "txtKapital"
|
||||
Me.txtKapital.Size = New System.Drawing.Size(109, 20)
|
||||
Me.txtKapital.TabIndex = 44
|
||||
Me.txtKapital.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
|
||||
'
|
||||
'Label101
|
||||
'
|
||||
Me.Label101.AutoSize = True
|
||||
@@ -1240,7 +1298,7 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
'
|
||||
Me.Label36.AutoSize = True
|
||||
Me.Label36.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label36.Location = New System.Drawing.Point(122, 246)
|
||||
Me.Label36.Location = New System.Drawing.Point(122, 329)
|
||||
Me.Label36.Name = "Label36"
|
||||
Me.Label36.Size = New System.Drawing.Size(384, 13)
|
||||
Me.Label36.TabIndex = 21
|
||||
@@ -1251,7 +1309,7 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
'
|
||||
Me.cbxDepot.AutoSize = True
|
||||
Me.cbxDepot.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.cbxDepot.Location = New System.Drawing.Point(15, 246)
|
||||
Me.cbxDepot.Location = New System.Drawing.Point(15, 329)
|
||||
Me.cbxDepot.Name = "cbxDepot"
|
||||
Me.cbxDepot.Size = New System.Drawing.Size(100, 17)
|
||||
Me.cbxDepot.TabIndex = 20
|
||||
@@ -1852,7 +1910,7 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
Me.tbVersicherung.Location = New System.Drawing.Point(4, 22)
|
||||
Me.tbVersicherung.Name = "tbVersicherung"
|
||||
Me.tbVersicherung.Padding = New System.Windows.Forms.Padding(3)
|
||||
Me.tbVersicherung.Size = New System.Drawing.Size(672, 458)
|
||||
Me.tbVersicherung.Size = New System.Drawing.Size(672, 495)
|
||||
Me.tbVersicherung.TabIndex = 1
|
||||
Me.tbVersicherung.Text = "Versicherung"
|
||||
Me.tbVersicherung.UseVisualStyleBackColor = True
|
||||
@@ -2615,7 +2673,7 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
Me.tbUmsatz.Location = New System.Drawing.Point(4, 22)
|
||||
Me.tbUmsatz.Name = "tbUmsatz"
|
||||
Me.tbUmsatz.Padding = New System.Windows.Forms.Padding(3)
|
||||
Me.tbUmsatz.Size = New System.Drawing.Size(672, 458)
|
||||
Me.tbUmsatz.Size = New System.Drawing.Size(672, 495)
|
||||
Me.tbUmsatz.TabIndex = 3
|
||||
Me.tbUmsatz.Text = "Umsatz"
|
||||
Me.tbUmsatz.UseVisualStyleBackColor = True
|
||||
@@ -2661,7 +2719,7 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
Me.tbOP.Location = New System.Drawing.Point(4, 22)
|
||||
Me.tbOP.Name = "tbOP"
|
||||
Me.tbOP.Padding = New System.Windows.Forms.Padding(3)
|
||||
Me.tbOP.Size = New System.Drawing.Size(672, 458)
|
||||
Me.tbOP.Size = New System.Drawing.Size(672, 495)
|
||||
Me.tbOP.TabIndex = 4
|
||||
Me.tbOP.Text = "Offene Posten"
|
||||
Me.tbOP.UseVisualStyleBackColor = True
|
||||
@@ -2807,7 +2865,7 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
Me.tbBank.Location = New System.Drawing.Point(4, 22)
|
||||
Me.tbBank.Name = "tbBank"
|
||||
Me.tbBank.Padding = New System.Windows.Forms.Padding(3)
|
||||
Me.tbBank.Size = New System.Drawing.Size(672, 458)
|
||||
Me.tbBank.Size = New System.Drawing.Size(672, 495)
|
||||
Me.tbBank.TabIndex = 5
|
||||
Me.tbBank.Text = "Bankverb./Kreditkarten"
|
||||
Me.tbBank.UseVisualStyleBackColor = True
|
||||
@@ -2986,7 +3044,7 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
Me.tbUmsatzsteuer.Location = New System.Drawing.Point(4, 22)
|
||||
Me.tbUmsatzsteuer.Name = "tbUmsatzsteuer"
|
||||
Me.tbUmsatzsteuer.Padding = New System.Windows.Forms.Padding(3)
|
||||
Me.tbUmsatzsteuer.Size = New System.Drawing.Size(672, 458)
|
||||
Me.tbUmsatzsteuer.Size = New System.Drawing.Size(672, 495)
|
||||
Me.tbUmsatzsteuer.TabIndex = 6
|
||||
Me.tbUmsatzsteuer.Text = "Umsatzsteuer"
|
||||
Me.tbUmsatzsteuer.UseVisualStyleBackColor = True
|
||||
@@ -3255,7 +3313,7 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
Me.tbSonstiges.Location = New System.Drawing.Point(4, 22)
|
||||
Me.tbSonstiges.Name = "tbSonstiges"
|
||||
Me.tbSonstiges.Padding = New System.Windows.Forms.Padding(3)
|
||||
Me.tbSonstiges.Size = New System.Drawing.Size(672, 458)
|
||||
Me.tbSonstiges.Size = New System.Drawing.Size(672, 495)
|
||||
Me.tbSonstiges.TabIndex = 7
|
||||
Me.tbSonstiges.Text = "Sonstiges"
|
||||
Me.tbSonstiges.UseVisualStyleBackColor = True
|
||||
@@ -3528,7 +3586,7 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
Me.tbSchnittstellen.Location = New System.Drawing.Point(4, 22)
|
||||
Me.tbSchnittstellen.Name = "tbSchnittstellen"
|
||||
Me.tbSchnittstellen.Padding = New System.Windows.Forms.Padding(3)
|
||||
Me.tbSchnittstellen.Size = New System.Drawing.Size(672, 458)
|
||||
Me.tbSchnittstellen.Size = New System.Drawing.Size(672, 495)
|
||||
Me.tbSchnittstellen.TabIndex = 10
|
||||
Me.tbSchnittstellen.Text = "Schnittstellen"
|
||||
Me.tbSchnittstellen.UseVisualStyleBackColor = True
|
||||
@@ -3598,7 +3656,7 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
Me.tbZahlungsinfo.Controls.Add(Me.rtb_Zahlungsinfo)
|
||||
Me.tbZahlungsinfo.Location = New System.Drawing.Point(4, 22)
|
||||
Me.tbZahlungsinfo.Name = "tbZahlungsinfo"
|
||||
Me.tbZahlungsinfo.Size = New System.Drawing.Size(672, 458)
|
||||
Me.tbZahlungsinfo.Size = New System.Drawing.Size(672, 495)
|
||||
Me.tbZahlungsinfo.TabIndex = 11
|
||||
Me.tbZahlungsinfo.Text = "Zahlungsinfo"
|
||||
Me.tbZahlungsinfo.UseVisualStyleBackColor = True
|
||||
@@ -3643,6 +3701,8 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
'
|
||||
'GroupBox3
|
||||
'
|
||||
Me.GroupBox3.Controls.Add(Me.txtGruendungsDatum)
|
||||
Me.GroupBox3.Controls.Add(Me.Label33)
|
||||
Me.GroupBox3.Controls.Add(Me.txtHandelsregisterNr)
|
||||
Me.GroupBox3.Controls.Add(Me.PictureBox5)
|
||||
Me.GroupBox3.Controls.Add(Me.Label100)
|
||||
@@ -3670,11 +3730,70 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
Me.GroupBox3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.GroupBox3.Location = New System.Drawing.Point(3, 3)
|
||||
Me.GroupBox3.Name = "GroupBox3"
|
||||
Me.GroupBox3.Size = New System.Drawing.Size(453, 182)
|
||||
Me.GroupBox3.Size = New System.Drawing.Size(453, 209)
|
||||
Me.GroupBox3.TabIndex = 0
|
||||
Me.GroupBox3.TabStop = False
|
||||
Me.GroupBox3.Text = "Firma"
|
||||
'
|
||||
'txtGruendungsDatum
|
||||
'
|
||||
Me.txtGruendungsDatum._DateTimeOnly = False
|
||||
Me.txtGruendungsDatum._numbersOnly = False
|
||||
Me.txtGruendungsDatum._numbersOnlyKommastellen = ""
|
||||
Me.txtGruendungsDatum._numbersOnlyTrennzeichen = True
|
||||
Me.txtGruendungsDatum._Prozent = False
|
||||
Me.txtGruendungsDatum._ShortDateNew = True
|
||||
Me.txtGruendungsDatum._ShortDateOnly = False
|
||||
Me.txtGruendungsDatum._TimeOnly = False
|
||||
Me.txtGruendungsDatum._TimeOnly_Seconds = False
|
||||
Me.txtGruendungsDatum._value = ""
|
||||
Me.txtGruendungsDatum._Waehrung = False
|
||||
Me.txtGruendungsDatum._WaehrungZeichen = True
|
||||
Me.txtGruendungsDatum.ForeColor = System.Drawing.Color.Red
|
||||
Me.txtGruendungsDatum.Location = New System.Drawing.Point(110, 183)
|
||||
Me.txtGruendungsDatum.MaxLength = 10
|
||||
Me.txtGruendungsDatum.MaxLineLength = -1
|
||||
Me.txtGruendungsDatum.MaxLines_Warning = ""
|
||||
Me.txtGruendungsDatum.MaxLines_Warning_Label = Nothing
|
||||
Me.txtGruendungsDatum.Name = "txtGruendungsDatum"
|
||||
Me.txtGruendungsDatum.Size = New System.Drawing.Size(120, 20)
|
||||
Me.txtGruendungsDatum.TabIndex = 135
|
||||
Me.txtGruendungsDatum.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
|
||||
'
|
||||
'Label33
|
||||
'
|
||||
Me.Label33.AutoSize = True
|
||||
Me.Label33.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label33.Location = New System.Drawing.Point(10, 186)
|
||||
Me.Label33.Name = "Label33"
|
||||
Me.Label33.Size = New System.Drawing.Size(75, 13)
|
||||
Me.Label33.TabIndex = 134
|
||||
Me.Label33.Text = "gegründet am:"
|
||||
'
|
||||
'txtHandelsregisterNr
|
||||
'
|
||||
Me.txtHandelsregisterNr._DateTimeOnly = False
|
||||
Me.txtHandelsregisterNr._numbersOnly = False
|
||||
Me.txtHandelsregisterNr._numbersOnlyKommastellen = ""
|
||||
Me.txtHandelsregisterNr._numbersOnlyTrennzeichen = False
|
||||
Me.txtHandelsregisterNr._Prozent = False
|
||||
Me.txtHandelsregisterNr._ShortDateNew = False
|
||||
Me.txtHandelsregisterNr._ShortDateOnly = False
|
||||
Me.txtHandelsregisterNr._TimeOnly = False
|
||||
Me.txtHandelsregisterNr._TimeOnly_Seconds = False
|
||||
Me.txtHandelsregisterNr._value = ""
|
||||
Me.txtHandelsregisterNr._Waehrung = False
|
||||
Me.txtHandelsregisterNr._WaehrungZeichen = False
|
||||
Me.txtHandelsregisterNr.ForeColor = System.Drawing.Color.Black
|
||||
Me.txtHandelsregisterNr.Location = New System.Drawing.Point(111, 134)
|
||||
Me.txtHandelsregisterNr.MaxLength = 17
|
||||
Me.txtHandelsregisterNr.MaxLineLength = -1
|
||||
Me.txtHandelsregisterNr.MaxLines_Warning = ""
|
||||
Me.txtHandelsregisterNr.MaxLines_Warning_Label = Nothing
|
||||
Me.txtHandelsregisterNr.Name = "txtHandelsregisterNr"
|
||||
Me.txtHandelsregisterNr.Size = New System.Drawing.Size(126, 20)
|
||||
Me.txtHandelsregisterNr.TabIndex = 133
|
||||
'
|
||||
'PictureBox5
|
||||
'
|
||||
Me.PictureBox5.BackgroundImage = Global.SDL.My.Resources.Resources.fragezeichen
|
||||
@@ -3709,7 +3828,7 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
'
|
||||
Me.cbxUIDMehrfachverwendung.AutoSize = True
|
||||
Me.cbxUIDMehrfachverwendung.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.cbxUIDMehrfachverwendung.Location = New System.Drawing.Point(10, 133)
|
||||
Me.cbxUIDMehrfachverwendung.Location = New System.Drawing.Point(292, 184)
|
||||
Me.cbxUIDMehrfachverwendung.Name = "cbxUIDMehrfachverwendung"
|
||||
Me.cbxUIDMehrfachverwendung.Size = New System.Drawing.Size(152, 17)
|
||||
Me.cbxUIDMehrfachverwendung.TabIndex = 25
|
||||
@@ -3957,6 +4076,16 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
Me.txtUSt_Steuernummer.TabIndex = 11
|
||||
Me.txtUSt_Steuernummer.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
|
||||
'
|
||||
'lblHandelregisterNr
|
||||
'
|
||||
Me.lblHandelregisterNr.AutoSize = True
|
||||
Me.lblHandelregisterNr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.lblHandelregisterNr.Location = New System.Drawing.Point(8, 137)
|
||||
Me.lblHandelregisterNr.Name = "lblHandelregisterNr"
|
||||
Me.lblHandelregisterNr.Size = New System.Drawing.Size(100, 13)
|
||||
Me.lblHandelregisterNr.TabIndex = 132
|
||||
Me.lblHandelregisterNr.Text = "Handelsregister-Nr.:"
|
||||
'
|
||||
'GroupBox1
|
||||
'
|
||||
Me.GroupBox1.Controls.Add(Me.cbxLandKz)
|
||||
@@ -3969,7 +4098,7 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
Me.GroupBox1.Controls.Add(Me.Label4)
|
||||
Me.GroupBox1.Controls.Add(Me.txtStrasse)
|
||||
Me.GroupBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.GroupBox1.Location = New System.Drawing.Point(3, 183)
|
||||
Me.GroupBox1.Location = New System.Drawing.Point(3, 218)
|
||||
Me.GroupBox1.Name = "GroupBox1"
|
||||
Me.GroupBox1.Size = New System.Drawing.Size(453, 102)
|
||||
Me.GroupBox1.TabIndex = 1
|
||||
@@ -3989,7 +4118,7 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
Me.cbxLandKz.FormattingEnabled = True
|
||||
Me.cbxLandKz.Location = New System.Drawing.Point(110, 49)
|
||||
Me.cbxLandKz.Name = "cbxLandKz"
|
||||
Me.cbxLandKz.Size = New System.Drawing.Size(39, 21)
|
||||
Me.cbxLandKz.Size = New System.Drawing.Size(50, 21)
|
||||
Me.cbxLandKz.TabIndex = 3
|
||||
'
|
||||
'Label14
|
||||
@@ -4005,19 +4134,19 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
'txtPostfachOrt
|
||||
'
|
||||
Me.txtPostfachOrt.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.txtPostfachOrt.Location = New System.Drawing.Point(232, 75)
|
||||
Me.txtPostfachOrt.Location = New System.Drawing.Point(243, 75)
|
||||
Me.txtPostfachOrt.MaxLength = 40
|
||||
Me.txtPostfachOrt.Name = "txtPostfachOrt"
|
||||
Me.txtPostfachOrt.Size = New System.Drawing.Size(212, 20)
|
||||
Me.txtPostfachOrt.Size = New System.Drawing.Size(201, 20)
|
||||
Me.txtPostfachOrt.TabIndex = 8
|
||||
'
|
||||
'txtOrt
|
||||
'
|
||||
Me.txtOrt.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.txtOrt.Location = New System.Drawing.Point(232, 49)
|
||||
Me.txtOrt.Location = New System.Drawing.Point(243, 49)
|
||||
Me.txtOrt.MaxLength = 40
|
||||
Me.txtOrt.Name = "txtOrt"
|
||||
Me.txtOrt.Size = New System.Drawing.Size(212, 20)
|
||||
Me.txtOrt.Size = New System.Drawing.Size(201, 20)
|
||||
Me.txtOrt.TabIndex = 5
|
||||
'
|
||||
'Label12
|
||||
@@ -4036,13 +4165,13 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
Me.txtPostfachPlz.Location = New System.Drawing.Point(110, 75)
|
||||
Me.txtPostfachPlz.MaxLength = 7
|
||||
Me.txtPostfachPlz.Name = "txtPostfachPlz"
|
||||
Me.txtPostfachPlz.Size = New System.Drawing.Size(116, 20)
|
||||
Me.txtPostfachPlz.Size = New System.Drawing.Size(127, 20)
|
||||
Me.txtPostfachPlz.TabIndex = 7
|
||||
'
|
||||
'txtPlz
|
||||
'
|
||||
Me.txtPlz.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.txtPlz.Location = New System.Drawing.Point(155, 49)
|
||||
Me.txtPlz.Location = New System.Drawing.Point(166, 49)
|
||||
Me.txtPlz.MaxLength = 7
|
||||
Me.txtPlz.Name = "txtPlz"
|
||||
Me.txtPlz.Size = New System.Drawing.Size(71, 20)
|
||||
@@ -4193,7 +4322,7 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
'btnFirmendatenFormularSpeichern
|
||||
'
|
||||
Me.btnFirmendatenFormularSpeichern.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnFirmendatenFormularSpeichern.Location = New System.Drawing.Point(1081, 503)
|
||||
Me.btnFirmendatenFormularSpeichern.Location = New System.Drawing.Point(1081, 540)
|
||||
Me.btnFirmendatenFormularSpeichern.Name = "btnFirmendatenFormularSpeichern"
|
||||
Me.btnFirmendatenFormularSpeichern.Size = New System.Drawing.Size(71, 52)
|
||||
Me.btnFirmendatenFormularSpeichern.TabIndex = 16
|
||||
@@ -4204,7 +4333,7 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
'
|
||||
Me.lblSachbearbeiter.AutoSize = True
|
||||
Me.lblSachbearbeiter.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.lblSachbearbeiter.Location = New System.Drawing.Point(131, 525)
|
||||
Me.lblSachbearbeiter.Location = New System.Drawing.Point(131, 562)
|
||||
Me.lblSachbearbeiter.Name = "lblSachbearbeiter"
|
||||
Me.lblSachbearbeiter.Size = New System.Drawing.Size(10, 13)
|
||||
Me.lblSachbearbeiter.TabIndex = 13
|
||||
@@ -4214,7 +4343,7 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
'
|
||||
Me.lblErfassung.AutoSize = True
|
||||
Me.lblErfassung.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.lblErfassung.Location = New System.Drawing.Point(130, 499)
|
||||
Me.lblErfassung.Location = New System.Drawing.Point(130, 536)
|
||||
Me.lblErfassung.Name = "lblErfassung"
|
||||
Me.lblErfassung.Size = New System.Drawing.Size(10, 13)
|
||||
Me.lblErfassung.TabIndex = 5
|
||||
@@ -4224,7 +4353,7 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
'
|
||||
Me.lblAenderung.AutoSize = True
|
||||
Me.lblAenderung.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.lblAenderung.Location = New System.Drawing.Point(131, 512)
|
||||
Me.lblAenderung.Location = New System.Drawing.Point(131, 549)
|
||||
Me.lblAenderung.Name = "lblAenderung"
|
||||
Me.lblAenderung.Size = New System.Drawing.Size(10, 13)
|
||||
Me.lblAenderung.TabIndex = 11
|
||||
@@ -4234,7 +4363,7 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
'
|
||||
Me.Label26.AutoSize = True
|
||||
Me.Label26.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label26.Location = New System.Drawing.Point(10, 525)
|
||||
Me.Label26.Location = New System.Drawing.Point(10, 562)
|
||||
Me.Label26.Name = "Label26"
|
||||
Me.Label26.Size = New System.Drawing.Size(117, 13)
|
||||
Me.Label26.TabIndex = 12
|
||||
@@ -4244,7 +4373,7 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
'
|
||||
Me.Label25.AutoSize = True
|
||||
Me.Label25.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label25.Location = New System.Drawing.Point(9, 499)
|
||||
Me.Label25.Location = New System.Drawing.Point(9, 536)
|
||||
Me.Label25.Name = "Label25"
|
||||
Me.Label25.Size = New System.Drawing.Size(91, 13)
|
||||
Me.Label25.TabIndex = 4
|
||||
@@ -4254,7 +4383,7 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
'
|
||||
Me.Label23.AutoSize = True
|
||||
Me.Label23.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label23.Location = New System.Drawing.Point(10, 512)
|
||||
Me.Label23.Location = New System.Drawing.Point(10, 549)
|
||||
Me.Label23.Name = "Label23"
|
||||
Me.Label23.Size = New System.Drawing.Size(90, 13)
|
||||
Me.Label23.TabIndex = 10
|
||||
@@ -4263,7 +4392,7 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
'Button1
|
||||
'
|
||||
Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button1.Location = New System.Drawing.Point(573, 509)
|
||||
Me.Button1.Location = New System.Drawing.Point(573, 546)
|
||||
Me.Button1.Name = "Button1"
|
||||
Me.Button1.Size = New System.Drawing.Size(98, 38)
|
||||
Me.Button1.TabIndex = 14
|
||||
@@ -4275,7 +4404,7 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
'
|
||||
Me.Label28.AutoSize = True
|
||||
Me.Label28.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label28.Location = New System.Drawing.Point(585, 550)
|
||||
Me.Label28.Location = New System.Drawing.Point(585, 587)
|
||||
Me.Label28.Name = "Label28"
|
||||
Me.Label28.Size = New System.Drawing.Size(10, 13)
|
||||
Me.Label28.TabIndex = 9
|
||||
@@ -4286,7 +4415,7 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
'
|
||||
Me.Label29.AutoSize = True
|
||||
Me.Label29.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label29.Location = New System.Drawing.Point(567, 493)
|
||||
Me.Label29.Location = New System.Drawing.Point(567, 530)
|
||||
Me.Label29.Name = "Label29"
|
||||
Me.Label29.Size = New System.Drawing.Size(109, 13)
|
||||
Me.Label29.TabIndex = 8
|
||||
@@ -4297,7 +4426,7 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
'
|
||||
Me.tbKontakt.Controls.Add(Me.TabPage10)
|
||||
Me.tbKontakt.Controls.Add(Me.TabPage11)
|
||||
Me.tbKontakt.Location = New System.Drawing.Point(3, 286)
|
||||
Me.tbKontakt.Location = New System.Drawing.Point(3, 321)
|
||||
Me.tbKontakt.Name = "tbKontakt"
|
||||
Me.tbKontakt.SelectedIndex = 0
|
||||
Me.tbKontakt.Size = New System.Drawing.Size(453, 201)
|
||||
@@ -4371,7 +4500,7 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
Me.pnlNeukunde.Controls.Add(Me.cboFiliale)
|
||||
Me.pnlNeukunde.Controls.Add(Me.cboKundenkreis)
|
||||
Me.pnlNeukunde.Controls.Add(Me.Label68)
|
||||
Me.pnlNeukunde.Location = New System.Drawing.Point(776, 493)
|
||||
Me.pnlNeukunde.Location = New System.Drawing.Point(776, 530)
|
||||
Me.pnlNeukunde.Name = "pnlNeukunde"
|
||||
Me.pnlNeukunde.Size = New System.Drawing.Size(303, 74)
|
||||
Me.pnlNeukunde.TabIndex = 15
|
||||
@@ -4424,7 +4553,7 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
'
|
||||
Me.Label77.AutoSize = True
|
||||
Me.Label77.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label77.Location = New System.Drawing.Point(780, 534)
|
||||
Me.Label77.Location = New System.Drawing.Point(780, 571)
|
||||
Me.Label77.Name = "Label77"
|
||||
Me.Label77.Size = New System.Drawing.Size(64, 13)
|
||||
Me.Label77.TabIndex = 6
|
||||
@@ -4434,7 +4563,7 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
'
|
||||
Me.lblKundennr.AutoSize = True
|
||||
Me.lblKundennr.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.lblKundennr.Location = New System.Drawing.Point(850, 532)
|
||||
Me.lblKundennr.Location = New System.Drawing.Point(850, 569)
|
||||
Me.lblKundennr.Name = "lblKundennr"
|
||||
Me.lblKundennr.Size = New System.Drawing.Size(14, 17)
|
||||
Me.lblKundennr.TabIndex = 7
|
||||
@@ -4444,7 +4573,7 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
'
|
||||
Me.Label79.AutoSize = True
|
||||
Me.Label79.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label79.Location = New System.Drawing.Point(780, 504)
|
||||
Me.Label79.Location = New System.Drawing.Point(780, 541)
|
||||
Me.Label79.Name = "Label79"
|
||||
Me.Label79.Size = New System.Drawing.Size(40, 13)
|
||||
Me.Label79.TabIndex = 4
|
||||
@@ -4454,7 +4583,7 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
'
|
||||
Me.Label80.AutoSize = True
|
||||
Me.Label80.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label80.Location = New System.Drawing.Point(278, 504)
|
||||
Me.Label80.Location = New System.Drawing.Point(278, 541)
|
||||
Me.Label80.Name = "Label80"
|
||||
Me.Label80.Size = New System.Drawing.Size(59, 13)
|
||||
Me.Label80.TabIndex = 4
|
||||
@@ -4465,7 +4594,7 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
Me.cbxFiBu.AutoSize = True
|
||||
Me.cbxFiBu.Enabled = False
|
||||
Me.cbxFiBu.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.cbxFiBu.Location = New System.Drawing.Point(400, 503)
|
||||
Me.cbxFiBu.Location = New System.Drawing.Point(400, 540)
|
||||
Me.cbxFiBu.Name = "cbxFiBu"
|
||||
Me.cbxFiBu.Size = New System.Drawing.Size(47, 17)
|
||||
Me.cbxFiBu.TabIndex = 17
|
||||
@@ -4477,7 +4606,7 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
Me.cbxFiBuLG.AutoSize = True
|
||||
Me.cbxFiBuLG.Enabled = False
|
||||
Me.cbxFiBuLG.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.cbxFiBuLG.Location = New System.Drawing.Point(400, 524)
|
||||
Me.cbxFiBuLG.Location = New System.Drawing.Point(400, 561)
|
||||
Me.cbxFiBuLG.Name = "cbxFiBuLG"
|
||||
Me.cbxFiBuLG.Size = New System.Drawing.Size(64, 17)
|
||||
Me.cbxFiBuLG.TabIndex = 18
|
||||
@@ -4489,7 +4618,7 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
'
|
||||
Me.Label97.AutoSize = True
|
||||
Me.Label97.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label97.Location = New System.Drawing.Point(463, 493)
|
||||
Me.Label97.Location = New System.Drawing.Point(463, 530)
|
||||
Me.Label97.Name = "Label97"
|
||||
Me.Label97.Size = New System.Drawing.Size(100, 13)
|
||||
Me.Label97.TabIndex = 19
|
||||
@@ -4499,7 +4628,7 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
'Button4
|
||||
'
|
||||
Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button4.Location = New System.Drawing.Point(466, 509)
|
||||
Me.Button4.Location = New System.Drawing.Point(466, 546)
|
||||
Me.Button4.Name = "Button4"
|
||||
Me.Button4.Size = New System.Drawing.Size(101, 38)
|
||||
Me.Button4.TabIndex = 21
|
||||
@@ -4513,7 +4642,7 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
Me.CheckBox1.Checked = True
|
||||
Me.CheckBox1.CheckState = System.Windows.Forms.CheckState.Checked
|
||||
Me.CheckBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.CheckBox1.Location = New System.Drawing.Point(466, 549)
|
||||
Me.CheckBox1.Location = New System.Drawing.Point(466, 586)
|
||||
Me.CheckBox1.Name = "CheckBox1"
|
||||
Me.CheckBox1.Size = New System.Drawing.Size(101, 17)
|
||||
Me.CheckBox1.TabIndex = 22
|
||||
@@ -4527,7 +4656,7 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
Me.txtERROR.BorderStyle = System.Windows.Forms.BorderStyle.None
|
||||
Me.txtERROR.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.txtERROR.ForeColor = System.Drawing.Color.Red
|
||||
Me.txtERROR.Location = New System.Drawing.Point(13, 540)
|
||||
Me.txtERROR.Location = New System.Drawing.Point(13, 577)
|
||||
Me.txtERROR.MaxLength = 9999
|
||||
Me.txtERROR.Multiline = True
|
||||
Me.txtERROR.Name = "txtERROR"
|
||||
@@ -4537,7 +4666,7 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
'btnDatevExport
|
||||
'
|
||||
Me.btnDatevExport.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnDatevExport.Location = New System.Drawing.Point(678, 509)
|
||||
Me.btnDatevExport.Location = New System.Drawing.Point(678, 546)
|
||||
Me.btnDatevExport.Name = "btnDatevExport"
|
||||
Me.btnDatevExport.Size = New System.Drawing.Size(93, 38)
|
||||
Me.btnDatevExport.TabIndex = 23
|
||||
@@ -4549,7 +4678,7 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
'
|
||||
Me.Label98.AutoSize = True
|
||||
Me.Label98.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label98.Location = New System.Drawing.Point(675, 493)
|
||||
Me.Label98.Location = New System.Drawing.Point(675, 530)
|
||||
Me.Label98.Name = "Label98"
|
||||
Me.Label98.Size = New System.Drawing.Size(101, 13)
|
||||
Me.Label98.TabIndex = 24
|
||||
@@ -4569,7 +4698,7 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
Me.cboFirma.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.cboFirma.FormattingEnabled = True
|
||||
Me.cboFirma.IntegralHeight = False
|
||||
Me.cboFirma.Location = New System.Drawing.Point(342, 496)
|
||||
Me.cboFirma.Location = New System.Drawing.Point(342, 533)
|
||||
Me.cboFirma.Name = "cboFirma"
|
||||
Me.cboFirma.Size = New System.Drawing.Size(49, 28)
|
||||
Me.cboFirma.TabIndex = 5
|
||||
@@ -4585,7 +4714,7 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
Me.cboAuswahl.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.cboAuswahl.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.cboAuswahl.FormattingEnabled = True
|
||||
Me.cboAuswahl.Location = New System.Drawing.Point(826, 496)
|
||||
Me.cboAuswahl.Location = New System.Drawing.Point(826, 533)
|
||||
Me.cboAuswahl.Name = "cboAuswahl"
|
||||
Me.cboAuswahl.Size = New System.Drawing.Size(124, 28)
|
||||
Me.cboAuswahl.TabIndex = 5
|
||||
@@ -4596,42 +4725,6 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
Me.DataGridViewTextBoxColumn2.HeaderText = "E-Mail"
|
||||
Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2"
|
||||
'
|
||||
'lblHandelregisterNr
|
||||
'
|
||||
Me.lblHandelregisterNr.AutoSize = True
|
||||
Me.lblHandelregisterNr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.lblHandelregisterNr.Location = New System.Drawing.Point(6, 161)
|
||||
Me.lblHandelregisterNr.Name = "lblHandelregisterNr"
|
||||
Me.lblHandelregisterNr.Size = New System.Drawing.Size(100, 13)
|
||||
Me.lblHandelregisterNr.TabIndex = 132
|
||||
Me.lblHandelregisterNr.Text = "Handelsregister-Nr.:"
|
||||
Me.lblHandelregisterNr.Visible = False
|
||||
'
|
||||
'txtHandelsregisterNr
|
||||
'
|
||||
Me.txtHandelsregisterNr._DateTimeOnly = False
|
||||
Me.txtHandelsregisterNr._numbersOnly = False
|
||||
Me.txtHandelsregisterNr._numbersOnlyKommastellen = ""
|
||||
Me.txtHandelsregisterNr._numbersOnlyTrennzeichen = True
|
||||
Me.txtHandelsregisterNr._Prozent = False
|
||||
Me.txtHandelsregisterNr._ShortDateNew = False
|
||||
Me.txtHandelsregisterNr._ShortDateOnly = False
|
||||
Me.txtHandelsregisterNr._TimeOnly = False
|
||||
Me.txtHandelsregisterNr._TimeOnly_Seconds = False
|
||||
Me.txtHandelsregisterNr._value = ""
|
||||
Me.txtHandelsregisterNr._Waehrung = False
|
||||
Me.txtHandelsregisterNr._WaehrungZeichen = True
|
||||
Me.txtHandelsregisterNr.ForeColor = System.Drawing.Color.Black
|
||||
Me.txtHandelsregisterNr.Location = New System.Drawing.Point(111, 158)
|
||||
Me.txtHandelsregisterNr.MaxLength = 17
|
||||
Me.txtHandelsregisterNr.MaxLineLength = -1
|
||||
Me.txtHandelsregisterNr.MaxLines_Warning = ""
|
||||
Me.txtHandelsregisterNr.MaxLines_Warning_Label = Nothing
|
||||
Me.txtHandelsregisterNr.Name = "txtHandelsregisterNr"
|
||||
Me.txtHandelsregisterNr.Size = New System.Drawing.Size(333, 20)
|
||||
Me.txtHandelsregisterNr.TabIndex = 133
|
||||
Me.txtHandelsregisterNr.Visible = False
|
||||
'
|
||||
'usrcntlKundeBearbeitenFull
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
@@ -4667,7 +4760,7 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
Me.Controls.Add(Me.Label77)
|
||||
Me.Controls.Add(Me.Label97)
|
||||
Me.Name = "usrcntlKundeBearbeitenFull"
|
||||
Me.Size = New System.Drawing.Size(1152, 570)
|
||||
Me.Size = New System.Drawing.Size(1152, 607)
|
||||
Me.tbcntrDetails.ResumeLayout(False)
|
||||
Me.tbAbfertigung.ResumeLayout(False)
|
||||
Me.tbAbfertigung.PerformLayout()
|
||||
@@ -5029,4 +5122,9 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
Friend WithEvents rtb_Zahlungsinfo As RichTextBox
|
||||
Friend WithEvents txtHandelsregisterNr As VERAG_PROG_ALLGEMEIN.MyTextBox
|
||||
Friend WithEvents lblHandelregisterNr As Label
|
||||
Friend WithEvents txtGruendungsDatum As VERAG_PROG_ALLGEMEIN.MyTextBox
|
||||
Friend WithEvents Label33 As Label
|
||||
Friend WithEvents cbxKapitalWaehrung As VERAG_PROG_ALLGEMEIN.MyComboBox
|
||||
Friend WithEvents Label103 As Label
|
||||
Friend WithEvents txtKapital As VERAG_PROG_ALLGEMEIN.MyTextBox
|
||||
End Class
|
||||
|
||||
@@ -54,14 +54,14 @@ Public Class usrcntlKundeBearbeitenFull
|
||||
|
||||
|
||||
|
||||
Public Sub init(kdnr)
|
||||
Public Sub init(kdnr As Integer, Optional _isVerag360 As Boolean = False)
|
||||
txtERROR.Text = ""
|
||||
KUNDE = New VERAG_PROG_ALLGEMEIN.cKunde(kdnr)
|
||||
ADRESSE = New VERAG_PROG_ALLGEMEIN.cAdressen(kdnr)
|
||||
FISKAL = New cFiskal_Daten(kdnr)
|
||||
KUNDE_ERW = New VERAG_PROG_ALLGEMEIN.cKundenErweitert(kdnr)
|
||||
|
||||
If Not IsDBNull(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_firmaFMZoll) AndAlso CInt(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_firmaFMZoll) = 19 Then isVerag360 = True
|
||||
isVerag360 = _isVerag360
|
||||
|
||||
cboFiliale.changeItem(loadValue(KUNDE.FilialenNr, "")) 'zuerst Filiale, dmait Kundennummernkreis später den Wert überschreiben kann!
|
||||
|
||||
@@ -72,11 +72,11 @@ Public Class usrcntlKundeBearbeitenFull
|
||||
|
||||
|
||||
|
||||
txtEORI.Visible = Not isVerag360
|
||||
txtEORINL.Visible = Not isVerag360
|
||||
lblEORI.Visible = Not isVerag360
|
||||
txtHandelsregisterNr.Visible = isVerag360
|
||||
lblHandelregisterNr.Visible = isVerag360
|
||||
'txtEORI.Visible = Not isVerag360
|
||||
'txtEORINL.Visible = Not isVerag360
|
||||
'lblEORI.Visible = Not isVerag360
|
||||
'txtHandelsregisterNr.Visible = isVerag360
|
||||
'lblHandelregisterNr.Visible = isVerag360
|
||||
|
||||
|
||||
If ADRESSE.AdressenNr <= 0 Then
|
||||
@@ -196,8 +196,12 @@ Public Class usrcntlKundeBearbeitenFull
|
||||
txtCreditsafe.Text = loadValue(KUNDE_ERW.kde_CreditSaveId, "")
|
||||
cboAbf_Steuerschluessel._value = loadValue(KUNDE.Steuerschlüssel, "")
|
||||
cboAbf_Waehrung._value = loadValue(KUNDE.Währungscode, "EUR")
|
||||
txtKapital.Text = loadValue(KUNDE_ERW.kde_Kapital, "")
|
||||
cbxKapitalWaehrung._value = loadValue(KUNDE_ERW.kde_KapitalWaehrung, "EUR")
|
||||
cbxSammelrechnungBerichtLeistungsdetails.Checked = loadValue(KUNDE_ERW.kde_FakturierungSR_Details, False)
|
||||
cboAbf_Sammelrechnung._value = loadValue(KUNDE.Sammelrechnung, "")
|
||||
txtGruendungsDatum.Text = loadValue(KUNDE_ERW.kde_GruendungsDatum, "")
|
||||
txtHandelsregisterNr.Text = loadValue(KUNDE_ERW.kde_HRNr, "")
|
||||
|
||||
|
||||
txtEORI.Text = If(KUNDE.EORITIN, "")
|
||||
@@ -574,10 +578,18 @@ Public Class usrcntlKundeBearbeitenFull
|
||||
KUNDE_ERW.Zahlungsziel2 = isLeerNothing(txtAbf_Zahlungsziel2.Text)
|
||||
KUNDE_ERW.Zahlungsziel3 = isLeerNothing(txtAbf_Zahlungsziel3.Text)
|
||||
|
||||
KUNDE_ERW.kde_Kapital = isLeerNothing(txtKapital._value)
|
||||
KUNDE_ERW.kde_KapitalWaehrung = isLeerNothing(cbxKapitalWaehrung._value)
|
||||
KUNDE_ERW.kde_HRNr = isLeerNothing(txtHandelsregisterNr.Text)
|
||||
|
||||
If isLeerNothing(txtGruendungsDatum.Text) IsNot Nothing AndAlso IsDate(txtGruendungsDatum.Text) Then
|
||||
KUNDE_ERW.kde_GruendungsDatum = CDate(txtGruendungsDatum.Text)
|
||||
End If
|
||||
|
||||
KUNDE.Euroeinführung = isLeerNothing(txtAbf_Euroeinführung._value)
|
||||
|
||||
|
||||
KUNDE.Währungscode = isLeerNothing(cboAbf_Waehrung._value)
|
||||
|
||||
KUNDE.Sammelrechnung = cboAbf_Sammelrechnung._value
|
||||
|
||||
KUNDE_ERW.kde_FakturierungSR_Details = cbxSammelrechnungBerichtLeistungsdetails.Checked
|
||||
@@ -801,6 +813,9 @@ Public Class usrcntlKundeBearbeitenFull
|
||||
|
||||
Private Sub loadControls()
|
||||
cboAbf_Waehrung.fillWithSQL("SELECT [Währungscode],[Land] FROM Währungstabelle ORDER BY Währungscode", , "FMZOLL", False)
|
||||
|
||||
cbxKapitalWaehrung.Items.AddRange(cboAbf_Waehrung.Items.Cast(Of VERAG_PROG_ALLGEMEIN.MyListItem).ToArray())
|
||||
|
||||
cboAbf_Steuerschluessel.fillWithSQL("SELECT [Steuerschlüssel], isnull(cast(cast( [Steuersatz %]*100 as decimal(2))as varchar(5)) + '% - ' +AuswahlSteuerbezeichnung,'') as Bezeichnung FROM [Steuertabelle] ORDER BY Steuerschlüssel", False, "FMZOLL", True)
|
||||
|
||||
|
||||
@@ -1148,6 +1163,19 @@ Public Class usrcntlKundeBearbeitenFull
|
||||
Me.tbcntrDetails.Controls.Remove(tbUmsatz)
|
||||
Me.tbcntrDetails.Controls.Remove(tbOP)
|
||||
|
||||
|
||||
For Each c As Control In Me.tbcntrDetails.Controls
|
||||
If c.Name = "tbBank" Then
|
||||
If Not isVerag360 Then
|
||||
c.Text = "Bankverb./Kreditkarten"
|
||||
Else
|
||||
c.Text = "Asfinag"
|
||||
End If
|
||||
End If
|
||||
|
||||
Next
|
||||
|
||||
|
||||
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Kundendaten_bearbeiten", Me.FindForm) Then
|
||||
btnFirmendatenFormularSpeichern.Enabled = False
|
||||
End If
|
||||
|
||||
Reference in New Issue
Block a user