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

TC

Browse Source
This commit is contained in:
Andreas Luxbauer
2024-05-28 19:57:47 +02:00
parent 78af0f0c5e
commit d1c19098c9
3 changed files with 32 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
TELOTEK_Worker_lib/cTC_Functions.vb
View File

@@ -13,7 +13,14 @@ Public Class cTC_Functions
If Not IO.File.Exists(file) Then Return False If Not IO.File.Exists(file) Then Return False
Dim fi As New System.IO.FileInfo(file) Dim fi As New System.IO.FileInfo(file)
Dim UPLOAD_PFAD = TELOTEC_Worker.cTC_Paramter.GET_PARAM_ByName("TELOTEC_PFAD_SEND", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM)
Dim UPLOAD_PFAD = ""
Select Case FRIMA_DY
Case "IMEX"
UPLOAD_PFAD = TELOTEC_Worker.cTC_Paramter.GET_PARAM_ByName("TELOTEC_PFAD_SEND", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM)
Case Else
UPLOAD_PFAD = TELOTEC_Worker.cTC_Paramter.GET_PARAM_ByName("TELOTEC_PFAD_SEND_VERAG", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM)
End Select
Dim destFilenameTMP = UPLOAD_PFAD + "." & If(IO.File.Exists(UPLOAD_PFAD & "." & fi.Name), Now.ToString("yyMMdd_HHmmss.fff_"), "") & fi.Name Dim destFilenameTMP = UPLOAD_PFAD + "." & If(IO.File.Exists(UPLOAD_PFAD & "." & fi.Name), Now.ToString("yyMMdd_HHmmss.fff_"), "") & fi.Name

18
TELOTEK_Worker_lib/cTelokec.vb
View File

@@ -178,9 +178,17 @@ Public Class cTelotec_Anmeldung
Me.telanm_Status_KEWILL_Equivalent = "00" Me.telanm_Status_KEWILL_Equivalent = "00"
Me.telanm_Erstellung = Now Me.telanm_Erstellung = Now
Me.telanm_Erstellung_SB = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID Me.telanm_Erstellung_SB = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID
Me.telanm_LetzteBearbeitung=now Me.telanm_LetzteBearbeitung=Now
Me.telanm_LetzteBearbeitung_SB = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID Me.telanm_LetzteBearbeitung_SB = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID
Me.[Mandant_ID] = "IMEX" Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "IMEX"
Me.[Mandant_ID] = "IMEX"
Case "ATILLA"
Me.[Mandant_ID] = "Atilla"
Case Else
Me.[Mandant_ID] = "VER"
End Select
Me.[Bereich_ID] = 0 Me.[Bereich_ID] = 0
Me.[Referenz_ID] = 0 '"TC_IMP_" & Now.ToShortDateString("ddMMyyyy_HHmmssfff ") Me.[Referenz_ID] = 0 '"TC_IMP_" & Now.ToShortDateString("ddMMyyyy_HHmmssfff ")
Me.[ComIndicator] = 1 Me.[ComIndicator] = 1
@@ -1207,6 +1215,12 @@ Public Class cTelotec_Anmeldung
'jetzt die Standartofferten einfügen 'jetzt die Standartofferten einfügen
For Each p In POSITIONSDATEN For Each p In POSITIONSDATEN
p.telpos_telanmId = telanm_id p.telpos_telanmId = telanm_id
p.Mandant_ID = Mandant_ID
p.Bereich_ID = Bereich_ID
p.Referenz_ID = Referenz_ID
p.ComIndicator = ComIndicator
' POS.Pos_ID = cnt
If p.INSERT() Then If p.INSERT() Then
p.INSERT_Packstücke(p.telpos_id, Me.telanm_id) p.INSERT_Packstücke(p.telpos_id, Me.telanm_id)
p.INSERT_Abgaben(p.telpos_id, Me.telanm_id) p.INSERT_Abgaben(p.telpos_id, Me.telanm_id)

8
initATLASAufschubkonten/frmStartOptions.vb
View File

@@ -523,6 +523,14 @@ Public Class frmStartOptions
Dim f As New frmInfo(PARAM) Dim f As New frmInfo(PARAM)
f.Show() f.Show()
VERAG_PROG_ALLGEMEIN.cSyska_Interface.genDatensatz_Buchungen(24,, "", True) VERAG_PROG_ALLGEMEIN.cSyska_Interface.genDatensatz_Buchungen(24,, "", True)
closeMe()
'------------------------------
Case "AAS" 'Aviso Alert System
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
Dim f As New frmInfo(PARAM)
f.Show()
doAASVermerke_Schwelle()
closeMe() closeMe()
'------------------------------ '------------------------------
Case Else Case Else