fix zzAktivitaet
This commit is contained in:
@@ -1,9 +1,12 @@
|
||||
Imports System.Data.OleDb
|
||||
Imports System.IO
|
||||
Imports System.Linq.Expressions
|
||||
Imports System.Net
|
||||
Imports System.Runtime.InteropServices
|
||||
Imports System.Text
|
||||
Imports System.Xml
|
||||
Imports com.sun.corba.se.spi.orb
|
||||
Imports Microsoft.Office.Interop
|
||||
Imports Renci.SshNet
|
||||
Imports VERAG_PROG_ALLGEMEIN
|
||||
|
||||
@@ -313,7 +316,7 @@ Public Class frmStartOptions
|
||||
|
||||
If von.Contains("@q8.com") Or betreff.Contains("IDSPRD: Platts Price Report") Then
|
||||
'---------------------IDS----------------------
|
||||
importFileFromIDSMailAnhang(pfad, betreff)
|
||||
importFileFromIDSMailAnhang(pfad, betreff, PARAM)
|
||||
ElseIf von.Contains("@miccustoms.com") Or betreff.Contains("FORWARDING EMAIL | BEZUGSNUMMER") Or betreff = "Report nctsTransDeclGuarantees generated successfully" Then
|
||||
'---------------------MIC----------------------
|
||||
importFileFromMICMailAnhang(pfad, betreff)
|
||||
@@ -332,12 +335,19 @@ Public Class frmStartOptions
|
||||
Dim betreff = ""
|
||||
Dim von = ""
|
||||
|
||||
|
||||
|
||||
If (parameter.Count - 1) >= 3 Then 'Höher als 1 weil der index 0 der Pfad zum programm ist
|
||||
|
||||
'mdm_mail_attach %file% %subject% %datetimereceived% %from%"
|
||||
|
||||
pfad = parameter(2)
|
||||
betreff = parameter(3)
|
||||
|
||||
'pfad = "C:\Users\d.breimaier\Downloads\ids_customer_0060003360_invoice_de00360936_from_150615 (5).msg"
|
||||
'betreff = "IDS, customer: 0060003360 Invoice: DE00360936 from 15/06/15"
|
||||
'von = "ids.de@q8.com"
|
||||
|
||||
If (parameter.Count - 1) >= 5 Then von = parameter(5)
|
||||
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
|
||||
@@ -345,7 +355,12 @@ Public Class frmStartOptions
|
||||
If von.Contains("ebilling@uta.com") Then
|
||||
'---------------------UTA----------------------
|
||||
importFileFromUTAMailAnhang(pfad, betreff)
|
||||
ElseIf von.Contains("ids.de@q8.com") Or von.Contains("isselh@q8.com") Then
|
||||
'---------------------IDS----------------------
|
||||
importFileFromIDSMailAnhang(pfad, betreff, PARAM)
|
||||
|
||||
End If
|
||||
|
||||
End If
|
||||
closeMe()
|
||||
|
||||
@@ -689,7 +704,7 @@ Public Class frmStartOptions
|
||||
For Each r As DataRow In distinctInv.Rows
|
||||
Dim totalPages = 0
|
||||
Dim batchrequestNr = 0
|
||||
fehler = mse.getSettlementsFromInvoiceID(token, transactions, r("invoice_id"), batchrequestNr, totalPages, 0)
|
||||
fehler = mse.getSettlementsFromInvoiceID(token, transactions, r("invoice_id"), batchrequestNr, totalPages, 1)
|
||||
If fehler <> "" Then
|
||||
API.UPDTAE_ERR("Batch-Nr: " & batchrequestNr & "-" & totalPages, fehler, "getSettlementsFromInvoiceID")
|
||||
closeMe()
|
||||
@@ -768,7 +783,7 @@ Public Class frmStartOptions
|
||||
Case "UNISPED" : db = "EZOLL_UNISPED"
|
||||
End Select
|
||||
Dim sql As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
Dim dt As DataTable = sql.loadDgvBySql("SELECT [zzAktivitaet].LizenzNr,[zzAktivitaet].Operatorid,[zzAktivitaet].AnmID,MsgTyp,[zzAktivitaet].ErstelltAm,pfad,LRN,CRN ,[zzAktivitaet].VorgangID FROM [zzAktivitaet] INNER JOIN zsAnmRefs On zsAnmrefs.AnmID=zzAktivitaet.AnmID
|
||||
Dim dt As DataTable = sql.loadDgvBySql("SELECT [zzAktivitaet].LizenzNr,[zzAktivitaet].Operatorid,[zzAktivitaet].AnmID,MsgTyp,[zzAktivitaet].ErstelltAm,pfad,zsAnmRefs.LRN,zsAnmRefs.CRN ,[zzAktivitaet].VorgangID FROM [zzAktivitaet] INNER JOIN zsAnmRefs On zsAnmrefs.AnmID=zzAktivitaet.AnmID
|
||||
where MsgTyp IN ('EZ922','EZ923','TR109', 'EX431') and ErstelltAm>='" & datum.ToShortDateString & " 00:00:00' and pfad is not null", db, 200)
|
||||
If dt IsNot Nothing Then
|
||||
For Each row In dt.Rows
|
||||
@@ -1554,13 +1569,13 @@ Public Class frmStartOptions
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
Sub importFileFromIDSMailAnhang(pfad, betreff)
|
||||
Sub importFileFromIDSMailAnhang(pfad, betreff, type)
|
||||
|
||||
Try
|
||||
Dim sql As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
Dim DS As VERAG_PROG_ALLGEMEIN.cDATENSERVER = Nothing
|
||||
|
||||
If betreff.contains("IDSPRD: Platts Price Report") Then
|
||||
If betreff.contains("IDSPRD: Platts Price Report") AndAlso type = "zoll_mail_attach" Then
|
||||
|
||||
Dim ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "IDS\IDS_XLS\Platts_Price_Report\NEW\"
|
||||
If Not System.IO.Directory.Exists(ZIEL_PFAD) Then System.IO.Directory.CreateDirectory(ZIEL_PFAD)
|
||||
@@ -1568,10 +1583,104 @@ Public Class frmStartOptions
|
||||
Dim destFull = ""
|
||||
moveFile(pfad, ZIEL_PFAD, destFull)
|
||||
|
||||
ElseIf betreff.contains("Einlesedatei IDS Rechnungen vom letzten Rechnungslauf") AndAlso type = "mdm_mail_attach" Then 'CSV einarbeiten
|
||||
|
||||
Dim ids As New cIDS
|
||||
ids.initImportPfade("IDS")
|
||||
Dim Zielpfad = ids.VERARBEITUNG_PFAD
|
||||
|
||||
|
||||
If betreff.ToString.ToLower.Contains("IDS") Then 'zusätzlicher Check
|
||||
Dim found = False
|
||||
betreff = betreff.replace("WG: ", "")
|
||||
betreff = betreff.replace("FW: ", "")
|
||||
moveFile(pfad, Zielpfad)
|
||||
End If
|
||||
|
||||
|
||||
ElseIf betreff.contains("IDS, customer:") AndAlso type = "mdm_mail_attach" Then 'Email mit Rechnungslink
|
||||
|
||||
Dim ids As New cIDS
|
||||
ids.initImportPfade("IDS")
|
||||
Dim Zielpfad = ids.VERARBEITUNG_PFAD
|
||||
|
||||
If betreff.ToString.ToLower.Contains("ids") Then
|
||||
|
||||
Dim customerNo = ""
|
||||
Dim invoiceNo = ""
|
||||
Dim dateNo = ""
|
||||
Dim outputDate = ""
|
||||
Dim customerString = "customer: "
|
||||
Dim InvoiceString = "Invoice: "
|
||||
Dim dateString = "from "
|
||||
Dim filename = ""
|
||||
|
||||
If betreff.Length > 58 AndAlso betreff.Contains(customerString) Then
|
||||
customerNo = betreff.Substring(betreff.IndexOf(customerString) + customerString.Length, 10)
|
||||
End If
|
||||
|
||||
If betreff.Length > 58 AndAlso betreff.Contains(InvoiceString) Then
|
||||
invoiceNo = betreff.Substring(betreff.IndexOf(InvoiceString) + InvoiceString.Length, 10)
|
||||
End If
|
||||
|
||||
If betreff.Length > 58 AndAlso betreff.Contains(dateString) Then
|
||||
dateNo = betreff.Substring(betreff.IndexOf(dateString) + dateString.Length, 8)
|
||||
Dim parsedDate As DateTime = DateTime.ParseExact(dateNo, "dd/MM/yy", System.Globalization.CultureInfo.InvariantCulture)
|
||||
outputDate = parsedDate.ToString("dd.MM.yyyy")
|
||||
|
||||
End If
|
||||
|
||||
If outputDate IsNot Nothing AndAlso customerNo <> "" AndAlso invoiceNo <> "" Then
|
||||
|
||||
Dim idsInvoice As New cIDSInvoice(outputDate, customerNo, invoiceNo)
|
||||
idsInvoice.SAVE()
|
||||
|
||||
|
||||
Dim outlookApp As Object
|
||||
Dim mailItem As Outlook.MailItem
|
||||
|
||||
Try
|
||||
|
||||
outlookApp = CreateObject("Outlook.Application")
|
||||
mailItem = outlookApp.Session.OpenSharedItem(pfad)
|
||||
|
||||
If mailItem IsNot Nothing Then
|
||||
If idsInvoice.isMail_IDS(mailItem) Then
|
||||
If idsInvoice.getPDF_IDS(mailItem, filename, Zielpfad) Then
|
||||
idsInvoice.DocumentName = filename
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
End If
|
||||
idsInvoice.SAVE()
|
||||
Catch ex As Exception
|
||||
mailItem = Nothing
|
||||
outlookApp = Nothing
|
||||
|
||||
Finally
|
||||
Try
|
||||
|
||||
If mailItem IsNot Nothing Then
|
||||
Marshal.ReleaseComObject(mailItem)
|
||||
End If
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
|
||||
End Try
|
||||
|
||||
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL)
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.LOG)
|
||||
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
@@ -4586,7 +4695,7 @@ Public Class frmStartOptions
|
||||
|
||||
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = cbxTestsystem.Checked
|
||||
cbxMSEBatchNr.DataSource = SQL.loadCboBySql("SELECT distinct top 10 ([batch_seq_nr]) FROM [VERAG].[dbo].[tblMSETransactions] order by batch_seq_nr desc", "FMZOLL")
|
||||
cbxMSEBatchNr.DataSource = SQL.loadCboBySql("SELECT distinct top 20 ([batch_seq_nr]) FROM [VERAG].[dbo].[tblMSETransactions] order by batch_seq_nr desc", "FMZOLL")
|
||||
|
||||
End Sub
|
||||
|
||||
@@ -4879,7 +4988,7 @@ Public Class frmStartOptions
|
||||
End If
|
||||
|
||||
|
||||
fehler = mse.getTransactionsFromBatchNrAndPage(token, transactions, batchrequestNr, totalPages, 0)
|
||||
fehler = mse.getTransactionsFromBatchNrAndPage(token, transactions, batchrequestNr, totalPages, 1)
|
||||
If fehler <> "" Then
|
||||
MsgBox(fehler)
|
||||
Me.Visible = True
|
||||
@@ -5065,7 +5174,7 @@ Public Class frmStartOptions
|
||||
Dim totalPages = 0
|
||||
Dim batchrequestNr = 0
|
||||
|
||||
fehler = mse.getNewestSettlements(token, dt, batchrequestNr, totalPages, 0)
|
||||
fehler = mse.getNewestSettlements(token, dt, batchrequestNr, totalPages, 1)
|
||||
|
||||
If fehler <> "" Then
|
||||
MsgBox(fehler)
|
||||
@@ -5188,7 +5297,7 @@ Public Class frmStartOptions
|
||||
|
||||
|
||||
Dim sql As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
Dim dt_CSV_selected = SQL.loadDgvBySql_Param("SELECT TOP (10) controller_id as [Controller ID], 'VERAG 360 GmbH' as [Controller Name] , inv.[invoice_id] as [Invoice ID], inv.invoice_date as [Invoice Date],
|
||||
Dim dt_CSV_selected = sql.loadDgvBySql_Param("SELECT TOP (10) controller_id as [Controller ID], 'VERAG 360 GmbH' as [Controller Name] , inv.[invoice_id] as [Invoice ID], inv.invoice_date as [Invoice Date],
|
||||
cust.customer_id as [CustomerID], cust.partner_customer_number as [Customer No], cust.customer_name as [Customer name], bills.specification_page_name as [Specification Page], bills.specification_page_id as [Specification ID], trans.purchase_datetime as [Transaction date], trans.transaction_id as [Transaction ID],
|
||||
trans.supplier_name as [Transaction Supplier/Terminal], trans.transaction_country as [Transaction Country], trans.transaction_product_name as [Product description], trans.transaction_product_id as [Product Description ID], trans.device_product_type as [Card Type], trans.device_product_number as [Card number], trans.license_plate_number as [Load File Licence Plate Number],
|
||||
'' as [Card Licence Plate Number], trans.license_plate_number as [Truck Licence Plate Number], '' as [Truck Fleet Code], '' as [Truck Driver Name], trans.entry_point_name as [Entry Terminal/Direction], trans.entry_datetime as [Start date], trans.entry_datetime as [Start Time], trans.exit_point_name as [Exit Terminal Description], trans.exit_datetime as [End Date], trans.exit_datetime as [End Time],
|
||||
@@ -5244,5 +5353,11 @@ Public Class frmStartOptions
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub LinkLabel65_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel65.LinkClicked
|
||||
Me.Visible = False
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = cbxTestsystem.Checked
|
||||
Dim f As New frmNachrichtenVerarbeitung_MDM_divers("IDS", False, False, False)
|
||||
f.ShowDialog()
|
||||
Me.Visible = True
|
||||
End Sub
|
||||
End Class
|
||||
Reference in New Issue
Block a user