Verwarhung
This commit is contained in:
@@ -1,7 +1,4 @@
|
||||
Imports com.sun.org.apache.bcel.internal.generic
|
||||
Imports DocumentFormat.OpenXml.Wordprocessing
|
||||
Imports Spire.Pdf
|
||||
Imports VERAG_PROG_ALLGEMEIN
|
||||
Imports VERAG_PROG_ALLGEMEIN
|
||||
|
||||
Public Class cWorker_Verwahrung
|
||||
Public Shared Dateiname = ""
|
||||
@@ -99,15 +96,15 @@ Public Class cWorker_Verwahrung
|
||||
Dim Standort As String = ""
|
||||
If BezugsNr.Length > 4 Then
|
||||
Select Case BezugsNr.Substring(0, 4)
|
||||
Case 4803, 4809
|
||||
Case "4803", "4809"
|
||||
Standort = "VERAG AG"
|
||||
'Case 5601
|
||||
' Standort = "UNISPED GmbH"
|
||||
'Case 5701
|
||||
' Standort = "AMBAR GmbH"
|
||||
Case 4810, 5103, 5901
|
||||
Case "4810", "5103", "5901"
|
||||
Standort = "VERAG GmbH"
|
||||
Case 5501
|
||||
Case "5501"
|
||||
Standort = "IMEX"
|
||||
Case Else
|
||||
GoTo Anzeige
|
||||
@@ -151,10 +148,8 @@ Public Class cWorker_Verwahrung
|
||||
|
||||
|
||||
Dim GesSichRef = New VERAG_PROG_ALLGEMEIN.cAufschubKonten(Standort)
|
||||
|
||||
Dim saldo = GesSichRef.CalcSaldo()
|
||||
|
||||
|
||||
If SND.FilialenNr > 0 Then filiale = SND.FilialenNr
|
||||
If SND.AbfertigungsNr > 0 Then abfertigungsnummer = SND.AbfertigungsNr
|
||||
|
||||
@@ -208,6 +203,7 @@ Public Class cWorker_Verwahrung
|
||||
.gs_freitext = ""
|
||||
.gs_saldo = saldo
|
||||
.gs_atr = ""
|
||||
.gs_systemuser = "DAKOSY-AUTO"
|
||||
.gs_zollsatz = GesSichRef.brgakto_gs_zollsatz
|
||||
.gs_avisoId = SND.tblSnd_AvisoID
|
||||
|
||||
@@ -237,7 +233,7 @@ Public Class cWorker_Verwahrung
|
||||
|
||||
Anzeige:
|
||||
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)
|
||||
@@ -252,6 +248,8 @@ Anzeige:
|
||||
|
||||
Dim EZA As DAKOSY_Worker.SumAErledigungsinformationVorpapier_005.SumAErledigungsinformationVorpapierSIVRPTyp = DAKOSY_Worker.SumAErledigungsinformationVorpapier_005.SumAErledigungsinformationVorpapierSIVRPTyp.LoadFromFile(d)
|
||||
Dim ART = ""
|
||||
Dim RegistriernummerATLAS = ""
|
||||
|
||||
' Dim details = ""
|
||||
|
||||
Dim zp As Object = Nothing
|
||||
@@ -319,40 +317,133 @@ Anzeige:
|
||||
If DY_TMP IsNot Nothing Then STATUS.dySt_dyId = DY_TMP.dy_Id
|
||||
STATUS.SAVE()
|
||||
|
||||
|
||||
|
||||
'----------------------------------------------------------------
|
||||
|
||||
|
||||
'Verwahrung ABSCHREIBUNG
|
||||
|
||||
If saveAbschreibung Then
|
||||
|
||||
Try
|
||||
Dim BezugsNr = readEZA_SumAErledigungsinformationVorpapier_005
|
||||
|
||||
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 GmbH"
|
||||
Case "4810", "5103", "5901"
|
||||
Standort = "VERAG GmbH"
|
||||
Case "5501"
|
||||
Standort = "IMEX"
|
||||
Case Else
|
||||
GoTo Anzeige
|
||||
End Select
|
||||
|
||||
Dim filiale = IIf(BezugsNr.Length > 4, BezugsNr.Substring(0, 4), "")
|
||||
Dim abfertigungsnummer = IIf(BezugsNr.Length >= 14, BezugsNr.Substring(5, 8), "")
|
||||
Dim dy_SendungsId = EZA.Transaktion.IOReferenz
|
||||
If filiale <> "" AndAlso abfertigungsnummer <> "" AndAlso IsNumeric(filiale) AndAlso IsNumeric(abfertigungsnummer) Then
|
||||
Dim SND = VERAG_PROG_ALLGEMEIN.cSendungen.LOADByFilialenNrAbfertigungsNr(filiale, abfertigungsnummer)
|
||||
|
||||
If SND IsNot Nothing AndAlso SND.tblSnd_Abfertigungsart_ID = 44 Then
|
||||
|
||||
Dim existingEntryID As Integer = 0
|
||||
existingEntryID = CInt((New SQL).getValueTxtBySql("Select count(*) From [tblGesamtsicherheitsPositionen] inner join [tblGesamtsicherheit] on gs_gsId = gsp_gsId where [gs_ATBNr] = '" & RegistriernummerATLAS & "' order by gs_datum desc"))
|
||||
If existingEntryID > 0 Then GoTo Anzeige
|
||||
existingEntryID = CInt((New SQL).getValueTxtBySql("Select count(*) From [tblGesamtsicherheitsPositionen] inner join [tblGesamtsicherheit] on gs_gsId = gsp_gsId where ([gs_filialenNr] = '" & SND.FilialenNr & "' and [gs_abfertigungsNr] = " & SND.AbfertigungsNr & " ) or gs_avisoId = '" & SND.tblSnd_AvisoID & "' order by gs_datum desc"))
|
||||
If existingEntryID > 0 Then GoTo Anzeige
|
||||
|
||||
Dim gsNr As Integer = 0
|
||||
gsNr = CInt((New SQL).getValueTxtBySql("Select gsNr From [tblGesamtsicherheit] where [gs_ATBNr] = '" & RegistriernummerATLAS & "' order by gs_datum desc"))
|
||||
If gsNr > 0 Then GoTo Insert
|
||||
gsNr = CInt((New SQL).getValueTxtBySql("Select gsNr From [tblGesamtsicherheit] where ([gs_filialenNr] = '" & SND.FilialenNr & "' and [gs_abfertigungsNr] = " & SND.AbfertigungsNr & " ) or gs_avisoId = '" & SND.tblSnd_AvisoID & "' order by gs_datum desc"))
|
||||
If gsNr > 0 Then
|
||||
GoTo Insert
|
||||
Else
|
||||
GoTo Anzeige
|
||||
End If
|
||||
|
||||
|
||||
''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
|
||||
|
||||
Insert:
|
||||
|
||||
Dim GesSichRef = New VERAG_PROG_ALLGEMEIN.cAufschubKonten(Standort)
|
||||
Dim saldo = GesSichRef.CalcSaldo()
|
||||
|
||||
|
||||
Try
|
||||
|
||||
|
||||
Dim SicherheitsPos As New cGesamtsicherheitsPositionen()
|
||||
With SicherheitsPos
|
||||
'.gsp_gsId = gs_gsId
|
||||
''.gsp_gspPosId = Me.getLatestPosNr(currentSicherheit.gs_gsNr, ) + 1
|
||||
'.gsp_gspPosId = OPEN.gs_posNr
|
||||
'.gsp_warenwert = Double.Parse(txtPosWarenwert.Text)
|
||||
'.gsp_sicherheitsbetrag = Double.Parse(txtPosSicherheitsbetrag.Text)
|
||||
'.gsp_freitext = txtPosFreitext.Text
|
||||
'.gsp_filialenNr = currentSicherheit.gs_filialenNr
|
||||
'.gsp_art = "CLOSE"
|
||||
.gsp_gsNr = gsNr
|
||||
'.gsp_abfertigungsNr = currentSicherheit.gs_abfertigungsnr
|
||||
.gsp_datum = 'DateTimeString2DateTimeKonvertinator(txtPosDat.Text, txtPosTime.Text)
|
||||
.gsp_erstellungsdatum = DateTime.Now
|
||||
.gsp_ust = 'currentSicherheit.gs_ust
|
||||
.gsp_ATCNr = 'txtPositionenCRN.Text
|
||||
.gsp_avisoId = 'Me.avisoID'
|
||||
.gsp_systemuser = "DAKOSY-AUTO"
|
||||
End With
|
||||
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True
|
||||
SicherheitsPos.SAVE()
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
|
||||
|
||||
Catch ex As Exception
|
||||
|
||||
|
||||
End Try
|
||||
|
||||
|
||||
|
||||
Catch ex As Exception
|
||||
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
|
||||
End Try
|
||||
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
|
||||
End If
|
||||
|
||||
Anzeige:
|
||||
|
||||
FORM.addDGVEinarbeitung("VW: Erledigungsinformation-Vorpapier", STATUS.dySt_BezugsNr)
|
||||
End If
|
||||
|
||||
|
||||
'----------------------------------------------------------------
|
||||
|
||||
|
||||
|
||||
|
||||
FORM.addDGVEinarbeitung("VW: Erledigungsinformation-Vorpapier", STATUS.dySt_BezugsNr)
|
||||
End If
|
||||
|
||||
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
readEZA_SumAErledigungsinformationVorpapier_005 = ""
|
||||
|
||||
Reference in New Issue
Block a user