EXG DB Tabelle Routine
This commit is contained in:
20
ADMIN.sln
20
ADMIN.sln
@@ -23,8 +23,6 @@ Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "ATILLA_Speditionsbuch", "AT
|
||||
EndProject
|
||||
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "VERAG_PROG_ALLGEMEIN", "..\..\SDL\SDL\VERAG_PROG_ALLGEMEIN\VERAG_PROG_ALLGEMEIN.vbproj", "{A3B497BD-842C-4A2B-B398-ED1976849DF1}"
|
||||
EndProject
|
||||
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "DAKOSY_Worker_lib", "DAKOSY_Worker\DAKOSY_Worker_lib.vbproj", "{50E8E49B-4FD9-4DD4-B159-BDC2B7D0E94F}"
|
||||
EndProject
|
||||
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "TELOTEC_Worker_lib", "TELOTEK_Worker_lib\TELOTEC_Worker_lib.vbproj", "{5B947A66-009A-4BB6-B925-F84A01045095}"
|
||||
EndProject
|
||||
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "MDM_Worker_lib", "MDM_Worker\MDM_Worker_lib.vbproj", "{2E4DBC09-E57B-4AC5-8554-6117D71F993B}"
|
||||
@@ -35,6 +33,8 @@ Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "RKSV_DE", "RKSV_DE\RKSV_DE.
|
||||
EndProject
|
||||
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "MIC_Worker_lib", "MIC_Worker_lib\MIC_Worker_lib.vbproj", "{60833DC6-70ED-450A-B51F-4A953E67ADA0}"
|
||||
EndProject
|
||||
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "DAKOSY_Worker_lib", "DAKOSY_Worker\DAKOSY_Worker_lib.vbproj", "{50E8E49B-4FD9-4DD4-B159-BDC2B7D0E94F}"
|
||||
EndProject
|
||||
Global
|
||||
GlobalSection(SolutionConfigurationPlatforms) = preSolution
|
||||
Debug|Any CPU = Debug|Any CPU
|
||||
@@ -123,14 +123,6 @@ Global
|
||||
{A3B497BD-842C-4A2B-B398-ED1976849DF1}.Release|Any CPU.Build.0 = Release|Any CPU
|
||||
{A3B497BD-842C-4A2B-B398-ED1976849DF1}.Release|x64.ActiveCfg = Release|x64
|
||||
{A3B497BD-842C-4A2B-B398-ED1976849DF1}.Release|x64.Build.0 = Release|x64
|
||||
{50E8E49B-4FD9-4DD4-B159-BDC2B7D0E94F}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
|
||||
{50E8E49B-4FD9-4DD4-B159-BDC2B7D0E94F}.Debug|Any CPU.Build.0 = Debug|Any CPU
|
||||
{50E8E49B-4FD9-4DD4-B159-BDC2B7D0E94F}.Debug|x64.ActiveCfg = Debug|Any CPU
|
||||
{50E8E49B-4FD9-4DD4-B159-BDC2B7D0E94F}.Debug|x64.Build.0 = Debug|Any CPU
|
||||
{50E8E49B-4FD9-4DD4-B159-BDC2B7D0E94F}.Release|Any CPU.ActiveCfg = Release|Any CPU
|
||||
{50E8E49B-4FD9-4DD4-B159-BDC2B7D0E94F}.Release|Any CPU.Build.0 = Release|Any CPU
|
||||
{50E8E49B-4FD9-4DD4-B159-BDC2B7D0E94F}.Release|x64.ActiveCfg = Release|Any CPU
|
||||
{50E8E49B-4FD9-4DD4-B159-BDC2B7D0E94F}.Release|x64.Build.0 = Release|Any CPU
|
||||
{5B947A66-009A-4BB6-B925-F84A01045095}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
|
||||
{5B947A66-009A-4BB6-B925-F84A01045095}.Debug|Any CPU.Build.0 = Debug|Any CPU
|
||||
{5B947A66-009A-4BB6-B925-F84A01045095}.Debug|x64.ActiveCfg = Debug|Any CPU
|
||||
@@ -171,6 +163,14 @@ Global
|
||||
{60833DC6-70ED-450A-B51F-4A953E67ADA0}.Release|Any CPU.Build.0 = Release|Any CPU
|
||||
{60833DC6-70ED-450A-B51F-4A953E67ADA0}.Release|x64.ActiveCfg = Release|Any CPU
|
||||
{60833DC6-70ED-450A-B51F-4A953E67ADA0}.Release|x64.Build.0 = Release|Any CPU
|
||||
{50E8E49B-4FD9-4DD4-B159-BDC2B7D0E94F}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
|
||||
{50E8E49B-4FD9-4DD4-B159-BDC2B7D0E94F}.Debug|Any CPU.Build.0 = Debug|Any CPU
|
||||
{50E8E49B-4FD9-4DD4-B159-BDC2B7D0E94F}.Debug|x64.ActiveCfg = Debug|Any CPU
|
||||
{50E8E49B-4FD9-4DD4-B159-BDC2B7D0E94F}.Debug|x64.Build.0 = Debug|Any CPU
|
||||
{50E8E49B-4FD9-4DD4-B159-BDC2B7D0E94F}.Release|Any CPU.ActiveCfg = Release|Any CPU
|
||||
{50E8E49B-4FD9-4DD4-B159-BDC2B7D0E94F}.Release|Any CPU.Build.0 = Release|Any CPU
|
||||
{50E8E49B-4FD9-4DD4-B159-BDC2B7D0E94F}.Release|x64.ActiveCfg = Release|Any CPU
|
||||
{50E8E49B-4FD9-4DD4-B159-BDC2B7D0E94F}.Release|x64.Build.0 = Release|Any CPU
|
||||
EndGlobalSection
|
||||
GlobalSection(SolutionProperties) = preSolution
|
||||
HideSolutionNode = FALSE
|
||||
|
||||
@@ -9,6 +9,7 @@ Public Class cDakosyEXG
|
||||
Property exg_dyaArt As String = ""
|
||||
Property exg_dyaAnmID As Integer
|
||||
|
||||
Property exg_Partnersystem As Object = Nothing
|
||||
Property exg_ANR As Object = Nothing
|
||||
Property exg_MRN As Object = Nothing
|
||||
|
||||
@@ -371,6 +372,7 @@ Public Class cDakosyEXG
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Status_KEWILL_Equivalent", exg_Status_KEWILL_Equivalent))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_dyaArt", exg_dyaArt))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_dyaAnmID", exg_dyaAnmID))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Partnersystem", exg_Partnersystem))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_ANR", exg_ANR))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_MRN", exg_MRN))
|
||||
|
||||
@@ -721,7 +723,7 @@ Public Class cDakosyEXG
|
||||
" Else " &
|
||||
" BEGIN " & getInsertCmd() & " End " &
|
||||
" commit tran "
|
||||
|
||||
'MsgBox(sqlstr)
|
||||
Dim exg_IdTMP = exg_Id
|
||||
exg_IdTMP = SQL.doSQLVarListID(exg_IdTMP, sqlstr, "FMZOLL", , list, , errHinweis)
|
||||
If exg_Id <= 0 Then exg_Id = exg_IdTMP
|
||||
@@ -842,41 +844,41 @@ Public Class cDakosyEXG
|
||||
End Function
|
||||
|
||||
|
||||
Public Function LOADByAnmID(exg_dyaAnmID As String, loadALL As Boolean) As Boolean
|
||||
Try
|
||||
LOADByAnmID = False
|
||||
If loadALL Then
|
||||
exg_POSITION.Clear()
|
||||
End If
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT TOP 1 * FROM tblDakosy_EXG WHERE exg_dyaAnmID=@exg_dyaAnmID ", conn)
|
||||
cmd.Parameters.AddWithValue("@exg_dyaAnmID", exg_dyaAnmID)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each l In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
|
||||
'Public Function LOADByBezugsNr(exg_ObjectName As String, loadALL As Boolean) As Boolean
|
||||
' Try
|
||||
' LOADByBezugsNr = False
|
||||
' If loadALL Then
|
||||
' exg_POSITION.Clear()
|
||||
' End If
|
||||
' Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
' Using cmd As New SqlCommand("SELECT TOP 1 * FROM tblDakosy_EXG WHERE exg_ObjectName=@exg_ObjectName ", conn)
|
||||
' cmd.Parameters.AddWithValue("@exg_ObjectName", exg_ObjectName)
|
||||
' Dim dr = cmd.ExecuteReader()
|
||||
' If dr.Read Then
|
||||
' For Each l In getParameterList()
|
||||
' Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
|
||||
|
||||
If dr.Item(l.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(l.Text))
|
||||
End If
|
||||
' If dr.Item(l.Text) Is DBNull.Value Then
|
||||
' propInfo.SetValue(Me, Nothing)
|
||||
' Else
|
||||
' propInfo.SetValue(Me, dr.Item(l.Text))
|
||||
' End If
|
||||
|
||||
Next
|
||||
If loadALL Then
|
||||
LOAD_Position()
|
||||
End If
|
||||
LOADByAnmID = True
|
||||
End If
|
||||
dr.Close()
|
||||
End Using
|
||||
End Using
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
End Try
|
||||
Return LOADByAnmID
|
||||
End Function
|
||||
Shared Function LOADByBezugsNr(bezugsNr As String, loadALL As Boolean, Optional checkValidStatus As Boolean = False) As cDakosyEXG
|
||||
' Next
|
||||
' If loadALL Then
|
||||
' LOAD_Position()
|
||||
' End If
|
||||
' LOADByBezugsNr = True
|
||||
' End If
|
||||
' dr.Close()
|
||||
' End Using
|
||||
' End Using
|
||||
' Catch ex As Exception
|
||||
' VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
' End Try
|
||||
' Return LOADByBezugsNr
|
||||
'End Function
|
||||
Shared Function LOADByBezugsNr(bezugsNr As String, loadALL As Boolean) As cDakosyEXG
|
||||
Try
|
||||
Dim EXG As New cDakosyEXG
|
||||
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
@@ -884,7 +886,7 @@ Public Class cDakosyEXG
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
' Using cmd As New SqlCommand("SELECT TOP 1 * FROM (SELECT * FROM tblDakosy_EXGOut WHERE exg_ObjectName LIKE @bezugsNr " & If(checkValidStatus, " AND exg_status BETWEEN 40 and 90 ", "") & " ) AS T order by exg_status desc, (SELECT top 1 dySt_ts FROM [tblDakosy_Statusmeldungen] WHERE exg_dyaAnmID=exg_dyaAnmID order by dySt_ts desc) desc,exg_LetzteBearbeitung desc ", conn)
|
||||
'Using cmd As New SqlCommand("SELECT TOP 1 * FROM tblDakosy_EXGOut WHERE exg_ObjectName LIKE @bezugsNr " & If(checkValidStatus, " AND exg_status BETWEEN 40 and 90 ", "") & " order by exg_status desc, (SELECT top 1 dySt_ts FROM [tblDakosy_Statusmeldungen] WHERE exg_dyaAnmID=exg_dyaAnmID order by dySt_ts desc) desc,exg_LetzteBearbeitung desc ", conn)
|
||||
Using cmd As New SqlCommand("SELECT TOP 1 * FROM tblDakosy_EXG WHERE exg_ObjectName LIKE @bezugsNr " & If(checkValidStatus, " AND exg_status BETWEEN 40 and 90 ", "") & " order by exg_LetzteBearbeitung desc", conn)
|
||||
Using cmd As New SqlCommand("SELECT TOP 1 * FROM tblDakosy_EXG WHERE exg_ObjectName LIKE @bezugsNr order by exg_LetzteBearbeitung desc", conn)
|
||||
'MsgBox("SELECT TOP 1 * FROM tblDakosy_EXGOut WHERE exg_ObjectName LIKE " & bezugsNr & " " & If(checkValidStatus, " AND exg_status BETWEEN 40 and 90 ", "") & " order by exg_status desc, (SELECT top 1 dySt_ts FROM [tblDakosy_Statusmeldungen] inner join tblDakosy_Zollanmeldungen on dy_id = dySt_dyId WHERE exg_dyaAnmID=dy_id order by dySt_ts desc) desc,exg_LetzteBearbeitung desc ")
|
||||
cmd.Parameters.AddWithValue("@bezugsNr", bezugsNr)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
|
||||
@@ -88,6 +88,7 @@
|
||||
<Compile Include="DAKOSY\ATLAS\AES\cDakosyAES.vb" />
|
||||
<Compile Include="DAKOSY\ATLAS\AES\Überlassung\e_exp_rel.Designer.vb" />
|
||||
<Compile Include="DAKOSY\ATLAS\AES\Überlassung\e_exp_rel_V2.3.Designer.vb" />
|
||||
<Compile Include="DAKOSY\ATLAS\EXG\cDakosyEXG.vb" />
|
||||
<Compile Include="DAKOSY\ATLAS\EXG\DatenZumAusgang\DataEXITDE_005.Designer.vb" />
|
||||
<Compile Include="DAKOSY\ATLAS\EXG\GestellungAusgang\PresentationEXITDE_003.Designer.vb" />
|
||||
<Compile Include="DAKOSY\ATLAS\EXG\InformationenZumAusgang\InformationEXITDE_003.Designer.vb" />
|
||||
|
||||
@@ -139,10 +139,6 @@
|
||||
<Project>{a3b497bd-842c-4a2b-b398-ed1976849df1}</Project>
|
||||
<Name>VERAG_PROG_ALLGEMEIN</Name>
|
||||
</ProjectReference>
|
||||
<ProjectReference Include="..\DAKOSY_Worker\DAKOSY_Worker_lib.vbproj">
|
||||
<Project>{50E8E49B-4FD9-4DD4-B159-BDC2B7D0E94F}</Project>
|
||||
<Name>DAKOSY_Worker_lib</Name>
|
||||
</ProjectReference>
|
||||
<ProjectReference Include="..\UID\ADMIN.vbproj">
|
||||
<Project>{6eb4d3a4-3cf2-4651-9af9-ad5f727df403}</Project>
|
||||
<Name>ADMIN</Name>
|
||||
|
||||
@@ -1134,12 +1134,6 @@
|
||||
<EmbedInteropTypes>True</EmbedInteropTypes>
|
||||
</COMReference>
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<ProjectReference Include="..\DAKOSY_Worker\DAKOSY_Worker_lib.vbproj">
|
||||
<Project>{50e8e49b-4fd9-4dd4-b159-bdc2b7d0e94f}</Project>
|
||||
<Name>DAKOSY_Worker_lib</Name>
|
||||
</ProjectReference>
|
||||
</ItemGroup>
|
||||
<Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
|
||||
<!-- To modify your build process, add your task inside one of the targets below and uncomment it.
|
||||
Other similar extension points exist, see Microsoft.Common.targets.
|
||||
|
||||
@@ -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