UTA, MDM, MSE, Datenarchiv
This commit is contained in:
@@ -6,7 +6,7 @@ Imports System.Text
|
||||
Imports System.Xml
|
||||
|
||||
Imports DocumentFormat.OpenXml.Drawing.Diagrams
|
||||
|
||||
Imports DocumentFormat.OpenXml.Presentation
|
||||
Imports DocumentFormat.OpenXml.Wordprocessing
|
||||
Imports iTextSharp.text.pdf.qrcode.Version
|
||||
Imports Org.BouncyCastle.Asn1.Pkcs
|
||||
@@ -101,7 +101,7 @@ Public Class frmStartOptions
|
||||
'doIDSPlatts()
|
||||
'Exit Sub
|
||||
|
||||
'PARAM = "AMBAR_VERAG_BUCHUNGEN"
|
||||
'PARAM = "AMBAR_VERAG_BUCHUNGEN_CS"
|
||||
'Standart-Errorverhalten ist MAIL
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.ERR_OP_GLOBAL = VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL
|
||||
If PARAM <> "" Then
|
||||
@@ -979,18 +979,18 @@ Public Class frmStartOptions
|
||||
Else
|
||||
API.UPDTAE_ERR()
|
||||
End If
|
||||
End If
|
||||
Case "AVM"
|
||||
If KD_ERW.EmailFreigabe_Export Or KD_ERW.Email_AVM Then
|
||||
betreff = betreff.Replace("%Zollbeleg%", "Ausgangsvermerk " & BezugsNr)
|
||||
If VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(EMails, betreff, body, getAbsenderEmail(FirmaTmp), False, False, EMails_CC, EMails_BCC, pfadList) Then
|
||||
API.UPDTAE_OK()
|
||||
insertSendungsVermerk(SND.tblSnd_SendungID, SND.tblSnd_AvisoID, "Zollbeleg '" & art & "' gesendet an: " & EMails, 46)
|
||||
Else
|
||||
API.UPDTAE_ERR()
|
||||
End If
|
||||
Case "AVM"
|
||||
If KD_ERW.EmailFreigabe_Export Or KD_ERW.Email_AVM Then
|
||||
betreff = betreff.Replace("%Zollbeleg%", "Ausgangsvermerk " & BezugsNr)
|
||||
If VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(EMails, betreff, body, getAbsenderEmail(FirmaTmp), False, False, EMails_CC, EMails_BCC, pfadList) Then
|
||||
API.UPDTAE_OK()
|
||||
insertSendungsVermerk(SND.tblSnd_SendungID, SND.tblSnd_AvisoID, "Zollbeleg '" & art & "' gesendet an: " & EMails, 46)
|
||||
Else
|
||||
API.UPDTAE_ERR()
|
||||
End If
|
||||
End If
|
||||
End Select
|
||||
End If
|
||||
End Select
|
||||
|
||||
End If
|
||||
End If
|
||||
@@ -3723,7 +3723,6 @@ Public Class frmStartOptions
|
||||
End If
|
||||
|
||||
Case "buchungenAMBAR"
|
||||
|
||||
VERAG_PROG_ALLGEMEIN.cSyska_Interface.genDatensatz_Buchungen(24, CheckBox7.Checked, If(cbxSyskaWdh.Checked, txtSyskaWdhDateiname.Text, "AG"), True)
|
||||
VERAG_PROG_ALLGEMEIN.cSyska_Interface.genDatensatz_Buchungen(24, CheckBox7.Checked, If(cbxSyskaWdh.Checked, txtSyskaWdhDateiname.Text, "CS"), True)
|
||||
End Select
|
||||
@@ -4271,6 +4270,7 @@ Public Class frmStartOptions
|
||||
If tbcntr.SelectedIndex = 3 Then
|
||||
|
||||
checkTBLandTWLNr()
|
||||
getLatestBatchNrMSE()
|
||||
|
||||
End If
|
||||
|
||||
@@ -4294,9 +4294,18 @@ Public Class frmStartOptions
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub getLatestBatchNrMSE()
|
||||
|
||||
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = cbxTestsystem.Checked
|
||||
txtBatchNr.Text = CInt(SQL.getValueTxtBySql("SELECT max([batch_seq_nr]) FROM [VERAG].[dbo].[tblMSETransactions] ", "FMZOLL",,, 0))
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub cbxTestsystem_CheckedChanged(sender As Object, e As EventArgs) Handles cbxTestsystem.CheckedChanged
|
||||
If tbcntr.SelectedIndex = 3 Then
|
||||
checkTBLandTWLNr()
|
||||
getLatestBatchNrMSE()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
@@ -4385,7 +4394,7 @@ Public Class frmStartOptions
|
||||
Me.Visible = False
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = cbxTestsystem.Checked
|
||||
If cbxRMC._value = "" Then Exit Sub
|
||||
Dim f As New frmNachrichtenVerarbeitung_MDM_divers(cbxRMC._value, False, cbxDateienlöschenRMC.Checked)
|
||||
Dim f As New frmNachrichtenVerarbeitung_MDM_divers(cbxRMC._value, False, cbxDateienlöschenRMC.Checked, False)
|
||||
f.ShowDialog()
|
||||
Me.Visible = True
|
||||
End Sub
|
||||
@@ -4393,8 +4402,306 @@ Public Class frmStartOptions
|
||||
Private Sub LinkLabel53_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel53.LinkClicked
|
||||
Me.Visible = False
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = cbxTestsystem.Checked
|
||||
Dim f As New frmNachrichtenVerarbeitung_MDM_divers("UTA", False, cbxDateienlöschenUTA.Checked)
|
||||
Dim f As New frmNachrichtenVerarbeitung_MDM_divers("UTA", False, False, cbxDateienlöschenUTA.Checked)
|
||||
f.ShowDialog()
|
||||
Me.Visible = True
|
||||
End Sub
|
||||
|
||||
Private Sub LinkLabel54_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel54.LinkClicked
|
||||
Me.Visible = False
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = cbxTestsystem.Checked
|
||||
Dim mse As New cMSEAPI("MSE")
|
||||
Dim fehler As String = ""
|
||||
Dim token = mse.createJWT(fehler)
|
||||
Dim dt As New DataTable
|
||||
If fehler <> "" Then
|
||||
MsgBox(fehler)
|
||||
Else
|
||||
Dim totalPages = 0
|
||||
Dim batchrequestNr = 0
|
||||
|
||||
fehler = mse.getNewestTransactions(token, dt, batchrequestNr, totalPages, 0)
|
||||
|
||||
If fehler <> "" Then
|
||||
MsgBox(fehler)
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
If totalPages > 1 Then
|
||||
|
||||
For i = 2 To totalPages
|
||||
If dt.Rows.Count > 0 Then dt.Clear()
|
||||
fehler = mse.getTransactionsFromBatchNrAndPage(token, dt, batchrequestNr, totalPages, i)
|
||||
|
||||
If fehler <> "" Then
|
||||
MsgBox(fehler)
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
i = i + 1
|
||||
Next
|
||||
|
||||
|
||||
|
||||
End If
|
||||
|
||||
|
||||
End If
|
||||
|
||||
Me.Visible = True
|
||||
End Sub
|
||||
|
||||
Private Sub LinkLabel55_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel55.LinkClicked
|
||||
|
||||
Me.Visible = False
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = cbxTestsystem.Checked
|
||||
Dim mse As New cMSEAPI("MSE")
|
||||
Dim fehler As String = ""
|
||||
Dim token = mse.createJWT(fehler)
|
||||
Dim transactions As New DataTable
|
||||
Dim invoice As New DataTable
|
||||
|
||||
If fehler <> "" Then
|
||||
MsgBox(fehler)
|
||||
Else
|
||||
fehler = mse.getInvoices(token, invoice, datVon.Value, datVon.Value)
|
||||
If fehler <> "" Then
|
||||
MsgBox(fehler)
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
If invoice IsNot Nothing And invoice.Columns.Contains("invoice_id") AndAlso invoice.Rows.Count > 0 Then
|
||||
|
||||
Dim dvInvoice As New DataView(invoice)
|
||||
Dim distinctInv As DataTable = dvInvoice.ToTable(True, New String() {"invoice_id"})
|
||||
|
||||
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)
|
||||
If fehler <> "" Then
|
||||
MsgBox(fehler)
|
||||
Exit Sub
|
||||
End If
|
||||
If totalPages > 1 Then
|
||||
|
||||
For i = 2 To totalPages
|
||||
If transactions.Rows.Count > 0 Then transactions.Clear()
|
||||
fehler = mse.getSettlementsFromBatchNrAndPage(token, transactions, batchrequestNr, totalPages, i)
|
||||
|
||||
If fehler <> "" Then
|
||||
MsgBox(fehler)
|
||||
Exit Sub
|
||||
End If
|
||||
Next
|
||||
|
||||
End If
|
||||
Next
|
||||
|
||||
End If
|
||||
|
||||
|
||||
End If
|
||||
|
||||
Me.Visible = True
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub LinkLabel56_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel56.LinkClicked
|
||||
Me.Visible = False
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = cbxTestsystem.Checked
|
||||
Dim mse As New cMSEAPI("MSE")
|
||||
Dim fehler As String = ""
|
||||
Dim token = mse.createJWT(fehler)
|
||||
Dim transactions As New DataTable
|
||||
Dim invoice As New DataTable
|
||||
|
||||
If fehler <> "" Then
|
||||
MsgBox(fehler)
|
||||
Else
|
||||
|
||||
Dim totalPages = 0
|
||||
Dim batchrequestNr = 0
|
||||
|
||||
fehler = mse.getTransactionsFromToDate(token, transactions, DateTimePicker1.Value, DateTimePicker2.Value, batchrequestNr, totalPages, 0)
|
||||
If fehler <> "" Then
|
||||
MsgBox(fehler)
|
||||
Me.Visible = True
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
|
||||
If totalPages > 1 Then
|
||||
|
||||
For i = 2 To totalPages
|
||||
If transactions.Rows.Count > 0 Then transactions.Clear()
|
||||
fehler = mse.getTransactionsFromBatchNrAndPage(token, transactions, batchrequestNr, totalPages, i)
|
||||
|
||||
If fehler <> "" Then
|
||||
MsgBox(fehler)
|
||||
Me.Visible = True
|
||||
Exit Sub
|
||||
End If
|
||||
Next
|
||||
|
||||
|
||||
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
Me.Visible = True
|
||||
End Sub
|
||||
|
||||
Private Sub LinkLabel57_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel57.LinkClicked
|
||||
|
||||
|
||||
If Not IsNumeric(txtBatchNr.Text) Then Exit Sub
|
||||
If CInt(txtBatchNr.Text) < 1 AndAlso CInt(txtBatchNr.Text) > 100 Then Exit Sub
|
||||
|
||||
Me.Visible = False
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = cbxTestsystem.Checked
|
||||
Dim mse As New cMSEAPI("MSE")
|
||||
Dim fehler As String = ""
|
||||
Dim token = mse.createJWT(fehler)
|
||||
Dim transactions As New DataTable
|
||||
Dim invoice As New DataTable
|
||||
|
||||
If fehler <> "" Then
|
||||
MsgBox(fehler)
|
||||
Else
|
||||
|
||||
Dim totalPages = 1
|
||||
Dim batchrequestNr = CInt(txtBatchNr.Text)
|
||||
|
||||
fehler = mse.getTransactionsFromBatchNrAndPage(token, transactions, batchrequestNr, totalPages, 0)
|
||||
If fehler <> "" Then
|
||||
MsgBox(fehler)
|
||||
Me.Visible = True
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
|
||||
If totalPages > 1 Then
|
||||
|
||||
For i = 2 To totalPages
|
||||
If transactions.Rows.Count > 0 Then transactions.Rows.Clear()
|
||||
fehler = mse.getTransactionsFromBatchNrAndPage(token, transactions, batchrequestNr, totalPages, i)
|
||||
If fehler <> "" Then
|
||||
MsgBox(fehler)
|
||||
Me.Visible = True
|
||||
Exit Sub
|
||||
End If
|
||||
Next
|
||||
|
||||
|
||||
|
||||
End If
|
||||
|
||||
MsgBox("DONE")
|
||||
|
||||
End If
|
||||
|
||||
Me.Visible = True
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub LinkLabel58_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel58.LinkClicked
|
||||
Me.Visible = False
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = cbxTestsystem.Checked
|
||||
Dim mse As New cMSEAPI("MSE")
|
||||
Dim fehler As String = ""
|
||||
Dim token = mse.createJWT(fehler)
|
||||
Dim dt As New DataTable
|
||||
If fehler <> "" Then
|
||||
MsgBox(fehler)
|
||||
Else
|
||||
Dim totalPages = 0
|
||||
Dim batchrequestNr = 0
|
||||
|
||||
fehler = mse.getCustomers(token, dt)
|
||||
|
||||
If fehler <> "" Then
|
||||
MsgBox(fehler)
|
||||
Me.Visible = True
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
|
||||
End If
|
||||
|
||||
|
||||
Me.Visible = True
|
||||
End Sub
|
||||
|
||||
Private Sub LinkLabel59_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel59.LinkClicked, LinkLabel61.LinkClicked
|
||||
|
||||
|
||||
|
||||
If sender Is LinkLabel59 Then
|
||||
If Not IsNumeric(txtTransactionID.Text) Then
|
||||
MsgBox("ID muss 10stellige Nr sein!")
|
||||
Exit Sub
|
||||
End If
|
||||
If CInt(txtTransactionID.Text) < 100000000 AndAlso CInt(txtTransactionID.Text) > 199999999 Then
|
||||
MsgBox("falsche ID")
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
|
||||
Me.Visible = False
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = cbxTestsystem.Checked
|
||||
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
Dim mse As New cMSEAPI("MSE")
|
||||
Dim fehler As String = ""
|
||||
Dim token = mse.createJWT(fehler)
|
||||
Dim transactions As New DataTable
|
||||
Dim invoice As New DataTable
|
||||
|
||||
If fehler <> "" Then
|
||||
MsgBox(fehler)
|
||||
Else
|
||||
|
||||
|
||||
Dim dtTransactionID = New DataTable
|
||||
|
||||
If sender Is LinkLabel59 Then
|
||||
dtTransactionID.Columns.Add("transaction_id", GetType(String))
|
||||
Dim R As DataRow = dtTransactionID.NewRow
|
||||
R("transaction_id") = txtTransactionID.Text
|
||||
dtTransactionID.Rows.Add(R)
|
||||
|
||||
Else
|
||||
|
||||
dtTransactionID = SQL.loadDgvBySql("select [transaction_id] FROM [VERAG].[dbo].[tblMSESettlements] where [invoice_date] = '" & datVon.Value & "' AND [transaction_id] not in (select [transaction_id] from [VERAG].[dbo].[tblMSETransactions])", "FMZOLL")
|
||||
If dtTransactionID.Rows.Count = 0 Then
|
||||
MsgBox("Zu diesem Rechnungsdatum gibt es keine Rechnung!")
|
||||
Me.Visible = True
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
If Not vbYes = MsgBox("Möchten Sie die " & dtTransactionID.Rows.Count & " fehlenden Transaktionen nachladen?" & vbNewLine & "Dieser Vorgang dauert je nach Anzahl der Transaktionen etwas.", vbYesNoCancel) Then
|
||||
Me.Visible = True
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
|
||||
End If
|
||||
|
||||
|
||||
|
||||
fehler = mse.getTransactionsFromTransactionID(token, transactions, dtTransactionID)
|
||||
If fehler <> "" Then
|
||||
MsgBox(fehler)
|
||||
Me.Visible = True
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
Me.Visible = True
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
Reference in New Issue
Block a user