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

Ueberstuden, Einfuhrverbot, Formulare, Timas, Datev

Browse Source
This commit is contained in:
d.breimaier
2024-06-27 15:28:41 +02:00
parent 37bbc7d14f
commit f9f8b84606
8 changed files with 132 additions and 34 deletions
Download Patch File Download Diff File Expand all files Collapse all files

28
SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlEinfuhrverbot.Designer.vb generated
View File

@@ -34,6 +34,7 @@ Partial Class usrcntlEinfuhrverbot
Me.txtFirma = New VERAG_PROG_ALLGEMEIN.KdSearchBox()
Me.Label4 = New System.Windows.Forms.Label()
Me.cboSprache = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.txtAdresse3 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
@@ -206,12 +207,36 @@ Partial Class usrcntlEinfuhrverbot
Me.cboSprache.Size = New System.Drawing.Size(89, 21)
Me.cboSprache.TabIndex = 60
'
'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(254, 92)
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(709, 20)
Me.txtAdresse3.TabIndex = 61
'
'usrcntlEinfuhrverbot
'
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.txtAdresse3)
Me.Controls.Add(Me.Label4)
Me.Controls.Add(Me.cboSprache)
Me.Controls.Add(Me.lblEinfuhrverbot)
@@ -225,7 +250,7 @@ Partial Class usrcntlEinfuhrverbot
Me.Controls.Add(Me.txtAdresse1)
Me.Controls.Add(Me.lbl)
Me.Name = "usrcntlEinfuhrverbot"
Me.Size = New System.Drawing.Size(1000, 108)
Me.Size = New System.Drawing.Size(1000, 118)
CType(Me.pic, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
@@ -243,4 +268,5 @@ Partial Class usrcntlEinfuhrverbot
Friend WithEvents txtFirma As VERAG_PROG_ALLGEMEIN.KdSearchBox
Friend WithEvents Label4 As Label
Friend WithEvents cboSprache As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents txtAdresse3 As VERAG_PROG_ALLGEMEIN.MyTextBox
End Class

3
SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlEinfuhrverbot.vb
View File

@@ -60,7 +60,8 @@
Dim KUNDE = txtFirma.KdData_KUNDE
txtFirma.Text = If(ADRESSE.Name_1, ADRESSE.Ordnungsbegriff)
txtAdresse1.Text = If(ADRESSE.Straße, "")
txtAdresse2.Text = (If(ADRESSE.LandKz, "") & " " & If(ADRESSE.PLZ, "") & " " & If(ADRESSE.Ort, "")).ToString.Trim
txtAdresse2.Text = (If(ADRESSE.LandKz, "") & " " & If(ADRESSE.PLZ, "")).ToString.Trim
txtAdresse3.Text = (If(ADRESSE.Ort, "")).ToString.Trim
End If
End If
RaiseEvent KDNR_CHANGED(KdNR)

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

@@ -1744,8 +1744,11 @@ Public Class FormularManagerNEU
For Each s In SENDUNGEN
'Ä tb.Rows.Add(cnt, s.AbfertigungsNr, s.tblSnd_Abfertigungsart_ID)
tb.Rows.Add(SENDUNGEN.IndexOf(s))
cnt += 1
If s.tblSnd_Abfertigungsart_ID <> 44 Then
tb.Rows.Add(SENDUNGEN.IndexOf(s))
cnt += 1
End If
Next
@@ -5424,9 +5427,10 @@ Public Class FormularManagerNEU
Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues)
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrcntl.txtFirma.Text, 40, 150, 100, 20, "bold", 14, , itextsharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrcntl.txtAdresse1.Text, 40, 155, 110, 20, "bold", 14, , itextsharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrcntl.txtAdresse2.Text, 40, 160, 110, 20, "bold", 14, , itextsharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrcntl.txtFirma.Text, 40, 150, 200, 20, "bold", 14, , itextsharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrcntl.txtAdresse1.Text, 40, 155, 200, 20, "bold", 14, , itextsharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrcntl.txtAdresse2.Text, 40, 160, 200, 20, "bold", 14, , itextsharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrcntl.txtAdresse3.Text, 40, 165, 200, 20, "bold", 14, , itextsharp.text.Element.ALIGN_LEFT))
Select Case usrcntl.cboSprache._value
Case "EN"

1
SDL/kunden/usrcntlKundeBearbeitenFull.vb
View File

@@ -92,6 +92,7 @@ Public Class usrcntlKundeBearbeitenFull
cboKundenkreis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("3000000-3099999: AMBAR", "3000000-3099990"))
cboKundenkreis.changeItem("3000000-3099990")
KUNDE.Zahlungsziel = 0
ADRESSE.Rechnungsdruck = 2
Case "ATILLA"
cboKundenkreis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(" 100000-199999: ATILLA", "100000-199999"))
cboKundenkreis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(" 900000-999999: Sonstige", "900000-999999"))