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

neu

Browse Source
This commit is contained in:
Andreas Luxbauer
2020-03-12 14:47:52 +01:00
parent a6964d7082
commit 3c0d99a279
44 changed files with 8275 additions and 437 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1943
cNCTSPartnerWorker/MAVI/CC015B_VersandanmeldungFinal/CC015B.xsd Normal file
View File

File diff suppressed because it is too large Load Diff

144
cNCTSPartnerWorker/MAVI/cMAVIFunctions.vb Normal file
View File

@@ -0,0 +1,144 @@
Imports Renci.SshNet
Imports System.IO
Public Class cMAVIFunctions
'Shared Function send_Data_To_Dakosy_FTP(file, dySt_BezugsNr, dy_Id)
' Try
' If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ZOLL_DakosyZA_Senden", "AVISO") Then
' MsgBox("Sie haben keine Sendeberechtigung.")
' Return False
' End If
' If Not IO.File.Exists(file) Then Return False
' Dim F As New System.IO.FileInfo(file)
' Dim DY_server = ""
' Dim DY_name = ""
' Dim DY_pwd = ""
' Dim DY_port = ""
' Dim DY_PFAD_IN = ""
' getSFTPLoginData(DY_server, DY_name, DY_pwd, DY_port, DY_PFAD_IN, "")
' Dim ConnectionInfo As New ConnectionInfo(DY_server, DY_port, DY_name, New PasswordAuthenticationMethod(DY_name, DY_pwd))
' Using client = New SftpClient(ConnectionInfo)
' client.Connect()
' 'client.Create(file, file)
' client.ChangeDirectory(DY_PFAD_IN)
' If IO.File.Exists(file) Then
' 'MsgBox(file)
' Using uplfileStream = System.IO.File.OpenRead(file)
' client.UploadFile(uplfileStream, "." & F.Name, True)
' client.RenameFile("." & F.Name, F.Name)
' End Using
' client.Disconnect()
' Else
' MsgBox("Sendedatei nicht gefunden!")
' End If
' End Using
' Dim STATUS As New DAKOSY_Worker.cDakosy_Statusmeldungen
' STATUS.dySt_BezugsNr = dySt_BezugsNr
' STATUS.dySt_artMitteilung = "VERAG_SND"
' STATUS.dySt_dyArt = "" '"NCTS" 'T1/T2
' STATUS.dySt_status = DAKOSY_Worker.cDY_Statusliste.S_03
' 'STATUS.dySt_ergCode = "ANR"
' STATUS.dySt_ergCode = "SND"
' STATUS.dySt_ergMitteilung = "An Dakosy gesendet"
' STATUS.dySt_ergZeitpunkt = Now
' STATUS.dySt_dyId = dy_Id
' STATUS.SAVE()
' Return True
' Catch ex As Exception
' MsgBox(ex.Message & ex.StackTrace)
' Return False
' End Try
'End Function
'Shared Function send_Data_To_Dakosy_FTP(file, Optional misc = False)
' Try
' If Not IO.File.Exists(file) Then Return False
' Dim F As New System.IO.FileInfo(file)
' Dim DY_server = ""
' Dim DY_name = ""
' Dim DY_pwd = ""
' Dim DY_port = ""
' Dim DY_PFAD_IN = ""
' getSFTPLoginData(DY_server, DY_name, DY_pwd, DY_port, DY_PFAD_IN, "")
' Dim ConnectionInfo As New ConnectionInfo(DY_server, DY_port, DY_name, New PasswordAuthenticationMethod(DY_name, DY_pwd))
' Using client = New SftpClient(ConnectionInfo)
' client.Connect()
' 'client.Create(file, file)
' If misc Then
' client.ChangeDirectory(DY_PFAD_IN.Replace("gebox", "misc"))
' Else
' client.ChangeDirectory(DY_PFAD_IN)
' End If
' If IO.File.Exists(file) Then
' 'MsgBox(file)
' Using uplfileStream = System.IO.File.OpenRead(file)
' client.UploadFile(uplfileStream, "." & F.Name, True)
' client.RenameFile("." & F.Name, F.Name)
' End Using
' client.Disconnect()
' Else
' MsgBox("Sendedatei nicht gefunden!")
' End If
' End Using
' Return True
' Catch ex As Exception
' MsgBox(ex.Message & ex.StackTrace)
' Return False
' End Try
'End Function
Shared Sub getSFTPLoginData(ByRef NCTSTR_server, ByRef NCTSTR_name, ByRef NCTSTR_pwd, ByRef NCTSTR_port, ByRef NCTSTR_PFAD_IN, ByRef NCTSTR_PFAD_OUT)
NCTSTR_server = cMavi_Paramter.GET_PARAM_ByName("PLOSE_FTP_SERVER", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM)
NCTSTR_name = cMavi_Paramter.GET_PARAM_ByName("PLOSE_FTP_NAME", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM)
NCTSTR_pwd = cMavi_Paramter.GET_PARAM_ByName("PLOSE_FTP_PASSWORD", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM)
NCTSTR_port = cMavi_Paramter.GET_PARAM_ByName("PLOSE_FTP_PORT", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM)
NCTSTR_PFAD_IN = "in/"
NCTSTR_PFAD_OUT = "out/"
End Sub
Shared Function getDefaultFolder_SEND() As String
Try
getDefaultFolder_SEND = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\" & If(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "TESTSYSTEM", "ECHTSYSTEM") & "\Ausgang_Kundendaten\" & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\" ' Path.GetTempPath
If Not IO.Directory.Exists(getDefaultFolder_SEND) Then
IO.Directory.CreateDirectory(getDefaultFolder_SEND)
End If
Catch ex As Exception
Try
getDefaultFolder_SEND = "C:\TEMP\" ' Path.GetTempPath
If Not IO.Directory.Exists(getDefaultFolder_SEND) Then
IO.Directory.CreateDirectory(getDefaultFolder_SEND)
End If
Catch ex2 As Exception
MsgBox(ex2.Message & ex2.StackTrace)
getDefaultFolder_SEND = ""
End Try
End Try
End Function
End Class

28
cNCTSPartnerWorker/MAVI/cMAVIGetMsgType.vb Normal file
View File

@@ -0,0 +1,28 @@

Imports System.Xml
Imports System.IO
Public Class cMAVIGetMsgType
Shared Function isTRNCTS_VersandanmeldungXML_CC015B(doc As XmlDocument) As Boolean
If doc.HasChildNodes Then
If doc.GetElementsByTagName("CC015B").Count > 0 Then
Return True
End If
End If
Return False
End Function
Shared Function isTRNCTS_BestaetigungZollXML_CC029B(doc As XmlDocument) As Boolean
If doc.HasChildNodes Then
If doc.GetElementsByTagName("CC029B").Count > 0 Then
Return True
End If
End If
Return False
End Function
End Class

8
cNCTSPartnerWorker/MAVI/cMavi_Paramter.vb Normal file
View File

@@ -0,0 +1,8 @@

Public Class cMavi_Paramter
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 [tblMAVI_Paramter] WHERE [Param_name]='" & tcParam_name & "'", , , SQL.GetNewOpenConnectionFMZOLL_SYSTEM(TESTSYSTEM))
End Function
End Class