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

ATEZ Bereitstellung DY; 4802 ATILLA

Browse Source
This commit is contained in:
Andreas Luxbauer
2023-08-24 08:44:30 +02:00
parent 27d0b8f95c
commit fa40157528
8 changed files with 47 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

29
initATLASAufschubkonten/cWorker_NCTS.vb
View File

@@ -1240,7 +1240,7 @@ Public Class cWorker_NCTS
If MRN <> "" Then NCTS_TMP.ncts_MRN = MRN : NCTS_TMP.SAVE()
End If
End If
saveDY_NCTS = NCTS_TMP
saveDY_NCTS = NCTS_TMP
End Function
Shared Sub SaveNCTS_FirmaNL(ByRef NCTS_TMP As DAKOSY_Worker.cDakosyNCTSOut, DY_TMP As DAKOSY_Worker.cDakosy_Zollanmeldungen, division As String)
@@ -1699,8 +1699,13 @@ Public Class cWorker_NCTS
If DY_TMP IsNot Nothing Then STATUS.dySt_dyId = DY_TMP.dy_Id
STATUS.SAVE()
' BEREITSTELLUNG DER DATEN AN FREMDSYSTEME
'=======BEREITSTELLUNG DER DATEN AN FREMDSYSTEME=======
cVERAG_out_ncts.copyFileFTP_VERAGncts_DY(NCTS_TMP, DY_TMP)
'======================================================
'=====ATEZ BEREITSTELLUNG==========
checkATEZ_Bereitstellung(DY_TMP, d)
'==================================
FORM.addDGVEinarbeitung("NCTS: Erledigungsmeldung", STATUS.dySt_BezugsNr)
End If
@@ -1998,6 +2003,10 @@ Public Class cWorker_NCTS
'=====ATEZ BEREITSTELLUNG==========
checkATEZ_Bereitstellung(DY_TMP, d)
'==================================
FORM.addDGVEinarbeitung("NCTS: Überlassungsmeldung", STATUS.dySt_BezugsNr)
End If
Catch ex As Exception
@@ -2014,6 +2023,18 @@ Public Class cWorker_NCTS
End If
End Sub
Shared Sub checkATEZ_Bereitstellung(DY_TMP As DAKOSY_Worker.cDakosy_Zollanmeldungen, filePath As String)
If DY_TMP Is Nothing Then Exit Sub
Dim ATEZ = VERAG_PROG_ALLGEMEIN.cATEZ_NCTS_DATA.LOAD_ByBezugsNr(DY_TMP.dy_BezugsNr)
If ATEZ IsNot Nothing AndAlso ATEZ.hasEntry Then
If ATEZ.status Then
FileCopy(filePath, "\\ftps.verag.ag\FTP\ATEZ\OUT\")
End If
End If
End Sub
Shared Function readNCTS_AnrechnungReferenzbetraege(FORM As frmDYNachrichtenVerarbeitung, d As String) As String
Try
@@ -2071,6 +2092,10 @@ Public Class cWorker_NCTS
If DY_TMP IsNot Nothing Then STATUS.dySt_dyId = DY_TMP.dy_Id
STATUS.SAVE()
'=====ATEZ BEREITSTELLUNG==========
checkATEZ_Bereitstellung(DY_TMP, d)
'==================================
FORM.addDGVEinarbeitung("NCTS: AnrechnungReferenzbetäege", STATUS.dySt_BezugsNr)
End If
Catch ex As Exception

2
initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb
View File

@@ -5875,7 +5875,7 @@ Public Class frmDYNachrichtenVerarbeitung
Case "5701"
firma = "AMBAR"
niederlassung = "AMBAR"
Case "4801"
Case "4801", "4802"
firma = "ATILLA"
niederlassung = "SUB"
'Case "4801"

1
initATLASAufschubkonten/frmStartOptions.vb
View File

@@ -705,6 +705,7 @@ Public Class frmStartOptions
Case "5701" : Standort = "AMB"
Case "5801" : Standort = "FO"
Case "4801" : Standort = "ATL"
Case "4802" : Standort = "ATL"
Case "5003" : Standort = "SBG"
Case "5103" : Standort = "WAI"
Case "5303" : Standort = "NKD"

2
initATLASAufschubkonten/frmTCNachrichtenVerarbeitung.vb
View File

@@ -752,7 +752,7 @@ Public Class frmTCNachrichtenVerarbeitung
If TC.telanm_BezugsNr.ToString.StartsWith("5501") Then
TC.telanm_firma = "IMEX" 'VERAG WO
End If
If TC.telanm_BezugsNr.ToString.StartsWith("4801") Then
If TC.telanm_BezugsNr.ToString.StartsWith("4801") Or TC.telanm_BezugsNr.ToString.StartsWith("4802") Then
TC.telanm_firma = "IMEX" 'VERAG WO
End If
TC.telanm_niederlassung = "SUB"