edv/ADMIN
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

neu

Browse Source
This commit is contained in:
Andreas Luxbauer
2019-11-06 16:31:56 +01:00
parent e2c05a5ea3
commit d4dfcd1744
46 changed files with 3412 additions and 678 deletions
Download Patch File Download Diff File Expand all files Collapse all files

31
initATLASAufschubkonten/frmTCNachrichtenVerarbeitung.vb
View File

@@ -519,9 +519,8 @@ Public Class frmTCNachrichtenVerarbeitung
TC.Hea_DecTy = vifDEC.Hea_DecTy
'Art der Anmeldung
Select Case TC.Hea_DecTy
Case "T1" : TC.telanm_ART = "T1"
Case "T2" : TC.telanm_ART = "T2"
Case Else : TC.telanm_ART = TC.Hea_DecTy
Case "T1", "T2", "T2L" : TC.telanm_ART = TC.Hea_DecTy
Case Else : TC.telanm_ART = TC.Hea_DecTy '^^
End Select
TC.MsgType = vifDEC.MsgType
@@ -541,7 +540,7 @@ Public Class frmTCNachrichtenVerarbeitung
'Derzeit nur IMEX
TC.telanm_firma = "IMEX"
TC.telanm_niederlassung = "SUB"
TC.telanm_niederlassung = "Sub"
TC.telanm_Erstellung = Now
TC.telanm_LetzteBearbeitung = Now
@@ -764,7 +763,7 @@ Public Class frmTCNachrichtenVerarbeitung
''''Aktuellste Nachricht
If SQL.getValueTxtBySql("SELECT COUNT(*) FROM [tblTelotec_Anmeldung] WHERE telanm_BezugsNr='" & TC.telanm_BezugsNr & "' and telanm_Status>'" & TC.telanm_Status & "' ", "FMZOLL") > 0 Then
If SQL.getValueTxtBySql("Select COUNT(*) FROM [tblTelotec_Anmeldung] WHERE telanm_BezugsNr='" & TC.telanm_BezugsNr & "' and telanm_Status>'" & TC.telanm_Status & "' ", "FMZOLL") > 0 Then
TC.telnam_aktuellsteNachricht = 0
Else
TC.telnam_aktuellsteNachricht = 1
@@ -772,18 +771,24 @@ Public Class frmTCNachrichtenVerarbeitung
End If
If TC.SAVE() Then
' TELOTEC_Worker.cTELOTEC_Statusmeldungen.InsertStatusMeldung(DY_TMP, TELOTEC_Worker.cDY_Statusliste.S_05)
If If(TC.telanm_Status, 0) = TELOTEC_Worker.cTC_Statusliste.S_60 Then
' TC.insertIntoSpedBuch()
Dim ZOLLIMPORT As New DAKOSY_Worker.cZOLL_IMPORT
ZOLLIMPORT.TelotecImport(TC)
End If
' TELOTEC_Worker.cTELOTEC_Statusmeldungen.InsertStatusMeldung(DY_TMP, TELOTEC_Worker.cDY_Statusliste.S_05)
If If(TC.telanm_Status, 0) = TELOTEC_Worker.cTC_Statusliste.S_60 Then
' TC.insertIntoSpedBuch()
Dim ZOLLIMPORT As New DAKOSY_Worker.cZOLL_IMPORT
ZOLLIMPORT.TelotecImport(TC)
End If
' BEREITSTELLUNG DER DATEN AN FREMDSYSTEME
If TC.telanm_ART = "T1" Or TC.telanm_ART.ToString.Contains("T2") Or TC.telanm_ART.ToString.StartsWith("T-") Then
Select Case TC.telanm_Status
Case TELOTEC_Worker.cTC_Statusliste.S_50, TELOTEC_Worker.cTC_Statusliste.S_60
cVERAG_Interface.copyFileFTP_VERAGncts_TC(TC)
End Select
End If
End If
End If
Try
Try
' System.IO.File.Delete(p)
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name)