zusätzlich Position Zollbeschau, Suchfunktion in frmVorlagen. Frohe Weihnachten!
This commit is contained in:
File diff suppressed because it is too large
Load Diff
@@ -1,4 +1,5 @@
|
||||
Public Class usrCntlZollbeschau
|
||||
|
||||
Public Class usrCntlZollbeschau
|
||||
Implements FormualrInterface
|
||||
|
||||
Public Event CHANGED(name, value)
|
||||
@@ -137,15 +138,14 @@
|
||||
|
||||
Private Sub usrCntlZollbeschau_Load(sender As Object, e As EventArgs) Handles Me.Load
|
||||
Label16.Text = Rolle.ToString
|
||||
txtTimeZoll1.Text = "00:00"
|
||||
txtTimeZoll2.Text = "00:00"
|
||||
txtTimeZoll1.Enabled = False
|
||||
txtTimeZoll2.Enabled = False
|
||||
txtDurationZoll1.Enabled = False
|
||||
txtDurationZoll2.Enabled = False
|
||||
initControlsHandler()
|
||||
txtAnsprechpartnerVERAG.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME
|
||||
txtBeschauDat.Text = Date.Today.ToString("dd.MM.yyyy")
|
||||
txtVZDatum.Text = Date.Today.ToString("dd.MM.yyyy")
|
||||
|
||||
|
||||
If IsNumeric(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_durchwahl) Then
|
||||
txtDW.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_durchwahl
|
||||
End If
|
||||
@@ -158,8 +158,6 @@
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
|
||||
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
|
||||
If KdNR > 0 Then
|
||||
Dim f As New frmKundenUebersichtZOLL(KdNR)
|
||||
@@ -170,20 +168,11 @@
|
||||
|
||||
Private Sub DateTimePicker1_ValueChanged(sender As Object, e As EventArgs) Handles DateTimePicker1.ValueChanged
|
||||
txtZoll1Date._value = CDate(sender.value).ToShortDateString
|
||||
If txtZoll1Date._value <> "" Then
|
||||
txtTimeZoll1.Enabled = True
|
||||
Else
|
||||
txtTimeZoll1.Enabled = False
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub DateTimePicker2_ValueChanged(sender As Object, e As EventArgs) Handles DateTimePicker2.ValueChanged
|
||||
txtZoll2Date._value = CDate(sender.value).ToShortDateString
|
||||
If txtZoll2Date._value <> "" Then
|
||||
txtTimeZoll2.Enabled = True
|
||||
Else
|
||||
txtTimeZoll2.Enabled = False
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub dtpBeschauDat_ValueChanged(sender As Object, e As EventArgs) Handles dtpBeschauDat.ValueChanged
|
||||
@@ -195,4 +184,49 @@
|
||||
Private Sub DateTimePicker3_ValueChanged(sender As Object, e As EventArgs) Handles DateTimePicker3.ValueChanged
|
||||
txtVZDatum._value = CDate(sender.value).ToShortDateString
|
||||
End Sub
|
||||
|
||||
Private Sub txtZoll1Date_ValueChanged() Handles txtZoll1Date.ValueChanged
|
||||
If txtZoll1Date._value <> "" Then
|
||||
txtDurationZoll1.Enabled = True
|
||||
txtTimeZoll1.Enabled = True
|
||||
If txtTimeZoll1.Text = "" Then txtTimeZoll1.Text = Date.Now.ToString("HH:mm")
|
||||
If txtDurationZoll1.Text = "" Then txtDurationZoll1.Text = "00:00"
|
||||
Else
|
||||
txtDurationZoll1.Enabled = False
|
||||
txtTimeZoll1.Enabled = False
|
||||
txtTimeZoll1.Text = ""
|
||||
txtDurationZoll1.Text = ""
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub txtZoll2Date_ValueChanged() Handles txtZoll2Date.ValueChanged
|
||||
If txtZoll2Date._value <> "" Then
|
||||
txtDurationZoll2.Enabled = True
|
||||
txtTimeZoll2.Enabled = True
|
||||
If txtTimeZoll2.Text = "" Then txtTimeZoll2.Text = Date.Now.ToString("HH:mm")
|
||||
If txtDurationZoll2.Text = "" Then txtDurationZoll2.Text = "00:00"
|
||||
Else
|
||||
|
||||
txtDurationZoll2.Enabled = False
|
||||
txtTimeZoll2.Enabled = False
|
||||
txtTimeZoll2.Text = ""
|
||||
txtDurationZoll2.Text = ""
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Private Sub cbxzusätzlichePosition_CheckedChanged(sender As Object, e As EventArgs) Handles cbxzusätzlichePosition.CheckedChanged
|
||||
If cbxzusätzlichePosition.Checked Then
|
||||
|
||||
txtzusPosPreis.Enabled = True
|
||||
txtzusPosText.Enabled = True
|
||||
Else
|
||||
txtzusPosPreis.Enabled = False
|
||||
txtzusPosText.Enabled = False
|
||||
txtzusPosPreis.Text = ""
|
||||
txtzusPosText.Text = ""
|
||||
End If
|
||||
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
@@ -3588,6 +3588,7 @@ Public Class FormularManagerNEU
|
||||
|
||||
Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues)
|
||||
Dim top = 3
|
||||
Dim preisStandard As Double = 60
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnsprechpartnerVERAG.Text, 145, 47 + top, 150, 6, "", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFilialNr.Text & "/" & usrCntl.txtAbfNr.Text, 40, 47 + top, 150, 6, "", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtT1.Text, 145, 52 + top, 150, 6, "", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
@@ -3606,19 +3607,45 @@ Public Class FormularManagerNEU
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtLKWKennz.Text, 135, 88 + top, 135, 6, "", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFirma.Text, 135, 93 + top, 135, 6, "", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(IIf(usrCntl.txtZoll1Date.Text <> "", usrCntl.txtZoll1Date.Text & " " & usrCntl.txtTimeZoll1.Text, ""), 135, 97 + top, 135, 6, "", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(IIf(usrCntl.txtZoll2Date.Text <> "", usrCntl.txtZoll2Date.Text & " " & usrCntl.txtTimeZoll2.Text, ""), 135, 102 + top, 135, 6, "", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
Dim newTimeZoll1 As DateTime
|
||||
If usrCntl.txtDurationZoll1.Text <> "" Then
|
||||
newTimeZoll1 = DateTime.ParseExact(usrCntl.txtTimeZoll1.Text, "HH:mm", System.Globalization.DateTimeFormatInfo.InvariantInfo)
|
||||
Dim newDuration As DateTime
|
||||
newDuration = DateTime.ParseExact(usrCntl.txtDurationZoll1.Text, "HH:mm", System.Globalization.DateTimeFormatInfo.InvariantInfo)
|
||||
newTimeZoll1 = newTimeZoll1.AddHours(newDuration.ToString("HH"))
|
||||
newTimeZoll1 = newTimeZoll1.AddMinutes(newDuration.ToString("mm"))
|
||||
End If
|
||||
|
||||
Dim newTimeZoll2 As DateTime
|
||||
If usrCntl.txtDurationZoll2.Text <> "" Then
|
||||
newTimeZoll2 = DateTime.ParseExact(usrCntl.txtTimeZoll2.Text, "HH:mm", System.Globalization.DateTimeFormatInfo.InvariantInfo)
|
||||
Dim newDuration As DateTime
|
||||
newDuration = DateTime.ParseExact(usrCntl.txtDurationZoll2.Text, "HH:mm", System.Globalization.DateTimeFormatInfo.InvariantInfo)
|
||||
newTimeZoll2 = newTimeZoll2.AddHours(newDuration.ToString("HH"))
|
||||
newTimeZoll2 = newTimeZoll2.AddMinutes(newDuration.ToString("mm"))
|
||||
End If
|
||||
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(IIf(usrCntl.txtZoll1Date.Text <> "", usrCntl.txtZoll1Date.Text & " ", "") & IIf(usrCntl.txtTimeZoll1.Text <> "" AndAlso usrCntl.txtDurationZoll1.Text <> "", usrCntl.txtTimeZoll1.Text & " - " & newTimeZoll1.ToString("HH:mm"), ""), 135, 98 + top, 135, 6, "", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(IIf(usrCntl.txtZoll1Date.Text <> "", usrCntl.txtZoll2Date.Text & " ", "") & IIf(usrCntl.txtTimeZoll2.Text <> "" AndAlso usrCntl.txtDurationZoll2.Text <> "", usrCntl.txtTimeZoll2.Text & " - " & newTimeZoll2.ToString("HH:mm"), ""), 135, 103 + top, 135, 6, "", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
|
||||
'Sendungsdaten
|
||||
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnzVerp.Text, 130, 130 + top, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtGewicht.Text, 160, 130 + top, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtWarenbez.Text, 42, 146 + top, 150, 6, "", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnzVerp.Text, 130, 131 + top, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtGewicht.Text, 157, 131 + top, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtWarenbez.Text, 41, 146 + top, 150, 6, "", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
|
||||
|
||||
'Tabelle
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("60 €", 122, 151 + top, 150, 6, "", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("60 €", 122, 199 + top, 200, 6, "", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(preisStandard & " €", 122, 151 + top, 150, 6, "", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
|
||||
If usrCntl.cbxzusätzlichePosition.Checked Then
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("10", 27, 199 + top, 110, 6, "", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(IIf(usrCntl.txtzusPosText.Text <> "", usrCntl.txtzusPosText.Text, ""), 41, 199 + top, 110, 6, "", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(IIf(usrCntl.txtzusPosPreis.Text <> "", usrCntl.txtzusPosPreis.Text & " €", ""), 122, 199 + top, 135, 6, "", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
|
||||
End If
|
||||
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(IIf(usrCntl.txtzusPosPreis.Text <> "", usrCntl.txtzusPosPreis.Text + preisStandard & " €", preisStandard & " €"), 122, 203 + top, 200, 6, "", 10, , itextsharp.text.Element.ALIGN_LEFT))
|
||||
|
||||
Dim ort As String = ""
|
||||
|
||||
|
||||
Reference in New Issue
Block a user