neu

2020-11-27 22:57:00 +01:00
parent fa670231f7
commit 14a7113144
22 changed files with 872 additions and 58 deletions
--- a/initATLASAufschubkonten/VERAG_Interface/cVERAG_Interface.vb
+++ b/initATLASAufschubkonten/VERAG_Interface/cVERAG_Interface.vb
@@ -21,4 +21,5 @@ Public Class cVERAG_Interface_Settings
    Property acticeInterface_VERAG As Boolean = True
    Property acticeInterface_IMEX As Boolean = True

+    Property acticeInterface_GASTONSCHUL_OUT As Boolean = True
 End Class
--- a/initATLASAufschubkonten/VERAG_Interface/cVERAG_out_ncts.vb
+++ b/initATLASAufschubkonten/VERAG_Interface/cVERAG_out_ncts.vb
@@ -106,6 +106,20 @@
                        '    'copyNCTSToFTP_V2_0_1(NCTS_VERAG_OUT, o, vorsystem, filePath, destFile, UniqueId, checkAlreadyProvided, found)
                        '    Dim NCTS_VERAG_OUT = genVERAG_OUT_NCTS_FromDAKOSY_V2_0_2(NCTS_TMP, DY_TMP, UniqueId)
                        '    copyNCTSToFTP_V2_0_2(NCTS_VERAG_OUT, o, vorsystem, filePath, destFile, UniqueId, checkAlreadyProvided, found)
+                        Case "GASTON_SCHUL"
+                            Dim NCTS_VERAG_OUT = genVERAG_OUT_NCTS_FromDAKOSY_V2_0_2(NCTS_TMP, DY_TMP, UniqueId)
+
+                            Dim GASTON_SCHUL_EX As New VERAG_PROG_ALLGEMEIN.agsCustomsExchange.exchangeRequestType
+                            GASTON_SCHUL_EX.requestDateTime = Now
+                            GASTON_SCHUL_EX.creationDateTime = NCTS_VERAG_OUT.NCTS_Data.DatDeterminationLimit
+
+                            GASTON_SCHUL_EX.movementReferenceNumber = NCTS_VERAG_OUT.ProcessData.MRN
+                            GASTON_SCHUL_EX.dispatchCountry = NCTS_VERAG_OUT.NCTS_Data.DepartureCountry
+                            GASTON_SCHUL_EX.destinationCountry = NCTS_VERAG_OUT.NCTS_Data.DestinationCountry
+
+                            'filePath???
+                            cGASTON_SCHUL_Interface.copyNCTSToFTP_V1_0_0(GASTON_SCHUL_EX, o, vorsystem, "", destFile, UniqueId, checkAlreadyProvided, found)
+
                        Case Else
                            Dim NCTS_VERAG_OUT = genVERAG_OUT_NCTS_FromDAKOSY_V2_0_2(NCTS_TMP, DY_TMP, UniqueId)
                            copyNCTSToFTP_V2_0_2(NCTS_VERAG_OUT, o, vorsystem, filePath, destFile, UniqueId, checkAlreadyProvided, found)
@@ -115,7 +129,6 @@
                Next
            End If

-
            'If getFTP_Paths(GRN, IF_Obj) Then
            '    NCTS_VERAG_OUT = genVERAG_OUT_NCTS_FromDAKOSY(NCTS_TMP, DY_TMP, UniqueId)
            '    copyNCTSToFTP(NCTS_VERAG_OUT, IF_Obj, vorsystem, filePath, destFile, UniqueId, checkAlreadyProvided)
@@ -317,6 +330,7 @@

    End Sub

+
    Shared Function copyFileFTP_VERAGncts_EZOLL_ByBezugsNr(LRN As String, ISett As cVERAG_Interface_Settings) As Boolean
        cVERAG_Interface_Settings = ISett
        Dim AnmId = SQL.getValueTxtBySql("SELECT TOP 1 AnmId  FROM zsAnmRefs WHERE (VorgangID = 'AV') AND (LRN = '" & LRN & "')", "EZOLL")
