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

neu

Browse Source
This commit is contained in:
Andreas Luxbauer
2021-01-19 20:27:19 +01:00
parent 1c8b5afac9
commit 595851ec3c
37 changed files with 1293 additions and 479 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
SDL/ZOLLSYSTEM/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA.vb
View File

@@ -681,6 +681,7 @@ Public Class usrCntlATLAS_EZA
EZA.eza_Erstellung_SB = DY_ANM.dy_Erstellung_SB
EZA.eza_LetzteBearbeitung = Now
EZA.eza_LetzteBearbeitung_SB = DY_ANM.dy_LetzteBearbeitung_SB
EZA.eza_firma = Me.FIRMA_DY
DAKOSY_Interface_SEND.loadInClass_VersandanmeldungEZA(EZA, Me, DY_ANM)
If Not EZA.SAVE_ALL() Then Exit Sub
Dim saveFile = ""

5
SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS/usrCntlATLAS_NCTS.vb
View File

@@ -507,14 +507,15 @@ Public Class usrCntlATLAS_NCTS
ncts_OUT.ncts_Erstellung_SB = DY_ANM.dy_Erstellung_SB
ncts_OUT.ncts_LetzteBearbeitung = Now
ncts_OUT.ncts_LetzteBearbeitung_SB = DY_ANM.dy_LetzteBearbeitung_SB
DAKOSY_Interface_SEND.loadInClass_VersandanmeldungNCTSDE_003(ncts_OUT, Me, DY_ANM, FIRMA_DY)
ncts_OUT.ncts_firma = Me.FIRMA_DY
DAKOSY_Interface_SEND.loadInClass_VersandanmeldungNCTSDE_003(ncts_OUT, Me, DY_ANM, Me.FIRMA_DY)
If Not ncts_OUT.SAVE_ALL() Then Exit Sub
Dim saveFile = ""
If DAKOSY_Interface_SEND.generateVersandanmeldungNCTSDE_003(ncts_OUT, saveFile, cboDakosyAction._value) Then
If saveFile <> "" Then
If cDakosyFunftions.send_Data_To_Dakosy_FTP(saveFile, BezugsNr, DY_ANM.dy_Id, FIRMA_DY) Then
If cDakosyFunftions.send_Data_To_Dakosy_FTP(saveFile, BezugsNr, DY_ANM.dy_Id, Me.FIRMA_DY) Then
DAKOSY_Worker.cDakosy_Statusmeldungen.InsertStatusMeldung(DY_ANM, DAKOSY_Worker.cDY_Statusliste.S_03)
Else
DAKOSY_Worker.cDakosy_Statusmeldungen.InsertStatusMeldung(DY_ANM, DAKOSY_Worker.cDY_Statusliste.S_09)

3
SDL/ZOLLSYSTEM/DAKOSY/ATLAS/cDakosyInterface_Send.vb
View File

@@ -12,6 +12,7 @@ Class DAKOSY_Interface_SEND
cDY.ncts_Trans_Partner = "VERA"
End Select
cDY.ncts_firma = FIRMA_DY
cDY.ncts_Trans_DatumZeit = Now
cDY.ncts_Gestellt = False
cDY.ncts_Status = "00"
@@ -187,6 +188,8 @@ Class DAKOSY_Interface_SEND
Return "IMEX"
Case "UNISPED"
Return "UNAT"
Case "AMBAR"
Return "VRAS" 'warum auch immer.. irgendwie wg der eigenen EORI von AMBAR..
Case Else : Return "VERG"
End Select
End If