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

MSE, Essensbestellungen, MDM, Kundebearbeiten, Vollmachten

Browse Source
This commit is contained in:
d.breimaier
2024-11-18 12:47:16 +01:00
parent a13d1b06d6
commit 66665fcd2f
15 changed files with 455 additions and 339 deletions
Download Patch File Download Diff File Expand all files Collapse all files

27
SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_MDM_EU.Designer.vb generated
View File

@@ -85,6 +85,7 @@ Partial Class usrcntlVollmacht_MDM_EU
Me.txt_GF_nachname = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txt_GF_vorname = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.cbxRMC = New System.Windows.Forms.CheckBox()
Me.cbxPrintDateAndCity = New System.Windows.Forms.CheckBox()
CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
@@ -109,7 +110,7 @@ Partial Class usrcntlVollmacht_MDM_EU
'Label7
'
Me.Label7.AutoSize = True
Me.Label7.Location = New System.Drawing.Point(590, 337)
Me.Label7.Location = New System.Drawing.Point(618, 340)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(24, 13)
Me.Label7.TabIndex = 26
@@ -223,7 +224,7 @@ Partial Class usrcntlVollmacht_MDM_EU
'Label13
'
Me.Label13.AutoSize = True
Me.Label13.Location = New System.Drawing.Point(812, 337)
Me.Label13.Location = New System.Drawing.Point(808, 340)
Me.Label13.Name = "Label13"
Me.Label13.Size = New System.Drawing.Size(41, 13)
Me.Label13.TabIndex = 64
@@ -232,9 +233,9 @@ Partial Class usrcntlVollmacht_MDM_EU
'datDatum
'
Me.datDatum.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
Me.datDatum.Location = New System.Drawing.Point(868, 337)
Me.datDatum.Location = New System.Drawing.Point(855, 337)
Me.datDatum.Name = "datDatum"
Me.datDatum.Size = New System.Drawing.Size(95, 20)
Me.datDatum.Size = New System.Drawing.Size(108, 20)
Me.datDatum.TabIndex = 65
'
'Label14
@@ -631,14 +632,13 @@ Partial Class usrcntlVollmacht_MDM_EU
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(653, 334)
Me.txtOrt.Location = New System.Drawing.Point(653, 337)
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.Size = New System.Drawing.Size(139, 20)
Me.txtOrt.TabIndex = 27
'
'txtAdresse2
@@ -1044,12 +1044,24 @@ Partial Class usrcntlVollmacht_MDM_EU
Me.cbxRMC.Text = "RMC"
Me.cbxRMC.UseVisualStyleBackColor = True
'
'cbxPrintDateAndCity
'
Me.cbxPrintDateAndCity.AutoSize = True
Me.cbxPrintDateAndCity.Checked = True
Me.cbxPrintDateAndCity.CheckState = System.Windows.Forms.CheckState.Checked
Me.cbxPrintDateAndCity.Location = New System.Drawing.Point(590, 340)
Me.cbxPrintDateAndCity.Name = "cbxPrintDateAndCity"
Me.cbxPrintDateAndCity.Size = New System.Drawing.Size(15, 14)
Me.cbxPrintDateAndCity.TabIndex = 148
Me.cbxPrintDateAndCity.UseVisualStyleBackColor = True
'
'usrcntlVollmacht_MDM_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.cbxPrintDateAndCity)
Me.Controls.Add(Me.cbxRMC)
Me.Controls.Add(Me.CheckedListBox1)
Me.Controls.Add(Me.cbx_GF_Geburtsland)
@@ -1183,4 +1195,5 @@ Partial Class usrcntlVollmacht_MDM_EU
Friend WithEvents txt_GF_nachname As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents txt_GF_vorname As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents cbxRMC As CheckBox
Friend WithEvents cbxPrintDateAndCity As CheckBox
End Class

19
SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_MDM_EU.vb
View File

@@ -106,6 +106,14 @@ Public Class usrcntlVollmacht_MDM_EU
txtHRNr.Text = If(KUNDE_ERW.kde_HRNr, "")
txtGruendungsdat.Text = If(KUNDE_ERW.kde_GruendungsDatum, "")
If txtAdresse3.Text <> "" Then
txtOrt.Text = txtAdresse3.Text
End If
If cboLand._value = "PL" Then
cbxPrintDateAndCity.Checked = False
End If
End Sub
@@ -175,4 +183,15 @@ Public Class usrcntlVollmacht_MDM_EU
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Private Sub cboLand_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboLand.SelectedIndexChanged
Select Case cboLand._value
Case "PL"
cbxPrintDateAndCity.Checked = False
End Select
End Sub
End Class

37
SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_MDM_NICHT_EU.Designer.vb generated
View File