@@ -414,6 +428,7 @@
            End Select

            If cVERAG_Interface_Settings.acticeInterface_EKOL AndAlso isFTP_EKOL_NCTS() Then IF_Obj.Add(New cVERAG_InterfaceSharedObjects("\\ftps.verag.ag\FTP\EKOL\OUT\", "EKOL"))
+            If cVERAG_Interface_Settings.acticeInterface_GASTONSCHUL_OUT AndAlso ifGASTON_SCHUL() Then IF_Obj.Add(New cVERAG_InterfaceSharedObjects("\\ftps.verag.ag\FTP\GASTON_SCHUL\OUT\", "GASTON_SCHUL"))
            'If cVERAG_Interface_Settings.acticeInterface_TEST AndAlso isFTP_TEST_NCTS() Then IF_Obj.Add(New cVERAG_InterfaceSharedObjects("\\ftps.verag.ag\FTP\TEST\OUT\", "TEST"))

            Return True
@@ -449,6 +464,23 @@
        Return False
    End Function

+
+
+
+    Shared Function ifGASTON_SCHUL() As Boolean
+        Try
+            If GLO_SND IsNot Nothing Then ' FRÄCHTER,AVISIERER
+                If GLO_SND.tblSnd_NCTSVerzollungsadresse.Contains("GASTON SCHUL") Then
+                    Return True
+                End If
+            End If
+
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & vbNewLine, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+        End Try
+        Return False
+    End Function
+
    Shared Function isFTP_TEST_NCTS() As Boolean
        Try
            If GLO_AVISO IsNot Nothing Then ' AndAlso GLO_AVISO.Frächter_KdNr > 0 Then ' FRÄCHTER,AVISIERER
@@ -2078,3 +2110,59 @@

 End Class

+Class cGASTON_SCHUL_Interface
+
+
+    Shared Sub copyNCTSToFTP_V1_0_0(ByRef GS_OUT As VERAG_PROG_ALLGEMEIN.agsCustomsExchange.exchangeRequestType, IF_Obj As cVERAG_InterfaceSharedObjects, ByRef vorsystem As String, ByRef filePath As String, ByRef destFile As String, ByRef UniqueId As String, Optional checkAlreadyProvided As Boolean = True, ByRef Optional found As Boolean = False)
+        If GS_OUT IsNot Nothing AndAlso Not cVERAG_out_ncts.alreadyProvidedInInterface(GS_OUT.movementReferenceNumber, "OUT", "0", vorsystem, IF_Obj.CooName, checkAlreadyProvided) Then
+            If genXMLFile_V1_0_0(GS_OUT, filePath, vorsystem, UniqueId) <> "" Then
+                frmStartOptions.copyFile(filePath, IF_Obj.FTP_Path, destFile)
+                If IO.File.Exists(destFile) Then
+                    cVERAG_out_ncts.insertFTPLOG(destFile, IF_Obj.CooName, GS_OUT.movementReferenceNumber, "OUT", "0", vorsystem)
+                    found = True
+                Else
+                    Try
+                        VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Datei existiert nicht: " & destFile, "", "copyNCTSToFTP",,,,, GS_OUT.movementReferenceNumber)
+                    Catch
+                        VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Datei existiert nicht: " & destFile, "", "copyNCTSToFTP")
+                    End Try
+                End If
+            End If
+        End If
+
+    End Sub
+
+    Shared Function genXMLFile_V1_0_0(GS_OUT As VERAG_PROG_ALLGEMEIN.agsCustomsExchange.exchangeRequestType, ByRef XMLFilePath As String, Code As String, UniqueId As String) As String
+        Try
+            If XMLFilePath = "" Then
+                Dim dir = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "ZOLL_SCHNITTSTELLEN\GASTON_SCHUL\OUT\" & Now.Year & "\" & Now.ToShortDateString & "\"
+                If Not IO.Directory.Exists(dir) Then IO.Directory.CreateDirectory(dir)
+                XMLFilePath = dir & "GASTON_SCHUL_OUT_" & Now.ToString("ddMMyyyHHmmss") & "_" & Code & "_" & UniqueId & ".xml"
+            End If
+            If GS_OUT IsNot Nothing Then
+                GS_OUT.SaveToFile(XMLFilePath)
+                removeTypeFromXML(XMLFilePath) ' Type-Attribute entfernen
+            End If
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & vbNewLine, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+        End Try
+        Return XMLFilePath
+
+    End Function
+    Shared Function removeTypeFromXML(XMLFilePath) As String
+        Try
+            Dim fileContents = IO.File.ReadAllText(XMLFilePath)
+            fileContents = fileContents.Replace(" xsi:type=""xsd:string""", "")
+            fileContents = fileContents.Replace(" xsi:type=""xsd:dateTime""", "")
+            fileContents = fileContents.Replace(" xsi:type=""xsd:decimal""", "")
+            fileContents = fileContents.Replace(" xsi:type=""xsd:int""", "")
+            IO.File.WriteAllText(XMLFilePath, fileContents)
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & vbNewLine, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+        End Try
+        Return XMLFilePath
+    End Function
+
+
+
+End Class