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

18
TELOTEK_Worker_lib/cTelokec.vb
View File

@@ -178,9 +178,17 @@ Public Class cTelotec_Anmeldung
Me.telanm_Status_KEWILL_Equivalent = "00"
Me.telanm_Erstellung = Now
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.[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.[Referenz_ID] = 0 '"TC_IMP_" & Now.ToShortDateString("ddMMyyyy_HHmmssfff ")
Me.[ComIndicator] = 1
@@ -1207,6 +1215,12 @@ Public Class cTelotec_Anmeldung
'jetzt die Standartofferten einfügen
For Each p In POSITIONSDATEN
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
p.INSERT_Packstücke(p.telpos_id, Me.telanm_id)
p.INSERT_Abgaben(p.telpos_id, Me.telanm_id)