Initial commit
This commit is contained in:
338
EDOKA/Backup1/Dokumentmanagement/frmDokumentKopieren.vb
Normal file
338
EDOKA/Backup1/Dokumentmanagement/frmDokumentKopieren.vb
Normal file
@@ -0,0 +1,338 @@
|
||||
Imports System.Data
|
||||
Imports System.IO
|
||||
Imports System.Data.SqlTypes
|
||||
Imports System.Data.SqlClient
|
||||
|
||||
Public Class frmDokumentKopieren
|
||||
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 btnPartnerInhaberInfo As System.Windows.Forms.Button
|
||||
Friend WithEvents btnPartnerInhaber As System.Windows.Forms.Button
|
||||
Friend WithEvents txtPartnerInhaber As System.Windows.Forms.TextBox
|
||||
Friend WithEvents Label1 As System.Windows.Forms.Label
|
||||
Friend WithEvents btnKopieren As System.Windows.Forms.Button
|
||||
Friend WithEvents btnAbbrechen As System.Windows.Forms.Button
|
||||
Friend WithEvents cbxErsetzten As System.Windows.Forms.CheckBox
|
||||
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
|
||||
Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(frmDokumentKopieren))
|
||||
Me.btnPartnerInhaberInfo = New System.Windows.Forms.Button()
|
||||
Me.btnPartnerInhaber = New System.Windows.Forms.Button()
|
||||
Me.txtPartnerInhaber = New System.Windows.Forms.TextBox()
|
||||
Me.Label1 = New System.Windows.Forms.Label()
|
||||
Me.btnKopieren = New System.Windows.Forms.Button()
|
||||
Me.btnAbbrechen = New System.Windows.Forms.Button()
|
||||
Me.cbxErsetzten = New System.Windows.Forms.CheckBox()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'btnPartnerInhaberInfo
|
||||
'
|
||||
Me.btnPartnerInhaberInfo.Image = CType(resources.GetObject("btnPartnerInhaberInfo.Image"), System.Drawing.Bitmap)
|
||||
Me.btnPartnerInhaberInfo.Location = New System.Drawing.Point(392, 32)
|
||||
Me.btnPartnerInhaberInfo.Name = "btnPartnerInhaberInfo"
|
||||
Me.btnPartnerInhaberInfo.Size = New System.Drawing.Size(24, 24)
|
||||
Me.btnPartnerInhaberInfo.TabIndex = 36
|
||||
'
|
||||
'btnPartnerInhaber
|
||||
'
|
||||
Me.btnPartnerInhaber.Image = CType(resources.GetObject("btnPartnerInhaber.Image"), System.Drawing.Bitmap)
|
||||
Me.btnPartnerInhaber.Location = New System.Drawing.Point(368, 32)
|
||||
Me.btnPartnerInhaber.Name = "btnPartnerInhaber"
|
||||
Me.btnPartnerInhaber.Size = New System.Drawing.Size(24, 24)
|
||||
Me.btnPartnerInhaber.TabIndex = 35
|
||||
'
|
||||
'txtPartnerInhaber
|
||||
'
|
||||
Me.txtPartnerInhaber.Location = New System.Drawing.Point(128, 32)
|
||||
Me.txtPartnerInhaber.Name = "txtPartnerInhaber"
|
||||
Me.txtPartnerInhaber.ReadOnly = True
|
||||
Me.txtPartnerInhaber.Size = New System.Drawing.Size(240, 20)
|
||||
Me.txtPartnerInhaber.TabIndex = 34
|
||||
Me.txtPartnerInhaber.Text = ""
|
||||
'
|
||||
'Label1
|
||||
'
|
||||
Me.Label1.Location = New System.Drawing.Point(24, 32)
|
||||
Me.Label1.Name = "Label1"
|
||||
Me.Label1.Size = New System.Drawing.Size(100, 16)
|
||||
Me.Label1.TabIndex = 37
|
||||
Me.Label1.Text = "Partner-Inhaber"
|
||||
'
|
||||
'btnKopieren
|
||||
'
|
||||
Me.btnKopieren.Location = New System.Drawing.Point(256, 112)
|
||||
Me.btnKopieren.Name = "btnKopieren"
|
||||
Me.btnKopieren.Size = New System.Drawing.Size(112, 24)
|
||||
Me.btnKopieren.TabIndex = 38
|
||||
Me.btnKopieren.Text = "Dokument kopieren"
|
||||
'
|
||||
'btnAbbrechen
|
||||
'
|
||||
Me.btnAbbrechen.Location = New System.Drawing.Point(128, 112)
|
||||
Me.btnAbbrechen.Name = "btnAbbrechen"
|
||||
Me.btnAbbrechen.Size = New System.Drawing.Size(112, 24)
|
||||
Me.btnAbbrechen.TabIndex = 39
|
||||
Me.btnAbbrechen.Text = "Abbrechen"
|
||||
'
|
||||
'cbxErsetzten
|
||||
'
|
||||
Me.cbxErsetzten.Location = New System.Drawing.Point(128, 64)
|
||||
Me.cbxErsetzten.Name = "cbxErsetzten"
|
||||
Me.cbxErsetzten.Size = New System.Drawing.Size(264, 24)
|
||||
Me.cbxErsetzten.TabIndex = 41
|
||||
Me.cbxErsetzten.Text = "Original Dokument ersetzen"
|
||||
'
|
||||
'frmDokumentKopieren
|
||||
'
|
||||
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
|
||||
Me.ClientSize = New System.Drawing.Size(504, 158)
|
||||
Me.ControlBox = False
|
||||
Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.cbxErsetzten, Me.btnAbbrechen, Me.btnKopieren, Me.btnPartnerInhaberInfo, Me.btnPartnerInhaber, Me.txtPartnerInhaber, Me.Label1})
|
||||
Me.MaximizeBox = False
|
||||
Me.MinimizeBox = False
|
||||
Me.Name = "frmDokumentKopieren"
|
||||
Me.ShowInTaskbar = False
|
||||
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
|
||||
Me.Text = "Dokument kopieren"
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
#Region " Deklarationen "
|
||||
|
||||
Dim m_iPartner As Integer = 0
|
||||
Dim m_iAktiverPartner As Integer = 0 'Partner von dem Dokument das kopiert werden soll.
|
||||
Dim m_iFunktionType As EnumFunktionType = EnumFunktionType.PartnerSuche
|
||||
Dim m_iDokumentTyp As Integer
|
||||
Dim m_sDokumentID As String
|
||||
Dim m_iProfilNr As Integer
|
||||
Dim m_DokumentBez As String
|
||||
Dim m_DokumentDatum As String
|
||||
Dim m_dtProfil As DataTable
|
||||
|
||||
'Dim propDokumentTyp As Integer
|
||||
|
||||
Public Enum EnumFunktionType
|
||||
PartnerSuche = 0
|
||||
PartnerAktuell = 1
|
||||
End Enum
|
||||
|
||||
Property propDokumentTyp() As Integer
|
||||
Get
|
||||
Return m_iDokumentTyp
|
||||
End Get
|
||||
Set(ByVal Value As Integer)
|
||||
m_iDokumentTyp = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Property propProfilNr() As Integer
|
||||
Get
|
||||
Return m_iProfilNr
|
||||
End Get
|
||||
Set(ByVal Value As Integer)
|
||||
m_iProfilNr = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Property propProfilDataTable() As DataTable
|
||||
Get
|
||||
Return m_dtProfil
|
||||
End Get
|
||||
Set(ByVal Value As DataTable)
|
||||
m_dtProfil = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Property propDokumentID() As String
|
||||
Get
|
||||
Return m_sDokumentID
|
||||
End Get
|
||||
Set(ByVal Value As String)
|
||||
m_sDokumentID = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Property propDokumentBez() As String
|
||||
Get
|
||||
Return m_DokumentBez
|
||||
End Get
|
||||
Set(ByVal Value As String)
|
||||
m_DokumentBez = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Property propDokumentDatum() As String
|
||||
Get
|
||||
Return m_DokumentDatum
|
||||
End Get
|
||||
Set(ByVal Value As String)
|
||||
m_DokumentDatum = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
#End Region
|
||||
|
||||
#Region " Formular Funktionen "
|
||||
Public Sub New(ByVal iAktuellerPartner As Integer)
|
||||
MyBase.New()
|
||||
InitializeComponent()
|
||||
|
||||
m_iPartner = iAktuellerPartner
|
||||
m_iAktiverPartner = iAktuellerPartner
|
||||
m_iFunktionType = EnumFunktionType.PartnerAktuell
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub frmDokumentKopieren_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
||||
SetFunktionType()
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
#Region " Kontrol Funktionen "
|
||||
|
||||
Private Sub btnPartnerInhaber_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPartnerInhaber.Click
|
||||
'Oeffnet den Partnersuch Dialog
|
||||
Dim f As New FrmPartnersuche()
|
||||
f.NurAbfrage = True
|
||||
Me.TopMost = False
|
||||
f.ShowDialog()
|
||||
Me.TopMost = True
|
||||
If f.PartnerNr <> 0 Then
|
||||
Me.Cursor = Cursors.WaitCursor
|
||||
m_iPartner = f.PartnerNr
|
||||
Me.Cursor = Cursors.Default
|
||||
End If
|
||||
Me.txtPartnerInhaber.Text = CStr(m_iPartner) & " " & genPartnerData(m_iPartner)
|
||||
If m_iAktiverPartner = m_iPartner Then
|
||||
cbxErsetzten.Enabled = True
|
||||
Else
|
||||
cbxErsetzten.Checked = False
|
||||
cbxErsetzten.Enabled = False
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub btnPartnerInhaberInfo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPartnerInhaberInfo.Click
|
||||
Try
|
||||
If m_iPartner > 0 Then
|
||||
If m_iPartner > 91000000 Then
|
||||
Dim f As New frmInteressent()
|
||||
f.Partnernr = m_iPartner
|
||||
f.Display = True
|
||||
f.ShowDialog()
|
||||
f.Dispose()
|
||||
Else
|
||||
Dim f As New frmPartnerDetails()
|
||||
f.Partnernr = m_iPartner
|
||||
f.ShowDialog()
|
||||
f.Dispose()
|
||||
End If
|
||||
End If
|
||||
Catch
|
||||
Finally
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
#Region " Diverse Funktionen "
|
||||
|
||||
Private Sub SetFunktionType()
|
||||
'Setzt je nach Funktion die Objekte Visible oder Unvisible
|
||||
Select Case m_iFunktionType
|
||||
Case EnumFunktionType.PartnerSuche
|
||||
cbxErsetzten.Enabled = False
|
||||
|
||||
Case EnumFunktionType.PartnerAktuell
|
||||
Me.txtPartnerInhaber.Text = CStr(m_iPartner) & " " & genPartnerData(m_iPartner)
|
||||
cbxErsetzten.Enabled = True
|
||||
End Select
|
||||
End Sub
|
||||
|
||||
Private Function genPartnerData(ByVal iPartnerNr As Integer) As String
|
||||
Dim objPartner As New edokadb.clsPartner()
|
||||
Try
|
||||
objPartner.cpMainConnectionProvider = Globals.conn
|
||||
objPartner.iNRPAR00 = New SqlInt32(CType(iPartnerNr, Int32))
|
||||
objPartner.SelectOne()
|
||||
Return objPartner.sBKPAR00.Value
|
||||
Finally
|
||||
objPartner.Dispose()
|
||||
End Try
|
||||
End Function
|
||||
|
||||
#End Region
|
||||
|
||||
Private Sub btnKopieren_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKopieren.Click
|
||||
Dim fI As New frmDokumentbearbeitung()
|
||||
Dim bErsetzenError As Boolean = False
|
||||
fI.Profilnr = m_iProfilNr
|
||||
fI.Profile = m_dtProfil
|
||||
|
||||
If m_iPartner > 91000000 And DivFnkt.EDOKA_Partner_Dokument(3, m_iDokumentTyp) = False Then
|
||||
MyMsg.show_standardmessage(110, MsgBoxStyle.Critical)
|
||||
fI.Dispose()
|
||||
Me.Cursor = System.Windows.Forms.Cursors.Default
|
||||
Exit Sub
|
||||
End If
|
||||
fI.Partnernr = m_iPartner
|
||||
|
||||
fI.Dokumenttypnr = m_iDokumentTyp
|
||||
fI.CreateDocument = True
|
||||
fI.PropKopyDokID = m_sDokumentID
|
||||
fI.BarcodeID = ""
|
||||
'Prüfen ob das Dokument erstzt werden kann.
|
||||
If cbxErsetzten.Checked = True Then
|
||||
If fI.Check_KopyDokumentZuErsetzten(m_iDokumentTyp, m_sDokumentID, m_DokumentBez, m_DokumentDatum) = False Then
|
||||
bErsetzenError = True
|
||||
End If
|
||||
End If
|
||||
If bErsetzenError = False Then
|
||||
Me.Cursor = Cursors.WaitCursor
|
||||
Me.Hide()
|
||||
Windows.Forms.Application.DoEvents()
|
||||
Me.Cursor = Cursors.WaitCursor
|
||||
fI.ShowDialog()
|
||||
fI.Hide()
|
||||
Windows.Forms.Application.DoEvents()
|
||||
Else
|
||||
fI.Dispose()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub btnAbbrechen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAbbrechen.Click
|
||||
Me.Close()
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
Reference in New Issue
Block a user