anpassungenMerge
This commit is contained in:
@@ -8,7 +8,9 @@ Imports System.Xml
|
||||
Imports com.sun.media.sound
|
||||
Imports com.sun.org.apache.xerces.internal.impl.dv.xs
|
||||
Imports MDM_Worker
|
||||
Imports Org.BouncyCastle.Bcpg
|
||||
Imports Renci.SshNet
|
||||
Imports TELOTEC_Worker
|
||||
Imports VERAG_PROG_ALLGEMEIN
|
||||
|
||||
Public Class frmStartOptions
|
||||
@@ -317,7 +319,7 @@ Public Class frmStartOptions
|
||||
Dim f As New frmInfo(PARAM)
|
||||
f.Show()
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
|
||||
sendWOELFL_USTVAntraege("FTP", False)
|
||||
sendWOELFL_USTVAntraege("FTP", True)
|
||||
closeMe()
|
||||
Case "SDL_GUELTISBIS"
|
||||
Dim f As New frmInfo(PARAM)
|
||||
@@ -5408,11 +5410,6 @@ Public Class frmStartOptions
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
If cbxPlose.Checked And cbxPloseNeu.Checked Then
|
||||
MsgBox("Plose-Vorschausummen werden per alter Logik UND neuer Logik berechnet, das würde die Plose-Vorschausumme doppelt berechnet werden!" & vbNewLine & "Vorgang wird abgebrochen!")
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
cMDMFunctionsAllgemein.setSchnittstellen(cbxPlose.Checked, cbxITalt.Checked, cbxMSEalt.Checked, cbxMSEneu.Checked, cbxIDSalt.Checked, cbxIDSneu.Checked, cbxUTAalt.Checked, cbxUTANeu.Checked, cbxPloseNeu.Checked)
|
||||
|
||||
If sender Is Button23 Then
|
||||
@@ -5544,7 +5541,7 @@ Public Class frmStartOptions
|
||||
|
||||
Private Sub Button27_Click(sender As Object, e As EventArgs) Handles btnTestATEZ.Click
|
||||
|
||||
VERAG_PROG_ALLGEMEIN.cATEZ_ncts_api.updateStatusByMRN(MyTextBox5.Text)
|
||||
VERAG_PROG_ALLGEMEIN.cATEZ_ncts_api.updateStatusByMRN(txtCheckATEZMRN.Text)
|
||||
|
||||
End Sub
|
||||
|
||||
@@ -5634,7 +5631,7 @@ weiter:
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub Button28_Click(sender As Object, e As EventArgs) Handles Button28.Click
|
||||
Private Sub Button28_Click(sender As Object, e As EventArgs) Handles checkallopenATEZ.Click
|
||||
|
||||
' Dim dt = (New SQL).loadDgvBySql("SELECT TOP (1000) [ncts_Id] FROM [tblNCTS_FREMD] where ncts_Partnersystem='ATEZ' and ncts_status < 60", "FMZOLL")
|
||||
Dim top = 200
|
||||
@@ -5648,14 +5645,14 @@ weiter:
|
||||
Sub updateATEZStatusByMRNTop(top As Integer)
|
||||
Dim dt = (New SQL).loadDgvBySql("SELECT TOP (" & top & ") ncts_MRN FROM [tblNCTS_FREMD] where ncts_Status between 50 and 59 and ncts_Partnersystem='ATEZ'", "FMZOLL")
|
||||
If dt IsNot Nothing Then
|
||||
Label49.Text = "-"
|
||||
lblcheckopatez.Text = "-"
|
||||
Dim cnt = 1
|
||||
For Each r In dt.Rows
|
||||
Label49.Text = cnt & "/" & dt.Rows.Count
|
||||
lblcheckopatez.Text = cnt & "/" & dt.Rows.Count
|
||||
Me.Refresh()
|
||||
VERAG_PROG_ALLGEMEIN.cATEZ_ncts_api.updateStatusByMRN(r("ncts_MRN"))
|
||||
Next
|
||||
Label49.Text = dt.Rows.Count & "fin"
|
||||
lblcheckopatez.Text = dt.Rows.Count & "fin"
|
||||
End If
|
||||
End Sub
|
||||
|
||||
@@ -5828,7 +5825,7 @@ weiter:
|
||||
End If
|
||||
|
||||
|
||||
Dim fehlendePDFzuRE As String = "select Rechnungsnummer_pro_Lieferland, cast([Rechnungsdatum] as Date) as Rechnungsdatum, Kundennummer, Abrechnungsnummer from tblUTAImportNew where daId is null and cast([Rechnungsdatum] as Date) = '" & utaDate & "' and Lieferland <> 'ROM' and Steuerliches_Lieferland <> 'ROM' or daId is null and cast([Rechnungsdatum] as Date) = '" & utaDate & "' and Kundennummer = 868070 group by Rechnungsdatum, Kundennummer, Abrechnungsnummer, Rechnungsnummer_pro_Lieferland "
|
||||
Dim fehlendePDFzuRE As String = "select Rechnungsnummer_pro_Lieferland, cast([Rechnungsdatum] as Date) as Rechnungsdatum, Kundennummer, Abrechnungsnummer from tblUTAImportNew where daId is null and cast([Rechnungsdatum] as Date) = '" & utaDate & "' and Lieferland <> 'ROM' and Steuerliches_Lieferland <> 'ROM' group by Rechnungsdatum, Kundennummer, Abrechnungsnummer, Rechnungsnummer_pro_Lieferland "
|
||||
|
||||
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
Dim dtRechnnungsdaten As DataTable = SQL.loadDgvBySql(fehlendePDFzuRE, "FMZOLL")
|
||||
@@ -5958,33 +5955,33 @@ weiter:
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub LinkLabel53_LinkClicked_1(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel53.LinkClicked
|
||||
|
||||
Dim sql As New SQL
|
||||
|
||||
Dim PLOSEdaidaktualiseren As String = "select * from tblPLOSE_Details where Year(plose_RechnungsDatum) = " & txtPloseJahr.Text & " and UStVAn_ID is null and plose_ArchiviertDatum is null and plose_Archiv = 0 and plose_POLSEKundennummer = 540961 "
|
||||
|
||||
Dim dtUSTVA_daid_akt As DataTable = sql.loadDgvBySql(PLOSEdaidaktualiseren, "FMZOLL")
|
||||
|
||||
For Each row As DataRow In dtUSTVA_daid_akt.Rows
|
||||
|
||||
Dim ustva As New cUSTVAntrag(row.Item("UStVAn_ID"))
|
||||
|
||||
If ustva.UStVAn_LandNr IsNot Nothing AndAlso IsNumeric(ustva.UStVAn_LandNr) Then
|
||||
|
||||
Dim Antrag_LandKz = sql.DLookup("LandKz", "[Länderverzeichnis für die Außenhandelsstatistik]", "Landnr='" & ustva.UStVAn_LandNr & "'", "FMZOLL")
|
||||
|
||||
Dim daId As Integer = 0
|
||||
|
||||
Dim SQL_String = "SELECT isnull(tblIDSInvoicesNewSplittedByCountry.daId ,0) FROM [tblIDSInvoicesNewSplittedByCountry] where tblIDSInvoicesNewSplittedByCountry.[YearMonthDay] ='" & CDate(row.Item("UStVPo_ReDat")).ToShortDateString & "' AND tblIDSInvoicesNewSplittedByCountry.Invoicenumber ='" & row.Item("UStVPo_ReNr").ToString.Replace("/", "") & "' and tblIDSInvoicesNewSplittedByCountry.Country='" & Antrag_LandKz & "' AND tblIDSInvoicesNewSplittedByCountry.daId is not null"
|
||||
|
||||
daId = CInt(sql.getValueTxtBySql(SQL_String, "FMZOLL",,, 0))
|
||||
|
||||
If daId > 0 Then sql.doSQL("update tblUStVPositionen set UStVPo_daId = " & daId & ", UStVPo_SchnittstellenNr = 12 where UStVAn_ID = " & row.Item("UStVAn_ID") & " and UStVPo_ID = " & row.Item("UStVPo_ID") & " AND UStVPo_SchnittstellenNr = 8", "FMZOLL")
|
||||
|
||||
End If
|
||||
|
||||
Next
|
||||
Private Sub Button29_Click(sender As Object, e As EventArgs) Handles cboTCAPI_Files.Click
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub Button27_Click_1(sender As Object, e As EventArgs) Handles cboTCAPI_Call.Click
|
||||
|
||||
Select Case cboTCAPI_Firma.Text
|
||||
Case "ALLE"
|
||||
doTelotecAPIMulit("ATILLA")
|
||||
doTelotecAPIMulit("IMEX")
|
||||
doTelotecAPIMulit("DURMAZ")
|
||||
Case Else
|
||||
doTelotecAPIMulit(cboTCAPI_Firma.Text)
|
||||
End Select
|
||||
|
||||
|
||||
End Sub
|
||||
Sub doTelotecAPIMulit(Firma)
|
||||
Dim TELO As New VERAG_PROG_ALLGEMEIN.cTelotecAPI
|
||||
For ii As Integer = 0 To 50
|
||||
Dim messages As List(Of VERAG_PROG_ALLGEMEIN.cTelotecAPI.TAMessage) = TELO.GetTAMessages(Firma)
|
||||
'Threading.Thread.Sleep(100) '
|
||||
'convert
|
||||
For Each msg In messages
|
||||
' Dim cTelotec_Anmeldung = cTelotec_Anmeldung.ConvertTAMessageToTelotec(msg)
|
||||
' -----------> HIER WEITERMACHEN!!!!
|
||||
Next
|
||||
Next
|
||||
End Sub
|
||||
End Class
|
||||
Reference in New Issue
Block a user