edv/SDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

neu

Browse Source
This commit is contained in:
Andreas Luxbauer
2020-03-23 11:37:40 +01:00
parent cc28d5a6cf
commit 00c51ba4a4
23 changed files with 862 additions and 143 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/MyDatagridview.vb
View File

@@ -28,6 +28,7 @@ Public Class MyDatagridview
Dim SortDirection As Windows.Forms.SortOrder
Dim ScrollPos_X = Nothing
Dim ScrollPos_Y = Nothing
'Dim ScrollPos_Y2 = Nothing
Dim SQL As New SQL
Public Sub GetOrder()
@@ -41,6 +42,8 @@ Public Class MyDatagridview
End If
ScrollPos_X = Me.HorizontalScrollingOffset
ScrollPos_Y = Me.FirstDisplayedScrollingRowIndex 'Me.VerticalScrollingOffset
'ScrollPos_Y2 = Me.VerticalScrollingOffset
If Me.SelectedRows.Count > 0 Then
sel_row_index = Me.SelectedRows(0).Index
@@ -86,8 +89,10 @@ Public Class MyDatagridview
End If
If ScrollPos_X IsNot Nothing Then Me.HorizontalScrollingOffset = ScrollPos_X
Try
' Me.DataBind
Me.FirstDisplayedScrollingRowIndex = ScrollPos_Y
Catch ex As Exception
'If ScrollPos_Y IsNot Nothing Then Me.HorizontalScrollBar.Value = ScrollPos_Y2
End Try

3
VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/frmPDFScanList.Designer.vb generated
View File

@@ -22,9 +22,8 @@ Partial Class frmPDFScanList
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Me.FlowLayoutPanel = New System.Windows.Forms.FlowLayoutPanel()
Me.cntxtMulti = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.cntxtMulti = New System.Windows.Forms.ContextMenuStrip()
Me.DateiScannenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.DateiHochladenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator()

36
VERAG_PROG_ALLGEMEIN/Classes/cRechnungsausgang.vb
View File

@@ -117,6 +117,13 @@ Public Class cRechnungsausgang
LOAD() : LOAD_POSITIONEN()
End Sub
Sub New(FilialenNr, AbfertigungsNr)
Me.FilialenNr = FilialenNr
Me.AbfertigungsNr = AbfertigungsNr
LOAD(FilialenNr, AbfertigungsNr)
End Sub
Public Function getMaxRGUnterNr() As Integer
Return getMaxRGUnterNr(FilialenNr, AbfertigungsNr, SpeditionsbuchUnterNr)
@@ -237,6 +244,35 @@ Public Class cRechnungsausgang
Public Sub LOAD(FilialeNr As Integer, AbfertigungsNr As Integer, Optional loadPos As Boolean = True)
Try
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
Using cmd As New SqlCommand("SELECT * FROM Rechnungsausgang WHERE FilialeNr=@FilialeNr AND AbfertigungsNr=@AbfertigungsNr ", conn)
cmd.Parameters.AddWithValue("@FilialeNr", FilialeNr)
cmd.Parameters.AddWithValue("@AbfertigungsNr", AbfertigungsNr)
Dim dr = cmd.ExecuteReader()
If dr.Read Then
For Each l In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
propInfo.SetValue(Me, Nothing)
Else
propInfo.SetValue(Me, dr.Item(l.Text))
End If
Next
If loadPos Then LOAD_POSITIONEN()
End If
dr.Close()
End Using
doVorzeichen()
End Using
Catch ex As Exception
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
End Try
End Sub
Public Shared Function LOADByFilialeAbfNrsssasdssssssssss(FilialeNr As Integer, AbfertigungsNr As Integer) As cVorauskasse
Try
Dim VK As New cVorauskasse

3
VERAG_PROG_ALLGEMEIN/Classes/cSendungen.vb
View File

@@ -81,6 +81,7 @@ Public Class cSendungen
Property tblSnd_Frachtfuehrer As Object = Nothing
Property tblSnd_DakosyRef As Object = Nothing
Property tblSnd_TeamId As Object = Nothing
Property tblSnd_Fakturiert As Object = Nothing
Public saveSachbearbeiter As Boolean = False
@@ -264,6 +265,7 @@ Public Class cSendungen
Me.tblSnd_Frachtfuehrer = SQL.checkNullReturnValue(dr.Item("tblSnd_Frachtfuehrer"), Nothing)
Me.tblSnd_DakosyRef = SQL.checkNullReturnValue(dr.Item("tblSnd_DakosyRef"), Nothing)
Me.tblSnd_TeamId = SQL.checkNullReturnValue(dr.Item("tblSnd_TeamId"), Nothing)
Me.tblSnd_Fakturiert = SQL.checkNullReturnValue(dr.Item("tblSnd_Fakturiert"), Nothing)
End If
@@ -427,6 +429,7 @@ Public Class cSendungen
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_Frachtfuehrer", tblSnd_Frachtfuehrer))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_DakosyRef", tblSnd_DakosyRef))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_TeamId", tblSnd_TeamId))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_Fakturiert", tblSnd_Fakturiert))
Return list

9
VERAG_PROG_ALLGEMEIN/Classes/cSpeditionsbuch.vb
View File

@@ -213,7 +213,14 @@ Public Class cSpeditionsbuch
End Function
Public Shared Function existsSpedBuch(FilialenNr As Integer, AbfertigungsNr As Integer) As Boolean 'obj As Object, tablename As String, where As String) As Boolean
If FilialenNr <= 0 Then Return False
If AbfertigungsNr <= 0 Then Return False
Dim SQL As New SQL
Return (CInt(SQL.getValueTxtBySql(" SELECT COUNT(*) FROM [Speditionsbuch] WHERE [FilialenNr]='" & FilialenNr & "' AND AbfertigungsNr='" & AbfertigungsNr & "' ", "FMZOLL")) > 0)
End Function
Public Function SAVE() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()

7
VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.vb
View File

@@ -37,6 +37,9 @@ Public Class frmMessenger
TimerNEW_MESSAGE.Enabled = True
intiDGVChats()
If My.Application.Info.AssemblyName = "SDL" Then
lbl.Text = "CHAT"
End If
MyFlowLayoutPanel1.Controls.Clear()
'loaded = True
End Sub
@@ -59,6 +62,7 @@ Public Class frmMessenger
.Columns("ungelesen").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
.Columns("ungelesen").DefaultCellStyle.Font = New Font(.Font.FontFamily, 7, FontStyle.Bold)
dgvChats.GetOrder()
Dim loadedTmp = loaded
If Not reloadChat Then
loaded = False
@@ -88,7 +92,8 @@ Public Class frmMessenger
End If
End If
dgvChats.SetOrder()
If dgvChats.SelectedRows.Count > 0 Then dgvChats.FirstDisplayedCell = dgvChats.SelectedRows(0).Cells("chat_name")
'dgvChats.ClearSelection()
'SplitContainer1.Enabled = False

2
VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb
View File

@@ -194,7 +194,7 @@ Public Class cProgramFunctions
If anhaenge IsNot Nothing Then
For Each a In DirectCast(anhaenge, List(Of String))
Msg.Attachments.Add(New System.Net.Mail.Attachment(a))
If a IsNot Nothing AndAlso a <> "" Then Msg.Attachments.Add(New System.Net.Mail.Attachment(a))
Next
End If
mySmtpsvr.Send(Msg)