SDL Jetzt erst recht!
This commit is contained in:
262
SDL/cATLAS_FSS.vb
Normal file
262
SDL/cATLAS_FSS.vb
Normal file
@@ -0,0 +1,262 @@
|
||||
Imports System.Text
|
||||
Imports System.IO
|
||||
|
||||
Public Class cATLAS_FSS
|
||||
Dim trennzeichen As String = Chr(29)
|
||||
Dim mydocpath As String = My.Computer.FileSystem.SpecialDirectories.MyDocuments & "\VERAG\SDL\ATLAS_FSS"
|
||||
Dim enc As Encoding = System.Text.Encoding.ASCII '.GetEncoding(1252) '1252 = ANSI
|
||||
Dim serverpath = ""
|
||||
Dim serverpathOUT = ""
|
||||
Dim server As String = ""
|
||||
|
||||
Public serverpath_SUB As String = "\\192.168.0.95\G\atlas\atlas"
|
||||
Public serverpath_SBG As String = "\\192.168.133.98\G\atlas\atlas"
|
||||
'Schreiben Dat-Datei
|
||||
|
||||
|
||||
Public Function sendArtikelToATLAS(server_tmp As String, artikel As cArtikel) As String
|
||||
server = server_tmp
|
||||
|
||||
|
||||
If server = "SUB" Then
|
||||
serverpath = serverpath_SUB & "\fssinbas\"
|
||||
serverpathOUT = serverpath_SUB & "\fsslgbas\"
|
||||
ElseIf server = "SBG" Then
|
||||
serverpath = serverpath_SBG & "\fssinbas\"
|
||||
serverpathOUT = serverpath_SBG & "\fsslgbas\"
|
||||
Else
|
||||
Return ""
|
||||
End If
|
||||
|
||||
Try
|
||||
Dim filename = genFile(artikel)
|
||||
|
||||
If System.IO.File.Exists(serverpath & filename) Then
|
||||
' MsgBox("true")
|
||||
Return serverpathOUT & filename
|
||||
Else
|
||||
' MsgBox("false")
|
||||
Return "ERROR: Ausgabedatei existiert nicht."
|
||||
End If
|
||||
'MsgBox(mydocpath & "\" & filename)
|
||||
'MsgBox("\\192.168.0.95\G\atlas\atlas\fssinbas\" & filename)
|
||||
'System.IO.File.Copy(mydocpath & "\" & filename, "\\192.168.0.95\G\atlas\atlas\fssinbas\" & filename)
|
||||
Catch ex As Exception
|
||||
MsgBox("Es ist ein Fehler beim Übertragen der Daten aufgetreten:" & vbNewLine & vbNewLine & ex.Message)
|
||||
End Try
|
||||
Return ""
|
||||
End Function
|
||||
Public Function genFile(artikel As cArtikel, Optional kundennummer As String = "") As String
|
||||
' Set a variable to the My Documents path.
|
||||
' MsgBox(My.Computer.FileSystem.SpecialDirectories.MyDocuments)
|
||||
If Not System.IO.Directory.Exists(mydocpath) Then
|
||||
System.IO.Directory.CreateDirectory(mydocpath)
|
||||
End If
|
||||
Dim sb As New StringBuilder()
|
||||
' Enumerate the files in teh My Documents path, filtering for text files only.
|
||||
' Open a stream reader and write the name of the file, a visual separator, and the contents
|
||||
' of the file to the stream.
|
||||
|
||||
sb.AppendLine(genHEAD())
|
||||
|
||||
' If verarbeitungskennzeichen <> "" Then
|
||||
'artikel.Verarbeitungskennzeichen = verarbeitungskennzeichen
|
||||
' End If
|
||||
artikel.Teilsatzschlüssel = "ART"
|
||||
artikel.Verarbeitungskennzeichen = "0" 'Keine Änderung möglich
|
||||
Dim line As String = ""
|
||||
|
||||
line &= artikel.Teilsatzschlüssel & trennzeichen
|
||||
line &= artikel.Verarbeitungskennzeichen & trennzeichen
|
||||
line &= artikel.Artikelnummer & trennzeichen
|
||||
line &= artikel.Dynamische_Ergänzung_1 & trennzeichen
|
||||
line &= artikel.Dynamische_Ergänzung_2 & trennzeichen
|
||||
line &= artikel.Kundennummer & trennzeichen
|
||||
line &= artikel.Warencodenummer & trennzeichen
|
||||
line &= artikel.Löschkennzeichen_Warencodenummer & trennzeichen
|
||||
line &= artikel.Zusatzcode_1 & trennzeichen
|
||||
line &= artikel.Löschkennzeichen_Zusatzcode_1 & trennzeichen
|
||||
line &= artikel.Zusatzcode_2 & trennzeichen
|
||||
line &= artikel.Löschkennzeichen_Zusatzcode_2 & trennzeichen
|
||||
line &= artikel.Kennzeichen_Gültig & trennzeichen
|
||||
line &= artikel.Kurzbezeichnung & trennzeichen
|
||||
line &= artikel.Löschkennzeichen_Kurzbezeichnung & trennzeichen
|
||||
line &= artikel.Warenbeschreibung & trennzeichen
|
||||
line &= artikel.Löschkennzeichen_Warenbeschreibung & trennzeichen
|
||||
line &= artikel.Statistische_Maßeinheit & trennzeichen
|
||||
line &= artikel.Löschkennzeichen_Statistische_Maßeinheit & trennzeichen
|
||||
line &= artikel.Statistische_Maßeinheit_Qualifikator & trennzeichen
|
||||
line &= artikel.Löschkennzeichen_Statistische_Maßeinheit_Qualifikator & trennzeichen
|
||||
line &= artikel.Besondere_Maßeinheit & trennzeichen
|
||||
line &= artikel.Löschkennzeichen_Besondere_Maßeinheit & trennzeichen
|
||||
line &= artikel.Besondere_Maßeinheit_Qualifikator & trennzeichen
|
||||
line &= artikel.Löschkennzeichen_Besondere_Maßeinheit_Qualifikator & trennzeichen
|
||||
line &= artikel.Gewicht & trennzeichen
|
||||
line &= artikel.Löschkennzeichen_Gewicht & trennzeichen
|
||||
line &= artikel.Menge & trennzeichen
|
||||
line &= artikel.Löschkennzeichen_Menge
|
||||
line &= trennzeichen
|
||||
line &= trennzeichen
|
||||
line &= trennzeichen
|
||||
line &= trennzeichen
|
||||
line &= trennzeichen
|
||||
line &= trennzeichen
|
||||
line &= trennzeichen
|
||||
line &= trennzeichen
|
||||
line &= trennzeichen
|
||||
line &= trennzeichen
|
||||
line &= trennzeichen
|
||||
line &= trennzeichen
|
||||
line &= trennzeichen
|
||||
line &= trennzeichen
|
||||
line &= trennzeichen
|
||||
line &= trennzeichen
|
||||
line &= trennzeichen
|
||||
line &= trennzeichen
|
||||
line &= trennzeichen
|
||||
line &= trennzeichen
|
||||
line &= trennzeichen
|
||||
line &= Now.ToString("yyyyMMdd")
|
||||
|
||||
|
||||
sb.AppendLine(line)
|
||||
|
||||
Try
|
||||
' Write the stream cotnents to a new file named "AllTxtFiles.txt"'
|
||||
Dim filename As String = "FSS_ARTIKEL_" & Now.ToString("yyyyMMddHHmmssfff")
|
||||
'Dim filename As String = "A421S0002"
|
||||
|
||||
'Using outfile As New StreamWriter(mydocpath & "\" & filename, False, enc)
|
||||
|
||||
|
||||
Try
|
||||
' My.Computer.Network.UploadFile("C:\Test.txt", "\\pc2\Folder") ???
|
||||
|
||||
Using outfile As New StreamWriter(serverpath & filename, False, enc)
|
||||
outfile.Write(sb.ToString())
|
||||
End Using
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message)
|
||||
End Try
|
||||
|
||||
Return filename
|
||||
Catch ex As Exception
|
||||
Return ""
|
||||
End Try
|
||||
End Function
|
||||
|
||||
Public Function genHEAD() As String
|
||||
Dim headsrt As String = ""
|
||||
Dim head As New cHEAD
|
||||
|
||||
If server = "SBG" Then
|
||||
head.kundennummer = "0617"
|
||||
head.niederlassung = "SBG"
|
||||
End If
|
||||
If server = "SUB" Then
|
||||
head.kundennummer = "0421"
|
||||
head.niederlassung = "SUB"
|
||||
End If
|
||||
|
||||
headsrt &= head.key & trennzeichen
|
||||
headsrt &= head.strukturtyp & trennzeichen
|
||||
headsrt &= head.art & trennzeichen
|
||||
headsrt &= head.richtung & trennzeichen
|
||||
headsrt &= head.iso & trennzeichen
|
||||
headsrt &= head.dateiname & trennzeichen
|
||||
headsrt &= head.version & trennzeichen
|
||||
headsrt &= head.kundennummer & trennzeichen
|
||||
headsrt &= head.tin & trennzeichen
|
||||
headsrt &= head.niederlassungsnummer & trennzeichen
|
||||
headsrt &= head.verfahrensbereich & trennzeichen
|
||||
headsrt &= head.dienststellennummer & trennzeichen
|
||||
headsrt &= head.nachrichtenname & trennzeichen
|
||||
headsrt &= head.schemaVersion & trennzeichen
|
||||
headsrt &= head.testFlag & trennzeichen
|
||||
headsrt &= head.datumUhrzeit & trennzeichen
|
||||
headsrt &= head.mandant & trennzeichen
|
||||
headsrt &= head.niederlassung & trennzeichen
|
||||
headsrt &= head.zabisModul & trennzeichen
|
||||
headsrt &= head.statuskennzeichen & trennzeichen
|
||||
headsrt &= head.rueckmeldungskennzeichen & trennzeichen
|
||||
headsrt &= head.kennzeichenVerfahren & trennzeichen
|
||||
headsrt &= head.messageId & trennzeichen
|
||||
headsrt &= head.inreplyTo & trennzeichen
|
||||
headsrt &= head.Subtyp
|
||||
|
||||
Return headsrt
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
End Class
|
||||
|
||||
|
||||
Public Class cHEAD
|
||||
Property key As String = "HEAD"
|
||||
Property strukturtyp As String = "001"
|
||||
Property art As String = "inh"
|
||||
Property richtung As String = "KD_ZAB"
|
||||
Property iso As String = "1"
|
||||
Property dateiname As String = "A421S0002"
|
||||
Property version As String = "07000"
|
||||
Property kundennummer As String = "0421"
|
||||
Property tin As String = ""
|
||||
Property niederlassungsnummer As String = ""
|
||||
Property verfahrensbereich As String = ""
|
||||
Property dienststellennummer As String = ""
|
||||
Property nachrichtenname As String = "BAR"
|
||||
Property schemaVersion As String = ""
|
||||
Property testFlag As String = ""
|
||||
Property datumUhrzeit As String = Now.ToString("yyyyMMddhhmmss")
|
||||
Property mandant As String = "VERA"
|
||||
Property niederlassung As String = "SUB"
|
||||
Property zabisModul As String = "BAS"
|
||||
Property statuskennzeichen As String = ""
|
||||
Property rueckmeldungskennzeichen As String = ""
|
||||
Property kennzeichenVerfahren As String = ""
|
||||
Property messageId As String = ""
|
||||
Property inreplyTo As String = ""
|
||||
Property Subtyp As String = "1"
|
||||
End Class
|
||||
|
||||
Public Class cArtikel
|
||||
Property zollArt_id As Integer = -1
|
||||
Property Teilsatzschlüssel As String = ""
|
||||
Property Verarbeitungskennzeichen As String = ""
|
||||
Property Artikelnummer As String = ""
|
||||
Property Dynamische_Ergänzung_1 As String = ""
|
||||
Property Dynamische_Ergänzung_2 As String = ""
|
||||
Property Kundennummer As String = ""
|
||||
Property Warencodenummer As String = ""
|
||||
Property Löschkennzeichen_Warencodenummer As String = ""
|
||||
Property Zusatzcode_1 As String = ""
|
||||
Property Löschkennzeichen_Zusatzcode_1 As String = ""
|
||||
Property Zusatzcode_2 As String = ""
|
||||
Property Löschkennzeichen_Zusatzcode_2 As String = ""
|
||||
Property Kennzeichen_Gültig As String = "1" ' 1 =gültig für alle NL
|
||||
Property Kurzbezeichnung As String = ""
|
||||
Property Löschkennzeichen_Kurzbezeichnung As String = ""
|
||||
Property Warenbeschreibung As String = ""
|
||||
Property Löschkennzeichen_Warenbeschreibung As String = ""
|
||||
Property Statistische_Maßeinheit As String = ""
|
||||
Property Löschkennzeichen_Statistische_Maßeinheit As String = ""
|
||||
Property Statistische_Maßeinheit_Qualifikator As String = ""
|
||||
Property Löschkennzeichen_Statistische_Maßeinheit_Qualifikator As String = ""
|
||||
Property Besondere_Maßeinheit As String = ""
|
||||
Property Löschkennzeichen_Besondere_Maßeinheit As String = ""
|
||||
Property Besondere_Maßeinheit_Qualifikator As String = ""
|
||||
Property Löschkennzeichen_Besondere_Maßeinheit_Qualifikator As String = ""
|
||||
Property Gewicht As String = ""
|
||||
Property Löschkennzeichen_Gewicht As String = ""
|
||||
Property Menge As String = ""
|
||||
Property Löschkennzeichen_Menge As String = ""
|
||||
Property tmp_rueckgabeFileSUB As String = ""
|
||||
Property tmp_rueckgabeFileSBG As String = ""
|
||||
Property tmp_rueckgabetextSUB As String = ""
|
||||
Property tmp_rueckgabeSUB As Boolean = False
|
||||
Property tmp_rueckgabetextSBG As String = ""
|
||||
Property tmp_rueckgabeSBG As Boolean = False
|
||||
Property status As String = ""
|
||||
|
||||
End Class
|
||||
Reference in New Issue
Block a user