neu

VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/cATEZ_NCTS.vb

@@ -0,0 +1,172 @@
+Public Class HEAHEA
+    Public Property RefNumHEA4 As String
+    Public Property TypOfDecHEA24 As String
+    Public Property CouOfDesCodHEA30 As String
+    Public Property PlaOfLoaCodHEA46 As String
+    Public Property CouOfDisCodHEA55 As String
+    Public Property TraModAtBorHEA76 As String
+    Public Property IdeOfMeaOfTraAtDHEA78 As String
+    Public Property IdeOfMeaOfTraAtDHEA78LNG As String
+    Public Property NatOfMeaOfTraAtDHEA80 As String
+    Public Property IdeOfMeaOfTraCroHEA85 As String
+    Public Property IdeOfMeaOfTraCroHEA85LNG As String
+    Public Property NatOfMeaOfTraCroHEA87 As String
+    Public Property ConIndHEA96 As String
+    Public Property NCTSAccDocHEA601LNG As String
+    Public Property TotNumOfIteHEA305 As String
+    Public Property TotNumOfPacHEA306 As String
+    Public Property TotGroMasHEA307 As String
+    Public Property DecDatHEA383 As String
+    Public Property DecPlaHEA394 As String
+    Public Property DecPlaHEA394LNG As String
+    Public Property SecHEA358 As String
+    Public Property CodPlUnHEA357 As String
+    Public Property Tanker As String
+    Public Property ComRefNumHEA As String
+End Class
+
+Public Class REPREP
+    Public Property NamREP5 As String
+End Class
+
+Public Class GUAREFREF
+    Public Property GuaRefNumGRNREF1 As String
+    Public Property OthGuaRefREF4 As String
+    Public Property AccCodREF6 As String
+    Public Property CurREF8 As String
+    Public Property AmoConREF7 As String
+End Class
+
+Public Class GUAGUA
+    Public Property GuaTypGUA1 As String
+    Public Property GUAREFREF As GUAREFREF
+End Class
+
+Public Class TRACONCO1
+    Public Property NamCO17 As String
+    Public Property StrAndNumCO122 As String
+    Public Property PosCodCO123 As String
+    Public Property CitCO124 As String
+    Public Property CouCO125 As String
+    Public Property NADLNGCO As String
+    Public Property TINCO159 As String
+End Class
+
+Public Class CUSOFFDEPEPT
+    Public Property RefNumEPT1 As String
+End Class
+
+Public Class CUSOFFTRARNS
+    Public Property RefNumRNS1 As String
+    Public Property ArrTimTRACUS085 As String
+End Class
+
+Public Class CUSOFFDESEST
+    Public Property RefNumEST1 As String
+End Class
+
+Public Class PRODOCDC2
+    Public Property DocTypDC21 As String
+    Public Property DocRefDC23 As String
+    Public Property DocRefDCLNG As String
+    Public Property ComOfInfDC25 As String
+    Public Property ComOfInfDC25LNG As String
+End Class
+
+Public Class PREADMREFAR2
+    Public Property PreDocTypAR21 As String
+    Public Property PreDocRefAR26 As String
+    Public Property PreDocRefLNG As String
+    Public Property ComOfInfAR29 As String
+    Public Property ComOfInfAR29LNG As String
+End Class
+
+Public Class CONNR2
+    Public Property ConNumNR21 As String
+End Class
+
+Public Class PACGS2
+    Public Property MarNumOfPacGS21 As String
+    Public Property MarNumOfPacGS21LNG As String
+    Public Property KinOfPacGS23 As String
+    Public Property NumOfPacGS24 As String
+End Class
+
+Public Class TRACONCE2
+    Public Property NamCE27 As String
+    Public Property StrAndNumCE222 As String
+    Public Property PosCodCE223 As String
+    Public Property CitCE224 As String
+    Public Property CouCE225 As String
+    Public Property NADLNGGICE As String
+    Public Property TINCE259 As String
+End Class
+
+Public Class GOOITEGD
+    Public Property IteNumGDS7 As String
+    Public Property ComCodTarCodGDS10 As String
+    Public Property GooDesGDS23 As String
+    Public Property GooDesGDS23LNG As String
+    Public Property GroMasGDS46 As String
+    Public Property NetMasGDS48 As String
+    Public Property IhrBeyanNo As String
+    Public Property IhrBeyanTip As String
+    Public Property IhrBeyanParcali As String
+    Public Property PRODOCDC2 As PRODOCDC2()
+    Public Property PREADMREFAR2 As PREADMREFAR2
+    Public Property CONNR2 As CONNR2()
+    Public Property PACGS2 As PACGS2
+    Public Property CouOfDesGDS59 As String
+    Public Property CouOfDisGDS58 As String
+    Public Property TRACONCO2 As String
+    Public Property TRACONCE2 As TRACONCE2
+    Public Property TRACORSECGOO021 As String
+    Public Property TRACONSECGOO013 As String
+End Class
+
+Public Class ITI
+    Public Property CouOfRouCodITI1 As String
+End Class
+
+Public Class CARTRA100
+    Public Property NamCARTRA121 As String
+    Public Property StrAndNumCARTRA254 As String
+    Public Property PosCodCARTRA121 As String
+    Public Property CitCARTRA789 As String
+    Public Property CouCodCARTRA587 As String
+    Public Property NADCARTRA121 As String
+    Public Property TINCARTRA254 As String
+End Class
+
+Public Class TRACORSEC037
+    Public Property NamTRACORSEC041 As String
+    Public Property StrNumTRACORSEC043 As String
+    Public Property PosCodTRACORSEC042 As String
+    Public Property CitTRACORSEC038 As String
+    Public Property CouCodTRACORSEC039 As String
+    Public Property TRACORSEC037LNG As String
+    Public Property TINTRACORSEC044 As String
+End Class
+
+Public Class CC015B
+    Public Property RefId As String
+    Public Property MRNNumber As String
+    Public Property HEAHEA As HEAHEA
+    Public Property REPREP As REPREP
+    Public Property SEAINFSLI As String
+    Public Property GUAGUA As GUAGUA
+    Public Property TRACONCO1 As TRACONCO1
+    Public Property TRACONCE1 As String
+    Public Property CUSOFFDEPEPT As CUSOFFDEPEPT
+    Public Property CUSOFFTRARNS As CUSOFFTRARNS
+    Public Property CUSOFFDESEST As CUSOFFDESEST
+    Public Property GOOITEGDS As GOOITEGD()
+    Public Property ITI As ITI()
+    Public Property CARTRA100 As CARTRA100
+    Public Property TRACORSEC037 As TRACORSEC037
+    Public Property TRACONSEC029 As String
+End Class
+
+Public Class cATEZ_NCTS
+    Public Property CC015B As CC015B
+End Class