@@ -82,7 +82,7 @@ Partial Class usrcntlVollmacht_MDM_NICHT_EU
Me.Label19 = New System.Windows.Forms.Label()
Me.cbxPrivatfirma = New System.Windows.Forms.CheckBox()
Me.txt_GF_vorname = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.cbxPrintDate = New System.Windows.Forms.CheckBox()
Me.cbxPrintDateAndCity = New System.Windows.Forms.CheckBox()
CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
@@ -285,15 +285,15 @@ Partial Class usrcntlVollmacht_MDM_NICHT_EU
'datDatum
'
Me.datDatum.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
Me.datDatum.Location = New System.Drawing.Point(868, 309)
Me.datDatum.Location = New System.Drawing.Point(854, 309)
Me.datDatum.Name = "datDatum"
Me.datDatum.Size = New System.Drawing.Size(95, 20)
Me.datDatum.Size = New System.Drawing.Size(109, 20)
Me.datDatum.TabIndex = 108
'
'Label13
'
Me.Label13.AutoSize = True
Me.Label13.Location = New System.Drawing.Point(812, 309)
Me.Label13.Location = New System.Drawing.Point(798, 312)
Me.Label13.Name = "Label13"
Me.Label13.Size = New System.Drawing.Size(41, 13)
Me.Label13.TabIndex = 107
@@ -302,7 +302,7 @@ Partial Class usrcntlVollmacht_MDM_NICHT_EU
'Label7
'
Me.Label7.AutoSize = True
Me.Label7.Location = New System.Drawing.Point(590, 309)
Me.Label7.Location = New System.Drawing.Point(618, 312)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(24, 13)
Me.Label7.TabIndex = 105
@@ -524,14 +524,13 @@ Partial Class usrcntlVollmacht_MDM_NICHT_EU
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(653, 306)
Me.txtOrt.Location = New System.Drawing.Point(653, 309)
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.Size = New System.Drawing.Size(123, 20)
Me.txtOrt.TabIndex = 106
'
'txtEmailzurueck
@@ -1002,16 +1001,16 @@ Partial Class usrcntlVollmacht_MDM_NICHT_EU
Me.txt_GF_vorname.Size = New System.Drawing.Size(163, 20)
Me.txt_GF_vorname.TabIndex = 144
'
'cbxPrintDate
'cbxPrintDateAndCity
'
Me.cbxPrintDate.AutoSize = True
Me.cbxPrintDate.Checked = True
Me.cbxPrintDate.CheckState = System.Windows.Forms.CheckState.Checked
Me.cbxPrintDate.Location = New System.Drawing.Point(969, 312)
Me.cbxPrintDate.Name = "cbxPrintDate"
Me.cbxPrintDate.Size = New System.Drawing.Size(15, 14)
Me.cbxPrintDate.TabIndex = 145
Me.cbxPrintDate.UseVisualStyleBackColor = True
Me.cbxPrintDateAndCity.AutoSize = True
Me.cbxPrintDateAndCity.Checked = True
Me.cbxPrintDateAndCity.CheckState = System.Windows.Forms.CheckState.Checked
Me.cbxPrintDateAndCity.Location = New System.Drawing.Point(590, 312)
Me.cbxPrintDateAndCity.Name = "cbxPrintDateAndCity"
Me.cbxPrintDateAndCity.Size = New System.Drawing.Size(15, 14)
Me.cbxPrintDateAndCity.TabIndex = 145
Me.cbxPrintDateAndCity.UseVisualStyleBackColor = True
'
'usrcntlVollmacht_MDM_NICHT_EU
'
@@ -1019,7 +1018,7 @@ Partial Class usrcntlVollmacht_MDM_NICHT_EU
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.WhiteSmoke
Me.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Controls.Add(Me.cbxPrintDate)
Me.Controls.Add(Me.cbxPrintDateAndCity)
Me.Controls.Add(Me.cbxPrivatfirma)
Me.Controls.Add(Me.cbx_GF_Geburtsland)
Me.Controls.Add(Me.Label21)
@@ -1147,5 +1146,5 @@ Partial Class usrcntlVollmacht_MDM_NICHT_EU
Friend WithEvents Label19 As Label
Friend WithEvents cbxPrivatfirma As CheckBox
Friend WithEvents txt_GF_vorname As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents cbxPrintDate As CheckBox
Friend WithEvents cbxPrintDateAndCity As CheckBox
End Class

10
SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_MDM_NICHT_EU.vb
View File

@@ -98,6 +98,11 @@ Public Class usrcntlVollmacht_MDM_NICHT_EU
txtHRNr.Text = If(KUNDE_ERW.kde_HRNr, "")
txtGruendungsdat.Text = If(KUNDE_ERW.kde_GruendungsDatum, "")
If txtAdresse3.Text <> "" Then
txtOrt.Text = txtAdresse3.Text
End If
End Sub
Private Sub btnDel_Click(sender As Object, e As EventArgs) Handles btnDel.Click
@@ -174,6 +179,11 @@ Public Class usrcntlVollmacht_MDM_NICHT_EU
Dim privatfirma As Boolean = False
Select Case cboLand._value
Case "PL"
cbxPrintDateAndCity.Checked = False
Case "NL"
privatfirma = True
Case "HR"

22
SDL/Formulare/KDFormulare/frmFormulare.vb
View File

