Hallo
Ich habe ein Code bekommen, welches ich etwas umgeschrieben habe. Dieses Programm greift auf ein externes Programm zu, um Labels auszudrucken. Funktioniert auch soweit.Nun soll es aber noch in eine Datenbank schreiben. Tut es auch. Aber.....beides geht nicht. Deaktiviere ich das schreiben in der DB, druckt er. Deaktiviere ich das drucken, schreibt er. Nur beides nicht. Ich erhalte auch keine Fehlermeldung.
Leider weiß ich nicht , wie ich ansetzen soll um den Fehler zu beheben.
Hier mal der Ausschnitt des Codes
Bitte entschuldigt, das alles nicht mehr strukturiert ist. Hab alles mögliche , was ich weiß, getestet. Darum sind da einige hohle Labels und befehle drin.
Ich habe ein Code bekommen, welches ich etwas umgeschrieben habe. Dieses Programm greift auf ein externes Programm zu, um Labels auszudrucken. Funktioniert auch soweit.Nun soll es aber noch in eine Datenbank schreiben. Tut es auch. Aber.....beides geht nicht. Deaktiviere ich das schreiben in der DB, druckt er. Deaktiviere ich das drucken, schreibt er. Nur beides nicht. Ich erhalte auch keine Fehlermeldung.
Leider weiß ich nicht , wie ich ansetzen soll um den Fehler zu beheben.
Hier mal der Ausschnitt des Codes
VB.NET-Quellcode
- Friend Class Form1
- Inherits System.Windows.Forms.Form
- Dim LabelName As String
- Dim bLabelInit As Boolean
- Dim bNotifyInit As Boolean
- Public WithEvents Notify As Legi32.Notification
- Public WithEvents Label As Legi32.Label
- Private Sub Form1_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load
- Me.LS_K_ATableAdapter.Fill(Me.DataLogDataSet.LS_K_A)
- Me.LS_PrintTableAdapter.Fill(Me.DataLogDataSet.LS_Print)
- Label = New Legi32.Label
- 'Instantiate the connectable object.
- Notify = New Legi32.Notification
- ' Setup the callback events
- bNotifyInit = Notify.InitializeConnectionPoints
- If bNotifyInit = False Then
- MsgBox("Error initializing Notification object")
- End If
- bLabelInit = Label.InitializeConnectionPoints
- If bLabelInit = False Then
- MsgBox("Error initializing Label object")
- End If
- Timer.Enabled = True
- Timer.Interval = 36000
- Statusbar_LabelFE.Text = FELabel1.Text
- ToolStripStatusLabel2.Text = Label3.Text
- End Sub
- Private Sub Timmer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer.Tick
- If IsNumeric(FELabel1.Text) Then
- Print()
- End If
- Me.LS_K_ATableAdapter.Fill(Me.DataLogDataSet.LS_K_A)
- Me.LS_PrintTableAdapter.Fill(Me.DataLogDataSet.LS_Print)
- Statusbar_LabelFE.Text = FELabel1.Text
- ToolStripStatusLabel2.Text = Label3.Text
- End Sub
- Private Sub Form1_FormClosed(ByVal eventSender As System.Object, ByVal eventArgs As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
- If bLabelInit Then
- Label.CleanupConnectionPoints()
- End If
- If bNotifyInit Then
- Notify.CleanupConnectionPoints()
- End If
- 'UPGRADE_NOTE: Das Objekt Label kann erst dann gelöscht werden, wenn die Garbagecollection durchgeführt wurde. Klicken Sie hier für weitere Informationen: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6E35BFF6-CD74-4B09-9689-3E1A43DF8969"'
- Label = Nothing
- 'UPGRADE_NOTE: Das Objekt Notify kann erst dann gelöscht werden, wenn die Garbagecollection durchgeführt wurde. Klicken Sie hier für weitere Informationen: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6E35BFF6-CD74-4B09-9689-3E1A43DF8969"'
- Notify = Nothing
- End Sub
- Public Sub IDM_EXIT_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles IDM_EXIT.Click
- Me.Close()
- End Sub
- Public Sub IDM_PRINT_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles IDM_PRINT.Click
- Print()
- End Sub
- Public Sub IDM_SELECT_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles IDM_SELECT.Click
- Dim nLoaded As Short
- 'UPGRADE_WARNING: Filter hat ein neues Verhalten. Klicken Sie hier für weitere Informationen: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="9B7D5ADD-D8FE-4819-A36C-6DEDAF088CC7"'
- OpenFileDialog1.Filter = "All Files (*.*)|*.*|Label Files (*.lbl)|*.lbl"
- ' Specify default filter.
- OpenFileDialog1.FilterIndex = 2
- ' Display the Open dialog box.
- OpenFileDialog1.ShowDialog()
- ' Call the open file procedure.
- LabelName = OpenFileDialog1.FileName
- nLoaded = Label.LoadLabel(LabelName)
- Label2.Text = LabelName
- If nLoaded = 0 Then
- ' 255 means enumerate all supplied fields
- ' Only the 4 least significant bits are looked.
- ' 1 => barcodes
- ' 2 => graphics
- ' 3 => raw
- ' 4 => text
- nLoaded = Label.EnumSuppliedFieldNames(255)
- If nLoaded > 0 Then
- MsgBox("Unexpected error enumerating supplied fields")
- End If
- End If
- ' Exit Sub
- End Sub
- Private Sub Print()
- Dim TableID As Integer
- TableID = Notify.GetRunObjectTableEntryID
- Dim status As Integer
- Dim ClientID As Integer
- ClientID = 1
- status = Label.SetRunningObjectTableEntryID(TableID, ClientID)
- If Not status = 0 Then
- MsgBox("SetRunningObjectTableEntryID returned an error")
- End If
- Label.PrintLabel()
- printedLbL.Text = "1"
- Me.Validate()
- LS_K_ABindingSource.EndEdit()
- LS_K_ATableAdapter.Update(DataLogDataSet.LS_K_A)
- End Sub
- Private Sub Notify_LabelPrinted(ByVal uParam As Integer, ByVal bRtn As Boolean) Handles Notify.LabelPrinted
- If uParam = 1 Then
- If bRtn = True Then
- Dim nIndex As Integer
- nIndex = 3
- Else
- nIndex = 1
- End If
- Else
- If bRtn = True Then
- nIndex = 2
- Else
- nIndex = 0
- End If
- End If
- End Sub
- End Class
Bitte entschuldigt, das alles nicht mehr strukturiert ist. Hab alles mögliche , was ich weiß, getestet. Darum sind da einige hohle Labels und befehle drin.