edv/ADMIN
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

worker_verwahrung, Plose

Browse Source
This commit is contained in:
d.breimaier
2024-11-27 18:20:33 +01:00
parent eac8337ede
commit d4128175e4
2 changed files with 131 additions and 56 deletions
Download Patch File Download Diff File Expand all files Collapse all files

38
MDM_Worker/cPLOSE.vb
View File

@@ -1,8 +1,7 @@
 
Imports System.Data.SqlClient Imports System.Data.SqlClient
Imports System.Reflection Imports System.Reflection
Public Class cPLOSE
Public Class cPLOSE
Property plose_Id As Integer Property plose_Id As Integer
@@ -534,7 +533,7 @@ Imports System.Data.SqlClient
Public Shared Function UPDATE_ARCHIV(von As Date, bis As Date, KundenNr As Integer) As Boolean Public Shared Function UPDATE_ARCHIV(von As Date, bis As Date, KundenNr As Integer, UStVAn_ID As Integer) As Boolean
Try Try
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
@@ -542,12 +541,13 @@ Imports System.Data.SqlClient
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("von", von)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("von", von))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("bis", bis)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("bis", bis))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("KundenNr", KundenNr)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("KundenNr", KundenNr))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_ID", UStVAn_ID))
Return SQL.doSQLVarList(" Return SQL.doSQLVarList("
UPDATE [tblPLOSE_Details] UPDATE [tblPLOSE_Details]
set plose_Archiv=1, [plose_ArchiviertDatum]=GETDATE() set plose_Archiv=1, [plose_ArchiviertDatum]=GETDATE(), UStVAn_ID = @UStVAn_ID
FROM [tblPLOSE_Details] INNER JOIN Adressen on PLOSEKundenNr=plose_POLSEKundennummer FROM [tblPLOSE_Details] INNER JOIN Adressen on PLOSEKundenNr=plose_POLSEKundennummer
INNER JOIN [tblPLOSE_Produktbeschreibung] ON [plp_ProductCode]=[plose_ProduktCode] INNER JOIN [tblPLOSE_Produktbeschreibung] ON [plp_ProductCode]=[plose_ProduktCode]
WHERE cast(plose_RechnungsDatum as date) between @von and @bis and AdressenNr=@KundenNr WHERE cast(plose_RechnungsDatum as date) between @von and @bis and AdressenNr=@KundenNr
@@ -561,6 +561,33 @@ Imports System.Data.SqlClient
Return "" Return ""
End Function End Function
Public ANLAGEN
Dim Dateiname = ""
Public Function initImportPfade() As Boolean
ANLAGEN = cPLOSE.Paramter.GET_PARAM_ByName("ANLAGEN", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM)
Return True
End Function
Public Class Paramter
Shared apiSettingsloaded As Boolean = False
Shared SQL As New VERAG_PROG_ALLGEMEIN.SQL
Shared Function GET_PARAM_ByName(tcParam_name, TESTSYSTEM) As String
Return SQL.getValueTxtBySql("SELECT TOP 1 [Param_value] FROM [tblPartnersystem_Paramter] WHERE Param_system='PLOSE' AND [Param_name]='" & tcParam_name & "'", , , SQL.GetNewOpenConnectionFMZOLL_SYSTEM(TESTSYSTEM))
End Function
End Class
End Class End Class
Public Class cPLOSE_USTV_ANTR Public Class cPLOSE_USTV_ANTR
Property plose_RechnungsDatum As Object = Nothing ' VARCHAR(3) NULL, Property plose_RechnungsDatum As Object = Nothing ' VARCHAR(3) NULL,
@@ -583,3 +610,4 @@ Public Class cPLOSE_USTV_ANTR
End Sub End Sub
End Class End Class

147
initATLASAufschubkonten/cWorker_Verwahrung.vb
View File

@@ -1,4 +1,7 @@
Imports VERAG_PROG_ALLGEMEIN Imports com.sun.org.apache.bcel.internal.generic
Imports DocumentFormat.OpenXml.Wordprocessing
Imports Spire.Pdf
Imports VERAG_PROG_ALLGEMEIN
Public Class cWorker_Verwahrung Public Class cWorker_Verwahrung
Public Shared Dateiname = "" Public Shared Dateiname = ""
@@ -87,33 +90,10 @@ Public Class cWorker_Verwahrung
If saveVerwahrung Then If saveVerwahrung Then
'---------------------------------------------------------------- '----------------------------------------------------------------
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True
Try 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 BezugsNr = readVW_SumAVerwahrungsinfo
Dim Standort As String = "" Dim Standort As String = ""
@@ -122,73 +102,140 @@ Public Class cWorker_Verwahrung
Case 4803, 4809 Case 4803, 4809
Standort = "VERAG AG" Standort = "VERAG AG"
Case 5601 Case 5601
Standort = "Unisped GmbH" Standort = "UNISPED GmbH"
Case 5701 Case 5701
Standort = "AMBAR" Standort = "AMBAR GmbH"
Case 4810, 5103, 5901 Case 4810, 5103, 5901
Standort = "VERAG GmbH" Standort = "VERAG GmbH"
Case 5501 Case 5501
Standort = "IMEX" Standort = "IMEX"
Case Else Case Else
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False GoTo Anzeige
Return "" 'keine passener Standort
End Select End Select
Dim GesSichRef = New VERAG_PROG_ALLGEMEIN.cGesamtsicherheitsReferenz(Standort) Dim filiale = IIf(BezugsNr.Length > 4, BezugsNr.Substring(0, 4), "")
Dim abfertigungsnummer = IIf(BezugsNr.Length >= 14, BezugsNr.Substring(5, 8), "")
'For Each pos In NCTS.EinzelErledigungsmeldung.Position
Dim saldo = GesSichRef.CalcSaldo()
Dim filiale
Dim abfertigungsnummer
Dim dy_SendungsId = VWI.Transaktion.IOReferenz Dim dy_SendungsId = VWI.Transaktion.IOReferenz
If dy_SendungsId IsNot Nothing AndAlso IsNumeric(dy_SendungsId) Then If filiale <> "" AndAlso abfertigungsnummer <> "" AndAlso IsNumeric(filiale) AndAlso IsNumeric(abfertigungsnummer) Then
Dim SND As New VERAG_PROG_ALLGEMEIN.cSendungen(dy_SendungsId) Dim SND = VERAG_PROG_ALLGEMEIN.cSendungen.LOADByFilialenNrAbfertigungsNr(filiale, abfertigungsnummer)
If SND IsNot Nothing Then
If SND IsNot Nothing AndAlso SND.tblSnd_Abfertigungsart_ID = 44 Then
Dim existingEntry As Integer = 0
existingEntry = CInt((New SQL).getValueTxtBySql("Select count(*) from [tblGesamtsicherheit] where [gs_ATBNr] = '" & RegistriernummerATLAS & "' order by gs_datum desc"))
If existingEntry > 0 Then GoTo Anzeige
existingEntry = CInt((New SQL).getValueTxtBySql("Select count(*) from [tblGesamtsicherheit] where ([gs_filialenNr] = '" & SND.FilialenNr & "' and [gs_abfertigungsNr] = " & SND.AbfertigungsNr & " ) or gs_avisoId = '" & SND.tblSnd_AvisoID & "' order by gs_datum desc"))
If existingEntry > 0 Then GoTo Anzeige
''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 GesSichRef = New VERAG_PROG_ALLGEMEIN.cAufschubKonten(Standort)
Dim saldo = GesSichRef.CalcSaldo()
If SND.FilialenNr > 0 Then filiale = SND.FilialenNr If SND.FilialenNr > 0 Then filiale = SND.FilialenNr
If SND.AbfertigungsNr > 0 Then abfertigungsnummer = SND.AbfertigungsNr If SND.AbfertigungsNr > 0 Then abfertigungsnummer = SND.AbfertigungsNr
'Verwahrung ANSCHREIBUNG 'Verwahrung ANSCHREIBUNG
Dim ANSCHREIBUNG As New cSicherheiten() Dim ANSCHREIBUNG As New cSicherheiten()
Dim gsId As Integer
With ANSCHREIBUNG With ANSCHREIBUNG
.gs_ATBNr = Vorpapiernummer .gs_ATBNr = RegistriernummerATLAS
.gs_posNr = 1 .gs_posNr = 1
.gs_datum = gestellungsdatum .gs_datum = gestellungsdatum
.gs_warenwert = SND.tblSnd_Warenwert .gs_warenwert = IIf(SND.tblSnd_Warenwert IsNot Nothing AndAlso IsNumeric(SND.tblSnd_Warenwert), CDbl(SND.tblSnd_Warenwert), 0)
.gs_sicherheitsbetrag = (SND.tblSnd_Warenwert * (GesSichRef.gsr_zollsatz / 100)) .gs_sicherheitsbetrag = IIf(SND.tblSnd_Warenwert IsNot Nothing AndAlso IsNumeric(SND.tblSnd_Warenwert), CDbl(SND.tblSnd_Warenwert) * (GesSichRef.brgakto_gs_zollsatz / 100), 0)
.gs_standort = Standort .gs_standort = Standort
.gs_art = "OPEN" .gs_art = "OPEN"
'.gs_gsNr = ANSCHREIBUNG.gessicherheitID '.gs_gsNr = ANSCHREIBUNG.gessicherheitID
.gs_erstellungsdatum = Now() .gs_erstellungsdatum = Now()
.gs_freitext = "" .gs_freitext = ""
.gs_saldo = GesSichRef.gsr_Saldo .gs_saldo = saldo
.gs_atr = "" .gs_atr = ""
.gs_filialenNr = filiale .gs_filialenNr = filiale
.gs_abfertigungsnr = abfertigungsnummer .gs_abfertigungsnr = abfertigungsnummer
'.gs_LKWKZ = SND.tblSnd_id .gs_LKWKZ = SND.tblSnd_AvisoID
'.gs_warenort = gessich.warenortID '.gs_warenort = gessich.warenortID
'.grenzstelle = AVISO.Grenzstelle.ToString.Replace("WO_", "")
.gs_systemuser = "DAKOSY-AUTO"
.gs_zollsatz = GesSichRef.brgakto_gs_zollsatz
.gs_avisoId = SND.tblSnd_AvisoID
End With End With
End If
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True
gsId = ANSCHREIBUNG.SAVEOBJECT()
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
If posGestellung.Rows.Count > 1 Then
For i As Integer = 2 To posGestellung.Rows.Count
Dim ANSCHREIBUNG_POS As New cSicherheiten()
With ANSCHREIBUNG_POS
.gs_gsNr = gsId
.gs_ATBNr = RegistriernummerATLAS
.gs_posNr = i
.gs_datum = gestellungsdatum
.gs_warenwert = 0
.gs_sicherheitsbetrag = 0
.gs_standort = Standort
.gs_art = "OPEN"
.gs_erstellungsdatum = DateTime.Now
.gs_freitext = ""
.gs_saldo = saldo
.gs_atr = ""
.gs_zollsatz = GesSichRef.brgakto_gs_zollsatz
.gs_avisoId = SND.tblSnd_AvisoID
End With
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True
ANSCHREIBUNG.SAVE()
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
Next
End If
End If
End If End If
End If End If
Catch ex As Exception Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
End Try End Try
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
End If End If
Anzeige:
FORM.addDGVEinarbeitung("VW: Verwahrungsinfo", STATUS.dySt_BezugsNr) FORM.addDGVEinarbeitung("VW: Verwahrungsinfo", STATUS.dySt_BezugsNr)
End If End If