270 lines
11 KiB
Plaintext
270 lines
11 KiB
Plaintext
Imports FastReport
|
|
Imports System.Data.SQLite
|
|
Imports System.IO
|
|
Public Class frmFirma
|
|
|
|
Dim AnsprechpartnerTableAdapter As New LPDataSetTableAdapters.AnsprechpartnerTableAdapter
|
|
Dim BerufeTableAdapter As New LPDataSetTableAdapters.BerufTableAdapter
|
|
Dim FirmenberufTableadapter As New LPDataSetTableAdapters.FirmaBerufTableAdapter
|
|
Dim ZeitTableAdapter As New LPDataSetTableAdapters.ZeitenTableAdapter
|
|
|
|
Dim Ansprechpartnerrow As LPDataSet.AnsprechpartnerRow
|
|
Dim firmarow As LPDataSet.FirmaRow
|
|
Dim FirmaBerufRow As LPDataSet.FirmaBerufRow
|
|
|
|
Dim dbkey As New clsdbkey
|
|
Dim MySpalten As New Utils.Tabellenspalte
|
|
|
|
|
|
Private Sub frmFirma_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
|
refresh_tree()
|
|
End Sub
|
|
|
|
Private Sub refresh_tree()
|
|
FirmaTableAdapter.FillByName(Me.LPDataSet.Firma)
|
|
Me.FirmaTableAdapter.GetDataByName()
|
|
Me.TreeView1.Nodes.Clear()
|
|
For Each r As DataRow In LPDataSet.Firma.Rows
|
|
Dim tn As New TreeNode
|
|
tn.Text = r.Item("NameZ1") + " " + r.Item("NameZ2") + ", " + r.Item("Ort")
|
|
tn.Tag = r.Item("FirmaNr")
|
|
Try
|
|
If r.Item("Aktiv") = False Then
|
|
Dim fnt_strikeout
|
|
fnt_strikeout = New System.Drawing.Font(TreeView1.Font.FontFamily, TreeView1.Font.Size, FontStyle.Strikeout)
|
|
tn.NodeFont = fnt_strikeout
|
|
End If
|
|
Catch ex As Exception
|
|
End Try
|
|
Me.TreeView1.Nodes.Add(tn)
|
|
Next
|
|
End Sub
|
|
|
|
Private Sub TreeView1_AfterSelect(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles TreeView1.AfterSelect
|
|
refresh_details(Me.TreeView1.SelectedNode.Tag)
|
|
tbCtrlFirma_SelectedIndexChanged(sender, e)
|
|
End Sub
|
|
|
|
Private Sub refresh_details(ByVal Firmanr As Integer)
|
|
Try
|
|
firmarow = LPDataSet.Firma.FindByFirmaNr(Firmanr)
|
|
Me.txtNameZ1.Text = firmarow.NameZ1.ToString
|
|
Me.txtNameZ2.Text = firmarow.NameZ2.ToString
|
|
Me.txtStrasse.Text = firmarow.Strasse.ToString
|
|
Me.txtPlz.Text = firmarow.PLZ.ToString
|
|
Me.txtOrt.Text = firmarow.Ort.ToString
|
|
Me.txtTel.Text = firmarow.Tel.ToString
|
|
Me.txtFax.Text = firmarow.Fax.ToString
|
|
Me.txtWeb.Text = firmarow.Web.ToString
|
|
Me.txtMail.Text = firmarow.EMail.ToString
|
|
Me.txtbemerkung.Text = firmarow.Bemerkung.ToString
|
|
Me.cbaktiv.Checked = firmarow.Aktiv = True
|
|
|
|
Refresh_Ansprechpartner(Firmanr)
|
|
|
|
Catch ex As Exception
|
|
MsgBox(ex.Message)
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub Refresh_Ansprechpartner(ByVal FirmaNr As Integer)
|
|
AnsprechpartnerTableAdapter.FillByFirmaNr(LPDataSet.Ansprechpartner, FirmaNr)
|
|
Me.C1Ansprechpartner.DataSource = LPDataSet.Ansprechpartner
|
|
Me.C1Ansprechpartner.DataMember = LPDataSet.Ansprechpartner.TableName
|
|
MySpalten.Spaltentitel_aktualisieren_Optionaler_Aktiv_Filer(Me.C1Ansprechpartner, "Ansprechpartner", LPDataSet.Ansprechpartner, "True")
|
|
End Sub
|
|
|
|
Private Sub SchliessenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SchliessenToolStripMenuItem.Click
|
|
Me.Close()
|
|
End Sub
|
|
|
|
Private Sub TSBtnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TSBtnSave.Click
|
|
firmarow = LPDataSet.Firma.FindByFirmaNr(Me.TreeView1.SelectedNode.Tag)
|
|
firmarow.NameZ1 = Me.txtNameZ1.Text
|
|
firmarow.NameZ2 = Me.txtNameZ2.Text
|
|
firmarow.Strasse = Me.txtStrasse.Text
|
|
firmarow.PLZ = Me.txtPlz.Text
|
|
firmarow.Ort = Me.txtOrt.Text
|
|
firmarow.Tel = Me.txtTel.Text
|
|
firmarow.Fax = Me.txtFax.Text
|
|
firmarow.Web = Me.txtWeb.Text
|
|
firmarow.EMail = Me.txtMail.Text
|
|
firmarow.Bemerkung = Me.txtbemerkung.Text
|
|
firmarow.Mutiert_am = Now
|
|
firmarow.Aktiv = cbaktiv.Checked = True
|
|
FirmaTableAdapter.Update(LPDataSet.Firma)
|
|
Me.refresh_tree()
|
|
End Sub
|
|
|
|
Private Sub TSBtnNew_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TSBtnNew.Click
|
|
firmarow = LPDataSet.Firma.NewFirmaRow
|
|
firmarow.FirmaNr = dbkey.Get_NewKey("Firma")
|
|
firmarow.NameZ1 = "*** Neu ***"
|
|
firmarow.NameZ2 = ""
|
|
firmarow.Strasse = ""
|
|
firmarow.PLZ = ""
|
|
firmarow.Ort = ""
|
|
firmarow.Tel = ""
|
|
firmarow.Fax = ""
|
|
firmarow.Web = ""
|
|
firmarow.EMail = ""
|
|
firmarow.Bemerkung = ""
|
|
firmarow.Mutiert_am = Now
|
|
firmarow.Erstellt_am = Now
|
|
firmarow.Aktiv = True
|
|
LPDataSet.Firma.AddFirmaRow(firmarow)
|
|
FirmaTableAdapter.Update(LPDataSet.Firma)
|
|
Me.refresh_tree()
|
|
End Sub
|
|
|
|
Private Sub TSBtnQuit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TSBtnQuit.Click
|
|
Me.Close()
|
|
End Sub
|
|
|
|
Private Sub ToolStripButton8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TSBtnAnsprechpartnerNeu.Click
|
|
Ansprechpartnerrow = LPDataSet.Ansprechpartner.NewRow
|
|
Ansprechpartnerrow.AnsprechpartnerNr = dbkey.Get_NewKey("Ansprechpartner")
|
|
Ansprechpartnerrow.Name = "*** Neu ***"
|
|
Ansprechpartnerrow.FirmaNr = Me.TreeView1.SelectedNode.Tag
|
|
Ansprechpartnerrow.Vorname = ""
|
|
Ansprechpartnerrow.Tel = ""
|
|
Ansprechpartnerrow.EMail = ""
|
|
Ansprechpartnerrow.Erstellt_am = Now
|
|
Ansprechpartnerrow.Mutierer = 1
|
|
Ansprechpartnerrow.Mutiert_am = Now
|
|
Ansprechpartnerrow.Aktiv = True
|
|
LPDataSet.Ansprechpartner.AddAnsprechpartnerRow(Ansprechpartnerrow)
|
|
AnsprechpartnerTableAdapter.Update(LPDataSet.Ansprechpartner)
|
|
Me.Refresh_Ansprechpartner(Me.TreeView1.SelectedNode.Tag)
|
|
End Sub
|
|
|
|
|
|
Private Sub TSBtnAnsprechpartnerSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TSBtnAnsprechpartnerSave.Click
|
|
AnsprechpartnerTableAdapter.Update(Me.LPDataSet.Ansprechpartner)
|
|
End Sub
|
|
|
|
Private Sub ToolStripMenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem2.Click
|
|
Me.Close()
|
|
End Sub
|
|
|
|
Private Sub tbCtrlFirma_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles tbCtrlFirma.SelectedIndexChanged
|
|
Select Case Me.tbCtrlFirma.SelectedTab.Text
|
|
Case "Berufe"
|
|
Refresh_Berufe()
|
|
Refresh_Firmenberufe()
|
|
Refresh_LB_Ansprechpartner()
|
|
Refresh_LB_Zeit()
|
|
Case Else
|
|
End Select
|
|
End Sub
|
|
|
|
Private Sub Refresh_Berufe()
|
|
BerufeTableAdapter.Fill(LPDataSet.Beruf)
|
|
Me.c1berfufe.DataSource = LPDataSet.Beruf
|
|
Me.c1berfufe.DataMember = LPDataSet.Beruf.TableName
|
|
MySpalten.Spaltentitel_aktualisieren_Optionaler_Aktiv_Filer(Me.c1berfufe, "Beruf", LPDataSet.Beruf, "True")
|
|
End Sub
|
|
|
|
Private Sub Refresh_Firmenberufe()
|
|
Me.c1FirmenBerufe.DataSource = Nothing
|
|
FirmenberufTableadapter.FillByFirmaNr(LPDataSet.FirmaBeruf, Me.TreeView1.SelectedNode.Tag)
|
|
Me.c1FirmenBerufe.DataSource = LPDataSet.FirmaBeruf
|
|
Me.c1FirmenBerufe.DataMember = LPDataSet.FirmaBeruf.TableName
|
|
MySpalten.Spaltentitel_aktualisieren_Optionaler_Aktiv_Filer(Me.c1FirmenBerufe, "Firmaberuf", LPDataSet.FirmaBeruf, "True")
|
|
End Sub
|
|
|
|
Private Sub Refresh_LB_Ansprechpartner()
|
|
Dim daten As New LPDataSet.AnsprechpartnerDataTable
|
|
AnsprechpartnerTableAdapter.FillByFirmaNrAktiv(daten, Me.TreeView1.SelectedNode.Tag)
|
|
Me.lbAnsprechpartner.DataSource = daten
|
|
Me.lbAnsprechpartner.DisplayMember = "Fullname"
|
|
Me.lbAnsprechpartner.ValueMember = "Ansprechpartnernr"
|
|
End Sub
|
|
|
|
Private Sub Refresh_LB_Zeit()
|
|
Dim daten As New LPDataSet.ZeitenDataTable
|
|
ZeitTableAdapter.FillByAktiv(daten)
|
|
Me.LbZeit.DataSource = daten
|
|
Me.LbZeit.DisplayMember = "Bezeichnung"
|
|
Me.LbZeit.ValueMember = "Zeitnr"
|
|
End Sub
|
|
|
|
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
|
|
FirmaBerufRow = LPDataSet.FirmaBeruf.NewFirmaBerufRow
|
|
FirmaBerufRow.FirmaBerufNr = dbkey.Get_NewKey("FirmaBeruf")
|
|
FirmaBerufRow.FirmaNr = Me.TreeView1.SelectedNode.Tag
|
|
FirmaBerufRow.Berufnr = Me.c1berfufe.Columns("Berufnr").Value
|
|
FirmaBerufRow.AnsprechpartnerNr = Me.lbAnsprechpartner.SelectedValue
|
|
FirmaBerufRow.ZeitNr = Me.LbZeit.SelectedValue
|
|
FirmaBerufRow.Bemerkung = ""
|
|
FirmaBerufRow.Aktiv = True
|
|
FirmaBerufRow.Erstellt_am = Now
|
|
FirmaBerufRow.Mutierer = 1
|
|
FirmaBerufRow.Mutiert_am = Now
|
|
FirmaBerufRow.Anzahl = lbAnzahl.SelectedItem
|
|
LPDataSet.FirmaBeruf.AddFirmaBerufRow(FirmaBerufRow)
|
|
FirmenberufTableadapter.Update(LPDataSet.FirmaBeruf)
|
|
Me.Refresh_Firmenberufe()
|
|
End Sub
|
|
|
|
Private Sub c1FirmenBerufe_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles c1FirmenBerufe.Leave
|
|
Check_Changes_Firmenberufe()
|
|
End Sub
|
|
|
|
Private Sub Check_Changes_Firmenberufe()
|
|
Dim t As New DataTable
|
|
t = c1FirmenBerufe.DataSource
|
|
|
|
If LPDataSet.FirmaBeruf.DataSet.HasChanges Then
|
|
If MsgBox("Angebote Berufe wurde verändert. Wollen Sie die Änderungen speichern?", MsgBoxStyle.Question + MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then
|
|
FirmenberufTableadapter.Update(LPDataSet.FirmaBeruf)
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click
|
|
Dim allg As New clsAllgemein
|
|
Dim selectFirst As Boolean = False
|
|
Dim ds As New DataSet
|
|
Dim SQLconnect As New SQLite.SQLiteConnection()
|
|
SQLconnect.ConnectionString = My.Settings.LPConnectionString & ";"
|
|
SQLconnect.Open()
|
|
Dim da As New SQLiteDataAdapter("", SQLconnect)
|
|
Dim sqlcmd As New SQLiteCommand
|
|
sqlcmd.Connection = SQLconnect
|
|
sqlcmd.CommandType = CommandType.Text
|
|
sqlcmd.CommandText = allg.Get_SQLAbfrage_Statement(1)
|
|
da.SelectCommand = sqlcmd
|
|
|
|
da.Fill(ds, "Daten")
|
|
sqlcmd.Dispose()
|
|
SQLconnect.Close()
|
|
Exit Sub
|
|
Dim report As New Report
|
|
' register the dataset
|
|
report.RegisterData(ds)
|
|
' enable the "Employees" datasource programmatically.
|
|
' You can also do this in the "Report|Choose Report Data..." menu.
|
|
report.GetDataSource("Daten").Enabled = True
|
|
' design the report
|
|
report.Design()
|
|
' free resources used by report
|
|
report.Dispose()
|
|
|
|
End Sub
|
|
|
|
Private Sub ToolStripButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton2.Click
|
|
Dim f As New frmReportview
|
|
f.MdiParent = Me.MdiParent
|
|
f.Show()
|
|
End Sub
|
|
|
|
Private Sub TSBtnDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TSBtnDelete.Click
|
|
firmarow = LPDataSet.Firma.FindByFirmaNr(Me.TreeView1.SelectedNode.Tag)
|
|
firmarow.Aktiv = False
|
|
firmarow.Mutiert_am = Now
|
|
firmarow.Mutierer = 1
|
|
FirmaTableAdapter.Update(LPDataSet.Firma)
|
|
Me.refresh_tree()
|
|
End Sub
|
|
End Class |