Dakosy, cWorkerVerwahrung (nur Test), cPLOSE

MDM_Worker/cPLOSE.vb

@@ -551,8 +551,9 @@ Imports System.Data.SqlClient
                     FROM [tblPLOSE_Details]  INNER JOIN Adressen on PLOSEKundenNr=plose_POLSEKundennummer
                         INNER JOIN [tblPLOSE_Produktbeschreibung] ON [plp_ProductCode]=[plose_ProduktCode]
                     WHERE cast(plose_RechnungsDatum as date) between @von and @bis and AdressenNr=@KundenNr
-                        AND plose_LieferantCode IN (0,1,7) AND plp_Land ='IT'
+                        AND plose_LieferantCode IN (0,1,7) --AND plp_Land ='IT' ", "FMZOLL",, list) 'warum nur IT???
-                ", "FMZOLL",, list)
+
+
 
         Catch ex As Exception
             VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)

initATLASAufschubkonten/cWorker_Verwahrung.vb

@@ -1,13 +1,4 @@
-Imports System.Globalization
+Imports VERAG_PROG_ALLGEMEIN
-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
 
 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()
 
-                '----------------------------------------------------------------
+                If saveVerwahrung Then
-                '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
 
                     '----------------------------------------------------------------
+                    VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True
 
-                Catch ex As Exception
+                    Try
 
-                    'VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
+                        ''sonderfälle lt. Mestan
-                End Try
+                        '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
+
 
                 '----------------------------------------------------------------
 

initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb

@@ -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
 

initATLASAufschubkonten/frmNachrichtenVerarbeitung_MDM_divers.vb

@@ -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
+                                                        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
-                                                        'TO DO -> ÄNDERN----------------------
-                                                        If SQL.doSQL("Update [tblUTAImportNew] SET [daId]='" & DS.da_id & "' where [UTA_Beleg_ID] = '" & UTA_Beleg_ID & "'  ", "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
 

initATLASAufschubkonten/frmStartOptions.vb

@@ -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