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.
339 lines
11 KiB
339 lines
11 KiB
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
|