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

neu

Browse Source
This commit is contained in:
Andreas Luxbauer
2022-07-08 08:12:43 +02:00
parent 697b78e3c9
commit 7f5057dc3e
121 changed files with 8039 additions and 19322 deletions
Download Patch File Download Diff File Expand all files Collapse all files

941
SDL/zoll/usrCntlZOLLAuswertungen.Designer.vb generated
View File

File diff suppressed because it is too large Load Diff

37
SDL/zoll/usrCntlZOLLAuswertungen.vb
View File

@@ -67,12 +67,16 @@ Public Class usrCntlZOLLAuswertungen
txtJahrIMEX.Value = Now.Year
txtJahrAmbar.Value = Now.Year
txtJahr_NCTSTR.Value = Now.Year
txtJahr_NCTSTR_UNISPED.Value = Now.Year
txtJahr_NCTSTR_AWOR.Value = Now.Year
cboMonatDurmaz.SelectedIndex = Now.AddMonths(-1).Month
cboMonatATILLA.SelectedIndex = Now.AddMonths(-1).Month
cboMonatIMEX.SelectedIndex = Now.AddMonths(-1).Month
cboMonatAmbar.SelectedIndex = Now.AddMonths(-1).Month
cboMonat_NCTSTR.SelectedIndex = Now.AddMonths(-1).Month
cboMonat_NCTSTR_UNISPED.SelectedIndex = Now.AddMonths(-1).Month
cboMonat_NCTSTR_AWOR.SelectedIndex = Now.AddMonths(-1).Month
Dim d As Date = CDate("01." & Now.Month & "." & Now.Year)
datVon.Value = Now 'd.AddMonths(-3)
@@ -84,6 +88,12 @@ Public Class usrCntlZOLLAuswertungen
datVon_NCTSTR.Value = Now
datBis_NCTSTR.Value = Now.AddDays(3)
datAuswertVon_NCTSTR_UNISPED.Value = Now
datAuswertBis_NCTSTR_UNISPED.Value = Now.AddDays(3)
datAuswertVon_NCTSTR_AWOR.Value = Now
datAuswertBis_NCTSTR_AWOR.Value = Now.AddDays(3)
ComboBox1.Items.Clear()
ComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ALLE", ""))
ComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG SUBEN", "SUB"))
@@ -727,4 +737,31 @@ Public Class usrCntlZOLLAuswertungen
frmPrintLayout.AuswertungKontrolleLKWTELOTEC(datVonATILLA.Text, datBisATILLA.Text, "IMEX")
frmPrintLayout.Show()
End Sub
Private Sub cboMonat_NCTSTR_AWOR_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboMonat_NCTSTR_AWOR.SelectedIndexChanged, txtJahr_NCTSTR_AWOR.TextChanged
If cboMonat_NCTSTR_AWOR.SelectedIndex <= 0 Then Exit Sub
Dim d As Date = CDate("01." & (cboMonat_NCTSTR_AWOR.SelectedIndex) & "." & txtJahr_NCTSTR_AWOR.Text)
datAuswertVon_NCTSTR_AWOR.Value = d
datAuswertBis_NCTSTR_AWOR.Value = d.AddMonths(1).AddDays(-1)
End Sub
Private Sub cboMonat_NCTSTR_UNISPED_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboMonat_NCTSTR_UNISPED.SelectedIndexChanged, txtJahr_NCTSTR_UNISPED.TextChanged
If cboMonat_NCTSTR_UNISPED.SelectedIndex <= 0 Then Exit Sub
Dim d As Date = CDate("01." & (cboMonat_NCTSTR_UNISPED.SelectedIndex) & "." & txtJahr_NCTSTR_UNISPED.Text)
datAuswertVon_NCTSTR_UNISPED.Value = d
datAuswertBis_NCTSTR_UNISPED.Value = d.AddMonths(1).AddDays(-1)
End Sub
Private Sub Button25_Click(sender As Object, e As EventArgs) Handles Button25.Click
Dim frmPrintLayout As New frmPrintLayout()
frmPrintLayout.AuswertungKontrolleLKW_NCTSTR(datAuswertVon_NCTSTR_AWOR.Text, datAuswertBis_NCTSTR_AWOR.Text, "MIC_AWOR")
frmPrintLayout.Show()
End Sub
Private Sub Button23_Click(sender As Object, e As EventArgs) Handles Button23.Click
Dim frmPrintLayout As New frmPrintLayout()
frmPrintLayout.AuswertungKontrolleLKW_NCTSTR(datAuswertVon_NCTSTR_UNISPED.Text, datAuswertBis_NCTSTR_UNISPED.Text, "MIC_UNISPED")
frmPrintLayout.Show()
End Sub
End Class