Dakosy, cWorkerVerwahrung (nur Test), cPLOSE
This commit is contained in:
@@ -1,13 +1,4 @@
|
||||
Imports System.Globalization
|
||||
Imports System.IO
|
||||
Imports System.Xml
|
||||
Imports com.sun.org.apache.xpath.internal.operations
|
||||
Imports com.sun.tools.doclets.internal.toolkit.util
|
||||
Imports DAKOSY_Worker
|
||||
Imports DocumentFormat.OpenXml
|
||||
Imports DocumentFormat.OpenXml.Spreadsheet
|
||||
Imports iTextSharp.text.pdf
|
||||
Imports VERAG_PROG_ALLGEMEIN
|
||||
Imports VERAG_PROG_ALLGEMEIN
|
||||
|
||||
Public Class cWorker_Verwahrung
|
||||
Public Shared Dateiname = ""
|
||||
@@ -16,7 +7,7 @@ Public Class cWorker_Verwahrung
|
||||
|
||||
|
||||
|
||||
Shared Function readVW_SumAVerwahrungsinfo(FORM As frmDYNachrichtenVerarbeitung, d As String) As String
|
||||
Shared Function readVW_SumAVerwahrungsinfo(FORM As frmDYNachrichtenVerarbeitung, d As String, saveVerwahrung As Boolean) As String
|
||||
Try
|
||||
|
||||
Dim VWI As DAKOSY_Worker.SumAVerwahrungsinfo_009.SumAVerwahrungsinfoSVTyp = DAKOSY_Worker.SumAVerwahrungsinfo_009.SumAVerwahrungsinfoSVTyp.LoadFromFile(d)
|
||||
@@ -24,6 +15,7 @@ Public Class cWorker_Verwahrung
|
||||
Dim RegistriernummerATLAS = ""
|
||||
Dim ankungsdatum As Object = Nothing
|
||||
Dim gestellungsdatum As Object = Nothing
|
||||
Dim posGestellung As New DataTable
|
||||
readVW_SumAVerwahrungsinfo = ""
|
||||
If VWI IsNot Nothing Then
|
||||
If VWI.EinzelSumAVerwahrungsinfo IsNot Nothing Then
|
||||
@@ -49,7 +41,23 @@ Public Class cWorker_Verwahrung
|
||||
|
||||
If VWI.EinzelSumAVerwahrungsinfo.Position IsNot Nothing Then
|
||||
For Each POS In VWI.EinzelSumAVerwahrungsinfo.Position
|
||||
If POS.Positionsnummer IsNot Nothing Then
|
||||
If POS.Positionsnummer IsNot Nothing AndAlso posGestellung IsNot Nothing Then
|
||||
If Not posGestellung.Columns.Contains("AnzPackst") Then
|
||||
posGestellung.Columns.Add("PosNr", GetType(Integer))
|
||||
posGestellung.Columns.Add("AnzPackst", GetType(Integer))
|
||||
posGestellung.Columns.Add("PackstArt", GetType(String))
|
||||
posGestellung.Columns.Add("Rohmasse", GetType(Double))
|
||||
posGestellung.Columns.Add("Warenbeschreibung", GetType(String))
|
||||
End If
|
||||
|
||||
Dim ro As DataRow = posGestellung.NewRow
|
||||
ro("PosNr") = POS.Positionsnummer
|
||||
ro("AnzPackst") = POS.PackstueckAnzahl
|
||||
ro("PackstArt") = POS.PackstueckArt
|
||||
ro("Rohmasse") = POS.Rohmasse
|
||||
ro("Warenbeschreibung") = POS.Warenbeschreibung
|
||||
posGestellung.Rows.Add(ro)
|
||||
|
||||
|
||||
End If
|
||||
|
||||
@@ -60,7 +68,7 @@ Public Class cWorker_Verwahrung
|
||||
End If
|
||||
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
If readVW_SumAVerwahrungsinfo <> "" And Vorpapiernummer <> "" Then 'BEZUGSNR vorhanden
|
||||
@@ -76,83 +84,113 @@ Public Class cWorker_Verwahrung
|
||||
|
||||
STATUS.SAVE()
|
||||
|
||||
'----------------------------------------------------------------
|
||||
'VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True
|
||||
|
||||
Try
|
||||
|
||||
|
||||
|
||||
'Dim Standort As String = ""
|
||||
'If MRN.Length > 4 Then
|
||||
' Select Case MRN.Substring(0, 4)
|
||||
' Case 4803, 4809
|
||||
' Standort = "VERAG AG"
|
||||
' Case 5601
|
||||
' Standort = "Unisped GmbH"
|
||||
' Case 5701
|
||||
' Standort = "AMBAR"
|
||||
' Case 4810,
|
||||
' Standort = "VERAG GmbH"
|
||||
' Case 5103
|
||||
' Standort = "VERAG CS"
|
||||
' Case 5501
|
||||
' Standort = "IMEX"
|
||||
|
||||
' End Select
|
||||
|
||||
' Dim GesSichRef = New VERAG_PROG_ALLGEMEIN.cGesamtsicherheitsReferenz(Standort)
|
||||
|
||||
' 'For Each pos In NCTS.EinzelErledigungsmeldung.Position
|
||||
|
||||
' Dim saldo = GesSichRef.CalcSaldo()
|
||||
' Dim filiale
|
||||
' Dim abfertigungsnummer
|
||||
' Dim dy_SendungsId = VWI.Transaktion.IOReferenz
|
||||
' If dy_SendungsId IsNot Nothing AndAlso IsNumeric(dy_SendungsId) Then
|
||||
' Dim SND As New VERAG_PROG_ALLGEMEIN.cSendungen(dy_SendungsId)
|
||||
' If SND IsNot Nothing Then
|
||||
' If SND.FilialenNr > 0 Then filiale = SND.FilialenNr
|
||||
' If SND.AbfertigungsNr > 0 Then abfertigungsnummer = SND.AbfertigungsNr
|
||||
|
||||
' 'Verwahrung ANSCHREIBUNG
|
||||
' Dim ANSCHREIBUNG As New cSicherheiten()
|
||||
|
||||
' With ANSCHREIBUNG
|
||||
' .gs_ATBNr = Vorpapiernummer
|
||||
' .gs_posNr = 1
|
||||
' .gs_datum = gestellungsdatum
|
||||
' .gs_warenwert = SND.tblSnd_Warenwert
|
||||
' .gs_sicherheitsbetrag = (SND.tblSnd_Warenwert * (GesSichRef.gsr_zollsatz / 100))
|
||||
' .gs_standort = Standort
|
||||
' .gs_art = "OPEN"
|
||||
' '.gs_gsNr = ANSCHREIBUNG.gessicherheitID
|
||||
' .gs_erstellungsdatum = Now()
|
||||
' .gs_freitext = ""
|
||||
' .gs_saldo = GesSichRef.gsr_Saldo
|
||||
' .gs_atr = ""
|
||||
' .gs_filialenNr = filiale
|
||||
' .gs_abfertigungsnr = abfertigungsnummer
|
||||
' '.gs_LKWKZ = SND.tblSnd_id
|
||||
' '.gs_warenort = gessich.warenortID
|
||||
|
||||
' End With
|
||||
|
||||
' End If
|
||||
' End If
|
||||
'End If
|
||||
If saveVerwahrung Then
|
||||
|
||||
'----------------------------------------------------------------
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True
|
||||
|
||||
Catch ex As Exception
|
||||
Try
|
||||
|
||||
'VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
|
||||
End Try
|
||||
''sonderfälle lt. Mestan
|
||||
'If SND.tblSnd_Zollsystem_Land = "DE" Then
|
||||
|
||||
' Select Case SND.FilialenNr
|
||||
' Case 5501, 4803, 4809, 5103
|
||||
' Standort = "VERAG GmbH"
|
||||
' End Select
|
||||
|
||||
'ElseIf SND.tblSnd_Zollsystem_Land = "AT" Then
|
||||
|
||||
' If SND.tblSnd_Abfertigungsart_ID = 1 Then 'ZA
|
||||
' Standort = "VERAG CS"
|
||||
' ElseIf SND.tblSnd_Abfertigungsart_ID = 38 Then 'EV-Verz
|
||||
' Select Case SND.FilialenNr
|
||||
' Case 4803, 5303, 4809, 5103
|
||||
' Standort = "VERAG CS"
|
||||
' End Select
|
||||
|
||||
' End If
|
||||
|
||||
'End If
|
||||
|
||||
|
||||
Dim BezugsNr = readVW_SumAVerwahrungsinfo
|
||||
|
||||
Dim Standort As String = ""
|
||||
If BezugsNr.Length > 4 Then
|
||||
Select Case BezugsNr.Substring(0, 4)
|
||||
Case 4803, 4809
|
||||
Standort = "VERAG AG"
|
||||
Case 5601
|
||||
Standort = "Unisped GmbH"
|
||||
Case 5701
|
||||
Standort = "AMBAR"
|
||||
Case 4810, 5103, 5901
|
||||
Standort = "VERAG GmbH"
|
||||
Case 5501
|
||||
Standort = "IMEX"
|
||||
Case Else
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
|
||||
Return "" 'keine passener Standort
|
||||
End Select
|
||||
|
||||
Dim GesSichRef = New VERAG_PROG_ALLGEMEIN.cGesamtsicherheitsReferenz(Standort)
|
||||
|
||||
'For Each pos In NCTS.EinzelErledigungsmeldung.Position
|
||||
|
||||
Dim saldo = GesSichRef.CalcSaldo()
|
||||
Dim filiale
|
||||
Dim abfertigungsnummer
|
||||
Dim dy_SendungsId = VWI.Transaktion.IOReferenz
|
||||
If dy_SendungsId IsNot Nothing AndAlso IsNumeric(dy_SendungsId) Then
|
||||
Dim SND As New VERAG_PROG_ALLGEMEIN.cSendungen(dy_SendungsId)
|
||||
If SND IsNot Nothing Then
|
||||
If SND.FilialenNr > 0 Then filiale = SND.FilialenNr
|
||||
If SND.AbfertigungsNr > 0 Then abfertigungsnummer = SND.AbfertigungsNr
|
||||
|
||||
'Verwahrung ANSCHREIBUNG
|
||||
Dim ANSCHREIBUNG As New cSicherheiten()
|
||||
|
||||
With ANSCHREIBUNG
|
||||
.gs_ATBNr = Vorpapiernummer
|
||||
.gs_posNr = 1
|
||||
.gs_datum = gestellungsdatum
|
||||
.gs_warenwert = SND.tblSnd_Warenwert
|
||||
.gs_sicherheitsbetrag = (SND.tblSnd_Warenwert * (GesSichRef.gsr_zollsatz / 100))
|
||||
.gs_standort = Standort
|
||||
.gs_art = "OPEN"
|
||||
'.gs_gsNr = ANSCHREIBUNG.gessicherheitID
|
||||
.gs_erstellungsdatum = Now()
|
||||
.gs_freitext = ""
|
||||
.gs_saldo = GesSichRef.gsr_Saldo
|
||||
.gs_atr = ""
|
||||
.gs_filialenNr = filiale
|
||||
.gs_abfertigungsnr = abfertigungsnummer
|
||||
'.gs_LKWKZ = SND.tblSnd_id
|
||||
'.gs_warenort = gessich.warenortID
|
||||
|
||||
End With
|
||||
End If
|
||||
|
||||
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
|
||||
|
||||
Catch ex As Exception
|
||||
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
|
||||
End Try
|
||||
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
|
||||
|
||||
End If
|
||||
|
||||
'VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
|
||||
|
||||
FORM.addDGVEinarbeitung("VW: Verwahrungsinfo", STATUS.dySt_BezugsNr)
|
||||
End If
|
||||
End If
|
||||
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
@@ -162,7 +200,7 @@ Public Class cWorker_Verwahrung
|
||||
|
||||
|
||||
|
||||
Shared Function readEZA_SumAErledigungsinformationVorpapier_005(FORM As frmDYNachrichtenVerarbeitung, d As String) As String
|
||||
Shared Function readEZA_SumAErledigungsinformationVorpapier_005(FORM As frmDYNachrichtenVerarbeitung, d As String, saveAbschreibung As Boolean) As String
|
||||
Try
|
||||
|
||||
Dim EZA As DAKOSY_Worker.SumAErledigungsinformationVorpapier_005.SumAErledigungsinformationVorpapierSIVRPTyp = DAKOSY_Worker.SumAErledigungsinformationVorpapier_005.SumAErledigungsinformationVorpapierSIVRPTyp.LoadFromFile(d)
|
||||
@@ -241,6 +279,25 @@ Public Class cWorker_Verwahrung
|
||||
|
||||
'Verwahrung ABSCHREIBUNG
|
||||
|
||||
If saveAbschreibung Then
|
||||
|
||||
Try
|
||||
|
||||
|
||||
|
||||
Catch ex As Exception
|
||||
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
|
||||
End Try
|
||||
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
End If
|
||||
|
||||
|
||||
'----------------------------------------------------------------
|
||||
|
||||
@@ -255,7 +312,7 @@ Public Class cWorker_Verwahrung
|
||||
End Try
|
||||
End Function
|
||||
|
||||
Shared Function readEZA_SumAErledigungsinformationCDXWare007(FORM As frmDYNachrichtenVerarbeitung, d As String) As String
|
||||
Shared Function readEZA_SumAErledigungsinformationCDXWare007(FORM As frmDYNachrichtenVerarbeitung, d As String, saveAbschreibung As Boolean) As String
|
||||
Try
|
||||
|
||||
Dim EZA As DAKOSY_Worker.SumAErledigungsinformationCDXWare_007.SumAErledigungsinformationCDXWareSCTyp = DAKOSY_Worker.SumAErledigungsinformationCDXWare_007.SumAErledigungsinformationCDXWareSCTyp.LoadFromFile(d)
|
||||
@@ -318,6 +375,25 @@ Public Class cWorker_Verwahrung
|
||||
|
||||
'Verwahrung ABSCHREIBUNG
|
||||
|
||||
If saveAbschreibung Then
|
||||
|
||||
Try
|
||||
|
||||
|
||||
|
||||
Catch ex As Exception
|
||||
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
|
||||
End Try
|
||||
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
End If
|
||||
|
||||
|
||||
'----------------------------------------------------------------
|
||||
|
||||
|
||||
Reference in New Issue
Block a user