@@ -1786,9 +1786,9 @@ Public Class FormularManagerNEU
Case "ceo_surname" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txt_GF_nachname.Text))
Case "ceo_firstname" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txt_GF_vorname.Text))
Case "place_date" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txtOrt.Text & IIf(IsDate(usrCntl.datDatum.Text) AndAlso usrCntl.cbxPrintDate.Checked, usrCntl.datDatum.Text, "")))
Case "place" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txtOrt.Text))
Case "date" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, IIf(IsDate(usrCntl.datDatum.Text) AndAlso usrCntl.cbxPrintDate.Checked, usrCntl.datDatum.Text, "")))
Case "place_date" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txtOrt.Text & IIf(IsDate(usrCntl.datDatum.Text) AndAlso usrCntl.cbxPrintDateAndCity.Checked, usrCntl.datDatum.Text, "")))
Case "place" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, IIf(usrCntl.txtOrt.Text <> "" AndAlso usrCntl.cbxPrintDateAndCity.Checked, usrCntl.txtOrt.Text, "")))
Case "date" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, IIf(IsDate(usrCntl.datDatum.Text) AndAlso usrCntl.cbxPrintDateAndCity.Checked, usrCntl.datDatum.Text, "")))
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))
@@ -1808,9 +1808,9 @@ Public Class FormularManagerNEU
Case "c_kontonr" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, FIRMA.Firma_IBAN1.Replace("IBAN:", "").Replace(" ", "").ToString.Trim().Substring(13, 7)))
Case "c_blz" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, FIRMA.Firma_IBAN1.Replace("IBAN:", "").Replace(" ", "").ToString.Trim().Substring(3, 5)))
Case "date_day" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, IIf(usrCntl.cbxPrintDate.Checked AndAlso IsDate(usrCntl.datDatum.Text), usrCntl.datDatum.Text.ToString.Substring(0, 2), "")))
Case "date_month" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, IIf(usrCntl.cbxPrintDate.Checked AndAlso IsDate(usrCntl.datDatum.Text), usrCntl.datDatum.Text.ToString.Substring(3, 2), "")))
Case "date_year" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, IIf(usrCntl.cbxPrintDate.Checked AndAlso IsDate(usrCntl.datDatum.Text), usrCntl.datDatum.Text.ToString.Substring(6, 4), "")))
Case "date_day" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, IIf(usrCntl.cbxPrintDateAndCity.Checked AndAlso IsDate(usrCntl.datDatum.Text), usrCntl.datDatum.Text.ToString.Substring(0, 2), "")))
Case "date_month" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, IIf(usrCntl.cbxPrintDateAndCity.Checked AndAlso IsDate(usrCntl.datDatum.Text), usrCntl.datDatum.Text.ToString.Substring(3, 2), "")))
Case "date_year" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, IIf(usrCntl.cbxPrintDateAndCity.Checked AndAlso IsDate(usrCntl.datDatum.Text), usrCntl.datDatum.Text.ToString.Substring(6, 4), "")))
@@ -1819,7 +1819,7 @@ Public Class FormularManagerNEU
Else
Select Case item.Text.ToLower().Trim()
Case "tagesdatum" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, IIf(IsDate(usrCntl.datDatum.Text) AndAlso usrCntl.cbxPrintDate.Checked, usrCntl.datDatum.Text, "")))
Case "tagesdatum" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, IIf(IsDate(usrCntl.datDatum.Text) AndAlso usrCntl.cbxPrintDateAndCity.Checked, usrCntl.datDatum.Text, "")))
End Select
End If
@@ -1952,9 +1952,9 @@ Public Class FormularManagerNEU
Case "c_bic" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_BIC1.Replace("BIC:", "")
Case "c_bic1" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_BIC1.Replace("BIC:", "")
Case "c_place_date" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtOrt.Text & ", " & IIf(IsDate(usrCntl.datDatum.Text) AndAlso usrCntl.cbxPrintDate.Checked, usrCntl.datDatum.Text, "")
Case "c_date" : odoc.FormFields(fieldName).Range.Text = IIf(IsDate(usrCntl.datDatum.Text) AndAlso usrCntl.cbxPrintDate.Checked, usrCntl.datDatum.Text, "")
Case "c_place" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtOrt.Text
Case "c_place_date" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtOrt.Text & ", " & IIf(IsDate(usrCntl.datDatum.Text) AndAlso usrCntl.cbxPrintDateAndCity.Checked, usrCntl.datDatum.Text, "")
Case "c_date" : odoc.FormFields(fieldName).Range.Text = IIf(IsDate(usrCntl.datDatum.Text) AndAlso usrCntl.cbxPrintDateAndCity.Checked, usrCntl.datDatum.Text, "")
Case "c_place" : odoc.FormFields(fieldName).Range.Text = IIf(IsDate(usrCntl.txtOrt.Text) AndAlso usrCntl.cbxPrintDateAndCity.Checked, usrCntl.txtOrt.Text, "")
End Select
@@ -3865,7 +3865,7 @@ Public Class FormularManagerNEU
' Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "UID_Prüfung", listTowrite)
Dim PdfTmp = fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2_FO(MANDANT.Firma_Bez), "", "EORI_Prufung", listTowrite)
Dim PdfTmp = fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2_FO(MANDANT.Firmengruppe), "", "EORI_Prufung", listTowrite)
Return PdfTmp