StartOpt, Program
This commit is contained in:
@@ -657,7 +657,7 @@ Public Class frmNachrichtenVerarbeitung_MDM_divers
|
||||
Dim kdNr As String = fileNameEasyTrip.Substring(0, 5)
|
||||
Dim invoiceNo As String = "" 'FIT2002A25-079939
|
||||
Dim invoiceDate As String = "" '20250908
|
||||
Dim UID As String = "" 'DE_341929194
|
||||
Dim UID As String = "" 'DE_341929194X
|
||||
|
||||
Dim RMC As New cRMC() 'easytry über Filename anlegen!
|
||||
|
||||
@@ -665,7 +665,7 @@ Public Class frmNachrichtenVerarbeitung_MDM_divers
|
||||
invoiceDate = fileNameEasyTrip.Substring(indexOfFIT + 17, 8)
|
||||
Dim parsedDate As DateTime = DateTime.ParseExact(invoiceDate, "yyyyMMdd", System.Globalization.CultureInfo.InvariantCulture)
|
||||
|
||||
UID = fileNameEasyTrip.Substring(fileNameEasyTrip.IndexOf("AT70") + 4, 12)
|
||||
UID = fileNameEasyTrip.Substring(fileNameEasyTrip.IndexOf("AT70") + 4, 13)
|
||||
UID = UID.Replace("_", "")
|
||||
|
||||
RMC.rmc_reDatum = parsedDate.ToString("dd.MM.yyyy")
|
||||
|
||||
1821
initATLASAufschubkonten/frmStartOptions.Designer.vb
generated
1821
initATLASAufschubkonten/frmStartOptions.Designer.vb
generated
File diff suppressed because it is too large
Load Diff
@@ -743,6 +743,30 @@
|
||||
+z1oZ9B6syqzaGEdYX5mdmYqt4qgQDVINcVjocfByBORr63brCulbaW10NVQHYibiNsHbQ+6L24q7oAu
|
||||
RxPAxs8mJG4iDmp1USehIAMuLi4GeXl5NlNTU347OzsRe3t7UWRsZ2cnbG5uzicrK8vKxcVFXOmCD0hK
|
||||
SjJ6enoK1NXVqU6aNMlg2rRpxsh48uTJus3NzYqurq68EhISJGd6ADkzAttxL7feAAAAAElFTkSuQmCC
|
||||
</value>
|
||||
</data>
|
||||
<data name="PictureBox27.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABGdJREFUSEtj
|
||||
YKAyYOFk4Za0knSzzrXOd8x2jJeUlGRgZ2dHV0YFwMjAKKInomlUYJRl32e/wn+Z/0Gf2T4L9eP1rQRV
|
||||
BQWZ2JnQdVAGBNQEFI2KjHLCj4Qfjz0f+zX+Uvz/iKMR9z2XeU7USdNxENYVFmZkYWRE10c2sGqyKgg/
|
||||
FH4s7mLcPxAGWQhjR5+Pnm5Wa+bAxs/Ggq6PbODQ77Aw5mzMO5BF6DjuYtzDoB1BU5ynO9uh6yMZcIpy
|
||||
Sin5KsX5rva9gMWiP3EX4354LPDYb9VkVWpSZmKIrp8kwMrDyifnLBcUtCPoYfSp6G9oln2PPh39InRf
|
||||
6EXVYNUYLjEuCXT9JAMFT4UI5+nO22POxPyMuxD3F83CK/4b/CdoJ2hb8CnwiTIyM5Iff8yczNxSVlJu
|
||||
Nm02i8P2h72EJRKwRRfifsScibnts9Kn0yjfyIZfkZ+bhZOFGd0MkgC7ALuIXppeDXq8xZ6L/Rl+MPyR
|
||||
2xy3iXpperai+qLUyfG4LIw8GvnGY57HVnFDcTk2bjZ0beQBHikeeWV/5QTvpd4nI49FfoRZFnM+5rdd
|
||||
j91KEV0REzY+Ng5GZgJ5nJmDmZtPgU9dwUPBUsZeRoNLgosNXRO7ILsIOKFMdd4adTzqE7Lv/Pf6b9JM
|
||||
1wxB0YALgFIQrxyvmlacVrHfer/prnNccxW9FWXZBdhZGZCKQEENQUOzKrMpaKnxR9zFuOeWMyy9JDwl
|
||||
WJHNxQk4xTilVAJVkkP2hjyLPhP9NvJE5C7PJZ7J4ibikqw8rPDkjMPCazEXYorkveWVWHiISPnMHMxc
|
||||
qsGqKe7z3Q+Cy75LcSBDXkQcjdjuMMEhStJKUo6JlYmVlZdVQD9Lv8F3je9FeKq8EHvZf5N/j26Grg6P
|
||||
LA8PutlYgYKbQqjzVOdtyK6GuvxD7IXYlea15v5ixmISXBJcsm5z3PZC5X7FXYx7Grg9cKpZlZkzuxA7
|
||||
GxMrE4FUAgXIpTuahWDxmPMx011mudiiWQhyzBKzSjMvQQ1BXnQz8QJpG2lPZX/lKMs6y464i3H34y/F
|
||||
g+syJIsfhh8KPw6yLPxQ+GuQWOSRyNc27Tbd0rbSZizcZJQibHxsvBImEsamFaaVrjNdNwXvDH6A7mMY
|
||||
BlnqNtttj5yrXDAosaGbRTKQdZYNsOu2WxZ9MvpD3IW43/GX4hHl5MW4n75rfI/pZ+kXsouwC6HrJQuw
|
||||
cLPwKngqeLvPc18adTLqRfyl+F9IFt73We0zQTdd14BdkIotI25JbgkZBxkHtVC1JLc5brtjz8f+jL0Q
|
||||
+z1oZ9B6syqzaGEdYX5mdmYqt4qgQDVINcVjocfByBORr63brCulbaW10NVQHYibiNsHbQ+6L24q7oAu
|
||||
RxPAxs8mJG4iDmp1USehIAMuLi4GeXl5NlNTU347OzsRe3t7UWRsZ2cnbG5uzicrK8vKxcVFXOmCD0hK
|
||||
SjJ6enoK1NXVqU6aNMlg2rRpxsh48uTJus3NzYqurq68EhISJGd6ADkzAttxL7feAAAAAElFTkSuQmCC
|
||||
</value>
|
||||
</data>
|
||||
<data name="PictureBox12.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
|
||||
@@ -6,11 +6,7 @@ Imports System.Security.Cryptography.X509Certificates
|
||||
Imports System.Text
|
||||
Imports System.Threading
|
||||
Imports System.Xml
|
||||
Imports com.sun.org.apache.bcel.internal.generic
|
||||
Imports com.sun.tools.javadoc
|
||||
Imports DAKOSY_Worker
|
||||
Imports javax
|
||||
Imports DocumentFormat.OpenXml.Wordprocessing
|
||||
Imports MDM_Worker
|
||||
Imports Renci.SshNet
|
||||
Imports VERAG_PROG_ALLGEMEIN
|
||||
@@ -7320,6 +7316,9 @@ repeatRequest:
|
||||
dt_wrongEmails.Columns.Add("fehlerhafteMail-CC", GetType(String))
|
||||
dt_wrongEmails.Columns.Add("fehlerhafteMail-BCC", GetType(String))
|
||||
|
||||
'nur Prüfung bei Kunden, die in den letzen 2 Jahren eine Rechnung bekommen haben! (laut A.Stockenhuber).
|
||||
Dim dtRechnungen As DataTable = (New SQL).loadDgvBySql("select distinct(RechnungsKundenNr) from Rechnungsausgang where cast(RechnungsDatum as Date) >= ' " & Today().AddYears(-2) & "' ", "FMZOLL")
|
||||
|
||||
If dt IsNot Nothing Then
|
||||
For Each r As DataRow In dt.Rows
|
||||
|
||||
@@ -7328,17 +7327,22 @@ repeatRequest:
|
||||
Dim fehlerhafteMailBCC As String = VERAG_PROG_ALLGEMEIN.cProgramFunctions.checkifMailisOK(r("kkd_emailbcc"))
|
||||
|
||||
If fehlerhafteMail <> "" Or fehlerhafteMailCC <> "" Or fehlerhafteMailBCC <> "" Then
|
||||
Dim ROW As DataRow = dt_wrongEmails.NewRow
|
||||
ROW("KdNr") = r.Item("AdressenNr")
|
||||
ROW("Art") = r.Item("kkd_kkaBez")
|
||||
ROW("Name") = r.Item("Name 1")
|
||||
ROW("Firma") = r.Item("Firma")
|
||||
ROW("fehlerhafteMail") = fehlerhafteMail
|
||||
ROW("fehlerhafteMail-CC") = fehlerhafteMailCC
|
||||
ROW("fehlerhafteMail-BCC") = fehlerhafteMailBCC
|
||||
dt_wrongEmails.Rows.Add(ROW)
|
||||
|
||||
Dim exists As Boolean = dtRechnungen.AsEnumerable().Any(Function(r_rechnung) r_rechnung.Field(Of Integer)("RechnungsKundenNr") = r.Item("AdressenNr"))
|
||||
If exists Then
|
||||
Dim ROW As DataRow = dt_wrongEmails.NewRow
|
||||
ROW("KdNr") = r.Item("AdressenNr")
|
||||
ROW("Art") = r.Item("kkd_kkaBez")
|
||||
ROW("Name") = r.Item("Name 1")
|
||||
ROW("Firma") = r.Item("Firma")
|
||||
ROW("fehlerhafteMail") = fehlerhafteMail
|
||||
ROW("fehlerhafteMail-CC") = fehlerhafteMailCC
|
||||
ROW("fehlerhafteMail-BCC") = fehlerhafteMailBCC
|
||||
dt_wrongEmails.Rows.Add(ROW)
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
Next
|
||||
|
||||
If dt_wrongEmails.Rows.Count > 0 Then
|
||||
@@ -7353,5 +7357,74 @@ repeatRequest:
|
||||
End If
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub dtp_MDM_Einarbeitung_ValueChanged(sender As Object, e As EventArgs) Handles dtp_MDM_Einarbeitung.ValueChanged
|
||||
|
||||
Dim ok As Boolean = checkMDMdatum(dtp_MDM_Einarbeitung.Value)
|
||||
|
||||
showPic(ok, PictureBox27)
|
||||
|
||||
|
||||
|
||||
With dgv_MDMEinarbeitung
|
||||
|
||||
.ClearSelection()
|
||||
.SET_SQL("SELECT [supplier],[completed],sum(ds_total) as DS ,sum(ds_count) as DS_importiert FROM [VERAG].[dbo].[tblMDMEinarbeitung]
|
||||
where cast(invoicedate as Date) = '" & dtp_MDM_Einarbeitung.Value & "'
|
||||
group by [supplier], completed", "FMZOLL")
|
||||
|
||||
.LOAD()
|
||||
.RowTemplate.Height = 20
|
||||
.AllowUserToOrderColumns = False
|
||||
|
||||
End With
|
||||
|
||||
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
Private Function checkMDMdatum(abrDate As Date)
|
||||
|
||||
|
||||
Dim checkDate As Boolean = False
|
||||
|
||||
If Not (abrDate.Day = 15 Or abrDate.Day = 30 Or abrDate.Day = 31 Or (abrDate.Month = 2 And abrDate.Day = 28)) Then
|
||||
|
||||
checkDate = False
|
||||
|
||||
Else
|
||||
checkDate = True
|
||||
End If
|
||||
|
||||
Return checkDate
|
||||
End Function
|
||||
|
||||
Private Sub Button30_Click(sender As Object, e As EventArgs) Handles Button30.Click
|
||||
|
||||
|
||||
Dim BezeichnungSetzen As String = "select Beschreibung_DE,Beschreibung_EN FROM [tblVZPreisliste] where Beschreibung_DE = ''" 'hardcoded, weil erst zu diesem Zeitpunkt bekommen wir alle RMC-Rechnungen vollständig
|
||||
|
||||
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
Dim dtRechnnungsdaten As DataTable = SQL.loadDgvBySql(BezeichnungSetzen, "FMZOLL")
|
||||
|
||||
If dtRechnnungsdaten.Rows.Count > 0 Then
|
||||
|
||||
|
||||
For Each r As DataRow In dtRechnnungsdaten.Rows
|
||||
|
||||
Dim BezDE As String = SQL.getValueTxtBySql("Select Beschreibung_DE FROM [tblVZPreisliste] WHERE Beschreibung_EN= '" & r.Item("Beschreibung_EN") & "'", "FMZOLL",,, "")
|
||||
|
||||
If BezDE <> "" Then
|
||||
SQL.doSQL("Update [tblVZPreisliste] SET Beschreibung_DE='" & BezDE & "' where Beschreibung_EN = '" & r.Item("Beschreibung_EN") & "' AND Beschreibung_DE = '' ", "FMZOLL")
|
||||
End If
|
||||
|
||||
|
||||
Next
|
||||
|
||||
End If
|
||||
|
||||
|
||||
End Sub
|
||||
End Class
|
||||
Reference in New Issue
Block a user