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.
1294 lines
52 KiB
1294 lines
52 KiB
Imports System.Data
|
|
Imports System.Data.SqlTypes
|
|
Imports System.Data.SqlClient
|
|
Imports System.ComponentModel
|
|
Imports UtilityLibrary.Win32
|
|
Imports System.Text
|
|
Imports System.Threading
|
|
Imports System.IO
|
|
|
|
Public Class frmcoldview
|
|
Inherits System.Windows.Forms.Form
|
|
|
|
#Region " Vom Windows Form Designer generierter Code "
|
|
|
|
Public Sub New()
|
|
MyBase.New()
|
|
|
|
' Dieser Aufruf ist für den Windows Form-Designer erforderlich.
|
|
InitializeComponent()
|
|
|
|
' Initialisierungen nach dem Aufruf InitializeComponent() hinzufügen
|
|
|
|
End Sub
|
|
|
|
' Die Form überschreibt den Löschvorgang der Basisklasse, um Komponenten zu bereinigen.
|
|
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
|
|
|
|
If disposing Then
|
|
If Not (components Is Nothing) Then
|
|
components.Dispose()
|
|
End If
|
|
End If
|
|
MyBase.Dispose(disposing)
|
|
End Sub
|
|
|
|
' Für Windows Form-Designer erforderlich
|
|
Private components As System.ComponentModel.IContainer
|
|
|
|
'HINWEIS: Die folgende Prozedur ist für den Windows Form-Designer erforderlich
|
|
'Sie kann mit dem Windows Form-Designer modifiziert werden.
|
|
'Verwenden Sie nicht den Code-Editor zur Bearbeitung.
|
|
Friend WithEvents NoteCount As System.Windows.Forms.Label
|
|
Friend WithEvents NoteLabel As System.Windows.Forms.Label
|
|
Friend WithEvents ToolBar1 As System.Windows.Forms.ToolBar
|
|
Friend WithEvents ToolBtnExit As System.Windows.Forms.ToolBarButton
|
|
Friend WithEvents ToolBarButton1 As System.Windows.Forms.ToolBarButton
|
|
Friend WithEvents ToolBarButton2 As System.Windows.Forms.ToolBarButton
|
|
Friend WithEvents ToolBarButton3 As System.Windows.Forms.ToolBarButton
|
|
Friend WithEvents ToolBarButton4 As System.Windows.Forms.ToolBarButton
|
|
Friend WithEvents ToolBarButton5 As System.Windows.Forms.ToolBarButton
|
|
Friend WithEvents ToolBarButton6 As System.Windows.Forms.ToolBarButton
|
|
Friend WithEvents ToolBarButton7 As System.Windows.Forms.ToolBarButton
|
|
Friend WithEvents ToolBarButton8 As System.Windows.Forms.ToolBarButton
|
|
Friend WithEvents PrintDocument1 As System.Drawing.Printing.PrintDocument
|
|
Friend WithEvents ImageList1 As System.Windows.Forms.ImageList
|
|
Friend WithEvents Panel1 As System.Windows.Forms.Panel
|
|
Friend WithEvents OnDemand As AxARSOLELib.AxArsOle
|
|
Friend WithEvents ToolBarButton9 As System.Windows.Forms.ToolBarButton
|
|
Friend WithEvents ToolBarButton10 As System.Windows.Forms.ToolBarButton
|
|
Friend WithEvents lblpages As System.Windows.Forms.Label
|
|
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
|
|
Me.components = New System.ComponentModel.Container()
|
|
Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(frmcoldview))
|
|
Me.NoteCount = New System.Windows.Forms.Label()
|
|
Me.NoteLabel = New System.Windows.Forms.Label()
|
|
Me.ToolBar1 = New System.Windows.Forms.ToolBar()
|
|
Me.ToolBtnExit = New System.Windows.Forms.ToolBarButton()
|
|
Me.ToolBarButton1 = New System.Windows.Forms.ToolBarButton()
|
|
Me.ToolBarButton2 = New System.Windows.Forms.ToolBarButton()
|
|
Me.ToolBarButton3 = New System.Windows.Forms.ToolBarButton()
|
|
Me.ToolBarButton4 = New System.Windows.Forms.ToolBarButton()
|
|
Me.ToolBarButton5 = New System.Windows.Forms.ToolBarButton()
|
|
Me.ToolBarButton6 = New System.Windows.Forms.ToolBarButton()
|
|
Me.ToolBarButton7 = New System.Windows.Forms.ToolBarButton()
|
|
Me.ToolBarButton8 = New System.Windows.Forms.ToolBarButton()
|
|
Me.ToolBarButton9 = New System.Windows.Forms.ToolBarButton()
|
|
Me.ToolBarButton10 = New System.Windows.Forms.ToolBarButton()
|
|
Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
|
|
Me.PrintDocument1 = New System.Drawing.Printing.PrintDocument()
|
|
Me.Panel1 = New System.Windows.Forms.Panel()
|
|
Me.OnDemand = New AxARSOLELib.AxArsOle()
|
|
Me.lblpages = New System.Windows.Forms.Label()
|
|
Me.Panel1.SuspendLayout()
|
|
CType(Me.OnDemand, System.ComponentModel.ISupportInitialize).BeginInit()
|
|
Me.SuspendLayout()
|
|
'
|
|
'NoteCount
|
|
'
|
|
Me.NoteCount.Name = "NoteCount"
|
|
Me.NoteCount.TabIndex = 10
|
|
'
|
|
'NoteLabel
|
|
'
|
|
Me.NoteLabel.Name = "NoteLabel"
|
|
Me.NoteLabel.TabIndex = 11
|
|
'
|
|
'ToolBar1
|
|
'
|
|
Me.ToolBar1.DropDownArrows = True
|
|
Me.ToolBar1.Name = "ToolBar1"
|
|
Me.ToolBar1.ShowToolTips = True
|
|
Me.ToolBar1.Size = New System.Drawing.Size(115, 39)
|
|
Me.ToolBar1.TabIndex = 12
|
|
'
|
|
'ToolBarButton4
|
|
'
|
|
Me.ToolBarButton4.ImageIndex = 5
|
|
Me.ToolBarButton4.ToolTipText = "Ansicht verkleinern"
|
|
'
|
|
'ToolBarButton5
|
|
'
|
|
Me.ToolBarButton5.ImageIndex = 4
|
|
Me.ToolBarButton5.ToolTipText = "Ansicht vergrössern"
|
|
'
|
|
'ToolBarButton6
|
|
'
|
|
Me.ToolBarButton6.ImageIndex = 6
|
|
Me.ToolBarButton6.Style = System.Windows.Forms.ToolBarButtonStyle.Separator
|
|
'
|
|
'ToolBarButton7
|
|
'
|
|
Me.ToolBarButton7.ImageIndex = 6
|
|
Me.ToolBarButton7.ToolTipText = "Notizen bearbeiten"
|
|
'
|
|
'ToolBarButton8
|
|
'
|
|
Me.ToolBarButton8.ImageIndex = 6
|
|
Me.ToolBarButton8.Visible = False
|
|
'
|
|
'ToolBarButton9
|
|
'
|
|
Me.ToolBarButton9.ImageIndex = 9
|
|
Me.ToolBarButton9.ToolTipText = "Dokument nach links drehen"
|
|
'
|
|
'ToolBarButton10
|
|
'
|
|
Me.ToolBarButton10.ImageIndex = 10
|
|
Me.ToolBarButton10.ToolTipText = "Dokument nach rechts drehen"
|
|
'
|
|
'ImageList1
|
|
'
|
|
Me.ImageList1.ColorDepth = System.Windows.Forms.ColorDepth.Depth8Bit
|
|
Me.ImageList1.ImageSize = New System.Drawing.Size(16, 16)
|
|
Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer)
|
|
Me.ImageList1.TransparentColor = System.Drawing.Color.Transparent
|
|
'
|
|
'Panel1
|
|
'
|
|
Me.Panel1.Controls.AddRange(New System.Windows.Forms.Control() {Me.OnDemand})
|
|
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Fill
|
|
Me.Panel1.Location = New System.Drawing.Point(0, 39)
|
|
Me.Panel1.Name = "Panel1"
|
|
Me.Panel1.Size = New System.Drawing.Size(115, 0)
|
|
Me.Panel1.TabIndex = 8
|
|
'
|
|
'OnDemand
|
|
'
|
|
Me.OnDemand.ContainingControl = Me
|
|
Me.OnDemand.Dock = System.Windows.Forms.DockStyle.Fill
|
|
Me.OnDemand.Enabled = True
|
|
Me.OnDemand.Name = "OnDemand"
|
|
Me.OnDemand.OcxState = CType(resources.GetObject("OnDemand.OcxState"), System.Windows.Forms.AxHost.State)
|
|
Me.OnDemand.Size = New System.Drawing.Size(115, 0)
|
|
Me.OnDemand.TabIndex = 1
|
|
'
|
|
'lblpages
|
|
'
|
|
Me.lblpages.Location = New System.Drawing.Point(671, 8)
|
|
Me.lblpages.Name = "lblpages"
|
|
Me.lblpages.RightToLeft = System.Windows.Forms.RightToLeft.Yes
|
|
Me.lblpages.Size = New System.Drawing.Size(88, 16)
|
|
Me.lblpages.TabIndex = 9
|
|
Me.lblpages.Text = "1/1"
|
|
'
|
|
'frmcoldview
|
|
'
|
|
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
|
|
Me.ClientSize = New System.Drawing.Size(115, 22)
|
|
Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.lblpages, Me.Panel1, Me.NoteCount, Me.NoteLabel, Me.ToolBar1})
|
|
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
|
|
Me.Name = "frmcoldview"
|
|
Me.Text = "COLD-Dokumentanzeige"
|
|
Me.Panel1.ResumeLayout(False)
|
|
CType(Me.OnDemand, System.ComponentModel.ISupportInitialize).EndInit()
|
|
Me.ResumeLayout(False)
|
|
|
|
End Sub
|
|
|
|
#End Region
|
|
|
|
#Region "Deklarationen"
|
|
|
|
Dim Show_Direkt As Boolean = False
|
|
|
|
Dim m_print As Boolean = False
|
|
Property PrintIt() As Boolean
|
|
Get
|
|
Return m_print
|
|
End Get
|
|
Set(ByVal Value As Boolean)
|
|
m_print = Value
|
|
End Set
|
|
End Property
|
|
|
|
Dim m_uvmzvdokumenttyp As String
|
|
Property UVMZVDokumenttyp() As String
|
|
Get
|
|
Return m_uvmzvdokumenttyp
|
|
End Get
|
|
Set(ByVal Value As String)
|
|
m_uvmzvdokumenttyp = Value
|
|
End Set
|
|
End Property
|
|
Dim m_belegart As String
|
|
Property belegart() As String
|
|
Get
|
|
Return m_belegart
|
|
End Get
|
|
Set(ByVal Value As String)
|
|
m_belegart = Value
|
|
End Set
|
|
End Property
|
|
|
|
Dim m_auftragnr As String
|
|
Property Auftragnr() As String
|
|
Get
|
|
Return m_auftragnr
|
|
End Get
|
|
Set(ByVal Value As String)
|
|
m_auftragnr = Value
|
|
End Set
|
|
End Property
|
|
Dim m_erstellungsdatum As String
|
|
Property Erstellungsdatum() As String
|
|
Get
|
|
Return m_erstellungsdatum
|
|
End Get
|
|
Set(ByVal Value As String)
|
|
m_erstellungsdatum = Value
|
|
End Set
|
|
End Property
|
|
Dim m_scolddokumentid As String
|
|
Property Colddokumentid() As String
|
|
Get
|
|
Return m_scolddokumentid
|
|
End Get
|
|
Set(ByVal Value As String)
|
|
m_scolddokumentid = Value
|
|
End Set
|
|
End Property
|
|
Dim m_dokumentid As String
|
|
Property DokumentId() As String
|
|
Get
|
|
Return m_dokumentid
|
|
End Get
|
|
Set(ByVal Value As String)
|
|
m_dokumentid = Value
|
|
End Set
|
|
End Property
|
|
|
|
Dim m_partnernr As String
|
|
Property PartnerNr() As String
|
|
Get
|
|
Return m_partnernr
|
|
End Get
|
|
Set(ByVal Value As String)
|
|
m_partnernr = Value
|
|
'Nova
|
|
'While Len(m_partnernr) < 9
|
|
' m_partnernr = "0" & m_partnernr
|
|
'End While
|
|
'Nova Ende
|
|
End Set
|
|
End Property
|
|
|
|
Dim m_dokumenttyp As Integer
|
|
Property Dokumenttyp() As Integer
|
|
Get
|
|
Return m_dokumenttyp
|
|
End Get
|
|
Set(ByVal Value As Integer)
|
|
m_dokumenttyp = Value
|
|
End Set
|
|
End Property
|
|
|
|
Dim m_colddokumentid As String
|
|
Dim m_coldfolder As String
|
|
|
|
Dim server
|
|
Dim user
|
|
Dim pw
|
|
Dim xnumdocs
|
|
Dim xnumfields
|
|
Dim xname As String
|
|
Dim i
|
|
Dim v1
|
|
Dim v2
|
|
Dim numservers
|
|
Dim rc As Short
|
|
Dim ret As Short
|
|
Dim tmp
|
|
Dim posvscroll As Integer = 0
|
|
Dim poshscroll As Integer = 0
|
|
|
|
Dim WithEvents hscrol As New HScrollBar()
|
|
Dim WithEvents vscrol As New VScrollBar()
|
|
Dim m_currentpage As Integer
|
|
Dim irotate As Integer = 0
|
|
Property CurrentPage() As Integer
|
|
Get
|
|
Return m_currentpage
|
|
End Get
|
|
Set(ByVal Value As Integer)
|
|
m_currentpage = Value
|
|
End Set
|
|
End Property
|
|
|
|
#End Region
|
|
|
|
Const STRING_BUFFER_LENGTH As Integer = 255
|
|
Dim WindowArray As New ArrayList()
|
|
|
|
|
|
Public zf As Short = 100
|
|
Public o As Object
|
|
Public k As Object
|
|
|
|
Dim txtuser As String = ""
|
|
Dim txtdatetime As String = ""
|
|
Dim txttext As String = ""
|
|
Dim page As Object
|
|
Dim publ As Object
|
|
Dim copied As Object
|
|
Dim numnote As Object
|
|
Dim notes As New DataTable()
|
|
Dim m_docnotfound As Boolean
|
|
Dim numpages As Integer = 1
|
|
Dim curpage As Integer = 1
|
|
Property DocNotFound() As Boolean
|
|
Get
|
|
Return m_docnotfound
|
|
End Get
|
|
Set(ByVal Value As Boolean)
|
|
m_docnotfound = Value
|
|
End Set
|
|
End Property
|
|
|
|
#Region "Datenzugriffe"
|
|
Private Function Get_Cold_Data_by_Dokumentid()
|
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
scmCmdToExecute.CommandText = "dbo.sp_get_coldfolder_by_documentid"
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
Dim dtToReturn As DataTable = New DataTable()
|
|
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
|
Try
|
|
scmCmdToExecute.Connection = conn.scoDBConnection
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.DokumentId))
|
|
|
|
sdaAdapter.Fill(dtToReturn)
|
|
If Me.Colddokumentid = "" Then
|
|
Me.m_colddokumentid = dtToReturn.Rows(0).Item(1)
|
|
Else
|
|
Me.m_colddokumentid = Me.Colddokumentid
|
|
End If
|
|
|
|
'HOST-Folder'
|
|
If dtToReturn.Rows.Count = 0 Then
|
|
Me.m_coldfolder = "TGKB Kundenoutput AGI-OMS für EDOKA User"
|
|
Else
|
|
Me.m_coldfolder = dtToReturn.Rows(0).Item(0)
|
|
|
|
End If
|
|
Catch ex As Exception
|
|
Throw New Exception("Get_Cold_Folder :" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
|
|
Finally
|
|
scmCmdToExecute.Dispose()
|
|
sdaAdapter.Dispose()
|
|
End Try
|
|
End Function
|
|
|
|
Private Function Get_Cold_Data_by_Dokumenttyp()
|
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
scmCmdToExecute.CommandText = "dbo.sp_get_coldfolder_by_documenttyp"
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
Dim dtToReturn As DataTable = New DataTable()
|
|
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
|
Try
|
|
scmCmdToExecute.Connection = conn.scoDBConnection
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumenttyp", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Dokumenttyp))
|
|
sdaAdapter.Fill(dtToReturn)
|
|
Me.m_coldfolder = dtToReturn.Rows(0).Item(0)
|
|
Catch ex As Exception
|
|
Throw New Exception("Get_Cold_Folder :" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
|
|
Finally
|
|
scmCmdToExecute.Dispose()
|
|
sdaAdapter.Dispose()
|
|
End Try
|
|
End Function
|
|
|
|
#End Region
|
|
|
|
#Region "COLD_Ondemand_Funktionen"
|
|
Public Function Cold_Login() As Boolean
|
|
server = Globals.Applikationsdaten.Rows(0).Item("coldsystem")
|
|
user = Globals.Applikationsdaten.Rows(0).Item("colduser")
|
|
pw = Globals.Applikationsdaten.Rows(0).Item("coldpassword")
|
|
Me.OnDemand.SetUserMessageMode(2)
|
|
Me.OnDemand.Logon(server, user, pw)
|
|
If ret <> 0 And ret <> 8 Then
|
|
MsgBox("Die Anmeldung am COLD ist fehlgeschlagen", MsgBoxStyle.Exclamation)
|
|
Cold_Login = False
|
|
Exit Function
|
|
End If
|
|
Cold_Login = True
|
|
End Function
|
|
|
|
Public Function Show_Dokument(ByVal folder As String, ByVal dokumentid As String) As Boolean
|
|
Dim rc
|
|
Dim ret
|
|
Dim xnumdocs
|
|
Dim i As Short
|
|
Dim tmp As String
|
|
Try
|
|
Show_Dokument = True
|
|
Select Case Me.belegart
|
|
Case "HOST"
|
|
'Nova
|
|
If Me.m_coldfolder = "TGKB Kundenoutput AGI-OMS für EDOKA User" And Not Me.PrintIt Then
|
|
If Show_Dokument = True And Not Me.PrintIt Then
|
|
If SearchTaskList("ColdStrt") = 0 Then
|
|
rc = Shell(Application.StartupPath + "\coldstrt.exe" + " /e " + Globals.Applikationsdaten.Rows(0).Item("coldgui") + " /S " + Globals.Applikationsdaten.Rows(0).Item("coldsystem") + " /U " + Globals.Applikationsdaten.Rows(0).Item("colduser") + " /P " + Globals.Applikationsdaten.Rows(0).Item("coldpassword") + " /f " + m_coldfolder + " /d " + m_colddokumentid + " /t " + Me.Erstellungsdatum + " /b HOST", AppWinStyle.Hide, False)
|
|
Globals.EDOKAMAIN_Statusbar.Text = "AGI-COLD Dokumentanfrage ausgelöst"
|
|
End If
|
|
Exit Function
|
|
End If
|
|
End If
|
|
Case "UVM"
|
|
If Show_Dokument = True And Not Me.PrintIt Then
|
|
If SearchTaskList("ColdStrt") = 0 Then
|
|
Me.m_coldfolder = "TGKB UVM-Verträge"
|
|
rc = Shell(Application.StartupPath + "\coldstrt.exe" + " /e " + Globals.Applikationsdaten.Rows(0).Item("coldgui") + " /S " + Globals.Applikationsdaten.Rows(0).Item("coldsystem") + " /U " + Globals.Applikationsdaten.Rows(0).Item("colduser") + " /P " + Globals.Applikationsdaten.Rows(0).Item("coldpassword") + " /f " + m_coldfolder + " /d " + m_colddokumentid + " /t " + Me.Erstellungsdatum + " /b UVM /a " + Trim(Me.Auftragnr) + " /g " + Trim(Me.UVMZVDokumenttyp), AppWinStyle.Hide, False)
|
|
Globals.EDOKAMAIN_Statusbar.Text = "AGI-COLD Dokumentanfrage ausgelöst"
|
|
End If
|
|
Exit Function
|
|
End If
|
|
Case "ZV"
|
|
If Show_Dokument = True And Not Me.PrintIt Then
|
|
If SearchTaskList("ColdStrt") = 0 Then
|
|
Me.m_coldfolder = "TGKB ZV-Scanning Belege (erweiterte Suche)"
|
|
rc = Shell(Application.StartupPath + "\coldstrt.exe" + " /e " + Globals.Applikationsdaten.Rows(0).Item("coldgui") + " /S " + Globals.Applikationsdaten.Rows(0).Item("coldsystem") + " /U " + Globals.Applikationsdaten.Rows(0).Item("colduser") + " /P " + Globals.Applikationsdaten.Rows(0).Item("coldpassword") + " /f " + m_coldfolder + " /d " + m_colddokumentid + " /t " + Me.Erstellungsdatum + " /b ZV /a " + Trim(Me.Auftragnr) + " /g " + Trim(Me.UVMZVDokumenttyp), AppWinStyle.Hide, False)
|
|
Globals.EDOKAMAIN_Statusbar.Text = "AGI-COLD Dokumentanfrage ausgelöst"
|
|
End If
|
|
Exit Function
|
|
End If
|
|
|
|
End Select
|
|
Catch
|
|
End Try
|
|
Try
|
|
If Me.Show_Direkt = True And Not Me.PrintIt Then
|
|
If Show_Dokument = True And Not Me.PrintIt Then
|
|
If SearchTaskList("ColdStrt") = 0 Then
|
|
rc = Shell(Application.StartupPath + "\coldstrt.exe" + " /e " + Globals.Applikationsdaten.Rows(0).Item("coldgui") + " /S " + Globals.Applikationsdaten.Rows(0).Item("coldsystem") + " /U " + Globals.Applikationsdaten.Rows(0).Item("colduser") + " /P " + Globals.Applikationsdaten.Rows(0).Item("coldpassword") + " /f " + m_coldfolder + " /d " + m_colddokumentid + " /t " + Me.Erstellungsdatum, AppWinStyle.Hide, False)
|
|
Globals.EDOKAMAIN_Statusbar.Text = "AGI-COLD Dokumentanfrage ausgelöst"
|
|
End If
|
|
Exit Function
|
|
End If
|
|
End If
|
|
Catch
|
|
End Try
|
|
Try
|
|
'Hutter 2004-1004 Aktivierung COLD-Print
|
|
Select Case Me.belegart
|
|
Case "HOST"
|
|
folder = "TGKB Kundenoutput AGI-OMS für EDOKA User"
|
|
Case "ZV"
|
|
folder = "TGKB ZV-Scanning Belege (erweiterte Suche)"
|
|
Case "UVM"
|
|
folder = "TGKB UVM-Verträge"
|
|
Case Else
|
|
|
|
End Select
|
|
ret = Me.OnDemand.SetUserMessageMode(0)
|
|
ret = Me.OnDemand.OpenFolder(folder)
|
|
If ret <> 0 Then
|
|
MsgBox("Der gewählte Order " & folder & " kann nicht geöffnet werden", MsgBoxStyle.Critical)
|
|
|
|
Me.OnDemand.Logoff()
|
|
Show_Dokument = False
|
|
Exit Function
|
|
End If
|
|
|
|
rc = Me.OnDemand.GetNumFolderSearchFields(xnumfields)
|
|
For i = 0 To xnumfields - 1
|
|
tmp = ""
|
|
ret = OnDemand.GetFolderSearchFieldName(i, tmp)
|
|
' MsgBox(tmp)
|
|
Next
|
|
|
|
|
|
ret = Me.OnDemand.ClearFolderSearchFields()
|
|
If ret <> 0 Then
|
|
MsgBox("Die Suchliste konnte nicht initialisiert werden", MsgBoxStyle.Critical)
|
|
Me.OnDemand.Logoff()
|
|
Show_Dokument = False
|
|
Exit Function
|
|
End If
|
|
|
|
Dim xx As String
|
|
xx = ""
|
|
'Hutter 2004-10-04 Aktivierung COLD-Print
|
|
Select Case belegart
|
|
Case "HOST"
|
|
ret = Me.OnDemand.SetFolderSearchFieldData("Dokument-Id", 1, Me.DokumentId, xx)
|
|
ret = Me.OnDemand.SetFolderSearchFieldData("Erstellung od. Valuta Datum", 1, Me.Erstellungsdatum, xx)
|
|
Case "UVM"
|
|
ret = Me.OnDemand.SetFolderSearchFieldData("Dokumenttyp", 1, Me.UVMZVDokumenttyp, xx)
|
|
ret = Me.OnDemand.SetFolderSearchFieldData("Auftrag-Nr.", 1, Me.Auftragnr, xx)
|
|
ret = Me.OnDemand.SetFolderSearchFieldData("Paginator", 1, Me.DokumentId, xx)
|
|
Case "ZV"
|
|
ret = Me.OnDemand.SetFolderSearchFieldData("Dokumenttyp", 1, Me.UVMZVDokumenttyp, xx)
|
|
ret = Me.OnDemand.SetFolderSearchFieldData("Auftrag-Nr.", 1, Me.Auftragnr, xx)
|
|
ret = Me.OnDemand.SetFolderSearchFieldData("Paginator", 1, Me.DokumentId, xx)
|
|
Case Else
|
|
Dim s As String
|
|
' s = Trim(Me.PartnerNr)
|
|
' While Len(s) < 9
|
|
' s = "0" + s
|
|
' End While
|
|
' ret = Me.OnDemand.SetFolderSearchFieldData("Partner-Nr.", 1, s, xx)
|
|
ret = Me.OnDemand.SetFolderSearchFieldData("Dokument-Id", 11, dokumentid, xx)
|
|
End Select
|
|
'If Me.m_coldfolder = "TGKB Kundenoutput AGI-OMS für EDOKA User" Then
|
|
' ret = Me.OnDemand.SetFolderSearchFieldData("Dokument-Id", 1, Me.DokumentId, xx)
|
|
' ret = Me.OnDemand.SetFolderSearchFieldData("Erstellung od. Valuta Datum", 1, Me.Erstellungsdatum, xx)
|
|
'Else
|
|
' ret = Me.OnDemand.SetFolderSearchFieldData("Dokument-Id", 11, dokumentid, xx)
|
|
'End If
|
|
|
|
If ret <> 0 Then
|
|
MsgBox("Fehler beim setzen des Suchkriteriums", MsgBoxStyle.Critical)
|
|
Me.OnDemand.Logoff()
|
|
Show_Dokument = False
|
|
Exit Function
|
|
End If
|
|
|
|
ret = Me.OnDemand.SearchFolder(False)
|
|
If ret <> 0 Then
|
|
MsgBox("Beim Zugriff auf das COLD ist ein Fehler aufgetreten", MsgBoxStyle.Critical)
|
|
Me.OnDemand.Logoff()
|
|
Show_Dokument = False
|
|
Exit Function
|
|
End If
|
|
|
|
ret = Me.OnDemand.GetNumDocsInList(xnumdocs)
|
|
If xnumdocs < 1 Then
|
|
If Not DivFnkt.BDR_Dokument(Me.DokumentId) Then
|
|
MyMsg.show_standardmessage(81, MsgBoxStyle.Information)
|
|
Else
|
|
MyMsg.show_standardmessage(275, MsgBoxStyle.Information)
|
|
End If
|
|
Me.OnDemand.Logoff()
|
|
Show_Dokument = False
|
|
Exit Function
|
|
End If
|
|
'shu
|
|
If Show_Dokument = True And Not Me.PrintIt Then
|
|
If SearchTaskList("ColdStrt") = 0 Then
|
|
rc = Shell(Application.StartupPath + "\coldstrt.exe" + " /e " + Globals.Applikationsdaten.Rows(0).Item("coldgui") + " /S " + Globals.Applikationsdaten.Rows(0).Item("coldsystem") + " /U " + Globals.Applikationsdaten.Rows(0).Item("colduser") + " /P " + Globals.Applikationsdaten.Rows(0).Item("coldpassword") + " /f " + m_coldfolder + " /d " + m_colddokumentid + " /t " + Me.Erstellungsdatum, AppWinStyle.Hide, False)
|
|
Globals.EDOKAMAIN_Statusbar.Text = "AGI-COLD Dokumentanfrage ausgelöst"
|
|
End If
|
|
Exit Function
|
|
End If
|
|
Me.OnDemand.OpenDoc(0, "", 0)
|
|
get_annotations()
|
|
Dim o As Object
|
|
o = Nothing
|
|
ret = OnDemand.GetDocNumPages(o)
|
|
If ret = 0 Then Me.numpages = o
|
|
o = Nothing
|
|
ret = OnDemand.GetDocCurrentPage(o)
|
|
If ret = 0 Then Me.curpage = o
|
|
Me.lblpages.Text = Str(curpage) + "/" + Str(numpages)
|
|
|
|
Catch ex As Exception
|
|
' MsgBox(ex.Message)
|
|
End Try
|
|
End Function
|
|
#End Region
|
|
|
|
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
|
Dim cid As String
|
|
Dim yy As String
|
|
Dim mm As String
|
|
Dim dd As String
|
|
Dim comparedate As DateTime
|
|
Globals.EDOKAMAIN_Statusbar.Text = "AGI-COLD Dokumentanfrage ausgelöst"
|
|
Get_Cold_Data_by_Dokumentid()
|
|
Me.Show_Direkt = False
|
|
Try
|
|
If UCase(Microsoft.VisualBasic.Left(Me.m_colddokumentid, 3)) = "SCA" Then
|
|
cid = Microsoft.VisualBasic.Right(Me.m_colddokumentid, 17)
|
|
cid = Microsoft.VisualBasic.Left(cid, 14)
|
|
Else
|
|
cid = Microsoft.VisualBasic.Right(Me.m_colddokumentid, 14)
|
|
End If
|
|
yy = Microsoft.VisualBasic.Left(cid, 4)
|
|
mm = Microsoft.VisualBasic.Mid(cid, 5, 2)
|
|
dd = Microsoft.VisualBasic.Mid(cid, 7, 2)
|
|
comparedate = yy + "." + mm + "." + dd
|
|
If comparedate.Date <= DateAdd(DateInterval.Day, -1, Now) Then
|
|
Me.Show_Direkt = True
|
|
Else
|
|
Me.Show_Direkt = False
|
|
End If
|
|
Catch
|
|
cid = Me.Colddokumentid
|
|
End Try
|
|
Select Case Me.belegart
|
|
Case "HOST"
|
|
If Me.m_coldfolder = "TGKB Kundenoutput AGI-OMS für EDOKA User" And Not Me.PrintIt Then
|
|
If Not Show_Dokument(Me.m_coldfolder, Me.m_colddokumentid) Then
|
|
Me.DocNotFound = True
|
|
End If
|
|
Exit Sub
|
|
End If
|
|
Case "ZV"
|
|
If Me.m_coldfolder = "TGKB Kundenoutput AGI-OMS für EDOKA User" And Not Me.PrintIt Then
|
|
If Not Show_Dokument(Me.m_coldfolder, Me.m_colddokumentid) Then
|
|
Me.DocNotFound = True
|
|
End If
|
|
Exit Sub
|
|
End If
|
|
Case "UVM"
|
|
If Me.m_coldfolder = "TGKB Kundenoutput AGI-OMS für EDOKA User" And Not Me.PrintIt Then
|
|
If Not Show_Dokument(Me.m_coldfolder, Me.m_colddokumentid) Then
|
|
Me.DocNotFound = True
|
|
End If
|
|
Exit Sub
|
|
End If
|
|
Case Else
|
|
End Select
|
|
'If Me.m_coldfolder = "TGKB Kundenoutput AGI-OMS für EDOKA User" And Not Me.PrintIt Then
|
|
' If Not Show_Dokument(Me.m_coldfolder, Me.m_colddokumentid) Then
|
|
' Me.DocNotFound = True
|
|
' End If
|
|
' Exit Sub
|
|
'End If
|
|
If Show_Direkt = True And Not Me.PrintIt Then
|
|
If Not Show_Dokument(Me.m_coldfolder, Me.m_colddokumentid) Then
|
|
Me.DocNotFound = True
|
|
End If
|
|
Exit Sub
|
|
End If
|
|
|
|
Dim rc As Integer
|
|
'Try
|
|
' If Not Me.PrintIt Then
|
|
' rc = Shell(Application.StartupPath + "\coldstrt.exe" + " /e " + Globals.Applikationsdaten.Rows(0).Item("coldgui") + " /S " + Globals.Applikationsdaten.Rows(0).Item("coldsystem") + " /U " + Globals.Applikationsdaten.Rows(0).Item("colduser") + " /P " + Globals.Applikationsdaten.Rows(0).Item("coldpassword") + " /f " + m_coldfolder + " /d " + m_colddokumentid + " /t " + Me.Erstellungsdatum, AppWinStyle.Hide, False)
|
|
' 'If rc <> 0 Then
|
|
' 'MsgBox(rc)
|
|
' ' Me.Dispose()
|
|
' Exit Sub
|
|
' End If
|
|
'Catch ex As Exception
|
|
' ' MsgBox(ex.Message)
|
|
'End Try
|
|
'End If
|
|
|
|
' Dim m_dokument As New edokadb.clsDokument()
|
|
Get_Cold_Data_by_Dokumentid()
|
|
If ret <> 0 Then
|
|
Me.Close()
|
|
Exit Sub
|
|
End If
|
|
|
|
If Not Cold_Login() Then Exit Sub
|
|
Me.OnDemand.BackColor = System.Drawing.Color.White
|
|
|
|
|
|
hscrol.Dock = DockStyle.Bottom
|
|
vscrol.Dock = DockStyle.Right
|
|
Me.Panel1.Controls.Add(vscrol)
|
|
Me.Panel1.Controls.Add(hscrol)
|
|
' Me.OnDemand.Controls.Add(hscrol)
|
|
' Me.OnDemand.Controls.Add(vscrol)
|
|
|
|
Me.CurrentPage = 1
|
|
|
|
Me.notes.Columns.Add("ID")
|
|
Me.notes.Columns.Add("Text")
|
|
Me.notes.Columns.Add("DateTime")
|
|
Me.notes.Columns.Add("UserID")
|
|
Me.notes.Columns.Add("Page")
|
|
Me.notes.Columns.Add("ispublic")
|
|
Me.notes.Columns.Add("canbecopied")
|
|
Me.notes.Columns.Add("status")
|
|
If Not Show_Dokument(Me.m_coldfolder, Me.m_colddokumentid) Then
|
|
Me.DocNotFound = True
|
|
'Me.Dispose()
|
|
End If
|
|
|
|
End Sub
|
|
|
|
|
|
Public Function get_annotations()
|
|
Dim rc As DataRowCollection
|
|
Dim newrow As DataRow()
|
|
rc = notes.Rows
|
|
Dim rowvals(7) As Object
|
|
Dim i As Integer
|
|
Me.numnote = Nothing
|
|
ret = Me.OnDemand.GetNumDocAnnotations(Me.numnote)
|
|
|
|
For i = 0 To Me.numnote - 1
|
|
page = Nothing
|
|
publ = Nothing
|
|
copied = Nothing
|
|
ret = Me.OnDemand.GetAnnotationForDoc(i, txttext, txtuser, txtdatetime, page, publ, copied)
|
|
rowvals(0) = i
|
|
rowvals(1) = txttext
|
|
rowvals(3) = txtuser
|
|
rowvals(2) = txtdatetime
|
|
rowvals(4) = page
|
|
rowvals(5) = publ
|
|
rowvals(6) = copied
|
|
rowvals(7) = ""
|
|
notes.Rows.Add(rowvals)
|
|
Next
|
|
|
|
If Me.numnote > 0 Then
|
|
Me.NoteCount.Text = Me.numnote.ToString
|
|
Me.NoteCount.Visible = True
|
|
Me.NoteLabel.Visible = True
|
|
Else
|
|
Me.NoteCount.Visible = False
|
|
Me.NoteLabel.Visible = False
|
|
End If
|
|
End Function
|
|
|
|
|
|
|
|
Private Sub ToolBar1_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles ToolBar1.ButtonClick
|
|
Select Case ToolBar1.Buttons.IndexOf(e.Button)
|
|
Case 0
|
|
Me.Cursor = Cursors.Default
|
|
Me.Close()
|
|
Case 1
|
|
Me.OnDemand.PrintDoc(-1, 0, Me.PrintDocument1.PrinterSettings.PrinterName, True, 1, 3, 0.5, 0.5, 0.5, 0.5, False)
|
|
Me.CurrentPage = Me.CurrentPage - 1
|
|
ret = Me.OnDemand.SetDocCurrentPage(Me.CurrentPage)
|
|
If ret <> 0 Then Me.CurrentPage = Me.CurrentPage + 1
|
|
Case 2
|
|
Me.CurrentPage = Me.CurrentPage - 1
|
|
ret = Me.OnDemand.SetDocCurrentPage(Me.CurrentPage)
|
|
If ret <> 0 Then Me.CurrentPage = Me.CurrentPage + 1
|
|
Dim o As Object
|
|
o = Nothing
|
|
ret = OnDemand.GetDocCurrentPage(o)
|
|
If ret = 0 Then Me.curpage = o
|
|
Me.lblpages.Text = Str(curpage) + "/" + Str(numpages)
|
|
Case 3
|
|
Me.CurrentPage = Me.CurrentPage + 1
|
|
ret = Me.OnDemand.SetDocCurrentPage(Me.CurrentPage)
|
|
If ret <> 0 Then Me.CurrentPage = Me.CurrentPage - 1
|
|
Dim o As Object
|
|
o = Nothing
|
|
ret = OnDemand.GetDocCurrentPage(o)
|
|
If ret = 0 Then Me.curpage = o
|
|
Me.lblpages.Text = Str(curpage) + "/" + Str(numpages)
|
|
Case 4
|
|
zf = zf - 25
|
|
o = Nothing
|
|
k = Nothing
|
|
If zf < 25 Then zf = 25
|
|
ret = Me.OnDemand.SetDocZoom(zf, o, k)
|
|
Case 5
|
|
zf = zf + 25
|
|
o = Nothing
|
|
k = Nothing
|
|
If zf > 1000 Then zf = 1000
|
|
ret = Me.OnDemand.SetDocZoom(zf, o, k)
|
|
Case 7
|
|
Dim f As New frmNotes()
|
|
f.notes = Me.notes
|
|
f.ondemand = Me.OnDemand
|
|
f.ShowDialog()
|
|
If f.DialogResult = DialogResult.OK Then
|
|
Me.notes.Rows.Clear()
|
|
Me.get_annotations()
|
|
End If
|
|
Case 10
|
|
If Me.irotate = 0 Then Me.irotate = 360
|
|
Me.irotate = Me.irotate - 90
|
|
Me.OnDemand.SetDocRotation(irotate)
|
|
Case 9
|
|
If Me.irotate = 270 Then Me.irotate = -90
|
|
Me.irotate = Me.irotate + 90
|
|
Me.OnDemand.SetDocRotation(Me.irotate)
|
|
End Select
|
|
End Sub
|
|
|
|
Public Sub PRINTdOC()
|
|
Me.OnDemand.PrintDoc(-1, 0, Me.PrintDocument1.PrinterSettings.PrinterName, True, 1, 3, 4, 4, 0, 6, True)
|
|
Me.CurrentPage = Me.CurrentPage - 1
|
|
ret = Me.OnDemand.SetDocCurrentPage(Me.CurrentPage)
|
|
If ret <> 0 Then Me.CurrentPage = Me.CurrentPage + 1
|
|
End Sub
|
|
|
|
Public Function GetColdDokumente() As DataTable
|
|
Dim m_dokument As New edokadb.clsDokument()
|
|
Get_Cold_Data_by_Dokumenttyp()
|
|
If Not Me.Cold_Login Then Exit Function
|
|
Get_Folder_Documents(Me.m_coldfolder)
|
|
End Function
|
|
|
|
Private Function Get_Folder_Documents(ByVal Folder As String) As Boolean
|
|
ret = Me.OnDemand.SetUserMessageMode(0)
|
|
ret = Me.OnDemand.OpenFolder(Folder)
|
|
If ret <> 0 Then
|
|
MsgBox("Der gewählte Order " & Folder & " kann nicht geöffnet werden", MsgBoxStyle.Critical)
|
|
Me.OnDemand.Logoff()
|
|
Exit Function
|
|
End If
|
|
|
|
ret = Me.OnDemand.ClearFolderSearchFields()
|
|
If ret <> 0 Then
|
|
MsgBox("Die Suchliste konnte nicht initialisiert werden", MsgBoxStyle.Critical)
|
|
Me.OnDemand.Logoff()
|
|
Exit Function
|
|
End If
|
|
|
|
Dim xx As String
|
|
xx = ""
|
|
ret = Me.OnDemand.SetFolderSearchFieldData("Partner-Nr.", 1, Me.PartnerNr, xx)
|
|
'ret = Me.OnDemand.SetFolderSearchFieldData("Dok.-Status", 11, "Aktuell", xx)
|
|
If ret <> 0 Then
|
|
MsgBox("Fehler beim setzen des Suchkriteriums", MsgBoxStyle.Critical)
|
|
Me.OnDemand.Logoff()
|
|
Exit Function
|
|
End If
|
|
|
|
ret = Me.OnDemand.SearchFolder(False)
|
|
If ret <> 0 Then
|
|
MsgBox("Beim Zugriff auf das COLD ist ein Fehler aufgetreten", MsgBoxStyle.Critical)
|
|
Me.OnDemand.Logoff()
|
|
Exit Function
|
|
End If
|
|
|
|
ret = Me.OnDemand.GetNumDocsInList(xnumdocs)
|
|
If xnumdocs < 1 Then
|
|
MyMsg.show_standardmessage(81, MsgBoxStyle.Information)
|
|
Me.OnDemand.Logoff()
|
|
Exit Function
|
|
End If
|
|
Dim tmp As String
|
|
|
|
Dim i As Short
|
|
Dim i1 As Short
|
|
tmp = ""
|
|
ret = OnDemand.GetNumFolderDisplayFields(xnumfields)
|
|
Dim foldernames(xnumfields) As String
|
|
For i = 0 To xnumfields - 1
|
|
tmp = Nothing
|
|
OnDemand.GetFolderDisplayFieldName(i, tmp)
|
|
foldernames(i) = tmp
|
|
MsgBox(foldernames(i))
|
|
Next
|
|
|
|
Dim t As New DataTable()
|
|
Dim newrow As DataRow
|
|
Dim rc As DataRowCollection
|
|
rc = t.Rows
|
|
Dim rowvals(xnumfields) As Object
|
|
|
|
For i = 0 To xnumdocs
|
|
For i1 = 0 To xnumfields
|
|
ret = OnDemand.GetDocDisplayValue(i, i1, tmp)
|
|
If ret = 0 Then
|
|
rowvals(i1) = tmp
|
|
End If
|
|
Next i1
|
|
|
|
newrow = rc.Add(rowvals)
|
|
Next i
|
|
|
|
End Function
|
|
|
|
Private Sub vscrol_ValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles vscrol.ValueChanged
|
|
Try
|
|
If Me.vscrol.Value < Me.posvscroll Then zf = 0 Else zf = 1
|
|
o = 60
|
|
o = Nothing
|
|
Me.posvscroll = Me.vscrol.Value
|
|
ret = Me.OnDemand.ScrollDocVert(zf, o)
|
|
Catch ex As Exception
|
|
' MsgBox(ret)
|
|
' MsgBox(ex.Message)
|
|
End Try
|
|
End Sub
|
|
|
|
|
|
Private Sub hscrol_ValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles hscrol.ValueChanged
|
|
Try
|
|
If Me.hscrol.Value < Me.poshscroll Then zf = 0 Else zf = 1
|
|
o = 60
|
|
o = Nothing
|
|
Me.poshscroll = Me.hscrol.Value
|
|
ret = Me.OnDemand.ScrollDocHorz(zf, o)
|
|
Catch ex As Exception
|
|
' MsgBox(ret)
|
|
' MsgBox(ex.Message)
|
|
End Try
|
|
|
|
End Sub
|
|
|
|
Private Sub frmcoldview_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
|
|
Me.Cursor = Cursors.Default
|
|
End Sub
|
|
|
|
Private Sub frmcoldview_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Resize
|
|
Me.lblpages.Left = Me.ToolBar1.Width - Me.lblpages.Width
|
|
End Sub
|
|
|
|
#Region "Windows Tasks"
|
|
Public Function SearchTaskList(ByVal name As String) As Integer
|
|
Dim myProcess() As Process
|
|
Try
|
|
myProcess = Process.GetProcessesByName(name)
|
|
If myProcess.Length > Globals.Applikationsdaten.Rows(0).Item("Anzahl_COLD_Viewer") - 1 Then
|
|
If MyMsg.Show_MessageYesNo(242) = MsgBoxResult.Yes Then
|
|
killtask("ColdStrt")
|
|
killtask("ARSGUI32")
|
|
Return 0
|
|
Else
|
|
Return 1
|
|
End If
|
|
Else
|
|
Return 0
|
|
End If
|
|
Catch
|
|
Finally
|
|
End Try
|
|
End Function
|
|
|
|
Private Sub killtask(ByVal application As String)
|
|
Dim myProcess() As Process
|
|
Try
|
|
myProcess = Process.GetProcessesByName(application)
|
|
While myProcess.Length > 0
|
|
myProcess(0).Kill()
|
|
Thread.Sleep(200)
|
|
myProcess = Process.GetProcessesByName(application)
|
|
End While
|
|
Catch
|
|
Finally
|
|
End Try
|
|
End Sub
|
|
|
|
|
|
#End Region
|
|
|
|
#Region "Freitextsuche"
|
|
Dim suchfeldstring1 As String = ""
|
|
Dim suchfeldstring2 As String = ""
|
|
Public Function Freitextsuche(ByVal suchdaten As DataTable, ByVal suchstring As String, ByVal datenbestand As String) As DataTable
|
|
If Not Cold_Login() Then Exit Function
|
|
Select Case datenbestand
|
|
Case "HOST"
|
|
If Not Cold_Functions(1, "TGKB Kundenoutput AGI-OMS für EDOKA User") Then Exit Function
|
|
Dim i As Integer
|
|
For i = 0 To suchdaten.Rows.Count - 1
|
|
If Not Cold_Functions(2, "") Then Exit Function
|
|
If Not setsuchfeldstring("Partner-Nr. Inh. od. Zust.", suchdaten.Rows(i).Item("partnernr_inhaber")) Then Exit Function
|
|
If Not setsuchfeldstring("Dokument-Id", suchdaten.Rows(i).Item("Dokumentid")) Then Exit Function
|
|
Dim xx As String
|
|
xx = suchdaten.Rows(i).Item("valutadatum")
|
|
xx = Microsoft.VisualBasic.Right(xx, 2) + "." + Microsoft.VisualBasic.Mid(xx, 5, 2) + "." + Microsoft.VisualBasic.Mid(xx, 3, 2)
|
|
If Not setsuchfeldstring("Erstellung od. Valuta Datum", xx) Then Exit Function
|
|
If Not setsuchfeldstring("zusätzliches Suchfeld", suchstring) Then Exit Function
|
|
If Not Cold_Functions(3, "") Then Exit Function
|
|
If Not Cold_Functions(4, "") Then
|
|
suchdaten.Rows(i).Delete()
|
|
End If
|
|
Next
|
|
Return suchdaten
|
|
Case "UVM"
|
|
If Not Cold_Functions(1, "TGKB UVM-Verträge") Then Exit Function
|
|
Dim i As Integer
|
|
For i = 0 To suchdaten.Rows.Count - 1
|
|
If Not Cold_Functions(2, "") Then Exit Function
|
|
If Not setsuchfeldstring("Partner-Nr. Inh.", suchdaten.Rows(i).Item("partnernr")) Then Exit Function
|
|
If Not setsuchfeldstring("Auftrag-Nr.", suchdaten.Rows(i).Item("nrauf00")) Then Exit For
|
|
If Not setsuchfeldstring("Paginator", suchdaten.Rows(i).Item("dokumentid")) Then Exit Function
|
|
If Not setsuchfeldstring("Dokumenttyp", "UVM004") Then Exit Function
|
|
If Not setsuchfeldstring("Zusätzliches Suchfeld", suchstring) Then Exit Function
|
|
If Not Cold_Functions(3, "") Then Exit Function
|
|
If Not Cold_Functions(4, "") Then
|
|
suchdaten.Rows(i).Delete()
|
|
End If
|
|
Next
|
|
Return suchdaten
|
|
Case Else
|
|
Return suchdaten
|
|
|
|
End Select
|
|
|
|
|
|
|
|
|
|
End Function
|
|
|
|
Private Function setsuchfeldstring(ByVal feld As String, ByVal wert As String) As Boolean
|
|
ret = Me.OnDemand.SetFolderSearchFieldData(feld, 1, wert, suchfeldstring2)
|
|
If ret <> 0 Then Return False Else Return True
|
|
End Function
|
|
|
|
Private Function Cold_Functions(ByVal fnkt As Integer, ByVal folder As String) As Boolean
|
|
Select Case fnkt
|
|
Case 1 'Folder öffnen
|
|
ret = Me.OnDemand.OpenFolder(folder)
|
|
If ret <> 0 Then
|
|
MsgBox("Der gewählte Order " & folder & " kann nicht geöffnet werden", MsgBoxStyle.Critical)
|
|
|
|
Me.OnDemand.Logoff()
|
|
Return False
|
|
Else
|
|
Return True
|
|
End If
|
|
Case 2 'Suchfelder initialisieren
|
|
ret = Me.OnDemand.ClearFolderSearchFields()
|
|
If ret <> 0 Then
|
|
MsgBox("Die Suchliste konnte nicht initialisiert werden", MsgBoxStyle.Critical)
|
|
Me.OnDemand.Logoff()
|
|
Return False
|
|
Else
|
|
Return True
|
|
End If
|
|
Case 3 'Suche
|
|
ret = Me.OnDemand.SearchFolder(False)
|
|
If ret <> 0 Then
|
|
MsgBox("Beim Zugriff auf das COLD ist ein Fehler aufgetreten", MsgBoxStyle.Critical)
|
|
Me.OnDemand.Logoff()
|
|
Return False
|
|
Else
|
|
Return True
|
|
End If
|
|
Case 4
|
|
'Dim xnumdocs
|
|
ret = Me.OnDemand.GetNumDocsInList(xnumdocs)
|
|
If xnumdocs < 1 Then
|
|
Return False
|
|
Else
|
|
Return True
|
|
End If
|
|
Case Else
|
|
End Select
|
|
End Function
|
|
|
|
|
|
Private Function Return_Searchdata(ByVal rettable As DataTable)
|
|
Dim s As String
|
|
Dim newrow As DataRow
|
|
Dim i1 As Integer
|
|
Dim rc As DataRowCollection
|
|
rc = rettable.Rows
|
|
Dim tmp As String
|
|
Dim rowvals(rettable.Columns.Count) As Object
|
|
ret = OnDemand.GetNumFolderDisplayFields(xnumfields)
|
|
|
|
For i = 0 To xnumdocs - 1
|
|
For i1 = 0 To xnumfields
|
|
tmp = ""
|
|
ret = OnDemand.GetDocDisplayValue(i, i1, tmp)
|
|
If ret = 0 Then
|
|
rowvals(i1) = tmp
|
|
Else
|
|
' rowvals(i1) = ""
|
|
End If
|
|
Next i1
|
|
newrow = rc.Add(rowvals)
|
|
Next i
|
|
|
|
End Function
|
|
|
|
Public Function frmSuchform_Freitextsuche(ByVal suchdaten As DataTable, ByVal suchstring As String, ByVal datenbestand As String) As DataTable
|
|
If Not Cold_Login() Then Exit Function
|
|
Select Case datenbestand
|
|
Case "UVM"
|
|
If Not Cold_Functions(1, "TGKB UVM-Verträge") Then Exit Function
|
|
If Not Cold_Functions(2, "") Then Exit Function
|
|
Dim i As Integer
|
|
For i = 0 To suchdaten.Rows.Count - 1
|
|
If Not setsuchfeldstring2(suchdaten.Rows(i).Item("feld"), suchdaten.Rows(i).Item("wert1"), suchdaten.Rows(i).Item("wert2"), suchdaten.Rows(i).Item("OP")) Then Exit Function
|
|
Next
|
|
If Not Cold_Functions(3, "") Then Exit Function
|
|
Dim Resultdata As New DataTable()
|
|
If Not Cold_Functions(4, "") Then
|
|
Return Resultdata
|
|
Else
|
|
resultdata.Columns.Add("Bezeichnung") '0
|
|
resultdata.Columns.Add("NRDOC00") '1
|
|
resultdata.Columns.Add("PartnerNr") '2
|
|
resultdata.Columns.Add("BKPAR00") '3
|
|
resultdata.Columns.Add("NRAUF00") '4
|
|
resultdata.Columns.Add("Erstellungsdatum") '5
|
|
resultdata.Columns.Add("DMARC00") '6
|
|
resultdata.Columns.Add("hostdokumenttyp") '7
|
|
Dim tmp As String
|
|
Dim newrow As DataRow
|
|
Dim i1 As Integer
|
|
Dim rc As DataRowCollection
|
|
rc = Resultdata.Rows
|
|
Dim rowvals(Resultdata.Columns.Count - 1) As Object
|
|
ret = OnDemand.GetNumFolderDisplayFields(xnumfields)
|
|
|
|
For i = 0 To xnumdocs - 1
|
|
For i1 = 0 To xnumfields - 1
|
|
tmp = ""
|
|
ret = OnDemand.GetDocDisplayValue(i, i1, tmp)
|
|
If ret = 0 Then
|
|
Select Case i1
|
|
Case 0
|
|
rowvals(7) = Microsoft.VisualBasic.Left(tmp, 6)
|
|
rowvals(0) = tmp
|
|
Case 1
|
|
rowvals(2) = tmp
|
|
rowvals(3) = ""
|
|
Case 2
|
|
rowvals(5) = tmp
|
|
Case 3
|
|
rowvals(4) = tmp
|
|
Case 4
|
|
rowvals(1) = tmp
|
|
Case 5
|
|
rowvals(6) = tmp
|
|
End Select
|
|
End If
|
|
Next i1
|
|
newrow = rc.Add(rowvals)
|
|
Next i
|
|
Return Resultdata
|
|
End If
|
|
Case "ZV"
|
|
If Not Cold_Functions(1, "TGKB ZV-Scanning Belege (erweiterte Suche)") Then Exit Function
|
|
If Not Cold_Functions(2, "") Then Exit Function
|
|
Dim i As Integer
|
|
For i = 0 To suchdaten.Rows.Count - 1
|
|
If Not setsuchfeldstring2(suchdaten.Rows(i).Item("feld"), suchdaten.Rows(i).Item("wert1"), suchdaten.Rows(i).Item("wert2"), suchdaten.Rows(i).Item("op")) Then Exit Function
|
|
Next
|
|
If Not Cold_Functions(3, "") Then Exit Function
|
|
Dim Resultdata As New DataTable()
|
|
If Not Cold_Functions(4, "") Then
|
|
Return Resultdata
|
|
Else
|
|
Resultdata.Columns.Add("Bezeichnung") '0
|
|
Resultdata.Columns.Add("NRDOC00") '1
|
|
Resultdata.Columns.Add("NRAUF00") '2
|
|
Resultdata.Columns.Add("PartnerNr") '3
|
|
Resultdata.Columns.Add("BKPAR00") '4
|
|
Resultdata.Columns.Add("NRPOS00") '5
|
|
Resultdata.Columns.Add("NEVVG00") '6
|
|
Resultdata.Columns.Add("CDWAEAI") '7
|
|
Resultdata.Columns.Add("BTBET00") '8
|
|
Resultdata.Columns.Add("DMVAL00") '9
|
|
Resultdata.Columns.Add("CDZAH00") '10
|
|
Resultdata.Columns.Add("NRREF00") '11
|
|
Resultdata.Columns.Add("NEVVG01") '12
|
|
Resultdata.Columns.Add("NRPCK00") '13
|
|
Resultdata.Columns.Add("NRBCL00") '14
|
|
Resultdata.Columns.Add("CDVAR00") '15
|
|
Resultdata.Columns.Add("BEEAD00") '16
|
|
Resultdata.Columns.Add("BESAD00") '17
|
|
Resultdata.Columns.Add("DMARC00") '18
|
|
Resultdata.Columns.Add("hostdokumenttyp") '19
|
|
|
|
'COLD-Daten abfüllen
|
|
Dim tmp As String
|
|
Dim newrow As DataRow
|
|
Dim i1 As Integer
|
|
Dim rc As DataRowCollection
|
|
rc = Resultdata.Rows
|
|
Dim rowvals(Resultdata.Columns.Count - 1) As Object
|
|
ret = OnDemand.GetNumFolderDisplayFields(xnumfields)
|
|
|
|
For i = 0 To xnumdocs - 1
|
|
For i1 = 0 To xnumfields - 1
|
|
tmp = ""
|
|
ret = OnDemand.GetDocDisplayValue(i, i1, tmp)
|
|
If ret = 0 Then
|
|
Select Case i1
|
|
Case 0
|
|
rowvals(0) = tmp
|
|
rowvals(19) = Microsoft.VisualBasic.Left(tmp, 6)
|
|
Case 1
|
|
rowvals(2) = tmp
|
|
Case 2
|
|
rowvals(5) = tmp
|
|
Case 3
|
|
rowvals(6) = tmp
|
|
Case 4
|
|
rowvals(7) = tmp
|
|
Case 5
|
|
rowvals(8) = tmp
|
|
Case 6
|
|
rowvals(9) = tmp
|
|
Case 7
|
|
rowvals(1) = tmp
|
|
Case 8
|
|
rowvals(3) = tmp
|
|
rowvals(4) = ""
|
|
Case 9
|
|
rowvals(10) = tmp
|
|
Case 10
|
|
rowvals(11) = tmp
|
|
Case 11
|
|
rowvals(12) = tmp
|
|
Case 12
|
|
rowvals(13) = tmp
|
|
Case 13
|
|
rowvals(14) = tmp
|
|
Case 14
|
|
rowvals(15) = tmp
|
|
Case 15
|
|
rowvals(16) = tmp
|
|
Case 16
|
|
rowvals(17) = tmp
|
|
Case 17
|
|
rowvals(18) = tmp
|
|
End Select
|
|
End If
|
|
Next i1
|
|
newrow = rc.Add(rowvals)
|
|
Next i
|
|
Return Resultdata
|
|
End If
|
|
Case Else
|
|
Return suchdaten
|
|
End Select
|
|
End Function
|
|
|
|
' #define ARS_OLE_OPR_EQUAL 1
|
|
'#define ARS_OLE_OPR_NOT_EQUAL 2
|
|
'#define ARS_OLE_OPR_LESS_THAN 3
|
|
'#define ARS_OLE_OPR_LESS_THAN_OR_EQUAL 4
|
|
'#define ARS_OLE_OPR_GREATER_THAN 5
|
|
'#define ARS_OLE_OPR_GREATER_THAN_OR_EQUAL 6
|
|
'#define ARS_OLE_OPR_BETWEEN 7
|
|
'#define ARS_OLE_OPR_NOT_BETWEEN 8
|
|
'#define ARS_OLE_OPR_IN 9
|
|
'#define ARS_OLE_OPR_NOT_IN 10
|
|
'#define ARS_OLE_OPR_LIKE 11
|
|
'#define ARS_OLE_OPR_NOT_LIKE 12
|
|
Private Function setsuchfeldstring2(ByVal feld As String, ByVal wert As String, ByVal wert2 As String, ByVal [Operator] As String) As Boolean
|
|
Dim op As Integer
|
|
|
|
Select Case [Operator]
|
|
Case "zwischen"
|
|
op = 7
|
|
Case "="
|
|
op = 1
|
|
Case "<>"
|
|
op = 2
|
|
Case "<"
|
|
op = 3
|
|
Case "<="
|
|
op = 4
|
|
Case ">"
|
|
op = 5
|
|
Case ">="
|
|
op = 6
|
|
Case "wie"
|
|
op = "11"
|
|
Case "nicht wie"
|
|
op = 12
|
|
Case "nicht zwischen"
|
|
op = 8
|
|
Case "nicht in"
|
|
op = 10
|
|
Case "in"
|
|
op = 9
|
|
Case Else
|
|
op = 1
|
|
End Select
|
|
ret = Me.OnDemand.SetFolderSearchFieldData(feld, op, wert, wert2)
|
|
If ret <> 0 Then Return False Else Return True
|
|
End Function
|
|
|
|
|
|
#End Region
|
|
|
|
End Class
|
|
|