VERAG_PROG_ALLGEMEIN/Schnittstellen/VERAG/IN_SHIPPMENT/cVERAG_in_shippment.vb

@@ -151,7 +151,7 @@ Public Class cVERAG_in_shippment
     Public Function SAVE(Optional saveAll = True) As Boolean
         Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
 
-        Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblVERAG_in_shippment_Anmeldung WITH(updlock,serializable) WHERE in_sh_id=@in_sh_id) " &
+        Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblTR_Shipment WITH(updlock,serializable) WHERE in_sh_id=@in_sh_id) " &
                        " BEGIN " & getUpdateCmd() & " End " &
                        " Else " &
                        " BEGIN " & getInsertCmd() & " End " &
@@ -176,7 +176,7 @@ Public Class cVERAG_in_shippment
                 '  SICHERHEIT.Clear()
             End If
             Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
-                Using cmd As New SqlCommand("SELECT * FROM tblVERAG_in_shippment_Anmeldung WHERE in_sh_id=@in_sh_id  ", conn)
+                Using cmd As New SqlCommand("SELECT * FROM tblTR_Shipment WHERE in_sh_id=@in_sh_id  ", conn)
                     cmd.Parameters.AddWithValue("@in_sh_id", in_sh_id)
                     Dim dr = cmd.ExecuteReader()
                     If dr.Read Then
