AppCustom/SchaumKommi
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

MS Änderungen 11.06

Browse Source
This commit is contained in:
Digital Data - Marlon Schreiber
2018-06-11 10:22:00 +02:00
parent 693e55c836
commit 586461e0e9
24 changed files with 304 additions and 160 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
SchaumKommiCollo/KommiCollo/frmAbschluss.vb
View File

@@ -2,15 +2,22 @@
Dim Mandant As String
Dim Mandant_ID As Integer
Private Sub frmAbschluss_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
'TODO: Diese Codezeile lädt Daten in die Tabelle "MyDataset.VWKOMMCOLLI_UEBERSICHT". Sie können sie bei Bedarf verschieben oder entfernen.
Me.VWKOMMCOLLI_UEBERSICHTTableAdapter.Fill(Me.MyDataset.VWKOMMCOLLI_UEBERSICHT)
Try
If (System.Diagnostics.Debugger.IsAttached) = False Then
My.Settings.ConfigConnectionString = "Data Source=192.168.13.101;Initial Catalog=SCHAUM_IID;Persist Security Info=True;User ID=sa;Password=dd"
My.Settings.ConfigConnStringMercator = "Data Source=192.168.13.101;Initial Catalog=CP2DD;Persist Security Info=True;User ID=sa;Password=dd"
My.Settings.Save()
End If
Me.VWAbschlussTableAdapter.Connection.ConnectionString = My.Settings.ConfigConnectionString
Me.TBKOMMCOLLI_MANDANTTableAdapter.Connection.ConnectionString = My.Settings.ConfigConnectionString
Me.TBKOMMCOLLI_PAKET_KOPFTableAdapter.Connection.ConnectionString = My.Settings.ConfigConnectionString
Me.TBKOMMCOLLI_PAKET_POSTableAdapter.Connection.ConnectionString = My.Settings.ConfigConnectionString
Me.TBKOMMCOLLI_PAKET_POS_LSTableAdapter.Connection.ConnectionString = My.Settings.ConfigConnectionString
'TODO: Diese Codezeile lädt Daten in die Tabelle "MyDataset.VWKOMMCOLLI_UEBERSICHT". Sie können sie bei Bedarf verschieben oder entfernen.
Me.VWKOMMCOLLI_UEBERSICHTTableAdapter.Connection.ConnectionString = My.Settings.ConfigConnectionString
Me.VWKOMMCOLLI_UEBERSICHTTableAdapter.Fill(Me.MyDataset.VWKOMMCOLLI_UEBERSICHT)
Me.VKKOPFTableAdapter.Connection.ConnectionString = My.Settings.ConfigConnStringMercator
Me.TBKOMMCOLLI_MANDANTTableAdapter.Fill(MyDataset.TBKOMMCOLLI_MANDANT)
@@ -163,7 +170,7 @@
ZeilenBuilder.Append(";")
Else
MsgBox("Fehler beim Abschluss des Pakets '" & PAKET_ID & "'!" & vbNewLine & "Kein eindeutiger Datensatz zu VKOPF_BESTELLNR Und VKOPF_EINGANSNR gefunden." & _
MsgBox("Fehler beim Abschluss des Pakets '" & PAKET_ID & "#" & PAKET_GUID & "'!" & vbNewLine & "Kein eindeutiger Datensatz zu VKOPF_BESTELLNR Und VKOPF_EINGANSNR gefunden oder Adresse ist leer (Mercator Tabelle fehlerhaft)." &
vbNewLine & "Bitte verständigen Sie Ihren Systembetreuuer", MsgBoxStyle.Critical, "Fehler")
Return False
End If
@@ -190,7 +197,7 @@
Else
Dim DT As DataTable = MyDataset.VWKOMMCOLLI_UEBERSICHT
For Each DR As DataRow In DT.Rows
DR.Item("Selected") = True
DR.Item("SELECTED") = True
Next
End If
@@ -205,7 +212,7 @@
Else
Dim DT As DataTable = MyDataset.VWKOMMCOLLI_UEBERSICHT
For Each DR As DataRow In DT.Rows
DR.Item("Selected") = False
DR.Item("SELECTED") = False
Next
End If