EXG NCTS
This commit is contained in:
@@ -136,6 +136,7 @@ Public Class cWorker_AES_EXG
|
||||
STATUS.SAVE()
|
||||
|
||||
|
||||
|
||||
'----------------------------------------------------------------------
|
||||
'NCTS AKtualisieren!
|
||||
'----------------------------------------------------------------------
|
||||
@@ -143,22 +144,25 @@ Public Class cWorker_AES_EXG
|
||||
'----------------------------------------------------------------------
|
||||
'Wenn markiert wurde, dass die NCTS Daten ergänzt werden sollten
|
||||
'----------------------------------------------------------------------
|
||||
Dim testDY = False
|
||||
Dim testDY = True
|
||||
If testDY Or (EXG.exg_AutoFill_DyId IsNot Nothing AndAlso EXG.exg_AutoFill_DyId >= 0) Then
|
||||
|
||||
Console.WriteLine("EXG: NCTS Verarbeitung starten...")
|
||||
'----------------------------------------------------------------------
|
||||
'NCTS BEFÜLLEN!
|
||||
'----------------------------------------------------------------------
|
||||
Dim NCTS_OUT = fillNCTS_WithEXG_AutoFill(EXG, "TEEEEEEESTTT")
|
||||
'----------------------------------------------------------------------
|
||||
'----------------------------------------------------------------------
|
||||
|
||||
testDY = True
|
||||
|
||||
'Prüfen ob alle EXG Daten gekommen sind --> NCTS Senden!
|
||||
If testDY Or (cDakosyEXG.isFillNCTS_ID_ALLCompleted(EXG.exg_AutoFill_DyId)) Then
|
||||
|
||||
|
||||
Dim DY_ANM = New cDakosy_Zollanmeldungen(EXG.exg_AutoFill_DyId)
|
||||
If NCTS_OUT IsNot Nothing Then
|
||||
|
||||
|
||||
'Dim cDY As New cDakosyNCTSOut(cDyAnm.dy_Id, cDyAnm.dy_Erstellung_SB)
|
||||
NCTS_OUT.ncts_dyaAnmID = DY_ANM.dy_Id
|
||||
NCTS_OUT.ncts_Erstellung_SB = DY_ANM.dy_Erstellung_SB
|
||||
@@ -170,12 +174,17 @@ Public Class cWorker_AES_EXG
|
||||
|
||||
'VON HIER löschnen ohne test
|
||||
If testDY OrElse NCTS_OUT.SAVE_ALL() Then
|
||||
|
||||
|
||||
If If(EXG.exg_AutoFill_DyId, -1) > 0 Then 'Nur speichern wenn bei test exg_AutoFill_DyId befüllt ist
|
||||
NCTS_OUT.SAVE_ALL()
|
||||
End If
|
||||
Dim saveFile = ""
|
||||
|
||||
If cDakosyNCTSOut004.generateVersandanmeldungNCTSDE_004(NCTS_OUT, saveFile, "CREATE", Application.StartupPath) Then
|
||||
|
||||
If saveFile <> "" Then
|
||||
|
||||
frmStartOptions.copyFile(saveFile, "\\datenarchiv\Datenarchiv\DAKOSY\ECHTSYSTEM\EXG\upl\NCTS\")
|
||||
|
||||
End If
|
||||
@@ -213,71 +222,71 @@ Public Class cWorker_AES_EXG
|
||||
DY_ANM.UPDATE_AVISO_SND(DY_ANM.dy_SendungsId)
|
||||
|
||||
End If
|
||||
|
||||
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
'----------------------------------------------------------------------
|
||||
'QULAIFIZIERUNG!
|
||||
'----------------------------------------------------------------------
|
||||
|
||||
'----------------------------------------------------------------------
|
||||
'Es wird bei Daten zum AUsgang und "_EXG" automaitsch die Qualifizierung aufgerufen...
|
||||
Dim test = False
|
||||
|
||||
|
||||
'----------------------------------------------------------------------
|
||||
'----------------------------------------------------------------------
|
||||
If False Then '--------------QUALIFIZIERUNG NOCH NCIHT SENDEN! ------------------
|
||||
'----------------------------------------------------------------------
|
||||
'----------------------------------------------------------------------
|
||||
|
||||
|
||||
If readEZA_DatenZumAusgang_DataEXITDE_005.Contains("_EXG") Or test Then
|
||||
Dim IOPARTNER = VWI.Transaktion.IOPartner
|
||||
Dim DIVISION3 = VWI.Transaktion.IODivision3
|
||||
Dim DAKOSY_SB = "ANDREAS"
|
||||
Dim DY_ACTIONS As New List(Of String)
|
||||
|
||||
If IOPARTNER = "UNAT" Then
|
||||
DAKOSY_SB = "luxbauer"
|
||||
End If
|
||||
End If
|
||||
|
||||
Dim saveFile = ""
|
||||
|
||||
DY_ACTIONS.Add("CHANGE")
|
||||
DY_ACTIONS.Add("SEND")
|
||||
'----------------------------------------------------------------------
|
||||
'QULAIFIZIERUNG!
|
||||
'----------------------------------------------------------------------
|
||||
|
||||
If generateInformationenZumAusgang003(EXG, readEZA_DatenZumAusgang_DataEXITDE_005, saveFile, DY_ACTIONS, IOPARTNER, DIVISION3, DAKOSY_SB) Then
|
||||
If saveFile <> "" Then
|
||||
If test Then
|
||||
frmStartOptions.copyFile(saveFile, "\\datenarchiv\Datenarchiv\DAKOSY\ECHTSYSTEM\EXG\upl\")
|
||||
Else
|
||||
If cDakosyFunftions.send_Data_To_Dakosy_FTP(saveFile, readEZA_DatenZumAusgang_DataEXITDE_005, -1, IOPARTNER) Then
|
||||
'DAKOSY_Worker.cDakosy_Statusmeldungen.InsertStatusMeldung(DY_ANM, DAKOSY_Worker.cDY_Statusliste.S_03)
|
||||
Return True
|
||||
'----------------------------------------------------------------------
|
||||
'Es wird bei Daten zum AUsgang und "_EXG" automaitsch die Qualifizierung aufgerufen...
|
||||
Dim test = False
|
||||
|
||||
|
||||
'----------------------------------------------------------------------
|
||||
'----------------------------------------------------------------------
|
||||
If False Then '--------------QUALIFIZIERUNG NOCH NCIHT SENDEN! ------------------
|
||||
'----------------------------------------------------------------------
|
||||
'----------------------------------------------------------------------
|
||||
|
||||
|
||||
If readEZA_DatenZumAusgang_DataEXITDE_005.Contains("_EXG") Or test Then
|
||||
Dim IOPARTNER = VWI.Transaktion.IOPartner
|
||||
Dim DIVISION3 = VWI.Transaktion.IODivision3
|
||||
Dim DAKOSY_SB = "ANDREAS"
|
||||
Dim DY_ACTIONS As New List(Of String)
|
||||
|
||||
If IOPARTNER = "UNAT" Then
|
||||
DAKOSY_SB = "luxbauer"
|
||||
End If
|
||||
|
||||
Dim saveFile = ""
|
||||
|
||||
DY_ACTIONS.Add("CHANGE")
|
||||
DY_ACTIONS.Add("SEND")
|
||||
|
||||
If generateInformationenZumAusgang003(EXG, readEZA_DatenZumAusgang_DataEXITDE_005, saveFile, DY_ACTIONS, IOPARTNER, DIVISION3, DAKOSY_SB) Then
|
||||
If saveFile <> "" Then
|
||||
If test Then
|
||||
frmStartOptions.copyFile(saveFile, "\\datenarchiv\Datenarchiv\DAKOSY\ECHTSYSTEM\EXG\upl\")
|
||||
Else
|
||||
'DAKOSY_Worker.cDakosy_Statusmeldungen.InsertStatusMeldung(DY_ANM, DAKOSY_Worker.cDY_Statusliste.S_09)
|
||||
Return False
|
||||
If cDakosyFunftions.send_Data_To_Dakosy_FTP(saveFile, readEZA_DatenZumAusgang_DataEXITDE_005, -1, IOPARTNER) Then
|
||||
'DAKOSY_Worker.cDakosy_Statusmeldungen.InsertStatusMeldung(DY_ANM, DAKOSY_Worker.cDY_Statusliste.S_03)
|
||||
Return True
|
||||
Else
|
||||
'DAKOSY_Worker.cDakosy_Statusmeldungen.InsertStatusMeldung(DY_ANM, DAKOSY_Worker.cDY_Statusliste.S_09)
|
||||
Return False
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
'----------------------------------------------------------------------
|
||||
|
||||
|
||||
FORM.addDGVEinarbeitung("AES: ExportGest.-DatenZumAusgang", STATUS.dySt_BezugsNr)
|
||||
End If
|
||||
'----------------------------------------------------------------------
|
||||
'----------------------------------------------------------------------
|
||||
|
||||
|
||||
|
||||
FORM.addDGVEinarbeitung("AES: ExportGest.-DatenZumAusgang", STATUS.dySt_BezugsNr)
|
||||
End If
|
||||
'----------------------------------------------------------------------
|
||||
'----------------------------------------------------------------------
|
||||
|
||||
|
||||
|
||||
End If
|
||||
End If
|
||||
|
||||
Next
|
||||
@@ -297,13 +306,16 @@ Public Class cWorker_AES_EXG
|
||||
Shared Function fillNCTS_WithEXG_AutoFill(EXG As cDakosyEXG, ObjectName As String) As cDakosyNCTSOut004
|
||||
|
||||
If (EXG.exg_AutoFill_DyId IsNot Nothing AndAlso EXG.exg_AutoFill_DyId >= 0) Then
|
||||
Dim NCTS_OUT = DAKOSY_Worker.cDakosyNCTSOut004.LOADByAnmIDFull(EXG.exg_AutoFill_DyId, False)
|
||||
Dim NCTS_OUT = DAKOSY_Worker.cDakosyNCTSOut004.LOADByAnmIDFull(EXG.exg_AutoFill_DyId, True)
|
||||
|
||||
If NCTS_OUT Is Nothing Then
|
||||
NCTS_OUT = New DAKOSY_Worker.cDakosyNCTSOut004
|
||||
NCTS_OUT.ncts_ObjectName = "TEEEESSSSTTT"
|
||||
NCTS_OUT.ncts_ObjectName = ObjectName
|
||||
End If
|
||||
|
||||
Console.WriteLine("EXG: NCTS befüllen...")
|
||||
DAKOSY_Worker.cDakosyNCTSOut004.fillNCTS_WithEXG(NCTS_OUT, EXG, ObjectName)
|
||||
Console.WriteLine("EXG: NCTS updaten...")
|
||||
cDakosyEXG.UPDATE_FillNCTS_ID_Completed(EXG.exg_Id) 'Eintrag, dass AutoFill durchgelaufen ist
|
||||
|
||||
Return NCTS_OUT
|
||||
|
||||
Reference in New Issue
Block a user