You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
100 lines
3.3 KiB
100 lines
3.3 KiB
Public Class frmFirmaAP
|
|
Dim m_firmanr As Integer
|
|
Property firmanr As Integer
|
|
Get
|
|
Return m_firmanr
|
|
|
|
End Get
|
|
Set(value As Integer)
|
|
m_firmanr = value
|
|
End Set
|
|
End Property
|
|
|
|
Dim m_nrfirmaap As Integer
|
|
Property nrfirmaap As Integer
|
|
Get
|
|
Return m_nrfirmaap
|
|
End Get
|
|
Set(value As Integer)
|
|
m_nrfirmaap = value
|
|
End Set
|
|
End Property
|
|
Dim db As New clsDB
|
|
Dim anreden As New DataTable
|
|
Dim daten As New DataTable
|
|
Private Sub frmFirmaAP_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
|
db.Get_Tabledata("Anrede", "", "")
|
|
anreden = db.dsDaten.Tables(0).Copy
|
|
Me.cbboxAnrede.DataSource = anreden
|
|
Me.cbboxAnrede.DisplayMember = "Anrede_D"
|
|
Me.cbboxAnrede.ValueMember = "nranrede"
|
|
|
|
If Me.nrfirmaap <> 0 Then
|
|
db.Get_Tabledata("Firmaap", "where nrfirmaap=" + Me.nrfirmaap.ToString, "", "", False)
|
|
daten = db.dsDaten.Tables(0).Copy
|
|
Me.txtName.Text = daten.Rows(0).Item(3)
|
|
Me.txtBriefanrede.Text = daten.Rows(0).Item(4)
|
|
Me.txtTelefon.Text = daten.Rows(0).Item(5)
|
|
Me.txtTelefax.Text = daten.Rows(0).Item(6)
|
|
Me.txtBemerkung.Text = daten.Rows(0).Item(7)
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub ToolStripButton5_Click(sender As Object, e As EventArgs) Handles ToolStripButton5.Click
|
|
If Me.nrfirmaap <> 0 Then
|
|
Save_Data()
|
|
Me.Close()
|
|
Else
|
|
db.Insert_New_Entry("firmaap", "nrfirmaap", True, "Select top 1 * from firmaap order by nrfirmaap desc")
|
|
Me.nrfirmaap = db.dsDaten.Tables(0).Rows(0).Item(0)
|
|
db.Get_Tabledata("Firmaap", "where nrfirmaap=" + Me.nrfirmaap.ToString, "", "", False)
|
|
daten = db.dsDaten.Tables(0).Copy
|
|
Update_Table("nrfirma", Me.firmanr)
|
|
Save_Data()
|
|
Me.Close()
|
|
End If
|
|
End Sub
|
|
|
|
Sub Save_Data()
|
|
Update_Table("Name", Me.txtName.Text)
|
|
|
|
Update_Table("Briefanrede", Me.txtBriefanrede.Text)
|
|
Update_Table("Telefon", Me.txtTelefon.Text)
|
|
Update_Table("Telefax", Me.txtTelefax.Text)
|
|
Update_Table("Bemerkung", Me.txtBemerkung.Text)
|
|
Update_Table("Nranrede", Me.cbboxAnrede.SelectedValue)
|
|
Update_Table("Mutiert_am", Now)
|
|
Update_Table("Mutierer", Globals.ActUser)
|
|
db.updatedata("select * from firmaap where nrfirmaap = " & Me.nrfirmaap.ToString, daten, False, True)
|
|
End Sub
|
|
|
|
Sub Update_Table(ByVal Tag As String, ByVal Val As Object)
|
|
Try
|
|
Try
|
|
If Val = " . ." Then
|
|
Val = "1900-01-01"
|
|
End If
|
|
' Val = Val.ToString.Replace(".", "")
|
|
'Val = Trim(Val)
|
|
daten.Rows(0).Item(Tag) = Val
|
|
Catch
|
|
End Try
|
|
|
|
daten.Rows(0).Item(Tag) = Val
|
|
|
|
Catch
|
|
End Try
|
|
|
|
End Sub
|
|
|
|
Sub Delete_ap()
|
|
Update_Table("aktiv", False)
|
|
Update_Table("Mutiert_am", Now)
|
|
Update_Table("Mutierer", Globals.ActUser)
|
|
db.updatedata("select * from firmaap where nrfirmaap = " & Me.nrfirmaap.ToString, daten, False, True)
|
|
End Sub
|
|
|
|
Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) Handles ToolStripButton1.Click
|
|
Me.Close()
|
|
End Sub
|
|
End Class |