@@ -213,7 +213,7 @@ Public Class cVERAG_in_shippment
     '            'telanm_Status_KEWILL_Equivalent = status
     '            'telanm_Status = status
 
-    '            Return SQL.doSQLVarList(" UPDATE [tblVERAG_in_shippment_Anmeldung] SET telanm_Status_KEWILL_Equivalent=@telanm_Status_KEWILL_Equivalent,telanm_Status=@telanm_Status WHERE in_sh_id=@in_sh_id ", "FMZOLL", , list)
+    '            Return SQL.doSQLVarList(" UPDATE [tblTR_Shipment] SET telanm_Status_KEWILL_Equivalent=@telanm_Status_KEWILL_Equivalent,telanm_Status=@telanm_Status WHERE in_sh_id=@in_sh_id ", "FMZOLL", , list)
 
     '        Catch ex As Exception
     '            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
@@ -234,7 +234,7 @@ Public Class cVERAG_in_shippment
     '            'telanm_Status = status
     '            Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
 
-    '            Return SQL.doSQLVarList(" UPDATE [tblVERAG_in_shippment_Anmeldung] SET telanm_Status_KEWILL_Equivalent=@telanm_Status_KEWILL_Equivalent,telanm_Status=@telanm_Status WHERE in_sh_id=@in_sh_id ", "FMZOLL", , list)
+    '            Return SQL.doSQLVarList(" UPDATE [tblTR_Shipment] SET telanm_Status_KEWILL_Equivalent=@telanm_Status_KEWILL_Equivalent,telanm_Status=@telanm_Status WHERE in_sh_id=@in_sh_id ", "FMZOLL", , list)
 
     '        Catch ex As Exception
     '            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
@@ -282,7 +282,7 @@ Public Class cVERAG_in_shippment
                 End If
             Next
             str = str.Substring(0, str.Length - 1) 'wg. ','
-            Return (" UPDATE [tblVERAG_in_shippment_Anmeldung] SET " & str & " WHERE in_sh_id=@in_sh_id ")
+            Return (" UPDATE [tblTR_Shipment] SET " & str & " WHERE in_sh_id=@in_sh_id ")
 
         Catch ex As Exception
             VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
@@ -304,7 +304,7 @@ Public Class cVERAG_in_shippment
             Next
             str = str.Substring(0, str.Length - 1) 'wg. ','
             values = values.Substring(0, values.Length - 1) 'wg. ','
-            Return (" INSERT INTO tblVERAG_in_shippment_Anmeldung  (" & str & ") VALUES(" & values & ")  ")
+            Return (" INSERT INTO tblTR_Shipment  (" & str & ") VALUES(" & values & ")  ")
         Catch ex As Exception
             VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
         End Try

VERAG_PROG_ALLGEMEIN/Schnittstellen/cTherefore.vb

@@ -2,6 +2,10 @@
 Public Class cTherefore
 
     Shared Function saveFileTo_ImportFolder(Path As String, FilialeAbfertigungsNr As String, AvisoId As String, FirmaId As String, Optional deleteFileAfterImport As Boolean = False)
+        FilialeAbfertigungsNr = FilialeAbfertigungsNr.Replace(";", " ")
+        FilialeAbfertigungsNr = FilialeAbfertigungsNr.Replace("/", " ")
+        FilialeAbfertigungsNr = FilialeAbfertigungsNr.Replace("-", " ")
+        if FilialeAbfertigungsNr.Length> 30 then FilialeAbfertigungsNr=FilialeAbfertigungsNr.ToString.Substring(0,30)
         Select Case FirmaId
             Case 7
                 Return saveFileTo_ImportFolderCat(Path, FilialeAbfertigungsNr, AvisoId, "Atilla ab Juni 2011",, deleteFileAfterImport)