shu/EDOKA_DMS
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Update nach Anpassung BedR

Browse Source
This commit is contained in:
Stefan Hutter
2022-12-26 16:08:36 +01:00
parent 7b68dffd3f
commit ac2cda6ae8
18 changed files with 505 additions and 500 deletions
Download Patch File Download Diff File Expand all files Collapse all files

69
EDOKA/Dokumentmanagement/frmDokumentBearbeitungBC.vb
View File

@@ -155,14 +155,14 @@ Public Class frmDokumentbearbeitungBC
Friend WithEvents BtnHelp As System.Windows.Forms.Button
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmDokumentbearbeitungBC))
Dim Style1 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style()
Dim Style2 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style()
Dim Style3 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style()
Dim Style4 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style()
Dim Style5 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style()
Dim Style6 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style()
Dim Style7 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style()
Dim Style8 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style()
Dim Style9 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style()
Dim Style10 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style()
Dim Style11 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style()
Dim Style12 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style()
Dim Style13 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style()
Dim Style14 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style()
Dim Style15 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style()
Dim Style16 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style()
Me.ContextMenu1 = New System.Windows.Forms.ContextMenu()
Me.MnuNeueNotiz = New System.Windows.Forms.MenuItem()
Me.MnuEditNotiz = New System.Windows.Forms.MenuItem()
@@ -741,6 +741,7 @@ Public Class frmDokumentbearbeitungBC
Me.GroupBox7.TabIndex = 3
Me.GroupBox7.TabStop = False
Me.GroupBox7.Text = "Informationsmeldungen"
Me.GroupBox7.Visible = False
'
'InfoMeldungList
'
@@ -1109,25 +1110,25 @@ Public Class frmDokumentbearbeitungBC
Me.drpMiatarbeiter.AllowColSelect = True
Me.drpMiatarbeiter.AllowRowSizing = C1.Win.C1TrueDBGrid.RowSizingEnum.AllRows
Me.drpMiatarbeiter.AlternatingRows = True
Me.drpMiatarbeiter.CaptionStyle = Style1
Me.drpMiatarbeiter.CaptionStyle = Style9
Me.drpMiatarbeiter.ColumnCaptionHeight = 17
Me.drpMiatarbeiter.ColumnFooterHeight = 17
Me.drpMiatarbeiter.EvenRowStyle = Style2
Me.drpMiatarbeiter.EvenRowStyle = Style10
Me.drpMiatarbeiter.FetchRowStyles = False
Me.drpMiatarbeiter.FooterStyle = Style3
Me.drpMiatarbeiter.HeadingStyle = Style4
Me.drpMiatarbeiter.HighLightRowStyle = Style5
Me.drpMiatarbeiter.FooterStyle = Style11
Me.drpMiatarbeiter.HeadingStyle = Style12
Me.drpMiatarbeiter.HighLightRowStyle = Style13
Me.drpMiatarbeiter.Images.Add(CType(resources.GetObject("drpMiatarbeiter.Images"), System.Drawing.Image))
Me.drpMiatarbeiter.Location = New System.Drawing.Point(80, 40)
Me.drpMiatarbeiter.Name = "drpMiatarbeiter"
Me.drpMiatarbeiter.OddRowStyle = Style6
Me.drpMiatarbeiter.RecordSelectorStyle = Style7
Me.drpMiatarbeiter.OddRowStyle = Style14
Me.drpMiatarbeiter.RecordSelectorStyle = Style15
Me.drpMiatarbeiter.RowDivider.Color = System.Drawing.Color.DarkGray
Me.drpMiatarbeiter.RowDivider.Style = C1.Win.C1TrueDBGrid.LineStyleEnum.[Single]
Me.drpMiatarbeiter.RowSubDividerColor = System.Drawing.Color.DarkGray
Me.drpMiatarbeiter.ScrollTips = False
Me.drpMiatarbeiter.Size = New System.Drawing.Size(40, 80)
Me.drpMiatarbeiter.Style = Style8
Me.drpMiatarbeiter.Style = Style16
Me.drpMiatarbeiter.TabIndex = 3
Me.drpMiatarbeiter.Text = "C1TrueDBDropdown1"
Me.drpMiatarbeiter.Visible = False
@@ -1746,7 +1747,7 @@ Public Class frmDokumentbearbeitungBC
Dim i As Integer
i = check_banklagernd()
If i = 0 Then Exit Sub
Dim dt As New edokadb.clsDokumenttyp()
Dim dt As New edokaDB.clsDokumenttyp()
dt.cpMainConnectionProvider = conn
dt.iDokumenttypnr = New SqlInt32(CType(Dokumenttypnr, Int32))
dt.SelectOne()
@@ -1852,7 +1853,7 @@ Public Class frmDokumentbearbeitungBC
End Sub
Private Sub Formular_laden_Edit_Document()
Dim doc As New edokadb.clsDokument()
Dim doc As New edokaDB.clsDokument()
doc.cpMainConnectionProvider = conn
conn.OpenConnection()
doc.sDokumentid = New SqlString(CType(Me.EditDokumentid, String))
@@ -1868,7 +1869,7 @@ Public Class frmDokumentbearbeitungBC
Load_Defaults()
'Parnter laden
Dim p As New edokadb.clsPartner()
Dim p As New edokaDB.clsPartner()
p.cpMainConnectionProvider = conn
p.iNRPAR00 = doc.iNrpar00
p.SelectOne()
@@ -2141,7 +2142,7 @@ Public Class frmDokumentbearbeitungBC
Private Sub Load_Defaults()
If Me.Notfallimport Then Me.Text = Me.Text + " - Notfall-Dokumenterstellung"
Me.SqlConnection1.ConnectionString = Globals.sConnectionString
Dim doktyp As New edokadb.clsDokumenttyp()
Dim doktyp As New edokaDB.clsDokumenttyp()
doktyp.cpMainConnectionProvider = conn
doktyp.iDokumenttypnr = New SqlInt32(CType(Me.Dokumenttypnr, Int32))
doktyp.SelectOne()
@@ -2383,7 +2384,7 @@ Public Class frmDokumentbearbeitungBC
Me.mcbteam.SelectedIndex = 0
Me.mcbstatus.SelectedIndex = 0
Me.mcbstatus.SelectedIndex = 1
Me.savestatus = Me.mcbstatus.SelectedValue
If Me.Edex_Folgestatus <> 0 Then Me.mcbstatus.SelectedIndex = Me.Edex_Folgestatus
Me.savestatus = Me.mcbstatus.SelectedValue
@@ -2948,7 +2949,7 @@ Public Class frmDokumentbearbeitungBC
If ii < 1 Then Exit Sub
f.Partnernr = LTrim(Microsoft.VisualBasic.Left(ss, ii - 1))
Else
f.partnernr = Me.txtPartnerInhaberNr.Text()
f.Partnernr = Me.txtPartnerInhaberNr.Text()
End If
End If
f.Text = f.Text + Me.DokWertList.Columns(0).Value
@@ -3011,7 +3012,7 @@ Public Class frmDokumentbearbeitungBC
Exit Sub
End Select
Dim p As New edokadb.clsPartner()
Dim p As New edokaDB.clsPartner()
p.cpMainConnectionProvider = conn
Try
p.iNRPAR00 = New SqlInt32(CType(Trim(Me.txtPartnerInhaberNr.Text), Int32))
@@ -3022,7 +3023,7 @@ Public Class frmDokumentbearbeitungBC
End Try
p.SelectOne()
If p.bSaldiert.Value = True Then
Dim dt As New edokadb.clsDokumenttyp()
Dim dt As New edokaDB.clsDokumenttyp()
dt.cpMainConnectionProvider = conn
dt.iDokumenttypnr = New SqlInt32(CType(Me.Dokumenttypnr, Int32))
dt.SelectOne()
@@ -3180,12 +3181,12 @@ Public Class frmDokumentbearbeitungBC
progress.Close()
progress.Dispose()
Dim p As New edokadb.clsPartner()
Dim p As New edokaDB.clsPartner()
p.cpMainConnectionProvider = conn
p.iNRPAR00 = New SqlInt32(CType(Trim(Me.txtPartnerInhaberNr.Text), Int32))
p.SelectOne()
If p.bSaldiert.Value = True Then
Dim dt As New edokadb.clsDokumenttyp()
Dim dt As New edokaDB.clsDokumenttyp()
dt.cpMainConnectionProvider = conn
dt.iDokumenttypnr = New SqlInt32(CType(Me.Dokumenttypnr, Int32))
dt.SelectOne()
@@ -3294,10 +3295,10 @@ Public Class frmDokumentbearbeitungBC
w.ProgressBar.Bar1a.Value = 10
Me.Cursor = System.Windows.Forms.Cursors.WaitCursor
Dim dbkey As New edokadb.clsMyKey_Tabelle()
Dim doc As New edokadb.clsDokument()
Dim doctyp As New edokadb.clsDokumenttyp()
Dim docvor As New edokadb.clsOffice_vorlage()
Dim dbkey As New edokaDB.clsMyKey_Tabelle()
Dim doc As New edokaDB.clsDokument()
Dim doctyp As New edokaDB.clsDokumenttyp()
Dim docvor As New edokaDB.clsOffice_vorlage()
'Dokumenttyp laden
doctyp.cpMainConnectionProvider = conn
@@ -3689,7 +3690,7 @@ Public Class frmDokumentbearbeitungBC
Private Sub Update_Bclabel(ByVal typ As Integer)
If Me.BarcodeID = "" Then Exit Sub
Dim bc As New edokadb.clsBarcodeetikette()
Dim bc As New edokaDB.clsBarcodeetikette()
bc.cpMainConnectionProvider = conn
bc.iBarcodenr = New SqlInt32(CType(Me.BarcodeID, Int32))
bc.SelectOne()
@@ -4542,7 +4543,7 @@ Public Class frmDokumentbearbeitungBC
'End Try
Try
Dim mypartner As New edokadb.clsMyPartner
Dim mypartner As New edokaDB.clsMyPartner
Dim partner As New DataTable
partner = mypartner.Partner_Detail(Me.Partnernr)
Me.txtInhaber.Text = ""
@@ -4676,8 +4677,8 @@ Public Class frmDokumentbearbeitungBC
End Sub
Private Function get_partnerzusteller(ByVal nrpar00 As Integer) As String
Dim p As New edokadb.clsPartner()
Dim p1 As New edokadb.clsPartner()
Dim p As New edokaDB.clsPartner()
Dim p1 As New edokaDB.clsPartner()
Dim s As String
s = ""
p.cpMainConnectionProvider = conn