1060 lines
45 KiB
VB.net
1060 lines
45 KiB
VB.net
'Imports System.ComponentModel
|
|
'Imports System.IO
|
|
'Imports System.Globalization
|
|
'Imports System.Data.SqlClient
|
|
'Imports System.Reflection
|
|
|
|
'Public Class old_frmMain
|
|
|
|
' Public Shared ConnStr, ConnStrInfo As String
|
|
' Public Shared Niederlassung As String
|
|
' Private Grid_aktiv As Boolean = False
|
|
' Private Anzahl As Integer
|
|
' Private locZeilen As Integer = -1
|
|
' Private Suche_freigegeben As Boolean = False
|
|
' Private DISPO As New cOptionenDAL
|
|
' ' Public Shared rowId As Integer
|
|
' Private hSQL As String
|
|
' Private nochange As Boolean = False
|
|
' Private startdate As Date = Now.AddYears(-1)
|
|
' 'Private startdatestring As String
|
|
' 'Private enddate As Date
|
|
' 'Private enddatestring As String = Format(Now(), "yyyymmdd")
|
|
' Private ein, aus As String
|
|
|
|
|
|
|
|
|
|
' Private Sub Button3_Click(sender As Object, e As EventArgs) Handles btnNew.Click
|
|
' If tbContrl.SelectedIndex = 0 Then frmDetails.rowId = -1 : frmDetails.mainForm = "frmMain" : frmDetails.Show()
|
|
' If tbContrl.SelectedIndex = 1 Then frmAuftragNEU.auftragID = -1 : frmAuftragNEU.Show() : AddHandler frmAuftragNEU.Disposed, AddressOf meEnabledTrue
|
|
' If tbContrl.SelectedIndex = 2 Then frmFrachtkostenNew.Show() : AddHandler frmFrachtkosten.Disposed, AddressOf meEnabledTrue
|
|
' End Sub
|
|
|
|
' Private Sub frmMain_Disposed(sender As Object, e As EventArgs) Handles Me.Disposed
|
|
' frmLogin.Close()
|
|
' End Sub
|
|
|
|
' Private Sub Main_Load(sender As Object, e As EventArgs) Handles Me.Load
|
|
' dgvAuftraege.DataSource = Me.dataBindingAuftraege
|
|
' dgvKunden.DataSource = Me.dataBindingKunden
|
|
' dgvFrachtkosten.DataSource = Me.dataBindingFrachtkosten
|
|
|
|
|
|
' cboAuftragsart.Items.Clear()
|
|
' cboAuftragsart.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ALLE", ""))
|
|
' cboAuftragsart.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("HANDLING", "HANDLING"))
|
|
' cboAuftragsart.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("TRANSPORT", "TRANSPORT"))
|
|
' cboAuftragsart.changeItem("ALLE")
|
|
|
|
|
|
' cboFiliale.Items.Clear()
|
|
|
|
|
|
' Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
|
' Case "AMBAR"
|
|
' cboFiliale.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AMBAR", "5701"))
|
|
' cboFiliale.changeItem("5701") : Niederlassung = "5701"
|
|
' Case Else
|
|
' cboFiliale.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ALLE", ""))
|
|
' cboFiliale.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SUBEN", "4807"))
|
|
' cboFiliale.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("NEUHAUS", "4819"))
|
|
|
|
' Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_niederlassung
|
|
' Case "NEU" : cboFiliale.changeItem("4819") : Niederlassung = "4819"
|
|
' Case Else : cboFiliale.changeItem("4807") : Niederlassung = "4807"
|
|
' End Select
|
|
' End Select
|
|
|
|
' ' dgvResult.DataSource = null;
|
|
' ' dgvResult.DataSource = patientBindingSource;
|
|
|
|
|
|
' If VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME = "Andreas Luxbauer" Then btnSQL.Visible = True
|
|
' ' If frmLogin.USRBER > 0 Then btnMitarb.Visible = False
|
|
' ' If frmLogin.USRBER > 5 Then btnNew.Enabled = False : btnDel.Enabled = False : btnChange.Enabled = False
|
|
' Grid_aktiv = True
|
|
' Tabelle_anzeigen()
|
|
' lblVersion.Text = "Version: " & My.Resources.Version
|
|
|
|
' cboSearchAuftraege.Items.Add(New MyListItem("PosNr", "atr_frachtpos"))
|
|
' cboSearchAuftraege.Items.Add(New MyListItem("Auftraggeber", "atr_auftr_firma"))
|
|
' cboSearchAuftraege.Items.Add(New MyListItem("Frachtführer Bis", "atr_frachtf_firma"))
|
|
' cboSearchAuftraege.Items.Add(New MyListItem("Frachtführer Ab", "atr_frachtfAb_firma"))
|
|
' cboSearchAuftraege.Items.Add(New MyListItem("Transportunternehmen", "atr_frachtpos"))
|
|
' cboSearchAuftraege.Items.Add(New MyListItem("Ladestelle", "atr_ladest_firma"))
|
|
' cboSearchAuftraege.Items.Add(New MyListItem("Entladestelle", "atr_entladest_firma"))
|
|
' cboSearchAuftraege.SelectedIndex = 0
|
|
|
|
' DateBIS.Value = Now()
|
|
' ' DateBIS.Visible = False
|
|
' DateVON.Value = Now.AddYears(-1).AddDays(1)
|
|
' 'DateVON.Visible = False
|
|
' 'LblVon.Visible = False
|
|
' 'LblBis.Visible = False
|
|
|
|
' EnableDoubleBuffered(dgvAuftraege)
|
|
' EnableDoubleBuffered(dgvFrachtkosten)
|
|
' EnableDoubleBuffered(dgvKunden)
|
|
|
|
' btnAuswertung.Visible = VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AUSWERTUNGEN", "DISPO")
|
|
' btnVollmacht.Visible = VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VOLLMACHT", "DISPO")
|
|
' btnTest.Visible = VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("TEST", "DISPO")
|
|
' End Sub
|
|
|
|
|
|
' Dim dataAdapterAuftraege As New SqlDataAdapter
|
|
' Dim dataBindingAuftraege As New BindingSource
|
|
|
|
' Private Sub initDGVAuftraege(bindingString As String)
|
|
' Dim sqlstr As String = bindingString
|
|
' ' dgvLKW.DataSource = bindingSDL
|
|
' Dim d As New SqlDataAdapter()
|
|
' Try
|
|
' 'Dim connectionString As String = cSqlDb.GetNewOpenConnection
|
|
' If frmLogin.TESTSYSTEM Then
|
|
' Me.dataAdapterAuftraege = New SqlDataAdapter(sqlstr, My.Resources.connStringDISPO_TEST)
|
|
' Else
|
|
' Me.dataAdapterAuftraege = New SqlDataAdapter(sqlstr, My.Resources.connStringDISPO)
|
|
' End If
|
|
|
|
' Catch ex As SqlException
|
|
' MessageBox.Show("Der Connection-String kann nicht verarbeitet werden. Wenden Sie sich an den Programmbetreuer.")
|
|
' End Try
|
|
' Dim commandBuilder As New SqlCommandBuilder(Me.dataAdapterAuftraege)
|
|
' Dim table As New DataTable()
|
|
' Me.dataAdapterAuftraege.Fill(table)
|
|
' table.Locale = System.Globalization.CultureInfo.InvariantCulture
|
|
' dgvAuftraege.DataBindings.Clear()
|
|
' Me.dataBindingAuftraege.DataSource = table
|
|
' End Sub
|
|
|
|
' Public Sub initDGVAuftraegeFilter()
|
|
' Dim start As Long = (DateTime.Now - New DateTime(1970, 1, 1)).TotalMilliseconds
|
|
' Dim andtxt As String = ""
|
|
' Dim where As String = ""
|
|
' If txtSuche.Text <> "" Then
|
|
' Dim oItem As MyListItem = CType(cboSearchAuftraege.SelectedItem, MyListItem)
|
|
' where = " " & oItem.Value & " LIKE '%" & txtSuche.Text & "%'"
|
|
' andtxt = " AND "
|
|
' End If
|
|
|
|
' If cboAuftragsart._value <> "" Then
|
|
' where &= andtxt & " atr_AuftragsArt='" & cboAuftragsart._value & "' "
|
|
' andtxt = " AND "
|
|
|
|
' End If
|
|
|
|
' If cboFiliale._value <> "" Then
|
|
' where &= andtxt & " atr_FilialenNr='" & cboFiliale._value & "' "
|
|
' andtxt = " AND "
|
|
|
|
' End If
|
|
|
|
' If cbxAbliefer.CheckState = CheckState.Checked Then
|
|
' where &= andtxt & " atr_abliefernachweis = 1"
|
|
' ElseIf cbxAbliefer.CheckState = CheckState.Unchecked Then
|
|
' where &= andtxt & " atr_abliefernachweis = 0"
|
|
' End If
|
|
' 'where &= andtxt & "atr_datum <= '" & enddatestring & "' AND atr_datum >= '" & startdatestring & "' "
|
|
|
|
' dataBindingAuftraege.Filter = where
|
|
' lblAnzahl.Refresh()
|
|
' Dim ende As Long = (DateTime.Now - New DateTime(1970, 1, 1)).TotalMilliseconds
|
|
' lblMs.Text = "Ladezeit: " & (ende - start) & " ms"
|
|
' End Sub
|
|
|
|
|
|
|
|
|
|
' Public Sub showDGVAuftraege()
|
|
' Dim start As Long = (DateTime.Now - New DateTime(1970, 1, 1)).TotalMilliseconds
|
|
|
|
' With dgvAuftraege
|
|
|
|
|
|
' initDGVAuftraege("SELECT atr_id, atr_frachtpos,atr_datum,atr_auftr_firma, atr_frachtf_firma,atr_frachtfAb_firma,atr_trans_firma,case when atr_AuftragsArt='TRANSPORT' THEN atr_ladest_firma ELSE atr_absender_firma END as atr_ladest_firma,case when atr_AuftragsArt='TRANSPORT' THEN atr_entladest_firma ELSE atr_empfaenger_firma END as atr_entladest_firma,atr_abliefernachweis,atr_AuftragsArt,atr_FilialenNr FROM tblAuftraege WHERE atr_datum <= '" & DateBIS.Value.ToShortDateString & "' AND atr_datum >= '" & DateVON.Value.ToShortDateString & "'")
|
|
|
|
' 'initDGVAuftraege("SELECT atr_AuftragsArt,atr_id, atr_frachtpos,atr_datum,atr_auftr_firma, atr_frachtf_firma,atr_frachtfAb_firma,atr_trans_firma,case when atr_AuftragsArt='TRANSPORT' THEN atr_ladest_firma ELSE atr_absender_firma END as atr_ladest_firma,case when atr_AuftragsArt='TRANSPORT' THEN atr_entladest_firma ELSE atr_empfaenger_firma END as atr_entladest_firma,atr_abliefernachweis,atr_FilialenNr FROM tblAuftraege WHERE atr_datum <= '" & DateBIS.Value.ToShortDateString & "' AND atr_datum >= '" & DateVON.Value.ToShortDateString & "'")
|
|
' ' MsgBox("SELECT atr_id, atr_frachtpos,atr_datum,atr_auftr_firma, atr_frachtf_firma,atr_frachtfAb_firma,atr_trans_firma,
|
|
' 'Case when atr_AuftragsArt='TRANSPORT' THEN atr_ladest_firma ELSE atr_absender_firma END as atr_ladest_firma,
|
|
' 'Case when atr_AuftragsArt='TRANSPORT' THEN atr_entladest_firma ELSE atr_empfaenger_firma END as atr_entladest_firma,
|
|
' 'atr_abliefernachweis, atr_AuftragsArt, atr_FilialenNr FROM tblAuftraege WHERE atr_datum <= '" & enddate.ToShortDateString & "' AND atr_datum >= '" & startdate.ToShortDateString & "'")
|
|
|
|
' locZeilen = -1
|
|
' Dim top As String = ""
|
|
|
|
' 'Tabelle Kommt/Geht bereinigen
|
|
' For i As Integer = 0 To dgvAuftraege.Columns.Count - 1
|
|
' .Columns(i).ReadOnly = True
|
|
' Next
|
|
|
|
' If .RowCount = 0 Then Exit Sub
|
|
|
|
' .Sort(dgvAuftraege.Columns(1), ListSortDirection.Descending)
|
|
' .RowTemplate.Height = 20
|
|
' '.RowTemplate.DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopLeft
|
|
' .AllowUserToAddRows = False
|
|
' .AllowUserToDeleteRows = False
|
|
' .AllowUserToOrderColumns = False
|
|
' .AllowUserToResizeColumns = True
|
|
' .AllowUserToResizeRows = False
|
|
' '.RowTemplate.ReadOnly = True
|
|
' .RowHeadersVisible = False
|
|
' .SelectionMode = DataGridViewSelectionMode.FullRowSelect
|
|
' .MultiSelect = False
|
|
' .Columns(0).Visible = False
|
|
' .Columns("atr_AuftragsArt").Visible = False
|
|
|
|
' .Columns(1).MinimumWidth = 70
|
|
' .Columns(1).AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
|
|
' .Columns(1).HeaderText = "FrachtposNr."
|
|
|
|
' .Columns(2).Width = 70
|
|
' .Columns(2).HeaderText = "Datum"
|
|
|
|
' .Columns(3).Width = 165
|
|
' .Columns(3).HeaderText = "Auftraggeber"
|
|
|
|
' .Columns(4).Width = 165
|
|
' .Columns(4).HeaderText = "Frachtführer Bis"
|
|
|
|
' .Columns("atr_frachtfAb_firma").Width = 165
|
|
' .Columns("atr_frachtfAb_firma").HeaderText = "Frachtführer Ab"
|
|
|
|
|
|
' .Columns(6).Width = 165
|
|
' .Columns(6).HeaderText = "Transportunternehmen"
|
|
|
|
' .Columns(7).Width = 165
|
|
' .Columns(7).HeaderText = "Ladestelle/Absender"
|
|
|
|
' .Columns(8).Width = 165
|
|
' .Columns(8).HeaderText = "Entladest./Empfänger"
|
|
|
|
' .Columns(9).Width = 60
|
|
' .Columns(9).HeaderText = "Abl.Nachw."
|
|
' .Columns(9).ReadOnly = False
|
|
' .Columns(9).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
|
|
|
|
' .Columns("atr_FilialenNr").Width = 60
|
|
' .Columns("atr_FilialenNr").HeaderText = "Filiale"
|
|
' .Columns("atr_FilialenNr").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
|
|
|
|
' .Columns("atr_Auftragsart").Width = 80
|
|
' .Columns("atr_Auftragsart").HeaderText = "Auftragsart"
|
|
' .Columns("atr_Auftragsart").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
|
|
' .Columns("atr_Auftragsart").DisplayIndex = 11
|
|
|
|
|
|
' 'Anzeige der Anzahl gewählter/aller Datensätze
|
|
' lblAnzahl.Text = Format(dgvAuftraege.RowCount, "#,##0")
|
|
' If (dgvAuftraege.RowCount = 100) Then lblAnzahl.Text &= " ausgewählt (Die Suche wurde auf 100 Ergebnisse beschränkt.)"
|
|
|
|
' initDGVAuftraegeFilter()
|
|
' End With
|
|
' lblAnzahl.Refresh()
|
|
' Dim ende As Long = (DateTime.Now - New DateTime(1970, 1, 1)).TotalMilliseconds
|
|
' lblMs.Text = "Ladezeit: " & (ende - start) & " ms"
|
|
' 'lblMs.Image = Nothing
|
|
' End Sub
|
|
|
|
|
|
|
|
|
|
|
|
|
|
' Dim dataAdapterFrachtkosten As New SqlDataAdapter
|
|
' Dim dataBindingFrachtkosten As New BindingSource
|
|
|
|
' Private Sub initDGVFrachtkosten(bindingString As String)
|
|
' Dim sqlstr As String = bindingString
|
|
' ' dgvLKW.DataSource = bindingSDL
|
|
' Dim d As New SqlDataAdapter()
|
|
' Try
|
|
' 'Dim connectionString As String = cSqlDb.GetNewOpenConnection
|
|
' If frmLogin.TESTSYSTEM Then
|
|
' Me.dataAdapterFrachtkosten = New SqlDataAdapter(sqlstr, My.Resources.connStringDISPO_TEST)
|
|
' Else
|
|
' Me.dataAdapterFrachtkosten = New SqlDataAdapter(sqlstr, My.Resources.connStringDISPO)
|
|
' End If
|
|
|
|
' Catch ex As SqlException
|
|
' MessageBox.Show("Der Connection-String kann nicht verarbeitet werden. Wenden Sie sich an den Programmbetreuer.")
|
|
' End Try
|
|
' Dim commandBuilder As New SqlCommandBuilder(Me.dataAdapterFrachtkosten)
|
|
' Dim table As New DataTable()
|
|
' Me.dataAdapterFrachtkosten.Fill(table)
|
|
' table.Locale = System.Globalization.CultureInfo.InvariantCulture
|
|
' dgvFrachtkosten.DataBindings.Clear()
|
|
' Me.dataBindingFrachtkosten.DataSource = table
|
|
' End Sub
|
|
|
|
' Public Sub initDGVFrachtkostenFilter()
|
|
' Dim start As Long = (DateTime.Now - New DateTime(1970, 1, 1)).TotalMilliseconds
|
|
' Dim andtxt As String = ""
|
|
' Dim where As String = ""
|
|
' If txtSuche.Text <> "" Then
|
|
' where = " kd_firma LIKE '%" & txtSuche.Text & "%' "
|
|
' End If
|
|
' dataBindingFrachtkosten.Filter = where
|
|
' lblAnzahl.Refresh()
|
|
' Dim ende As Long = (DateTime.Now - New DateTime(1970, 1, 1)).TotalMilliseconds
|
|
' lblMs.Text = "Ladezeit: " & (ende - start) & " ms"
|
|
' End Sub
|
|
|
|
|
|
|
|
|
|
' Public Sub showDGVFrachtkosten()
|
|
' Dim start As Long = (DateTime.Now - New DateTime(1970, 1, 1)).TotalMilliseconds
|
|
|
|
' With dgvFrachtkosten
|
|
' initDGVFrachtkosten("SELECT frtkst_id,frtkst_firmaId,kd_firma,frtkst_preisM3,frtkst_preisLDM,frtkst_provision FROM tblFrachtkosten,tblKunden WHERE kd_id=frtkst_firmaId ")
|
|
' locZeilen = -1
|
|
' Dim top As String = "" ' "top 100"
|
|
|
|
' 'Tabelle Kommt/Geht bereinigen
|
|
' If .RowCount = 0 Then Exit Sub
|
|
' dgvFrachtkosten.Sort(.Columns(1), ListSortDirection.Descending)
|
|
|
|
' .RowTemplate.Height = 20
|
|
' .RowTemplate.DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopLeft
|
|
' .AllowUserToAddRows = False
|
|
' .AllowUserToDeleteRows = False
|
|
' .AllowUserToOrderColumns = False
|
|
' .AllowUserToResizeColumns = True
|
|
' .AllowUserToResizeRows = False
|
|
' .RowTemplate.ReadOnly = True
|
|
' .RowHeadersVisible = False
|
|
' .SelectionMode = DataGridViewSelectionMode.FullRowSelect
|
|
' .MultiSelect = False
|
|
|
|
' .Columns(0).Visible = False
|
|
' .Columns(1).Visible = False
|
|
|
|
' .Columns(2).MinimumWidth = 300
|
|
' .Columns(2).AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
|
|
' .Columns(2).HeaderText = "Firma"
|
|
|
|
' .Columns(3).Width = 100
|
|
' .Columns(3).HeaderText = "Preis pro m³"
|
|
' .Columns(3).DefaultCellStyle.FormatProvider = CultureInfo.GetCultureInfo("de-DE")
|
|
' .Columns(3).DefaultCellStyle.Format = "n"
|
|
|
|
' .Columns(4).Width = 100
|
|
' .Columns(4).HeaderText = "Preis pro LDM"
|
|
' .Columns(4).DefaultCellStyle.FormatProvider = CultureInfo.GetCultureInfo("de-DE")
|
|
' .Columns(4).DefaultCellStyle.Format = "n"
|
|
|
|
' .Columns(5).Width = 100
|
|
' .Columns(5).HeaderText = "Provision"
|
|
' .Columns(5).DefaultCellStyle.FormatProvider = CultureInfo.GetCultureInfo("de-DE")
|
|
' .Columns(5).DefaultCellStyle.Format = "n"
|
|
|
|
' 'Anzeige der Anzahl gewählter/aller Datensätze
|
|
' lblAnzahl.Text = Format(.RowCount, "#,##0")
|
|
' If (.RowCount = 100) Then lblAnzahl.Text &= " ausgewählt (Die Suche wurde auf 100 Ergebnisse beschränkt.)"
|
|
|
|
' initDGVFrachtkostenFilter()
|
|
' End With
|
|
' lblAnzahl.Refresh()
|
|
' Dim ende As Long = (DateTime.Now - New DateTime(1970, 1, 1)).TotalMilliseconds
|
|
' lblMs.Text = "Ladezeit: " & (ende - start) & " ms"
|
|
|
|
' End Sub
|
|
|
|
|
|
|
|
|
|
|
|
' Public Sub Tabelle_anzeigen()
|
|
' btnRechner.Visible = False
|
|
' pnlFilterAuftrag.Visible = False
|
|
' If tbContrl.SelectedIndex = 0 Then showDGVKunden() : lblSuche.Visible = True : cboSearchAuftraege.Visible = False : cbxAbliefer.Visible = False : btnDuplicate.Visible = False : DatePicker_ausblenden()
|
|
' If tbContrl.SelectedIndex = 1 Then showDGVAuftraege() : pnlFilterAuftrag.Visible = True : lblSuche.Visible = False : cboSearchAuftraege.Visible = True : cbxAbliefer.Visible = True : btnDuplicate.Visible = True : DatePicker_einblenden()
|
|
' If tbContrl.SelectedIndex = 2 Then showDGVFrachtkosten() : lblSuche.Visible = True : cboSearchAuftraege.Visible = False : btnRechner.Visible = True : cbxAbliefer.Visible = False : btnDuplicate.Visible = False : DatePicker_ausblenden()
|
|
' End Sub
|
|
|
|
|
|
' Dim dataAdapterKunden As New SqlDataAdapter
|
|
' Dim dataBindingKunden As New BindingSource
|
|
|
|
' Private Sub initDGVKunden(bindingString As String)
|
|
' Try
|
|
' If frmLogin.TESTSYSTEM Then
|
|
' Me.dataAdapterKunden = New SqlDataAdapter(bindingString, My.Resources.connStringDISPO_TEST)
|
|
' Else
|
|
' Me.dataAdapterKunden = New SqlDataAdapter(bindingString, My.Resources.connStringDISPO)
|
|
' End If
|
|
' Catch ex As SqlException
|
|
' MessageBox.Show("Der Connection-String kann nicht verarbeitet werden. Wenden Sie sich an den Programmbetreuer.")
|
|
' End Try
|
|
' Dim commandBuilder As New SqlCommandBuilder(Me.dataAdapterKunden)
|
|
' Dim table As New DataTable()
|
|
' Me.dataAdapterKunden.Fill(table)
|
|
' table.Locale = System.Globalization.CultureInfo.InvariantCulture
|
|
' dgvKunden.DataBindings.Clear()
|
|
' Me.dataBindingKunden.DataSource = table
|
|
|
|
' ' Me.dataAdapterKunden.Fill(0, 2, dataBindingKunden.DataSource)
|
|
' End Sub
|
|
|
|
' Public Sub initDGVKundenFilter()
|
|
' Dim start As Long = (DateTime.Now - New DateTime(1970, 1, 1)).TotalMilliseconds
|
|
' Dim search As String = txtSuche.Text
|
|
' Dim where As String = ""
|
|
' If txtSuche.Text <> "" Then
|
|
' Dim arr() As String = Split(txtSuche.Text.Replace(" ", ","), ",")
|
|
' Dim cnt As Integer = 1
|
|
' If arr.Count() > 0 Then cnt = arr.Count
|
|
' Dim or_txt As String = ""
|
|
' For i As Integer = 0 To cnt - 1 Step 1
|
|
' If arr(i) <> "" Then search = arr(i).Trim
|
|
' If i > 0 Then where += " AND "
|
|
' ' where += " ( kd_firma LIKE '%" & search & "%' OR kd_str LIKE '%" & search & "%' OR kd_strnr LIKE '%" & search & "%' OR kd_plz LIKE '%" & search & "%' OR kd_ort LIKE '%" & search & "%' OR kd_land LIKE '%" & search & "%' OR kd_anspr1_vn LIKE '%" & search & "%' OR kd_anspr1_nn LIKE '%" & search & "%' OR kd_anspr2_vn LIKE '%" & search & "%' OR kd_anspr2_nn LIKE '%" & search & "%' OR kd_tel LIKE '%" & search & "%' OR kd_fax LIKE '%" & search & "%' OR kd_email LIKE '%" & search & "%' OR kd_homepage LIKE '%" & search & "%' ) "
|
|
' where += " ( kd_firma LIKE '%" & search & "%' OR strasse LIKE '%" & search & "%' OR ort LIKE '%" & search & "%' OR kd_land LIKE '%" & search & "%' ) "
|
|
' Next
|
|
' End If
|
|
' ' MsgBox(where)
|
|
' dataBindingKunden.Filter = where
|
|
|
|
|
|
|
|
' lblAnzahl.Refresh()
|
|
' Dim ende As Long = (DateTime.Now - New DateTime(1970, 1, 1)).TotalMilliseconds
|
|
' lblMs.Text = "Ladezeit: " & (ende - start) & " ms"
|
|
' End Sub
|
|
' Public Sub showDGVKunden()
|
|
' Dim start As Long = (DateTime.Now - New DateTime(1970, 1, 1)).TotalMilliseconds
|
|
' With dgvKunden
|
|
' Dim top As String = "" ' "top 100"
|
|
' 'initDGVKunden("SELECT * FROM tblKunden ")
|
|
' initDGVKunden("SELECT " & top & " kd_id, kd_firma, (kd_str + ' ' + kd_strnr) as strasse, (kd_plz + ' - ' + kd_ort) as ort, kd_land,kd_oez_id FROM tblKunden ")
|
|
' 'initDGVKunden(" SELECT " & top & " kd_id, kd_firma, kd_str , kd_strnr as strasse, kd_plz , kd_ort as ort, kd_land,kd_oez_id FROM tblKunden ")
|
|
' locZeilen = -1
|
|
' ' If Not Grid_aktiv Then Exit Sub
|
|
|
|
' 'Tabelle Kommt/Geht bereinigen
|
|
' If .RowCount = 0 Then Exit Sub
|
|
|
|
' .Sort(.Columns(1), ListSortDirection.Ascending)
|
|
|
|
' .RowTemplate.Height = 20
|
|
' .RowTemplate.DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopLeft
|
|
' .AllowUserToAddRows = False
|
|
' .AllowUserToDeleteRows = False
|
|
' .AllowUserToOrderColumns = False
|
|
' .AllowUserToResizeColumns = True
|
|
' .AllowUserToResizeRows = False
|
|
' .RowTemplate.ReadOnly = True
|
|
' .RowHeadersVisible = False
|
|
' .SelectionMode = DataGridViewSelectionMode.FullRowSelect
|
|
' .ReadOnly = True
|
|
|
|
' .Columns(0).Visible = False
|
|
|
|
' .Columns(1).MinimumWidth = 300
|
|
' .Columns(1).HeaderText = "Firma"
|
|
' .Columns(1).AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
|
|
' ' .Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
|
|
|
|
' .Columns(2).Width = 250
|
|
' .Columns(2).HeaderText = "Straße"
|
|
|
|
' .Columns(3).Width = 250
|
|
' .Columns(3).HeaderText = "Ort"
|
|
|
|
' .Columns(4).Width = 150
|
|
' .Columns(4).HeaderText = "Land"
|
|
|
|
' .Columns(5).Visible = False
|
|
|
|
|
|
' initDGVKundenFilter()
|
|
' 'Anzeige der Anzahl gewählter/aller Datensätze
|
|
' lblAnzahl.Text = Format(.RowCount, "#,##0") & " ausgewählt"
|
|
' If (.RowCount = 100) Then lblAnzahl.Text &= " (Die Suche wurde auf 100 Ergebnisse beschränkt.)"
|
|
' End With
|
|
|
|
' lblAnzahl.Refresh()
|
|
' Dim ende As Long = (DateTime.Now - New DateTime(1970, 1, 1)).TotalMilliseconds
|
|
' lblMs.Text = "Ladezeit: " & (ende - start) & " ms"
|
|
' 'lblMs.Image = Nothing
|
|
' End Sub
|
|
|
|
|
|
' Private Sub Eintraege_festlegen()
|
|
|
|
' For i As Integer = 0 To dgvKunden.RowCount - 1
|
|
' 'If (.Rows(i).Cells(1).Value = True) Then
|
|
' ' .Rows(i).DefaultCellStyle.BackColor = Color.IndianRed
|
|
' '.Item(1, i).BackColor = Color.IndianRed
|
|
' ' Dim inImg As Image = My.Resources.uhr_green
|
|
' ' dgvUID.Rows(i).Cells(5).Value.Image = inImg
|
|
' ' End If
|
|
' Next
|
|
' End Sub
|
|
|
|
' Private Sub dgvUID_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvKunden.CellDoubleClick
|
|
|
|
' ' rowId = dgvUID.CurrentRow.Cells(0).Value
|
|
' If frmDetails.Visible Then
|
|
' MsgBox("Ein Kunden-Formular ist bereits geöffnet!", vbCritical, "Fenster geöffnet")
|
|
' frmDetails.BringToFront()
|
|
' Else
|
|
' frmDetails.rowId = dgvKunden.CurrentRow.Cells(0).Value
|
|
' frmDetails.mainForm = "frmMain"
|
|
' End If
|
|
' frmDetails.Show()
|
|
' Me.Enabled = False
|
|
' AddHandler frmDetails.Disposed, AddressOf meEnabledTrue
|
|
' End Sub
|
|
|
|
' Private Sub DataGridView1_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvFrachtkosten.CellDoubleClick
|
|
|
|
' If frmFrachtkosten.Visible Then
|
|
' MsgBox("Ein Frachtkosten-Formular ist bereits geöffnet!", vbCritical, "Fenster geöffnet")
|
|
' frmFrachtkosten.BringToFront()
|
|
' Else
|
|
' frmFrachtkosten.frachtfirma_id = dgvFrachtkosten.CurrentRow.Cells(1).Value
|
|
' End If
|
|
' frmFrachtkosten.Show()
|
|
' Me.Enabled = False
|
|
' AddHandler frmFrachtkosten.Disposed, AddressOf meEnabledTrue
|
|
' End Sub
|
|
|
|
' Private Sub Button8_Click(sender As Object, e As EventArgs)
|
|
' Me.Close()
|
|
|
|
' End Sub
|
|
|
|
|
|
|
|
|
|
' Private Sub Button4_Click(sender As Object, e As EventArgs) Handles btnChange.Click
|
|
' If tbContrl.SelectedIndex = 0 Then 'Kunden
|
|
' Try
|
|
|
|
' If frmDetails.Visible Then
|
|
' MsgBox("Ein Kunden-Formular ist bereits geöffnet!", vbCritical, "Fenster geöffnet")
|
|
' frmDetails.BringToFront()
|
|
' Else
|
|
' frmDetails.rowId = dgvKunden.CurrentRow.Cells(0).Value
|
|
' frmDetails.mainForm = "frmMain"
|
|
' frmDetails.Show()
|
|
' AddHandler frmDetails.Disposed, AddressOf meEnabledTrue
|
|
' Me.Enabled = False
|
|
' End If
|
|
' Catch ex As Exception
|
|
' Me.Enabled = True
|
|
' End Try
|
|
' End If
|
|
' If tbContrl.SelectedIndex = 1 Then 'Aufträge
|
|
' Try
|
|
' If frmAuftragNEU.Visible Then
|
|
' MsgBox("Ein Auftrag ist bereits geöffnet!", vbCritical, "Fenster geöffnet")
|
|
' frmAuftragNEU.BringToFront()
|
|
' Else
|
|
' frmAuftragNEU.auftragID = dgvAuftraege.CurrentRow.Cells(0).Value
|
|
' frmAuftragNEU.Show()
|
|
' AddHandler frmAuftragNEU.Disposed, AddressOf meEnabledTrue
|
|
' Me.Enabled = False
|
|
' End If
|
|
' ' Me.Enabled = False
|
|
' Catch ex As Exception
|
|
' Me.Enabled = True
|
|
' End Try
|
|
|
|
' End If
|
|
' If tbContrl.SelectedIndex = 2 Then 'Aufträge
|
|
' Try
|
|
' If frmFrachtkostenNew.Visible Then
|
|
' MsgBox("Ein Auftrag ist bereits geöffnet!", vbCritical, "Fenster geöffnet")
|
|
' frmFrachtkostenNew.BringToFront()
|
|
' Else
|
|
' frmFrachtkostenNew.frachtfirma_id = dgvFrachtkosten.CurrentRow.Cells(1).Value
|
|
' frmFrachtkostenNew.Show()
|
|
' frmFrachtkostenNew.Text = "Änderung"
|
|
' AddHandler frmFrachtkostenNew.Disposed, AddressOf meEnabledTrue
|
|
' Me.Enabled = False
|
|
' End If
|
|
' ' Me.Enabled = False
|
|
' Catch ex As Exception
|
|
' Me.Enabled = True
|
|
' End Try
|
|
' End If
|
|
' End Sub
|
|
|
|
' Private Sub meEnabledTrue()
|
|
' Me.Enabled = True
|
|
' Tabelle_anzeigen()
|
|
' Me.BringToFront()
|
|
' End Sub
|
|
|
|
' Private Sub Button5_Click(sender As Object, e As EventArgs) Handles btnDel.Click
|
|
|
|
' If tbContrl.SelectedIndex = 0 AndAlso dgvKunden.SelectedRows.Count > 0 Then
|
|
' Select Case MsgBox("Soll der Eintrag wirklich gelöscht werden?", vbQuestion Or vbYesNo Or vbDefaultButton2, "Löschen?")
|
|
' Case vbYes
|
|
' DISPO.delData(Convert.ToInt32(dgvKunden.CurrentRow.Cells(0).Value))
|
|
' DISPO.delOeffnungszeiten(Convert.ToInt32(dgvKunden.CurrentRow.Cells(5).Value))
|
|
' Tabelle_anzeigen()
|
|
' Case vbNo
|
|
' End Select
|
|
' End If
|
|
' If tbContrl.SelectedIndex = 1 AndAlso dgvAuftraege.SelectedRows.Count > 0 Then
|
|
|
|
' Select Case MsgBox("Soll der Eintrag wirklich gelöscht werden?", vbQuestion Or vbYesNo Or vbDefaultButton2, "Löschen?")
|
|
' Case vbYes
|
|
' DISPO.delAuftrag(Convert.ToInt32(dgvAuftraege.CurrentRow.Cells(0).Value))
|
|
' Tabelle_anzeigen()
|
|
' Case vbNo
|
|
' End Select
|
|
' End If
|
|
|
|
' If tbContrl.SelectedIndex = 2 AndAlso dgvFrachtkosten.SelectedRows.Count > 0 Then
|
|
' Select Case MsgBox("Soll der Eintrag wirklich gelöscht werden?", vbQuestion Or vbYesNo Or vbDefaultButton2, "Löschen?")
|
|
' Case vbYes
|
|
' DISPO.delFrachtkosten(Convert.ToInt32(dgvFrachtkosten.CurrentRow.Cells(0).Value))
|
|
' Tabelle_anzeigen()
|
|
' Case vbNo
|
|
' End Select
|
|
' End If
|
|
' End Sub
|
|
|
|
' Private Sub dgvUID_RowPostPaint(sender As Object, e As DataGridViewRowPostPaintEventArgs)
|
|
' ' Eintraege_festlegen()
|
|
' End Sub
|
|
' Private Sub dgvUID_KeyDown(ByVal sender As Object,
|
|
' ByVal e As System.Windows.Forms.KeyEventArgs)
|
|
|
|
' If e.KeyCode = Keys.Delete Then
|
|
' e.Handled = True
|
|
' If dgvKunden.SelectedRows.Count = 1 Then
|
|
' Select Case MsgBox("Soll der Eintrag wirklich gelöscht werden?", vbQuestion Or vbYesNo Or vbDefaultButton2, "Löschen?")
|
|
' Case vbYes
|
|
' DISPO.delData(Convert.ToInt32(dgvKunden.CurrentRow.Cells(0).Value))
|
|
' Tabelle_anzeigen()
|
|
' Case vbNo
|
|
|
|
' End Select
|
|
' End If
|
|
|
|
' End If
|
|
' End Sub
|
|
' Private Sub SearchChanged(sender As Object, e As EventArgs) Handles txtSuche.TextChanged, cbxAbliefer.CheckStateChanged, txtSuche.Click, Button1.Click, cboAuftragsart.SelectedIndexChanged, cboFiliale.SelectedIndexChanged
|
|
' txtSuche.Text = txtSuche.Text.Replace("'", "")
|
|
' Dim anz As Integer = 0
|
|
' If tbContrl.SelectedIndex = 0 Then initDGVKundenFilter() : anz = dgvKunden.RowCount
|
|
' If tbContrl.SelectedIndex = 1 Then initDGVAuftraegeFilter() : anz = dgvAuftraege.RowCount
|
|
' If tbContrl.SelectedIndex = 2 Then initDGVFrachtkostenFilter() : anz = dgvFrachtkosten.RowCount
|
|
|
|
' lblAnzahl.Text = Format(anz, "#,##0")
|
|
' If IsNumeric(anz) AndAlso CInt(anz) = 100 Then lblAnzahl.Text &= " ausgewählt (Die Suche wurde auf 100 Ergebnisse beschränkt.)"
|
|
|
|
|
|
' 'If Not nochange Then Tabelle_anzeigen()
|
|
' End Sub
|
|
|
|
' Private Sub txtPosSearch_TextChanged(sender As Object, e As EventArgs)
|
|
' txtSuche.Text = ""
|
|
' If Not nochange Then Tabelle_anzeigen()
|
|
' End Sub
|
|
|
|
' Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
|
|
' txtSuche.Text = ""
|
|
' cbxAbliefer.CheckState = CheckState.Indeterminate
|
|
' Tabelle_anzeigen()
|
|
' End Sub
|
|
|
|
|
|
' Private Sub Button6_Click(sender As Object, e As EventArgs)
|
|
' frmHistory.rowId = dgvKunden.CurrentRow.Cells(0).Value
|
|
' frmHistory.Show()
|
|
' End Sub
|
|
|
|
' Private Sub dgvUID_SelectionChanged(sender As Object, e As EventArgs)
|
|
' ' Try
|
|
' 'If (dgvUID.CurrentRow.Cells(1).Value = True) Then
|
|
' ' dgvUID.CurrentRow.Cells(1).Style.SelectionBackColor = Color.IndianRed
|
|
' ' Else
|
|
' ' dgvUID.CurrentRow.Cells(1).Style.SelectionBackColor = Color.White
|
|
' ' End If
|
|
' ' Catch ex As Exception
|
|
|
|
' ' End Try
|
|
' End Sub
|
|
|
|
' Private Sub btnMitarb_Click(sender As Object, e As EventArgs)
|
|
' frmMitarbeiter.Show()
|
|
' End Sub
|
|
|
|
' Private Sub btnUpdate_Click(sender As Object, e As EventArgs) Handles btnUpdate.Click
|
|
' frmLogin.UpdateDISPO()
|
|
' End Sub
|
|
|
|
' Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click
|
|
' Application.Exit()
|
|
' End Sub
|
|
|
|
' Private Sub dgvUID_CellContentClick(sender As Object, e As DataGridViewCellEventArgs)
|
|
|
|
' End Sub
|
|
|
|
' Private Sub Button7_Click(sender As Object, e As EventArgs)
|
|
' Dim print As Boolean = True
|
|
' If (dgvKunden.RowCount > 100) Then
|
|
' print = (MsgBox("Möchten Sie wirklich " & dgvKunden.RowCount & " Einträge drucken?", vbQuestion Or vbYesNo Or vbDefaultButton2, "Einträge drucken?") = vbYes)
|
|
' End If
|
|
' If print Then
|
|
' Dim l As IList(Of cEntry)
|
|
' l = DISPO.getDataBySQL(hSQL)
|
|
' Dim where As String = ""
|
|
' If MsgBox("Möchten Sie auch deaktivierte Kunden einschließen?", vbQuestion Or vbYesNo Or vbDefaultButton2, "Auswahl mit deaktivierten Kunden?") = vbNo Then
|
|
' For i As Integer = 0 To (l.Count - 1) Step 1
|
|
' MsgBox(i & " - " & l.Count - 1)
|
|
' ' If l(i).deakt Then
|
|
' ' l.RemoveAt(i) ' : i = i - 1
|
|
' 'End If
|
|
' Next
|
|
' End If
|
|
' frmPrintView.Show()
|
|
' frmPrintView.BefuellenFirmen(l)
|
|
' End If
|
|
|
|
' End Sub
|
|
|
|
' Private Sub Panel1_Paint(sender As Object, e As PaintEventArgs) Handles Panel1.Paint
|
|
|
|
' End Sub
|
|
|
|
' Private Sub dgvAuftraege_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvAuftraege.CellDoubleClick
|
|
' frmAuftragNEU.auftragID = dgvAuftraege.CurrentRow.Cells(0).Value
|
|
' If frmAuftragNEU.Visible Then
|
|
' MsgBox("Ein Antrag ist bereits geöffnet!", vbCritical, "Fenster geöffnet")
|
|
' frmAuftragNEU.BringToFront()
|
|
' End If
|
|
' frmAuftragNEU.Show()
|
|
' AddHandler frmAuftragNEU.Disposed, AddressOf meEnabledTrue
|
|
' frmAuftragNEU.BringToFront()
|
|
' End Sub
|
|
|
|
|
|
|
|
' Private Sub tbContrl_SelectedIndexChanged(sender As Object, e As EventArgs) Handles tbContrl.SelectedIndexChanged
|
|
' txtSuche.Text = ""
|
|
' txtSuche.Focus()
|
|
' Tabelle_anzeigen()
|
|
|
|
' End Sub
|
|
|
|
|
|
' Private Sub dataGridView1_CellClick(ByVal sender As Object, ByVal e As DataGridViewCellEventArgs) Handles dgvAuftraege.CellClick
|
|
' Try
|
|
' If e.ColumnIndex = dgvAuftraege.Rows(e.RowIndex).Cells("atr_abliefernachweis").ColumnIndex Then
|
|
' Dim val As Boolean = Not dgvAuftraege.Rows(e.RowIndex).Cells("atr_abliefernachweis").Value
|
|
' DISPO.setAbliefernachweis(dgvAuftraege.Rows(e.RowIndex).Cells(0).Value, val)
|
|
' Tabelle_anzeigen()
|
|
' End If
|
|
' Catch ex As Exception
|
|
' End Try
|
|
' End Sub
|
|
|
|
|
|
|
|
' Private WithEvents T As New Timers.Timer With {.Interval = 500, .Enabled = True, .AutoReset = True}
|
|
' Private FormCount As Integer = 1
|
|
' Private Sub SomeForm_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs)
|
|
' If e.KeyData = Keys.Escape Then
|
|
' Dim TheForm = DirectCast(DirectCast(sender, Control).TopLevelControl, Form)
|
|
' If Not TheForm Is Nothing Then
|
|
' TheForm.Close()
|
|
' End If
|
|
' End If
|
|
' If e.KeyData = Keys.PrintScreen Then
|
|
' Dim TheForm = DirectCast(DirectCast(sender, Control).TopLevelControl, Form)
|
|
' If Not TheForm Is Nothing Then
|
|
' Dim c As New cProgramFunctions
|
|
' c.screenshot()
|
|
' End If
|
|
' End If
|
|
' End Sub
|
|
' Private Sub HookControls(ByVal f As Control)
|
|
' For Each Control As Control In f.Controls
|
|
' AddHandler Control.KeyUp, AddressOf SomeForm_KeyUp
|
|
' If Control.Controls.Count <> 0 Then
|
|
' HookControls(Control)
|
|
' End If
|
|
' Next
|
|
' End Sub
|
|
' Private Sub T_Elapsed(ByVal sender As Object, ByVal e As System.Timers.ElapsedEventArgs) Handles T.Elapsed
|
|
' If FormCount = 0 Then FormCount = 1
|
|
' Dim FormOpened As Integer = My.Application.OpenForms.Count
|
|
' If FormCount <> FormOpened Then
|
|
' If FormOpened > FormCount Then
|
|
' For x As Integer = 1 To (FormOpened - FormCount)
|
|
' Dim F As Form = My.Application.OpenForms.Item(FormOpened - x)
|
|
' AddHandler F.KeyDown, AddressOf SomeForm_KeyUp
|
|
' HookControls(F)
|
|
' FormCount = My.Application.OpenForms.Count
|
|
' Next
|
|
' Else
|
|
' FormCount = My.Application.OpenForms.Count
|
|
' End If
|
|
' End If
|
|
' End Sub
|
|
|
|
' Private Sub btnHelp_Click(sender As Object, e As EventArgs) Handles btnHelp.Click
|
|
' 'Process.Start(My.Resources.DISPO_Benutzerhandbuch)
|
|
' Dim pdf As Byte() = My.Resources.DISPO_Benutzerhandbuch
|
|
' Using tmp As New FileStream("tmp.pdf", FileMode.Create)
|
|
' tmp.Write(pdf, 0, pdf.Length)
|
|
' End Using
|
|
' Process.Start("tmp.pdf")
|
|
' ' Dim p As pdfviewer
|
|
' ' pdfviewer.src = My.Resources.MyPdfFile
|
|
' ' FileMode.OpenOrCreate(My.Resources.DISPO_Benutzerhandbuch)
|
|
' End Sub
|
|
|
|
' Private Sub Button3_Click_1(sender As Object, e As EventArgs) Handles btnDuplicate.Click
|
|
' Try
|
|
' Dim AUFTRAG As New cDispoAuftraege(dgvAuftraege.CurrentRow.Cells(0).Value)
|
|
' AUFTRAG.atr_id = -1
|
|
' AUFTRAG.atr_datum = Now
|
|
' AUFTRAG.atr_frachtpos = Nothing
|
|
' AUFTRAG.LADUNGEN.Clear()
|
|
' AUFTRAG.BH_rechnungen.Clear()
|
|
' AUFTRAG.SAVE()
|
|
|
|
' Dim frmAuftragNEU As New frmAuftragNEU
|
|
' frmAuftragNEU.auftragID = AUFTRAG.atr_id
|
|
' AddHandler frmAuftragNEU.Disposed, AddressOf meEnabledTrue
|
|
' frmAuftragNEU.Show()
|
|
|
|
' Exit Sub
|
|
' Dim a As cAuftraege = DISPO.getAuftragById(dgvAuftraege.CurrentRow.Cells(0).Value)
|
|
' a.atr_frachtpos = DISPO.getFrachtpos
|
|
' a.atr_datum = Now
|
|
' a.atr_abliefernachweis = False
|
|
' a.atr_ladungen = New List(Of cLadungen)
|
|
' a.bh_rechnungen = New List(Of cBuchhaltungRechnung)
|
|
|
|
' a.cmr_ausl_land = ""
|
|
' a.cmr_ausl_ort = ""
|
|
' a.cmr_beigefDok = ""
|
|
' a.cmr_anwAbs = ""
|
|
' a.cmr_rueckerst = ""
|
|
' a.cmr_frZahlanwFrei = ""
|
|
' a.cmr_frZahlanwUnfrei = ""
|
|
' a.cmr_besVereinb = ""
|
|
' a.cmr_ausgefIn = ""
|
|
' a.cmr_uebergabe_land = ""
|
|
' a.cmr_uebergabe_ort = ""
|
|
' a.cmr_uebergabe_datum = ""
|
|
' a.cmr_vorbehFrachtf = ""
|
|
|
|
' a.bh_mon = ""
|
|
|
|
' a.bh_vermerke = ""
|
|
' a.atr_notes = ""
|
|
' a.atr_gefahrengut = ""
|
|
' a.atr_frachtkosten = ""
|
|
' a.atr_entladest_terminBis = ""
|
|
' a.atr_entladest_terminVon = ""
|
|
' a.atr_entladest_terminDat = ""
|
|
' a.atr_ladest_terminBis = ""
|
|
' a.atr_ladest_terminVon = ""
|
|
' a.atr_ladest_terminDat = ""
|
|
' a.atr_bemerkung = ""
|
|
' a.atr_speditionsbuchNr = -1
|
|
' a.atr_lkwArt = ""
|
|
' a.atr_lkwKz = ""
|
|
' a.atr_lkwNutzlast = ""
|
|
' a.atr_anhKz = ""
|
|
' a.atr_anhNutzlast = ""
|
|
|
|
' DISPO.insertAuftragUndLadung(a)
|
|
' DISPO.setFrachtpos(a.atr_frachtpos)
|
|
' frmAuftragNEU.auftragID = DISPO.atr_id_insert
|
|
' AddHandler frmAuftragNEU.Disposed, AddressOf meEnabledTrue
|
|
' frmAuftragNEU.Show()
|
|
|
|
' 'frmAuftragNEU.Show()
|
|
' Catch ex As Exception
|
|
' MsgBox("Fehler beim Duplizieren: " & ex.Message)
|
|
' End Try
|
|
|
|
' End Sub
|
|
|
|
|
|
' Private Sub lblVersion_Click(sender As Object, e As EventArgs) Handles lblVersion.Click
|
|
' frmInfo.Show()
|
|
' End Sub
|
|
|
|
' Private Sub Button3_Click_2(sender As Object, e As EventArgs) Handles Button3.Click
|
|
' 'If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMIN", Me) Then
|
|
' Me.Cursor = Cursors.WaitCursor
|
|
' Dim eh As New SDL.frmCMR()
|
|
' eh.Show()
|
|
' Me.Cursor = Cursors.Default
|
|
' ' End If
|
|
|
|
' Exit Sub
|
|
' frmCMR.Show()
|
|
' End Sub
|
|
|
|
|
|
' Private Sub btnRechner_Click(sender As Object, e As EventArgs) Handles btnRechner.Click
|
|
' If dgvFrachtkosten.SelectedRows.Count > 0 Then
|
|
' frmFrachtkosten.frachtfirma_id = dgvFrachtkosten.CurrentRow.Cells(1).Value
|
|
' frmFrachtkosten.Show()
|
|
' AddHandler frmFrachtkosten.Disposed, AddressOf meEnabledTrue
|
|
' End If
|
|
' End Sub
|
|
|
|
|
|
' Private Sub btnSQL_Click(sender As Object, e As EventArgs) Handles btnSQL.Click
|
|
' DISPO.doSQL(" " &
|
|
' " INSERT INTO [DISPO].[dbo].tblBhUntern " &
|
|
' " SELECT [atr_id] as [bhut_atrId] " &
|
|
' " ,[bh_unterKennz_1] as [bhut_unternKennz] " &
|
|
' " ,[bh_unterKennz_bis_1] as [bhut_bis] " &
|
|
' " ,[bh_unterKennz_kosten_1] as [bhut_kosten] " &
|
|
' " FROM DISPO.[dbo].[tblAuftraege] " &
|
|
' " WHERE [bh_unterKennz_1]<>'' or [bh_unterKennz_bis_1]<>'' or [bh_unterKennz_kosten_1]<>'' " &
|
|
' " INSERT INTO [DISPO].[dbo].tblBhUntern " &
|
|
' " SELECT [atr_id] as [bhut_atrId] " &
|
|
' " ,[bh_unterKennz_2] as [bhut_unternKennz] " &
|
|
' " ,[bh_unterKennz_bis_2] as [bhut_bis] " &
|
|
' " ,[bh_unterKennz_kosten_2] as [bhut_kosten] " &
|
|
' " FROM DISPO.[dbo].[tblAuftraege] " &
|
|
' " WHERE [bh_unterKennz_2]<>'' or [bh_unterKennz_bis_2]<>'' or [bh_unterKennz_kosten_2]<>'' " &
|
|
' " INSERT INTO [DISPO].[dbo].tblBhUntern " &
|
|
' " SELECT [atr_id] as [bhut_atrId] " &
|
|
' " ,[bh_unterKennz_3] as [bhut_unternKennz] " &
|
|
' " ,[bh_unterKennz_bis_3] as [bhut_bis] " &
|
|
' " ,[bh_unterKennz_kosten_3] as [bhut_kosten] " &
|
|
' " FROM DISPO.[dbo].[tblAuftraege] " &
|
|
' " WHERE [bh_unterKennz_3]<>'' or [bh_unterKennz_bis_3]<>'' or [bh_unterKennz_kosten_3]<>'' ")
|
|
|
|
|
|
' End Sub
|
|
|
|
|
|
' Private Sub Button4_Click_1(sender As Object, e As EventArgs) Handles Button4.Click
|
|
' Dim s As New SDL.frmSecureLoginKassenbuch
|
|
' s.openKB = True
|
|
' s.disableCBO = False
|
|
' s.ShowDialog(Me)
|
|
' End Sub
|
|
|
|
' Private Sub DateVONorBIS_ValueChanged(sender As Object, e As EventArgs) Handles DateVON.ValueChanged, DateBIS.ValueChanged
|
|
' showDGVAuftraege()
|
|
' End Sub
|
|
|
|
|
|
' Private Sub CmdHeute_Click(sender As Object, e As EventArgs) Handles CmdHeute.Click
|
|
' DateVON.Value = Now()
|
|
' DateBIS.Value = Now()
|
|
' End Sub
|
|
|
|
' Private Sub CmdTagMinus_Click(sender As Object, e As EventArgs) Handles CmdTagMinus.Click, CmdTagPlus.Click
|
|
' If sender Is CmdTagPlus Then
|
|
' DateVON.Value = DateVON.Value.AddDays(1)
|
|
' DateBIS.Value = DateVON.Value
|
|
' Else
|
|
' DateVON.Value = DateVON.Value.AddDays(-1)
|
|
' DateBIS.Value = DateVON.Value
|
|
' End If
|
|
' End Sub
|
|
|
|
' Private Sub CmdMonat_Click(sender As Object, e As EventArgs) Handles CmdMonat.Click
|
|
' DateVON.Value = Now.AddDays(-Now.Day + 1)
|
|
' DateBIS.Value = Now()
|
|
' End Sub
|
|
|
|
' Private Sub CmdMonatMinus_Click(sender As Object, e As EventArgs) Handles CmdMonatMinus.Click, CmdMonatPlus.Click
|
|
' If sender Is CmdMonatPlus Then
|
|
' DateVON.Value = DateVON.Value.AddDays(-DateVON.Value.Day + 1).AddMonths(1)
|
|
' DateBIS.Value = DateVON.Value.AddMonths(1).AddDays(-1)
|
|
' Else
|
|
' DateVON.Value = DateVON.Value.AddDays(-DateVON.Value.Day + 1).AddMonths(-1)
|
|
' DateBIS.Value = DateVON.Value.AddMonths(1).AddDays(-1)
|
|
' End If
|
|
' End Sub
|
|
|
|
' Private Sub CmdJahr_Click(sender As Object, e As EventArgs) Handles CmdJahr.Click
|
|
' DateVON.Value = Now.AddDays(-Now.Day + 1).AddMonths(-Now.Month + 1)
|
|
' DateBIS.Value = Now()
|
|
' End Sub
|
|
|
|
' Private Sub CmdJahrMinus_Click(sender As Object, e As EventArgs) Handles CmdJahrMinus.Click, CmdJahrPlus.Click
|
|
' If sender Is CmdJahrPlus Then
|
|
' DateVON.Value = DateVON.Value.AddDays(-DateVON.Value.Day + 1).AddMonths(-DateVON.Value.Month + 1).AddYears(1)
|
|
' DateBIS.Value = DateVON.Value.AddYears(1).AddDays(-1)
|
|
' Else
|
|
' DateVON.Value = DateVON.Value.AddDays(-DateVON.Value.Day + 1).AddMonths(-DateVON.Value.Month + 1).AddYears(-1)
|
|
' DateBIS.Value = DateVON.Value.AddYears(1).AddDays(-1)
|
|
' End If
|
|
' End Sub
|
|
|
|
' Private Sub CmdAlle_Click(sender As Object, e As EventArgs) Handles CmdAlle.Click
|
|
' Try
|
|
' DateVON.Value = "01.01.1970"
|
|
' DateBIS.Value = Now.AddDays(-DateVON.Value.Day + 1).AddMonths(-DateVON.Value.Month + 1).AddYears(1)
|
|
' cboAuftragsart.changeItem("Alle")
|
|
' cboFiliale.changeItem("Alle")
|
|
' Catch
|
|
' MsgBox("Oh oh")
|
|
' End Try
|
|
|
|
' End Sub
|
|
|
|
' Private Function DatePicker_einblenden()
|
|
' 'DateBIS.Visible = True
|
|
' 'DateVON.Visible = True
|
|
' 'LblVon.Visible = True
|
|
' 'LblBis.Visible = True
|
|
' PnlDatum.Visible = True
|
|
' End Function
|
|
|
|
|
|
|
|
' Private Function DatePicker_ausblenden()
|
|
' 'DateBIS.Visible = False
|
|
' 'DateVON.Visible = False
|
|
' 'LblVon.Visible = False
|
|
' 'LblBis.Visible = False
|
|
' PnlDatum.Visible = False
|
|
' End Function
|
|
|
|
' Private Sub btnExportVollmacht_Click(sender As Object, e As EventArgs) Handles btnVollmacht.Click
|
|
' SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.VERAG_EXPORT, -1, , True)
|
|
' End Sub
|
|
|
|
' Private Sub btnTest_Click(sender As Object, e As EventArgs) Handles btnTest.Click
|
|
' frmMainV2.Show()
|
|
' End Sub
|
|
|
|
|
|
' Private Sub btnAuswertung_Click(sender As Object, e As EventArgs) Handles btnAuswertung.Click
|
|
' If cboFiliale.SelectedItem.text = "NEUHAUS" Then
|
|
' frmAuswertung.Niederlassung = "4819"
|
|
' ElseIf cboFiliale.SelectedItem.text = "SUBEN" Then
|
|
' frmAuswertung.Niederlassung = "4807"
|
|
' Else
|
|
' Niederlassung = ""
|
|
' End If
|
|
' frmAuswertung.Show()
|
|
' End Sub
|
|
|
|
' Public Sub EnableDoubleBuffered(ByVal dgv As DataGridView)
|
|
' Dim dgvType As Type = dgv.[GetType]()
|
|
' Dim pi As PropertyInfo = dgvType.GetProperty("DoubleBuffered",
|
|
' BindingFlags.Instance Or BindingFlags.NonPublic)
|
|
' pi.SetValue(dgv, True, Nothing)
|
|
' End Sub
|
|
|
|
'End Class
|