EXG DB Tabelle Routine
This commit is contained in:
@@ -2,6 +2,7 @@
|
||||
Imports DAKOSY_Worker
|
||||
Imports DocumentFormat.OpenXml.Wordprocessing
|
||||
Imports java.nio.channels
|
||||
Imports javax.management
|
||||
Imports Spire.Pdf
|
||||
Imports VERAG_PROG_ALLGEMEIN
|
||||
|
||||
@@ -33,6 +34,7 @@ Public Class cWorker_AES_EXG
|
||||
If RESP.HeaderData IsNot Nothing Then
|
||||
If RESP.HeaderData.MRN IsNot Nothing Then
|
||||
MRN = RESP.HeaderData.MRN
|
||||
|
||||
End If
|
||||
End If
|
||||
|
||||
@@ -44,16 +46,79 @@ Public Class cWorker_AES_EXG
|
||||
'EXZ SAVE!
|
||||
'----------------------------------------------------------------------
|
||||
|
||||
Dim EXG As New DAKOSY_Worker.exg
|
||||
Dim EXG = DAKOSY_Worker.cDakosyEXG.LOADByBezugsNr(readEZA_DatenZumAusgang_DataEXITDE_005, True)
|
||||
If EXG Is Nothing Then EXG = New cDakosyEXG
|
||||
|
||||
'EXG.consignee
|
||||
EXG.exg_ObjectName = readEZA_DatenZumAusgang_DataEXITDE_005
|
||||
EXG.exg_Partnersystem = "DAKOSY"
|
||||
EXG.exg_Erstellung = zp
|
||||
' EXG.exg_firma = RESP.HeaderData.
|
||||
EXG.exg_Declarationtype = RESP.HeaderData.DeclarationType
|
||||
EXG.exg_Security = RESP.HeaderData.Security
|
||||
EXG.exg_MRN = RESP.HeaderData.MRN
|
||||
EXG.exg_ContainerIndicator = RESP.HeaderData.ContainerIndicator
|
||||
EXG.exg_GrossMass = RESP.HeaderData.GrossMass
|
||||
EXG.exg_CountryOfDestination = RESP.HeaderData.CountryOfDestination
|
||||
EXG.exg_ReferenceNumberUCR = RESP.HeaderData.ReferenceNumberUCR
|
||||
|
||||
frmDYNachrichtenVerarbeitung.setFirmaNL(VWI.Transaktion.IOPartner, VWI.Transaktion.IODivision3, EXG.exg_firma, EXG.exg_niederlassung)
|
||||
|
||||
|
||||
|
||||
If RESP.HeaderData.Consignee IsNot Nothing Then
|
||||
EXG.exg_Consignee_Name = RESP.HeaderData.Consignee.Name
|
||||
|
||||
EXG.exg_Consignee_StreetNumber = RESP.HeaderData.Consignee.StreetAndNumber
|
||||
EXG.exg_Consignee_City = RESP.HeaderData.Consignee.City
|
||||
EXG.exg_Consignee_Postcode = RESP.HeaderData.Consignee.Postcode
|
||||
EXG.exg_Consignee_Country = RESP.HeaderData.Consignee.Country
|
||||
|
||||
EXG.exg_Consignee_IdentificationNumber = RESP.HeaderData.Consignee.IdentificationNumber
|
||||
EXG.exg_Consignee_SubsidiaryNumber = RESP.HeaderData.Consignee.SubsidiaryNumber
|
||||
End If
|
||||
|
||||
If RESP.HeaderData.Exporter IsNot Nothing Then
|
||||
EXG.exg_Consignor_Name = RESP.HeaderData.Exporter.Name
|
||||
|
||||
EXG.exg_Consignor_StreetNumber = RESP.HeaderData.Exporter.StreetAndNumber
|
||||
EXG.exg_Consignor_City = RESP.HeaderData.Exporter.City
|
||||
EXG.exg_Consignor_Postcode = RESP.HeaderData.Exporter.Postcode
|
||||
EXG.exg_Consignor_Country = RESP.HeaderData.Exporter.Country
|
||||
|
||||
EXG.exg_Consignor_IdentificationNumber = RESP.HeaderData.Exporter.IdentificationNumber
|
||||
EXG.exg_Consignor_SubsidiaryNumber = RESP.HeaderData.Exporter.SubsidiaryNumber
|
||||
End If
|
||||
|
||||
|
||||
'----------------------------------------------------------------------
|
||||
'QULAIFIZIERUNG!
|
||||
'----------------------------------------------------------------------
|
||||
If True Then 'BEZUGSNR vorhanden
|
||||
If RESP.GoodsItem IsNot Nothing Then
|
||||
For Each ITEM In RESP.GoodsItem
|
||||
Dim EXG_ITEM As New cDakosy_EXG_Position
|
||||
|
||||
EXG_ITEM.exgPos_GoodsItemNumber = ITEM.GoodsItemNumber
|
||||
EXG_ITEM.exgPos_CommodityCode = ITEM.HarmonizedSystemSubHeadingCode & ITEM.CombinedNomenclatureCode
|
||||
EXG_ITEM.exgPos_DescriptionOfGoods = ITEM.DescriptionOfGoods
|
||||
EXG_ITEM.exgPos_NetMass = ITEM.NetMass
|
||||
EXG_ITEM.exgPos_GrossMass = ITEM.GrossMass
|
||||
|
||||
|
||||
If RESP.GoodsItem IsNot Nothing Then
|
||||
For Each ITEM_PK In ITEM.Packaging
|
||||
Dim EXG_ITEM_PK As New cDakosy_EXG_Position_Packaging
|
||||
|
||||
EXG_ITEM_PK.exgPosPk_NumberOfPackages = ITEM_PK.NumberOfPackages
|
||||
EXG_ITEM_PK.exgPosPk_TypeOfPackages = ITEM_PK.TypeOfPackages
|
||||
EXG_ITEM_PK.exgPosPk_ShippingMarks = ITEM_PK.ShippingMarks
|
||||
|
||||
|
||||
EXG_ITEM.exgPos_PACKAGING.Add(EXG_ITEM_PK)
|
||||
Next
|
||||
End If
|
||||
EXG.exg_POSITION.Add(EXG_ITEM)
|
||||
Next
|
||||
End If
|
||||
|
||||
If EXG.SAVE_ALL Then 'BEZUGSNR vorhanden
|
||||
Dim STATUS As DAKOSY_Worker.cDakosy_Statusmeldungen = FORM.getStatusCheckTransID(VWI.Transaktion.IOReferenz, VWI.Transaktion.IODatumZeit)
|
||||
STATUS.dySt_BezugsNr = readEZA_DatenZumAusgang_DataEXITDE_005
|
||||
STATUS.dySt_artMitteilung = "EXG_DATA"
|
||||
@@ -66,10 +131,15 @@ Public Class cWorker_AES_EXG
|
||||
|
||||
STATUS.SAVE()
|
||||
|
||||
'----------------------------------------------------------------------
|
||||
'Es wird bei Daten zum AUsgang und "_EXG_" automaitsch die Qualifizierung aufgerufen...
|
||||
|
||||
If readEZA_DatenZumAusgang_DataEXITDE_005.Contains("_EXG_") Then
|
||||
'----------------------------------------------------------------------
|
||||
'QULAIFIZIERUNG!
|
||||
'----------------------------------------------------------------------
|
||||
|
||||
'----------------------------------------------------------------------
|
||||
'Es wird bei Daten zum AUsgang und "_EXG" automaitsch die Qualifizierung aufgerufen...
|
||||
Dim test = True
|
||||
If readEZA_DatenZumAusgang_DataEXITDE_005.Contains("_EXG") Or test Then
|
||||
Dim IOPARTNER = VWI.Transaktion.IOPartner
|
||||
Dim DIVISION3 = VWI.Transaktion.IODivision3
|
||||
Dim DAKOSY_SB = "ANDREAS"
|
||||
@@ -84,18 +154,19 @@ Public Class cWorker_AES_EXG
|
||||
DY_ACTIONS.Add("CHANGE")
|
||||
' DY_ACTIONS.Add("SEND")
|
||||
|
||||
If generateInformationenZumAusgang003(MRN, readEZA_DatenZumAusgang_DataEXITDE_005, saveFile, DY_ACTIONS, IOPARTNER, DIVISION3, DAKOSY_SB) Then
|
||||
If generateInformationenZumAusgang003(EXG, readEZA_DatenZumAusgang_DataEXITDE_005, saveFile, DY_ACTIONS, IOPARTNER, DIVISION3, DAKOSY_SB) Then
|
||||
If saveFile <> "" Then
|
||||
frmStartOptions.copyFile(saveFile, "\\datenarchiv\Datenarchiv\DAKOSY\ECHTSYSTEM\EXG\upl\")
|
||||
|
||||
'NOCH NCIHT!!!!!!
|
||||
'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
|
||||
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
|
||||
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
|
||||
@@ -103,14 +174,14 @@ Public Class cWorker_AES_EXG
|
||||
|
||||
|
||||
FORM.addDGVEinarbeitung("AES: ExportGest.-DatenZumAusgang", STATUS.dySt_BezugsNr)
|
||||
End If
|
||||
End If
|
||||
'----------------------------------------------------------------------
|
||||
'----------------------------------------------------------------------
|
||||
|
||||
|
||||
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
|
||||
Next
|
||||
|
||||
@@ -127,7 +198,7 @@ Public Class cWorker_AES_EXG
|
||||
End Function
|
||||
|
||||
|
||||
Shared Function generateInformationenZumAusgang003(MRN As String, ByVal Bezugsnummer As String, ByRef saveFile As String, DY_ACTIONS As List(Of String), IOPartner As String, IODivision3 As String, DAKOSY_SB As String) As Boolean
|
||||
Shared Function generateInformationenZumAusgang003(EXG As cDakosyEXG, ByVal Bezugsnummer As String, ByRef saveFile As String, DY_ACTIONS As List(Of String), IOPartner As String, IODivision3 As String, DAKOSY_SB As String) As Boolean
|
||||
Dim Interface_VERSION = "003"
|
||||
' Dim ObjectAktion = DY_ACTION
|
||||
' Dim BezugsnummerVorblendung = "AA_NCTS_DE_ZE_WO_MITTICH"
|
||||
@@ -154,7 +225,7 @@ Public Class cWorker_AES_EXG
|
||||
|
||||
'If Bezugsnummer IsNot Nothing Then XML_EG.ObjektIdentifizierung.ObjektAliasname = Bezugsnummer
|
||||
XML_EG.ObjektIdentifizierung.ObjektAktion = DY_ACTIONS
|
||||
If If(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_DAKOSY_SB, "") <> "" Then XML_EG.ObjektIdentifizierung.Bearbeiter = DAKOSY_SB
|
||||
XML_EG.ObjektIdentifizierung.Bearbeiter = DAKOSY_SB
|
||||
|
||||
' If BezugsnummerVorblendung IsNot Nothing AndAlso BezugsnummerVorblendung <> "" Then XML_EG.ObjektIdentifizierung.BezugsnummerVorblendung = BezugsnummerVorblendung
|
||||
|
||||
@@ -186,7 +257,7 @@ Public Class cWorker_AES_EXG
|
||||
STATUS.dySt_dyArt = "EXG"
|
||||
STATUS.dySt_status = DAKOSY_Worker.cDY_Statusliste.S_00
|
||||
STATUS.dySt_ergCode = "EXG_INFO"
|
||||
STATUS.dySt_ergMitteilung = "MRN:" & MRN
|
||||
STATUS.dySt_ergMitteilung = "MRN:" & EXG.exg_MRN
|
||||
STATUS.dySt_ergZeitpunkt = Now
|
||||
STATUS.SAVE()
|
||||
'-------------------------------------------
|
||||
|
||||
@@ -911,6 +911,50 @@ Public Class frmDYNachrichtenVerarbeitung
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Shared Sub setFirmaNL(iopartner As String, division As String, ByRef firma As String, ByRef nl As String)
|
||||
If division Is Nothing Then Exit Sub
|
||||
If division <> "" Then
|
||||
Select Case division
|
||||
Case "SUW"
|
||||
firma = "ATILLA"
|
||||
nl = "SUB"
|
||||
Case "SUB"
|
||||
firma = "VERAG"
|
||||
nl = "SUB"
|
||||
Case "DUR"
|
||||
firma = "DURMAZ"
|
||||
nl = "SBG"
|
||||
Case "NKD"
|
||||
firma = "VERAG"
|
||||
nl = "NKD"
|
||||
Case "WAI"
|
||||
firma = "VERAG"
|
||||
nl = "WAI"
|
||||
Case "SBG"
|
||||
firma = "VERAG"
|
||||
nl = "SBG"
|
||||
Case "NEU"
|
||||
firma = "VERAG"
|
||||
nl = "NEU"
|
||||
Case "GLO"
|
||||
firma = "IMEX"
|
||||
nl = "GLO"
|
||||
Case "AMB"
|
||||
firma = "AMBAR"
|
||||
nl = "AMBAR"
|
||||
Case "IME"
|
||||
firma = "IMEX"
|
||||
nl = "IMX"
|
||||
Case "UNAT", "ATSPED"
|
||||
firma = "UNISPED"
|
||||
nl = "ATSP"
|
||||
End Select
|
||||
|
||||
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Sub addDGVEinarbeitung(art, BezugsNr)
|
||||
|
||||
Reference in New Issue
Block a user