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
|
||||
|
||||
|
||||
'----------------------------------------------------------------
|
||||
|
||||
|
||||
@@ -17,6 +17,7 @@ Public Class frmDYNachrichtenVerarbeitung
|
||||
Dim BOX_VERSION = "10"
|
||||
|
||||
Dim Dateiname = ""
|
||||
Public saveVerwahrung As Boolean = False
|
||||
|
||||
Sub New()
|
||||
|
||||
@@ -405,7 +406,7 @@ Public Class frmDYNachrichtenVerarbeitung
|
||||
If Not found And cGetMsgType.isNCTS_SumAVerwahrungsinfo(doc, VERSION) Then
|
||||
Select Case VERSION
|
||||
Case False
|
||||
Case Else : If cWorker_Verwahrung.readVW_SumAVerwahrungsinfo(Me, d) <> "" Then found = True
|
||||
Case Else : If cWorker_Verwahrung.readVW_SumAVerwahrungsinfo(Me, d, saveVerwahrung) <> "" Then found = True
|
||||
End Select
|
||||
End If
|
||||
|
||||
@@ -413,7 +414,7 @@ Public Class frmDYNachrichtenVerarbeitung
|
||||
'VW: SumAErledigungsinformationVorpapier
|
||||
If Not found And cGetMsgType.isEZA_SumAErledigungsinformationVorpapier(doc, VERSION) Then
|
||||
Select Case VERSION
|
||||
Case "005" : If cWorker_Verwahrung.readEZA_SumAErledigungsinformationVorpapier_005(Me, d) <> "" Then found = True ' --> TEIL DER VERWAHRUNG
|
||||
Case "005" : If cWorker_Verwahrung.readEZA_SumAErledigungsinformationVorpapier_005(Me, d, saveVerwahrung) <> "" Then found = True ' --> TEIL DER VERWAHRUNG
|
||||
Case "004" : If readEZA_SumAErledigungsinformationVorpapier_004(d) <> "" Then found = True
|
||||
Case Else : If readEZA_SumAErledigungsinformationVorpapier(d) <> "" Then found = True
|
||||
End Select
|
||||
@@ -424,7 +425,7 @@ Public Class frmDYNachrichtenVerarbeitung
|
||||
If Not found And cGetMsgType.isEZA_SumAErledigungsinformationCDXWare(doc, VERSION) Then
|
||||
Select Case VERSION
|
||||
Case False
|
||||
Case Else : If cWorker_Verwahrung.readEZA_SumAErledigungsinformationCDXWare007(Me, d) <> "" Then found = True
|
||||
Case Else : If cWorker_Verwahrung.readEZA_SumAErledigungsinformationCDXWare007(Me, d, saveVerwahrung) <> "" Then found = True
|
||||
End Select
|
||||
End If
|
||||
|
||||
|
||||
@@ -435,7 +435,7 @@ Public Class frmNachrichtenVerarbeitung_MDM_divers
|
||||
|
||||
If True Then 'Not System.IO.Directory.Exists(zielpfad & "Invoice_PDF\" & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\") Then System.IO.Directory.CreateDirectory(zielpfad & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\")
|
||||
|
||||
If fi.Name.ToString.StartsWith("AP") Then
|
||||
If fi.Name.ToString.StartsWith("AP") AndAlso fi.Name.Contains("ZUGFERD") Then
|
||||
|
||||
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("MDM", "MDM_DATEN", "UTA", Now.Year, Now.ToString("yyyyMMdd"), frmStartOptions.getFileName(d))
|
||||
|
||||
@@ -455,7 +455,7 @@ Public Class frmNachrichtenVerarbeitung_MDM_divers
|
||||
|
||||
Dim invoiceNr As String = ""
|
||||
Dim invoiceDate As String = ""
|
||||
Dim UTA_Beleg_ID As String = ""
|
||||
Dim Kundenummer As Integer
|
||||
Dim doc = New Spire.Pdf.PdfDocument()
|
||||
doc.LoadFromFile(fi.FullName)
|
||||
|
||||
@@ -475,7 +475,27 @@ Public Class frmNachrichtenVerarbeitung_MDM_divers
|
||||
If node.HasChildNodes Then
|
||||
For Each element As XmlElement In node.ChildNodes
|
||||
If element.Name = "ram:ID" AndAlso element.InnerText <> "" Then invoiceNr = element.InnerText 'Rechnungsnummer
|
||||
If element.Name = "ram:IssueDateTime" AndAlso element.InnerText <> "" Then invoiceDate = element.InnerText
|
||||
If element.Name = "ram:IssueDateTime" AndAlso element.InnerText <> "" Then invoiceDate = element.InnerText 'Rechnungsdatum
|
||||
|
||||
Next
|
||||
|
||||
count = count + 1
|
||||
|
||||
End If
|
||||
Next
|
||||
|
||||
End If
|
||||
|
||||
If docxml.GetElementsByTagName("ram:ApplicableHeaderTradeAgreement").Count > 0 Then
|
||||
Dim count As Integer = 1
|
||||
For Each node As XmlElement In docxml.GetElementsByTagName("ram:ApplicableHeaderTradeAgreement")
|
||||
If node.HasChildNodes Then
|
||||
For Each element As XmlElement In node.ChildNodes
|
||||
|
||||
If element.Name = "ram:BuyerReference" Then
|
||||
Kundenummer = CInt(element.InnerText) 'Kundennummer
|
||||
Exit For
|
||||
End If
|
||||
|
||||
Next
|
||||
|
||||
@@ -488,13 +508,13 @@ Public Class frmNachrichtenVerarbeitung_MDM_divers
|
||||
|
||||
End If
|
||||
End If
|
||||
found = True
|
||||
If invoiceNr <> "" AndAlso invoiceDate <> "" AndAlso Kundenummer > 0 Then
|
||||
|
||||
If UTA_Beleg_ID <> "" Then
|
||||
'TO DO -> ÄNDERN----------------------
|
||||
If SQL.doSQL("Update [tblUTAImportNew] SET [daId]='" & DS.da_id & "' where [UTA_Beleg_ID] = '" & UTA_Beleg_ID & "' ", "FMZOLL") Then
|
||||
If SQL.doSQL("Update [tblUTAImportNew] SET [daId]='" & DS.da_id & "' where [Rechnungsnummer_pro_Lieferland] = '" & invoiceNr & "' AND cast(Rechnungsdatum as Date) = '" & invoiceDate & "' AND Kundennummer =" & Kundenummer, "FMZOLL") Then
|
||||
frmStartOptions.moveFile_DateBack(d, zielpfad & "Invoice_PDF\" & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\")
|
||||
cntDatenEingelesen += 1
|
||||
End If
|
||||
'TO DO -> ÄNDERN----------------------
|
||||
End If
|
||||
|
||||
|
||||
@@ -550,6 +570,7 @@ Public Class frmNachrichtenVerarbeitung_MDM_divers
|
||||
If DS.uploadDataToDATENSERVER(d,,,,,, True) Then
|
||||
If SQL.doSQL("Update [tblIDSInvoicesNew] SET [daId]='" & DS.da_id & "' where [DocumentName] = '" & DS.da_name & "' ", "FMZOLL") Then
|
||||
frmStartOptions.moveFile_DateBack(d, zielpfad & "Invoice_PDF\" & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\")
|
||||
cntDatenEingelesen += 1
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
1134
initATLASAufschubkonten/frmStartOptions.Designer.vb
generated
1134
initATLASAufschubkonten/frmStartOptions.Designer.vb
generated
File diff suppressed because it is too large
Load Diff
@@ -2761,6 +2761,7 @@ Public Class frmStartOptions
|
||||
Me.Visible = False
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
|
||||
Dim f As New frmDYNachrichtenVerarbeitung
|
||||
f.saveVerwahrung = cbxGestellungspeichern.Checked
|
||||
f.ShowDialog()
|
||||
Me.Visible = True
|
||||
End Sub
|
||||
|
||||
Reference in New Issue
Block a user